PCGUIA 2010 Software/Programs/PCGuia_programas.iso/Software/Utils/Universal Viewer/UniversalViewer.exe/Plugins/Syn2/HL/PascalScript.lcf

Text File | 2007-12-12 | 16.2 KB | 731 lines

object SyntAnal20: TLibSyntAnalyzer
  Formats = <
    item
      DisplayName = 'Default'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      FormatType = ftCustomFont
    end
    item
      DisplayName = 'Symbol'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      DisplayName = 'Number'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      DisplayName = 'String'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      DisplayName = 'Identifier'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      DisplayName = 'Reserved word'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      DisplayName = 'Comment'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      DisplayName = 'Preprocessor'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      DisplayName = 'Marked block'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlightText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      BgColor = clHighlight
      FormatType = ftColor
    end
    item
      DisplayName = 'Function separator'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      BgColor = clRed
      FormatType = ftBackGround
    end
    item
      DisplayName = 'Current block'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      BgColor = clInactiveCaptionText
      FormatType = ftColor
    end
    item
      DisplayName = 'Current function'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      BgColor = 16769505
      FormatType = ftBackGround
    end>
  TokenRules = <
    item
      DisplayName = 'Any name'
      StyleName = 'Identifier'
      TokenType = 2
      Expression = '[a-z_]\w*'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'String'
      StyleName = 'String'
      TokenType = 4
      Expression = #39'.*?('#39'|$)'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Float'
      StyleName = 'Number'
      TokenType = 6
      Expression =
        '#with exp. dot is optional '#13#10'\d+ \.? \d+ e [\+\-]? \d+ |'#13#10'#witho' +
        'ut exp. dot is required'#13#10'\d+ \. \d+'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Integer'
      StyleName = 'Number'
      TokenType = 5
      Expression = '\d+'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Comment 1'
      StyleName = 'Comment'
      TokenType = 1
      Expression = '(?s)\(\*.*?(\*\)|\Z)'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Comment 2'
      StyleName = 'Comment'
      TokenType = 1
      Expression = '(?s)\{.*?(\}|\Z)'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Comment 3'
      StyleName = 'Comment'
      TokenType = 1
      Expression = '//.*'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'HEX'
      StyleName = 'Number'
      TokenType = 7
      Expression = '\$[a-f\d]+'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Symbol'
      StyleName = 'Symbol'
      TokenType = 3
      Expression = '[/\*,\.;:\(\)=<>\+\-\[\]]'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Char'
      StyleName = 'String'
      TokenType = 8
      Expression = '\#(\d+|\$[\da-f]+)'
      ColumnFrom = 0
      ColumnTo = 0
    end>
  BlockRules = <
    item
      DisplayName = 'Key words'
      StyleName = 'Reserved word'
      BlockType = btTagDetect
      ConditionList = <
        item
          TagList.Strings = (
            'abstract'
            'and'
            'array'
            'as'
            'asm'
            'begin'
            'case'
            'class'
            'const'
            'constructor'
            'contains'
            'destructor'
            'dispinterface'
            'div'
            'do'
            'downto'
            'dynamic'
            'else'
            'end'
            'except'
            'exports'
            'file'
            'finalization'
            'finally'
            'for'
            'function'
            'goto'
            'if'
            'implementation'
            'in'
            'index'
            'inherited'
            'initialization'
            'inline'
            'interface'
            'is'
            'label'
            'library'
            'mod'
            'nil'
            'not'
            'object'
            'of'
            'or'
            'out'
            'override'
            'package'
            'packed'
            'pascal'
            'private'
            'procedure'
            'program'
            'property'
            'protected'
            'public'
            'published'
            'raise'
            'read'
            'record'
            'register'
            'repeat'
            'requires'
            'resourcestring'
            'safecall'
            'set'
            'shl'
            'shr'
            'stdcall'
            'string'
            'then'
            'threadvar'
            'to'
            'try'
            'type'
            'unit'
            'until'
            'uses'
            'var'
            'virtual'
            'while'
            'with'
            'write'
            'xor')
          TokenTypes = 4
          IgnoreCase = True
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'begin'
      StyleName = 'Current block'
      ConditionList = <
        item
          TagList.Strings = (
            'begin'
            'case'
            'try')
          TokenTypes = 4
        end>
      BlockEnd = 'End'
      DisplayInTree = False
      DynHighlight = dhBound
      HighlightPos = cpRange
      DynSelectMin = True
      IgnoreAsParent = False
    end
    item
      DisplayName = 'End'
      BlockType = btRangeEnd
      ConditionList = <
        item
          TagList.Strings = (
            'end')
          TokenTypes = 4
          IgnoreCase = True
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'asm'
      ConditionList = <
        item
          TagList.Strings = (
            'asm')
          TokenTypes = 4
          IgnoreCase = True
        end>
      BlockEnd = 'End'
      Highlight = True
      InvertColors = True
      DisplayInTree = False
      DynHighlight = dhRangeNoBound
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'until'
      BlockType = btRangeEnd
      ConditionList = <
        item
          TagList.Strings = (
            'until')
          TokenTypes = 4
          IgnoreCase = True
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'repeat'
      ConditionList = <
        item
          TagList.Strings = (
            'repeat')
          TokenTypes = 4
          IgnoreCase = True
        end>
      BlockEnd = 'until'
      DisplayInTree = False
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = '('
      StyleName = 'Current block'
      ConditionList = <
        item
          TagList.Strings = (
            '('
            '[')
          TokenTypes = 8
        end>
      BlockEnd = ')'
      NotCollapsed = True
      DisplayInTree = False
      DynHighlight = dhBound
      HighlightPos = cpBoundTag
      DynSelectMin = True
      IgnoreAsParent = False
    end
    item
      DisplayName = ')'
      BlockType = btRangeEnd
      ConditionList = <
        item
          TagList.Strings = (
            ')'
            ']')
          TokenTypes = 8
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Block comment'
      BlockName = 'Block comment'
      NotParent = True
      ConditionList = <
        item
          TokenTypes = 2
        end>
      BlockEnd = 'Block comment end'
      DisplayInTree = False
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Block comment end'
      BlockType = btRangeEnd
      ConditionList = <
        item
          TokenTypes = 1021
        end
        item
          TokenTypes = 2
        end>
      BlockOffset = 1
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Function separator'
      StyleName = 'Function separator'
      BlockType = btLineBreak
      ConditionList = <
        item
          TagList.Strings = (
            'constructor'
            'destructor'
            'function'
            'procedure')
          TokenTypes = 4
          IgnoreCase = True
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Single function'
      ConditionList = <
        item
          TagList.Strings = (
            '.')
          CondType = tcNotEqual
          TokenTypes = 8
        end
        item
          TokenTypes = 4
        end
        item
          TagList.Strings = (
            'function'
            'procedure')
          TokenTypes = 4
        end>
      IdentIndex = 1
      BlockOffset = 2
      BlockEnd = 'End of function'
      NameFmt = '%s2 %s1'
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'End of function'
      BlockName = 'Single function'
      StrictParent = True
      BlockType = btRangeEnd
      ConditionList = <
        item
          TagList.Strings = (
            ';')
          TokenTypes = 8
        end
        item
          TagList.Strings = (
            'end')
          TokenTypes = 4
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end>
  CodeTemplates = <
    item
      Name = 'be'
      Description = 'begin end'
      Code.Strings = (
        'begin'
        '  | '
        'end;')
    end
    item
      Name = 'arrayd'
      Description = 'array declaration (var)'
      Code.Strings = (
        'array[0..|] of ;')
    end
    item
      Name = 'arrayc'
      Description = 'array declaration (const)'
      Code.Strings = (
        'array[0..|] of = ();')
    end
    item
      Name = 'cases'
      Description = 'case statement'
      Code.Strings = (
        'case | of'
        '  : ;'
        '  : ;'
        'end;')
    end
    item
      Name = 'casee'
      Description = 'case statement (with else)'
      Code.Strings = (
        'case | of'
        '  : ;'
        '  : ;'
        'else ;'
        'end;')
    end
    item
      Name = 'classf'
      Description = 'class declaration (all parts)'
      Code.Strings = (
        'T| = class(T)'
        'private'
        ''
        'protected'
        ''
        'public'
        ''
        'published'
        ''
        'end;')
    end
    item
      Name = 'classd'
      Description = 'class declaration (no parts)'
      Code.Strings = (
        'T| = class(T)'
        ''
        'end;')
    end
    item
      Name = 'classc'
      Description = 'class declaration (with Create/Destroy overrides)'
      Code.Strings = (
        'T| = class(T)'
        'private'
        ''
        'protected'
        ''
        'public'
        '  constructor Create; override;'
        '  destructor Destroy; override;'
        'published'
        ''
        'end;')
    end
    item
      Name = 'fors'
      Description = 'for (no begin/end)'
      Code.Strings = (
        'for | :=  to  do')
    end
    item
      Name = 'forb'
      Description = 'for statement'
      Code.Strings = (
        'for | :=  to  do'
        'begin'
        ''
        'end;')
    end
    item
      Name = 'function'
      Description = 'function declaration'
      Code.Strings = (
        'function |(): ;'
        'begin'
        ''
        'end;')
    end
    item
      Name = 'ifs'
      Description = 'if (no begin/end)'
      Code.Strings = (
        'if | then')
    end
    item
      Name = 'ifb'
      Description = 'if statement'
      Code.Strings = (
        'if | then'
        'begin'
        ''
        'end;')
    end
    item
      Name = 'ife'
      Description = 'if then (no begin/end) else (no begin/end)'
      Code.Strings = (
        'if | then'
        ''
        'else')
    end
    item
      Name = 'ifeb'
      Description = 'if then else'
      Code.Strings = (
        'if | then'
        'begin'
        ''
        'end'
        'else'
        'begin'
        ''
        'end;')
    end
    item
      Name = 'procedure'
      Description = 'procedure declaration'
      Code.Strings = (
        'procedure |();'
        'begin'
        ''
        'end;')
    end
    item
      Name = 'trye'
      Description = 'try except'
      Code.Strings = (
        'try'
        '  |'
        'except'
        ''
        'end;')
    end
    item
      Name = 'tryf'
      Description = 'try finally'
      Code.Strings = (
        'try'
        '  |'
        'finally'
        ''
        'end;')
    end
    item
      Name = 'trycf'
      Description = 'try finally (with Create/Free)'
      Code.Strings = (
        '|variable := typename.Create;'
        'try'
        ''
        'finally'
        '  variable.Free;'
        'end;')
    end
    item
      Name = 'whileb'
      Description = 'while statement'
      Code.Strings = (
        'while | do'
        'begin'
        ''
        'end;')
    end
    item
      Name = 'whiles'
      Description = 'while (no begin)'
      Code.Strings = (
        'while | do')
    end
    item
      Name = 'withb'
      Description = 'with statement'
      Code.Strings = (
        'with | do'
        'begin'
        ''
        'end;')
    end
    item
      Name = 'withs'
      Description = 'with (no begin)'
      Code.Strings = (
        'with | do')
    end
    item
      Name = 'prop'
      Description = 'property'
      Code.Strings = (
        'property | read  write;')
    end>
  SubAnalyzers = <>
  SampleText.Strings = (
    '{Syntax highlighting}'
    'procedure Button1Click(Sender: TObject);'
    'var'
    ' Number: integer;'
    ' FloatNumber: double;'
    'begin'
    ' Number := 123;  // View integer number style'

      ' Form.Caprion := '#39'This Number is '#39' + IntToStr(Number); // View s' +
      'tring style'
    ' Inc(Number, $1FA7); // View HEX style'
    ' {Assembler style}'
    ' asm'
    '   MOV  AX, 1234H'
    '   MOV Number, AX'
    ' end;'
    'end;')
  TokenTypeNames.Strings = (
    'Unknown'
    'Comment'
    'Identifier'
    'Symbol'
    'String'
    'Integer const'
    'Float const'
    'Hex const'
    'Char const')
  MarkedBlockStyle = 'Marked block'
  DefaultStyleName = 'Default'
  LexerName = 'Pascal script'
  Internal = True
end