PPU172À€"Å=Ãעj]ןI
utPð

ChangeDeclarationTool
U
changedeclarationtool.pas(¹"Ut

System„у¾(`¼
¶­àobjpasŠ±±99àȻ®“Classes¸Û$£_v77£ Bsysutils·è>ëNš8!-“»AVL_Treeú`ûmà
íߌßcontnrs©Ì>³øۻ¯Ë¨CodeAtom}^éŽÉ|אÈÁ	CodeCache|»OKºúò_埵ñ	FileProcs‰¼ö¥­zœ{q–NCodeTree¾h®µn~U¤±ªýåExtractProcTool®ï}Ì5j;\FindDeclarationToolHŽ±Â|„æê’ÀBasicCodeTools ¦.EfzõŸ[mÀKeywordFuncListså6µ‡]îbœhLinkScanner¤:i9îCÃ34
SourceChangerŒï5Ll£é =ó
changedeclarationtool.o



	


d

R¥

SYSTEMEXTRACTPROCTOOLCODETREE
SOURCECHANGERCONTNRS	CODECACHEAVL_TREEFINDDECLARATIONTOOLPASCALPARSERTOOLCUSTOMCODETOOLCODECOMPLETIONTOOLCODEATOMCLASSESC





®













%







,










0









5








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






3

®

;




®

:

?




3

(

:

C







(

:

H




(

x



:

M	



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

8
	



q
	n
	o
	r
	s
	t
	w
	x
	‹





 
i
j
l
m
n

=




ST

®

















[







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

®




u





x




{







}
3






















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

®






3



ˆ





Œ












‘



•
3
(
(






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





x

(

®

ü
[
ø(
1”
[
ø
ù
ú(
cplaInsertNewParam
(%
cplaDeleteParam
)
#

cplaMoveParam
*,
cplaChangeDefaultValue
+
û,
2
 ”(
0.¾TChangeParamListItem
86
š
£
¬
µ
¾
Ç
Ð
Ù
â
ë
ô
ý
[[ø§+?CÿÿˆŽ

"
SCHANGEDECLARATIONTOOL$_$TCHANGEPARAMLISTITEM_$__$$_CREATEINSERTNEWPARAM$crc8D41E74B[øùú*"&TheIndex
:&
IR

+"'	aModifier
;&T]
'"(aName
;1_h
'")aType
;8js(
&"*$vmt
:
uD~
'"+$self
:

€B†
û¶+”˜ÿÿ¼Â

"
bCHANGEDECLARATIONTOOL$_$TCHANGEPARAMLISTITEM_$__$$_CREATEDELETEPARAM$LONGINT$$TCHANGEPARAMLISTITEM[øùú*"-TheIndex
<#
ž§

&".$vmt
<
©D²
'"/$self
<
´Bº
û¢+ÈÌÿÿû



"
NCHANGEDECLARATIONTOOL$_$TCHANGEPARAMLISTITEM_$__$$_CREATEMOVEPARAM$crcD387056F[øùú-"1TheOldIndex
=!
ÒÛ

*"2NewIndex
=.
Ýæ
&"3$vmt
=
èDñ
'"4$self
=
óBù
û«+

ÿÿ:
@

"
"
WCHANGEDECLARATIONTOOL$_$TCHANGEPARAMLISTITEM_$__$$_CREATECHANGEDEFAULTVALUE$crc578391A6[øùú*"6TheIndex
>*




("7aValue
>=
%

&"8$vmt
>
'
D0

'"9$self
>

2
B8

ûùú'Action
3F
&Index
4L
) OldIndex
5U
.!
ParamModifier
6^
*"	ParamName
7g
 *#	ParamType
8p
(-$DefaultValue
9y
0(%CreateInsertNewParam
:
‚
%,CreateDeleteParam
<
ˆ
#0CreateMoveParam
=
Ž
,5CreateChangeDefaultValue
>
”
û

0¾TChangeDeclarationToolp
8%}†˜¡ª³¼ÅÎ×àéòû
(1:CLU^gpy‚‹”¦¯¸Á[[ø°+ $ÿÿKQ
,
"
\CHANGEDECLARATIONTOOL$_$TCHANGEDECLARATIONTOOL_$__$$_CDTPARSEPARAMLIST$TCODETREENODE$TOBJECT[øùú,"<
ParentNode
E!
-6

."=Transactions
E<
8A
'">$self
E
CBI
û¯+	W[ÿÿ‚ˆ
Ê
!
[CHANGEDECLARATIONTOOL$_$TCHANGEDECLARATIONTOOL_$__$$_APPLYPARAMLISTTRANSACTIONS$crcB0A0F828[øùú."@Transactions
F)
dm

/"A
SourceChanger
G
ox
'"B$self
F
zB€
û¯+
Ž’ÿÿÄÊ
º!
[CHANGEDECLARATIONTOOL$_$TCHANGEDECLARATIONTOOL_$__$$_CHANGEPARAMLISTDECLARATION$crc81329F6C[øùú,"D
ParentNode
H)
›¤

)"EChanges
I
¦¯
/"F
SourceChanger
J
±º
'"G$self
H
¼BÂ
û´+ÐÔÿÿ
L!
`CHANGEDECLARATIONTOOL$_$TCHANGEDECLARATIONTOOL_$__$$_CHANGEPARAMLISTDECLARATIONATPOS$crc532C1F13[øùú*"ICleanPos
K.
Ýæ

)"JChanges
L
èñ
/"K
SourceChanger
M
óü
'"L$self
K
þB
û¤+ÿÿSY
h!
PCHANGEDECLARATIONTOOL$_$TCHANGEDECLARATIONTOOL_$__$$_CHANGEPARAMLIST$crc26C2A4A9[øùú)"NChanges
O
(

)"OProcPos
P*3
7"PTreeOfPCodeXYPosition
Q
5>
/"Q
SourceChanger
R
@I(
'"R$self
O
KBQ
ûùú%;CDTParseParamList
E
_.?ApplyParamListTransactions
F
e.CChangeParamListDeclaration
H
k3HChangeParamListDeclarationAtPos
K
q#MChangeParamList
O
wû
ù
ú#
ChangeDeclarationTool
!

system
!

objpas
!
Classes
"
SysUtils
"
AVL_Tree
"
contnrs
" 
	CodeAtom
")

	CodeCache
"3
	FileProcs
#
CodeTree
#

ExtractProcTool
#!
FindDeclarationTool
#)
BasicCodeTools
$
KeywordFuncLists
$
LinkScanner
$%

SourceChanger
$2,
TChangeParamListAction
'Ê(
cplaInsertNewParam
(Ð%
cplaDeleteParam
)Ö
#

cplaMoveParam
*Ü,
cplaChangeDefaultValue
+â-
TChangeParamListActions
-è*
TChangeParamListItem
1î,
:TChangeDeclarationTool
Cô
û



ý
[
ø«
+
úþ	CHANGEDECLARATIONTOOL_$$_initÿÿ
	
W
INIT$_$CHANGEDECLARATIONTOOLCHANGEDECLARATIONTOOL_$$_init[øùúû‰
0>TChgPrmInsertNew
8
ÇÐÙâëôý!*3[[ø
”+ $ÿÿ…
—
ACHANGEDECLARATIONTOOL$_$TCHGPRMINSERTNEW_$__$$_CREATE$crcE93DD8AC[øùú&"\aSrc
c*3

+"]	aModifier
c5>
'"^aName
c)@I
'"_aType
c0KT(
("`aValue
c7V_2
+"a	aCopyFrom
d
aj<
&"b$vmt
c
lDu
'"c$self
c

wB}
ûùú$USrc
]‹)VModifier
^”%WName
_$XTyp
`¦ -YDefaultValue
a¯(3ZCopyFromParamIndex
b¸0[Create
c
Áû†
0<>
TChgPrmModify
xD
—¦¯¸ÁÊÓÜåî÷[[ø”+MQÿÿjp
¢
ACHANGEDECLARATIONTOOL$_$TCHGPRMMODIFY_$__$$_CREATE$$TCHGPRMMODIFY[øùú&"v$vmt
}
WD`
'"w$self
}
bBh
û†+vzD–œ
§
3CHANGEDECLARATIONTOOL$_$TCHGPRMMODIFY_$__$$_DESTROY[øùú&"y$vmt
~
ƒDŒ
'"z$self
~
ŽB”
û“+¢¦ÿÿ·½
­
@CHANGEDECLARATIONTOOL$_$TCHGPRMMODIFY_$__$$_GETFIRSTPOS$$LONGINT[øùú
'"|$self

¯Bµ
ûš+ÃÇÿÿãé
·
GCHANGEDECLARATIONTOOL$_$TCHGPRMMODIFY_$__$$_GETLASTPOS$BOOLEAN$$LONGINT[øùú/"~
WithSeparator
€
ÐÙ

'"$self
€
ÛBá
ûùú%eNode
kï1fHeaderCommentPos
mø)gModifier
n
%hName
o
 $iTyp
p,-jDefaultValue
q8,kHasComments
r%D4lFooterCommentEndPos
s.H*m	Separator
t7L6nCommentAfterSeparator
u@P-oFirstInGroup
vI\,pLastInGroup
wR`'qDelete
y[d3rChangeDefaultValue
zde0sNewDefaultValue
{mh-tInsertBehind
|vpuCreate
}
xDestroy
~
…{GetFirstPos

‹}
GetLastPos
€
‘û•
0	>TChangeParamListTransactions
8
]	c	l	u	~	‡		™	¢	«	´	½	Æ	[[ø,*($ÿÿÿÿÿÿÿÿ[øùúû +-1ÿÿU[
ê*
MCHANGEDECLARATIONTOOL$_$TCHANGEPARAMLISTTRANSACTIONS_$__$$_CREATE$crc1F0037A4[øùú+"‰	ParamList
Ž
7@

&"Š$vmt
Ž
BDK
'"‹$self
Ž

MBS
û•+aeD‡
ý)
BCHANGEDECLARATIONTOOL$_$TCHANGEPARAMLISTTRANSACTIONS_$__$$_DESTROY[øùú&"$vmt

nDw
'"Ž$self


yB
û+‘ÿÿ¢¨
Í'
JCHANGEDECLARATIONTOOL$_$TCHANGEPARAMLISTTRANSACTIONS_$__$$_MAXPOS$$LONGINT[øùú
'"$self

šB 
û­+®²ÿÿÖÜ
Ò(
ZCHANGEDECLARATIONTOOL$_$TCHANGEPARAMLISTTRANSACTIONS_$__$$_INSERT$LONGINT$TCHGPRMINSERTNEW[øùú'"’Index
‘
Ȁ

+"“	Insertion
‘&
ÆÌ
'"”$self
‘
ÎBÔ
û›+âæÿÿ÷ý
Û(
HCHANGEDECLARATIONTOOL$_$TCHANGEPARAMLISTTRANSACTIONS_$__$$_CREATECHANGES[øùú
'"–$self
’

ïBõ
ûùú%Node
‡	)‚OldNodes
ˆ	,ƒInsertFirst
‰	(„Changes
Š	 .…
BehindNamePos
‹$	(/†BracketOpenPos
Œ-	,0‡BracketClosePos
6	0ˆCreate
Ž
?	ŒDestroy

E	MaxPos

K	‘Insert
‘
Q	!•
CreateChanges
’
W	û
){Ï	Ó	

)·Ü	à	

ù
ú2
S$CHANGEDECLARATIONTOOL_$$_init
W

é	&
TTChgPrmInsertNew
[ï	#
d
TChgPrmModify
iõ	2
€TChangeParamListTransactions
…"û	
ûO
S






%
g.

4

:
	
ÿ