PPU172À"€¢äe’^×
à_
!f}I@	

ExprEval
U#
expreval.pasj»›U
codetools.incO´_O˜
System„у¾(`¼
¶­àobjpasŠ±±99àȻ®“Classes¸Û$£_v77£ Bsysutils·è>ëNš8!-“»KeywordFuncListså6µ‡]îbœh	FileProcs‰¼ö¥­zœ{q–N	LazDbgLogäñN[{î“à߃°Š

expreval.o



	


d

R
SYSTEMCLASSES.
























































































































































;





®



!
!'





!
!)



!
!,


!


!.







!
!1




!


!5






!
!9




;






!
!=




;



!
!B


!
!F




!
!Q





!
!T




;
!
!W



!
!
!Z


!
!
!]





¨
!
!`






f

!


!c




;





n

!
!i




;




t

!
!p




!


!v





!


!}





!


!





!


!…






!
!‰






!
!


!
!‘


!


!“

!

!
!–




!
!™



!
!œ


!
!Ÿ


!
!¡




¥

!§!
!£


!
!ª



















"#$%&'()*+


'5(9









0123456789















&
&
@ABCDEFGHIJKL






OH
É
Ë
Ì
Í
ç
è
é
ê
ë
ø
ù
ú




¬




®





°




²





;

´




;



;



·








·


 !PQRSTUV






q



q
q







q


















U



;
;
U

;

=)!V












v



v
v







v













;
;X


B*!Y













!«










!«



!«










¯







;¯

;


¯








È


ÈÈ






È









±







;±




































½

;
;
½

;


¼

;
;
¼

;·U



¾








Ã






;

;

Ó






Ú




;

Ý






à









î




;

õ




;

;

û

!


;WX

X

X

X

Yegjkx{|
®!


¨
ü
[
ø(,
*
AZ
[
ø
ù
ú
û,
*
# 
[
ø
ù
ú
û,
*,09 
[
ø
ù
ú
û,
*BFO	 
[
ø
ù
ú
û,
*X\e 
[
ø
ù
ú
û,
*nr{ 
[
ø
ù
ú
û,
*„ˆ‘ 
[
ø
ù
ú
û,
*šž§ 
[
ø
ù
ú
û,
*°´½
 
[
ø
ù
ú
û,
*	ÆÊÓ 
[
ø
ù
ú
û,
*
Üàé 
[
ø
ù
ú
û,
*òöÿ 
[
ø
ù
ú
û,
*


 
[
ø
ù
ú
û,
*

"
+
 
[
ø
ù
ú
û,
*4
8
A
 
[
ø
ù
ú
û,
*J
N
W
 
[
ø
ù
ú
û,
*`
d
m

 
[
ø
ù
ú
û,
*v
z
ƒ

 
[
ø
ù
ú
û,
*Œ

™

 
[
ø
ù
ú
û,
*¢
¦
¯
 
[
ø
ù
ú
û,
*¸
¼
Å

 
[
ø
ù
ú
û,
*Î
Ò
Û
 
[
ø
ù
ú
û,
*ä
è
ñ
 
[
ø
ù
ú
û,
*ú
þ

 
[
ø
ù
ú
û,
*
 
[
ø
ù
ú
û,
*&*3 
[
ø
ù
ú
û,
*<@I 
[
ø
ù
ú
û7
3R”Z€[øùú
'"
$self
N
cBlû7
3n”v€[øùú#"
s
N$ˆ
'"$self
O
ŠB“û
)•”
0
-¦¼TEvalOperand[[ø
,*®²»[øùúûùú&Value
RÄ$Len
SÍ%Data
TÖ%Free
UÜû
) å”í

0!ó¾TExpressionEvaluator0Ž
hû
–Ÿ¨±ºÃÌÕÞçðù[[ø"—+"ÿÿ
$
CEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_OLDREADTILENDBRACKET$$BOOLEAN[øùú
'"($self
f
B
û–+#%)ÿÿEK
f
BEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_COMPATOM$ANSISTRING$$BOOLEAN[øùú."*UpperCaseTag
g

2;

'"+$self
g
=BC
û’+$QUÿÿfl
ç
>EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_OLDREADNEXTATOM$$BOOLEAN[øùú
'"-$self
h
^Bd
û+%rvÿÿ’˜
¾
;EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_EVALATPOS$$ANSISTRING[øùú'"/$self
i
B…
*"0$result
¾
‡A
û¦+&ž¢ÿÿÉÏ
=
REXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_COMPAREVALUES$ANSISTRING$ANSISTRING$$LONGINT[øùú$"2v1
j"

«´

$"3v2
j&

¶¿
'"4$self
j
ÁBÇû+'ÕÙÿÿ
Ó
IEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_GETVARIABLES$ANSISTRING$$ANSISTRING[øùú&"6Name
k!

âë

'"7$self
k
íBó
*"8$result
Ó
õAþ
ûœ+(ÿÿ7=
S 
HEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_SETVARIABLES$ANSISTRING$ANSISTRING[øùú&":Name
l"

"

'";Value
l6

$-
'"<$self
l
/B5
û¤+)CGÿÿy
‰
PEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_INDEXOFNAME$PCHAR$LONGINT$BOOLEAN$$LONGINT[øùú)">VarName
m
PY

("?VarLen
m*
[d
+"@	InsertPos
m;
fo
'"A$self
m
qBw
û¢+*…‰ÿÿ°¶
¬
NEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_INDEXOFIDENTIFIER$PCHAR$BOOLEAN$$LONGINT[øùú,"C
Identifier
n 
’›

+"D	InsertPos
n3
¦
'"E$self
n
¨B®
û€++¼ÀÿÿÑ×
 
,EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_EXPAND[øùú
'"G$self
o

ÉBÏ
û+0Ýáÿÿý
q 
9EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_UNDEFINE$ANSISTRING[øùú&"RName
t

êó

'"S$self
t
õBû
ûŸ+1	
ÿÿ)/
ݘ

CEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_ISDEFINED$ANSISTRING$$BOOLEAN[øùú&"UName
u



'"V$self
u
!B'
û[øùú%!q
$result
Ý
k

t
.r
	ISDEFINED
Ý
v




+s
RESULT
Ý
‡
	

’
û×Pÿ,


Þ
P@?ž
@ÿ-

ß9P@?§
ÿ

ßP@?©
ÿ

ßP@?²
ÿ

ß	P@?»
ÿÄ
Ê
Ì

ÿ


ß6P@?Õ
ÿÿÿ

ßP@?zÿ€†ÿÿ

ßP@?Þ
ÿ	

ß5P@?ç
ÿ


ß5P@?ð
ù

ÿ

ß/P@?ÿ

ß/P@?ÿ&


ß/P@?ÿ

ß*P@?ÿ&,.ÿ

ß"P@?7ÿ

ß"P@?@ÿ

ßP@?IÿRXZ
ÿ

ß6P@?cÿE

ß6P@?eÿÿÿÿÿÿÿÿÿÿÿÿÿÿnt‚ÿ

ß8P@?ˆ‘
šÿ¤+259ÿÿU[
âÐ
HEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_ISIDENTIFIERDEFINED$PCHAR$$BOOLEAN[øùú,"X
Identifier
v"
BK

'"Y$self
v
MBS
û[øùú%!v
$result
â
£
¬8w
ISIDENTIFIERDEFINED
â
®
·
¹+x
RESULT
â
¿	È
Êû(Pÿ,


ã
P@?Ö@ÿ-

ä1P@?ßÿ

äP@?áÿ

äP@?êÿ

ä	P@?óÿü
ÿ


ä.P@?
ÿÿÿ

äP@?kÿqwÿÿ

äP@?ÿ	

ä-P@?ÿ


ä-P@?(1
ÿ

ä'P@?:ÿ

ä'P@?CÿLRÿ


ä.P@?TÿE

ä.P@?Vÿÿÿÿÿÿÿÿÿÿÿ_e‚ÿ

ä0P@?y‚
‹ÿž+3ae ÿÿ~„
‚
JEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_EQUALS$TEXPRESSIONEVALUATOR$$BOOLEAN[øùú7"[AnExpressionEvaluator
w
nt

'"\$self
w
vB|
û•+4ŠŽÿÿ§­
; 
AEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_ASSIGN$TEXPRESSIONEVALUATOR[øùú;"^SourceExpressionEvaluator
x
—

'"_$self
x

ŸB¥
ûŽ+5³·ÿÿÓÙ
• 
:EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_ASSIGNTO$TSTRINGLIST[øùú$"aSL
y
ÀÉ

'"b$self
y
ËBÑ
û+6ßãÿÿ"(
ž
IEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_EVAL$ANSISTRING$BOOLEAN$$ANSISTRING[øùú,"d
Expression
z

ìõ

4"eAllowExternalMacro
z-
÷
2f$defALLOWEXTERNALMACRO
z-€

'"g$self
z
B
*"h$result
ž
A 
û­+7.2ÿÿy
°
YEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_EVALPCHAR$PCHAR$INT64$TEVALOPERAND$BOOLEAN$$BOOLEAN[øùú,"j
Expression
{
;D

)"kExprLen
{+
FO
)"lOperand
|
QW
4"mAllowExternalMacro
|3
Yb(
2n$defALLOWEXTERNALMACRO
|3€
h
'"o$self
{
qBw
û¢+8…‰ÿÿÈÎ
Š
NEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_EVALBOOLEAN$PCHAR$INT64$BOOLEAN$$BOOLEAN[øùú,"q
Expression
}
’›

)"rExprLen
}-
¦
4"sAllowExternalMacro
}>
¨±
2t$defALLOWEXTERNALMACRO
}>€
·
'"u$self
}
ÀBÆ
û˜+9ÔØÿÿÿ
’
DEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_EVALOLD$ANSISTRING$$ANSISTRING[øùú,"w
Expression
~

áê

'"x$self
~

ìBò
*"y$result
’
ôAý
û“+@ÿÿ6<
¥
?EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_ITEMS$LONGINT$$ANSISTRING[øùú'"~Index
‚
!

'"$self
‚
#B)
*"€$result
¥
+A4
û“+ABFÿÿms
ª
?EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_NAMES$LONGINT$$ANSISTRING[øùú'"‚Index
ƒ
OX

'"ƒ$self
ƒ
ZB`
*"„$result
ª
bAk
û”+By}ÿÿ¤ª
¯
@EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_VALUES$LONGINT$$ANSISTRING[øùú'"†Index
„
†

'"‡$self
„
‘B—
*"ˆ$result
¯
™A¢
û–+C°´ÿÿÛá
´ 
BEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_APPEND$ANSISTRING$ANSISTRING[øùú*"ŠVariable
…

½Æ

'"‹Value
…&

ÈÑ
'"Œ$self
…
ÓBÙ
û—+Dçëÿÿ
¹ 
CEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_PREPEND$ANSISTRING$ANSISTRING[øùú*"ŽVariable
†

ôý

'"Value
†'

ÿ
'"$self
†

B
û+E"ÿÿ39
( 
+EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_CLEAR[øùú
'"’$self
‡
+B1
ûŽ+F?Cÿÿ_e
”
:EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_ASSTRING$$ANSISTRING[øùú'"”$self
ˆ
LBR
*"•$result
”
TA]
û–+GkoÿÿˆŽ
z"
BEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_CREATE$$TEXPRESSIONEVALUATOR[øùú&"—$vmt
‰
uD~
'"˜$self
‰
€B†
û+H”˜D´º
‚!
-EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_DESTROY[øùú&"š$vmt
Š
¡Dª
'"›$self
Š
¬B²
û˜+IÀÄÿÿÝã
ˆ 
DEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_REMOVEDOUBLES$TONGETSAMESTRING[øùú1"OnGetSameString
‹
ÍÓ

'"ž$self
‹
ÕBÛ
ûŠ+Jéíÿÿþ	
² 
6EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_CONSISTENCYCHECK[øùú
'" $self
Œ
öBü
ûŠ+K
		ÿÿ	%	
Ê 
6EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_WRITEDEBUGREPORT[øùú
'"¢$self

	B	
û©+L+	/	ÿÿd	j	
Ô
UEXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_CALCMEMSIZE$BOOLEAN$TEXPRESSIONEVALUATOR$$QWORD[øùú4"¤WithNamesAndValues
Ž
8	A	

2¥$defWITHNAMESANDVALUES
Ž€
G	

*"¦Original
Ž>
P	V	
§$defORIGINAL
Ž>€'"¨$self
Ž
\	Bb	
û•+Op	t	ÿÿ…	‹	
ë ”
9EXPREVAL$_$TEXPRESSIONEVALUATOR_$__$$_INCREASECHANGESTAMP[øùú
'"«$self

}	Bƒ	
û[øùúûPÿ,


ì
P@?–@ÿ-

ðP@?Ÿÿ.

íP@?¡ÿ


íP@?ªÿ

íP@?³ÿ

íP@?¼ÿÂÈÊÿ

í!P@?ÐÙ
ÿÿÿâÿ&

îP@?ëÿ	

îP@?ôÿ


îP@?ýÿ

îP@?ÿÿÿÿÿ#ÿ

ðP@?ÿ


ðP@?#ÿ

ðP@?,ÿ28:ÿ

ðP@?@I
€ÿÿÿÿÿÿùú6-FChangeStamp
]‘	*	FErrorMsg
^š	*	FErrorPos
_£	'FNames
`¬	 (FValues
`
²	('FCount
a¸	0*	FCapacity
bÁ	4( OldExpr
cÊ	8*!	OldCurPos
dÓ	@'"OldMax
dÜ	D-#OldAtomStart
då	H+$
OldAtomEnd
d&î	L2%OldPriorAtomStart
d2÷	P*&	FOnChange
e
X('OldReadTilEndBracket
f

)CompAtom
g

#,OldReadNextAtom
h

.	EvalAtPos
i

!1
CompareValues
j

 5GetVariables
k
$
 9SetVariables
l
*
=IndexOfName
m
0
%BIndexOfIdentifier
n
6
FExpand
o
<
IH	Variables
qB
€K
M
O
U
[
a
g
[øùú
&"IName
q

i
r

û@PCount
st
€}



ƒ
‰
‹
QUndefine
t

T	IsDefined
u
“
'WIsIdentifierDefined
v
™
ZEquals
w
Ÿ
]Assign
x
¥
`AssignTo
y
«
cEval
z
±
i	EvalPChar
{
·
pEvalBoolean
}
½
vEvalOld
~
Ã
Mz
ErrorPosition
É
€Ò
Ô
Ö

Ø
Þ

à
æ
H{ErrorMsg
ۏ
ۖ
ó
õ

÷
ý

ÿ
H|OnChange
€


!}Items
‚
#Names
ƒ
)…Values
„
/‰Append
…
5Prepend
†
;‘Clear
‡
A“AsString
ˆ
G–Create
‰
M™Destroy
Š
S!œ
RemoveDoubles
‹
Y$ŸConsistencyCheck
Œ
_$¡WriteDebugReport

e£CalcMemSize
Ž
kF©ChangeStamp
q€z|~
€†ˆ'ªIncreaseChangeStamp

Šû{
+Pÿÿ
­
(EXPREVAL_$$_FREEEVALOPERAND$TEVALOPERAND[øùú
#"­
V
“

û„
+Q#ÿÿ46
·R
)EXPREVAL_$$_CLEAREVALOPERAND$TEVALOPERAND[øùú
#"¯
V
” ,2

û[øùúû
Pÿ,


¸
P@?T@ÿ-

¹P@?]ÿ

¹P@?_ÿ

¹P@?hÿ

¹P@?qÿw}ÿ

¹P@?…Ž
ÿ-

ºP@?—ÿ

ºP@?™ÿ	

ºP@?¢ÿ


ºP@?«ÿ±·¹ÿ'

ºP@?¿ÿ-

»P@?Èÿ


»P@?Êÿ

»P@?Óÿ

»P@?Üÿâèêÿ

»
P@?ðù
ÿŽ
+R<@ÿÿQS
¾
/
3EXPREVAL_$$_EVALOPERANDISTRUE$TEVALOPERAND$$BOOLEAN[øùú
#"±
V
•"
IO

û[øùú$!È$result
¾


5ÉEVALOPERANDISTRUE
¾




*ÊRESULT
¾

	'
)û
Pÿ,


¿
P@?5@ÿ-

À-P@?>ÿ

ÀP@?@ÿ

ÀP@?Iÿ

À	P@?Rÿ[ac
ÿ%

ÀP@?lÿ

ÀP@?uÿ

ÀP@?~ÿ	

ÀP@?‡ÿ


ÀP@?ÿ–œžÿ

ÀP@?¤­

¶ÿ

ÀP@?¿ÿ


À P@?Èÿ

À&P@?Ñÿ

ÀP@?Úÿàæèÿ

À(P@?î÷0	ÿ…
+SY]ÿÿnp
Ã

2EXPREVAL_$$_EVALOPERANDTOINT64$TEVALOPERAND$$INT64[øùú
#"³
V
–#
fl

ûŽ
+Tvzÿÿ–˜
ž


:EXPREVAL_$$_COMPAREEVALOPERAND$TEVALOPERAND$PCHAR$$LONGINT[øùú)"µOperand
—#
ƒ‰

'"¶Value
—:
‹”
û
+Už¢ÿÿ×Ù


9EXPREVAL_$$_COMPARENAMES$PCHAR$INT64$PCHAR$INT64$$LONGINT[øùú'"¸Name1
˜
«´

*"¹Name1Len
˜%
¶¿
'"ºName2
™
ÁÊ
*"»Name2Len
™%
ÌÕ(
û“
+Vßãÿÿ


 
?
7EXPREVAL_$$_COMPARENAMES$ANSISTRING$ANSISTRING$$LONGINT[øùú'"¼Name1
š

ìõ

'"½Name2
š$

÷

û[øùú%!

$result
 


1
COMPARENAMES
 


&
(+
RESULT
 

.	7
9û’
Pÿ,


!
P@?E@ÿ-

"NP@?Nÿ

"P@?Pÿ

"P@?Yÿ

"	P@?bÿkqs
ÿÿÿÿÿ

"P@?|ÿ

"MP@?…ÿ&

"MP@?Žÿ	

"GP@?—ÿ ¦ÿ


"?P@?¨ÿ

"?P@?±ÿ

"9P@?ºÿÃÉË
ÿ


"2P@?Ôÿ&

"2P@?Ýÿ

",P@?æÿïõÿ

"$P@?÷ÿ

"$P@?ÿ

"P@?	ÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#)ÿ
ù
ú
ExprEval
#

system
#

objpas
#
Classes
'
SysUtils
'
KeyWordFuncLists
'
	FileProcs
'(
		LazDbgLog
'3.

ExternalMacroStart
*


#6
CompilerSwitchesNames
/


&
TOnValuesChanged
M
&
TOnGetSameString
N#
'
ArrayOfAnsiString
O)
"
TEvalOperand
Q/
"
PEvalOperand
W5
*
TExpressionEvaluator
[;
#
¬FreeEvalOperand
“
A
$
®ClearEvalOperand
”
G
%
°EvalOperandIsTrue
•

M
&
²EvalOperandToInt64
–

S
&
´CompareEvalOperand
—

Y
$
·CompareNames
˜
_
e

û



ý
[
ø„
+W/3	EXPREVAL_$$_initÿÿ
<>
ž
INIT$_$EXPREVALEXPREVAL_$$_init[øùúû,
*XDHQÿ
[
ø
ù
ú
ûk
+YZ^ÿÿgi
¢
EXPREVAL_$$_INTERNALINIT[øùúû
)_os
“
+ey}ÿÿ¤¦


?EXPREVAL_$$_SETOPERANDVALUESTRINGCONST$TEVALOPERAND$PCHAR$PCHAR[øùú$"Ô
V

*
†Œ

+"ÕStartPos


Ž—
)"ÖEndPos



™¢
û…
+g¬°ÿÿÌÎ
F

1EXPREVAL_$$_SETOPERANDVALUECHAR$TEVALOPERAND$CHAR[øùú$"Û
V
F
#
¹¿

$"Ü
c
F
:

ÁÊ
û‡
+jÔØÿÿôö
N

3EXPREVAL_$$_SETOPERANDVALUECONST$TEVALOPERAND$PCHAR[øùú$"Þ
V
N
$
áç

$"ß
p
N
;

éò
û‡
+küÿÿ
U

3EXPREVAL_$$_SETOPERANDVALUEINT64$TEVALOPERAND$INT64[øùú$"á
V
U
$
	

$"â
i
U
5

û
)w$(
“
+x15ÿÿNP
Ð


?EXPREVAL_$$_OPERANDSAREEQUAL$TEVALOPERAND$TEVALOPERAND$$BOOLEAN[øùú&"ïOp1
Ð
!
>D

&"ðOp2
Ð
&
FL
û
+{VZÿÿnp
Þ


+EXPREVAL_$$_GETIDENTIFIERLEN$PCHAR$$LONGINT[øùú
-"ö
Identifier
Þ

cl

û‡
+|vzÿÿ™›
ë


3EXPREVAL_$$_COMPAREIDENTIFIERS$PCHAR$PCHAR$$LONGINT[øùú."üIdentifier1
ë

ƒŒ

."ýIdentifier2
ë
*
Ž—
û
)6
¡¥

)7
«¯

ù
ú
%
¾$EXPREVAL_$$_init
ž

¸+
¿
IsWordChar
Ÿ
¾ÄÆ1
ÀIsIdentifierChar
Ÿ
ÈÎÐ2
ÁIsNumberBeginChar
Ÿ!
ÒØÚ-
ÂIsNumberChar
Ÿ4
Üâä 
ÃInternalInit
¢
æ/
ÓSetOperandValueStringConst


ì(
ÚSetOperandValueChar
F

ò)
ÝSetOperandValueConst
N

ø)
àSetOperandValueInt64
U

þ%
îOperandsAreEqual
Ð


%
õGetIdentifierLen
Þ



'
ûCompareIdentifiers
ë



û4
Sf
% 
ÿ