Mercurial > hg > RemoteEditor > vim7

comparison runtime/syntax/cobol.vim @ 0:76efa0be13f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author atsuki
date Sat, 10 Nov 2007 15:07:22 +0900
parents
children e170173ecb68
comparison
equal deleted inserted replaced
-1:000000000000 0:76efa0be13f1
1 " Vim syntax file
2 " Language: COBOL
3 " Maintainer: Tim Pope <vimNOSPAM@tpope.info>
4 " (formerly Davyd Ondrejko <vondraco@columbus.rr.com>)
5 " (formerly Sitaram Chamarty <sitaram@diac.com> and
6 " James Mitchell <james_mitchell@acm.org>)
7 " $Id$
8
9 " For version 5.x: Clear all syntax items
10 " For version 6.x: Quit when a syntax file was already loaded
11 if version < 600
12 syntax clear
13 elseif exists("b:current_syntax")
14 finish
15 endif
16
17 " MOST important - else most of the keywords wont work!
18 if version < 600
19 set isk=@,48-57,-
20 else
21 setlocal isk=@,48-57,-
22 endif
23
24 syn case ignore
25
26 syn cluster cobolStart contains=cobolAreaA,cobolAreaB,cobolComment,cobolCompiler
27 syn cluster cobolAreaA contains=cobolParagraph,cobolSection,cobolDivision
28 "syn cluster cobolAreaB contains=
29 syn cluster cobolAreaAB contains=cobolLine
30 syn cluster cobolLine contains=cobolReserved
31 syn match cobolMarker "^\%( \{,5\}[^ ]\)\@=.\{,6}" nextgroup=@cobolStart
32 syn match cobolSpace "^ \{6\}" nextgroup=@cobolStart
33 syn match cobolAreaA " \{1,4\}" contained nextgroup=@cobolAreaA,@cobolAreaAB
34 syn match cobolAreaB " \{5,\}\|- *" contained nextgroup=@cobolAreaB,@cobolAreaAB
35 syn match cobolComment "[/*C].*$" contained
36 syn match cobolCompiler "$.*$" contained
37 syn match cobolLine ".*$" contained contains=cobolReserved,@cobolLine
38
39 syn match cobolDivision "[A-Z][A-Z0-9-]*[A-Z0-9]\s\+DIVISION\."he=e-1 contained contains=cobolDivisionName
40 syn keyword cobolDivisionName contained IDENTIFICATION ENVIRONMENT DATA PROCEDURE
41 syn match cobolSection "[A-Z][A-Z0-9-]*[A-Z0-9]\s\+SECTION\."he=e-1 contained contains=cobolSectionName
42 syn keyword cobolSectionName contained CONFIGURATION INPUT-OUTPUT FILE WORKING-STORAGE LOCAL-STORAGE LINKAGE
43 syn match cobolParagraph "\a[A-Z0-9-]*[A-Z0-9]\.\|\d[A-Z0-9-]*[A-Z]\."he=e-1 contained contains=cobolParagraphName
44 syn keyword cobolParagraphName contained PROGRAM-ID SOURCE-COMPUTER OBJECT-COMPUTER SPECIAL-NAMES FILE-CONTROL I-O-CONTROL
45
46
47 "syn match cobolKeys "^\a\{1,6\}" contains=cobolReserved
48 syn keyword cobolReserved contained ACCEPT ACCESS ADD ADDRESS ADVANCING AFTER ALPHABET ALPHABETIC
49 syn keyword cobolReserved contained ALPHABETIC-LOWER ALPHABETIC-UPPER ALPHANUMERIC ALPHANUMERIC-EDITED ALS
50 syn keyword cobolReserved contained ALTERNATE AND ANY ARE AREA AREAS ASCENDING ASSIGN AT AUTHOR BEFORE BINARY
51 syn keyword cobolReserved contained BLANK BLOCK BOTTOM BY CANCEL CBLL CD CF CH CHARACTER CHARACTERS CLASS
52 syn keyword cobolReserved contained CLOCK-UNITS CLOSE COBOL CODE CODE-SET COLLATING COLUMN COMMA COMMON
53 syn keyword cobolReserved contained COMMUNICATIONS COMPUTATIONAL COMPUTE CONTENT CONTINUE
54 syn keyword cobolReserved contained CONTROL CONVERTING CORR CORRESPONDING COUNT CURRENCY DATE DATE-COMPILED
55 syn keyword cobolReserved contained DATE-WRITTEN DAY DAY-OF-WEEK DE DEBUG-CONTENTS DEBUG-ITEM DEBUG-LINE
56 syn keyword cobolReserved contained DEBUG-NAME DEBUG-SUB-1 DEBUG-SUB-2 DEBUG-SUB-3 DEBUGGING DECIMAL-POINT
57 syn keyword cobolReserved contained DELARATIVES DELETE DELIMITED DELIMITER DEPENDING DESCENDING DESTINATION
58 syn keyword cobolReserved contained DETAIL DISABLE DISPLAY DIVIDE DIVISION DOWN DUPLICATES DYNAMIC EGI ELSE EMI
59 syn keyword cobolReserved contained ENABLE END-ADD END-COMPUTE END-DELETE END-DIVIDE END-EVALUATE END-IF
60 syn keyword cobolReserved contained END-MULTIPLY END-OF-PAGE END-READ END-RECEIVE END-RETURN
61 syn keyword cobolReserved contained END-REWRITE END-SEARCH END-START END-STRING END-SUBTRACT END-UNSTRING
62 syn keyword cobolReserved contained END-WRITE EQUAL ERROR ESI EVALUATE EVERY EXCEPTION EXIT
63 syn keyword cobolReserved contained EXTEND EXTERNAL FALSE FD FILLER FINAL FIRST FOOTING FOR FROM
64 syn keyword cobolReserved contained GENERATE GIVING GLOBAL GREATER GROUP HEADING HIGH-VALUE HIGH-VALUES I-O
65 syn keyword cobolReserved contained IN INDEX INDEXED INDICATE INITIAL INITIALIZE
66 syn keyword cobolReserved contained INITIATE INPUT INSPECT INSTALLATION INTO IS JUST
67 syn keyword cobolReserved contained JUSTIFIED KEY LABEL LAST LEADING LEFT LENGTH LOCK MEMORY
68 syn keyword cobolReserved contained MERGE MESSAGE MODE MODULES MOVE MULTIPLE MULTIPLY NATIVE NEGATIVE NEXT NO NOT
69 syn keyword cobolReserved contained NUMBER NUMERIC NUMERIC-EDITED OCCURS OF OFF OMITTED ON OPEN
70 syn keyword cobolReserved contained OPTIONAL OR ORDER ORGANIZATION OTHER OUTPUT OVERFLOW PACKED-DECIMAL PADDING
71 syn keyword cobolReserved contained PAGE PAGE-COUNTER PERFORM PF PH PIC PICTURE PLUS POINTER POSITION POSITIVE
72 syn keyword cobolReserved contained PRINTING PROCEDURES PROCEDD PROGRAM PURGE QUEUE QUOTES
73 syn keyword cobolReserved contained RANDOM RD READ RECEIVE RECORD RECORDS REDEFINES REEL REFERENCE REFERENCES
74 syn keyword cobolReserved contained RELATIVE RELEASE REMAINDER REMOVAL REPLACE REPLACING REPORT REPORTING
75 syn keyword cobolReserved contained REPORTS RERUN RESERVE RESET RETURN RETURNING REVERSED REWIND REWRITE RF RH
76 syn keyword cobolReserved contained RIGHT ROUNDED RUN SAME SD SEARCH SECTION SECURITY SEGMENT SEGMENT-LIMITED
77 syn keyword cobolReserved contained SELECT SEND SENTENCE SEPARATE SEQUENCE SEQUENTIAL SET SIGN SIZE SORT
78 syn keyword cobolReserved contained SORT-MERGE SOURCE STANDARD
79 syn keyword cobolReserved contained STANDARD-1 STANDARD-2 START STATUS STOP STRING SUB-QUEUE-1 SUB-QUEUE-2
80 syn keyword cobolReserved contained SUB-QUEUE-3 SUBTRACT SUM SUPPRESS SYMBOLIC SYNC SYNCHRONIZED TABLE TALLYING
81 syn keyword cobolReserved contained TAPE TERMINAL TERMINATE TEST TEXT THAN THEN THROUGH THRU TIME TIMES TO TOP
82 syn keyword cobolReserved contained TRAILING TRUE TYPE UNIT UNSTRING UNTIL UP UPON USAGE USE USING VALUE VALUES
83 syn keyword cobolReserved contained VARYING WHEN WITH WORDS WRITE
84 syn match cobolReserved contained "\<CONTAINS\>"
85 syn match cobolReserved contained "\<\(IF\|INVALID\|END\|EOP\)\>"
86 syn match cobolReserved contained "\<ALL\>"
87
88 syn cluster cobolLine add=cobolConstant,cobolNumber,cobolPic
89 syn keyword cobolConstant SPACE SPACES NULL ZERO ZEROES ZEROS LOW-VALUE LOW-VALUES
90
91 syn match cobolNumber "\<-\=\d*\.\=\d\+\>" contained
92 syn match cobolPic "\<S*9\+\>" contained
93 syn match cobolPic "\<$*\.\=9\+\>" contained
94 syn match cobolPic "\<Z*\.\=9\+\>" contained
95 syn match cobolPic "\<V9\+\>" contained
96 syn match cobolPic "\<9\+V\>" contained
97 syn match cobolPic "\<-\+[Z9]\+\>" contained
98 syn match cobolTodo "todo" contained containedin=cobolComment
99
100 " For MicroFocus or other inline comments, include this line.
101 " syn region cobolComment start="*>" end="$" contains=cobolTodo,cobolMarker
102
103 syn match cobolBadLine "[^ D\*$/-].*" contained
104 " If comment mark somehow gets into column past Column 7.
105 syn match cobolBadLine "\s\+\*.*" contained
106 syn cluster cobolStart add=cobolBadLine
107
108
109 syn keyword cobolGoTo GO GOTO
110 syn keyword cobolCopy COPY
111
112 " cobolBAD: things that are BAD NEWS!
113 syn keyword cobolBAD ALTER ENTER RENAMES
114
115 syn cluster cobolLine add=cobolGoTo,cobolCopy,cobolBAD,cobolWatch,cobolEXECs
116
117 " cobolWatch: things that are important when trying to understand a program
118 syn keyword cobolWatch OCCURS DEPENDING VARYING BINARY COMP REDEFINES
119 syn keyword cobolWatch REPLACING RUN
120 syn match cobolWatch "COMP-[123456XN]"
121
122 syn keyword cobolEXECs EXEC END-EXEC
123
124
125 syn cluster cobolAreaA add=cobolDeclA
126 syn cluster cobolAreaAB add=cobolDecl
127 syn match cobolDeclA "\(0\=1\|77\|78\) " contained nextgroup=cobolLine
128 syn match cobolDecl "[1-4]\d " contained nextgroup=cobolLine
129 syn match cobolDecl "0\=[2-9] " contained nextgroup=cobolLine
130 syn match cobolDecl "66 " contained nextgroup=cobolLine
131
132 syn match cobolWatch "88 " contained nextgroup=cobolLine
133
134 "syn match cobolBadID "\k\+-\($\|[^-A-Z0-9]\)" contained
135
136 syn cluster cobolLine add=cobolCALLs,cobolString,cobolCondFlow
137 syn keyword cobolCALLs CALL END-CALL CANCEL GOBACK PERFORM END-PERFORM INVOKE
138 syn match cobolCALLs "EXIT \+PROGRAM"
139 syn match cobolExtras /\<VALUE \+\d\+\./hs=s+6,he=e-1
140
141 syn match cobolString /"[^"]*\("\|$\)/
142 syn match cobolString /'[^']*\('\|$\)/
143
144 "syn region cobolLine start="^.\{6}[ D-]" end="$" contains=ALL
145 syn match cobolIndicator "\%7c[D-]" contained
146
147 if exists("cobol_legacy_code")
148 syn region cobolCondFlow contains=ALLBUT,cobolLine start="\<\(IF\|INVALID\|END\|EOP\)\>" skip=/\('\|"\)[^"]\{-}\("\|'\|$\)/ end="\." keepend
149 endif
150
151 " many legacy sources have junk in columns 1-6: must be before others
152 " Stuff after column 72 is in error - must be after all other "match" entries
153 if exists("cobol_legacy_code")
154 syn match cobolBadLine "\%73c.*" containedin=ALLBUT,cobolComment
155 else
156 syn match cobolBadLine "\%73c.*" containedin=ALL
157 endif
158
159 " Define the default highlighting.
160 " For version 5.7 and earlier: only when not done already
161 " For version 5.8 and later: only when an item doesn't have highlighting yet
162 if version >= 508 || !exists("did_cobol_syntax_inits")
163 if version < 508
164 let did_cobol_syntax_inits = 1
165 command -nargs=+ HiLink hi link <args>
166 else
167 command -nargs=+ HiLink hi def link <args>
168 endif
169
170 HiLink cobolBAD Error
171 HiLink cobolBadID Error
172 HiLink cobolBadLine Error
173 if exists("g:cobol_legacy_code")
174 HiLink cobolMarker Comment
175 else
176 HiLink cobolMarker Error
177 endif
178 HiLink cobolCALLs Function
179 HiLink cobolComment Comment
180 HiLink cobolKeys Comment
181 HiLink cobolAreaB Special
182 HiLink cobolCompiler PreProc
183 HiLink cobolCondFlow Special
184 HiLink cobolCopy PreProc
185 HiLink cobolDeclA cobolDecl
186 HiLink cobolDecl Type
187 HiLink cobolExtras Special
188 HiLink cobolGoTo Special
189 HiLink cobolConstant Constant
190 HiLink cobolNumber Constant
191 HiLink cobolPic Constant
192 HiLink cobolReserved Statement
193 HiLink cobolDivision Label
194 HiLink cobolSection Label
195 HiLink cobolParagraph Label
196 HiLink cobolDivisionName Keyword
197 HiLink cobolSectionName Keyword
198 HiLink cobolParagraphName Keyword
199 HiLink cobolString Constant
200 HiLink cobolTodo Todo
201 HiLink cobolWatch Special
202 HiLink cobolIndicator Special
203
204 delcommand HiLink
205 endif
206
207 let b:current_syntax = "cobol"
208
209 " vim: ts=6 nowrap