--- a/SharedQueue.st Thu Mar 09 03:18:23 1995 +0100
+++ b/SharedQueue.st Sat Mar 18 06:08:34 1995 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -11,16 +11,16 @@
"
Queue subclass:#SharedQueue
- instanceVariableNames:'accessProtect dataAvailable spaceAvailable'
- classVariableNames:''
- poolDictionaries:''
- category:'Collections-Ordered'!
+ instanceVariableNames:'accessProtect dataAvailable spaceAvailable'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Kernel-Processes'!
SharedQueue comment:'
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.7 1994-08-05 01:02:31 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.8 1995-03-18 05:08:21 claus Exp $
'!
!SharedQueue class methodsFor:'documentation'!
@@ -28,7 +28,7 @@
copyright
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -41,7 +41,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.7 1994-08-05 01:02:31 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.8 1995-03-18 05:08:21 claus Exp $
"
!
@@ -85,22 +85,22 @@
ok := false.
[ok] whileFalse:[
- [tally == 0] whileTrue:[
- dataAvailable wait
- ].
- accessProtect critical:[
- "
- this check is needed, since another process may
- have read the value in the meantime ...
- "
- tally == 0 ifFalse:[
- value := super next.
- tally == (contentsArray size - 1) ifTrue:[
- spaceAvailable signal
- ].
- ok := true
- ]
- ]
+ [tally == 0] whileTrue:[
+ dataAvailable wait
+ ].
+ accessProtect critical:[
+ "
+ this check is needed, since another process may
+ have read the value in the meantime ...
+ "
+ tally == 0 ifFalse:[
+ value := super next.
+ tally == (contentsArray size - 1) ifTrue:[
+ spaceAvailable signal
+ ].
+ ok := true
+ ]
+ ]
].
^ value
!
@@ -114,18 +114,18 @@
ok := false.
[ok] whileFalse:[
- [tally == contentsArray size] whileTrue:[
- spaceAvailable wait
- ].
- accessProtect critical:[
- tally == contentsArray size ifFalse:[
- super nextPut:anObject.
- tally == 1 ifTrue:[
- dataAvailable signal
- ].
- ok := true
- ]
- ]
+ [tally == contentsArray size] whileTrue:[
+ spaceAvailable wait
+ ].
+ accessProtect critical:[
+ tally == contentsArray size ifFalse:[
+ super nextPut:anObject.
+ tally == 1 ifTrue:[
+ dataAvailable signal
+ ].
+ ok := true
+ ]
+ ]
].
^ anObject
! !