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

Text File | 2007-12-12 | 14.2 KB | 651 lines

object SyntAnal12: 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 = 'Std functions'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold, fsUnderline]
    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>
  TokenRules = <
    item
      DisplayName = 'Comment 3'
      StyleName = 'Comment'
      TokenType = 1
      Expression = '^c.*'
      ColumnFrom = 0
      ColumnTo = 0
    end
    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 = '\d+ \.? \d+ e [\+\-]? \d+ |'#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 = 'Symbol'
      StyleName = 'Symbol'
      TokenType = 3
      Expression = '[/\*,\.;:\(\)=<>\+\-\[\]]'
      ColumnFrom = 0
      ColumnTo = 0
    end>
  BlockRules = <
    item
      DisplayName = 'Key words'
      StyleName = 'Reserved word'
      BlockType = btTagDetect
      ConditionList = <
        item
          TagList.Strings = (
            'access'
            'action'
            'advance'
            'allocatable'
            'allocate'
            'apostrophe'
            'assign'
            'assignment'
            'associate'
            'asynchronous'
            'backspace'
            'bind'
            'blank'
            'blockdata'
            'call'
            'case'
            'character'
            'class'
            'close'
            'common'
            'complex'
            'contains'
            'continue'
            'cycle'
            'data'
            'deallocate'
            'decimal'
            'default'
            'delim'
            'dimension'
            'direct'
            'do'
            'double'
            'doubleprecision'
            'dowhile'
            'else'
            'elseif'
            'elsewhere'
            'encoding'
            'end'
            'endassociate'
            'endblockdata'
            'enddo'
            'endfile'
            'endforall'
            'endfunction'
            'endif'
            'endinterface'
            'endmodule'
            'endprogram'
            'endselect'
            'endsubroutine'
            'endtype'
            'endwhere'
            'entry'
            'eor'
            'equivalence'
            'err'
            'errmsg'
            'exist'
            'exit'
            'external'
            'file'
            'flush'
            'fmt'
            'forall'
            'form'
            'format'
            'formatted'
            'function'
            'go'
            'goto'
            'id'
            'if'
            'implicit'
            'in'
            'include'
            'inout'
            'inquire'
            'integer'
            'intent'
            'interface'
            'intrinsic'
            'iolength'
            'iomsg'
            'iostat'
            'kind'
            'len'
            'logical'
            'module'
            'name'
            'named'
            'namelist'
            'nextrec'
            'nml'
            'none'
            'nullify'
            'number'
            'only'
            'open'
            'opened'
            'operator'
            'optional'
            'out'
            'pad'
            'parameter'
            'pass'
            'pause'
            'pending'
            'pointer'
            'pos'
            'position'
            'precision'
            'print'
            'private'
            'program'
            'protected'
            'public'
            'quote'
            'read'
            'readwrite'
            'real'
            'rec'
            'recl'
            'recursive'
            'result'
            'return'
            'rewind'
            'save'
            'select'
            'selectcase'
            'selecttype'
            'sequential'
            'sign'
            'size'
            'stat'
            'status'
            'stop'
            'stream'
            'subroutine'
            'target'
            'then'
            'to'
            'type'
            'unformatted'
            'unit'
            'use'
            'value'
            'volatile'
            'wait'
            'where'
            'while'
            'write')
          TokenTypes = 4
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'std functions'
      StyleName = 'Std functions'
      BlockType = btTagDetect
      ConditionList = <
        item
          TagList.Strings = (
            'abs'
            'achar'
            'acos'
            'acosd'
            'adjustl'
            'adjustr'
            'aimag'
            'aimax0'
            'aimin0'
            'aint'
            'ajmax0'
            'ajmin0'
            'akmax0'
            'akmin0'
            'all'
            'allocated'
            'alog'
            'alog10'
            'amax0'
            'amax1'
            'amin0'
            'amin1'
            'amod'
            'anint'
            'any'
            'asin'
            'asind'
            'associated'
            'atan'
            'atan2'
            'atan2d'
            'atand'
            'bit_size'
            'bitest'
            'bitl'
            'bitlr'
            'bitrl'
            'bjtest'
            'bktest'
            'break'
            'btest'
            'cabs'
            'ccos'
            'cdabs'
            'cdcos'
            'cdexp'
            'cdlog'
            'cdsin'
            'cdsqrt'
            'ceiling'
            'cexp'
            'char'
            'clog'
            'cmplx'
            'conjg'
            'cos'
            'cosd'
            'cosh'
            'count'
            'cpu_time'
            'cshift'
            'csin'
            'csqrt'
            'dabs'
            'dacos'
            'dacosd'
            'dasin'
            'dasind'
            'datan'
            'datan2'
            'datan2d'
            'datand'
            'date'
            'date_and_time'
            'dble'
            'dcmplx'
            'dconjg'
            'dcos'
            'dcosd'
            'dcosh'
            'dcotan'
            'ddim'
            'dexp'
            'dfloat'
            'dfloti'
            'dflotj'
            'dflotk'
            'digits'
            'dim'
            'dimag'
            'dint'
            'dlog'
            'dlog10'
            'dmax1'
            'dmin1'
            'dmod'
            'dnint'
            'dot_product'
            'dprod'
            'dreal'
            'dsign'
            'dsin'
            'dsind'
            'dsinh'
            'dsqrt'
            'dtan'
            'dtand'
            'dtanh'
            'eoshift'
            'epsilon'
            'errsns'
            'exp'
            'exponent'
            'float'
            'floati'
            'floatj'
            'floatk'
            'floor'
            'fraction'
            'free'
            'huge'
            'iabs'
            'iachar'
            'iand'
            'ibclr'
            'ibits'
            'ibset'
            'ichar'
            'idate'
            'idim'
            'idint'
            'idnint'
            'ieor'
            'ifix'
            'iiabs'
            'iiand'
            'iibclr'
            'iibits'
            'iibset'
            'iidim'
            'iidint'
            'iidnnt'
            'iieor'
            'iifix'
            'iint'
            'iior'
            'iiqint'
            'iiqnnt'
            'iishft'
            'iishftc'
            'iisign'
            'ilen'
            'imax0'
            'imax1'
            'imin0'
            'imin1'
            'imod'
            'index'
            'inint'
            'inot'
            'int'
            'int1'
            'int2'
            'int4'
            'int8'
            'ior'
            'iqint'
            'iqnint'
            'ishft'
            'ishftc'
            'isign'
            'isnan'
            'izext'
            'jiand'
            'jibclr'
            'jibits'
            'jibset'
            'jidim'
            'jidint'
            'jidnnt'
            'jieor'
            'jifix'
            'jint'
            'jior'
            'jiqint'
            'jiqnnt'
            'jishft'
            'jishftc'
            'jisign'
            'jmax0'
            'jmax1'
            'jmin0'
            'jmin1'
            'jmod'
            'jnint'
            'jnot'
            'jzext'
            'kiabs'
            'kiand'
            'kibclr'
            'kibits'
            'kibset'
            'kidim'
            'kidint'
            'kidnnt'
            'kieor'
            'kifix'
            'kind'
            'kint'
            'kior'
            'kishft'
            'kishftc'
            'kisign'
            'kmax0'
            'kmax1'
            'kmin0'
            'kmin1'
            'kmod'
            'knint'
            'knot'
            'kzext'
            'lbound'
            'leadz'
            'len'
            'len_trim'
            'lenlge'
            'lge'
            'lgt'
            'lle'
            'llt'
            'log'
            'log10'
            'logical'
            'lshift'
            'malloc'
            'matmul'
            'max'
            'max0'
            'max1'
            'maxexponent'
            'maxloc'
            'maxval'
            'merge'
            'min'
            'min0'
            'min1'
            'minexponent'
            'minloc'
            'minval'
            'mod'
            'modulo'
            'mvbits'
            'nearest'
            'nint'
            'not'
            'number_of_processors'
            'nworkers'
            'pack'
            'popcnt'
            'poppar'
            'precision'
            'present'
            'product'
            'radix'
            'random'
            'random_number'
            'random_seed'
            'range'
            'real'
            'repeat'
            'reshape'
            'rrspacing'
            'rshift'
            'scale'
            'scan'
            'secnds'
            'selected_int_kind'
            'selected_real_kind'
            'set_exponent'
            'shape'
            'sign'
            'sin'
            'sind'
            'sinh'
            'size'
            'sizeof'
            'sngl'
            'snglq'
            'spacing'
            'spread'
            'sqrt'
            'sum'
            'system_clock'
            'tan'
            'tand'
            'tanh'
            'tiny'
            'transfer'
            'transpose'
            'trim'
            'ubound'
            'unpack'
            'verify')
          TokenTypes = 4
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'IF'
      ConditionList = <
        item
          TagList.Strings = (
            'if')
          TokenTypes = 4
        end>
      BlockEnd = 'endif'
      DisplayInTree = False
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'endif'
      BlockType = btRangeEnd
      ConditionList = <
        item
          TagList.Strings = (
            'endif')
          TokenTypes = 4
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end>
  CodeTemplates = <>
  SubAnalyzers = <>
  TokenTypeNames.Strings = (
    'Unknown'
    'Comment'
    'Identifier'
    'Symbol'
    'String'
    'Integer const'
    'Float const'
    'Hex const'
    'Char const'
    'Preprocessor')
  MarkedBlockStyle = 'Marked block'
  DefaultStyleName = 'Default'
  Extentions = 'f for f90 f95 f2k'
  LexerName = 'Fortran'
end