38 lines
956 B
OpenEdge ABL
38 lines
956 B
OpenEdge ABL
//
|
||
// $Id$
|
||
//
|
||
|
||
//*******************************************************************
|
||
// creader.cls: Źltal nos 'streamb“l karaktert' olvas˘ oszt ly.
|
||
// 1999, Csisz r Levente
|
||
|
||
// Ebb“l ”r”k”l a fil‚ ‚s a string olvas˘ oszt ly.
|
||
// A val˘di lesz rmazottaknak a readItem()-et kell implement lniuk.
|
||
|
||
class CREADER READER
|
||
|
||
attrib line
|
||
attrib pos // 0, ha a pozˇci˘ ismeretlen.
|
||
|
||
rmethod read()
|
||
// A super:read()-al olvassa a stream-et.
|
||
// Az egym s ut n k”vetkez“ CR ‚s LF karaktereket egy CR_LF (kett“
|
||
// hosszŁ) karakterr‚ alakˇtja.
|
||
// Sz molja a sorokat ‚s nyilv ntartja a pozˇci˘t.
|
||
|
||
rmethod unread(item)
|
||
// Visszateszi az item-et az inputra.
|
||
// Vissza sz molja a sorokat. —jsor eset‚n a pozˇci˘t null zza.
|
||
|
||
nmethod getFile()
|
||
nmethod getLine()
|
||
nmethod getPos()
|
||
|
||
rmethod oinit(name,errorStream)
|
||
// Inicializ lja az objektumot.
|
||
|
||
metaclass
|
||
|
||
rmethod onew(name,errorStream)
|
||
|