--- a/RecLock.st Mon Dec 04 16:00:37 1995 +0100
+++ b/RecLock.st Thu Dec 07 22:30:55 1995 +0100
@@ -11,8 +11,6 @@
"
-'From Smalltalk/X, Version:2.10.5 on 28-apr-1995 at 12:37:45 pm'!
-
Object subclass:#RecursionLock
instanceVariableNames:'process sema'
classVariableNames:''
@@ -22,6 +20,21 @@
!RecursionLock class methodsFor:'documentation'!
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+ 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
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+!
+
documentation
"
like a Semaphore for mutual exclusion, but avoids the deadlock
@@ -42,25 +55,6 @@
]
"
-!
-
-copyright
-"
- COPYRIGHT (c) 1995 by Claus Gittinger
- 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
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-
-!
-
-version
- ^ '$Header: /cvs/stx/stx/libbasic2/Attic/RecLock.st,v 1.5 1995-11-11 15:21:35 cg Exp $'
! !
!RecursionLock class methodsFor:'instance creation'!
@@ -70,6 +64,12 @@
! !
+!RecursionLock methodsFor:'private initialization'!
+
+initialize
+ sema := Semaphore forMutualExclusion
+! !
+
!RecursionLock methodsFor:'wait & signal'!
critical:aBlock
@@ -93,8 +93,8 @@
].
! !
-!RecursionLock methodsFor:'private initialization'!
+!RecursionLock class methodsFor:'documentation'!
-initialize
- sema := Semaphore forMutualExclusion
+version
+ ^ '$Header: /cvs/stx/stx/libbasic2/Attic/RecLock.st,v 1.6 1995-12-07 21:30:23 cg Exp $'
! !
--- a/SharedQueue.st Mon Dec 04 16:00:37 1995 +0100
+++ b/SharedQueue.st Thu Dec 07 22:30:55 1995 +0100
@@ -14,7 +14,8 @@
instanceVariableNames:'accessProtect dataAvailable spaceAvailable'
classVariableNames:''
poolDictionaries:''
- category:'Kernel-Processes'!
+ category:'Kernel-Processes'
+!
!SharedQueue class methodsFor:'documentation'!
@@ -32,10 +33,6 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.11 1995-11-11 15:21:36 cg Exp $'
-!
-
documentation
"
SharedQueues provide a safe mechanism for processes to communicate.
@@ -53,17 +50,6 @@
"
! !
-!SharedQueue methodsFor:'initialization'!
-
-init:size
- "initialize the receiver for size entries"
-
- super init:size.
- accessProtect := Semaphore forMutualExclusion.
- dataAvailable := Semaphore new.
- spaceAvailable := Semaphore new
-! !
-
!SharedQueue methodsFor:'accessing'!
next
@@ -120,3 +106,20 @@
].
^ anObject
! !
+
+!SharedQueue methodsFor:'initialization'!
+
+init:size
+ "initialize the receiver for size entries"
+
+ super init:size.
+ accessProtect := Semaphore forMutualExclusion.
+ dataAvailable := Semaphore new.
+ spaceAvailable := Semaphore new
+! !
+
+!SharedQueue class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.12 1995-12-07 21:30:55 cg Exp $'
+! !