Scanner.st
changeset 1242 52bc5f333553
parent 1241 79a188839bf2
child 1247 ce0d19140248
equal deleted inserted replaced
1241:79a188839bf2 1242:52bc5f333553
   629 
   629 
   630     "Created: 20.4.1996 / 20:03:56 / cg"
   630     "Created: 20.4.1996 / 20:03:56 / cg"
   631     "Modified: 23.5.1997 / 12:14:49 / cg"
   631     "Modified: 23.5.1997 / 12:14:49 / cg"
   632 !
   632 !
   633 
   633 
       
   634 sourcePosition
       
   635     ^ source position
       
   636 
       
   637 !
       
   638 
   634 sourceStream
   639 sourceStream
   635     ^ source
   640     ^ source
   636 
   641 
   637     "Created: 20.4.1996 / 19:59:58 / cg"
   642     "Created: 20.4.1996 / 19:59:58 / cg"
   638 !
   643 !
  1195 initializeFor:aStringOrStream
  1200 initializeFor:aStringOrStream
  1196     "initialize the new scanner & prepare for reading from aStringOrStream"
  1201     "initialize the new scanner & prepare for reading from aStringOrStream"
  1197 
  1202 
  1198     self initialize.
  1203     self initialize.
  1199     self source:aStringOrStream.
  1204     self source:aStringOrStream.
       
  1205 !
       
  1206 
       
  1207 setSource:newSource
       
  1208     source := newSource
       
  1209 
  1200 !
  1210 !
  1201 
  1211 
  1202 source:aStringOrStream
  1212 source:aStringOrStream
  1203     "prepare for reading from aStringOrStream"
  1213     "prepare for reading from aStringOrStream"
  1204 
  1214 
  2243 ! !
  2253 ! !
  2244 
  2254 
  2245 !Scanner class methodsFor:'documentation'!
  2255 !Scanner class methodsFor:'documentation'!
  2246 
  2256 
  2247 version
  2257 version
  2248     ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.137 2002-01-08 09:36:50 cg Exp $'
  2258     ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.138 2002-01-08 09:39:46 cg Exp $'
  2249 ! !
  2259 ! !
  2250 Scanner initialize!
  2260 Scanner initialize!