home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / Chip_2004-10_cd1.bin / software / code / setup.exe / Syntax Definitions / objectpascal.def < prev    next >
Encoding:
Text File  |  2001-11-01  |  11.5 KB  |  401 lines
  1. object TPersHolder
  2.   P.Name = 'Object Pascal'
  3.   P.SyntaxBlocks = <
  4.     item
  5.       Name = 'Default'
  6.       ID = 0
  7.       FIText = 0
  8.       FIIntNum = 1
  9.       FIFloatNum = 2
  10.       FIHexNum = 3
  11.       FISymbol = 21
  12.       UseSymbols = True
  13.       UseComments = True
  14.       UseSingleLineComments = True
  15.       UseMultiLineComments = True
  16.       UseStrings = True
  17.       UseSingleLineStrings = True
  18.       UseNumbers = True
  19.       UsePrefixedNumbers = True
  20.       UseKeywords = True
  21.       BlockDelimiters = <>
  22.       SingleLineCommentDelimiters = <
  23.         item
  24.           FontID = 4
  25.           LeftDelimiter = '//'
  26.         end>
  27.       MultiLineCommentDelimiters = <
  28.         item
  29.           FontID = 5
  30.           LeftDelimiter = '{'
  31.           RightDelimiter = '}'
  32.         end
  33.         item
  34.           FontID = 6
  35.           LeftDelimiter = '(*'
  36.           RightDelimiter = '*)'
  37.         end>
  38.       SingleLineStringDelimiters = <
  39.         item
  40.           FontID = 7
  41.           LeftDelimiter = #39
  42.           RightDelimiter = #39
  43.         end>
  44.       NumPrefixes = <
  45.         item
  46.           LeftDelimiter = '$'
  47.         end
  48.         item
  49.           LeftDelimiter = '#$'
  50.         end
  51.         item
  52.           LeftDelimiter = '#'
  53.         end>
  54.       KeywordSets = <
  55.         item
  56.           FontID = 8
  57.           Name = 'reserved'
  58.           Keywords = 
  59.             'absolute,abstract,and,array,as,asm,assembler,at,automated,begin,' +
  60.             'case,cdecl,class,const,constructor,contains,default,destructor,d' +
  61.             'ispid,dispinterface,div,do,downto,dynamic,else,end,except,export' +
  62.             ',exports,external,far,file,finalization,finally,for,forward,func' +
  63.             'tion,goto,if,implementation,implements,in,index,inherited,initia' +
  64.             'lization,inline,interface,is,label,library,message,mod,name,near' +
  65.             ',nil,nodefault,not,object,of,on,or,out,overload,override,package' +
  66.             ',packed,pascal,private,procedure,program,property,protected,publ' +
  67.             'ic,published,raise,read,readonly,record,register,reintroduce,rep' +
  68.             'eat,requires,resident,resourcestring,safecall,set,shl,shr,stdcal' +
  69.             'l,stored,string,then,threadvar,to,try,type,unit,until,uses,var,v' +
  70.             'irtual,while,with,write,writeonly,xor'
  71.         end>
  72.     end
  73.     item
  74.       Name = 'Assembler'
  75.       ID = 1
  76.       ParentID = 0
  77.       FIText = 9
  78.       FIIntNum = 10
  79.       FIFloatNum = 11
  80.       FIHexNum = 22
  81.       UseComments = True
  82.       UseSingleLineComments = True
  83.       UseMultiLineComments = True
  84.       UseStrings = True
  85.       UseSingleLineStrings = True
  86.       UseNumbers = True
  87.       UsePrefixedNumbers = True
  88.       UseSuffixedNumbers = True
  89.       UseMultipleNumSuffixes = False
  90.       UsePrefixedIdentifiers = True
  91.       UseKeywords = True
  92.       BlockDelimiters = <
  93.         item
  94.           LeftDelimiter = 'asm'
  95.           RightDelimiter = 'end'
  96.         end>
  97.       SingleLineCommentDelimiters = <
  98.         item
  99.           FontID = 13
  100.           LeftDelimiter = '//'
  101.         end>
  102.       MultiLineCommentDelimiters = <
  103.         item
  104.           FontID = 14
  105.           LeftDelimiter = '{'
  106.           RightDelimiter = '}'
  107.         end
  108.         item
  109.           FontID = 15
  110.           LeftDelimiter = '(*'
  111.           RightDelimiter = '*)'
  112.         end>
  113.       SingleLineStringDelimiters = <
  114.         item
  115.           FontID = 16
  116.           LeftDelimiter = #39
  117.           RightDelimiter = #39
  118.         end
  119.         item
  120.           FontID = 17
  121.           LeftDelimiter = '"'
  122.           RightDelimiter = '"'
  123.         end>
  124.       NumPrefixes = <
  125.         item
  126.           LeftDelimiter = '$'
  127.         end>
  128.       NumSuffixes = <
  129.         item
  130.           LeftDelimiter = 'b'
  131.         end
  132.         item
  133.           LeftDelimiter = 'o'
  134.         end
  135.         item
  136.           LeftDelimiter = 'h'
  137.         end>
  138.       IdentPrefixes = <
  139.         item
  140.           LeftDelimiter = '@'
  141.         end>
  142.       KeywordSets = <
  143.         item
  144.           FontID = 18
  145.           Name = 'OpCodes'
  146.           Keywords = 
  147.             'AAA,AAD,AAM,AAS,ADC,ADD,AND,ARPL,BOUND,BSF,BSR,BSWAP,BT,BTC,BTR,' +
  148.             'BTS,CALL,CBW,CDQ,CLC,CLD,CLI,CLTS,CMC,CMP,CMPS,CMPSB,CMPSD,CMPSW' +
  149.             ',CMPXCHG,CWD,CWDE,DAA,DAS,DEC,DIV,ENTER,ESC,F2XM1,FABS,FADD,FADD' +
  150.             'P,FBLD,FBSTP,FCHS,FCLEX,FCOM,FCOMP,FCOMPP,FCOS,FDECSTP,FDISI,FDI' +
  151.             'V,FDIVP,FDIVR,FDIVRP,FENI,FFREE,FIADD,FICOM,FICOMP,FIDIV,FIDIVR,' +
  152.             'FILD,FIMUL,FINCSTP,FINIT,FIST,FISTP,FISUB,FISUBR,FLD,FLD1,FLDCW,' +
  153.             'FLDENV,FLDL2E,FLDL2T,FLDLG2,FLDLN2,FLDPI,FLDZ,FMUL,FMULP,FNCLEX,' +
  154.             'FNDISI,FNENI,FNINIT,FNOP,FNSAVE,FNSTCW,FNSTENV,FNSTSW,FPATAN,FPR' +
  155.             'EM,FPREM1,FPTAN,FRNDINT,FRSTOR,FSAVE,FSCALE,FSETPM,FSIN,FSINCOS,' +
  156.             'FSQRT,FST,FSTCW,FSTENV,FSTP,FSTSW,FSUB,FSUBP,FSUBR,FSUBRP,FTST,F' +
  157.             'UCOM,FUCOMP,FUCOMPP,FWAIT,FXAM,FXCH,FXTRACT,FYL2X,FYL2XP1,HLT,ID' +
  158.             'IV,IMUL,IN,INC,INSB,INSD,INSW,INT,INTO,INVD,INVLPG,IRET,IRETD,JA' +
  159.             ',JAE,JB,JBE,JC,JCXZ,JE,JECXZ,JG,JGE,JL,JLE,JMP,JNA,JNAE,JNB,JNBE' +
  160.             ',JNC,JNE,JNG,JNGE,JNL,JNLE,JNO,JNP,JNS,JNZ,JO,JP,JPE,JPO,JS,JZ,L' +
  161.             'AHF,LAR,LDS,LEA,LEAVE,LES,LFS,LGDT,LGS,LIDT,LLDT,LMSW,LOCK,LODS,' +
  162.             'LODSB,LODSD,LODSW,LOOP,LOOPD,LOOPDE,LOOPDNE,LOOPDNZ,LOOPDZ,LOOPE' +
  163.             ',LOOPNE,LOOPNZ,LOOPZ,LSL,LSS,LTR,MOV,MOVS,MOVSB,MOVSD,MOVSW,MOVS' +
  164.             'X,MOVZX,MUL,NEG,NOP,NOT,OR,OUT,OUTSB,OUTSD,OUTSW,POP,POPA,POPAD,' +
  165.             'POPF,POPFD,PUSH,PUSHA,PUSHAD,PUSHF,PUSHFD,RCL,RCR,REP,REPE,REPNE' +
  166.             ',REPNZ,REPZ,RET,RETF,RETN,ROL,ROR,SAHF,SAL,SAR,SBB,SCAS,SCASB,SC' +
  167.             'ASD,SCASW,SEGCS,SEGDS,SEGES,SEGFS,SEGGS,SEGSS,SETA,SETAE,SETB,SE' +
  168.             'TBE,SETC,SETE,SETG,SETGE,SETL,SETLE,SETNA,SETNAE,SETNB,SETNBE,SE' +
  169.             'TNC,SETNE,SETNG,SETNGE,SETNL,SETNLE,SETNO,SETNP,SETNS,SETNZ,SETO' +
  170.             ',SETP,SETPE,SETPO,SETS,SETZ,SGDT,SHL,SHLD,SHR,SHRD,SIDT,SLDT,SMS' +
  171.             'W,STC,STD,STI,STOS,STOSB,STOSD,STOSW,STR,SUB,TEST,VERR,VERW,WAIT' +
  172.             ',WBINVD,XADD,XCHG,XLAT,XOR'
  173.         end
  174.         item
  175.           FontID = 19
  176.           Name = 'Operands'
  177.           Keywords = 
  178.             'AH,AL,AND,AX,BH,BL,BP,BX,BYTE,CH,CL,CS,CX,DH,DI,DL,DS,DWORD,DX,E' +
  179.             'AX,EBP,EBX,ECX,EDI,EDX,EIP,ES,ESI,ESP,FS,GS,HIGH,LOW,MOD,NOT,OFF' +
  180.             'SET,OR,PTR,QWORD,SHL,SHR,SI,SP,SS,ST,TBYTE,TYPE,WORD,XOR'
  181.         end
  182.         item
  183.           FontID = 20
  184.           Name = 'Directives'
  185.           Keywords = 'DB,DD,DW'
  186.         end>
  187.     end>
  188.   P.FontTable = <
  189.     item
  190.       FontID = 0
  191.       GlobalAttrID = 'Whitespace'
  192.       Font.Charset = DEFAULT_CHARSET
  193.       Font.Color = clBlack
  194.       Font.Height = -13
  195.       Font.Name = 'Courier New'
  196.       Font.Style = []
  197.     end
  198.     item
  199.       FontID = 1
  200.       GlobalAttrID = 'Integer'
  201.       Font.Charset = DEFAULT_CHARSET
  202.       Font.Color = clGreen
  203.       Font.Height = -13
  204.       Font.Name = 'Courier New'
  205.       Font.Style = []
  206.     end
  207.     item
  208.       FontID = 2
  209.       GlobalAttrID = 'Float'
  210.       Font.Charset = DEFAULT_CHARSET
  211.       Font.Color = clGreen
  212.       Font.Height = -13
  213.       Font.Name = 'Courier New'
  214.       Font.Style = []
  215.     end
  216.     item
  217.       FontID = 3
  218.       GlobalAttrID = 'Integer'
  219.       Font.Charset = DEFAULT_CHARSET
  220.       Font.Color = clGreen
  221.       Font.Height = -13
  222.       Font.Name = 'Courier New'
  223.       Font.Style = []
  224.     end
  225.     item
  226.       FontID = 4
  227.       GlobalAttrID = 'Comment'
  228.       Font.Charset = DEFAULT_CHARSET
  229.       Font.Color = clGray
  230.       Font.Height = -13
  231.       Font.Name = 'Courier New'
  232.       Font.Style = [fsItalic]
  233.     end
  234.     item
  235.       FontID = 5
  236.       GlobalAttrID = 'Comment'
  237.       Font.Charset = DEFAULT_CHARSET
  238.       Font.Color = clGray
  239.       Font.Height = -13
  240.       Font.Name = 'Courier New'
  241.       Font.Style = [fsItalic]
  242.     end
  243.     item
  244.       FontID = 6
  245.       GlobalAttrID = 'Comment'
  246.       Font.Charset = DEFAULT_CHARSET
  247.       Font.Color = clGray
  248.       Font.Height = -13
  249.       Font.Name = 'Courier New'
  250.       Font.Style = [fsItalic]
  251.     end
  252.     item
  253.       FontID = 7
  254.       GlobalAttrID = 'String'
  255.       Font.Charset = DEFAULT_CHARSET
  256.       Font.Color = clMaroon
  257.       Font.Height = -13
  258.       Font.Name = 'Courier New'
  259.       Font.Style = []
  260.     end
  261.     item
  262.       FontID = 8
  263.       GlobalAttrID = 'Reserved words'
  264.       Font.Charset = DEFAULT_CHARSET
  265.       Font.Color = clBlue
  266.       Font.Height = -13
  267.       Font.Name = 'Courier New'
  268.       Font.Style = [fsBold]
  269.     end
  270.     item
  271.       FontID = 9
  272.       GlobalAttrID = 'Assembler'
  273.       BlockID = 1
  274.       Font.Charset = DEFAULT_CHARSET
  275.       Font.Color = clGreen
  276.       Font.Height = -13
  277.       Font.Name = 'Courier New'
  278.       Font.Style = []
  279.     end
  280.     item
  281.       FontID = 10
  282.       GlobalAttrID = 'Assembler'
  283.       BlockID = 1
  284.       Font.Charset = DEFAULT_CHARSET
  285.       Font.Color = clGreen
  286.       Font.Height = -13
  287.       Font.Name = 'Courier New'
  288.       Font.Style = [fsBold]
  289.     end
  290.     item
  291.       FontID = 11
  292.       GlobalAttrID = 'Assembler'
  293.       BlockID = 1
  294.       Font.Charset = DEFAULT_CHARSET
  295.       Font.Color = clGreen
  296.       Font.Height = -13
  297.       Font.Name = 'Courier New'
  298.       Font.Style = [fsBold]
  299.     end
  300.     item
  301.       FontID = 22
  302.       GlobalAttrID = 'Assembler'
  303.       BlockID = 1
  304.       Font.Charset = DEFAULT_CHARSET
  305.       Font.Color = clGreen
  306.       Font.Height = -13
  307.       Font.Name = 'Courier New'
  308.       Font.Style = [fsBold]
  309.     end
  310.     item
  311.       FontID = 13
  312.       GlobalAttrID = 'Comment'
  313.       BlockID = 1
  314.       Font.Charset = DEFAULT_CHARSET
  315.       Font.Color = clGray
  316.       Font.Height = -13
  317.       Font.Name = 'Courier New'
  318.       Font.Style = [fsItalic]
  319.     end
  320.     item
  321.       FontID = 14
  322.       GlobalAttrID = 'Comment'
  323.       BlockID = 1
  324.       Font.Charset = DEFAULT_CHARSET
  325.       Font.Color = clGray
  326.       Font.Height = -13
  327.       Font.Name = 'Courier New'
  328.       Font.Style = [fsItalic]
  329.     end
  330.     item
  331.       FontID = 15
  332.       GlobalAttrID = 'Comment'
  333.       BlockID = 1
  334.       Font.Charset = DEFAULT_CHARSET
  335.       Font.Color = clGray
  336.       Font.Height = -13
  337.       Font.Name = 'Courier New'
  338.       Font.Style = [fsItalic]
  339.     end
  340.     item
  341.       FontID = 16
  342.       GlobalAttrID = 'String'
  343.       BlockID = 1
  344.       Font.Charset = DEFAULT_CHARSET
  345.       Font.Color = clMaroon
  346.       Font.Height = -13
  347.       Font.Name = 'Courier New'
  348.       Font.Style = []
  349.     end
  350.     item
  351.       FontID = 17
  352.       GlobalAttrID = 'String'
  353.       BlockID = 1
  354.       Font.Charset = DEFAULT_CHARSET
  355.       Font.Color = clMaroon
  356.       Font.Height = -13
  357.       Font.Name = 'Courier New'
  358.       Font.Style = []
  359.     end
  360.     item
  361.       FontID = 18
  362.       GlobalAttrID = 'Assembler'
  363.       BlockID = 1
  364.       Font.Charset = DEFAULT_CHARSET
  365.       Font.Color = clGreen
  366.       Font.Height = -13
  367.       Font.Name = 'Courier New'
  368.       Font.Style = [fsBold]
  369.     end
  370.     item
  371.       FontID = 19
  372.       GlobalAttrID = 'Assembler'
  373.       BlockID = 1
  374.       Font.Charset = DEFAULT_CHARSET
  375.       Font.Color = clGreen
  376.       Font.Height = -13
  377.       Font.Name = 'Courier New'
  378.       Font.Style = [fsItalic]
  379.     end
  380.     item
  381.       FontID = 20
  382.       GlobalAttrID = 'Assembler'
  383.       BlockID = 1
  384.       Font.Charset = DEFAULT_CHARSET
  385.       Font.Color = clGreen
  386.       Font.Height = -13
  387.       Font.Name = 'Courier New'
  388.       Font.Style = [fsBold]
  389.     end
  390.     item
  391.       FontID = 21
  392.       GlobalAttrID = 'Delimiters'
  393.       Font.Charset = DEFAULT_CHARSET
  394.       Font.Color = clBlack
  395.       Font.Height = -13
  396.       Font.Name = 'Courier New'
  397.       Font.Style = []
  398.     end>
  399.   P.SyntaxVersion = 3
  400. end
  401.