home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / smalltalk / !GNUst / st / BlkContext < prev    next >
Encoding:
Text File  |  1991-09-13  |  2.9 KB  |  116 lines
  1. "======================================================================
  2. |
  3. |   BlockContext Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991 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. | sbyrne     25 Apr 89      created.
  36. |
  37. "
  38.  
  39. Object variableSubclass: #BlockContext
  40.        instanceVariableNames: 'caller ip sp numArgs initialIP selector home'
  41.        classVariableNames: ''
  42.        poolDictionaries: ''
  43.        category: nil.
  44.  
  45. BlockContext comment: 
  46. 'My instances represent Smalltalk blocks, which are portions of executeable
  47. code that have access to the environment that they were declared in, take
  48. parameters, and can be passed around as objects to be executed by methods
  49. outside the current class.  Block contexts are sent a message to compute
  50. their value; this property can be used in the construction of control
  51. flow methods.  I also provide some methods that are used in the creation
  52. of Processes from blocks.' !
  53.  
  54.  
  55. !BlockContext methodsFor: 'basic'!
  56.  
  57. whileTrue: aBlock
  58.     [ self value ] whileTrue: [ aBlock value ].
  59.     ^nil
  60. !
  61.  
  62. whileFalse: aBlock
  63.     [ self value ] whileFalse: [ aBlock value ].
  64.     ^nil
  65. !
  66.  
  67. whileTrue
  68.     ^[ self value ] whileTrue: []
  69. !
  70.  
  71. whileFalse
  72.     ^[ self value ] whileFalse: []
  73. !!
  74.  
  75.  
  76.  
  77. !BlockContext methodsFor: 'multiple process'!
  78.  
  79. fork
  80.     self newProcess resume
  81. !
  82.  
  83. newProcess
  84.     | block |
  85.     block _ [ self value.
  86.               Processor terminateActive ].
  87.     block initBlock.          
  88.     ^Process on: block at: Processor activePriority
  89. !
  90.  
  91. newProcessWith: anArray
  92.     | block |
  93.     block _ [ self valueWithArguments: anArray.
  94.               Processor terminateActive ].
  95.     block initBlock.          
  96.     ^Process on: block at: Processor activePriority
  97. !!
  98.  
  99.  
  100.  
  101. !BlockContext methodsFor: 'scheduling'!
  102.  
  103. forkAt: priority
  104.     (self newProcess priority: priority) resume
  105. !!
  106.  
  107.  
  108.  
  109. !BlockContext methodsFor: 'private'!
  110.  
  111. initBlock 
  112.     ip _ initialIP.
  113.     sp _ 0.
  114.     caller _ nil
  115. !!
  116.