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