51 lines
1.1 KiB
Plaintext
51 lines
1.1 KiB
Plaintext
/*
|
||
* $Id$
|
||
*/
|
||
|
||
//*******************************************************************
|
||
// ralter.prg: a RALTER oszt ly implement ci¢ja.
|
||
// 1999, Csisz r Levente
|
||
|
||
//*******************************************************************
|
||
#include "ctoken.ch"
|
||
|
||
//*******************************************************************
|
||
#include "objgen.ch"
|
||
|
||
#define _RALTER_PRG_
|
||
#define _IMPLEMENT_ONEW_
|
||
|
||
#include "ralter.och"
|
||
|
||
//*******************************************************************
|
||
implement oinit(id,str,file,line,pos)
|
||
super:oinit(id,str,file,line,pos)
|
||
this:tokenList :={}
|
||
return this
|
||
|
||
//*******************************************************************
|
||
implement getStr()
|
||
local i
|
||
local str
|
||
|
||
if (!this:id==TKID_RALTER)
|
||
return super:getStr()
|
||
endif
|
||
str:="["
|
||
for i:=1 to len(this:tokenList)
|
||
str+=TOKEN.(this:tokenList[i]):getStr()
|
||
end for
|
||
|
||
str+="]"
|
||
if (this:isError())
|
||
str+=", Error: "+this:errorStr()+guessedEol()
|
||
endif
|
||
|
||
return str
|
||
|
||
//*******************************************************************
|
||
|
||
|
||
|
||
|