PPU172Àƒ"R7®ï}Ì5ðsj;\

ExtractProcTool
U
extractproctool.pasËWCVè

System„у¾(`¼
¶­àobjpasŠ±±99àȻ®“Classes¸Û$£_v77£ Bsysutils·è>ëNš8!-“»mathž]YljÍP(§6u	FileProcs‰¼ö¥­zœ{q–NCodeToolsStrConstsž¾	ôo†߃°ŠCodeTree¾h®µn~U¤±ªýåCodeAtom}^éŽÉ|אÈÁ	CodeCache|»OKºúò_埵ñCustomCodeTool’£͟ÂÜ\Õ!¢PascalReaderToolåól¼•‚õøpiPascalParserTool¨Iºߺ–”ò­qCodeCompletionToolªÿzkü1ʓÔS6KeywordFuncListså6µ‡]îbœhBasicCodeTools ¦.EfzõŸ[mÀLinkScanner¤:i9îCÃ34AVL_Treeú`ûmà
íߌß
SourceChangerŒï5Ll£é =óFindDeclarationToolHŽ±Â|„æê’À
extractproctool.o



	


d

RŽ
SYSTEMCODETREEFINDDECLARATIONTOOLCODECOMPLETIONTOOL	CODECACHEAVL_TREE
SOURCECHANGERCLASSES	FILEPROCSPASCALPARSERTOOLCUSTOMCODETOOL{



®






&

3













È
É
Ë
Ì
Í
ç
è
é
ê
ë
ø
ù
ú(
9






x

x








3







:




x

x








3

D




x

x










K




x

x












Z
R




x

x






x




:


f

\




x

:

h




x

x




-

:

l



®

s	



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


8


	


	q

n

o

r

s

t

w

x

‹



 
	i
	j
	l
	m
	n
=














































w








x







{








|





3



ƒ







3













-


x









q



rîï


7





-
	
ü
[
ø(
1”

[
ø
ù
ú#

epvtParameter
="
epvtLocalVar
>

û
0
¾TExtractedProcVariable
(
š£¬µ¾ÇÐÙâëôý
[[ø
š+%)ÿÿ:@
»!
GEXTRACTPROCTOOL$_$TEXTRACTEDPROCVARIABLE_$__$$_USEDINSELECTION$$BOOLEAN[øùú
'"'$self
M
2B8
ûùú
%Node
DF%Tool
EO(VarType
FX0 ReadInSelection
G^1!WriteInSelection
Hg3"UsedInNonSelection
Ip3#ReadAfterSelection
Jy8$ReadAfterSelectionValid
K‚ 3%RemovedFromOldProc
L‹!#&UsedInSelection
M
”û(
1
”
[
ø
ù
ú"
)eptProcedure
S
/
+eptProcedureWithInterface
T

%
-eptSubProcedure
U#
,
/eptSubProcedureSameLvl
V)
&
1eptPrivateMethod
W/
(
3eptProtectedMethod
X5
%
5eptPublicMethod
Y;
(
7eptPublishedMethod
ZA

û


0G
¾TExtractProcToolp
8O
%lu~‡™¢«´½ÆÏØáêóü )2;DMV_hqw€‰’›¤­[[øž+X
\
ÿÿÅ
Ë

…
JEXTRACTPROCTOOL$_$TEXTRACTPROCTOOL_$__$$_SCANNODESFORVARIABLES$crc6772D8CE[øùú	*";StartPos
_*

e
n


("<EndPos
_4

p
y

/"=
BlockStartPos
`

{
„

-">BlockEndPos
`
†

(
+"?	BlockNode
a

‘
š
2
)"@VarTree
b	
œ
¥
<
3"AIgnoreIdentifiers
c	
§
°
F
4"BMissingIdentifiers
d	
²
»
P
'"C$self
_
½
BÃ

û +Ñ
Õ
ÿÿ#
•
LEXTRACTPROCTOOL$_$TEXTRACTPROCTOOL_$__$$_CHECKIFRANGEONSAMELEVEL$crcC661849D[øùú*"EStartPos
f,

Þ
ç


("FEndPos
f6

é
ò

/"G
CleanStartPos
g
ô
ý

-"HCleanEndPos
g
ÿ
(
+"I	StartNode
g4
2
'"J$self
f
B
û—+)-ÿÿu{
Â
DEXTRACTPROCTOOL$_$TEXTRACTPROCTOOL_$__$$_INITEXTRACTPROC$crc0B567AF2[øùú*"LStartPos
h$

6?

("MEndPos
h.

AJ
0"NMethodPossible
iLU
1"OSubProcPossible
iW`(
8"PSubProcSameLvlPossible
i,bk2
'"Q$self
h
mBs
û˜+…ÿÿçí
ï
EEXTRACTPROCTOOL$_$TEXTRACTPROCTOOL_$__$$_CHECKEXTRACTPROC$crc231000D6[øùú	*"SStartPos
k%

Ž—

("TEndPos
k/

™¢
0"UMethodPossible
l
¤­
1"VSubProcPossible
l
¯¸(
8"WSubProcSameLvlPossible
l,
ºÃ2
4"XMissingIdentifiers
mÅÎ<
)"YVarTree
n
ÐÙF
Z$defVARTREE
n€'"[$self
k
ßBå
û”+	ó÷ÿÿu{


@EXTRACTPROCTOOL$_$TEXTRACTPROCTOOL_$__$$_EXTRACTPROC$crcA629B86E[øùú*"]StartPos
p 

	

("^EndPos
p*


*"_ProcType
q

*"`ProcName
q)

'(
3"aIgnoreIdentifiers
r
)22
("bNewPos
s
4=<
,"c
NewTopLine
s(
?HF
3"dSourceChangeCache
t
JSP
@"eFunctionResultVariableStartPos
u
U^Z
>f"$defFUNCTIONRESULTVARIABLESTARTPOS
u€
d
'"g$self
p
mBs
û¸+
…ÿÿ¬²
=
dEXTRACTPROCTOOL$_$TEXTRACTPROCTOOL_$__$$_REMOVEWITHBLOCK$TCODEXYPOSITION$TSOURCECHANGECACHE$$BOOLEAN[øùú+"i	CursorPos
w$

Ž—

3"jSourceChangeCache
x
™¢
'"k$self
w
¤Bª
û•+¸¼ÿÿ

ñ
AEXTRACTPROCTOOL$_$TEXTRACTPROCTOOL_$__$$_ADDWITHBLOCK$crcFD630B7F[øùú*"mStartPos
y!

ÅÎ

("nEndPos
y+

ÐÙ
*"oWithExpr
z


Ûä
,"p
Candidates
{
æï(
3"qSourceChangeCache
{
ñú2
'"r$self
y
üB
û”+D06
€
@EXTRACTPROCTOOL$_$TEXTRACTPROCTOOL_$__$$_CALCMEMSIZE$TCTMEMSTATS[øùú'"tStats
}
&

'"u$self
}
(B.
ûùú):ScanNodesForVariables
_
<+DCheckIfRangeOnSameLevel
f
B#KInitExtractProc
h
H$RCheckExtractProc
k
N\ExtractProc
p
T#hRemoveWithBlock
w
Z lAddWithBlock
y
`sCalcMemSize
}
fû,
*
¶ºÃ
[
ø
ù
ú
û,
*ÉÍÖ 
[
ø
ù
ú
û,
*ßãì 
[
ø
ù
ú
û,
*õù 
[
ø
ù
ú
û,
* 
[
ø
ù
ú
û,
*!%. 
[
ø
ù
ú
û,
*7;D 
[
ø
ù
ú
û,
*MQZ 
[
ø
ù
ú
û,
*cgp 
[
ø
ù
ú
û
+y}ÿÿ†ˆ
¬

:EXTRACTPROCTOOL_$$_CREATEEXTRACTPROCVARIABLETREE$$TAVLTREE[øùúû“
+Ž’ÿÿ±³
±
@EXTRACTPROCTOOL_$$_CLEAREXTRACTPROCVARIABLETREE$TAVLTREE$BOOLEAN[øùú)"yVarTree
(
›¤

*"zFreeTree
;
¦¯
û
ù
ú&
ExtractProcTool
4

system
4

objpas
4
Classes
5
SysUtils
5
math
5
	FileProcs
5 
	CodeToolsStrConsts
5'

CodeTree
5;
CodeAtom
5E
	CodeCache
6

CustomCodeTool
6
PascalReaderTool
6
PascalParserTool
7 
CodeCompletionTool
7
KeywordFuncLists
7)
BasicCodeTools
7;
LinkScanner
8
AVL_Tree
8

SourceChanger
8!
FindDeclarationTool
90
TExtractedProcVariableType
< ¹#

epvtParameter
=¿"
epvtLocalVar
>Å
,
TExtractedProcVariable
BË&
(TExtractProcType
RÑ"
*eptProcedure
S×/
,eptProcedureWithInterface
TÝ
%
.eptSubProcedure
Uã,
0eptSubProcedureSameLvl
Vé&
2eptPrivateMethod
Wï(
4eptProtectedMethod
Xõ%
6eptPublicMethod
Yû(
8eptPublishedMethod
Z
&
9TExtractProcTool
]5
vExtractProcTypeNames


1
wCreateExtractProcVariableTree
Œ

0
xClearExtractProcVariableTree


û



ý
[
ø™
+#'	EXTRACTPROCTOOL_$$_initÿÿ
02
‘
INIT$_$EXTRACTPROCTOOLEXTRACTPROCTOOL_$$_init[øùúû
+8<ÿÿUW
‘

<EXTRACTPROCTOOL_$$_COMPAREEXTRACTEDPROCVARIABLES$crcF4DAF7C4[øùú$"}V1
‘(
EK

$"~V2
‘,
MS
û–
+]aÿÿ}
ž

CEXTRACTPROCTOOL_$$_COMPARENODEWITHEXTRACTEDPROCVARIABLE$crcA4F7C8E3[øùú&"„Node
ž/
js

#"…
V
Ÿ
u{
û
)!…‰

)"’–

)#Ÿ£

)%¬°

)m¹½

)nÆÊ

)oÓ×

)yàä

)‚íñ
¬
+î÷û	 EXTRACTPROCTOOL_$$_init_implicitÿÿ

ìINIT$_$EXTRACTPROCTOOL EXTRACTPROCTOOL_$$_init_implicit[øùúû¸
+ï	$EXTRACTPROCTOOL_$$_finalize_implicitÿÿ

ìFINALIZE$_$EXTRACTPROCTOOL$EXTRACTPROCTOOL_$$_finalize_implicit[øùúû
ù
ú,
{$EXTRACTPROCTOOL_$$_init
‘

!1
|CompareExtractedProcVariables
‘

'8
ƒ$CompareNodeWithExtractedProcVariable
ž

-6
q!$EXTRACTPROCTOOL_$$_init_implicit
ì
3:
r%$EXTRACTPROCTOOL_$$_finalize_implicit
ì
9
ûG
S?HQZ`0
i a@r
ÿ