52 lines
1.7 KiB
OpenEdge ABL
52 lines
1.7 KiB
OpenEdge ABL
//
|
||
// $Id$
|
||
//
|
||
|
||
//*******************************************************************
|
||
// rmarker.cls : Result marker token oszt ly.
|
||
// 1999, Csisz r Levente
|
||
|
||
// Result markereket t rol˘ token.
|
||
|
||
class RMARKER TOKEN
|
||
|
||
attrib mmNum // A result markerhez tartoz˘ match marker sorsz ma
|
||
// egy makr˘ definˇci˘ban.
|
||
attrib mmTkId // A result markerhez tartoz˘ match marker id-je
|
||
// egy makr˘ definˇci˘ban.
|
||
|
||
rmethod oinit(id,str,file,line,pos)
|
||
// Inicializ lja az objektumot. Az str lesz a result marker neve.
|
||
|
||
nmethod getName()
|
||
|
||
nmethod setMMIdxByMM(matchMarkers)
|
||
// A matchMarkers-ben keres egy ugyanolyan nev– marker-t, mint
|
||
// amilyen saj t maga, ‚s az mNum-ot be llˇtja a sorsz m ra.
|
||
// Egyenl“re case insensitive.
|
||
// Ret: .t., ha siker<65>lt, .f., ha nem.
|
||
|
||
nmethod changeByMMList(paramValues,result,iLevel,oneLevel)
|
||
// A result-ba beleteszi a this ltal meghat rozott helyettesˇt‚st
|
||
// a paramValues-b“l az iLevel szinten. Ha a paramValues-ban az
|
||
// iLevel szinten nincs helyettesˇtend“, akkor nem csin l semmit.
|
||
// Ret:
|
||
// 0: nem siker<65>lt a helyettesˇt‚s,
|
||
// 1: csak '<27>res' helyettesˇt‚s volt, (Nem volt illesztett match
|
||
// marker, de <20>reset helyettesˇtett pl. dumb stringify result
|
||
// marker, logify result marker.
|
||
// 2: volt helyettesˇt‚s.
|
||
//
|
||
// Probl‚ma: Ha a match marker egy list_match_marker, akkor a
|
||
// stringify ‚s a blockify markerek elemenk‚nt csin lj k
|
||
// a konverzi˘t. (Ez jelenleg nincs imlement lva.)
|
||
|
||
metaclass
|
||
|
||
rmethod onew(id,str,file,line,pos)
|
||
|
||
nmethod isResultMarker(aToken)
|
||
// Meg llpˇtja, hogy az aToken egy result marker-e.
|
||
// Ret: .t., ha igezn, .f., ha nem.
|
||
|