extra/llvm/reader/reader.factor

   1 ! Copyright (C) 2009 Matthew Willis.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors alien.c-types alien.data destructors kernel llvm.ffi
   4 llvm.wrappers ;
   5
   6 IN: llvm.reader
   7
   8 : buffer>module ( buffer -- module )
   9     [
  10         value>> f void* <ref> f void* <ref>
  11         [ LLVMParseBitcode drop ] 2keep
  12         void* deref [ llvm-throw ] when* void* deref
  13         module new swap >>value
  14     ] with-disposal ;
  15
  16 : load-module ( path -- module )
  17     <buffer> buffer>module ;