--- a/Delay.st Thu Dec 07 20:39:17 1995 +0100
+++ b/Delay.st Thu Dec 07 20:42:47 1995 +0100
@@ -33,10 +33,6 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.11 1995-11-11 14:28:18 cg Exp $'
-!
-
documentation
"
Instances of Delay are used to suspend the execution of a process
@@ -146,14 +142,6 @@
^ self new delay:(aNumber * 1000) rounded
!
-untilMilliseconds:aMillisecondTime
- "return a new Delay object, that will delay the active process
- until the systems millisecond time has reached aMillisecondTime.
- "
-
- ^ self new resumtionTime:aMillisecondTime
-!
-
until:anAbsoluteTime
"return a new Delay object, that will delay the active process
until the system has reached the time represented by the argument.
@@ -166,6 +154,14 @@
numberOfSeconds := anAbsoluteTime getSeconds - AbsoluteTime now getSeconds.
^ self new delay:numberOfSeconds * 1000
+!
+
+untilMilliseconds:aMillisecondTime
+ "return a new Delay object, that will delay the active process
+ until the systems millisecond time has reached aMillisecondTime.
+ "
+
+ ^ self new resumtionTime:aMillisecondTime
! !
!Delay class methodsFor:'queries'!
@@ -185,30 +181,17 @@
delaySemaphore := Semaphore new.
!
+delaySemaphore
+ "return the semaphore used to resume the waiting process"
+
+ ^ delaySemaphore
+!
+
resumtionTime:aMillisecondTime
"set the resumtion time"
resumtionTime := aMillisecondTime.
delaySemaphore := Semaphore new.
-!
-
-delaySemaphore
- "return the semaphore used to resume the waiting process"
-
- ^ delaySemaphore
-! !
-
-!Delay methodsFor:'early signalling'!
-
-resume
- "resume the waiter, even if the delay-time has not yet passed."
-
- |wasBlocked|
-
- wasBlocked := OperatingSystem blockInterrupts.
- Processor disableSemaphore:delaySemaphore.
- delaySemaphore signal.
- wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
! !
!Delay methodsFor:'delaying'!
@@ -236,3 +219,22 @@
'2' printNewline
"
! !
+
+!Delay methodsFor:'early signalling'!
+
+resume
+ "resume the waiter, even if the delay-time has not yet passed."
+
+ |wasBlocked|
+
+ wasBlocked := OperatingSystem blockInterrupts.
+ Processor disableSemaphore:delaySemaphore.
+ delaySemaphore signal.
+ wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
+! !
+
+!Delay class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.12 1995-12-07 19:42:47 cg Exp $'
+! !
--- a/UIBytes.st Thu Dec 07 20:39:17 1995 +0100
+++ b/UIBytes.st Thu Dec 07 20:42:47 1995 +0100
@@ -11,10 +11,10 @@
"
ByteArray subclass:#UninterpretedBytes
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Objects'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Kernel-Objects'
!
!UninterpretedBytes class methodsFor:'documentation'!
@@ -33,10 +33,6 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/UIBytes.st,v 1.13 1995-11-11 15:28:03 cg Exp $'
-!
-
documentation
"
this class has been added for ST-80 compatibility.
@@ -69,3 +65,9 @@
%}
"UninterpretedBytes isBigEndian"
! !
+
+!UninterpretedBytes class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/UIBytes.st,v 1.14 1995-12-07 19:41:53 cg Exp $'
+! !
--- a/UndefObj.st Thu Dec 07 20:39:17 1995 +0100
+++ b/UndefObj.st Thu Dec 07 20:42:47 1995 +0100
@@ -11,10 +11,10 @@
"
Object subclass:#UndefinedObject
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Objects'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Kernel-Objects'
!
!UndefinedObject class methodsFor:'documentation'!
@@ -33,10 +33,6 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.18 1995-11-11 15:28:05 cg Exp $'
-!
-
documentation
"
there is only one instance of this class: nil, representing an undefined
@@ -75,6 +71,43 @@
^ false
! !
+!UndefinedObject methodsFor:'copying'!
+
+copy
+ "return a shallow copy of myself
+ - since there is only one nil in the system return self"
+
+ ^ self
+!
+
+deepCopy
+ "return a deep copy of myself
+ - since there is only one nil in the system return self"
+
+ ^ self
+!
+
+deepCopyUsing:aDictionary
+ "return a deep copy of myself
+ - since there is only one nil in the system return self"
+
+ ^ self
+!
+
+shallowCopy
+ "return a shallow copy of myself
+ - since there is only one nil in the system return self"
+
+ ^ self
+!
+
+simpleDeepCopy
+ "return a deep copy of myself
+ - since there is only one nil in the system return self"
+
+ ^ self
+! !
+
!UndefinedObject methodsFor:'error catching'!
basicAt:index
@@ -91,104 +124,8 @@
^ self notIndexed
! !
-!UndefinedObject methodsFor:'testing'!
-
-isNil
- "return true if I am nil - since I am, return true"
-
- ^ true
-!
-
-notNil
- "return true if I am not nil - since I am nil, return false"
-
- ^ false
-!
-
-size
- "return the number of indexed instvars
- defined here since size in Object ommits the nil-check"
-
- ^ 0
-!
-
-basicSize
- "return the number of indexed instvars
- defined here since size in Object ommits the nil-check"
-
- ^ 0
-!
-
-hash
- "return an integer useful as a hash key"
-
- ^ 0
-!
-
-identityHash
- "return an integer useful as a hash key"
-
- ^ 0
-!
-
-isLiteral
- "return true, if the receiver can be used as a literal
- (i.e. can be used in constant arrays)"
-
- ^ true
-! !
-
-!UndefinedObject methodsFor:'copying'!
-
-copy
- "return a shallow copy of myself
- - since there is only one nil in the system return self"
-
- ^ self
-!
-
-shallowCopy
- "return a shallow copy of myself
- - since there is only one nil in the system return self"
-
- ^ self
-!
-
-deepCopy
- "return a deep copy of myself
- - since there is only one nil in the system return self"
-
- ^ self
-!
-
-simpleDeepCopy
- "return a deep copy of myself
- - since there is only one nil in the system return self"
-
- ^ self
-!
-
-deepCopyUsing:aDictionary
- "return a deep copy of myself
- - since there is only one nil in the system return self"
-
- ^ self
-! !
-
!UndefinedObject methodsFor:'printing & storing'!
-printString
- "return a string for printing myself"
-
- ^ 'nil'
-!
-
-storeString
- "return a string for storing myself"
-
- ^ 'nil'
-!
-
printOn:aStream
"append a printed representation of the receiver to the
argument, aStream"
@@ -196,11 +133,23 @@
aStream nextPutAll:'nil'
!
+printString
+ "return a string for printing myself"
+
+ ^ 'nil'
+!
+
storeOn:aStream
"append a printed representation of the receiver to the
argument, aStream, which allows reconstruction of it"
^ self printOn:aStream
+!
+
+storeString
+ "return a string for storing myself"
+
+ ^ 'nil'
! !
!UndefinedObject methodsFor:'subclass creation'!
@@ -264,18 +213,71 @@
- i.e. traps into doesNotUnderstand: for all of its messages."
^ self nilSubclass:(thisContext selector) args:(thisContext args)
-!
+!
+
+variableByteSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+ "create a new class which has nil as superclass
+ - i.e. traps into doesNotUnderstand: for all of its messages."
+
+ ^ self nilSubclass:(thisContext selector) args:(thisContext args)
+!
variableSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
"create a new class which has nil as superclass
- i.e. traps into doesNotUnderstand: for all of its messages."
^ self nilSubclass:(thisContext selector) args:(thisContext args)
-!
+! !
+
+!UndefinedObject methodsFor:'testing'!
+
+basicSize
+ "return the number of indexed instvars
+ defined here since size in Object ommits the nil-check"
+
+ ^ 0
+!
+
+hash
+ "return an integer useful as a hash key"
+
+ ^ 0
+!
+
+identityHash
+ "return an integer useful as a hash key"
+
+ ^ 0
+!
+
+isLiteral
+ "return true, if the receiver can be used as a literal
+ (i.e. can be used in constant arrays)"
-variableByteSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
- "create a new class which has nil as superclass
- - i.e. traps into doesNotUnderstand: for all of its messages."
+ ^ true
+!
+
+isNil
+ "return true if I am nil - since I am, return true"
+
+ ^ true
+!
+
+notNil
+ "return true if I am not nil - since I am nil, return false"
- ^ self nilSubclass:(thisContext selector) args:(thisContext args)
+ ^ false
+!
+
+size
+ "return the number of indexed instvars
+ defined here since size in Object ommits the nil-check"
+
+ ^ 0
! !
+
+!UndefinedObject class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.19 1995-12-07 19:40:59 cg Exp $'
+! !
--- a/UndefinedObject.st Thu Dec 07 20:39:17 1995 +0100
+++ b/UndefinedObject.st Thu Dec 07 20:42:47 1995 +0100
@@ -11,10 +11,10 @@
"
Object subclass:#UndefinedObject
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Objects'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Kernel-Objects'
!
!UndefinedObject class methodsFor:'documentation'!
@@ -33,10 +33,6 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.18 1995-11-11 15:28:05 cg Exp $'
-!
-
documentation
"
there is only one instance of this class: nil, representing an undefined
@@ -75,6 +71,43 @@
^ false
! !
+!UndefinedObject methodsFor:'copying'!
+
+copy
+ "return a shallow copy of myself
+ - since there is only one nil in the system return self"
+
+ ^ self
+!
+
+deepCopy
+ "return a deep copy of myself
+ - since there is only one nil in the system return self"
+
+ ^ self
+!
+
+deepCopyUsing:aDictionary
+ "return a deep copy of myself
+ - since there is only one nil in the system return self"
+
+ ^ self
+!
+
+shallowCopy
+ "return a shallow copy of myself
+ - since there is only one nil in the system return self"
+
+ ^ self
+!
+
+simpleDeepCopy
+ "return a deep copy of myself
+ - since there is only one nil in the system return self"
+
+ ^ self
+! !
+
!UndefinedObject methodsFor:'error catching'!
basicAt:index
@@ -91,104 +124,8 @@
^ self notIndexed
! !
-!UndefinedObject methodsFor:'testing'!
-
-isNil
- "return true if I am nil - since I am, return true"
-
- ^ true
-!
-
-notNil
- "return true if I am not nil - since I am nil, return false"
-
- ^ false
-!
-
-size
- "return the number of indexed instvars
- defined here since size in Object ommits the nil-check"
-
- ^ 0
-!
-
-basicSize
- "return the number of indexed instvars
- defined here since size in Object ommits the nil-check"
-
- ^ 0
-!
-
-hash
- "return an integer useful as a hash key"
-
- ^ 0
-!
-
-identityHash
- "return an integer useful as a hash key"
-
- ^ 0
-!
-
-isLiteral
- "return true, if the receiver can be used as a literal
- (i.e. can be used in constant arrays)"
-
- ^ true
-! !
-
-!UndefinedObject methodsFor:'copying'!
-
-copy
- "return a shallow copy of myself
- - since there is only one nil in the system return self"
-
- ^ self
-!
-
-shallowCopy
- "return a shallow copy of myself
- - since there is only one nil in the system return self"
-
- ^ self
-!
-
-deepCopy
- "return a deep copy of myself
- - since there is only one nil in the system return self"
-
- ^ self
-!
-
-simpleDeepCopy
- "return a deep copy of myself
- - since there is only one nil in the system return self"
-
- ^ self
-!
-
-deepCopyUsing:aDictionary
- "return a deep copy of myself
- - since there is only one nil in the system return self"
-
- ^ self
-! !
-
!UndefinedObject methodsFor:'printing & storing'!
-printString
- "return a string for printing myself"
-
- ^ 'nil'
-!
-
-storeString
- "return a string for storing myself"
-
- ^ 'nil'
-!
-
printOn:aStream
"append a printed representation of the receiver to the
argument, aStream"
@@ -196,11 +133,23 @@
aStream nextPutAll:'nil'
!
+printString
+ "return a string for printing myself"
+
+ ^ 'nil'
+!
+
storeOn:aStream
"append a printed representation of the receiver to the
argument, aStream, which allows reconstruction of it"
^ self printOn:aStream
+!
+
+storeString
+ "return a string for storing myself"
+
+ ^ 'nil'
! !
!UndefinedObject methodsFor:'subclass creation'!
@@ -264,18 +213,71 @@
- i.e. traps into doesNotUnderstand: for all of its messages."
^ self nilSubclass:(thisContext selector) args:(thisContext args)
-!
+!
+
+variableByteSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+ "create a new class which has nil as superclass
+ - i.e. traps into doesNotUnderstand: for all of its messages."
+
+ ^ self nilSubclass:(thisContext selector) args:(thisContext args)
+!
variableSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
"create a new class which has nil as superclass
- i.e. traps into doesNotUnderstand: for all of its messages."
^ self nilSubclass:(thisContext selector) args:(thisContext args)
-!
+! !
+
+!UndefinedObject methodsFor:'testing'!
+
+basicSize
+ "return the number of indexed instvars
+ defined here since size in Object ommits the nil-check"
+
+ ^ 0
+!
+
+hash
+ "return an integer useful as a hash key"
+
+ ^ 0
+!
+
+identityHash
+ "return an integer useful as a hash key"
+
+ ^ 0
+!
+
+isLiteral
+ "return true, if the receiver can be used as a literal
+ (i.e. can be used in constant arrays)"
-variableByteSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
- "create a new class which has nil as superclass
- - i.e. traps into doesNotUnderstand: for all of its messages."
+ ^ true
+!
+
+isNil
+ "return true if I am nil - since I am, return true"
+
+ ^ true
+!
+
+notNil
+ "return true if I am not nil - since I am nil, return false"
- ^ self nilSubclass:(thisContext selector) args:(thisContext args)
+ ^ false
+!
+
+size
+ "return the number of indexed instvars
+ defined here since size in Object ommits the nil-check"
+
+ ^ 0
! !
+
+!UndefinedObject class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.19 1995-12-07 19:40:59 cg Exp $'
+! !
--- a/UninterpretedBytes.st Thu Dec 07 20:39:17 1995 +0100
+++ b/UninterpretedBytes.st Thu Dec 07 20:42:47 1995 +0100
@@ -11,10 +11,10 @@
"
ByteArray subclass:#UninterpretedBytes
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Objects'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Kernel-Objects'
!
!UninterpretedBytes class methodsFor:'documentation'!
@@ -33,10 +33,6 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.13 1995-11-11 15:28:03 cg Exp $'
-!
-
documentation
"
this class has been added for ST-80 compatibility.
@@ -69,3 +65,9 @@
%}
"UninterpretedBytes isBigEndian"
! !
+
+!UninterpretedBytes class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.14 1995-12-07 19:41:53 cg Exp $'
+! !