1
2
3
4
5
6
| rs read|  
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'.
 [rs position < rs size]whileTrue:[
  read:=rs upTo: $ .
Transcript show: read printString.
rs cr    ]

1
2
3
4
5
6
7
8
9
| rs a |  
  rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'.
[rs position < rs size ] whileTrue:[
a := rs upTo: $ .
Transcript cr; show: a
].
 
rs reset.
Transcript show: (rs peek).

1
2
3
4
5
| rs read|  
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'.
 [rs position < rs size]whileTrue:[
  read:=rs upTo: $ .
Transcript show: read printString.rs cr]

1
2
3
4
5
| rs read|  
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'.
 [rs position < rs size]whileTrue:[
  read:=rs upTo: $ .
Transcript show: read printString]

1
2
3
4
5
6
7
8
9
| rs a |  
  rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'.
[rs position < rs size ] whileTrue:[
a := rs upTo: $ .
Transcript cr; show: a
].
 
rs reset.
Transcript show: (rs peek)

1
2
3
4
5
6
| rs a |  
  rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'.
[rs position < rs size ] whileTrue:[
a := rs upTo: $ .
Transcript cr; show: a
]

1
2
3
4
5
| rs read|  
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'.
 
  read:=rs upTo: $ .
Transcript show: read printString

1
2
3
4
5
6
| rs a |  
  rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'.
2 timesRepeat:[
a := rs upTo: $ .
Transcript tab; show: a
]

1
2
3
4
5
6
| rs a |  
  rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'.
2 timeRepeat:[
a := rs upTo: $ .
Transcript show: a printString
]

1
2
3
4
5
| rs a |  
  rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'.
a := rs upTo: $ .
Transcript show: a printString
 

1
2
3
4
5
| rs a |  
  rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'.
a := rs upTo: $`.
Transcript show: a printString
 

1
2
3
4
5
| rs a |  
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'.
a := rs upTo: $`.
Transcript show: a printString
 

1
2
3
4
5
| rs a |  
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'.
a := rs upTo: $ .
Transcript show: a printString
 

1
2
3
4
5
| rs a |  
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'.
a := rs upTo: $h.
Transcript show: a printString
 

1
2
3
4
5
| rs a |  
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'.
a := rs upTo: 'h'.
Transcript show: a printString
 

1
2
3
4
5
| rs a |  
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'.
a := rs upto: 'h'.
Transcript show: a printString
 

1
2
3
4
5
| rs g| 
  rs := ReadStream on: 'Mary$ had a little laptop, its screen was white as
snow'. 
g:= rs upTo: $.
Transcript show: g   

1
2
3
4
5
6
| rs g| 
  rs := ReadStream on: 'Mary$ had a little laptop, its screen was white as
snow'. 
g:= rs upTo: $.
Transcript show: a printString
  

1
2
3
4
5
| rs| 
  rs := ReadStream on: 'Mary$ had a little laptop, its screen was white as
snow'. 
 ^rs upTo: $
  

1
2
3
4
5
| rs| 
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as
snow'. 
 ^rs upTo: $
  

1
2
3
4
5
| rs readStream| 
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as
snow'. 
  readStream:=rs upTo: tab.
  Transcript show: readStream printString

1
2
3
4
5
| rs readStream| 
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as
snow'. 
  readStream:=rs upTo: space.
  Transcript show: readStream printString

1
2
3
4
5
| rs readStream| 
  rs := ReadStream on: 'Mary had a little laptop, its screen was white as
snow'. 
  readStream:=rs upTo: $.
  Transcript show: readStream printString

1
2
3
| rs | 
  rs := ReadStream on: periyasamy working in hcl'. 
  ^rs next

1
2
3
|rs|
rs:=readStream 'periyasamy is working in hcl'.
^rs next

1
8 print

1
2
3
4
5
6
7
8
9
|c number|
[
   number:=0.
   [ (c := stdin next) asciiValue ~= 10 ]
   whileTrue:
   [number := (number * 10) + (c asciiValue) - 48.].
   number ~= 42
]
whileTrue:
 ...

1
2
3
4
5
6
7
8
9
<?xml version="1.0" ?>  
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
                 
                                
<html xmlns="http://www.w3.org/1999/xhtml"><head>                               
<title>Geocache GC... F&uuml;r Informatiker -   2</title>                 
</head>                          
 ...

1
2
3
4
5
6
7
8
9
begin 644 webutils_pl
M8F5G:6X@-C0T(&EN9F\R+FAT;6P-"DTO(UU8.S900#U&-5(\5D5/.T-40BPR
M6%`H0F!?+T)@0")#4$$Q)%TC-25%,#$R(4@])E5,*"4A-3!$42D-"DTP4F!"
M*S)<3S53+2,K4ETD-20P0#8D030S-%!`+#)84"@E,5(X-EE3.C<Q23M664$[
M(EQ/,3180B)"8$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\U)2A//B9!
M5#LV4%$K5#$T,2)=6#HG,4T[(R1-/2<I03M'+4D-"DT])D5/.T8E3"M&,50Y
M(BA>(D!(0"@B8"DH8$1`(D)@0"A@1$`H8$0I(C!(7#HG,4T[(B%8.S913CQ3
M5$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\L,T19+C)=6#HG,4T[(BA>
M+R9!13@V,%XH(F!`(C!$*2@B8"D-"DTB0U%4.C<Q3#DS62<Y-EU#.#8M2#DR
 ...

1