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