ExternalLibraryFunction.st
changeset 11426 1fccae300393
parent 11053 bcf4ebb25868
child 11586 a3b2eef8a74c
equal deleted inserted replaced
11425:51d14050b0d6 11426:1fccae300393
   203 
   203 
   204 argumentTypes
   204 argumentTypes
   205     ^ argumentTypes
   205     ^ argumentTypes
   206 !
   206 !
   207 
   207 
       
   208 argumentTypesString
       
   209     ^ String 
       
   210         streamContents:[:s |
       
   211             argumentTypes do:[:eachArgType |
       
   212                 eachArgType printOn:s.
       
   213             ] separatedBy:[
       
   214                 s nextPutAll:','.
       
   215             ].
       
   216         ].   
       
   217 !
       
   218 
   208 beAsync
   219 beAsync
   209     "let this execute in a separate thread, in par with the other execution thread(s).
   220     "let this execute in a separate thread, in par with the other execution thread(s).
   210      Ignored under unix/linux (until those support multiple threads too)."
   221      Ignored under unix/linux (until those support multiple threads too)."
   211 
   222 
   212     flags := (flags ? 0) bitOr: FLAG_ASYNC.
   223     flags := (flags ? 0) bitOr: FLAG_ASYNC.
   362     "is this a virtual c++-function ?"
   373     "is this a virtual c++-function ?"
   363 
   374 
   364     ^ (flags ? 0) bitTest: FLAG_VIRTUAL.
   375     ^ (flags ? 0) bitTest: FLAG_VIRTUAL.
   365 
   376 
   366     "Created: / 01-08-2006 / 13:56:54 / cg"
   377     "Created: / 01-08-2006 / 13:56:54 / cg"
       
   378 !
       
   379 
       
   380 moduleName
       
   381     ^ moduleName
   367 !
   382 !
   368 
   383 
   369 returnType
   384 returnType
   370     ^ returnType
   385     ^ returnType
   371 !
   386 !
   637     returnType := aReturnType.
   652     returnType := aReturnType.
   638     argumentTypes := argTypes.
   653     argumentTypes := argTypes.
   639 
   654 
   640     "Created: / 01-08-2006 / 15:19:52 / cg"
   655     "Created: / 01-08-2006 / 15:19:52 / cg"
   641     "Modified: / 02-08-2006 / 17:20:13 / cg"
   656     "Modified: / 02-08-2006 / 17:20:13 / cg"
       
   657 !
       
   658 
       
   659 owningClass
       
   660     ^ owningClass
   642 !
   661 !
   643 
   662 
   644 owningClass:aClass
   663 owningClass:aClass
   645     owningClass := aClass.
   664     owningClass := aClass.
   646 
   665 
  1359 ! !
  1378 ! !
  1360 
  1379 
  1361 !ExternalLibraryFunction class methodsFor:'documentation'!
  1380 !ExternalLibraryFunction class methodsFor:'documentation'!
  1362 
  1381 
  1363 version
  1382 version
  1364     ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.64 2008-06-09 18:49:09 cg Exp $'
  1383     ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.65 2009-01-11 15:37:34 cg Exp $'
  1365 ! !
  1384 ! !
  1366 
  1385 
  1367 ExternalLibraryFunction initialize!
  1386 ExternalLibraryFunction initialize!