cobol.lang

# Cobol language definition
# to be tested, I don't know anything about cobol

comment start '^[[:blank:]]*\*'

keyword = "accept|access|add|advancing|after|all|alphabet|alphabetic|alphabetic-lower|alphabetic-upper",
"alphanumeric|alphanumeric-edited|also|alter|alternate|and|any|are|area|areas|ascending|assign|at|author",
"before|binary|blank|block|bottom|by|call|cancel|cd|cf|ch|character|characters|class|clock-units",
"close|cobol|code|code-set|collating|column|comma|common|communication|comp|comp-0|comp-1|comp-2|comp-3",
"comp-4|comp-5|comp-6|comp-x|computational|computational-0|computational-1|computational-2|computational-3",
"computational-4|computational-5|computational-6|computational-x|compute|configuration|contains|content|continue",
"control|control-area|controls|converting|copy|corr|corresponding|count|currency|data|date|date-compiled",
"date-written|day|day-of-week|de|debug-contents|debug-item|debug-line|debug-name|debug-sub-1|debug-sub-2|debug-sub-3",
"debugging|decimal-point|declaratives|delete|delimited|delimiter|depending|descending|destination|detail|disable",
"display|divide|division|down|duplicates|dynamic|egi|else|emi|enable|end|end-add|end-call|end-compute|end-delete",
"end-divide|end-evaluate|end-if|end-multiply|end-of-page|end-perform|end-read|end-receive|end-return|end-rewrite",
"end-search|end-start|end-string|end-subtract|end-unstring|end-write|enter|environment|eop|equal|error",
"esi|evaluate|every|exception|exit|extend|external|false|fd|file|file-control|filler|final|first",
"footing|for|from|function|generate|giving|global|go|greater|group|heading|high-value|high-values|i-o|i-o-control",
"identification|if|in|index|indexed|indicate|initial|initialize|initiate|input|input-output|inspect|installation",
"into|invalid|just|justified|key|label|last|leading|left|length|less|limit|limits|linage|linage-counter",
"line|line-counter|lines|linkage|lock|low-value|low-values|memory|merge|message|mode|modules|more-labels",
"move|multiple|multiply|native|negative|next|no|notnumber|numeric|numeric-edited|object-computer|occurs",
"of|off|omitted|on|open|optional|or|order|organization|other|output|overflow|packed-decimal|padding|page",
"page-counter|perform|pf|ph|pic|picture|plus|pointer|position|positiveprinting|procedure|procedures|proceed|program-id|program|purge|queue|quote|quotes|random|rd|read|receive|record|records|redefines|reel|reference|references|relative|release|remainder|removal|renames|replace|replacing|report|reporting|reports|rerun|reserve|returnreversed|rewind|rewrite|rf|rh|right|rounded|run|same|sd|search|section|security|segment|segment-limit|select|send|sentence|separate|sequence|sequential|set|sign|size|sort|sort-mergesource|source-computer|space|spaces|special-names|standard|standard-1|standard-2|start|status|stop|string|sub-queue-1|sub-queue-2|sub-queue-3|subtract|sum|super|suppress|symbolic|sync|synchronized|tallying|tape|terminal|terminate|test|text|than|then|through|thru|time|times|to|top|trailing|true|type|unit|unstring|until|up|upon|usage|useusing|value|valuesvarying|whenwith|words|working-storage|write|zerozeroes|zeros"
nonsensitive

include "symbols.lang"
include "c_string.lang"
include "number.lang"