34 lines
819 B
OpenEdge ABL
34 lines
819 B
OpenEdge ABL
//
|
||
// $Id$
|
||
//
|
||
|
||
//*******************************************************************
|
||
// incl.cls: Include direktorik nyilv ntart sa, £j readerek nyit sa
|
||
// az include fil‚kre.
|
||
// 1999, Csisz r Levente
|
||
|
||
class INCL OBJECT
|
||
|
||
attrib lreader // Ebben vannak a nyitott include fil‚k.
|
||
|
||
attrib includeList // A direktorik, amiben keresni kell
|
||
// az input fil‚ket.
|
||
|
||
attrib maxInclDeep // Legfeljebb ennyi lehet egym sba
|
||
// skatuly zva.
|
||
// 0: Nincs limit.
|
||
|
||
nmethod openIncludeFile(filename)
|
||
|
||
rmethod oinit(lreader,includeList,maxInclDeep)
|
||
|
||
metaclass
|
||
|
||
rmethod onew(lreader,includeList,maxInclDeep)
|
||
|
||
|
||
|
||
|
||
|
||
|