58 lines
1.3 KiB
Plaintext
58 lines
1.3 KiB
Plaintext
/*
|
||
* $Id$
|
||
*/
|
||
|
||
//*******************************************************************
|
||
// maltrset.prg: a MALTRSET oszt ly implement ci¢ja.
|
||
// 1999, Csisz r Levente
|
||
|
||
//*******************************************************************
|
||
#include "ctoken.ch"
|
||
|
||
//*******************************************************************
|
||
#include "objgen.ch"
|
||
|
||
#define _MALTRSET_PRG_
|
||
#define _IMPLEMENT_ONEW_
|
||
|
||
#include "maltrset.och"
|
||
|
||
//*******************************************************************
|
||
implement oinit(id,str,file,line,pos)
|
||
super:oinit(id,str,file,line,pos)
|
||
this:alterset :={}
|
||
return this
|
||
|
||
//*******************************************************************
|
||
implement addAlter(tokenList)
|
||
aadd(this:alterset,tokenList)
|
||
return nil
|
||
|
||
//*******************************************************************
|
||
implement getStr()
|
||
local str,i,j,alter
|
||
|
||
if (!this:id==TKID_MALTERSET)
|
||
return super:getStr()
|
||
endif
|
||
str:=""
|
||
for i:=1 to len(this:alterset)
|
||
str+="["
|
||
alter:=this:alterset[i]
|
||
for j:=1 to len(alter)
|
||
str+=TOKEN.(alter[j]):getStr()
|
||
end for
|
||
str+="]"
|
||
end for
|
||
|
||
if (this:isError())
|
||
str+=", Error: "+this:errorStr()+guessedEol()
|
||
endif
|
||
|
||
return str
|
||
//*******************************************************************
|
||
|
||
|
||
|
||
|