<?xml version="1.0" encoding="UTF-8"?>
<!--

 Copyright (C) 2010 - Fernando Brito <[email protected]>
 Copyright (C) 2011 - Daniel Bader <[email protected]>

 Credits:
  Based on prolog.lang by Ignacio Casal Quinteiro <[email protected]>
  Cobol keywords taken from cobol.vim by Tim Pope <[email protected]>
  and the COBOL2000 (BS2000) V1.2 compiler description by Fujitsu Siemens.

 GtkSourceView is free software; you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
 License as published by the Free Software Foundation; either
 version 2.1 of the License, or (at your option) any later version.

 GtkSourceView is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
 Lesser General Public License for more details.

 You should have received a copy of the GNU Lesser General Public License
 along with this library; if not, see <http://www.gnu.org/licenses/>.

-->
<language id="cobol" name="COBOL" version="2.0" _section="Source">
  <metadata>
    <property name="mimetype">text/x-cobol</property>
    <property name="globs">*.cbl;*.cob;*.cbd;*.cdb;*.cdc</property>
    <property name="line-comment-start">*</property>
  </metadata>

  <styles>
    <style id="comment"           name="Comment"           map-to="def:comment"/>
    <style id="statement"         name="Statement"         map-to="def:statement"/>
    <style id="variable"          name="Variable"          map-to="def:type"/>
    <style id="keyword"           name="Keyword"           map-to="def:keyword"/>
    <style id="constant"          name="Constant"          map-to="def:constant"/>
    <style id="string"            name="String"            map-to="def:string"/>
    <style id="number"            name="Number"            map-to="def:decimal"/>
    <style id="operator"          name="Operator"          map-to="def:operator"/>
    <style id="error"             name="Error"             map-to="def:error"/>
  </styles>

  <default-regex-options case-sensitive="false"/>

  <definitions>
    <context id="line-comment" style-ref="comment" end-at-line-end="true" class="comment" class-disabled="no-spell-check">
      <start>^\s{0,6}\*</start>
      <include>
        <context ref="def:in-comment"/>
      </include>
    </context>

    <!-- everything must start at the 8th column, except the line comment, that is indicated ONLY by a * in the 7th -->
    <context id="bad-ident" style-ref="error" end-at-line-end="true" class="error" class-disabled="no-spell-check">
      <start>^\s{0,6}\w</start>
    </context>

    <!-- http://docs.hp.com/en/65/books/lrintr.htm -->
    <context id="bad-long-line" style-ref="error">
      <match>.{74,}</match>
    </context>

    <!-- Credits: http://stackoverflow.com/questions/632475/regex-to-pick-commas-outside-of-quotes -->
    <context id="bad-comment-line" style-ref="error" end-at-line-end="true" class="error" class-disabled="no-spell-check">
      <start>(\*)(?=(?:[^"']|["|'][^"']*")*$)</start>
    </context>

    <context id="variable" style-ref="variable">
      <match>\b([A-Za-z0-9_]*)\b</match>
    </context>

    <context id="string-double-quote" style-ref="string" end-at-line-end="true" class="string" class-disabled="no-spell-check">
      <start>"</start>
      <end>"</end>
    </context>

    <context id="string-single-quote" style-ref="string" end-at-line-end="true" class="string" class-disabled="no-spell-check">
      <start>'</start>
      <end>'</end>
    </context>

    <context id="number" style-ref="number">
      <match extended="true">
        \b[0-9]+(\.[0-9]+)?\b
      </match>
    </context>

    <context id="constant" style-ref="constant">
      <keyword>space</keyword>
      <keyword>spaces</keyword>
      <keyword>null</keyword>
      <keyword>zero</keyword>
      <keyword>zeroes</keyword>
      <keyword>zeros</keyword>
      <keyword>low-values</keyword>
      <keyword>low-value</keyword>
      <keyword>high-values</keyword>
      <keyword>high-value</keyword>
      <keyword>quotes</keyword>
      <keyword>quote</keyword>
    </context>

    <context id="keyword" style-ref="keyword">
      <keyword>accept</keyword>
      <keyword>access</keyword>
      <keyword>active-class</keyword>
      <keyword>add</keyword>
      <keyword>address</keyword>
      <keyword>advancing</keyword>
      <keyword>after</keyword>
      <keyword>all</keyword>
      <keyword>allocate</keyword>
      <keyword>alphabet</keyword>
      <keyword>alphabetic-lower</keyword>
      <keyword>alphabetic-upper</keyword>
      <keyword>alphabetic</keyword>
      <keyword>alphanumeric-edited</keyword>
      <keyword>alphanumeric</keyword>
      <keyword>also</keyword>
      <keyword>alter</keyword>
      <keyword>alternate</keyword>
      <keyword>and</keyword>
      <keyword>any</keyword>
      <keyword>anycase</keyword>
      <keyword>are</keyword>
      <keyword>area</keyword>
      <keyword>areas</keyword>
      <keyword>as</keyword>
      <keyword>ascending</keyword>
      <keyword>assign</keyword>
      <keyword>at</keyword>
      <keyword>author</keyword>

      <keyword>b-and</keyword>
      <keyword>b-not</keyword>
      <keyword>b-or</keyword>
      <keyword>b-xor</keyword>
      <keyword>based</keyword>
      <keyword>before</keyword>
      <keyword>beginning</keyword>
      <keyword>binary-char</keyword>
      <keyword>binary-double</keyword>
      <keyword>binary-long</keyword>
      <keyword>binary-short</keyword>
      <keyword>binary</keyword>
      <keyword>bit</keyword>
      <keyword>blank</keyword>
      <keyword>block</keyword>
      <keyword>boolean</keyword>
      <keyword>bottom</keyword>
      <keyword>by</keyword>

      <keyword>case</keyword>
      <keyword>cbl-ctr</keyword>
      <keyword>cf</keyword>
      <keyword>ch</keyword>
      <keyword>character</keyword>
      <keyword>characters</keyword>
      <keyword>checking</keyword>
      <keyword>class-id</keyword>
      <keyword>class-units</keyword>
      <keyword>class</keyword>
      <keyword>close</keyword>
      <keyword>code</keyword>
      <keyword>code-set</keyword>
      <keyword>col</keyword>
      <keyword>collating</keyword>
      <keyword>cols</keyword>
      <keyword>column</keyword>
      <keyword>columns</keyword>
      <keyword>comma</keyword>
      <keyword>commit</keyword>
      <keyword>common</keyword>
      <keyword>communication</keyword>
      <keyword>comp-1</keyword>
      <keyword>comp-2</keyword>
      <keyword>comp-3</keyword>
      <keyword>comp-5</keyword>
      <keyword>comp</keyword>
      <keyword>computational-1</keyword>
      <keyword>computational-2</keyword>
      <keyword>computational-3</keyword>
      <keyword>computational-5</keyword>
      <keyword>computational</keyword>
      <keyword>compute</keyword>
      <keyword>condition</keyword>
      <keyword>connect</keyword>
      <keyword>console</keyword>
      <keyword>constant</keyword>
      <keyword>contains</keyword>
      <keyword>content</keyword>
      <keyword>continue</keyword>
      <keyword>control</keyword>
      <keyword>controls</keyword>
      <keyword>converting</keyword>
      <keyword>copy</keyword>
      <keyword>corr</keyword>
      <keyword>corresponding</keyword>
      <keyword>count</keyword>
      <keyword>creating</keyword>
      <keyword>crt</keyword>
      <keyword>currency</keyword>
      <keyword>current</keyword>
      <keyword>cursor</keyword>

      <keyword>data-pointer</keyword>
      <keyword>database-exception</keyword>
      <keyword>database-key-long</keyword>
      <keyword>database-key</keyword>
      <keyword>date-compiled</keyword>
      <keyword>date-written</keyword>
      <keyword>date</keyword>
      <keyword>day</keyword>
      <keyword>day-of-week</keyword>
      <keyword>db</keyword>
      <keyword>de</keyword>
      <keyword>debug-contents</keyword>
      <keyword>debug-item</keyword>
      <keyword>debug-line</keyword>
      <keyword>debug-name</keyword>
      <keyword>debug-sub-1</keyword>
      <keyword>debug-sub-2</keyword>
      <keyword>debug-sub-3</keyword>
      <keyword>debugging</keyword>
      <keyword>decimal-point</keyword>
      <keyword>declaratives</keyword>
      <keyword>default</keyword>
      <keyword>delete</keyword>
      <keyword>delimited</keyword>
      <keyword>delimiter</keyword>
      <keyword>depending</keyword>
      <keyword>descending</keyword>
      <keyword>detail</keyword>
      <keyword>disable</keyword>
      <keyword>disc</keyword>
      <keyword>disconnect</keyword>
      <keyword>display</keyword>
      <keyword>divide</keyword>
      <keyword>division</keyword>
      <keyword>down</keyword>
      <keyword>duplicate</keyword>
      <keyword>duplicates</keyword>
      <keyword>dynamic</keyword>

      <keyword>ebcdic</keyword>
      <keyword>ec</keyword>
      <keyword>else</keyword>
      <keyword>empty</keyword>
      <keyword>enable</keyword>
      <keyword>end-accept</keyword>
      <keyword>end-add</keyword>
      <keyword>end-compute</keyword>
      <keyword>end-delete</keyword>
      <keyword>end-display</keyword>
      <keyword>end-divide</keyword>
      <keyword>end-evaluate</keyword>
      <keyword>end-invoke</keyword>
      <keyword>end-multiply</keyword>
      <keyword>end-of-page</keyword>
      <keyword>end-read</keyword>
      <keyword>end-receive</keyword>
      <keyword>end-return</keyword>
      <keyword>end-rewrite</keyword>
      <keyword>end-search</keyword>
      <keyword>end-start</keyword>
      <keyword>end-string</keyword>
      <keyword>end-subtract</keyword>
      <keyword>end-unstring</keyword>
      <keyword>end-write</keyword>
      <keyword>end</keyword>
      <keyword>ending</keyword>
      <keyword>entry</keyword>
      <keyword>eo</keyword>
      <keyword>eop</keyword>
      <keyword>equal</keyword>
      <keyword>equals</keyword>
      <keyword>erase</keyword>
      <keyword>error</keyword>
      <keyword>escape</keyword>
      <keyword>evaluate</keyword>
      <keyword>every</keyword>
      <keyword>exception-object</keyword>
      <keyword>exception</keyword>
      <keyword>exclusive</keyword>
      <keyword>exit</keyword>
      <keyword>extend</keyword>
      <keyword>extended</keyword>
      <keyword>external</keyword>

      <keyword>factory</keyword>
      <keyword>false</keyword>
      <keyword>fd</keyword>
      <keyword>fetch</keyword>
      <keyword>file-control</keyword>
      <keyword>filler</keyword>
      <keyword>final</keyword>
      <keyword>find</keyword>
      <keyword>finish</keyword>
      <keyword>first</keyword>
      <keyword>float-extended</keyword>
      <keyword>float-long</keyword>
      <keyword>float-short</keyword>
      <keyword>footing</keyword>
      <keyword>for</keyword>
      <keyword>format</keyword>
      <keyword>free</keyword>
      <keyword>from</keyword>
      <keyword>function-id</keyword>
      <keyword>function</keyword>

      <keyword>generate</keyword>
      <keyword>get</keyword>
      <keyword>giving</keyword>
      <keyword>global</keyword>
      <keyword>go</keyword>
      <keyword>greater</keyword>
      <keyword>group-usage</keyword>
      <keyword>group</keyword>

      <keyword>heading</keyword>

      <keyword>i-o-control</keyword>
      <keyword>i-o</keyword>
      <keyword>id</keyword>
      <keyword>ignoring</keyword>
      <keyword>in</keyword>
      <keyword>including</keyword>
      <keyword>index</keyword>
      <keyword>indexed</keyword>
      <keyword>indicate</keyword>
      <keyword>inherits</keyword>
      <keyword>initial</keyword>
      <keyword>initialize</keyword>
      <keyword>initiate</keyword>
      <keyword>input</keyword>
      <keyword>inspect</keyword>
      <keyword>installation</keyword>
      <keyword>interface</keyword>
      <keyword>interface-id</keyword>
      <keyword>into</keyword>
      <keyword>invalid</keyword>
      <keyword>is</keyword>

      <keyword>just</keyword>
      <keyword>justified</keyword>

      <keyword>keep</keyword>
      <keyword>key</keyword>

      <keyword>label</keyword>
      <keyword>last</keyword>
      <keyword>leading</keyword>
      <keyword>left</keyword>
      <keyword>length</keyword>
      <keyword>less</keyword>
      <keyword>limit</keyword>
      <keyword>limited</keyword>
      <keyword>limits</keyword>
      <keyword>linage</keyword>
      <keyword>line</keyword>
      <keyword>line-counter</keyword>
      <keyword>lines</keyword>
      <keyword>locale</keyword>
      <keyword>lock</keyword>

      <keyword>mask</keyword>
      <keyword>matching</keyword>
      <keyword>member</keyword>
      <keyword>members</keyword>
      <keyword>membership</keyword>
      <keyword>memory</keyword>
      <keyword>merge</keyword>
      <keyword>message</keyword>
      <keyword>method</keyword>
      <keyword>method-id</keyword>
      <keyword>minus</keyword>
      <keyword>mode</keyword>
      <keyword>modify</keyword>
      <keyword>modules</keyword>
      <keyword>more-labels</keyword>
      <keyword>move</keyword>
      <keyword>multiple</keyword>
      <keyword>multiply</keyword>

      <keyword>national-edited</keyword>
      <keyword>national</keyword>
      <keyword>native</keyword>
      <keyword>negative</keyword>
      <keyword>nested</keyword>
      <keyword>next</keyword>
      <keyword>no</keyword>
      <keyword>not</keyword>
      <keyword>number</keyword>
      <keyword>numeric-edited</keyword>
      <keyword>numeric</keyword>

      <keyword>object-computer</keyword>
      <keyword>object-reference</keyword>
      <keyword>object</keyword>
      <keyword>occurence</keyword>
      <keyword>occurs</keyword>
      <keyword>of</keyword>
      <keyword>off</keyword>
      <keyword>omitted</keyword>
      <keyword>on</keyword>
      <keyword>open</keyword>
      <keyword>optional</keyword>
      <keyword>options</keyword>
      <keyword>or</keyword>
      <keyword>order</keyword>
      <keyword>organization</keyword>
      <keyword>other</keyword>
      <keyword>output</keyword>
      <keyword>overflow</keyword>
      <keyword>override</keyword>
      <keyword>owner</keyword>

      <keyword>packed-decimal</keyword>
      <keyword>padding</keyword>
      <keyword>page-counter</keyword>
      <keyword>page</keyword>
      <keyword>permanent</keyword>
      <keyword>pf</keyword>
      <keyword>ph</keyword>
      <keyword>pic</keyword>
      <keyword>picture</keyword>
      <keyword>plus</keyword>
      <keyword>pointer</keyword>
      <keyword>position</keyword>
      <keyword>positive</keyword>
      <keyword>present</keyword>
      <keyword>print-switch</keyword>
      <keyword>printing</keyword>
      <keyword>prior</keyword>
      <keyword>proceed</keyword>
      <keyword>program-begin</keyword>
      <keyword>program-done</keyword>
      <keyword>program-id</keyword>
      <keyword>program-pointer</keyword>
      <keyword>program</keyword>
      <keyword>property</keyword>
      <keyword>protected</keyword>
      <keyword>prototype</keyword>
      <keyword>purge</keyword>

      <keyword>raise</keyword>
      <keyword>raising</keyword>
      <keyword>random</keyword>
      <keyword>rd</keyword>
      <keyword>read</keyword>
      <keyword>ready</keyword>
      <keyword>realm-name</keyword>
      <keyword>realm</keyword>
      <keyword>receive</keyword>
      <keyword>record</keyword>
      <keyword>recording</keyword>
      <keyword>records</keyword>
      <keyword>redefines</keyword>
      <keyword>reel</keyword>
      <keyword>reference</keyword>
      <keyword>relative</keyword>
      <keyword>release</keyword>
      <keyword>remainder</keyword>
      <keyword>removal</keyword>
      <keyword>renames</keyword>
      <keyword>repeated</keyword>
      <keyword>replace</keyword>
      <keyword>replacing</keyword>
      <keyword>report</keyword>
      <keyword>reporting</keyword>
      <keyword>reports</keyword>
      <keyword>repository</keyword>
      <keyword>rerun</keyword>
      <keyword>reserve</keyword>
      <keyword>reset</keyword>
      <keyword>result</keyword>
      <keyword>resume</keyword>
      <keyword>retaining</keyword>
      <keyword>retrieval</keyword>
      <keyword>retry</keyword>
      <keyword>return</keyword>
      <keyword>returning</keyword>
      <keyword>reversed</keyword>
      <keyword>rewind</keyword>
      <keyword>rewrite</keyword>
      <keyword>rf</keyword>
      <keyword>rh</keyword>
      <keyword>right</keyword>
      <keyword>rollback</keyword>
      <keyword>rounded</keyword>
      <keyword>run</keyword>

      <keyword>same</keyword>
      <keyword>screen</keyword>
      <keyword>sd</keyword>
      <keyword>search</keyword>
      <keyword>section</keyword>
      <keyword>security</keyword>
      <keyword>segment-limit</keyword>
      <keyword>select</keyword>
      <keyword>selective</keyword>
      <keyword>self</keyword>
      <keyword>send</keyword>
      <keyword>sentence</keyword>
      <keyword>separate</keyword>
      <keyword>sequence</keyword>
      <keyword>sequential</keyword>
      <keyword>set-selection</keyword>
      <keyword>set</keyword>
      <keyword>sets</keyword>
      <keyword>sharing</keyword>
      <keyword>sign</keyword>
      <keyword>size</keyword>
      <keyword>sort-merge</keyword>
      <keyword>sort-tape</keyword>
      <keyword>sort-tapes</keyword>
      <keyword>sort</keyword>
      <keyword>sorted</keyword>
      <keyword>source-computer</keyword>
      <keyword>source</keyword>
      <keyword>sources</keyword>
      <keyword>special-names</keyword>
      <keyword>standard-1</keyword>
      <keyword>standard-2</keyword>
      <keyword>standard</keyword>
      <keyword>start</keyword>
      <keyword>status</keyword>
      <keyword>stop</keyword>
      <keyword>store</keyword>
      <keyword>string</keyword>
      <keyword>sub-schema</keyword>
      <keyword>subtract</keyword>
      <keyword>sum</keyword>
      <keyword>super</keyword>
      <keyword>suppress</keyword>
      <keyword>suppressing</keyword>
      <keyword>symbolic</keyword>
      <keyword>sync</keyword>
      <keyword>synchronized</keyword>
      <keyword>system-default</keyword>
      <keyword>system</keyword>

      <keyword>table</keyword>
      <keyword>tally</keyword>
      <keyword>tallying</keyword>
      <keyword>tape</keyword>
      <keyword>tapes</keyword>
      <keyword>tenant</keyword>
      <keyword>terminal</keyword>
      <keyword>terminate</keyword>
      <keyword>test</keyword>
      <keyword>than</keyword>
      <keyword>then</keyword>
      <keyword>through</keyword>
      <keyword>thru</keyword>
      <keyword>time</keyword>
      <keyword>times</keyword>
      <keyword>to</keyword>
      <keyword>top</keyword>
      <keyword>trailing</keyword>
      <keyword>true</keyword>
      <keyword>try</keyword>
      <keyword>type</keyword>
      <keyword>typedef</keyword>

      <keyword>unit</keyword>
      <keyword>units</keyword>
      <keyword>universal</keyword>
      <keyword>unlock</keyword>
      <keyword>unstring</keyword>
      <keyword>until</keyword>
      <keyword>up</keyword>
      <keyword>update</keyword>
      <keyword>upon</keyword>
      <keyword>usage-mode</keyword>
      <keyword>usage</keyword>
      <keyword>use</keyword>
      <keyword>user-default</keyword>
      <keyword>using</keyword>

      <keyword>val-status</keyword>
      <keyword>valid</keyword>
      <keyword>validate-status</keyword>
      <keyword>validate</keyword>
      <keyword>value</keyword>
      <keyword>values</keyword>
      <keyword>varying</keyword>
      <keyword>via</keyword>

      <keyword>when</keyword>
      <keyword>with</keyword>
      <keyword>within</keyword>
      <keyword>words</keyword>
      <keyword>write</keyword>
    </context>

    <context id="section-name" style-ref="keyword">
      <keyword>configuration</keyword>
      <keyword>input-output</keyword>
      <keyword>file</keyword>
      <keyword>working-storage</keyword>
      <keyword>local-storage</keyword>
      <keyword>linkage</keyword>
    </context>

    <context id="division-name" style-ref="keyword">
      <keyword>identification</keyword>
      <keyword>environment</keyword>
      <keyword>data</keyword>
      <keyword>procedure</keyword>
    </context>

    <context id="call" style-ref="statement">
      <keyword>end-call</keyword>
      <keyword>call</keyword>
      <keyword>cancel</keyword>
      <keyword>goback</keyword>
      <keyword>end-perform</keyword>
      <keyword>perform</keyword>
      <keyword>invoke</keyword>
      <keyword>end-if</keyword>
      <keyword>if</keyword>
    </context>

    <context id="cobol" class="no-spell-check">
      <include>
        <context ref="constant"/>
        <context ref="keyword"/>
        <context ref="call"/>
        <context ref="division-name"/>
        <context ref="section-name"/>
        <context ref="line-comment"/>
        <context ref="bad-ident"/>
        <context ref="bad-comment-line"/>
        <context ref="bad-long-line"/>
        <context ref="string-double-quote"/>
        <context ref="string-single-quote"/>
        <context ref="number"/>
        <context ref="variable"/>
      </include>
    </context>

  </definitions>
</language>