28 lines
769 B
OpenEdge ABL
28 lines
769 B
OpenEdge ABL
//
|
||
// $Id$
|
||
//
|
||
|
||
//*******************************************************************
|
||
// treader.cls: <20>ltal nos 'token' olvas¢ oszt ly.
|
||
// 1999, Csisz r Levente
|
||
|
||
// Meg kell adni neki egy reader-t
|
||
// amib“l olvas. A reader adhat tokent is ‚s karaktert is.
|
||
// Az olvasott karakterekb“l ‚s tokenekb“l k‚sz¡t egy token sorozatot
|
||
// ami reprezent lja az eredeti input folyamot.
|
||
|
||
class TREADER READER
|
||
|
||
attrib inputReader
|
||
nmethod readInput() // Olvas egy elemet az inputReader-r“l.
|
||
nmethod unReadInput(item) // Visszatesz egy elemet az inputReader
|
||
// inputj ra.
|
||
|
||
nmethod addInputReader(reader)
|
||
|
||
rmethod oinit(inputReader,name,errorStream)
|
||
|
||
metaclass
|
||
|
||
rmethod onew(inputReader,name,errorStream)
|