ExternalLibraryFunction.st
changeset 19505 3014e8447db8
parent 19501 4922889c4309
child 19514 7605a907a2eb
child 19527 169a7088b668
equal deleted inserted replaced
19504:7ba6cd9ec5b3 19505:3014e8447db8
   312     ^ CALLTYPE_OLE
   312     ^ CALLTYPE_OLE
   313 
   313 
   314     "Modified: / 01-08-2006 / 13:44:57 / cg"
   314     "Modified: / 01-08-2006 / 13:44:57 / cg"
   315 ! !
   315 ! !
   316 
   316 
       
   317 !ExternalLibraryFunction class methodsFor:'debugging'!
       
   318 
       
   319 verbose:aBoolean
       
   320     "turn on/off tracing of calls"
       
   321 
       
   322     Verbose := aBoolean
       
   323 
       
   324     "
       
   325      ExternalLibraryFunction verbose:true
       
   326     "
       
   327 
       
   328     "Created: / 30-03-2016 / 17:28:23 / cg"
       
   329 ! !
       
   330 
   317 !ExternalLibraryFunction class methodsFor:'type name mapping'!
   331 !ExternalLibraryFunction class methodsFor:'type name mapping'!
   318 
   332 
   319 ffiTypeSymbolForType:aType
   333 ffiTypeSymbolForType:aType
   320     "map type to one of the ffi-supported ones:
   334     "map type to one of the ffi-supported ones:
   321         sint8, sint16, sint32, sint64
   335         sint8, sint16, sint32, sint64