home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / gnusmalltalk / systemdictionary.st < prev    next >
Text File  |  1992-02-15  |  3KB  |  112 lines
  1. "======================================================================
  2. |
  3. |   SystemDictionary 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. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbb         20 Apr 91      Added some methods for testing and modifying
  36. |                         implementation specific features.
  37. |
  38. | sbb         16 Mar 91      Class creation now separate statement.
  39. |
  40. | sbyrne     22 Apr 90      Fixed Dependencies to be an IdentityDictionary
  41. |              instead of a regular Dictionary.  This has better
  42. |              semantics and is faster.
  43. |
  44. | sbyrne      4 Jul 89      added initBlocks methods.
  45. |
  46. | sbyrne     25 Apr 89      created.
  47. |
  48. "
  49.  
  50. Dictionary variableSubclass: #SystemDictionary
  51.        instanceVariableNames: ''
  52.        classVariableNames: ''
  53.        poolDictionaries: ''
  54.        category: nil
  55. !
  56.  
  57. SystemDictionary comment: 
  58. 'I am a special form of dictionary.  Typically I only have one instance,
  59. called "Smalltalk", which is known to the Smalltalk interpreter.  I define
  60. several methods that are "system" related, such as #quitPrimitive.
  61. My instance also helps keep track of dependencies between objects.' !
  62.  
  63.  
  64. ">>> See also builtins.st for some non-primitive but highly useful
  65. SystemDictionary method definitions."
  66.  
  67. !SystemDictionary methodsFor: 'basic'!
  68.  
  69. initialize
  70.     InitBlocks _ OrderedCollection new.
  71.     self at: #Dependencies put: (IdentityDictionary new) 
  72.                                              "### I don't think this is
  73.                                                   the right way to do this"
  74. !
  75.  
  76. addInit: aBlock
  77.     "Adds 'aBlock' to the array of blocks to be invoked after every start
  78.      of the system."
  79.     InitBlocks add: aBlock
  80. !
  81.  
  82. doInits
  83.     "Called after the system has loaded the image, this will invoke any
  84.      init blocks that have been installed."
  85.     InitBlocks do: [ :aBlock | aBlock value ]
  86. !
  87.  
  88. dependenciesAt: anObject
  89.     ^(Smalltalk at: #Dependencies) at: anObject
  90. !
  91.  
  92. hasFeatures: features
  93.     " Returns true if the feature or features in 'features' is one of the 
  94.       implementation dependent features present"
  95.     features class == Symbol
  96.     ifTrue: [ ^Features includes: features ]
  97.     ifFalse:
  98.         [ features do: [ :feature | (Features includes: feature)
  99.                         ifTrue: [ ^true ]].
  100.           ^false ]
  101. !
  102.  
  103. addFeature: aFeature
  104.     Features _ Features asSet.
  105.     Features add: aFeature
  106. !
  107.  
  108. removeFeature: aFeature
  109.     Features _ Features asSet.
  110.     Features remove: aFeature
  111. !!
  112.