PPU172À€"ö0
 ¦.EfzõñŸ[mÀ

BasicCodeTools
U
basiccodetools.pasˆ–Vï
System„у¾(`¼
¶­àobjpasŠ±±99àȻ®“Classes¸Û$£_v77£ Bsysutils·è>ëNš8!-“»AVL_Treeú`ûmà
íߌß	SourceLog$0.´‡”» ù‘ }KeywordFuncListså6µ‡]îbœh	FileProcs‰¼ö¥­zœ{q–NLazFileUtilsëÁß=´ Ž³ùLazUTF8nŸž9 ¢}ìÉ
sstrutilsޓZ%^Âè È
basiccodetools.o



	


d

R&
SYSTEMAVL_TREE	SOURCELOGCLASSESX,




































;
;

























!


























+


"












,

















0
























6













C

>









H




D












O



Q



S




J








U









X















[









`












c









g












j







q



n













s









x









{









‚


„

~



















…














Œ









‘




;

”



;



–












™



















¡










¡















¦














«









°










³






·









·















·















¿












Ä
















Î



Ð



Ò


È
















Ù



Û



Ý


Ó















Þ















ã







è







ë













î















ó


















ø












þ






































;




;




























;




;





























;




;


















&





















)




;

;


0




;

;


3









6




;

;


9




;




;








<









B



;

;


E




;

;





H




;

;


L




;

;





O









S










V




;


Z



;




\







_




;

;


a








d













g








k



















n









u









x




;





{




;



;











‡




‰



~



;

;







Š



;







“

®


X


X
–



X
X
™

X





X
X
›

YZ[




•




Y
–






”





Z
™


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

®

d








d
d
«



e




¨






©







ª


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




















´

























»







Ä














Æ














Ë









Ð









Ó









Ö









Ù














Ü









á














ä









é














ì









ñ













ô











ù









ý
































	


















































































%










)










-










1



-


5














7








<














?













D













I













N









S







Z


W












`



b


[








g




c


















p


i












v



x




q



















z



;

;

;…

‡



‰


z















Š










”







;




•



;






˜









œ









Ÿ
	

 !"#$%&'()*+,-./0123456798:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXdlmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œž































 


¸
·'





 











Ø


ØØ






Ø








º







¹













¹
·(



£










¤










ª









;






F














Ÿ ¡





§


§§






¥


¦






§




¥





§




¦






­


­­






«


¬






­




«





­




¬


¨

Xd

-
®
ü
[
ø’
+ÿÿ#%
®

>BASICCODETOOLS_$$_FINDNEXTNONSPACE$ANSISTRING$LONGINT$$LONGINT[øùú)"ASource
2!




*"StartPos
22
!
û’
+
+/ÿÿNP
¹

>BASICCODETOOLS_$$_FINDPREVNONSPACE$ANSISTRING$LONGINT$$LONGINT[øùú)"ASource
3!

8A

*"StartPos
32
CL
û˜
+VZ€ÿÿ„†
Á

DBASICCODETOOLS_$$_FINDCOMMENTEND$ANSISTRING$LONGINT$BOOLEAN$$LONGINT[øùú)"ASource
4

cl

*"StartPos
40
nw
0"NestedComments
5
y‚
û‰
+Œ€ÿÿ¯±
„

5BASICCODETOOLS_$$_FINDCOMMENTEND$PCHAR$BOOLEAN$$PCHAR[øùú%"Src
6
™¢

0"NestedComments
6%
¤­
ûŽ
+·»ÿÿÚÜ
Ò

:BASICCODETOOLS_$$_ISCOMMENTEND$ANSISTRING$LONGINT$$BOOLEAN[øùú)"ASource
7

ÄÍ

("EndPos
7.
ÏØ
û™
+âæÿÿ


ü

EBASICCODETOOLS_$$_FINDNEXTCOMMENT$ANSISTRING$LONGINT$LONGINT$$LONGINT[øùú)"ASource
8 

ïø

*"StartPos
9
ú

(" MaxPos
9



&!
$defMAXPOS
9€


û…
+%
)
ÿÿ—
™

'
1BASICCODETOOLS_$$_FINDCOMMENTSINRANGE$crc2E9AE2DF[øùú	%"#Src
:%

2
;


*"$StartPos
:2
=
F

("%EndPos
:<
H
Q

3"&FirstCommentStart
;	S
\
(
0"'FirstAtomStart
;^
g
2
0"(LastCommentEnd
;,i
r
<
-")LastAtomEnd
;<t
}
F
0"*NestedComments
<

ˆ
P
.+$defNESTEDCOMMENTS
<€
Ž

û£
+Ÿ
£
ÿÿÍ
Ï

S

OBASICCODETOOLS_$$_FINDNEXTCOMPILERDIRECTIVE$ANSISTRING$LONGINT$BOOLEAN$$LONGINT[øùú)"-ASource
=*

¬
µ


*".StartPos
=;
·
À

0"/NestedComments
>
Â
Ë

û“
+Õ
Ù
ÿÿ
Ž

?BASICCODETOOLS_$$_FINDNEXTCOMPILERDIRECTIVEWITHNAME$crc607EBD88[øùú)"1ASource
?2

â
ë


*"2StartPos
@
í
ö

/"3
DirectiveName
@

ø


0"4NestedComments
A
(
*"5ParamPos
A"2
ûŠ
+	!%ÿÿ{}


6BASICCODETOOLS_$$_FINDNEXTINCLUDEDIRECTIVE$crc136D6BA9[øùú)"7ASource
B)

.7

*"8StartPos
C
9B
0"9NestedComments
C
DM
2":FilenameStartPos
D	OX(
0";FileNameEndPos
DZc2
1"<CommentStartPos
Een<
/"=
CommentEndPos
EpyF
û¦
+
ƒ‡ÿÿÉË
^

RBASICCODETOOLS_$$_FINDNEXTIDEDIRECTIVE$ANSISTRING$LONGINT$BOOLEAN$LONGINT$$LONGINT[øùú)"?ASource
F%

™

*"@StartPos
F6
›¤
0"ANestedComments
G
¦¯
("BEndPos
G
±º(
&C
$defENDPOS
G€
À
û¢
+ÑÕÿÿ
™

NBASICCODETOOLS_$$_CLEANCODEFROMCOMMENTS$ANSISTRING$BOOLEAN$BOOLEAN$$ANSISTRING[øùú%"ESrc
H&

Þç

0"FNestedComments
I
éò
0"GKeepDirectives
I
ôý
.H$defKEEPDIRECTIVES
I€

*"I$result
™

A
û‡
+#ÿÿ ¢
¹

3BASICCODETOOLS_$$_EXTRACTCOMMENTCONTENT$crcE6F72BA0[øùú
)"KASource
J&

,5

."LCommentStart
J7
7@
0"MNestedComments
K
BK
+"N	TrimStart
L
MV(
)O
$defTRIMSTART
L€
\
)"PTrimEnd
L!
en2
'Q$defTRIMEND
L!€
t
,"R
TrimPasDoc
M
}†<
*S$defTRIMPASDOC
M€
Œ
*"T$result
¹

•Až
û•
+
¨¬ÿÿËÍ
ö

ABASICCODETOOLS_$$_FINDMAINUNITHINT$ANSISTRING$ANSISTRING$$BOOLEAN[øùú)"VASource
N!

µ¾

*"WFilename
N6
ÀÉ
û
+Ó×ÿÿöø


9BASICCODETOOLS_$$_INEMPTYLINE$ANSISTRING$LONGINT$$BOOLEAN[øùú)"YASource
O

àé

*"ZStartPos
O-
ëô
û§
+þÿÿ79
+

SBASICCODETOOLS_$$_SKIPRESOURCEDIRECTIVE$ANSISTRING$LONGINT$LONGINT$BOOLEAN$$LONGINT[øùú)"\ASource
P&



*"]StartPos
P7

("^EndPos
PA
!*
0"_NestedComments
Q
,5(
û
+?Cÿÿbd
l

;BASICCODETOOLS_$$_GETLINEINDENT$ANSISTRING$LONGINT$$LONGINT[øùú("aSource
T

LU

*"bPosition
T.
W`
ûŸ
+jnÿÿ˜š
H

KBASICCODETOOLS_$$_GETLINEINDENTWITHTABS$ANSISTRING$LONGINT$LONGINT$$LONGINT[øùú("dSource
U&

w€

*"ePosition
U6
‚‹
*"fTabWidth
V 
–
ûŽ
+ ¤ÿÿÃÅ
d

:BASICCODETOOLS_$$_GETPOSINLINE$ANSISTRING$LONGINT$$LONGINT[øùú("hSource
W

­¶

*"iPosition
W-
¸Á
û›
+ËÏÿÿùû
m

GBASICCODETOOLS_$$_GETBLOCKMININDENT$ANSISTRING$LONGINT$LONGINT$$LONGINT[øùú("kSource
X"

Øá

*"lStartPos
Y
ãì
("mEndPos
Y
î÷
ûŽ
+
ÿÿ<>
Š

:BASICCODETOOLS_$$_GETINDENTSTR$LONGINT$LONGINT$$ANSISTRING[øùú("oIndent
Z


*"pTabWidth
Z(
"
(q$defTABWIDTH
Z(€
(
*"r$result
Š

1A:
û–
+DHÿÿ}
Ÿ
BBASICCODETOOLS_$$_INDENTTEXT$ANSISTRING$LONGINT$LONGINT$ANSISTRING[øùú("tSource
[

QZ

("uIndent
[,
\e
*"vTabWidth
[4
gp
+"w	NewSource
\	
r{(
û
+…‰ÿÿ¨ª
^

IBASICCODETOOLS_$$_FINDFIRSTNONSPACECHARINLINE$ANSISTRING$LONGINT$$LONGINT[øùú("ySource
],

’›

*"zPosition
^
¦
û›
+°´ÿÿÓÕ
ã

GBASICCODETOOLS_$$_ISFIRSTNONSPACECHARINLINE$ANSISTRING$LONGINT$$BOOLEAN[øùú("|Source
_*

½Æ

*"}Position
`
ÈÑ
û˜
+Ûßÿÿ.0
ë
DBASICCODETOOLS_$$_GUESSINDENTSIZE$ANSISTRING$LONGINT$LONGINT$LONGINT[øùú("Source
a!

èñ

,"€
IndentSize
b
óü
*"TabWidth
b
þ
(‚$defTABWIDTH
b€


."ƒMaxLineCount
b3
(
,„$defMAXLINECOUNT
b3€
%
'û¥
+6:ÿÿ…‡
@

QBASICCODETOOLS_$$_REINDENT$ANSISTRING$LONGINT$LONGINT$LONGINT$LONGINT$$ANSISTRING[øùú("†Source
c

CL

+"‡	OldIndent
c)
NW
-"ˆOldTabWidth
c4
Yb
+"‰	NewIndent
d
dm(
-"ŠNewTabWidth
d
ox2
*"‹$result
@

zAƒ
û£
+‘ÿÿÆÈ
‘
OBASICCODETOOLS_$$_GETIDENTSTARTENDATPOSITION$ANSISTRING$LONGINT$LONGINT$LONGINT[øùú("Source
g,

š£

*"ŽPosition
g;
¥®
,"
IdentStart
h	°¹
*"IdentEnd
hȀ(
û—
+ÎÒÿÿñó
¥

CBASICCODETOOLS_$$_GETIDENTSTARTPOSITION$ANSISTRING$LONGINT$$LONGINT[øùú("’Source
i&

Ûä

*"“Position
i5
æï
û€
+ùýÿÿ
´

,BASICCODETOOLS_$$_GETIDENTLEN$PCHAR$$LONGINT[øùú
,"•
Identifier
j


û…
+ÿÿ<>
ä

1BASICCODETOOLS_$$_GETIDENTIFIER$PCHAR$$ANSISTRING[øùú,"—
Identifier
k
&/

*"˜$result
ä

1A:
ûœ
+DHÿÿrt
÷

HBASICCODETOOLS_$$_FINDNEXTIDENTIFIER$ANSISTRING$LONGINT$LONGINT$$LONGINT[øùú("šSource
l#

QZ

*"›StartPos
l3
\e
("œMaxPos
l=
gp
û§
+z~ÿÿ¨ª
ÿ

SBASICCODETOOLS_$$_FINDNEXTIDENTIFIERSKIPSTRINGS$ANSISTRING$LONGINT$LONGINT$$LONGINT[øùú("žSource
m.

‡

*"ŸStartPos
n
’›
(" MaxPos
n
¦
ûŠ
+ °´ÿÿÈÊ


6BASICCODETOOLS_$$_ISVALIDIDENTPAIR$ANSISTRING$$BOOLEAN[øùú
*"¢NamePair
o!

½Æ

û 
+!ÐÔÿÿþ
(

LBASICCODETOOLS_$$_ISVALIDIDENTPAIR$ANSISTRING$ANSISTRING$ANSISTRING$$BOOLEAN[øùú*"£NamePair
p!

Ýæ

'"¤First
q	
èñ
("¥Second
q
óü
û¡
+"
ÿÿ?A
Ý

MBASICCODETOOLS_$$_SRCPOSTOLINECOL$ANSISTRING$LONGINT$LONGINT$LONGINT$$BOOLEAN[øùú#"§
s
t 



*"¨Position
t+
'
&"©Line
u	)2
%"ªCol
u4=(
û¢
+#GKÿÿ€‚

NBASICCODETOOLS_$$_GETLINESTARTENDATPOSITION$ANSISTRING$LONGINT$LONGINT$LONGINT[øùú("¬Source
v+

T]

*"­Position
v;
_h
+"®	LineStart
w	js
)"¯LineEnd
wu~(
û–
+$ˆŒÿÿ«­


BBASICCODETOOLS_$$_GETLINESTARTPOSITION$ANSISTRING$LONGINT$$LONGINT[øùú("±Source
x%

•ž

*"²Position
x5
 ©
û‘
+%³·ÿÿáã
!

=BASICCODETOOLS_$$_GETLINEINSRC$ANSISTRING$LONGINT$$ANSISTRING[øùú("´Source
y

ÀÉ

*"µPosition
y-
ËÔ
*"¶$result
!
ÖAß
ûŽ
+&éíÿÿ
		
*
V'
2BASICCODETOOLS_$$_LINEENDCOUNT$ANSISTRING$$LONGINT[øùú
%"¸Txt
z

öÿ

û[øùú%!$result
*

'
''1žLINEENDCOUNT
*

)'
2'
4'+ŸRESULT
*

:'	C'
E'.! LengthOfLastLine
,
K'T'û+
Pÿ,


-
P@?\'@ÿ-

.-P@?e'ÿ

.P@?g'ÿ

.P@?p'ÿ

.	P@?y'ÿ‚'ˆ'Š'
ÿÿÿÿÿ

.P@?“'ÿ

.,P@?œ'ÿ

.,P@?¥'ÿ®'´'ÿ	

.P@?¶'ÿ


.P@?¿'ÿÈ'Î'ÿÿÿÿÿÿÿÿÐ'Ö'ÿ-

/P@?Ü'ÿ.

/P@?Þ'ÿ


/P@?ç'ÿ

/P@?ð'ÿù'ÿ'ÿ

/P@?
(
(
(ÿÿÿÿ–
+'		
	ÿÿ,	.	
X
I(
:BASICCODETOOLS_$$_LINEENDCOUNT$ANSISTRING$LONGINT$$LONGINT[øùú%"¹Txt
{

		

2"ºLengthOfLastLine
{.
!	*	
û[øùú%!Ø$result
X

(
%(1ÙLINEENDCOUNT
X

'(
0(
2(+ÚRESULT
X

8(	A(
C(ûœ
Pÿ,


Z
P@?O(@ÿ-

[=P@?X(ÿ

[P@?Z(ÿ

[P@?c(ÿ

[	P@?l(ÿu({(}(
ÿÿÿÿÿ

[P@?†(ÿ

[<P@?(ÿ

[<P@?˜(ÿ¡(§(ÿ	

[+P@?©(ÿ


[+P@?²(ÿ


[+P@?»(ÿ&

[P@?Ä(ÿ


[%P@?Í(ÿÖ(Ü(ÿ

[*P@?Þ(ç(

ð(ù(ÿ

[P@?)ÿ

[P@?))

ÿ

[P@?)ÿ

[P@?&)ÿ/)5)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ7)=)ÿž
+(4	8	ÿÿm	o	
-

JBASICCODETOOLS_$$_LINEENDCOUNT$ANSISTRING$LONGINT$LONGINT$LONGINT$$LONGINT[øùú%"»Txt
|

A	J	

*"¼StartPos
|*
L	U	
("½EndPos
|4
W	`	
2"¾LengthOfLastLine
}b	k	(
û¤
+)u	y	ÿÿ®	°	
O

PBASICCODETOOLS_$$_EMPTYCODELINECOUNT$ANSISTRING$LONGINT$LONGINT$BOOLEAN$$LONGINT[øùú("ÀSource
~#

‚	‹	

*"ÁStartPos
~3
	–	
("ÂEndPos
~=
˜	¡	
0"ÃNestedComments

£	¬	(
û
+*¶	º	ÿÿä	æ	
y

IBASICCODETOOLS_$$_POSITIONSINSAMELINE$ANSISTRING$LONGINT$LONGINT$$BOOLEAN[øùú("ÅSource
€$

Ã	Ì	

&"ÆPos1

Î	×	
&"ÇPos2

Ù	â	
û”
++ì	ð	ÿÿm
o

”

@BASICCODETOOLS_$$_FINDLINEENDORCODEINFRONTOFPOSITION$crcB3C85111[øùú
("ÉSource
‚3

ù	


*"ÊPosition
ƒ



-"ËMinPosition
ƒ



0"ÌNestedComments
ƒ%

#
(
2"ÍStopAtDirectives
„
%
.
2
0Î$defSTOPATDIRECTIVES
„€
4


4"ÏSkipSemicolonComma
„'
=
F
<
2Ð$defSKIPSEMICOLONCOMMA
„'€
L


0"ÑSkipEmptyLines
…
U
^
F
.Ò$defSKIPEMPTYLINES
…€
d

û
+,u
y
ÿÿö
ø

}

<BASICCODETOOLS_$$_FINDLINEENDORCODEAFTERPOSITION$crcB3C85111[øùú
("ÔSource
†/

‚
‹


*"ÕPosition
‡

–

-"ÖMaxPosition
‡
˜
¡

0"×NestedComments
‡%
£
¬
(
2"ØStopAtDirectives
ˆ
®
·
2
0Ù$defSTOPATDIRECTIVES
ˆ€
½


0"ÚSkipEmptyLines
ˆ'
Æ
Ï
<
.Û$defSKIPEMPTYLINES
ˆ'€
Õ

0"ÜIncludeLineEnd
‰
Þ
ç
F
.Ý$defINCLUDELINEEND
‰€
í

û±
+-þ
ÿÿ79
P

]BASICCODETOOLS_$$_FINDFIRSTLINEENDINFRONTOFINCODE$ANSISTRING$LONGINT$LONGINT$BOOLEAN$$LONGINT[øùú("ßSource
Š0



*"àPosition
‹

-"áMinPosition
‹
!*
0"âNestedComments
‹%
,5(
û­
+.?Cÿÿxz
}

YBASICCODETOOLS_$$_FINDFIRSTLINEENDAFTERINCODE$ANSISTRING$LONGINT$LONGINT$BOOLEAN$$LONGINT[øùú("äSource
Œ,

LU

*"åPosition

W`
-"æMaxPosition

bk
0"çNestedComments
%
mv(
û
+/€„ÿÿ£¥
œ

;BASICCODETOOLS_$$_CHOMPLINEENDSATEND$ANSISTRING$$ANSISTRING[øùú#"é
s
Ž#

–

*"ê$result
œ

˜A¡
û‘
+0«¯ÿÿÎÐ
¦

=BASICCODETOOLS_$$_CHOMPONELINEENDATEND$ANSISTRING$$ANSISTRING[øùú#"ì
s
%

¸Á

*"í$result
¦

ÃAÌ
û™
+1ÖÚÿÿ
µ

EBASICCODETOOLS_$$_TRIMLINEENDS$ANSISTRING$BOOLEAN$BOOLEAN$$ANSISTRING[øùú#"ï
s


ãì

+"ð	TrimStart
(
î÷
)"ñTrimEnd
3
ù
*"ò$result
µ

A

ûŸ
+2ÿÿPR


KBASICCODETOOLS_$$_GETBRACKETLVL$ANSISTRING$LONGINT$LONGINT$BOOLEAN$$LONGINT[øùú%"ôSrc
“

$-

*"õStartPos
“+
/8
("öEndPos
“5
:C
0"÷NestedComments
”
EN(
û±
+3X\ÿÿœž
§

]BASICCODETOOLS_$$_REPLACEMENTNEEDSLINEEND$ANSISTRING$LONGINT$LONGINT$LONGINT$LONGINT$$BOOLEAN[øùú("ùSource
—(

en

)"úFromPos
˜
py
'"ûToPos
˜
{„
+"ü	NewLength
˜
†(
/"ý
MaxLineLength
˜ 
‘š2
û©
+4¤¨ÿÿÒÔ
W

UBASICCODETOOLS_$$_COUNTNEEDEDLINEENDSTOADDFORWARD$ANSISTRING$LONGINT$LONGINT$$LONGINT[øùú%"ÿSrc
™0

±º

*"
StartPos
š
¼Å
-"

MinLineEnds
š
ÇÐ
ûª
+5ÚÞÿÿ



p

VBASICCODETOOLS_$$_COUNTNEEDEDLINEENDSTOADDBACKWARD$ANSISTRING$LONGINT$LONGINT$$LONGINT[øùú%"
Src
›1

çð

*"
StartPos
œ
òû
-"
MinLineEnds
œ
ý

û§
+6

ÿÿT
V

‰
SBASICCODETOOLS_$$_ADJUSTPOSITIONAFTERINSERT$LONGINT$BOOLEAN$LONGINT$LONGINT$LONGINT[øùú#"

p
)
&


)"
IsStart
5
(
1

)"	
FromPos
ž%
3
<

'"

ToPos
ž.
>
G
(
)"
DiffPos
ž5
I
R
2
ûž
+7\
`
€ÿÿ 
¢

ž

JBASICCODETOOLS_$$_COMPARETEXT$PCHAR$LONGINT$PCHAR$LONGINT$BOOLEAN$$LONGINT[øùú&"

Txt1
¡
i
r


&"
Len1
¡#
t
}

&"
Txt2
¡2

ˆ

&"
Len2
¡?
Š
“
(
/"

CaseSensitive
¢
•
ž
2
ûš
+8¨
¬
€ÿÿã
å

È

FBASICCODETOOLS_$$_COMPARETEXTCT$ANSISTRING$ANSISTRING$BOOLEAN$$LONGINT[øùú&"
Txt1
£

µ
¾


&"
Txt2
£$

À
É

/"

CaseSensitive
¤
Ë
Ô

-
$defCASESENSITIVE
¤€
Ú

û¦
+9ë
ï
€ÿÿ:<
Î

RBASICCODETOOLS_$$_COMPARETEXT$PCHAR$LONGINT$PCHAR$LONGINT$BOOLEAN$BOOLEAN$$LONGINT[øùú&"
Txt1
¥
ø



&"
Len1
¥#

&"
Txt2
¥2

&"
Len2
¥?
"(
/"

CaseSensitive
¦
$-2
-"
IgnoreSpace
¦
/8<
û¥
+:BFÿÿpr
²

QBASICCODETOOLS_$$_COMPARETEXTIGNORINGSPACE$ANSISTRING$ANSISTRING$BOOLEAN$$LONGINT[øùú&"
Txt1
§)

OX

&"
Txt2
§/

Zc
/" 

CaseSensitive
¨
en
û«
+;x|ÿÿ¼¾
»

WBASICCODETOOLS_$$_COMPARETEXTIGNORINGSPACE$PCHAR$LONGINT$PCHAR$LONGINT$BOOLEAN$$LONGINT[øùú&"!
Txt1
©#
…Ž

&""
Len1
©0
™
&"#
Txt2
ª
›¤
&"$
Len2
ª
¦¯(
/"%

CaseSensitive
ª!
±º2
û§
+<ÄÈÿÿçé


SBASICCODETOOLS_$$_COMPAREANSISTRINGIGNORINGSPACEIGNORECASE$POINTER$POINTER$$LONGINT[øùú&"'
Txt1
«3ÑÚ

&"(
Txt2
«9Üå
û¶
+=ïóÿÿ>@


bBASICCODETOOLS_$$_COMPARESUBSTRINGS$ANSISTRING$ANSISTRING$LONGINT$LONGINT$LONGINT$BOOLEAN$$LONGINT[øùú&"*
Find
¬"

ü

%"+
Txt
¬(


.",
FindStartPos
­

-"-
TxtStartPos
­
&(
%".
Len
­ 
(12
/"/

CaseSensitive
­.
3<<
û
+>FJÿÿik
Z

9BASICCODETOOLS_$$_COMPAREIDENTIFIERS$PCHAR$PCHAR$$LONGINT[øùú-"1
Identifier1
®
S\

-"2
Identifier2
®*
^g
ûš
+?quÿÿ”–
d

FBASICCODETOOLS_$$_COMPAREIDENTIFIERSCASESENSITIVE$PCHAR$PCHAR$$LONGINT[øùú-"4
Identifier1
¯*
~‡

-"5
Identifier2
¯7
‰’
û”
+@œ ÿÿ¿Á
_

@BASICCODETOOLS_$$_COMPAREIDENTIFIERPTRS$POINTER$POINTER$$LONGINT[øùú-"7
Identifier1
° 
©²

-"8
Identifier2
°-
´½
û
+AÇËÿÿêì


9BASICCODETOOLS_$$_COMPAREPREFIXIDENT$PCHAR$PCHAR$$BOOLEAN[øùú-":
PrefixIdent
±
ÔÝ

,";

Identifier
±*
ßè
û¡
+Bòöÿÿ68
Ÿ

MBASICCODETOOLS_$$_TEXTBEGINSWITH$PCHAR$LONGINT$PCHAR$LONGINT$BOOLEAN$$BOOLEAN[øùú%"=
Txt
²
ÿ

(">
TxtLen
²%


*"?
StartTxt
²6

-"@
StartTxtLen
³
 )(
/"A

CaseSensitive
³
+42
û’
+C>Bÿÿac
¦

>BASICCODETOOLS_$$_STRBEGINSWITH$ANSISTRING$ANSISTRING$$BOOLEAN[øùú#"C

s
´

KT

("D
Prefix
´!

V_
û†
+DimÿÿŒŽ
¹

2BASICCODETOOLS_$$_IDENTIFIERPOS$PCHAR$PCHAR$$INT64[øùú("F
Search
µ
v

,"G

Identifier
µ 
Š
ûŽ
+E”˜ÿÿÂÄ
Ô

:BASICCODETOOLS_$$_COMPAREATOM$PCHAR$PCHAR$BOOLEAN$$LONGINT[øùú$"I
p1
¶
¡ª

$"J
p2
¶
µ
0"K
NestedComments
¶%
·À
û‘
+FÊÎÿÿíï


=BASICCODETOOLS_$$_COMPARESTRINGCONSTANTS$PCHAR$PCHAR$$LONGINT[øùú$"M
p1
·!
×à

$"N
p2
·%
âë
û’
+Gõùÿÿ#%
K

>BASICCODETOOLS_$$_COMPARECOMMENTS$PCHAR$PCHAR$BOOLEAN$$LONGINT[øùú$"P
p1
¸


$"Q
p2
¸


0"R
NestedComments
¸)
!
û
+H+/ÿÿNP
Ò

9BASICCODETOOLS_$$_FINDDIFF$ANSISTRING$ANSISTRING$$LONGINT[øùú$"T
s1
¹

8A

$"U
s2
¹

CL
û
+IVZ€ÿÿ„†
Ù

<BASICCODETOOLS_$$_DBGSDIFF$ANSISTRING$ANSISTRING$$ANSISTRING[øùú*"W
Expected
º
cl

("X
Actual
º
nw
*"Y
$result
Ù

yA‚
û‹
+JŒÿÿ¤¦
2

7BASICCODETOOLS_$$_DOTTEDIDENTIFIERLENGTH$PCHAR$$LONGINT[øùú
,"[

Identifier
½!
™¢

û‹
+K¬°ÿÿÏÑ
D

7BASICCODETOOLS_$$_GETDOTTEDIDENTIFIER$PCHAR$$ANSISTRING[øùú,"]

Identifier
¾
¹Â

*"^
$result
D

ÄAÍ
ûŒ
+L×Ûÿÿïñ
N

8BASICCODETOOLS_$$_ISDOTTEDIDENTIFIER$ANSISTRING$$BOOLEAN[øùú
,"`

Identifier
¿#

äí

û“
+M÷ûÿÿ
`

?BASICCODETOOLS_$$_COMPAREDOTTEDIDENTIFIERS$PCHAR$PCHAR$$LONGINT[øùú-"b
Identifier1
À#



-"c
Identifier2
À0

ûŠ
+N"&ÿÿEG
ˆ

6BASICCODETOOLS_$$_TRIMCODESPACE$ANSISTRING$$ANSISTRING[øùú'"e
ACode
Ã

/8

*"f
$result
ˆ

:AC
û™
+OMQÿÿ{}
µ

EBASICCODETOOLS_$$_CODEISONLYSPACE$ANSISTRING$LONGINT$LONGINT$$BOOLEAN[øùú'"h
ACode
Ä 

Zc

)"i
FromPos
Ä/
en
'"j
ToPos
Ä8
py
û
+Pƒ‡ÿÿ¦¨
É

<BASICCODETOOLS_$$_STRINGTOPASCALCONST$ANSISTRING$$ANSISTRING[øùú#"l

s
Å$

™

*"m
$result
É

›A¤
û³
+Q®²ÿÿýÿ


_BASICCODETOOLS_$$_SPLITSTRINGCONSTANT$ANSISTRING$LONGINT$LONGINT$LONGINT$ANSISTRING$$ANSISTRING[øùú0"o
StringConstant
È$

Ȁ

1"p
FirstLineLength
É
ÆÏ
2"q
OtherLineLengths
É
ÑÚ
("r
Indent
É(
Üå(
,"s

aLineBreak
Ê

çð2
*"t
$result


òAû
û“
+R	ÿÿ(*
2
?BASICCODETOOLS_$$_IMPROVESTRINGCONSTANTSTART$ANSISTRING$LONGINT[øùú'"v
ACode
Ë,



*"w
StartPos
Ë?&
û‘
+S04ÿÿSU
k
=BASICCODETOOLS_$$_IMPROVESTRINGCONSTANTEND$ANSISTRING$LONGINT[øùú'"y
ACode
Ì*

=F

("z
EndPos
Ì=HQ
û‹
+T[_ÿÿ~€
¢

7BASICCODETOOLS_$$_HEXSTRTOINTDEF$PCHAR$LONGINT$$LONGINT[øùú#"|

p
Í
hq

%"}
Def
Í#
s|
û‚
+U†Šÿÿ
¸

.BASICCODETOOLS_$$_SEARCHNEXTINTEXT$crc7F8C578E[øùú("
Search
Ð
“œ

+"€
	SearchLen
Ð*
ž§
%"
Src
Ñ
©²
("‚
SrcLen
Ñ
´½(
*"ƒ
StartPos
Ò
¿È2
,"„

MatchStart
Ó	ÊÓ<
*"…
MatchEnd
ÓÕÞF
,"†

WholeWords
Ô
àéP
*‡
$defWHOLEWORDS
Ô€
ï
+"ˆ
	MultiLine
Ô"
ø
Z
)‰

$defMULTILINE
Ô"€

ûŠ
+VÿÿQS
ù
6BASICCODETOOLS_$$_HASTXTWORD$PCHAR$PCHAR$BOOLEAN$INT64[øùú,"‹

SearchWord
Õ
%.

%"Œ
Txt
Õ"
09
+"
	WholeWord
Õ2;D
'"Ž
Count
ÖFO(
û‡
+WY]€ÿÿ‡‰
#

3BASICCODETOOLS_$$_SUBSTRING$PCHAR$INT64$$ANSISTRING[øùú#"

p
Ù
fo

'"‘
Count
Ù
qz
*"’
$result
#

|A…
û†
0X¾
TUnitFileInfo0
—
¼ÅÎ×àéòû
([[ø¤+Y ¤ÿÿÀÆ
é
PBASICCODETOOLS$_$TUNITFILEINFO_$__$$_GETFILEUNITNAMEWITHOUTNAMESPACE$$ANSISTRING[øùú'"—
$self
ä
­B³
*"˜
$result
é
µA¾
ûž+ZÌÐÿÿáç
ô
JBASICCODETOOLS$_$TUNITFILEINFO_$__$$_GETIDENTIFIERSTARTINUNITNAME$$LONGINT[øùú
'"š
$self
å
ÙBß
û¤+[íñÿÿ &
ã
PBASICCODETOOLS$_$TUNITFILEINFO_$__$$_CREATE$ANSISTRING$ANSISTRING$$TUNITFILEINFO[øùú-"œ
TheUnitName
ç

÷

-"
TheFilename
ç+


&"ž
$vmt
ç

D
'"Ÿ
$self
ç

B
ûùú	*”
	FFilename
â,*•
	FUnitName
ã53–
GetFileUnitNameWithoutNamespace
ä
>0™
GetIdentifierStartInUnitName
å
D›
Create
ç
JG 
FileUnitName
èP€Y[]
_egW¡
FileUnitNameWithoutNamespace
éi€rtv|‚„C¤
Filename
ꆀ‘“
•›T¥
IdentifierStartInUnitName
럀¨ª¬²¸ºû‡
0d1¾TNameSpaceInfo0
 9
ø

%.7@IR[d[[ø
®+eBFÿÿ€†
Ù
ZBASICCODETOOLS$_$TNAMESPACEINFO_$__$$_CREATE$ANSISTRING$ANSISTRING$LONGINT$$TNAMESPACEINFO[øùú."¬
TheNamespace
ô

LU

-"­
TheUnitName
ô,

W`
>"®
TheIdentifierStartInUnitName
ôA
bk
&"¯
$vmt
ô
mDv
'"°
$self
ô

xB~
ûùú*¨
	FUnitName
ðŒ+©

FNamespace
ñ•;ª
FIdentifierStartInUnitName
òž«
Create
ô
§C±
UnitName
õ­€¶¸º
¼ÂÄD²
	Namespace
öÆ€ÏÑÓ
ÕÛÝT³
IdentifierStartInUnitName
÷߀èêì
îôöû’
+lmqÿÿ¼¾
/
>BASICCODETOOLS_$$_ADDTOTREEOFUNITFILESORNAMESPACES$crcD2B91C5B[øùú1"µ
TreeOfUnitFiles
ü
zƒ

2"¶
TreeOfNameSpaces
ü
…Ž
/"·

NameSpacePath
ý	

™
*"¸
Filename
ý

›¤(
1"¹
CaseInsensitive
þ
¦¯2
-"º
KeepDoubles
þ
±º<
û
+mÄÈÿÿ)+
[

-BASICCODETOOLS_$$_GATHERUNITFILES$crc87967281[øùú)"¼
BaseDir
ÿ 

ÑÚ

,"½

SearchPath
ÿ)

Üå
-"¾

Extensions



çð
0"¿

NameSpacePath



òû(
."À
KeepDoubles

(
ý2
2"Á
CaseInsensitive

5
<
2"Â
TreeOfUnitFiles


	
F
3"Ã
TreeOfNamespaces



'P
û‚
+n15ÿÿIK

.BASICCODETOOLS_$$_FREETREEOFUNITFILES$TAVLTREE[øùú
2"Å
TreeOfUnitFiles


>G

û¡
+oQUÿÿŠŒ
	
MBASICCODETOOLS_$$_ADDTOTREEOFUNITFILES$TAVLTREE$ANSISTRING$ANSISTRING$BOOLEAN[øùú2"Ç
TreeOfUnitFiles

$^g

+"È
Filename

	

ir
+"É
Unitname



t}
."Ê
KeepDoubles


ˆ(
û¢
+p’–ÿÿËÍ

NBASICCODETOOLS_$$_ADDTOTREEOFNAMESPACES$TAVLTREE$ANSISTRING$ANSISTRING$BOOLEAN[øùú3"Ì
TreeOfNameSpaces

%٬

+"Í
UnitName

	

ª³
6"Î
ParentNameSpacePath



µ¾
."Ï
KeepDoubles


ÀÉ(
û“
+qÓ×ÿÿöø
;

?BASICCODETOOLS_$$_COMPAREUNITFILEINFOS$POINTER$POINTER$$LONGINT[øùú("Ñ
Data1
	

àé

("Ò
Data2
	
&
ëô
û”
+rþÿÿ!#
A

@BASICCODETOOLS_$$_COMPARENAMESPACEINFOS$POINTER$POINTER$$LONGINT[øùú("Ô
Data1


 


("Õ
Data2


'

û
+s)-ÿÿLN
G

IBASICCODETOOLS_$$_COMPAREUNITNAMEANDUNITFILEINFO$POINTER$POINTER$$LONGINT[øùú6"×
UnitnamePAnsiString

)
6?

/"Ø
UnitFileInfo

)
AJ
ûŸ
+tTXÿÿwy
O

KBASICCODETOOLS_$$_COMPARENAMESPACEANDNAMESPACEINFO$POINTER$POINTER$$LONGINT[øùú7"Ú
NamespacePAnsiString


+
aj

0"Û

NamespaceInfo

)
lu
û›
+uƒÿÿ¸º
É


GBASICCODETOOLS_$$_FINDSOURCETYPE$ANSISTRING$LONGINT$LONGINT$$ANSISTRING[øùú)"Ý
Source



Υ

/"Þ
SrcNameStart


— 
-"ß

SrcNameEnd


¢«
*"à
$result
É

­A¶
ûš
+vÀÄÿÿãå
ç


FBASICCODETOOLS_$$_RENAMEPROGRAMINSOURCE$TSOURCELOG$ANSISTRING$$BOOLEAN[øùú)"â
Source

 
ÍÖ

1"ã
NewProgramName




Øá
û¤
+wëïÿÿ$&
ò


PBASICCODETOOLS_$$_FINDPROGRAMNAMEINSOURCE$ANSISTRING$LONGINT$LONGINT$$ANSISTRING[øùú)"å
Source

(

ø


3"æ
ProgramNameStart



1"ç
ProgramNameEnd



*"è
$result
ò


A"
û—
+x,0ÿÿOQ
Ô


CBASICCODETOOLS_$$_RENAMEUNITINSOURCE$TSOURCELOG$ANSISTRING$$BOOLEAN[øùú)"ê
Source
"

9B

."ë
NewUnitName
"
5

DM
û¡
+yW[ÿÿ’
Þ


MBASICCODETOOLS_$$_FINDUNITNAMEINSOURCE$ANSISTRING$LONGINT$LONGINT$$ANSISTRING[øùú)"í
Source
#
%

dm

0"î

UnitNameStart
$

ox
."ï
UnitNameEnd
$

zƒ
*"ð
$result
Þ


…AŽ
û—
+z˜œÿÿ»½
ÿ


CBASICCODETOOLS_$$_UNITISUSEDINSOURCE$ANSISTRING$ANSISTRING$$BOOLEAN[øùú)"ò
Source
'
#

¥®

."ó
SrcUnitName
'
*

°¹
û
+{ÃÇÿÿüþ


<BASICCODETOOLS_$$_RENAMEUNITINPROGRAMUSESSECTION$crc6BE84594[øùú)"õ
Source
(
)
ÐÙ

."ö
OldUnitName
)



Ûä
."÷
NewUnitName
)


æï
,"ø
	NewInFile
)
$

ñú(
û§
+|ÿÿ24
0

SBASICCODETOOLS_$$_ADDTOPROGRAMUSESSECTION$TSOURCELOG$ANSISTRING$ANSISTRING$$BOOLEAN[øùú)"ú
Source
*
"


,"û
	AUnitName
+



%
-"ü

InFileName
+


'0
û¡
+}:>ÿÿ]_
‡

MBASICCODETOOLS_$$_REMOVEFROMPROGRAMUSESSECTION$TSOURCELOG$ANSISTRING$$BOOLEAN[øùú)"þ
Source
,
'
GP

,"ÿ
	AUnitName
-



R[
û’
+~eiÿÿž 
Q

>BASICCODETOOLS_$$_RENAMEUNITININTERFACEUSESSECTION$crc6BE84594[øùú)"
Source
.
+
r{

."OldUnitName
/



}†
."NewUnitName
/


ˆ‘
,"	NewInFile
/
$

“œ(
û©
+¦ªÿÿÔÖ
l

UBASICCODETOOLS_$$_ADDTOINTERFACEUSESSECTION$TSOURCELOG$ANSISTRING$ANSISTRING$$BOOLEAN[øùú)"Source
0
$
³¼

,"	AUnitName
1



¾Ç
-"
InFileName
1


ÉÒ
û£
+€Üàÿÿÿ

 

OBASICCODETOOLS_$$_REMOVEFROMINTERFACEUSESSECTION$TSOURCELOG$ANSISTRING$$BOOLEAN[øùú)"
Source
2
)
éò

,"	AUnitName
3



ôý
û¤
+ÿÿ57
´

PBASICCODETOOLS_$$_ISUNITUSEDINUSESSECTION$ANSISTRING$ANSISTRING$LONGINT$$BOOLEAN[øùú)"
Source
6
(



."SrcUnitName
6
/

(
,"	UsesStart
7

*3
û‰
+‚=Aÿÿƒ
Ï

5BASICCODETOOLS_$$_RENAMEUNITINUSESSECTION$crc1373C771[øùú)"Source
8
"
JS

,"	UsesStart
8
5
U^
."OldUnitName
9



`i
."NewUnitName
9


kt(
,"	NewInFile
9
$

v2
û¬
+ƒ‰ÿÿÂÄ


XBASICCODETOOLS_$$_ADDUNITTOUSESSECTION$TSOURCELOG$ANSISTRING$ANSISTRING$LONGINT$$BOOLEAN[øùú)"Source
:

–Ÿ

-"
AnUnitName
;



¡ª
-"
InFilename
;


µ
,"	UsesStart
;
(
·À(
û¦
+„ÊÎÿÿøú
&

RBASICCODETOOLS_$$_REMOVEUNITFROMUSESSECTION$TSOURCELOG$ANSISTRING$LONGINT$$BOOLEAN[øùú)"Source
<
$
×à

-"
AnUnitName
=



âë
,"	UsesStart
=

íö
û±
+…ÿÿDF
•


]BASICCODETOOLS_$$_FINDINCLUDEDIRECTIVE$ANSISTRING$ANSISTRING$LONGINT$LONGINT$LONGINT$$BOOLEAN[øùú)" Source
@
%




*"!Section
@
,

!
(""Index
@
<
#,
/"#IncludeStart
A
.7(
-"$
IncludeEnd
A
9B2
û¦
+†LPÿÿz|
³


RBASICCODETOOLS_$$_SPLITCOMPILERDIRECTIVE$ANSISTRING$ANSISTRING$ANSISTRING$$BOOLEAN[øùú,"&	Directive
B
'

Yb

0"'
DirectiveName
C

dm
-"(
Parameters
C

ox
û¦
+‡‚†ÿÿ°²
N

RBASICCODETOOLS_$$_ADDCREATEFORMTOPROGRAM$TSOURCELOG$ANSISTRING$ANSISTRING$$BOOLEAN[øùú)"*Source
F
!
˜

-"+
AClassName
G



š£
(",AName
G


¥®
û«
+ˆ¸¼ÿÿæè
^

WBASICCODETOOLS_$$_REMOVECREATEFORMFROMPROGRAM$TSOURCELOG$ANSISTRING$ANSISTRING$$BOOLEAN[øùú)".Source
H
&
ÅÎ

-"/
AClassName
I



ÐÙ
("0AName
I


Ûä
û©
+‰îòÿÿ
n

UBASICCODETOOLS_$$_CREATEFORMEXISTSINPROGRAM$ANSISTRING$ANSISTRING$ANSISTRING$$BOOLEAN[øùú)"2Source
J
*

û

-"3
AClassName
K



("4AName
K



û–
+Š$(ÿÿ<>
x

BBASICCODETOOLS_$$_LISTALLCREATEFORMSINPROGRAM$ANSISTRING$$TSTRINGS[øùú
)"6Source
L
,

1:

û§
+‹DHÿÿ}
‹

SBASICCODETOOLS_$$_FINDRESOURCEINCODE$ANSISTRING$ANSISTRING$LONGINT$LONGINT$$BOOLEAN[øùú)"8Source
O
#

QZ

*"9AddCode
O
+

\e
+":Position
P
gp
.";EndPosition
P

r{(
û”
+Œ…‰ÿÿ¨ª
¦

@BASICCODETOOLS_$$_ADDRESOURCECODE$TSOURCELOG$ANSISTRING$$BOOLEAN[øùú)"=Source
Q

’›

*">AddCode
Q
3

¦
û´
+°´ÿÿéë
³

`BASICCODETOOLS_$$_FINDFORMCLASSDEFINITIONINSOURCE$ANSISTRING$ANSISTRING$LONGINT$LONGINT$$BOOLEAN[øùú)"@Source
T
0

½Æ

0"A
FormClassName
T
8

ÈÑ
8"BFormClassNameStartPos
U
ÓÜ
3"CFormBodyStartPos
U

Þç(
û±
+Žñõÿÿ*,
Â

]BASICCODETOOLS_$$_FINDFORMCOMPONENTINSOURCE$ANSISTRING$LONGINT$ANSISTRING$ANSISTRING$$LONGINT[øùú)"ESource
V
*

þ

3"FFormBodyStartPos
W

	
0"G
ComponentName
X
	


5"HComponentClassName
X


((
û°
+26ÿÿkm
ß

\BASICCODETOOLS_$$_ADDFORMCOMPONENTTOSOURCE$TSOURCELOG$LONGINT$ANSISTRING$ANSISTRING$$BOOLEAN[øùú)"JSource
Y
#
?H

3"KFormBodyStartPos
Y
6
JS
0"L
ComponentName
Z
	

U^
5"MComponentClassName
Z


`i(
ûµ
+swÿÿ¬®


aBASICCODETOOLS_$$_REMOVEFORMCOMPONENTFROMSOURCE$TSOURCELOG$LONGINT$ANSISTRING$ANSISTRING$$BOOLEAN[øùú)"OSource
[
(
€‰

3"PFormBodyStartPos
\

‹”
0"Q
ComponentName
]

–Ÿ
5"RComponentClassName
]

¡ª(
û
+‘´¸ÿÿâä
/

IBASICCODETOOLS_$$_FINDCLASSANCESTORNAME$ANSISTRING$ANSISTRING$$ANSISTRING[øùú)"TSource
^
&

ÁÊ

0"U
FormClassName
^
.

ÌÕ
*"V$result
/

×Aà
û˜
+’êîÿÿ  
¼

DBASICCODETOOLS_$$_FINDFIRSTPROCSPECIFIER$ANSISTRING$BOOLEAN$$LONGINT[øùú+"XProcText
a
'

÷ 

1"YNestedComments
b

  
/Z$defNESTEDCOMMENTS
b
€
 
û°
+“" & ÿÿ€ ‚ 
Ô

\BASICCODETOOLS_$$_SEARCHPROCSPECIFIER$ANSISTRING$ANSISTRING$LONGINT$BOOLEAN$BOOLEAN$$LONGINT[øùú+"\ProcText
c
$

/ 8 

,"]	Specifier
c
.

: C 
7"^SpecifierEndPosition
d

E N 
1"_NestedComments
e

P Y (
/`$defNESTEDCOMMENTS
e
€
_ 
;"aWithSpaceBehindSemicolon
f

h q 2
9b$defWITHSPACEBEHINDSEMICOLON
f
€
w 

û£
+”ˆ Œ ÿÿÎ Ð 


OBASICCODETOOLS_$$_REMOVEPROCSPECIFIER$ANSISTRING$ANSISTRING$BOOLEAN$$ANSISTRING[øùú+"dProcText
g
$

• ž 

,"e	Specifier
g
.

  © 
1"fNestedComments
h

« ´ 
/g$defNESTEDCOMMENTS
h
€
º 
*"h$result


à AÌ 
û·
+•Ö Ú ÿÿ2!4!
;

cBASICCODETOOLS_$$_SEARCHCODEINSOURCE$ANSISTRING$ANSISTRING$LONGINT$LONGINT$BOOLEAN$BOOLEAN$$LONGINT[øùú)"jSource
k
#

ã ì 

'"kFind
k
+

î ÷ 
+"lStartPos
k
9
ù !
3"mEndFoundPosition
l
!
!(
0"n
CaseSensitive
l
#
!!2
1"oNestedComments
m

!#!<
/p$defNESTEDCOMMENTS
m
€
)!
û¯
+–:!>!ÿÿ£!¥!


[BASICCODETOOLS_$$_READNEXTPASCALATOM$ANSISTRING$LONGINT$LONGINT$BOOLEAN$BOOLEAN$$ANSISTRING[øùú)"rSource
n
#

G!P!

+"sPosition
o

R![!
,"t	AtomStart
o

]!f!
1"uNestedComments
o
3
h!q!(
/v$defNESTEDCOMMENTS
o
3€
w!
1"wSkipDirectives
p

€!‰!2
/x$defSKIPDIRECTIVES
p
€
!
*"y$result

˜!A¡!
û¦
+—«!¯!ÿÿ	""

RBASICCODETOOLS_$$_READRAWNEXTPASCALATOM$ANSISTRING$LONGINT$LONGINT$BOOLEAN$BOOLEAN[øùú)"{Source
q
'

¸!Á!

+"|Position
r
Ã!Ì!
,"}	AtomStart
r
Î!×!
1"~NestedComments
s

Ù!â!(
/$defNESTEDCOMMENTS
s
€
è!
1"€SkipDirectives
s
%
ñ!ú!2
/$defSKIPDIRECTIVES
s
%€
"
û
+˜""ÿÿs"u"
*
IBASICCODETOOLS_$$_READRAWNEXTPASCALATOM$PCHAR$PCHAR$PCHAR$BOOLEAN$BOOLEAN[øùú+"‚Position
t
%"'"

,"ƒ	AtomStart
t
:)"2"
)"„SrcEnd
u



4"="
…
$defSRCEND
u

€1"†NestedComments
u

C"L"(
/‡$defNESTEDCOMMENTS
u
€
R"
1"ˆSkipDirectives
v

["d"2
/‰$defSKIPDIRECTIVES
v
€
j"
ûœ
+™{""ÿÿÁ"Ã"
;
HBASICCODETOOLS_$$_READPRIORPASCALATOM$ANSISTRING$LONGINT$LONGINT$BOOLEAN[øùú)"‹Source
w
%

ˆ"‘"

+"ŒPosition
x

“"œ"
*"AtomEnd
x
ž"§"
1"ŽNestedComments
x
0
©"²"(
/$defNESTEDCOMMENTS
x
0€
¸"
û£
+šÉ"Í"ÿÿ##
±	

OBASICCODETOOLS_$$_READTILPASCALBRACKETCLOSE$ANSISTRING$LONGINT$BOOLEAN$$BOOLEAN[øùú)"‘Source
y
*

Ö"ß"

+"’Position
z

á"ê"
1"“NestedComments
z

ì"õ"
/”$defNESTEDCOMMENTS
z
€
û"
ûŠ
+›##ÿÿ/#1#
Ü	

6BASICCODETOOLS_$$_GETATOMLENGTH$PCHAR$BOOLEAN$$LONGINT[øùú$"–
p
{

#"#

1"—NestedComments
{
"
$#-#
û
+œ7#;#ÿÿe#g#
h


9BASICCODETOOLS_$$_GETATOMSTRING$PCHAR$BOOLEAN$$ANSISTRING[øùú$"™
p
|

D#M#

1"šNestedComments
|
"
O#X#
*"›$result
h


Z#Ac#
û‘
+m#q#ÿÿ#’#
s


=BASICCODETOOLS_$$_FINDSTARTOFATOM$ANSISTRING$LONGINT$$LONGINT[øùú)"Source
}
 

z#ƒ#

+"žPosition
}
0
…#Ž#
û
+ž˜#œ#ÿÿ»#½#
F

;BASICCODETOOLS_$$_FINDENDOFATOM$ANSISTRING$LONGINT$$LONGINT[øùú)" Source
~


¥#®#

+"¡Position
~
.
°#¹#
û
ù
ú“
BasicCodeTools
*

system
*

objpas
*
Classes
+
SysUtils
+
AVL_Tree
+
	SourceLog
+ 
	KeywordFuncLists
++

	FileProcs
+=
LazFileUtils
,
LazUTF8
,

strutils
,$
FindNextNonSpace
2

Ã#$
FindPrevNonSpace
3

É#&
FindCommentEnd
4
@Ï#Õ# 
IsCommentEnd
7

Û##
FindNextComment
8

á#'
"FindCommentsInRange
:
ç#-
,FindNextCompilerDirective
=

í#5
0!FindNextCompilerDirectiveWithName
?

ó#,
6FindNextIncludeDirective
B

ù#(
>FindNextIDEDirective
F

ÿ#)
DCleanCodeFromComments
H

$)
JExtractCommentContent
J

$$
UFindMainUnitHint
N

$
XInEmptyLine
O

$)
[SkipResourceDirective
P

$!
`
GetLineIndent
T

#$)
cGetLineIndentWithTabs
U

)$ 
gGetPosInLine
W

/$%
jGetBlockMinIndent
X

5$ 
nGetIndentStr
Z

;$
s
IndentText
[
A$/
xFindFirstNonSpaceCharInLine
]

G$-
{IsFirstNonSpaceCharInLine
_

M$#
~GuessIndentSize
a
S$
…ReIndent
c

Y$.
ŒGetIdentStartEndAtPosition
g
_$)
‘GetIdentStartPosition
i

e$
”GetIdentLen
j

k$!
–
GetIdentifier
k

q$&
™FindNextIdentifier
l

w$1
FindNextIdentifierSkipStrings
m

}$(
¡IsValidIdentPair
o
ƒ$‰$#
¦SrcPosToLineCol
t

$-
«GetLineStartEndAtPosition
v
•$(
°GetLineStartPosition
x

›$ 
³GetLineInSrc
y

¡$(
·LineEndCount
z
§$­$³$&
¿EmptyCodeLineCount
~

¹$'
ÄPositionsInSameLine
€

¿$6
È"FindLineEndOrCodeInFrontOfPosition
‚

Å$2
ÓFindLineEndOrCodeAfterPosition
†

Ë$3
ÞFindFirstLineEndInFrontOfInCode
Š

Ñ$/
ãFindFirstLineEndAfterInCode
Œ

×$&
èChompLineEndsAtEnd
Ž

Ý$(
ëChompOneLineEndAtEnd


ã$ 
îTrimLineEnds


é$!
ó
GetBracketLvl
“

ï$+
øReplacementNeedsLineEnd
—

õ$3
þCountNeededLineEndsToAddForward
™

û$4

 CountNeededLineEndsToAddBackward
›


%-

AdjustPositionAfterInsert

%#

CompareText
¡
@
%%!


CompareTextCT
£
@
%0

CompareTextIgnoringSpace
§
%%%<
&
(CompareAnsiStringIgnoringSpaceIgnoreCase
«

+%%
)
CompareSubStrings
¬

1%&
0
CompareIdentifiers
®

7%3
3
CompareIdentifiersCaseSensitive
¯

=%)
6
CompareIdentifierPtrs
°

C%&
9
ComparePrefixIdent
±

I%"
<
TextBeginsWith
²

O%!
B

StrBeginsWith
´

U%!
E

IdentifierPos
µ

[%
H
CompareAtom
¶

a%*
L
CompareStringConstants
·

g%#
O
CompareComments
¸

m%
S
FindDiff
¹

s%
V
dbgsDiff
º
@
y%*
Z
DottedIdentifierLength
½

%'
\
GetDottedIdentifier
¾

…%&
_
IsDottedIdentifier
¿

‹%,
a
CompareDottedIdentifiers
À

‘%!
d

TrimCodeSpace
Ã

—%#
g
CodeIsOnlySpace
Ä

%'
k
StringToPascalConst
Å

£%'
n
SplitStringConstant
È

©%.
u
ImproveStringConstantStart
Ë
¯%,
x
ImproveStringConstantEnd
Ì
µ%"
{
HexStrToIntDef
Í

»%$
~
SearchNextInText
Ð

Á%
Š

HasTxtWord
Õ
Ç%

	SubString
Ù
@
Í%#
“

TUnitFileInfo
àÓ%$
§
TNameSpaceInfo
îÙ%4
´
 AddToTreeOfUnitFilesOrNamespaces
û
ß%#
»
GatherUnitFiles
ÿ

å%(
Ä
FreeTreeOfUnitFiles


ë%)
Æ
AddToTreeOfUnitFiles


ñ%*
Ë
AddToTreeOfNamespaces


÷%)
Ð
CompareUnitFileInfos
	


ý%*
Ó
CompareNameSpaceInfos




&3
Ö
CompareUnitNameAndUnitFileInfo



	&5
Ù
 CompareNameSpaceAndNameSpaceInfo




&#
Ü
FindSourceType



&*
á
RenameProgramInSource



&,
ä
FindProgramNameInSource



!&'
é
RenameUnitInSource
"


'&)
ì
FindUnitNameInSource
#


-&'
ñ
UnitIsUsedInSource
'


3&3
ô
RenameUnitInProgramUsesSection
(


9&,
ù
AddToProgramUsesSection
*


?&1
ý
RemoveFromProgramUsesSection
,


E&5
 RenameUnitInInterfaceUsesSection
.


K&.
AddToInterfaceUsesSection
0


Q&3
	RemoveFromInterfaceUsesSection
2


W&,
IsUnitUsedInUsesSection
6


]&,
RenameUnitInUsesSection
8


c&)
AddUnitToUsesSection
:


i&.
RemoveUnitFromUsesSection
<


o&)
FindIncludeDirective
@


u&+
%SplitCompilerDirective
B


{&+
)AddCreateFormToProgram
F


&0
-RemoveCreateFormFromProgram
H


‡&.
1CreateFormExistsInProgram
J


&0
5ListAllCreateFormsInProgram
L


“&'
7FindResourceInCode
O


™&$
<AddResourceCode
Q


Ÿ&4
?FindFormClassDefinitionInSource
T


¥&.
DFindFormComponentInSource
V


«&-
IAddFormComponentToSource
Y


±&2
NRemoveFormComponentFromSource
[


·&*
SFindClassAncestorName
^


½&+
WFindFirstProcSpecifier
a


Ã&(
[SearchProcSpecifier
c


É&(
cRemoveProcSpecifier
g


Ï&'
iSearchCodeInSource
k


Õ&'
qReadNextPascalAtom
n


Û&.
zReadRawNextPascalAtom
q
á&ç&(
ŠReadPriorPascalAtom
w

í&.
ReadTilPascalBracketClose
y


ó&"
•
GetAtomLength
{


ù&"
˜
GetAtomString
|


ÿ&$
œFindStartOfAtom
}


'"
Ÿ
FindEndOfAtom
~


'/
¢
MaxLineLength
ƒ
'''
û



ý
[
ø—
+ŸC)G)	BASICCODETOOLS_$$_initÿÿ
P)R)
‰

INIT$_$BASICCODETOOLSBASICCODETOOLS_$$_init[øùúûŠ
+ X)\)ÿÿ{)})
‰

k*
.BASICCODETOOLS_$$_MIN$LONGINT$LONGINT$$LONGINT[øùú%"¥i1
‰

e)n)

%"¦i2
‰

p)y)
û[øùú%!§$result
‰


>*
G*(¨MIN
‰


I*
R*
T*+©RESULT
‰


Z*	c*
e*ûô

Pÿ,


Š

P@?q*@ÿ-

‹
,P@?z*ÿ.

‹
P@?|*ÿ

‹
P@?…*ÿ

‹
P@?Ž*ÿ—**ÿ

‹

P@?Ÿ*ÿ¨*®*°*ÿ

‹
P@?¹*ÿ

‹
P@?Â*ÿ	

‹
P@?Ë*ÿÔ*Ú*Ü*
ÿ


‹
P@?å*ÿî*ô*ÿ

‹
"P@?ö*ÿ

‹
"P@?ÿ*ÿ


‹
(P@?+ÿ+++
ÿ

‹
*P@?"+ÿ++1+ÿÿŠ
+¡ƒ)‡)ÿÿ¦)¨)
Ž

`+
.BASICCODETOOLS_$$_MAX$LONGINT$LONGINT$$LONGINT[øùú%"«i1
Ž

)™)

%"¬i2
Ž

›)¤)
û[øùú%!­$result
Ž


3+
<+(®MAX
Ž


>+
G+
I++¯RESULT
Ž


O+	X+
Z+ûô

Pÿ,




P@?f+@ÿ-


,P@?o+ÿ.


P@?q+ÿ



P@?z+ÿ


P@?ƒ+ÿŒ+’+ÿ



P@?”+ÿ+£+¥+ÿ


P@?®+ÿ


P@?·+ÿ	


P@?À+ÿÉ+Ï+Ñ+
ÿ



P@?Ú+ÿã+é+ÿ


"P@?ë+ÿ


"P@?ô+ÿ



(P@?ý+ÿ,,,
ÿ


*P@?,ÿ ,&,ÿÿ
)§®)²)

)¨»)¿)

)
È)Ì)

)÷
Õ)Ù)

)ý
â)æ)
,
*Fï)ó)ü)

[
ø
ù
ú
û
)Ü*	*

)ß**

)æ*#*

ù
ú,
£$BASICCODETOOLS_$$_init
‰


,*
¤Min
‰


2*
ªMax
Ž


8*
û8
S(,1,:,@,F, O,#
ÿ