home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 July
/
Chip_1999-07_cd.bin
/
ctenari
/
Token
/
TokenSrc.TXT
< prev
Wrap
Text File
|
1999-04-24
|
2KB
|
63 lines
TokenSrc je tokenizer a parser Delphi (Pascal) zdrojovych suborov pre
Delphi 4.
KEYWORD TYPE :
KeyWord = (swNone, swAmpersand, swAsciiChar, swBackSlash, swColon, swComment,
swCommentClose, swCommentOpen, swCommentSlash,
swDivide, swDollar, swDot, swDotDot, swDoubleDot, swEqual, swEOF,
swEOL, swExclamation, swExponent, swGreater, swGreaterEqual,
swLower, swLowerEqual, swLowerLine, swMinus, swNotEqual, swNumber,
swPercent, swPlus, swPound, swRoller, swRoundClose, swRoundOpen,
swSemiColon, swSlash, swSquareClose, swSquareOpen, swSpace, swStar,
swString, swTab, swTopColon,
swArray, swArrayParam, swCdeCl, swClass, swConst, swConstructor,
swDestructor, swDirective, swDynamic, swEnd, swExternal, swForward,
swFunction, swImplementation, swInterFace, swOverride, swPacked,
swPascal, swParam, swPrivate, swProcedure, swProperty, swProtected,
swPublic, swPublished, swRecord, swSafeCall, swSet, swStatic,
swStdCall, swType, swUnit, swUses, swVar, swVirtual, swName, swOf);
Vyctovy typ pre oznacenie tokenov.
KEYWORDS TYPE :
KeyWords = set of KeyWord;
Mnozinovy typ pre oznacenie kombinacii v strukture zdrojoveho kodu.
TTOKEN :
Popisuje jednotlive tokeny.
property Id : KeyWord - Zakladne oznacenie (; = swSemiColon, atd.)
property IdX : KeyWord - Oznacenie prislusnosti (konstanta = swConst)
property Data : String - Data tokenu (znak alebo retazec)
property DataUp : String - UpperCase Data tokenu.
property Ax : KeyWords - Celkove oznacenie prislusnosti (pre selektivny vyber
(napr. [swType, swClass, swPrivate])).
TTOKENLIST :
Objekt zapuzdrujuci vsetky metody, vlastnosti a udalosti.
function SetOrigin (FileName : TFileName)
Read FileName, proced tokenize, parse all token
and mark all structures.
property Items[Index : Integer] : TToken
Access to near single tokens.
...atd.
Unit P1String obsahuje niekolko spacializovanych metod pre pracu s retazcami.
Tento unit je moj vlastny product a je SHAREWARE.
Cena bez zdrojoveho kodu je 250 Sk.
Cena so zdrojovym kodom je 800 Sk.
V pripade zaujmu ma mozno kontaktovat na tel. 00421 07 4445 9964 alebo
e-mailom pet@pobox.sk, petersno@post.sk