--- a/HTMLWriteStream.st Sat May 18 09:49:35 1996 +0200
+++ b/HTMLWriteStream.st Sat May 18 17:33:04 1996 +0200
@@ -69,7 +69,7 @@
normal;
nextPutAll:' text.';
cr.
- Transcript showCr:(s contents)
+ Transcript showCR:(s contents)
[exEnd]
"
! !
@@ -161,5 +161,5 @@
!HTMLWriteStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Attic/HTMLWriteStream.st,v 1.2 1996-05-14 16:54:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Attic/HTMLWriteStream.st,v 1.3 1996-05-18 15:32:31 cg Exp $'
! !
--- a/Make.proto Sat May 18 09:49:35 1996 +0200
+++ b/Make.proto Sat May 18 17:33:04 1996 +0200
@@ -1,4 +1,4 @@
-# $Header: /cvs/stx/stx/libbasic2/Make.proto,v 1.61 1996-05-14 22:35:20 cg Exp $
+# $Header: /cvs/stx/stx/libbasic2/Make.proto,v 1.62 1996-05-18 15:32:34 cg Exp $
#
# -------------- no need to change anything below ----------
@@ -19,7 +19,9 @@
NOTINCLUDEDOBJS= \
BIG5String.$(O) \
- GBString.$(O)
+ GBString.$(O) \
+ HPIIPrStr.$(O) \
+ FX1PrStr.$(O)
UNCRITICALOBJS= \
HndlrColl.$(O) \
@@ -28,9 +30,7 @@
SeqCollSorter.$(O) \
JISString.$(O) \
PrintStr.$(O) \
- PSPrStr.$(O) \
- HPIIPrStr.$(O) \
- FX1PrStr.$(O)
+ PSPrStr.$(O)
OBJS= \
MappedColl.$(O) \
--- a/Queue.st Sat May 18 09:49:35 1996 +0200
+++ b/Queue.st Sat May 18 17:33:04 1996 +0200
@@ -87,7 +87,7 @@
Transcript show:(q next); space.
Transcript show:(q next); space.
Transcript show:(q next); space.
- Transcript showCr:(q next).
+ Transcript showCR:(q next).
"
! !
@@ -203,5 +203,5 @@
!Queue class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Queue.st,v 1.16 1996-04-25 16:15:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Queue.st,v 1.17 1996-05-18 15:32:39 cg Exp $'
! !
--- a/Random.st Sat May 18 09:49:35 1996 +0200
+++ b/Random.st Sat May 18 17:33:04 1996 +0200
@@ -90,7 +90,7 @@
rnd := Random new.
10 timesRepeat:[
- Transcript showCr:(rnd next)
+ Transcript showCR:(rnd next)
]
[exEnd]
@@ -100,7 +100,7 @@
rnd := Random new.
10 timesRepeat:[
- Transcript showCr:(rnd nextIntegerBetween:1 and:6)
+ Transcript showCR:(rnd nextIntegerBetween:1 and:6)
]
[exEnd]
"
@@ -124,10 +124,10 @@
"|r|
r := Random new.
- Transcript showCr:r next.
- Transcript showCr:r next.
- Transcript showCr:r next.
- Transcript showCr:r next.
+ Transcript showCR:r next.
+ Transcript showCR:r next.
+ Transcript showCR:r next.
+ Transcript showCR:r next.
"
!
@@ -145,10 +145,10 @@
"|r|
r := Random new.
- Transcript showCr:(r nextBetween:1 and:10).
- Transcript showCr:(r nextBetween:1 and:10).
- Transcript showCr:(r nextBetween:1 and:10).
- Transcript showCr:(r nextBetween:1 and:10).
+ Transcript showCR:(r nextBetween:1 and:10).
+ Transcript showCR:(r nextBetween:1 and:10).
+ Transcript showCR:(r nextBetween:1 and:10).
+ Transcript showCR:(r nextBetween:1 and:10).
"
!
@@ -161,10 +161,10 @@
"|r|
r := Random new.
- Transcript showCr:r nextBoolean.
- Transcript showCr:r nextBoolean.
- Transcript showCr:r nextBoolean.
- Transcript showCr:r nextBoolean.
+ Transcript showCR:r nextBoolean.
+ Transcript showCR:r nextBoolean.
+ Transcript showCR:r nextBoolean.
+ Transcript showCR:r nextBoolean.
"
!
@@ -179,10 +179,10 @@
"|r|
r := Random new.
- Transcript showCr:r nextInteger.
- Transcript showCr:r nextInteger.
- Transcript showCr:r nextInteger.
- Transcript showCr:r nextInteger.
+ Transcript showCR:r nextInteger.
+ Transcript showCR:r nextInteger.
+ Transcript showCR:r nextInteger.
+ Transcript showCR:r nextInteger.
"
!
@@ -197,10 +197,10 @@
"|r|
r := Random new.
- Transcript showCr:(r nextIntegerBetween:1 and:10).
- Transcript showCr:(r nextIntegerBetween:1 and:10).
- Transcript showCr:(r nextIntegerBetween:1 and:10).
- Transcript showCr:(r nextIntegerBetween:1 and:10).
+ Transcript showCR:(r nextIntegerBetween:1 and:10).
+ Transcript showCR:(r nextIntegerBetween:1 and:10).
+ Transcript showCR:(r nextIntegerBetween:1 and:10).
+ Transcript showCR:(r nextIntegerBetween:1 and:10).
"
!
@@ -271,5 +271,5 @@
!Random class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.16 1996-04-30 13:00:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.17 1996-05-18 15:32:41 cg Exp $'
! !
--- a/RecLock.st Sat May 18 09:49:35 1996 +0200
+++ b/RecLock.st Sat May 18 17:33:04 1996 +0200
@@ -60,9 +60,9 @@
lock := RecursionLock new.
lock critical:[
- Transcript showCr:'in lock ...'.
+ Transcript showCR:'in lock ...'.
lock critical:[
- Transcript showCr:'again ...'
+ Transcript showCR:'again ...'
]
]
[exEnd]
@@ -73,11 +73,11 @@
lock := Semaphore forMutualExclusion.
lock critical:[
- Transcript showCr:'in lock ...'.
+ Transcript showCR:'in lock ...'.
lock critical:[
'*** never reached - deadlock because sema is already locked ***'.
' (press CTRL-c and abort in the debugger)'.
- Transcript showCr:'again ...'
+ Transcript showCR:'again ...'
]
]
[exEnd]
@@ -158,5 +158,5 @@
!RecursionLock class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Attic/RecLock.st,v 1.13 1996-04-27 18:02:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Attic/RecLock.st,v 1.14 1996-05-18 15:32:43 cg Exp $'
! !
--- a/RunArray.st Sat May 18 09:49:35 1996 +0200
+++ b/RunArray.st Sat May 18 17:33:04 1996 +0200
@@ -125,7 +125,7 @@
|coll|
coll := OrderedCollection new.
- Transcript showCr:(
+ Transcript showCR:(
Time millisecondsToRun:[
100000 timesRepeat:[coll add:'hello'].
100000 timesRepeat:[coll add:'world'].
@@ -141,7 +141,7 @@
|coll|
coll := RunArray new.
- Transcript showCr:(
+ Transcript showCR:(
Time millisecondsToRun:[
100000 timesRepeat:[coll add:'hello'].
100000 timesRepeat:[coll add:'world'].
@@ -157,7 +157,7 @@
|coll|
coll := RunArray new.
- Transcript showCr:(
+ Transcript showCR:(
Time millisecondsToRun:[
coll add:'hello' withOccurrences:100000.
coll add:'world' withOccurrences:100000.
@@ -174,7 +174,7 @@
|coll|
coll := RunArray new.
- Transcript showCr:(
+ Transcript showCR:(
Time millisecondsToRun:[
1 to:1000 do:[:i | coll add:i].
]
@@ -185,7 +185,7 @@
|coll|
coll := OrderedCollection new.
- Transcript showCr:(
+ Transcript showCR:(
Time millisecondsToRun:[
1 to:1000 do:[:i | coll add:i].
]
@@ -475,33 +475,33 @@
c := RunArray new.
c add:1; add:1; add:1; add:2; add:2; add:3; add:3; add:4; add:5; yourself.
- Transcript showCr:c.
+ Transcript showCR:c.
c at:1 put:$a.
- Transcript showCr:c.
+ Transcript showCR:c.
c.
c at:3 put:$a.
- Transcript showCr:c.
+ Transcript showCR:c.
c.
c at:4 put:$a.
- Transcript showCr:c.
+ Transcript showCR:c.
c.
c at:5 put:$a.
- Transcript showCr:c.
+ Transcript showCR:c.
c.
c at:2 put:$0.
- Transcript showCr:c.
+ Transcript showCR:c.
c.
c at:2 put:$a.
- Transcript showCr:c.
+ Transcript showCR:c.
c.
- Transcript showCr:c.
+ Transcript showCR:c.
"
"Modified: 12.5.1996 / 15:55:32 / cg"
@@ -660,8 +660,8 @@
|r|
r := RunArray withAll:#(1 2 3 3 3 3 4 4 4 5 6 7 7 7 7 7 7 7).
- Transcript showCr:r.
- Transcript showCr:r asOrderedCollection
+ Transcript showCR:r.
+ Transcript showCR:r asOrderedCollection
"
"Modified: 11.5.1996 / 13:34:59 / cg"
@@ -875,5 +875,5 @@
!RunArray class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.9 1996-05-14 13:55:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.10 1996-05-18 15:32:47 cg Exp $'
! !
--- a/SeqCollSorter.st Sat May 18 09:49:35 1996 +0200
+++ b/SeqCollSorter.st Sat May 18 17:33:04 1996 +0200
@@ -27,7 +27,7 @@
a := #(10 5 2 17 5 99 -5).
sorter := SequenceableCollectionSorter on:a.
sorter sort.
- Transcript showCr:a printString
+ Transcript showCR:a printString
"
! !
@@ -251,6 +251,6 @@
!SequenceableCollectionSorter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Attic/SeqCollSorter.st,v 1.3 1996-02-06 19:07:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Attic/SeqCollSorter.st,v 1.4 1996-05-18 15:32:50 cg Exp $'
! !
SequenceableCollectionSorter initialize!
--- a/SequenceableCollectionSorter.st Sat May 18 09:49:35 1996 +0200
+++ b/SequenceableCollectionSorter.st Sat May 18 17:33:04 1996 +0200
@@ -27,7 +27,7 @@
a := #(10 5 2 17 5 99 -5).
sorter := SequenceableCollectionSorter on:a.
sorter sort.
- Transcript showCr:a printString
+ Transcript showCR:a printString
"
! !
@@ -251,6 +251,6 @@
!SequenceableCollectionSorter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/SequenceableCollectionSorter.st,v 1.3 1996-02-06 19:07:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/SequenceableCollectionSorter.st,v 1.4 1996-05-18 15:32:50 cg Exp $'
! !
SequenceableCollectionSorter initialize!
--- a/Socket.st Sat May 18 09:49:35 1996 +0200
+++ b/Socket.st Sat May 18 17:33:04 1996 +0200
@@ -177,7 +177,7 @@
host := OperatingSystem getEnvironment:'NNTPSERVER'.
sock := Socket newTCPclientToHost:host port:'nntp'.
- Transcript showCr:sock nextLine.
+ Transcript showCR:sock nextLine.
sock buffered:false.
sock nextPutAll:'HELP'; cr.
@@ -186,7 +186,7 @@
line := sock nextLine.
line = '.' ifTrue:[exit value:nil].
- Transcript showCr:line.
+ Transcript showCR:line.
] loopWithExit.
sock close
[exEnd]
@@ -202,13 +202,13 @@
sock useCRLF:true.
sock buffered:false.
sock isNil ifTrue:[
- Transcript showCr:'cannot connect to local finger daemon'
+ Transcript showCR:'cannot connect to local finger daemon'
] ifFalse:[
sock nextPutAll:(OperatingSystem getLoginName).
sock cr.
entry := sock nextLine.
- Transcript showCr:entry.
+ Transcript showCR:entry.
sock close
]
@@ -222,13 +222,13 @@
sock := Socket newTCPclientToHost:host port:'ftp'.
sock buffered:false.
- Transcript showCr:sock nextLine.
+ Transcript showCR:sock nextLine.
sock nextPutAll:('USER ' , 'anonymous'); cr.
- Transcript showCr:sock nextLine.
+ Transcript showCR:sock nextLine.
sock nextPutAll:('PASS ' , 'fooBar'); cr.
- Transcript showCr:sock nextLine.
+ Transcript showCR:sock nextLine.
sock nextPutAll:'LIST'; cr.
- Transcript showCr:sock nextLine.
+ Transcript showCR:sock nextLine.
sock close.
'dont know enough of the ftp protocol to continue here ...'
@@ -243,7 +243,7 @@
port := Socket portOfService:'snmp'.
sock connectTo:(OperatingSystem getHostName) port:port.
sock buffered:false.
- Transcript showCr:'got it'.
+ Transcript showCR:'got it'.
sock close.
[exEnd]
@@ -253,26 +253,26 @@
connectSock := Socket newTCPserverAtPort:9998.
connectSock isNil ifTrue:[
- Transcript showCr:'socket setup failed.'.
+ Transcript showCR:'socket setup failed.'.
] ifFalse:[
- Transcript showCr:'listen ..'.
+ Transcript showCR:'listen ..'.
(connectSock listenFor:5) ifFalse:[
- Transcript showCr:'listen failed.'.
+ Transcript showCR:'listen failed.'.
] ifTrue:[
- Transcript showCr:'wait'.
+ Transcript showCR:'wait'.
connectSock readWait.
- Transcript showCr:'accept'.
+ Transcript showCR:'accept'.
sock := connectSock accept.
sock isNil ifTrue:[
- Transcript showCr:'accept failed.'.
+ Transcript showCR:'accept failed.'.
] ifFalse:[
sock buffered:false.
- Transcript showCr:'server: got it'.
+ Transcript showCR:'server: got it'.
'can now do transfer via sock'.
- Transcript showCr:'read'.
- Transcript showCr:('got: ' , sock nextLine).
+ Transcript showCR:'read'.
+ Transcript showCR:('got: ' , sock nextLine).
- Transcript showCr:'close'.
+ Transcript showCR:'close'.
sock close
].
connectSock close.
@@ -285,12 +285,12 @@
sock := Socket newTCPclientToHost:(OperatingSystem getHostName) port:9998.
sock isNil ifTrue:[
- Transcript showCr:'nope'
+ Transcript showCR:'nope'
] ifFalse:[
sock buffered:false.
- Transcript showCr:'client: got it'.
+ Transcript showCR:'client: got it'.
'can now do transfer via sock'.
- Transcript showCr:'sending <hello>'.
+ Transcript showCR:'sending <hello>'.
sock nextPutLine:'hello'.
sock close
]
@@ -302,27 +302,27 @@
'/tmp/ud_socket' asFilename remove.
connectSock := Socket newUNIXserverAt:'/tmp/ud_socket'.
connectSock isNil ifTrue:[
- Transcript showCr:'socket setup failed.'.
+ Transcript showCR:'socket setup failed.'.
] ifFalse:[
- Transcript showCr:'listen ..'.
+ Transcript showCR:'listen ..'.
(connectSock listenFor:5) ifFalse:[
- Transcript showCr:'listen failed.'.
+ Transcript showCR:'listen failed.'.
] ifTrue:[
- Transcript showCr:'wait'.
+ Transcript showCR:'wait'.
connectSock buffered:false.
connectSock readWait.
- Transcript showCr:'accept'.
+ Transcript showCR:'accept'.
sock := connectSock accept.
sock isNil ifTrue:[
- Transcript showCr:'accept failed.'.
+ Transcript showCR:'accept failed.'.
] ifFalse:[
sock buffered:false.
- Transcript showCr:'server: got it'.
+ Transcript showCR:'server: got it'.
'can now do transfer via sock'.
- Transcript showCr:'read'.
- Transcript showCr:('got: ' , sock nextLine).
+ Transcript showCR:'read'.
+ Transcript showCR:('got: ' , sock nextLine).
- Transcript showCr:'close'.
+ Transcript showCR:'close'.
sock close
].
connectSock close.
@@ -340,12 +340,12 @@
sock := Socket newUNIXclientTo:'/tmp/ud_socket'.
sock isNil ifTrue:[
- Transcript showCr:'nope'
+ Transcript showCR:'nope'
] ifFalse:[
sock buffered:false.
- Transcript showCr:'client: got it'.
+ Transcript showCR:'client: got it'.
'can now do transfer via sock'.
- Transcript showCr:'sending <hello>'.
+ Transcript showCR:'sending <hello>'.
sock nextPutLine:'hello'.
sock close
]
@@ -2469,5 +2469,5 @@
!Socket class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.59 1996-04-27 18:04:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.60 1996-05-18 15:33:04 cg Exp $'
! !