home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 March / PCWorld_2001-03_cd.bin / Software / Topware / Scriptworx / _SETUP.1 / fortran.sch < prev    next >
Text File  |  2000-06-05  |  5KB  |  182 lines
  1. object TPersHolder
  2.   P.Name = 'Fortran'
  3.   P.SyntaxBlocks = <
  4.     item
  5.       Name = 'Default'
  6.       ID = 0
  7.       FIText = 0
  8.       FIIntNum = 1
  9.       FIFloatNum = 2
  10.       FIHexNum = 3
  11.       FIDirective = 4
  12.       UseLineDirectives = True
  13.       UseComments = True
  14.       UseSingleLineComments = True
  15.       UseStrings = True
  16.       UseSingleLineStrings = True
  17.       UseNumbers = True
  18.       UsePrefixedNumbers = True
  19.       UsePrefixedSuffixedIdentifiers = True
  20.       UseKeywords = True
  21.       BlockDelimiters = <>
  22.       LineDirectivePrefix = '$'
  23.       SingleLineCommentDelimiters = <
  24.         item
  25.           FontID = 5
  26.           LeftDelimiter = '!'
  27.         end
  28.         item
  29.           FontID = 6
  30.           LeftDelimiter = 'c'
  31.         end>
  32.       SingleLineStringDelimiters = <
  33.         item
  34.           FontID = 7
  35.           LeftDelimiter = #39
  36.           RightDelimiter = #39
  37.         end
  38.         item
  39.           FontID = 8
  40.           LeftDelimiter = '"'
  41.           RightDelimiter = '"'
  42.         end>
  43.       NumPrefixes = <
  44.         item
  45.           LeftDelimiter = '#'
  46.         end>
  47.       IdentPrefixesSuffixes = <
  48.         item
  49.           LeftDelimiter = '.'
  50.           RightDelimiter = '.'
  51.         end>
  52.       KeywordSets = <
  53.         item
  54.           FontID = 9
  55.           Name = 'statements'
  56.           Keywords = 
  57.             'ALIAS,ALLOCATE,ASSIGN,AUTOMATIC,BACKSPACE,BLOCK,BYTE,C,CALL,CASE' +
  58.             ',CHARACTER,CLOSE,COMMON,COMPLEX,CONTINUE,CYCLE,DATA,DEALLOCATE,D' +
  59.             'IMENSION,DO,DOUBLE,ELSE,END,ENDFILE,ENTRY,EQUIVALENCE,EXIT,EXTER' +
  60.             'NAL,FORMAT,FUNCTION,GOTO,IF,IMPLICIT,INCLUDE,INQUIRE,INTEGER,INT' +
  61.             'RINSIC,LOCKING,LOGICAL,MAP,NAMELIST,OPEN,PARAMETER,PAUSE,PRECISI' +
  62.             'ON,PRINT,PROGRAM,READ,REAL,RECORD,REFERENCE,RETURN,REWIND,SAVE,S' +
  63.             'ELECT,STDCALL,STOP,STRUCTURE,SUBROUTINE,TO,UNION,VALUE,VARYING,W' +
  64.             'HILE,WRITE'
  65.         end
  66.         item
  67.           FontID = 10
  68.           Name = 'directives'
  69.           Keywords = 
  70.             'ALIAS,ATTRIBUTES,DECLARE,DEFINE,DEFINED,ELSE,ELSEIF,ENDIF,FIXEDF' +
  71.             'ORMLINESIZE,FREEFORM,IDENT,IF,INTEGER,MESSAGE,NODECLARE,NOFREEFO' +
  72.             'RM,NOSTRICT,OBJCOMMENT,OPTIONS,PACK,PSECT,REAL,STRICT,SUBTITLE,T' +
  73.             'ITLE,UNDEFINE'
  74.         end
  75.         item
  76.           FontID = 11
  77.           Name = 'logical'
  78.           Keywords = 
  79.             '.AND.,.EQ.,.EQV.,.FALSE.,.GT.,.LT.,.NEQV.,.NOT.,.OR.,.TRUE.,.XOR' +
  80.             '.'
  81.         end>
  82.     end>
  83.   P.FontTable = <
  84.     item
  85.       FontID = 0
  86.       Font.Charset = DEFAULT_CHARSET
  87.       Font.Color = clBlack
  88.       Font.Height = -13
  89.       Font.Name = 'Courier New'
  90.       Font.Style = []
  91.     end
  92.     item
  93.       FontID = 1
  94.       Font.Charset = DEFAULT_CHARSET
  95.       Font.Color = clGreen
  96.       Font.Height = -13
  97.       Font.Name = 'Courier New'
  98.       Font.Style = []
  99.     end
  100.     item
  101.       FontID = 2
  102.       Font.Charset = DEFAULT_CHARSET
  103.       Font.Color = clGreen
  104.       Font.Height = -13
  105.       Font.Name = 'Courier New'
  106.       Font.Style = []
  107.     end
  108.     item
  109.       FontID = 3
  110.       Font.Charset = DEFAULT_CHARSET
  111.       Font.Color = clGreen
  112.       Font.Height = -13
  113.       Font.Name = 'Courier New'
  114.       Font.Style = []
  115.     end
  116.     item
  117.       FontID = 4
  118.       Font.Charset = DEFAULT_CHARSET
  119.       Font.Color = clGreen
  120.       Font.Height = -13
  121.       Font.Name = 'Courier New'
  122.       Font.Style = [fsBold]
  123.     end
  124.     item
  125.       FontID = 5
  126.       Font.Charset = DEFAULT_CHARSET
  127.       Font.Color = clGray
  128.       Font.Height = -13
  129.       Font.Name = 'Courier New'
  130.       Font.Style = [fsItalic]
  131.     end
  132.     item
  133.       FontID = 6
  134.       Font.Charset = DEFAULT_CHARSET
  135.       Font.Color = clGray
  136.       Font.Height = -13
  137.       Font.Name = 'Courier New'
  138.       Font.Style = [fsItalic]
  139.     end
  140.     item
  141.       FontID = 7
  142.       Font.Charset = DEFAULT_CHARSET
  143.       Font.Color = clMaroon
  144.       Font.Height = -13
  145.       Font.Name = 'Courier New'
  146.       Font.Style = []
  147.     end
  148.     item
  149.       FontID = 8
  150.       Font.Charset = DEFAULT_CHARSET
  151.       Font.Color = clMaroon
  152.       Font.Height = -13
  153.       Font.Name = 'Courier New'
  154.       Font.Style = []
  155.     end
  156.     item
  157.       FontID = 9
  158.       Font.Charset = DEFAULT_CHARSET
  159.       Font.Color = clBlue
  160.       Font.Height = -13
  161.       Font.Name = 'Courier New'
  162.       Font.Style = [fsBold]
  163.     end
  164.     item
  165.       FontID = 10
  166.       Font.Charset = DEFAULT_CHARSET
  167.       Font.Color = clBlue
  168.       Font.Height = -13
  169.       Font.Name = 'Courier New'
  170.       Font.Style = [fsBold]
  171.     end
  172.     item
  173.       FontID = 11
  174.       Font.Charset = DEFAULT_CHARSET
  175.       Font.Color = clBlue
  176.       Font.Height = -13
  177.       Font.Name = 'Courier New'
  178.       Font.Style = [fsBold]
  179.     end>
  180.   P.SyntaxVersion = 2
  181. end
  182.