home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / gnusmalltalk / dld.st < prev    next >
Text File  |  1992-02-15  |  5KB  |  209 lines
  1. "======================================================================
  2. |
  3. |   GNU Dynamic Loader Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31.  
  32.  
  33. "
  34. |     Change Log
  35. | ============================================================================
  36. | Author       Date       Change 
  37. | sbb         19 Jul 91      Created.
  38. |
  39. "
  40.  
  41. Object subclass: #DLD
  42.        instanceVariableNames: ''
  43.        classVariableNames: ''
  44.        poolDictionaries: ''
  45.        category: 'Cool hacks'
  46. !
  47.  
  48. DLD comment: '###NO COMMENT YET###'!
  49.  
  50. "
  51.      int dld_link (char *FILENAME)
  52. "
  53.  
  54. Behavior defineCFunc: 'dldLink'
  55.      withSelectorArgs: 'linkFile: aFileName'
  56.      forClass: DLD class
  57.      returning: #int
  58.      args: #(string)
  59. !
  60.  
  61. "
  62.      int dld_unlink_by_file (char *PATH, int HARD)
  63.  
  64.      int dld_unlink_by_symbol (char *ID, int HARD)
  65. "
  66.  
  67. Behavior defineCFunc: 'dldUnlinkByFile'
  68.      withSelectorArgs: 'unlinkFile: aFileName force: aBool'
  69.      forClass: DLD class
  70.      returning: #int
  71.      args: #(string int)
  72. !
  73.  
  74. Behavior defineCFunc: 'dldUnlinkBySymbol'
  75.      withSelectorArgs: 'unlinkModuleContaining: aStringName force: aBool'
  76.      forClass: DLD class
  77.      returning: #int
  78.      args: #(string int)
  79. !
  80.  
  81. "
  82.      unsigned long dld_get_symbol (char *ID)
  83.  
  84.      unsigned long dld_get_func (char *FUNC)
  85. "
  86.  
  87. Behavior defineCFunc: 'dldGetSymbol'
  88.      withSelectorArgs: 'getSymbol: aStringName'
  89.      forClass: DLD class
  90.      returning: #cObject
  91.      args: #(string)
  92. !
  93.  
  94. Behavior defineCFunc: 'dldGetFunc'
  95.      withSelectorArgs: 'getFunc: aFuncString'
  96.      forClass: DLD class
  97.      returning: #cObject
  98.      args: #(string)
  99. !
  100.  
  101.  
  102. "
  103.      int dld_function_executable_p (char *FUNC)
  104. "
  105.  
  106. Behavior defineCFunc: 'dldFunctionExecutableP'
  107.      withSelectorArgs: 'isExecutable: aFuncString'
  108.      forClass: DLD class
  109.      returning: #int    "bool"
  110.      args: #(string)
  111. !
  112.  
  113. "
  114.      char **dld_list_undefined_sym ()
  115. "
  116.  
  117. CStruct newStruct: #StringArray
  118.     declaration: #((val (ptr string)))
  119. !
  120.  
  121.  
  122. Behavior defineCFunc: 'dldListUndefinedSym'
  123.      withSelectorArgs: 'undefinedSymbols'
  124.      forClass: DLD class
  125.      returning: "CStringType ""(CType baseType: StringArray)"
  126.           "(CType baseType: CPtr subType: CStringType)"
  127.           (CType baseType: CArray subType: CStringType)
  128.      args: #()
  129. !
  130.  
  131. "
  132.      int dld_create_reference (char *NAME)
  133. "
  134.  
  135. Behavior defineCFunc: 'dldCreateReference'
  136.      withSelectorArgs: 'createReference: aString'
  137.      forClass: DLD class
  138.      returning: #int
  139.      args: #(string)
  140. !
  141.  
  142. "
  143.      int dld_define_sym (char *NAME, unsigned int SIZE)
  144.      void dld_remove_defined_symbol (char *NAME)
  145. "
  146.  
  147. Behavior defineCFunc: 'dldDefineSym'
  148.      withSelectorArgs: 'defineSym: symbolName size: anInteger'
  149.      forClass: DLD class
  150.      returning: #int
  151.      args: #(string int)
  152. !
  153.  
  154. Behavior defineCFunc: 'dldRemoveDefinedSymbol'
  155.      withSelectorArgs: 'removeDefinedSymbol: aString'
  156.      forClass: DLD class
  157.      returning: #void
  158.      args: #(string)
  159. !
  160.  
  161. Behavior defineCFunc: 'getUndefinedSymCount'
  162.      withSelectorArgs: 'numUndefinedSymbols'
  163.      forClass: DLD class
  164.      returning: #int
  165.      args: #()
  166. !
  167.  
  168.  
  169. "Generally useful in the presence of dynamic linking"
  170.  
  171. Behavior defineCFunc: 'defineCFunc'
  172.      withSelectorArgs: 'defineCFunc: aName as: aFuncAddr'
  173.      forClass: Behavior class
  174.      returning: #void
  175.      args: #(string cObject)
  176. !
  177.  
  178.  
  179. !DLD class methodsFor: 'Dynamic Linking'!
  180.  
  181. defineExternFunc: aFuncName
  182.     withSelectorArgs: selector
  183.     forClass: aClass
  184.     returning: aReturnType
  185.     args: argsArray
  186.     | funcAddr |
  187.     
  188.     funcAddr _ self getFunc: aFuncName.
  189.     funcAddr isNil
  190.     ifTrue: [ ^self error: 'Function ', aFuncName, ' not found' ].
  191.     Behavior defineCFunc: aFuncName as: funcAddr.
  192.     Behavior defineCFunc: aFuncName
  193.          withSelectorArgs: selector
  194.          forClass: aClass
  195.          returning: aReturnType
  196.          args: argsArray
  197. ! !
  198.  
  199.  
  200. "
  201. | syms |
  202.     DLD createReference: 'printf'.
  203.     DLD createReference: 'open'.
  204.     syms _ DLD undefinedSymbols.
  205.     0 to: DLD numUndefinedSymbols - 1
  206.       do: [ :i | (syms at: i) value printNl ]
  207. !
  208. "
  209.