extra/llvm/wrappers/wrappers.factor

   1 USING: accessors alien.c-types alien.strings
   2 io.encodings.utf8 destructors kernel
   3 llvm.core llvm.engine ;
   4
   5 IN: llvm.wrappers
   6
   7 : llvm-throw ( char* -- )
   8     [ utf8 alien>string ] [ LLVMDisposeMessage ] bi throw ;
   9
  10 : <dispose> ( alien class -- disposable ) new swap >>value ;
  11
  12 TUPLE: module value disposed ;
  13 M: module dispose* value>> LLVMDisposeModule ;
  14
  15 : <module> ( name -- module )
  16     LLVMModuleCreateWithName module <dispose> ;
  17
  18 TUPLE: provider value module disposed ;
  19 M: provider dispose* value>> LLVMDisposeModuleProvider ;
  20
  21 : (provider) ( module -- provider )
  22     [ value>> LLVMCreateModuleProviderForExistingModule provider <dispose> ]
  23     [ t >>disposed value>> ] bi
  24     >>module ;
  25
  26 : <provider> ( module -- provider )
  27     [ (provider) ] with-disposal ;
  28
  29 TUPLE: engine value disposed ;
  30 M: engine dispose* value>> LLVMDisposeExecutionEngine ;
  31
  32 : (engine) ( provider -- engine )
  33     [
  34         value>> f <void*> f <void*>
  35         [ swapd 0 swap LLVMCreateJITCompiler drop ] 2keep
  36         *void* [ llvm-throw ] when* *void*
  37     ]
  38     [ t >>disposed drop ] bi
  39     engine <dispose> ;
  40
  41 : <engine> ( provider -- engine )
  42     [ (engine) ] with-disposal ;
  43
  44 : (add-block) ( name -- basic-block )
  45     "function" swap LLVMAppendBasicBlock ;
  46
  47 TUPLE: builder value disposed ;
  48 M: builder dispose* value>> LLVMDisposeBuilder ;
  49
  50 : <builder> ( name -- builder )
  51     (add-block) LLVMCreateBuilder [ swap LLVMPositionBuilderAtEnd ] keep
  52     builder <dispose> ;
  53
  54 TUPLE: buffer value disposed ;
  55 M: buffer dispose* value>> LLVMDisposeMemoryBuffer ;
  56
  57 : <buffer> ( path -- module )
  58     f <void*> f <void*>
  59     [ LLVMCreateMemoryBufferWithContentsOfFile drop ] 2keep
  60     *void* [ llvm-throw ] when* *void* buffer <dispose> ;