OS/2 Shareware BBS: 5 Edit/05-Edit.zip/con2v766.zip/colore01.zip/includes/rarelng/cobol.hrc

Text File | 2000-02-26 | 12KB | 416 lines

<!--
   COBOL Syntax description
   Written by Alexey Matiushkin <[e-mail]>
   Thanks to Cail Lomecb!

   Known bugs:
   1. I was forced to make a choice between identifiers (LOOP-VAR) and directives (PROGRAM-ID). I'll solve this!
-->

<Define Name="CobIdent"    Value="dStrings">
<Define Name="CobDirect"   Value="dDirectives">
<Define Name="CobString"   Value="dStrings">
<Define Name="CobComment"  Value="dComments">
<Define Name="CobWord"     Value="dResWords">
<Define Name="CobSymb"     Value="dResWords">
<Define Name="CobNumb"     Value="dNumbers">

<Scheme Name="Cobol">
   <!-- Comments-->
   <RegExp Start="/^(.{6}?[^\s\x2D].*$)/" Color0="CobComment">
   <RegExp Start="/^.{72}?[\s]*\m(\b.+\B).*\M$/" Color0="CobComment">
   <!-- Standard COBOL Identifiers -->
   <RegExp Start="/^.{6}?[\s\x2D]+\m(\b[\w\d]+)(\x2D)([\s]+)\M\x2D/" Color0="CobDirect" Color1="CobDirect" Color2="CobDirect">
   <RegExp Start="/(\b\w+)(\x2D)([^\s\r\n\x2E\x2C]+)/" Color0="CobIdent" Color1="CobIdent" Color2="CobIdent">
   <!-- Numbers -->
   <RegExp Start="/\b (0x|X[\da-fA-F]+)  ([UuLl]+|(i64)|(i128))? \B/x"
           Color0="CobNumb" Color1="CobNumb">
   <RegExp Start="/\c(\d*\.?\d+(e|E[\-+]?\d+)?)([lLfF]?)\B/"
           Color0="CobNumb" Color2="CobNumb">
   <RegExp Start="/\b(\d+)(([UuLl]+)|(i64)|(i128))?\B/"
           Color0="CobNumb" Color1="CobNumb">
   <!-- Strings -->
   <RegExp Start='/("((\\.)|[^\\"])*")/' Color0="CobString">
   <RegExp Start="/('..??.??.??')/" Color0="CobString">
   <!-- Multyline Strings ... -->
   <Block  Start='/\"/' End="/^.{6}\x2D/" Scheme="Comment" Color0="CobString">
   <!-- Standard COBOL Symbols -->
   <KeyWords Color="CobSymb">
      <Symb Name=";"><Symb Name="="><Symb Name="+"><Symb Name="-">
      <Symb Name="/"><Symb Name="*"><Symb Name="&"><Symb Name="|">
      <Symb Name="^"><Symb Name="("><Symb Name=")"><Symb Name="[">
      <Symb Name="]"><Symb Name=","><Symb Name="."><Symb Name=":">
      <Symb Name="!"><Symb Name="~"><Symb Name="<"><Symb Name=">">
      <Symb Name="%"><Symb Name="{"><Symb Name="}"><Symb Name="?">
   </KeyWords>
   <!-- COBOL Directives -->
   <KeyWords MatchCase="False" Color="CobDirect">
      <Word Name="AUTHOR">
      <Word Name="CONFIGURATION">
      <Word Name="DATA">
      <Word Name="DATE-COMPILED">
      <Word Name="DATE-WRITTEN">
      <Word Name="DIVISION">
      <Word Name="ENVIRONMENT">
      <Word Name="FILE">
      <Word Name="FILE-CONTROL">
      <Word Name="IDENTIFICATION">
      <Word Name="INPUT-OUTPUT">
      <Word Name="LINKAGE">
      <Word Name="OBJECT-COMPUTER">
      <Word Name="PROCEDURE">
      <Word Name="PROGRAM-ID">
      <Word Name="SECTION">
      <Word Name="SOURCE-COMPUTER">
      <Word Name="WORKING-STORAGE">
   </KeyWords>
   <!-- COBOL KeyWords -->
   <KeyWords MatchCase="False" Color="CobWord">
    <Word Name="ACCEPT">
    <Word Name="ACCESS">
    <Word Name="ADD">
    <Word Name="ADVANCING">
    <Word Name="AFTER">
    <Word Name="ALL">
    <Word Name="ALPHABET">
    <Word Name="ALPHABETIC">
    <Word Name="ALPHABETIC-LOWER">
    <Word Name="ALPHABETIC-UPPER">
    <Word Name="ALPHANUMERIC">
    <Word Name="ALPHANUMERIC-EDITED">
    <Word Name="ALPHBET">
    <Word Name="ALSO">
    <Word Name="ALTER">
    <Word Name="ALTERNATE">
    <Word Name="AND">
    <Word Name="ANY">
    <Word Name="ARE">
    <Word Name="AREA">
    <Word Name="AREAS">
    <Word Name="ASCENDING">
    <Word Name="ASSIGN">
    <Word Name="AT">
    <Word Name="BEFORE">
    <Word Name="BINARY">
    <Word Name="BLANK">
    <Word Name="BLOCK">
    <Word Name="BOTTOM">
    <Word Name="BY">
    <Word Name="CALL">
    <Word Name="CANCEL">
    <Word Name="CD">
    <Word Name="CF">
    <Word Name="CH">
    <Word Name="CHARACTER">
    <Word Name="CHARACTERS">
    <Word Name="CLASS">
    <Word Name="CLOCK-UNITS">
    <Word Name="CLOSE">
    <Word Name="COBOL">
    <Word Name="CODE">
    <Word Name="CODE-SET">
    <Word Name="COLLATING">
    <Word Name="COLUMN">
    <Word Name="COMMA">
    <Word Name="COMMON">
    <Word Name="COMMUNICATION">
    <Word Name="COMP">
    <Word Name="COMPUTATIONAL">
    <Word Name="COMPUTE">
    <Word Name="CONSOLE">
    <Word Name="CONTAINS">
    <Word Name="CONTENT">
    <Word Name="CONTINUE">
    <Word Name="CONTROL">
    <Word Name="CONTROLS">
    <Word Name="CONVERTING">
    <Word Name="COPY">
    <Word Name="CORR">
    <Word Name="CORRESPONDING">
    <Word Name="COUNT">
    <Word Name="CRT">
    <Word Name="CURRENCY">
    <Word Name="CURSOR">
    <Word Name="DATE">
    <Word Name="DATE-COMPILED">
    <Word Name="DATE-WRITTEN">
    <Word Name="DAY">
    <Word Name="DAY-OF-WEEK">
    <Word Name="DE">
    <Word Name="DEBUB-SUB1">
    <Word Name="DEBUG-CONTENTS">
    <Word Name="DEBUG-ITEM">
    <Word Name="DEBUG-LINE">
    <Word Name="DEBUG-NAME">
    <Word Name="DEBUG-SUB2">
    <Word Name="DEBUG-SUB3">
    <Word Name="DEBUGGING">
    <Word Name="DECIMAL">
    <Word Name="DECIMAL-POINT">
    <Word Name="DECLARATIVES">
    <Word Name="DELETE">
    <Word Name="DELIMITED">
    <Word Name="DELIMITER">
    <Word Name="DEPENDING">
    <Word Name="DESCENDING">
    <Word Name="DESTINATION">
    <Word Name="DETAIL">
    <Word Name="DISABLE">
    <Word Name="DISPLAY">
    <Word Name="DIVIDE">
    <Word Name="DOWN">
    <Word Name="DUPLICATE">
    <Word Name="DYNAMIC">
    <Word Name="EGI">
    <Word Name="ELSE">
    <Word Name="EMI">
    <Word Name="ENABLE">
    <Word Name="END">
    <Word Name="END-ADD">
    <Word Name="END-CALL">
    <Word Name="END-COMPUTE">
    <Word Name="END-DELETE">
    <Word Name="END-DIVIDE">
    <Word Name="END-EVALUATE">
    <Word Name="END-IF">
    <Word Name="END-MULTIPLY">
    <Word Name="END-OF-PAGE">
    <Word Name="END-PERFORM">
    <Word Name="END-READ">
    <Word Name="END-RECIEVE">
    <Word Name="END-RETURN">
    <Word Name="END-REWRITE">
    <Word Name="END-SEARCH">
    <Word Name="END-START">
    <Word Name="END-STRING">
    <Word Name="END-SUBSTRACT">
    <Word Name="END-UNSTRING">
    <Word Name="END-WRITE">
    <Word Name="ENTER">
    <Word Name="EOF">
    <Word Name="EOP">
    <Word Name="EQUAL">
    <Word Name="ERROR">
    <Word Name="ESI">
    <Word Name="EVALUATE">
    <Word Name="EVERY">
    <Word Name="EXCEPTION">
    <Word Name="EXIT">
    <Word Name="EXTEND">
    <Word Name="EXTERNAL">
    <Word Name="FALSE">
    <Word Name="FD">
    <Word Name="FILLER">
    <Word Name="FINAL">
    <Word Name="FIRST">
    <Word Name="FOOTING">
    <Word Name="FOR">
    <Word Name="FROM">
    <Word Name="FROM">
    <Word Name="FUNCTION">
    <Word Name="GENERATE">
    <Word Name="GIVING">
    <Word Name="GLOVAL">
    <Word Name="GO">
    <Word Name="GREATER">
    <Word Name="GROUP">
    <Word Name="HEADING">
    <Word Name="HIGH-VALUE">
    <Word Name="HIGH-VALUES">
    <Word Name="I-O">
    <Word Name="I-O-CONTROL">
    <Word Name="IF">
    <Word Name="IN">
    <Word Name="INDEX">
    <Word Name="INDEXED">
    <Word Name="INDICATE">
    <Word Name="INITIAL">
    <Word Name="INITIALIZE">
    <Word Name="INITIATE">
    <Word Name="INPUT">
    <Word Name="INSPECT">
    <Word Name="INSTALLATION">
    <Word Name="INTO">
    <Word Name="INVALID">
    <Word Name="IS">
    <Word Name="JUST">
    <Word Name="JUSTIFIED">
    <Word Name="KEY">
    <Word Name="LABEL">
    <Word Name="LAST">
    <Word Name="LEADING">
    <Word Name="LEFT">
    <Word Name="LENGTH">
    <Word Name="LESS">
    <Word Name="LICK">
    <Word Name="LIMIT">
    <Word Name="LIMITS">
    <Word Name="LINAGE">
    <Word Name="LINAGE-COUNTER">
    <Word Name="LINE">
    <Word Name="LINE-COUNTER">
    <Word Name="LINES">
    <Word Name="LOCK">
    <Word Name="LOW-VALUE">
    <Word Name="LOW-VALUES">
    <Word Name="MEMORY">
    <Word Name="MERGE">
    <Word Name="MESSAGE">
    <Word Name="MODE">
    <Word Name="MODULES">
    <Word Name="MORE">
    <Word Name="MOVE">
    <Word Name="MULTIPLE">
    <Word Name="MULTIPLY">
    <Word Name="NATIVE">
    <Word Name="NEGATIVE">
    <Word Name="NEXT">
    <Word Name="NO">
    <Word Name="NOT">
    <Word Name="NUMBER">
    <Word Name="NUMERIC">
    <Word Name="NUMERIC-EDITED">
    <Word Name="OCCURS">
    <Word Name="OF">
    <Word Name="OFF">
    <Word Name="OMITTED">
    <Word Name="ON">
    <Word Name="OPEN">
    <Word Name="OPTIONAL">
    <Word Name="OR">
    <Word Name="ORDER">
    <Word Name="ORGANIZATION">
    <Word Name="OTHER">
    <Word Name="OUTPUT">
    <Word Name="OVERFLOW">
    <Word Name="PACKED-DECIMAL">
    <Word Name="PADDING">
    <Word Name="PAGE">
    <Word Name="PAGE-COUNTER">
    <Word Name="PAGES">
    <Word Name="PERFORM">
    <Word Name="PF">
    <Word Name="PH">
    <Word Name="PIC">
    <Word Name="PICTURE">
    <Word Name="PLUS">
    <Word Name="POINT">
    <Word Name="POINTER">
    <Word Name="POSITION">
    <Word Name="POSITIVE">
    <Word Name="PRINTING">
    <Word Name="PROCEDURES">
    <Word Name="PROCEED">
    <Word Name="PROGRAM">
    <Word Name="PURGE">
    <Word Name="QUEUE">
    <Word Name="QUOTE">
    <Word Name="QUOTES">
    <Word Name="RANDOM">
    <Word Name="RD">
    <Word Name="READ">
    <Word Name="RECIEVE">
    <Word Name="RECORD">
    <Word Name="RECORDS">
    <Word Name="REDEFINES">
    <Word Name="REEL">
    <Word Name="REFERENCE">
    <Word Name="REFERENCES">
    <Word Name="RELATIVE">
    <Word Name="RELEASE">
    <Word Name="REMAINDER">
    <Word Name="REMOVAL">
    <Word Name="RENAMES">
    <Word Name="REPLACE">
    <Word Name="REPLACING">
    <Word Name="REPORT">
    <Word Name="REPORTING">
    <Word Name="REPORTS">
    <Word Name="RERUN">
    <Word Name="RESERVE">
    <Word Name="RETURN">
    <Word Name="REVERSED">
    <Word Name="REWIND">
    <Word Name="REWRITE">
    <Word Name="RF">
    <Word Name="RH">
    <Word Name="RIGHT">
    <Word Name="ROUNDED">
    <Word Name="RUN">
    <Word Name="SAME">
    <Word Name="SCREEN">
    <Word Name="SD">
    <Word Name="SEARCH">
    <Word Name="SECURITY">
    <Word Name="SEGMENT">
    <Word Name="SEGMENT-LIMIT">
    <Word Name="SELECT">
    <Word Name="SEND">
    <Word Name="SENTENCE">
    <Word Name="SEPARATE">
    <Word Name="SEQUENCE">
    <Word Name="SEQUENTIAL">
    <Word Name="SET">
    <Word Name="SIGN">
    <Word Name="SIZE">
    <Word Name="SORT">
    <Word Name="SORT-MERGE">
    <Word Name="SOURCE">
    <Word Name="SPACE">
    <Word Name="SPACES">
    <Word Name="SPECIAL-NAMES">
    <Word Name="STANDARD">
    <Word Name="STANDARD-1">
    <Word Name="STANDARD-2">
    <Word Name="START">
    <Word Name="STATUS">
    <Word Name="STOP">
    <Word Name="STRING">
    <Word Name="SUB-QUEUE-1">
    <Word Name="SUB-QUEUE-2">
    <Word Name="SUB-QUEUE-3">
    <Word Name="SUBTRACT">
    <Word Name="SUM">
    <Word Name="SUPPRESS">
    <Word Name="SYMBOLIC">
    <Word Name="SYNC">
    <Word Name="SYNCHRONIZED">
    <Word Name="TALLYING">
    <Word Name="TAPE">
    <Word Name="TERMINAL">
    <Word Name="TERMINATE">
    <Word Name="TEST">
    <Word Name="TEXT">
    <Word Name="THAN">
    <Word Name="THEN">
    <Word Name="THROUGH">
    <Word Name="THRU">
    <Word Name="TIME">
    <Word Name="TIMES">
    <Word Name="TO">
    <Word Name="TOP">
    <Word Name="TRAILING">
    <Word Name="TRUE">
    <Word Name="TYPE">
    <Word Name="UNIT">
    <Word Name="UNSTRING">
    <Word Name="UNTIL">
    <Word Name="UP">
    <Word Name="UPON">
    <Word Name="USAGE">
    <Word Name="USE">
    <Word Name="USING">
    <Word Name="VALUE">
    <Word Name="VALUES">
    <Word Name="VARYING">
    <Word Name="WHEN">
    <Word Name="WITH">
    <Word Name="WORDS">
    <Word Name="WRITE">
    <Word Name="WRTIE">
    <Word Name="ZERO">
    <Word Name="ZEROES">
    <Word Name="ZEROS">
   </KeyWords>
</Scheme>