addons/CFFI/source/IoCFFILibrary.c

   1 /* CFFI - An Io interface to C
   2    Copyright (c) 2006 Trevor Fancher. All rights reserved.
   3    All code licensed under the New BSD license.
   4  */
   5
   6 #include "IoCFFILibrary.h"
   7 #include <string.h>
   8 #include "IoSeq.h"
   9
  10 #define DATA(self) ((IoCFFILibraryData *)(IoObject_dataPointer(self)))
  11
  12 IoTag *IoCFFILibrary_newTag(void *state)
  13 {
  14         IoTag *tag = IoTag_newWithName_("Library");
  15         IoTag_state_(tag, state);
  16         IoTag_freeFunc_(tag, (IoTagFreeFunc *)IoCFFILibrary_free);
  17         IoTag_cloneFunc_(tag, (IoTagCloneFunc *)IoCFFILibrary_rawClone);
  18         return tag;
  19 }
  20
  21 IoCFFILibrary *IoCFFILibrary_proto(void *state)
  22 {
  23         IoObject *self = IoObject_new(state);
  24         IoObject_tag_(self, IoCFFILibrary_newTag(state));
  25
  26         IoObject_setDataPointer_(self, calloc(1, sizeof(IoCFFILibraryData)));
  27
  28         IoState_registerProtoWithFunc_(state, self, IoCFFILibrary_proto);
  29
  30         {
  31                 IoMethodTable methodTable[] = {
  32                         {NULL, NULL},
  33                 };
  34                 IoObject_addMethodTable_(self, methodTable);
  35         }
  36
  37         return self;
  38 }
  39
  40 IoCFFILibrary *IoCFFILibrary_rawClone(IoCFFILibrary *proto)
  41 {
  42         IoObject *self = IoObject_rawClonePrimitive(proto);
  43         IoObject_setDataPointer_(self, calloc(1, sizeof(IoCFFILibraryData)));
  44         return self;
  45 }
  46
  47 void IoCFFILibrary_free(IoCFFILibrary *self)
  48 {
  49         DynLib *library = DATA(self)->library;
  50
  51         if (library && DynLib_isOpen(library))
  52         {
  53                 DynLib_close(library);
  54                 DynLib_free(library);
  55         }
  56
  57         free(DATA(self));
  58 }
  59
  60 /* ---------------------------------------------------------------- */
  61
  62 void *IoCFFILibrary_rawGetFuctionPointer_(IoCFFILibrary *self, const char *name)
  63 {
  64         DynLib *library = DATA(self)->library;
  65
  66         if (!library)
  67         {
  68                 const char *name = CSTRING(IoObject_getSlot_(self, IOSYMBOL("name")));
  69
  70                 library = DATA(self)->library = DynLib_new();
  71                 DynLib_setPath_(library, name);
  72                 DynLib_open(library);
  73         }
  74
  75         return DynLib_pointerForSymbolName_(library, name);
  76 }