83 lines
2.1 KiB
Plaintext
83 lines
2.1 KiB
Plaintext
|
0 400 0 // Enumerate all primary styles: 0 to 14
|
||
|
|
1 400 0
|
||
|
|
2 400 0 + {
|
||
|
|
0 401 0 | SCE_PAS_DEFAULT=0
|
||
|
|
0 401 0 | SCE_PAS_IDENTIFIER=1
|
||
|
|
0 401 0 | SCE_PAS_COMMENT=2
|
||
|
|
0 401 0 | SCE_PAS_COMMENT2=3
|
||
|
|
0 401 0 | SCE_PAS_COMMENTLINE=4
|
||
|
|
0 401 0 | SCE_PAS_PREPROCESSOR=5
|
||
|
|
0 401 0 | SCE_PAS_PREPROCESSOR2=6
|
||
|
|
0 401 0 | SCE_PAS_NUMBER=7
|
||
|
|
0 401 0 | SCE_PAS_HEXNUMBER=8
|
||
|
|
0 401 0 | SCE_PAS_WORD=9
|
||
|
|
0 401 0 | SCE_PAS_STRING=10
|
||
|
|
0 401 0 | SCE_PAS_STRINGEOL=11
|
||
|
|
0 401 0 | SCE_PAS_CHARACTER=12
|
||
|
|
0 401 0 | SCE_PAS_OPERATOR=13
|
||
|
|
0 401 0 | SCE_PAS_ASM=14
|
||
|
|
0 401 0 | }
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // default=0
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // identifier=1
|
||
|
|
0 400 0 function functionname(var paramerter1: type1):result1;
|
||
|
|
0 400 0 procedure procedurename(const parameter2: type2);
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // comment=2
|
||
|
|
0 400 0 {comment text}
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // comment2=3
|
||
|
|
0 400 0 (* comment text *)
|
||
|
|
1 400 0
|
||
|
|
2 400 0 + // commentline=4
|
||
|
|
0 401 0 | // example line
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // preprocessor=5
|
||
|
|
0 400 0 {$DEFINE xyz}
|
||
|
|
1 400 0
|
||
|
|
2 400 0 + {$IFDEF xyz}
|
||
|
|
0 401 0 | codeblock 1
|
||
|
|
0 401 0 | {$else}
|
||
|
|
0 401 0 | codeblock 2
|
||
|
|
0 401 0 | {$endif}
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // preprocessor2=6
|
||
|
|
0 400 0 (*$DEFINE xyz*)
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // number=7
|
||
|
|
0 400 0 123
|
||
|
|
0 400 0 1.23
|
||
|
|
0 400 0 -123
|
||
|
|
0 400 0 -12.3
|
||
|
|
0 400 0 +123
|
||
|
|
0 400 0 123
|
||
|
|
0 400 0 1.23e2
|
||
|
|
0 400 0 -1.23E2
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // hexnumber=8
|
||
|
|
0 400 0 $123
|
||
|
|
0 400 0 $123ABCDEF
|
||
|
|
0 400 0 $ABCDEF123
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // word=9
|
||
|
|
0 400 0 absolute abstract and array as
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // string=10
|
||
|
|
0 400 0 'string'
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // stringeol=11
|
||
|
|
0 400 0 'string
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // character=12
|
||
|
|
0 400 0 #65
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // operator=13
|
||
|
|
0 400 0 $ & * + / < = > ^
|
||
|
|
1 400 0
|
||
|
|
0 400 0 // asm
|
||
|
|
2 400 0 + asm
|
||
|
|
0 401 0 | this is
|
||
|
|
0 401 0 | inside assembler
|
||
|
|
0 401 0 | end
|
||
|
|
1 400 0
|