home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 2010 Software/Programs / PCGuia_programas.iso / Software / Utils / Universal Viewer / UniversalViewer.exe / Plugins / Syn2 / HL / VBscript.lcf < prev    next >
Encoding:
Text File  |  2007-12-12  |  14.6 KB  |  603 lines
  1. object SyntAnal36: TLibSyntAnalyzer
  2.   Formats = <
  3.     item
  4.       DisplayName = 'Default'
  5.       Font.Charset = DEFAULT_CHARSET
  6.       Font.Color = clWindowText
  7.       Font.Height = -13
  8.       Font.Name = 'Courier New'
  9.       Font.Style = []
  10.       FormatType = ftCustomFont
  11.     end
  12.     item
  13.       DisplayName = 'Marked block'
  14.       Font.Charset = DEFAULT_CHARSET
  15.       Font.Color = clHighlightText
  16.       Font.Height = -13
  17.       Font.Name = 'Courier New'
  18.       Font.Style = []
  19.       BgColor = clHighlight
  20.       FormatType = ftColor
  21.     end
  22.     item
  23.       DisplayName = 'Current Line'
  24.       Font.Charset = RUSSIAN_CHARSET
  25.       Font.Color = clWindowText
  26.       Font.Height = -13
  27.       Font.Name = 'Courier New'
  28.       Font.Style = []
  29.       BgColor = 16772341
  30.       FormatType = ftBackGround
  31.     end
  32.     item
  33.       DisplayName = 'Search Match'
  34.       Font.Charset = DEFAULT_CHARSET
  35.       Font.Color = clWindow
  36.       Font.Height = -16
  37.       Font.Name = 'Courier New'
  38.       Font.Style = [fsBold]
  39.       BgColor = clBlack
  40.     end
  41.     item
  42.       DisplayName = 'Comment'
  43.       Font.Charset = DEFAULT_CHARSET
  44.       Font.Color = cl3DDkShadow
  45.       Font.Height = -13
  46.       Font.Name = 'Courier New'
  47.       Font.Style = [fsItalic]
  48.       BgColor = clInfoBk
  49.     end
  50.     item
  51.       DisplayName = 'Identifier'
  52.       Font.Charset = DEFAULT_CHARSET
  53.       Font.Color = clWindowText
  54.       Font.Height = -13
  55.       Font.Name = 'Courier New'
  56.       Font.Style = []
  57.     end
  58.     item
  59.       DisplayName = 'String'
  60.       Font.Charset = DEFAULT_CHARSET
  61.       Font.Color = clBlue
  62.       Font.Height = -13
  63.       Font.Name = 'Courier New'
  64.       Font.Style = []
  65.     end
  66.     item
  67.       DisplayName = 'Number'
  68.       Font.Charset = DEFAULT_CHARSET
  69.       Font.Color = clNavy
  70.       Font.Height = -13
  71.       Font.Name = 'Courier New'
  72.       Font.Style = [fsBold]
  73.     end
  74.     item
  75.       DisplayName = 'Symbol'
  76.       Font.Charset = DEFAULT_CHARSET
  77.       Font.Color = clMaroon
  78.       Font.Height = -13
  79.       Font.Name = 'Courier New'
  80.       Font.Style = [fsBold]
  81.     end
  82.     item
  83.       DisplayName = 'Reserved word'
  84.       Font.Charset = DEFAULT_CHARSET
  85.       Font.Color = clWindowText
  86.       Font.Height = -13
  87.       Font.Name = 'Courier New'
  88.       Font.Style = [fsBold]
  89.     end
  90.     item
  91.       DisplayName = 'Function separator'
  92.       Font.Charset = DEFAULT_CHARSET
  93.       Font.Color = clWindowText
  94.       Font.Height = -13
  95.       Font.Name = 'Courier New'
  96.       Font.Style = []
  97.       BgColor = clGradientActiveCaption
  98.     end
  99.     item
  100.       DisplayName = 'Function background'
  101.       Font.Charset = DEFAULT_CHARSET
  102.       Font.Color = clWindowText
  103.       Font.Height = -13
  104.       Font.Name = 'Courier New'
  105.       Font.Style = []
  106.       BgColor = 16774389
  107.       FormatType = ftBackGround
  108.     end
  109.     item
  110.       DisplayName = 'Current block bound'
  111.       Font.Charset = RUSSIAN_CHARSET
  112.       Font.Color = clMaroon
  113.       Font.Height = -13
  114.       Font.Name = 'Courier New'
  115.       Font.Style = [fsBold]
  116.       BgColor = 13369046
  117.       FormatType = ftColor
  118.       BorderTypeLeft = blSolid
  119.       BorderColorLeft = clGray
  120.       BorderTypeTop = blSolid
  121.       BorderColorTop = clGray
  122.       BorderTypeRight = blSolid
  123.       BorderColorRight = clGray
  124.       BorderTypeBottom = blSolid
  125.       BorderColorBottom = clGray
  126.     end
  127.     item
  128.       DisplayName = 'Preprocessor'
  129.       Font.Charset = DEFAULT_CHARSET
  130.       Font.Color = clGreen
  131.       Font.Height = -13
  132.       Font.Name = 'Courier New'
  133.       Font.Style = [fsItalic]
  134.     end>
  135.   TokenRules = <
  136.     item
  137.       DisplayName = 'String'
  138.       StyleName = 'String'
  139.       TokenType = 4
  140.       Expression = 
  141.         '#if only one " string to end '#13#10'#of line will be highlighted, '#13#10'#' +
  142.         'otherwise after closing it '#13#10'#string will not be highlighted '#13#10'"' +
  143.         '.*?("|$)'#13#10
  144.       ColumnFrom = 0
  145.       ColumnTo = 0
  146.     end
  147.     item
  148.       DisplayName = 'end'
  149.       StyleName = 'Identifier'
  150.       TokenType = 2
  151.       Expression = 'end\b'#13#10
  152.       ColumnFrom = 0
  153.       ColumnTo = 0
  154.     end
  155.     item
  156.       DisplayName = 'Any name'
  157.       StyleName = 'Identifier'
  158.       TokenType = 2
  159.       Expression = '#first charecter can'#39't be digit'#13#10'[a-z_]\w*'
  160.       ColumnFrom = 0
  161.       ColumnTo = 0
  162.     end
  163.     item
  164.       DisplayName = 'Float'
  165.       StyleName = 'Number'
  166.       TokenType = 6
  167.       Expression = 
  168.         '#with exp. dot is optional '#13#10'\d+ \.? \d+ e [\+\-]? \d+ |'#13#10'#witho' +
  169.         'ut exp. dot is required'#13#10'\d+ \. \d+'#13#10' '
  170.       ColumnFrom = 0
  171.       ColumnTo = 0
  172.     end
  173.     item
  174.       DisplayName = 'Integer'
  175.       StyleName = 'Number'
  176.       TokenType = 5
  177.       Expression = '#any sequence of digits'#13#10'\d+'
  178.       ColumnFrom = 0
  179.       ColumnTo = 0
  180.     end
  181.     item
  182.       DisplayName = 'Comment'
  183.       StyleName = 'Comment'
  184.       TokenType = 1
  185.       Expression = '#all chars after '#39' to end of line'#13#10#39'.*'
  186.       ColumnFrom = 0
  187.       ColumnTo = 0
  188.     end
  189.     item
  190.       DisplayName = 'HEX'
  191.       StyleName = 'Number'
  192.       TokenType = 7
  193.       Expression = '#Hex is started with $ sign'#13#10'\$[\da-f]+'
  194.       ColumnFrom = 0
  195.       ColumnTo = 0
  196.     end
  197.     item
  198.       DisplayName = 'Symbol'
  199.       StyleName = 'Symbol'
  200.       TokenType = 3
  201.       Expression = '[/,\.;:\(\)=<>\+\-&%\$]+'
  202.       ColumnFrom = 0
  203.       ColumnTo = 0
  204.     end>
  205.   BlockRules = <
  206.     item
  207.       DisplayName = 'Key words'
  208.       StyleName = 'Reserved word'
  209.       BlockType = btTagDetect
  210.       ConditionList = <
  211.         item
  212.           TagList.Strings = (
  213.             'addressof'
  214.             'alias'
  215.             'and'
  216.             'appactivate'
  217.             'as'
  218.             'beep'
  219.             'binary'
  220.             'boolean'
  221.             'byref'
  222.             'byte'
  223.             'byval'
  224.             'call'
  225.             'case'
  226.             'chdir'
  227.             'chdrive'
  228.             'choose'
  229.             'close'
  230.             'const'
  231.             'currency'
  232.             'date'
  233.             'decimal'
  234.             'declare'
  235.             'deletesetting'
  236.             'dim'
  237.             'do'
  238.             'doevents'
  239.             'double'
  240.             'each'
  241.             'else'
  242.             'elseif'
  243.             'empty'
  244.             'end'
  245.             'enum'
  246.             'eqv'
  247.             'erase'
  248.             'error'
  249.             'event'
  250.             'exit'
  251.             'filecopy'
  252.             'for'
  253.             'friend'
  254.             'function'
  255.             'get'
  256.             'gosub'
  257.             'goto'
  258.             'if'
  259.             'imp'
  260.             'implements'
  261.             'in'
  262.             'input'
  263.             'integer'
  264.             'is'
  265.             'kill'
  266.             'let'
  267.             'lib'
  268.             'like'
  269.             'line'
  270.             'load'
  271.             'lock'
  272.             'long'
  273.             'loop'
  274.             'lset'
  275.             'new'
  276.             'next'
  277.             'not'
  278.             'null'
  279.             'object'
  280.             'on'
  281.             'optional'
  282.             'or'
  283.             'paramarray'
  284.             'private'
  285.             'property'
  286.             'public'
  287.             'return'
  288.             'select'
  289.             'set'
  290.             'single'
  291.             'static'
  292.             'step'
  293.             'stop'
  294.             'string'
  295.             'sub'
  296.             'switch'
  297.             'then'
  298.             'to'
  299.             'type'
  300.             'typeof'
  301.             'unlock'
  302.             'until'
  303.             'variant'
  304.             'wend'
  305.             'while'
  306.             'with'
  307.             'withevents'
  308.             'write'
  309.             'xor')
  310.           TokenTypes = 4
  311.           IgnoreCase = True
  312.         end>
  313.       HighlightPos = cpAny
  314.       IgnoreAsParent = False
  315.     end
  316.     item
  317.       DisplayName = 'Sub begin line break'
  318.       StyleName = 'Function separator'
  319.       BlockName = 'function'
  320.       NotParent = True
  321.       BlockType = btLineBreak
  322.       ConditionList = <
  323.         item
  324.           TagList.Strings = (
  325.             'function'
  326.             'sub')
  327.           TokenTypes = 4
  328.           IgnoreCase = True
  329.         end>
  330.       HighlightPos = cpAny
  331.       IgnoreAsParent = False
  332.     end
  333.     item
  334.       DisplayName = 'Sub end line break'
  335.       StyleName = 'Function separator'
  336.       BlockType = btLineBreak
  337.       ConditionList = <
  338.         item
  339.           TagList.Strings = (
  340.             'function'
  341.             'sub')
  342.           TokenTypes = 4
  343.           IgnoreCase = True
  344.         end
  345.         item
  346.           TagList.Strings = (
  347.             'end')
  348.           TokenTypes = 4
  349.           IgnoreCase = True
  350.         end>
  351.       LinePos = lbBottom
  352.       HighlightPos = cpAny
  353.       IgnoreAsParent = False
  354.     end
  355.     item
  356.       DisplayName = 'Sub end'
  357.       BlockType = btRangeEnd
  358.       ConditionList = <
  359.         item
  360.           TagList.Strings = (
  361.             'function'
  362.             'sub')
  363.           TokenTypes = 4
  364.           IgnoreCase = True
  365.         end
  366.         item
  367.           TagList.Strings = (
  368.             'end')
  369.           TokenTypes = 4
  370.           IgnoreCase = True
  371.         end>
  372.       HighlightPos = cpAny
  373.       CancelNextRules = True
  374.       IgnoreAsParent = False
  375.     end
  376.     item
  377.       DisplayName = 'function'
  378.       StyleName = 'Function background'
  379.       ConditionList = <
  380.         item
  381.           TagList.Strings = (
  382.             'function'
  383.             'sub')
  384.           TokenTypes = 4
  385.           IgnoreCase = True
  386.         end>
  387.       BlockEnd = 'Sub end'
  388.       Highlight = True
  389.       NameFmt = '%s0 %s-1'
  390.       DynHighlight = dhRange
  391.       HighlightPos = cpAny
  392.       CollapseFmt = '%s0 %s-1'
  393.       TreeItemStyle = 'Reserved word'
  394.       TreeItemImage = 5
  395.       IgnoreAsParent = False
  396.     end
  397.     item
  398.       DisplayName = 'Begin'
  399.       StyleName = 'Current block bound'
  400.       ConditionList = <
  401.         item
  402.           TagList.Strings = (
  403.             'end')
  404.           CondType = tcNotEqual
  405.           TokenTypes = 4
  406.           IgnoreCase = True
  407.         end
  408.         item
  409.           TagList.Strings = (
  410.             'if'
  411.             'property'
  412.             'select'
  413.             'type'
  414.             'with')
  415.           TokenTypes = 4
  416.           IgnoreCase = True
  417.         end
  418.         item
  419.           TagList.Strings = (
  420.             'end')
  421.           CondType = tcNotEqual
  422.           TokenTypes = 4
  423.           IgnoreCase = True
  424.         end>
  425.       IdentIndex = 1
  426.       BlockOffset = 1
  427.       BlockEnd = 'End'
  428.       DisplayInTree = False
  429.       DynHighlight = dhBound
  430.       HighlightPos = cpRange
  431.       DynSelectMin = True
  432.       CollapseFmt = '%s1 ...'
  433.       IgnoreAsParent = False
  434.     end
  435.     item
  436.       DisplayName = 'End'
  437.       BlockType = btRangeEnd
  438.       ConditionList = <
  439.         item
  440.           TokenTypes = 4
  441.         end
  442.         item
  443.           TagList.Strings = (
  444.             'end')
  445.           TokenTypes = 4
  446.           IgnoreCase = True
  447.         end>
  448.       SameIdent = True
  449.       HighlightPos = cpAny
  450.       IgnoreAsParent = False
  451.     end
  452.     item
  453.       DisplayName = 'Block comment'
  454.       BlockName = 'Block comment'
  455.       NotParent = True
  456.       ConditionList = <
  457.         item
  458.           TokenTypes = 2
  459.         end>
  460.       BlockEnd = 'Block comment end'
  461.       DisplayInTree = False
  462.       HighlightPos = cpAny
  463.       IgnoreAsParent = False
  464.     end
  465.     item
  466.       DisplayName = 'Block comment end'
  467.       BlockType = btRangeEnd
  468.       ConditionList = <
  469.         item
  470.           TokenTypes = 509
  471.         end
  472.         item
  473.           TokenTypes = 2
  474.         end>
  475.       BlockOffset = 1
  476.       HighlightPos = cpAny
  477.       IgnoreAsParent = False
  478.     end
  479.     item
  480.       DisplayName = 'Dim decl'
  481.       ConditionList = <
  482.         item
  483.           TokenTypes = 4
  484.         end
  485.         item
  486.           TagList.Strings = (
  487.             'dim')
  488.           TokenTypes = 4
  489.           IgnoreCase = True
  490.         end>
  491.       NotCollapsed = True
  492.       GroupFmt = 'Variables'
  493.       HighlightPos = cpAny
  494.       NoEndRule = True
  495.       TreeItemImage = 4
  496.       TreeGroupImage = 0
  497.       IgnoreAsParent = False
  498.     end
  499.     item
  500.       DisplayName = '('
  501.       StyleName = 'Current block bound'
  502.       ConditionList = <
  503.         item
  504.           TagList.Strings = (
  505.             '(')
  506.           TokenTypes = 8
  507.         end>
  508.       BlockEnd = ')'
  509.       NotCollapsed = True
  510.       DisplayInTree = False
  511.       DynHighlight = dhBound
  512.       HighlightPos = cpBoundTagBegin
  513.       DynSelectMin = True
  514.       IgnoreAsParent = False
  515.     end
  516.     item
  517.       DisplayName = ')'
  518.       BlockType = btRangeEnd
  519.       ConditionList = <
  520.         item
  521.           TagList.Strings = (
  522.             ')')
  523.           TokenTypes = 8
  524.         end>
  525.       HighlightPos = cpAny
  526.       IgnoreAsParent = False
  527.     end
  528.     item
  529.       DisplayName = '['
  530.       ConditionList = <
  531.         item
  532.           TagList.Strings = (
  533.             '[')
  534.           TokenTypes = 8
  535.         end>
  536.       BlockEnd = ']'
  537.       NotCollapsed = True
  538.       DisplayInTree = False
  539.       DynHighlight = dhBound
  540.       HighlightPos = cpBoundTagBegin
  541.       DynSelectMin = True
  542.       IgnoreAsParent = False
  543.     end
  544.     item
  545.       DisplayName = ']'
  546.       BlockType = btRangeEnd
  547.       ConditionList = <
  548.         item
  549.           TagList.Strings = (
  550.             ']')
  551.           TokenTypes = 8
  552.         end>
  553.       HighlightPos = cpAny
  554.       IgnoreAsParent = False
  555.     end>
  556.   CodeTemplates = <>
  557.   SubAnalyzers = <>
  558.   SampleText.Strings = (
  559.     #39' Syntax highlighting'
  560.     'Function PrintNumber'
  561.     '  Dim Number'
  562.     '  Dim X      34.4e+5'
  563.     ''
  564.     '  Number = 123456'
  565.     '  Response.Write "The number is " & number'
  566.     '             '
  567.     '  For I = 0 To Number'
  568.     '    X = X + &h4c'
  569.     '    X = X - &o8'
  570.     '    X = X + 1.0'
  571.     '  Next'
  572.     ''
  573.     '  I = I + @;  '
  574.     'End Function')
  575.   TokenTypeNames.Strings = (
  576.     'Unknown'
  577.     'Comment'
  578.     'Identifier'
  579.     'Symbol'
  580.     'String'
  581.     'Integer const'
  582.     'Float const'
  583.     'Hex const'
  584.     'Char const')
  585.   Gramma.Gramma = 
  586.     'Skip = <Comment>;'#13#10#13#10'// Used'#13#10'NameDetector = <Identifier> Braket' +
  587.     '? '#39'.'#39';'#13#10#13#10'FuncCall = <Identifier> Braket;'#13#10#13#10'Braket = Braket1 | ' +
  588.     'Braket2;'#13#10#13#10'Braket1 = LeftBraket1 '#39')'#39';'#13#10#13#10'LeftBraket1 = LeftBrak' +
  589.     'et1 <Unknown> |'#13#10'             '#39'('#39';'#13#10'             '#13#10'Braket2 = Lef' +
  590.     'tBraket2 '#39']'#39';'#13#10#13#10'LeftBraket2 = LeftBraket2 <Unknown> |'#13#10'        ' +
  591.     '     '#39'['#39';'
  592.   MarkedBlockStyle = 'Marked block'
  593.   SearchMatchStyle = 'Search Match'
  594.   CurrentLineStyle = 'Current Line'
  595.   DefaultStyleName = 'Default'
  596.   Extentions = 'vb'
  597.   LexerName = 'VB script'
  598.   Internal = True
  599.   LineComment = #39
  600.   Left = 144
  601.   Top = 184
  602. end
  603.