- created plugin
This commit is contained in:
Erik Mertens
commit
2dba6368a5
0
.gitignore
vendored
Normal file
0
.gitignore
vendored
Normal file
151
README.md
Normal file
151
README.md
Normal file
@ -0,0 +1,151 @@
|
|||||||
|
rpgle.vim
|
||||||
|
=========
|
||||||
|
|
||||||
|
What does it contain?
|
||||||
|
---------------------
|
||||||
|
|
||||||
|
Free-Form ILE RPG bundle for vim, which contains syntax highlighting, syntax
|
||||||
|
folds, auto indent, more match words and a few sensible keys is remapped.
|
||||||
|
|
||||||
|
### Indent
|
||||||
|
|
||||||
|
One should modify `g:rpgle_indentStart` to adjust initial indentation level,
|
||||||
|
see `:help g:rpgle_indentStart` for more information.
|
||||||
|
|
||||||
|
There is support for automatic indentation. An example is:
|
||||||
|
|
||||||
|
dcl-proc myProc;
|
||||||
|
_
|
||||||
|
|
||||||
|
The cursor is located at `_` and the indent was inserted automatic when
|
||||||
|
pressing enter after `dcl-proc`. When typing `end-proc;` the indentation will
|
||||||
|
be decreased.
|
||||||
|
|
||||||
|
With procedure interfaces indentation will only happen if the procedure takes
|
||||||
|
an argument:
|
||||||
|
|
||||||
|
dcl-pi myProc;
|
||||||
|
_
|
||||||
|
|
||||||
|
If one type `end-pi;` the result will automatic become:
|
||||||
|
|
||||||
|
dcl-pi myProc;
|
||||||
|
end-pi;
|
||||||
|
|
||||||
|
`select`-`when`-`other`-`endsl` will be indented like this:
|
||||||
|
|
||||||
|
select;
|
||||||
|
when;
|
||||||
|
a();
|
||||||
|
when;
|
||||||
|
b();
|
||||||
|
other;
|
||||||
|
c();
|
||||||
|
_
|
||||||
|
|
||||||
|
As soon as `endsl` is typed it will be aligned with the initial `select;`.
|
||||||
|
|
||||||
|
`if`-`elseif`-`else`-`endif` will be indented like this:
|
||||||
|
|
||||||
|
if a = 1;
|
||||||
|
a();
|
||||||
|
elseif b = 1;
|
||||||
|
b();
|
||||||
|
else;
|
||||||
|
c();
|
||||||
|
_
|
||||||
|
|
||||||
|
When typing `endif` the indentation will be decreased.
|
||||||
|
|
||||||
|
Currently proper SQL indentation is missing:
|
||||||
|
|
||||||
|
exec sql
|
||||||
|
select *
|
||||||
|
from a
|
||||||
|
order by 1 desc;
|
||||||
|
|
||||||
|
See `:help ft-rpgle-indent`
|
||||||
|
|
||||||
|
### Syntax
|
||||||
|
|
||||||
|
Keywords, procedures and built-in functions will all be highlighted.
|
||||||
|
|
||||||
|
See `:help ft-rpgle-syntax`
|
||||||
|
|
||||||
|
### Syntax Folds
|
||||||
|
|
||||||
|
The following folds are supported:
|
||||||
|
|
||||||
|
- if -> endif
|
||||||
|
- dow -> enddo
|
||||||
|
- dou -> enddo
|
||||||
|
- for -> endfor
|
||||||
|
- select -> endsl
|
||||||
|
- dcl-proc -> end-proc
|
||||||
|
- begsr -> endsr
|
||||||
|
|
||||||
|
See `:help ft-rpgle-fold`
|
||||||
|
|
||||||
|
### Match Words
|
||||||
|
|
||||||
|
The following match words are supported:
|
||||||
|
|
||||||
|
- select -> when -> other -> endsl
|
||||||
|
- if -> elseif -> else -> endif
|
||||||
|
- dow -> iter -> leave -> enddo
|
||||||
|
- dou -> iter -> leave -> enddo
|
||||||
|
- begsr -> endsr
|
||||||
|
- dcl-proc -> return -> endproc
|
||||||
|
- dcl-pi -> end-pi
|
||||||
|
- monitor -> on-error -> endmon
|
||||||
|
|
||||||
|
See `:help ft-rpgle-match-words`
|
||||||
|
|
||||||
|
### Movements
|
||||||
|
|
||||||
|
rpgle.vim takes the liberty to bind `[[`, `]]`, `[]`, `][`, `gd`, `[{` and `]}`
|
||||||
|
and tried to make them useful for ILE RPG programming.
|
||||||
|
|
||||||
|
`[[` and `]]` will jump to the previous or next `dcl-proc` while `][` and `[]`
|
||||||
|
will jump to the previous or next `end-proc`.
|
||||||
|
|
||||||
|
`gd` will search for the word under the cursor from the previous `dcl-proc`.
|
||||||
|
|
||||||
|
`[{` and `]}` will jump to the associated block opener, i.e. standing inside an
|
||||||
|
`if` statement and pressing `[{` will bring you to the `if`, pressing `]}` will
|
||||||
|
bring you to the `endif`.
|
||||||
|
|
||||||
|
See `:help ft-rpgle-movements`
|
||||||
|
|
||||||
|
### Omni Completion
|
||||||
|
|
||||||
|
rpgle.vim provides a naive omni completion that will attempt to suggest
|
||||||
|
completion for compiler directives and header, declaration, calculation and
|
||||||
|
procedure specifications.
|
||||||
|
|
||||||
|
Calculation specification completion requires generated generated tags.
|
||||||
|
|
||||||
|
See `:h ft-rpgle-omni`
|
||||||
|
|
||||||
|
Contributing
|
||||||
|
------------
|
||||||
|
|
||||||
|
Make a [pull request](https://github.com/andlrc/rpgle.vim/pulls) or
|
||||||
|
[issue](https://github.com/andlrc/rpgle.vim/issues)
|
||||||
|
|
||||||
|
Self-Promotion
|
||||||
|
--------------
|
||||||
|
|
||||||
|
Like rpgle.vim? Then you might also like:
|
||||||
|
|
||||||
|
- [rpglectags](https://github.com/andlrc/rpglectags) which creates tags files
|
||||||
|
from ILE RPG,
|
||||||
|
- [rpgleman](https://github.com/andlrc/rpgleman) which provides man pages for
|
||||||
|
built-in functions keywords and more,
|
||||||
|
- and [rpglefmt](https://github.com/andlrc/rpglefmt) which will format Free Form ILE
|
||||||
|
RPG programs.
|
||||||
|
|
||||||
|
License
|
||||||
|
-------
|
||||||
|
|
||||||
|
Distributed under the same terms as Vim itself. See `:help license`
|
||||||
98
autoload/rpgle/movement.vim
Normal file
98
autoload/rpgle/movement.vim
Normal file
@ -0,0 +1,98 @@
|
|||||||
|
" Vim autoload file
|
||||||
|
" Language: Free-Form ILE RPG
|
||||||
|
" Maintainer: Andreas Louv <andreas@louv.dk>
|
||||||
|
" Last Change: Dec 04, 2018
|
||||||
|
" Version: 10
|
||||||
|
" URL: https://github.com/andlrc/rpgle.vim
|
||||||
|
|
||||||
|
function! rpgle#movement#NextSection(motion, flags, mode) range abort
|
||||||
|
|
||||||
|
let cnt = v:count1
|
||||||
|
let old_pos = line('.')
|
||||||
|
|
||||||
|
if a:mode ==# 'x'
|
||||||
|
normal! gv
|
||||||
|
endif
|
||||||
|
|
||||||
|
normal! 0
|
||||||
|
|
||||||
|
mark '
|
||||||
|
while cnt > 0
|
||||||
|
call search(a:motion, a:flags . 'W')
|
||||||
|
if old_pos == line('.')
|
||||||
|
execute 'norm!' a:flags =~# 'b' ? 'gg' : 'G'
|
||||||
|
endif
|
||||||
|
let old_pos = line('.')
|
||||||
|
let cnt = cnt - 1
|
||||||
|
endwhile
|
||||||
|
|
||||||
|
normal! ^
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! rpgle#movement#NextNest(flags) abort
|
||||||
|
let flags = a:flags
|
||||||
|
let fn = a:flags ==# 'b' ? 'max' : 'min'
|
||||||
|
|
||||||
|
" We can get the list from ``b:match_words'' and just use first and last of
|
||||||
|
" each group
|
||||||
|
let poss = filter(map(split(b:match_words, ','),
|
||||||
|
\ { key, val ->
|
||||||
|
\ s:nextNestSearch(split(val, ':'), flags) }),
|
||||||
|
\ { key, val -> val > 0 })
|
||||||
|
|
||||||
|
let new_pos = call(fn, [poss])
|
||||||
|
|
||||||
|
if new_pos > 0
|
||||||
|
execute 'normal! ' . new_pos . 'G^'
|
||||||
|
endif
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:nextNestSearch(kw, flags) abort
|
||||||
|
if a:kw[0] =~? 'if'
|
||||||
|
let middle = '\<\(else\|elseif\)\>'
|
||||||
|
elseif a:kw[0] =~? 'select'
|
||||||
|
let middle = '\<\(when\|other\)\>'
|
||||||
|
else
|
||||||
|
let middle = ''
|
||||||
|
endif
|
||||||
|
|
||||||
|
return s:findpair(a:kw[0], middle, a:kw[-1], a:flags)
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:findpair(start, middle, end, flags) abort
|
||||||
|
" Find a pair which isn't inside a string nor comment
|
||||||
|
return searchpair(a:start, a:middle, a:end, a:flags . 'nW',
|
||||||
|
\ 'synIDattr(synID(line("."), col("."), 1), "name") =~? "string\\|comment"')
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! rpgle#movement#Operator(ai) abort
|
||||||
|
let pairs = map(split(b:match_words, ','), { key, val ->
|
||||||
|
\ [split(val, ':')[0], split(val, ':')[-1]] })
|
||||||
|
|
||||||
|
" Find a pair which isn't inside a string nor comment
|
||||||
|
|
||||||
|
let poss = filter(map(pairs,
|
||||||
|
\ { key, val -> {"pair": val, "pos": s:findpair(val[0], '', val[1], 'b')} }),
|
||||||
|
\ { key, val -> val.pos > 0 })
|
||||||
|
|
||||||
|
let closest = { "index": 0, "pos": -1 }
|
||||||
|
let index = 0
|
||||||
|
for pos in poss
|
||||||
|
if pos.pos > closest.pos
|
||||||
|
let closest.pos = pos.pos
|
||||||
|
let closest.index = index
|
||||||
|
let closest.pair = pos.pair
|
||||||
|
endif
|
||||||
|
let index = index + 1
|
||||||
|
endfor
|
||||||
|
|
||||||
|
let match_words = b:match_words
|
||||||
|
let b:match_words = join(closest.pair, ':')
|
||||||
|
execute 'normal! ' . closest.pos . 'G^V'
|
||||||
|
normal %
|
||||||
|
let b:match_words = match_words
|
||||||
|
|
||||||
|
if a:ai == 'i'
|
||||||
|
normal! koj
|
||||||
|
endif
|
||||||
|
endfunction
|
||||||
428
autoload/rpgle/omni.vim
Normal file
428
autoload/rpgle/omni.vim
Normal file
@ -0,0 +1,428 @@
|
|||||||
|
" Vim completion script
|
||||||
|
" Language: Free-Form ILE RPG
|
||||||
|
" Maintainer: Andreas Louv <andreas@louv.dk>
|
||||||
|
" Last Change: Jul 24, 2019
|
||||||
|
" Version: 10
|
||||||
|
" URL: https://github.com/andlrc/rpgle.vim
|
||||||
|
"
|
||||||
|
" Complete via tag files, this code is experimental
|
||||||
|
|
||||||
|
let s:keywords = [
|
||||||
|
\ ['alias', ['ds']],
|
||||||
|
\ ['align', ['ds']],
|
||||||
|
\ ['alt(', ['s', 'ds']],
|
||||||
|
\ ['altseq(', ['s', 'ds', 'subf', 'pi', 'pr', 'prp']],
|
||||||
|
\ ['ascend', ['s', 'ds', 'prp']],
|
||||||
|
\ ['based(', ['s', 'ds', 'pr']],
|
||||||
|
\ ['bindec(', ['s', 'subf', 'pip', 'prp']],
|
||||||
|
\ ['ccsid(', ['s', 'subf', 'pip', 'prp']],
|
||||||
|
\ ['char(', ['s', 'subf', 'pip', 'prp']],
|
||||||
|
\ ['class(', ['s', 'subf', 'pip', 'prp']],
|
||||||
|
\ ['const(', ['c']],
|
||||||
|
\ ['ctdata', ['s', 'subf']],
|
||||||
|
\ ['date', ['s', 'subf', 'pip', 'prp']],
|
||||||
|
\ ['date(', ['s', 'subf', 'pip', 'prp']],
|
||||||
|
\ ['descend', ['s', 'ds', 'prp']],
|
||||||
|
\ ['dim(', ['s', 'ds', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['dtaara', ['s', 'ds', 'subf']],
|
||||||
|
\ ['dtaara(', ['s', 'ds', 'subf']],
|
||||||
|
\ ['export', ['s', 'ds', 'proc']],
|
||||||
|
\ ['export(', ['s', 'ds', 'proc']],
|
||||||
|
\ ['ext', ['ds']],
|
||||||
|
\ ['extfld', ['subf']],
|
||||||
|
\ ['extfld(', ['subf']],
|
||||||
|
\ ['extname(', ['ds']],
|
||||||
|
\ ['extpgm', ['pr']],
|
||||||
|
\ ['extpgm(', ['pr']],
|
||||||
|
\ ['extproc', ['pr']],
|
||||||
|
\ ['extproc(', ['pr']],
|
||||||
|
\ ['extproc(', ['pr']],
|
||||||
|
\ ['float(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['graph(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['import', ['s', 'ds', 'proc']],
|
||||||
|
\ ['import(', ['s', 'ds', 'proc']],
|
||||||
|
\ ['int(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['ind', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['inz', ['s', 'ds', 'subf']],
|
||||||
|
\ ['inz(', ['s', 'subf']],
|
||||||
|
\ ['len(', ['s', 'ds', 'subf', 'pr', 'prp']],
|
||||||
|
\ ['like(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['likeds(', ['ds']],
|
||||||
|
\ ['likefile(', ['prp']],
|
||||||
|
\ ['likerec(', ['ds', 'subf', 'pr', 'prp']],
|
||||||
|
\ ['noopt', ['s', 'ds']],
|
||||||
|
\ ['nullind', ['s', 'ds']],
|
||||||
|
\ ['nullind(', ['s', 'ds']],
|
||||||
|
\ ['object', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['object(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['occurs(', ['ds']],
|
||||||
|
\ ['opdesc', ['pr']],
|
||||||
|
\ ['options(', ['pip', 'prp']],
|
||||||
|
\ ['overlay(', ['subf']],
|
||||||
|
\ ['packed(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['packeven', ['subf']],
|
||||||
|
\ ['perrcd(', ['s']],
|
||||||
|
\ ['pointer', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['pointer(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['pos(', ['subf']],
|
||||||
|
\ ['prefix(', ['subf']],
|
||||||
|
\ ['psds', ['ds']],
|
||||||
|
\ ['qualified', ['ds']],
|
||||||
|
\ ['static', ['s', 'ds']],
|
||||||
|
\ ['static(', ['s', 'ds']],
|
||||||
|
\ ['template', ['s', 'ds']],
|
||||||
|
\ ['time', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['time(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['timestamp', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['timestamp(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['ucs2(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['uns(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['value', ['pip', 'prp']],
|
||||||
|
\ ['varchar(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['vargraph(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['varucs2(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ['zoned(', ['s', 'subf', 'pi', 'pip', 'pr', 'prp']],
|
||||||
|
\ ]
|
||||||
|
|
||||||
|
let s:bifs = [
|
||||||
|
\ ['%abs', 'Absolute Value of Expression'],
|
||||||
|
\ ['%addr', 'Get Address of Variable'],
|
||||||
|
\ ['%alloc', 'Allocate Storage'],
|
||||||
|
\ ['%bitand', 'Bitwise AND Operation'],
|
||||||
|
\ ['%bitnot', 'Invert Bits'],
|
||||||
|
\ ['%bitor', 'Bitwise OR Operation'],
|
||||||
|
\ ['%bitxor', 'Bitwise Exclusive-OR Operation'],
|
||||||
|
\ ['%char', 'Convert to Character Data'],
|
||||||
|
\ ['%check', 'Check Characters'],
|
||||||
|
\ ['%checkr', 'Check Reverse'],
|
||||||
|
\ ['%data', 'document {:options}'],
|
||||||
|
\ ['%date', 'Convert to Date'],
|
||||||
|
\ ['%days', 'Number of Days'],
|
||||||
|
\ ['%dec', 'Convert to Packed Decimal Format'],
|
||||||
|
\ ['%dech', 'Convert to Packed Decimal Format with Half Adjust'],
|
||||||
|
\ ['%decpos', 'Get Number of Decimal Positions'],
|
||||||
|
\ ['%diff', 'Difference Between Two Date, Time, or Timestamp Values'],
|
||||||
|
\ ['%div', 'Return Integer Portion of Quotient'],
|
||||||
|
\ ['%editc', 'Edit Value Using an Editcode'],
|
||||||
|
\ ['%editflt', 'Convert to Float External Representation'],
|
||||||
|
\ ['%editw', 'Edit Value Using an Editword'],
|
||||||
|
\ ['%elem', 'Get Number of Elements'],
|
||||||
|
\ ['%eof', 'Return End or Beginning of File Condition'],
|
||||||
|
\ ['%equal', 'Return Exact Match Condition'],
|
||||||
|
\ ['%error', 'Return Error Condition'],
|
||||||
|
\ ['%fields', 'Fields to update'],
|
||||||
|
\ ['%float', 'Convert to Floating Format'],
|
||||||
|
\ ['%found', 'Return Found Condition'],
|
||||||
|
\ ['%graph', 'Convert to Graphic Value'],
|
||||||
|
\ ['%handler', 'handlingProcedure : communicationArea '],
|
||||||
|
\ ['%hours', 'Number of Hours'],
|
||||||
|
\ ['%int', 'Convert to Integer Format'],
|
||||||
|
\ ['%inth', 'Convert to Integer Format with Half Adjust'],
|
||||||
|
\ ['%kds', 'Search Arguments in Data Structure'],
|
||||||
|
\ ['%len', 'Get or Set Length'],
|
||||||
|
\ ['%lookupxx', 'Look Up an Array Element'],
|
||||||
|
\ ['%max', 'Maximum Value'],
|
||||||
|
\ ['%min', 'Minimum Value'],
|
||||||
|
\ ['%minutes', 'Number of Minutes'],
|
||||||
|
\ ['%months', 'Number of Months'],
|
||||||
|
\ ['%mseconds', 'Number of Microseconds'],
|
||||||
|
\ ['%nullind', 'Query or Set Null Indicator'],
|
||||||
|
\ ['%occur', 'Set/Get Occurrence of a Data Structure'],
|
||||||
|
\ ['%open', 'Return File Open Condition'],
|
||||||
|
\ ['%paddr', 'Get Procedure Address'],
|
||||||
|
\ ['%parms', 'Return Number of Parameters'],
|
||||||
|
\ ['%parmnum', 'Return Parameter Number'],
|
||||||
|
\ ['%parser', 'parser {: options}'],
|
||||||
|
\ ['%proc', 'Return Name of Current Procedure'],
|
||||||
|
\ ['%realloc', 'Reallocate Storage'],
|
||||||
|
\ ['%rem', 'Return Integer Remainder'],
|
||||||
|
\ ['%replace', 'Replace Character String'],
|
||||||
|
\ ['%scan', 'Scan for Characters'],
|
||||||
|
\ ['%scanr', 'Scan Reverse for Characters'],
|
||||||
|
\ ['%scanrpl', 'Scan and Replace Characters'],
|
||||||
|
\ ['%seconds', 'Number of Seconds'],
|
||||||
|
\ ['%shtdn', 'Shut Down'],
|
||||||
|
\ ['%size', 'Get Size in Bytes'],
|
||||||
|
\ ['%sqrt', 'Square Root of Expression'],
|
||||||
|
\ ['%status', 'Return File or Program Status'],
|
||||||
|
\ ['%str', 'Get or Store Null-Terminated String'],
|
||||||
|
\ ['%subarr', 'Set/Get Portion of an Array'],
|
||||||
|
\ ['%subdt', 'Extract a Portion of a Date, Time, or Timestamp'],
|
||||||
|
\ ['%subst', 'Get Substring'],
|
||||||
|
\ ['%this', 'Return Class Instance for Native Method'],
|
||||||
|
\ ['%time', 'Convert to Time'],
|
||||||
|
\ ['%timestamp', 'Convert to Timestamp'],
|
||||||
|
\ ['%tlookupxx', 'Look Up a Table Element'],
|
||||||
|
\ ['%trim', 'Trim Characters at Edges'],
|
||||||
|
\ ['%triml', 'Trim Leading Characters'],
|
||||||
|
\ ['%trimr', 'Trim Trailing Characters'],
|
||||||
|
\ ['%ucs2', 'Convert to UCS-2 Value'],
|
||||||
|
\ ['%uns', 'Convert to Unsigned Format'],
|
||||||
|
\ ['%unsh', 'Convert to Unsigned Format with Half Adjust'],
|
||||||
|
\ ['%xfoot', 'Sum Array Expression Elements'],
|
||||||
|
\ ['%xlate', 'Translate'],
|
||||||
|
\ ['%xml', 'xmlDocument {:options}'],
|
||||||
|
\ ['%years', 'Number of Years']
|
||||||
|
\]
|
||||||
|
|
||||||
|
function! rpgle#omni#Complete(findstart, base) abort
|
||||||
|
if a:findstart
|
||||||
|
" Locate the start of the item
|
||||||
|
let line = getline('.')
|
||||||
|
let start = col('.') - 1
|
||||||
|
|
||||||
|
if line =~? '^\s*/'
|
||||||
|
" Compiler directive
|
||||||
|
let s:type = 'compdir'
|
||||||
|
while start > 0
|
||||||
|
if line[start - 1] =~? '\S'
|
||||||
|
let start -= 1
|
||||||
|
else
|
||||||
|
break
|
||||||
|
endif
|
||||||
|
endwhile
|
||||||
|
elseif line =~? '^\s*ctl-opt\>'
|
||||||
|
" Header Specs
|
||||||
|
let s:type = 'hspec'
|
||||||
|
while start > 0
|
||||||
|
if line[start - 1] =~? '\k'
|
||||||
|
let start -= 1
|
||||||
|
else
|
||||||
|
break
|
||||||
|
endif
|
||||||
|
endwhile
|
||||||
|
elseif line =~? '^\s*dcl-'
|
||||||
|
" Declaration Specs
|
||||||
|
let s:type = 'dspec'
|
||||||
|
while start > 0
|
||||||
|
if line[start - 1] =~? '\k'
|
||||||
|
let start -= 1
|
||||||
|
else
|
||||||
|
break
|
||||||
|
endif
|
||||||
|
endwhile
|
||||||
|
else
|
||||||
|
" Assume Calculation Spec
|
||||||
|
let s:type = 'cspec'
|
||||||
|
let lastword = -1
|
||||||
|
while start > 0
|
||||||
|
if line[start - 1] =~# '\w'
|
||||||
|
let start -= 1
|
||||||
|
elseif line[start - 1] ==# '.'
|
||||||
|
let s:type = 'cspec_struct'
|
||||||
|
let member_start = start
|
||||||
|
let start -= 1
|
||||||
|
elseif line[start - 1] ==# '%'
|
||||||
|
let s:type = 'cspec_bif'
|
||||||
|
let start -= 1
|
||||||
|
else
|
||||||
|
break
|
||||||
|
endif
|
||||||
|
endwhile
|
||||||
|
|
||||||
|
if s:type ==# 'cspec_struct'
|
||||||
|
let s:struct = strpart(line, start, member_start - start - 1)
|
||||||
|
return member_start
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
let s:struct = ''
|
||||||
|
return start
|
||||||
|
endif
|
||||||
|
|
||||||
|
" Return list of matches:
|
||||||
|
if s:type ==# 'compdir'
|
||||||
|
return s:Compdir(a:base)
|
||||||
|
elseif s:type ==# 'hspec'
|
||||||
|
return s:HSpec(a:base)
|
||||||
|
elseif s:type ==# 'dspec'
|
||||||
|
return s:DSpec(a:base)
|
||||||
|
elseif s:type ==# 'cspec_struct'
|
||||||
|
return s:CSpecStruct(a:base, s:struct)
|
||||||
|
elseif s:type ==# 'cspec_bif'
|
||||||
|
return s:CSpecBIF(a:base)
|
||||||
|
elseif s:type ==# 'cspec'
|
||||||
|
return s:CSpec(a:base)
|
||||||
|
endif
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:Compdir(base) abort
|
||||||
|
let line = getline('.')
|
||||||
|
echom a:base
|
||||||
|
" Filename completion
|
||||||
|
if line =~? '^\s*/\%(include\|copy\)\s\+'
|
||||||
|
let matches = globpath(&path, '*', 0, 1)
|
||||||
|
call filter(matches, { key, val -> val =~? '\.\%(rpgleinc\|mbr\)$' })
|
||||||
|
call map(matches, 's:Path2Suggetion(v:val)')
|
||||||
|
call filter(matches, { key, val -> val =~? '\%(^\|,\)' . a:base })
|
||||||
|
return map(matches, 's:Path2Item(v:val)')
|
||||||
|
else
|
||||||
|
return filter(['/copy', '/define', '/eject', '/else', '/elseif',
|
||||||
|
\ '/end-free', '/endif', '/eof', '/free', '/if', '/include',
|
||||||
|
\ '/restore', '/set', '/space', '/title', '/undefine'],
|
||||||
|
\ { key, val -> val =~? '^' . a:base })
|
||||||
|
endif
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:HSpec(base) abort
|
||||||
|
return filter(['actgrp(', 'alloc(', 'altseq', 'alwnull(', 'aut(',
|
||||||
|
\ 'bnddir(', 'ccsid(', 'ccsidcvt(', 'copynest(', 'copyright(',
|
||||||
|
\ 'cursym(', 'cvtopt(', 'datedit(', 'datfmt(', 'dclopt(',
|
||||||
|
\ 'debug', 'decedit(', 'decprec(', 'dftactgrp(', 'dftname(',
|
||||||
|
\ 'enbpfrcol(', 'expropts(', 'extbinint', 'fixnbr(', 'fltdiv',
|
||||||
|
\ 'formsalign', 'ftrans', 'genlvl(', 'indent(', 'intprec(',
|
||||||
|
\ 'langid(', 'main(', 'nomain', 'openopt(', 'optimize(',
|
||||||
|
\ 'option(', 'pgminfo(', 'prfdta(', 'srtseq(', 'stgmdl(',
|
||||||
|
\ 'text(', 'thread(', 'timfmt(', 'truncnbr(', 'usrprf(',
|
||||||
|
\ 'validate('],
|
||||||
|
\ { key, val -> val =~? '^' . a:base })
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:DSpec(base) abort
|
||||||
|
if a:base =~? 'dcl-'
|
||||||
|
let matches = filter(['dcl-s', 'dcl-c', 'dcl-ds', 'dcl-pr', 'dcl-proc',
|
||||||
|
\ 'dcl-pi'],
|
||||||
|
\ { key, val -> val =~? '^' . a:base })
|
||||||
|
else
|
||||||
|
" Keyword completion
|
||||||
|
let line = getline('.')
|
||||||
|
let type = substitute(line,
|
||||||
|
\ '^\s*dcl-\(s\|c\|ds\|pr\|proc\|pi\)\s\+\w\+\s\+.*',
|
||||||
|
\ '\1', '')
|
||||||
|
if type != line
|
||||||
|
let matches = []
|
||||||
|
for kw in s:keywords
|
||||||
|
if kw[0] =~? '^' . a:base && index(kw[1], type) > -1
|
||||||
|
call add(matches, kw[0])
|
||||||
|
endif
|
||||||
|
endfor
|
||||||
|
else
|
||||||
|
let matches = []
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
return map(matches, 's:Keyword2Item(v:val)')
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
" Member completion via tags
|
||||||
|
function! s:CSpecStruct(base, struct) abort
|
||||||
|
let matches = []
|
||||||
|
let tags = taglist('^' . a:base)
|
||||||
|
let curbufnr = bufnr('%')
|
||||||
|
let struct = a:struct
|
||||||
|
|
||||||
|
" Resolve referenced data structure (``likeds(...)'')
|
||||||
|
let struct_tags = taglist('^' . struct . '$')
|
||||||
|
for tag in struct_tags
|
||||||
|
if complete_check()
|
||||||
|
break
|
||||||
|
endif
|
||||||
|
|
||||||
|
if tag['kind'] ==? 's' && has_key(tag, 'typeref')
|
||||||
|
let struct = substitute(tag['typeref'], 'struct:', '', '')
|
||||||
|
break
|
||||||
|
endif
|
||||||
|
endfor
|
||||||
|
|
||||||
|
for tag in tags
|
||||||
|
if complete_check()
|
||||||
|
break
|
||||||
|
endif
|
||||||
|
|
||||||
|
" Remove static matches in other files.
|
||||||
|
if tag['static'] && bufnr('%') != bufnr(tag['filename'])
|
||||||
|
continue
|
||||||
|
endif
|
||||||
|
|
||||||
|
" Remove anything but members
|
||||||
|
if tag['kind'] !=? 'm'
|
||||||
|
continue
|
||||||
|
endif
|
||||||
|
|
||||||
|
" Remove members from other data structures
|
||||||
|
if tag['struct'] !=? struct
|
||||||
|
continue
|
||||||
|
endif
|
||||||
|
|
||||||
|
call add(matches, s:Tag2Item(tag))
|
||||||
|
endfor
|
||||||
|
|
||||||
|
return matches
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:CSpecBIF(base) abort
|
||||||
|
let matches = []
|
||||||
|
for bif in s:bifs
|
||||||
|
if bif[0] =~? '^' . a:base
|
||||||
|
call add(matches, s:BIF2Item(bif))
|
||||||
|
endif
|
||||||
|
endfor
|
||||||
|
return matches
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
" Keyword completion via tags
|
||||||
|
function! s:CSpec(base) abort
|
||||||
|
let matches = []
|
||||||
|
let tags = taglist('^' . a:base)
|
||||||
|
let curbufnr = bufnr('%')
|
||||||
|
|
||||||
|
for tag in tags
|
||||||
|
if complete_check()
|
||||||
|
break
|
||||||
|
endif
|
||||||
|
|
||||||
|
" Remove static matches in other files.
|
||||||
|
if tag['static'] && curbufnr != bufnr(tag['filename'])
|
||||||
|
continue
|
||||||
|
endif
|
||||||
|
|
||||||
|
" Remove members
|
||||||
|
if tag['kind'] ==? 'm'
|
||||||
|
continue
|
||||||
|
endif
|
||||||
|
|
||||||
|
call add(matches, s:Tag2Item(tag))
|
||||||
|
endfor
|
||||||
|
|
||||||
|
return matches
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:Path2Suggetion(path) abort
|
||||||
|
let path = substitute(a:path,
|
||||||
|
\ '^.\{-}\<qrpglesrc.file/\(\w\+\).\%(mbr\|rpgleinc\)$', '\1', '')
|
||||||
|
if path == a:path
|
||||||
|
let path = substitute(a:path,
|
||||||
|
\ '^.\{-}\<\(\w\+\).file/\(\w\+\).\%(mbr\|rpgleinc\)$',
|
||||||
|
\ '\1,\2',
|
||||||
|
\ '')
|
||||||
|
endif
|
||||||
|
if path == a:path
|
||||||
|
let path = a:path
|
||||||
|
endif
|
||||||
|
return path
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:Path2Item(path) abort
|
||||||
|
return {
|
||||||
|
\ 'word': a:path
|
||||||
|
\ }
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:Tag2Item(tag) abort
|
||||||
|
return {
|
||||||
|
\ 'word': a:tag['name'],
|
||||||
|
\ 'kind': a:tag['kind']
|
||||||
|
\ }
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:Keyword2Item(kw) abort
|
||||||
|
return {
|
||||||
|
\ 'word': a:kw
|
||||||
|
\ }
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:BIF2Item(bif) abort
|
||||||
|
return {
|
||||||
|
\ 'word': a:bif[0],
|
||||||
|
\ 'abbr': printf('%-10s - %s', a:bif[0], a:bif[1])
|
||||||
|
\ }
|
||||||
|
endfunction
|
||||||
95
demo.rpgle
Normal file
95
demo.rpgle
Normal file
@ -0,0 +1,95 @@
|
|||||||
|
/include a,b
|
||||||
|
/include c,d
|
||||||
|
|
||||||
|
dcl-ds abc likeds(def);
|
||||||
|
dcl-s a varchar(32);
|
||||||
|
|
||||||
|
a = %char(a, b);
|
||||||
|
b = %not_found(a);
|
||||||
|
c = found(hello);
|
||||||
|
|
||||||
|
dcl-proc a;
|
||||||
|
dcl-pi *n int(1);
|
||||||
|
qwerty const inz(1234) likeds(hello);
|
||||||
|
end-pi;
|
||||||
|
|
||||||
|
return *OFF;
|
||||||
|
end-proc;
|
||||||
|
|
||||||
|
dcl-pr hello;
|
||||||
|
world ind options(*nopass);
|
||||||
|
end-pr;
|
||||||
|
|
||||||
|
dcl-ds a;
|
||||||
|
a varchar(1);
|
||||||
|
end-ds;
|
||||||
|
|
||||||
|
dcl-ds likerec('hello');
|
||||||
|
|
||||||
|
a = *INRT;
|
||||||
|
|
||||||
|
begsr a;
|
||||||
|
hello();
|
||||||
|
endsr;
|
||||||
|
|
||||||
|
select;
|
||||||
|
when a = 1;
|
||||||
|
monitor;
|
||||||
|
a = 1 / 0;
|
||||||
|
on-error;
|
||||||
|
hello();
|
||||||
|
endmon;
|
||||||
|
|
||||||
|
doA();
|
||||||
|
b = *NULL;
|
||||||
|
|
||||||
|
when b = 1;
|
||||||
|
doB();
|
||||||
|
|
||||||
|
other;
|
||||||
|
doC();
|
||||||
|
endsl;
|
||||||
|
|
||||||
|
dow a < 4;
|
||||||
|
b();
|
||||||
|
c = *OFF;
|
||||||
|
enddo;
|
||||||
|
|
||||||
|
exec SQL declare parents cursor for pParent;
|
||||||
|
exec sql
|
||||||
|
select abs(abc), def
|
||||||
|
from qwer;
|
||||||
|
|
||||||
|
dcl-proc b;
|
||||||
|
dcl-pi *n;
|
||||||
|
a varchar(32);
|
||||||
|
end-pi;
|
||||||
|
|
||||||
|
hello();
|
||||||
|
|
||||||
|
end-proc;
|
||||||
|
|
||||||
|
dcl-proc c;
|
||||||
|
dcl-pi *n;
|
||||||
|
end-pi;
|
||||||
|
|
||||||
|
hello();
|
||||||
|
|
||||||
|
end-proc;
|
||||||
|
|
||||||
|
for i = 1 to 10;
|
||||||
|
doFor();
|
||||||
|
endfor;
|
||||||
|
|
||||||
|
if a = 1;
|
||||||
|
if b = 1;
|
||||||
|
doAB();
|
||||||
|
// hello
|
||||||
|
else;
|
||||||
|
world();
|
||||||
|
else;
|
||||||
|
doNOTABC():
|
||||||
|
endif;
|
||||||
|
else;
|
||||||
|
doQQ();
|
||||||
|
endif;
|
||||||
179
doc/rpgle.txt
Normal file
179
doc/rpgle.txt
Normal file
@ -0,0 +1,179 @@
|
|||||||
|
*rpgle.txt* Free-Form ILE RPG
|
||||||
|
|
||||||
|
Author: Andreas Louv <andreas@louv.dk>
|
||||||
|
License: Same terms as Vim itself (see |license|)
|
||||||
|
|
||||||
|
INTRODUCTION *ft-rpgle*
|
||||||
|
|
||||||
|
This bundle provides syntax highlighting, syntax folds, auto indent, more
|
||||||
|
match words as well as mapping a few sensible keys.
|
||||||
|
|
||||||
|
VARIABLES *ft-rpgle-variables*
|
||||||
|
|
||||||
|
*g:rpgle_indentStart*
|
||||||
|
`g:rpgle_indentStart` Set the number of leading spaces that should be used
|
||||||
|
when no previous line is to be accounted for.
|
||||||
|
|
||||||
|
*g:rpgle_skipMapping*
|
||||||
|
`g:rpgle_skipMapping` Set to |v:true| to disable mappings defined in
|
||||||
|
|ft-rpgle-movements|, |ft-rpgle-operator-pending|
|
||||||
|
|
||||||
|
*g:rpgle_spellString*
|
||||||
|
`g:rpgle_spellString` Set to |v:false| to disable spell checking in string
|
||||||
|
constants.
|
||||||
|
|
||||||
|
FILETYPE DETECT *ft-rpgle-detect*
|
||||||
|
|
||||||
|
File ending with ".rpgle" and ".rpgleinc" are detected as ILE RPG files.
|
||||||
|
|
||||||
|
INDENT *ft-rpgle-indent*
|
||||||
|
|
||||||
|
Enable by adding the following to your |vimrc| >
|
||||||
|
:filetype indent on
|
||||||
|
<
|
||||||
|
SYNTAX *ft-rpgle-syntax*
|
||||||
|
|
||||||
|
Enable by adding the following to your |vimrc| >
|
||||||
|
:syntax enable
|
||||||
|
<
|
||||||
|
SYNTAX FOLDS *ft-rpgle-fold*
|
||||||
|
|
||||||
|
Settings |foldmethod| to 'syntax' to enable the following folds: >
|
||||||
|
if -> endif
|
||||||
|
dow -> enddo
|
||||||
|
dou -> enddo
|
||||||
|
for -> endfor
|
||||||
|
select -> endsl
|
||||||
|
dcl-proc -> end-proc
|
||||||
|
begsr -> endsr
|
||||||
|
<
|
||||||
|
MATCH WORDS *ft-rpgle-match-words*
|
||||||
|
|
||||||
|
Enable by adding the following to your |vimrc| >
|
||||||
|
:packadd! matchit
|
||||||
|
<
|
||||||
|
The following match words is supported: >
|
||||||
|
select -> when -> other -> endsl
|
||||||
|
if -> elseif -> else -> endif
|
||||||
|
dow -> iter -> leave -> enddo
|
||||||
|
dou -> iter -> leave -> enddo
|
||||||
|
for -> iter -> leave -> endfor
|
||||||
|
begsr -> endsr
|
||||||
|
dcl-proc -> return -> end-proc
|
||||||
|
dcl-pi -> end-pi
|
||||||
|
dcl-pr -> end-pr
|
||||||
|
monitor -> on-error -> endmon
|
||||||
|
<
|
||||||
|
MOVEMENTS *ft-rpgle-movements*
|
||||||
|
|
||||||
|
Enable by adding the following to your |vimrc| >
|
||||||
|
:filetype on
|
||||||
|
<
|
||||||
|
*ft-rpgle-[[*
|
||||||
|
[[ Jump to previous dcl-proc keyword
|
||||||
|
*ft-rpgle-]]*
|
||||||
|
]] Jump to next dcl-proc keyword
|
||||||
|
*ft-rpgle-[]*
|
||||||
|
[] Jump to previous end-proc keyword
|
||||||
|
*ft-rpgle-][*
|
||||||
|
][ Jump to next end-proc keyword
|
||||||
|
*ft-rpgle-gd*
|
||||||
|
gd Goto local Declaration. When the cursor is on a local
|
||||||
|
variable, this command will jump to its declaration.
|
||||||
|
Use |gD| to goto global declaration.
|
||||||
|
*ft-rpgle-[{*
|
||||||
|
[{ Jump back to the block opener at the start of the
|
||||||
|
current code block, i.e. pressing |[{| inside an
|
||||||
|
if-statement will jump to the if keyword.
|
||||||
|
*ft-rpgle-]}*
|
||||||
|
]} Jump forward to the block closer at the end of the
|
||||||
|
current code block, i.e. pressing |]}| inside an
|
||||||
|
if-statement will jump to the endif keyword.
|
||||||
|
|
||||||
|
OPERATOR PENDING *ft-rpgle-operator-pending*
|
||||||
|
|
||||||
|
Enable by adding the following to your |vimrc| >
|
||||||
|
:filetype on
|
||||||
|
<
|
||||||
|
a} *ft-rpgle-a}* *ft-rpgle-a{*
|
||||||
|
a{ *ft-rpgle-aB*
|
||||||
|
aB See |aB|
|
||||||
|
|
||||||
|
i} *ft-rpgle-i}* *ft-rpgle-i{*
|
||||||
|
i{ *ft-rpgle-iB*
|
||||||
|
iB See |iB|
|
||||||
|
|
||||||
|
INCLUDE *ft-rpgle-include*
|
||||||
|
|
||||||
|
'include' is set to match "/include" and "/copy". ".rpgle" and ".rpgleinc" is
|
||||||
|
added when following files with |gf|, or when searching included files with
|
||||||
|
|[I| and friends.
|
||||||
|
|
||||||
|
'includeexpr' is set to replace a "," with ".file/" i.e. >
|
||||||
|
/include myfile,mymbr -> myfile.file/mymbr.rpgleinc
|
||||||
|
<
|
||||||
|
It can be beneficial to setup 'path' accordantly: >
|
||||||
|
setlocal path=~/.cache/rpgleinc/qrpglesrc.file,~/.cache/rpgleinc
|
||||||
|
< And then download all headers to the respective directories inside
|
||||||
|
"~/.cache/rpgleinc".
|
||||||
|
|
||||||
|
I.e the header called "myhdr" located in "qrpglesrc" should be saved as
|
||||||
|
"~/.cache/rpgleinc/qrpglesrc.file/myhdr.rpgle".
|
||||||
|
|
||||||
|
One can use dd to download the files, i.e: >
|
||||||
|
$ dd if=/mnt_dir/QSYS.LIB/MY_LIB.LIB/QRPGLESRC.FILE/MYHDR.MBR \
|
||||||
|
of=~/.cache/rpgleinc/qrpglesrc.file/myhdr.rpgleinc \
|
||||||
|
bs=120 \
|
||||||
|
cbs=120 \
|
||||||
|
conv=ascii
|
||||||
|
<
|
||||||
|
Where 120 is the width of the header.
|
||||||
|
|
||||||
|
OMNI COMPLETION *ft-rpgle-omni*
|
||||||
|
|
||||||
|
Omni completion for compiler directives and header, declaration, calculation
|
||||||
|
and procedure specifications.
|
||||||
|
|
||||||
|
Omni completion can be called with |i_CTRL-X_CTRL-O|
|
||||||
|
|
||||||
|
OMNI COMPILER DIRECTIVES *ft-rpgle-omni-compdir*
|
||||||
|
|
||||||
|
A file found via 'path' will be suggested for "/copy" and "/include".
|
||||||
|
|
||||||
|
Only files ending with ".rpgleinc" and ".mbr" will be suggested.
|
||||||
|
Directories ending in ".file" will be preserved, with the exception of a
|
||||||
|
directory called "qrpglesrc.file" which will be removed. >
|
||||||
|
directory.file/file.mbr -> directory,file
|
||||||
|
qrpglesrc.file/file.mbr -> file
|
||||||
|
<
|
||||||
|
See |ft-rpgle-inclue| for a solution to downloading ILE RPG header files.
|
||||||
|
|
||||||
|
OMNI HEADER SPECIFICATION *ft-rpgle-omni-hspec*
|
||||||
|
|
||||||
|
Keywords like "bnddir" and "copyright" will be suggested.
|
||||||
|
|
||||||
|
An example would be: >
|
||||||
|
ctl-opt bnd<TAB> -> ctl-opt bnddir(
|
||||||
|
<
|
||||||
|
OMNI DECLARATION SPECIFICATION *ft-rpgle-omni-dspec*
|
||||||
|
|
||||||
|
Keywords like "static" and "dim" and types like "varchar" and "ind" will be
|
||||||
|
suggested for constants, standalone, data-structures, procedure-interfaces and
|
||||||
|
prototypes.
|
||||||
|
|
||||||
|
An example would be: >
|
||||||
|
dcl-s name var<TAB> -> dcl-s name varchar(
|
||||||
|
dcl-s name vargraph(
|
||||||
|
dcl-s name varucs2(
|
||||||
|
|
||||||
|
dcl-ds name qual<TAB> -> dcl-ds name qualified
|
||||||
|
<
|
||||||
|
OMNI PROCEDURE SPECIFICATION *ft-rpgle-omni-pspec*
|
||||||
|
|
||||||
|
Keywords like "export" will be suggested.
|
||||||
|
|
||||||
|
An example would be: >
|
||||||
|
dcl-proc name ex<TAB> -> export
|
||||||
|
-> export(
|
||||||
|
<
|
||||||
|
vim:tw=78:ts=8:ft=help:norl:
|
||||||
32
doc/tags
Normal file
32
doc/tags
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
ft-rpgle rpgle.txt /*ft-rpgle*
|
||||||
|
ft-rpgle-[[ rpgle.txt /*ft-rpgle-[[*
|
||||||
|
ft-rpgle-[] rpgle.txt /*ft-rpgle-[]*
|
||||||
|
ft-rpgle-[{ rpgle.txt /*ft-rpgle-[{*
|
||||||
|
ft-rpgle-][ rpgle.txt /*ft-rpgle-][*
|
||||||
|
ft-rpgle-]] rpgle.txt /*ft-rpgle-]]*
|
||||||
|
ft-rpgle-]} rpgle.txt /*ft-rpgle-]}*
|
||||||
|
ft-rpgle-aB rpgle.txt /*ft-rpgle-aB*
|
||||||
|
ft-rpgle-a{ rpgle.txt /*ft-rpgle-a{*
|
||||||
|
ft-rpgle-a} rpgle.txt /*ft-rpgle-a}*
|
||||||
|
ft-rpgle-detect rpgle.txt /*ft-rpgle-detect*
|
||||||
|
ft-rpgle-fold rpgle.txt /*ft-rpgle-fold*
|
||||||
|
ft-rpgle-gd rpgle.txt /*ft-rpgle-gd*
|
||||||
|
ft-rpgle-iB rpgle.txt /*ft-rpgle-iB*
|
||||||
|
ft-rpgle-include rpgle.txt /*ft-rpgle-include*
|
||||||
|
ft-rpgle-indent rpgle.txt /*ft-rpgle-indent*
|
||||||
|
ft-rpgle-i{ rpgle.txt /*ft-rpgle-i{*
|
||||||
|
ft-rpgle-i} rpgle.txt /*ft-rpgle-i}*
|
||||||
|
ft-rpgle-match-words rpgle.txt /*ft-rpgle-match-words*
|
||||||
|
ft-rpgle-movements rpgle.txt /*ft-rpgle-movements*
|
||||||
|
ft-rpgle-omni rpgle.txt /*ft-rpgle-omni*
|
||||||
|
ft-rpgle-omni-compdir rpgle.txt /*ft-rpgle-omni-compdir*
|
||||||
|
ft-rpgle-omni-dspec rpgle.txt /*ft-rpgle-omni-dspec*
|
||||||
|
ft-rpgle-omni-hspec rpgle.txt /*ft-rpgle-omni-hspec*
|
||||||
|
ft-rpgle-omni-pspec rpgle.txt /*ft-rpgle-omni-pspec*
|
||||||
|
ft-rpgle-operator-pending rpgle.txt /*ft-rpgle-operator-pending*
|
||||||
|
ft-rpgle-syntax rpgle.txt /*ft-rpgle-syntax*
|
||||||
|
ft-rpgle-variables rpgle.txt /*ft-rpgle-variables*
|
||||||
|
g:rpgle_indentStart rpgle.txt /*g:rpgle_indentStart*
|
||||||
|
g:rpgle_skipMapping rpgle.txt /*g:rpgle_skipMapping*
|
||||||
|
g:rpgle_spellString rpgle.txt /*g:rpgle_spellString*
|
||||||
|
rpgle.txt rpgle.txt /*rpgle.txt*
|
||||||
9
ftdetect/binder.vim
Normal file
9
ftdetect/binder.vim
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
" Vim ftdetect file
|
||||||
|
" Language: Binder Language
|
||||||
|
" Maintainer: Andreas Louv <andreas@louv.dk>
|
||||||
|
" Last Change: Mar 20, 2019
|
||||||
|
" Version: 2
|
||||||
|
" URL: https://github.com/andlrc/rpgle.vim
|
||||||
|
|
||||||
|
au BufNewFile,BufRead *.binder setlocal filetype=binder
|
||||||
|
au BufNewFile,BufRead *.BND setlocal filetype=binder
|
||||||
15
ftdetect/clle.vim
Normal file
15
ftdetect/clle.vim
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
|
||||||
|
if exists('b:current_syntax')
|
||||||
|
finish
|
||||||
|
endif
|
||||||
|
|
||||||
|
let b:current_syntax = 'clle'
|
||||||
|
|
||||||
|
" syntax case ignore
|
||||||
|
" syntax iskeyword @,48-57,192-255,-,%,*,/,_
|
||||||
|
|
||||||
|
" syntax keyword clleCommand CHGVAR
|
||||||
|
|
||||||
|
" highlight link clleCommand Function
|
||||||
|
|
||||||
|
au BufNewFile,BufRead *.clle setlocal filetype=clle
|
||||||
13
ftdetect/rpgle.vim
Normal file
13
ftdetect/rpgle.vim
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
" Vim ftdetect file
|
||||||
|
" Language: Free-Form ILE RPG
|
||||||
|
" Maintainer: Andreas Louv <andreas@louv.dk>
|
||||||
|
" Last Change: Mar 20, 2019
|
||||||
|
" Version: 8
|
||||||
|
" URL: https://github.com/andlrc/rpgle.vim
|
||||||
|
|
||||||
|
au BufNewFile,BufRead *.rpgle setlocal filetype=rpgle
|
||||||
|
au BufNewFile,BufRead *.sqlrpgle setlocal filetype=rpgle
|
||||||
|
au BufNewFile,BufRead *.rpgleinc setlocal filetype=rpgle
|
||||||
|
au BufNewFile,BufRead *.RPGLE setlocal filetype=rpgle
|
||||||
|
au BufNewFile,BufRead *.SQLRPGLE setlocal filetype=rpgle
|
||||||
|
au BufNewFile,BufRead *.RPGLEINC setlocal filetype=rpgle
|
||||||
17
ftplugin/binder.vim
Normal file
17
ftplugin/binder.vim
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
" Vim ftplugin file
|
||||||
|
" Language: Binder Language
|
||||||
|
" Maintainer: Andreas Louv <andreas@louv.dk>
|
||||||
|
" Last Change: Mar 20, 2019
|
||||||
|
" Version: 1
|
||||||
|
" URL: https://github.com/andlrc/rpgle.vim
|
||||||
|
|
||||||
|
if exists('b:did_ftplugin')
|
||||||
|
finish
|
||||||
|
endif
|
||||||
|
|
||||||
|
let b:did_ftplugin = 1
|
||||||
|
|
||||||
|
setlocal suffixesadd=.binder
|
||||||
|
|
||||||
|
|
||||||
|
let b:match_words = '\<STRPGMEXP\>:\<ENDPGMEXP\>'
|
||||||
131
ftplugin/rpgle.vim
Normal file
131
ftplugin/rpgle.vim
Normal file
@ -0,0 +1,131 @@
|
|||||||
|
" Vim ftplugin file
|
||||||
|
" Language: Free-Form ILE RPG
|
||||||
|
" Maintainer: Andreas Louv <andreas@louv.dk>
|
||||||
|
" Last Change: Dec 19, 2018
|
||||||
|
" Version: 22
|
||||||
|
" URL: https://github.com/andlrc/rpgle.vim
|
||||||
|
|
||||||
|
if exists('b:did_ftplugin')
|
||||||
|
finish
|
||||||
|
endif
|
||||||
|
|
||||||
|
let b:did_ftplugin = 1
|
||||||
|
|
||||||
|
setlocal iskeyword+=-,%
|
||||||
|
setlocal shiftwidth=2
|
||||||
|
|
||||||
|
setlocal suffixesadd=.rpgle,.rpgleinc
|
||||||
|
" setlocal include=^\\s*/\\%(include\\\|copy\\)
|
||||||
|
setlocal include=^\s*\/\%(include\|copy\)
|
||||||
|
setlocal includeexpr=../substitute(v:fname,',','.file/','')
|
||||||
|
|
||||||
|
setlocal comments=s1:/*,mb:*,ex:*/,://,:*
|
||||||
|
setlocal commentstring=//%s
|
||||||
|
|
||||||
|
setlocal conceallevel=3
|
||||||
|
setlocal concealcursor=nvic
|
||||||
|
setlocal tabstop=2
|
||||||
|
setlocal expandtab
|
||||||
|
setlocal textwidth=100
|
||||||
|
setlocal colorcolumn=100
|
||||||
|
|
||||||
|
" ILE RPG is in case-sensitive
|
||||||
|
setlocal tagcase=ignore smartcase ignorecase
|
||||||
|
|
||||||
|
let b:match_words = '\<select\>:\<when\>:\<other\>:\<endsl\>'
|
||||||
|
\ . ',\<if\>:\<elseif\>:\<else\>:\<endif\>'
|
||||||
|
\ . ',\<do[uw]\>:\<iter\>:\<leave\>:\<enddo\>'
|
||||||
|
\ . ',\<for\>:\<iter\>:\<leave\>:\<endfor\>'
|
||||||
|
\ . ',\<for-each\>:\<iter\>:\<leave\>:\<endfor\>'
|
||||||
|
\ . ',\<begsr\>:\<endsr\>'
|
||||||
|
\ . ',\<dcl-proc\>:\<return\>:\<end-proc\>'
|
||||||
|
\ . ',\<dcl-pi\>:\<end-pi\>'
|
||||||
|
\ . ',\<dcl-pr\>:\<end-pr\>'
|
||||||
|
\ . ',\<monitor\>:\<on-error\>:\<endmon\>'
|
||||||
|
\ . ',\<dcl-ds\>:\<\%(likeds\|extname\|end-ds\)\>'
|
||||||
|
|
||||||
|
" section jumping {{{
|
||||||
|
|
||||||
|
nnoremap <script> <buffer> <silent> <Plug>RpgleGoToDeclaration
|
||||||
|
\ :<C-U>execute 'keepj normal [[/\<<C-r><C-w>\>/' . "\r"<CR>
|
||||||
|
" nnoremap <script> <buffer> <silent> <Plug>RpgleGoToDeclaration
|
||||||
|
" \ :<C-U>execute 'keepj normal [[/dcl-\(pi\|ds\|s\)\(\_s.\{-\}\)\{0,10}\zs<C-r><C-w>\ze\(\_s.\{-\}\)\{0,10}\_send-\1' . "\r"<CR>
|
||||||
|
nnoremap <script> <buffer> <silent> <Plug>RpgleNextProcStart
|
||||||
|
\ :<C-U>call rpgle#movement#NextSection('^\s*dcl-proc', '', '')<CR>
|
||||||
|
nnoremap <script> <buffer> <silent> <Plug>RpgleNextProcEnd
|
||||||
|
\ :<C-U>call rpgle#movement#NextSection('^\s*end-proc', '', '')<CR>
|
||||||
|
nnoremap <script> <buffer> <silent> <Plug>RpglePrevProcStart
|
||||||
|
\ :<C-U>call rpgle#movement#NextSection('^\s*dcl-proc', 'b', '')<CR>
|
||||||
|
nnoremap <script> <buffer> <silent> <Plug>RpglePrevProcEnd
|
||||||
|
\ :<C-U>call rpgle#movement#NextSection('^\s*end-proc', 'b', '')<CR>
|
||||||
|
xnoremap <script> <buffer> <silent> <Plug>XRpgleNextProcStart
|
||||||
|
\ :<C-U>call rpgle#movement#NextSection('^\s*dcl-proc', '', 'x')<CR>
|
||||||
|
xnoremap <script> <buffer> <silent> <Plug>XRpgleNextProcEnd
|
||||||
|
\ :<C-U>call rpgle#movement#NextSection('^\s*end-proc', '', 'x')<CR>
|
||||||
|
xnoremap <script> <buffer> <silent> <Plug>XRpglePrevProcStart
|
||||||
|
\ :<C-U>call rpgle#movement#NextSection('^\s*dcl-proc', 'b', 'x')<CR>
|
||||||
|
xnoremap <script> <buffer> <silent> <Plug>XRpglePrevProcEnd
|
||||||
|
\ :<C-U>call rpgle#movement#NextSection('^\s*end-proc', 'b', 'x')<CR>
|
||||||
|
|
||||||
|
if get(g:, 'rpgle_skipMapping', 0) == v:false
|
||||||
|
nmap <buffer> <silent> gd <Plug>RpgleGoToDeclaration
|
||||||
|
" nmap <buffer> <silent> gr <Plug>RpgleGoToReference
|
||||||
|
nmap <buffer> <silent> gr [I:let nr = input("Which one: ")<Bar>exe "normal " . nr ."[\t"<CR>
|
||||||
|
|
||||||
|
nmap <buffer> <silent> ][ <Plug>RpgleNextProcStart
|
||||||
|
nmap <buffer> <silent> ]] <Plug>RpgleNextProcEnd
|
||||||
|
nmap <buffer> <silent> [[ <Plug>RpglePrevProcStart
|
||||||
|
nmap <buffer> <silent> [] <Plug>RpglePrevProcEnd
|
||||||
|
|
||||||
|
xmap <buffer> <silent> ][ <Plug>XRpgleNextProcStart
|
||||||
|
xmap <buffer> <silent> ]] <Plug>XRpgleNextProcEnd
|
||||||
|
xmap <buffer> <silent> [[ <Plug>XRpglePrevProcStart
|
||||||
|
xmap <buffer> <silent> [] <Plug>XRpglePrevProcEnd
|
||||||
|
endif
|
||||||
|
|
||||||
|
" }}}
|
||||||
|
" Nest jumping {{{
|
||||||
|
|
||||||
|
nnoremap <script> <buffer> <silent> <Plug>RpglePrevBlock
|
||||||
|
\ :call rpgle#movement#NextNest('b')<CR>
|
||||||
|
nnoremap <script> <buffer> <silent> <Plug>RpgleNextBlock
|
||||||
|
\ :call rpgle#movement#NextNest('')<CR>
|
||||||
|
|
||||||
|
if get(g:, 'rpgle_skipMapping', 0) == v:false
|
||||||
|
nmap <buffer> [{ <Plug>RpglePrevBlock
|
||||||
|
nmap <buffer> ]} <Plug>RpgleNextBlock
|
||||||
|
endif
|
||||||
|
|
||||||
|
" }}}
|
||||||
|
" Operator Pending brackets {{{
|
||||||
|
|
||||||
|
noremap <script> <buffer> <silent> <Plug>RpgleAroundBlock
|
||||||
|
\ :<C-U>call rpgle#movement#Operator('a')<CR>
|
||||||
|
noremap <script> <buffer> <silent> <Plug>RpgleInnerBlock
|
||||||
|
\ :<C-U>call rpgle#movement#Operator('i')<CR>
|
||||||
|
|
||||||
|
if get(g:, 'rpgle_skipMapping', 0) == v:false
|
||||||
|
omap <buffer> a} <Plug>RpgleAroundBlock
|
||||||
|
omap <buffer> a{ <Plug>RpgleAroundBlock
|
||||||
|
omap <buffer> aB <Plug>RpgleAroundBlock
|
||||||
|
omap <buffer> i} <Plug>RpgleInnerBlock
|
||||||
|
omap <buffer> i{ <Plug>RpgleInnerBlock
|
||||||
|
omap <buffer> iB <Plug>RpgleInnerBlock
|
||||||
|
|
||||||
|
xmap <buffer> a} <Plug>RpgleAroundBlock
|
||||||
|
xmap <buffer> a{ <Plug>RpgleAroundBlock
|
||||||
|
xmap <buffer> aB <Plug>RpgleAroundBlock
|
||||||
|
xmap <buffer> i} <Plug>RpgleInnerBlock
|
||||||
|
xmap <buffer> i{ <Plug>RpgleInnerBlock
|
||||||
|
xmap <buffer> iB <Plug>RpgleInnerBlock
|
||||||
|
endif
|
||||||
|
|
||||||
|
" }}}
|
||||||
|
" Set completion with CTRL-X CTRL-O {{{
|
||||||
|
|
||||||
|
setlocal omnifunc=rpgle#omni#Complete
|
||||||
|
|
||||||
|
setlocal foldmethod=marker
|
||||||
|
|
||||||
|
" }}}
|
||||||
|
" vim: fdm=marker
|
||||||
53
indent/binder.vim
Normal file
53
indent/binder.vim
Normal file
@ -0,0 +1,53 @@
|
|||||||
|
" Vim indent file
|
||||||
|
" Language: Binder Language
|
||||||
|
" Maintainer: Andreas Louv <andreas@louv.dk>
|
||||||
|
" Last Change: May 09, 2019
|
||||||
|
" Version: 1
|
||||||
|
" URL: https://github.com/andlrc/rpgle.vim
|
||||||
|
|
||||||
|
if exists('b:did_indent')
|
||||||
|
finish
|
||||||
|
endif
|
||||||
|
|
||||||
|
let b:did_indent = 1
|
||||||
|
|
||||||
|
setlocal indentexpr=GetBinderIndent()
|
||||||
|
setlocal indentkeys=o,O
|
||||||
|
setlocal indentkeys+=0*
|
||||||
|
setlocal indentkeys+=0=~strpgmexp,0=~endpgmexp
|
||||||
|
setlocal nosmartindent
|
||||||
|
|
||||||
|
let b:undo_indent = 'setlocal indentexpr< indentkeys< smartindent<'
|
||||||
|
|
||||||
|
if exists('*GetBinderIndent')
|
||||||
|
finish
|
||||||
|
endif
|
||||||
|
|
||||||
|
let s:cpo_save = &cpo
|
||||||
|
set cpo&vim
|
||||||
|
|
||||||
|
function! GetBinderIndent()
|
||||||
|
let cnum = v:lnum
|
||||||
|
let pnum = prevnonblank(cnum - 1)
|
||||||
|
|
||||||
|
let pind = indent(pnum)
|
||||||
|
|
||||||
|
let pline = getline(pnum)
|
||||||
|
let cline = getline(cnum)
|
||||||
|
|
||||||
|
" Add indent for opening keywords:
|
||||||
|
if pline =~ '^\s*\<strpgmexp\>'
|
||||||
|
return pind + shiftwidth()
|
||||||
|
endif
|
||||||
|
|
||||||
|
" Remove indent for closing keywords:
|
||||||
|
if cline =~ '^\s*\<endpgmexp\>'
|
||||||
|
return pind - shiftwidth()
|
||||||
|
endif
|
||||||
|
|
||||||
|
" If no match return the same indent as before:
|
||||||
|
return pind
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
let &cpo = s:cpo_save
|
||||||
|
unlet s:cpo_save
|
||||||
140
indent/rpgle.vim
Normal file
140
indent/rpgle.vim
Normal file
@ -0,0 +1,140 @@
|
|||||||
|
" Vim indent file
|
||||||
|
" Language: Free-Form ILE RPG
|
||||||
|
" Maintainer: Andreas Louv <andreas@louv.dk>
|
||||||
|
" Last Change: Nov 10, 2017
|
||||||
|
" Version: 18
|
||||||
|
" URL: https://github.com/andlrc/rpgle.vim
|
||||||
|
|
||||||
|
if exists('b:did_indent')
|
||||||
|
finish
|
||||||
|
endif
|
||||||
|
|
||||||
|
let b:did_indent = 1
|
||||||
|
|
||||||
|
setlocal indentexpr=GetRpgleIndent()
|
||||||
|
setlocal indentkeys=o,O
|
||||||
|
setlocal indentkeys+=0*
|
||||||
|
setlocal indentkeys+=0=~if,0=~elseif,0=~else,0=~endif
|
||||||
|
setlocal indentkeys+=0=~dou,0=~dow,0=~enddo
|
||||||
|
setlocal indentkeys+=0=~for,0=~endfor
|
||||||
|
setlocal indentkeys+=0=~for-each,0=~endfor
|
||||||
|
setlocal indentkeys+=0=~monitor,0=~on-error,0=~endmon
|
||||||
|
setlocal indentkeys+=0=~select,0=~when,0=~other,0=~endsl
|
||||||
|
setlocal indentkeys+=0=~dcl-proc,0=~end-proc
|
||||||
|
setlocal indentkeys+=0=~begsr,0=~endsr
|
||||||
|
setlocal indentkeys+=0=~dcl-pi,0=~end-pi
|
||||||
|
setlocal indentkeys+=0=~dcl-pr,0=~end-pr
|
||||||
|
setlocal indentkeys+=0=~dcl-ds,0=~end-ds
|
||||||
|
setlocal nosmartindent
|
||||||
|
|
||||||
|
let b:undo_indent = 'setlocal indentexpr< indentkeys< smartindent<'
|
||||||
|
|
||||||
|
if exists('*GetRpgleIndent')
|
||||||
|
finish
|
||||||
|
endif
|
||||||
|
|
||||||
|
let s:cpo_save = &cpo
|
||||||
|
set cpo&vim
|
||||||
|
|
||||||
|
function! GetRpgleIndent()
|
||||||
|
let cnum = v:lnum
|
||||||
|
let pnum = prevnonblank(cnum - 1)
|
||||||
|
|
||||||
|
" There is no lines to determinate indent, so use what is set in
|
||||||
|
" ``g:rpgle_indentStart'', check if ``**FREE'' is present or default to
|
||||||
|
" ``7''.
|
||||||
|
if pnum == 0
|
||||||
|
if exists('g:rpgle_indentStart')
|
||||||
|
return g:rpgle_indentStart
|
||||||
|
elseif getline(1) =~? '^\*\*FREE$'
|
||||||
|
return 0
|
||||||
|
else
|
||||||
|
return 7
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
let pind = indent(pnum)
|
||||||
|
|
||||||
|
let pline = getline(pnum)
|
||||||
|
let cline = getline(cnum)
|
||||||
|
|
||||||
|
" Continues comments should indent the ``*'' one space
|
||||||
|
if cline =~# '^\s*\*' && pline =~# '^\s*/\*' && pline !~# '\*/'
|
||||||
|
return pind + 1
|
||||||
|
endif
|
||||||
|
|
||||||
|
" Continues comments should de indent one space when ended
|
||||||
|
if pline =~# '^\s*\*.*\*/' || cline =~# '^\s*\\\*.*\*/'
|
||||||
|
return pind - 1
|
||||||
|
endif
|
||||||
|
|
||||||
|
" A ``when'' which follows a ``select'' should be indented:
|
||||||
|
" All other ``when'' should be de indented
|
||||||
|
if cline =~? '^\s*\<when\>'
|
||||||
|
return pline =~? '^\s*\<select\>;' ?
|
||||||
|
\ pind + shiftwidth() : pind - shiftwidth()
|
||||||
|
endif
|
||||||
|
|
||||||
|
" ``endsl'' has to go back one indent
|
||||||
|
if cline =~? '^\s*\<endsl\>' && pline =~? '^\s*\<when\>'
|
||||||
|
return pind - shiftwidth()
|
||||||
|
endif
|
||||||
|
|
||||||
|
" ``endsl'' have to de indent two levels:
|
||||||
|
if cline =~? '^\s*\<endsl\>'
|
||||||
|
return pind - shiftwidth() * 2
|
||||||
|
endif
|
||||||
|
|
||||||
|
" ``endsl'' does not have to change indentation
|
||||||
|
if cline =~? '^\s*\<endsl\>' && pline =~? '^\s*\<select\>'
|
||||||
|
return pind
|
||||||
|
endif
|
||||||
|
|
||||||
|
" ``dcl-pi'', ``dcl-pr'', and ``dcl-ds'' with no parameters should not
|
||||||
|
" indent the ``end-xx'':
|
||||||
|
if pline =~? '^\s*\<dcl-pi\>' && cline =~? '^\s*\<end-pi\>'
|
||||||
|
\ || pline =~? '^\s*\<dcl-pr\>' && cline =~? '^\s*\<end-pr\>'
|
||||||
|
\ || pline =~? '^\s*\<dcl-ds\>' && cline =~? '^\s*\<end-ds\>'
|
||||||
|
\ || pline =~? '^\s*\<if\>' && cline =~? '^\s*\<endif\>'
|
||||||
|
\ || pline =~? '^\s*\<monitor\>' && cline =~? '^\s*\<on-error\>'
|
||||||
|
return pind
|
||||||
|
endif
|
||||||
|
|
||||||
|
|
||||||
|
if pline =~? '^\s*\<dcl-pi\>.*\<end-pi\>'
|
||||||
|
echomsg 'test'
|
||||||
|
return pind
|
||||||
|
endif
|
||||||
|
|
||||||
|
" ``dcl-ds'' with ``likeds'' on the same line doesn't take a definition and
|
||||||
|
" should not do any indent:
|
||||||
|
if pline =~? '^\s*\<dcl-ds\>' && pline =~? '\<likeds\>'
|
||||||
|
return pind
|
||||||
|
endif
|
||||||
|
|
||||||
|
" ignore indentation, when the block is closed imediatly
|
||||||
|
if pline =~? '^\s*\%(if\|else\|elseif\|dou\|dow\|for\|for-each\|monitor\|on-error\|' .
|
||||||
|
\ 'on-error\|other\|dcl-proc\|begsr\|dcl-pi\|dcl-pr\|dcl-ds\)\>' &&
|
||||||
|
\ cline =~? '^\s*\<\%(endif\|enddo\|endfor\|endmon\|other\|else\|' .
|
||||||
|
\ 'elseif\|on-error\|end-pi\|end-proc\|endsr\|end-pr\|end-ds\)\>'
|
||||||
|
return pind;
|
||||||
|
endif
|
||||||
|
|
||||||
|
" Add indent for opening keywords:
|
||||||
|
if pline =~ '^\s*\%(if\|else\|elseif\|dou\|dow\|for\|for-each\|monitor\|on-error\|' .
|
||||||
|
\ 'on-error\|when\|other\|dcl-proc\|begsr\|dcl-pi\|dcl-pr\|dcl-ds\|on-exit\)\>'
|
||||||
|
return pind + shiftwidth()
|
||||||
|
endif
|
||||||
|
|
||||||
|
" Remove indent for closing keywords:
|
||||||
|
if cline =~ '^\s*\<\%(endif\|enddo\|endfor\|endmon\|other\|else\|' .
|
||||||
|
\ 'elseif\|on-error\|end-pi\|end-proc\|endsr\|end-pr\|end-ds\)\>'
|
||||||
|
return pind - shiftwidth()
|
||||||
|
endif
|
||||||
|
|
||||||
|
" If no match return the same indent as before:
|
||||||
|
return pind
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
let &cpo = s:cpo_save
|
||||||
|
unlet s:cpo_save
|
||||||
28
syntax/binder.vim
Normal file
28
syntax/binder.vim
Normal file
@ -0,0 +1,28 @@
|
|||||||
|
" Vim syntax file
|
||||||
|
" Language: Binder Language
|
||||||
|
" Maintainer: Andreas Louv <andreas@louv.dk>
|
||||||
|
" Last Change: Mar 20, 2019
|
||||||
|
" Version: 1
|
||||||
|
" URL: https://github.com/andlrc/rpgle.vim
|
||||||
|
|
||||||
|
if exists('b:current_syntax')
|
||||||
|
finish
|
||||||
|
endif
|
||||||
|
|
||||||
|
let b:current_syntax = 'binder'
|
||||||
|
syntax iskeyword @,48-57,192-255,-,*,/,_
|
||||||
|
|
||||||
|
syntax keyword binderKeywords STRPGMEXP ENDPGMEXP EXPORT SYMBOL PGMLVL LVLCHK SIGNATURE
|
||||||
|
|
||||||
|
syntax match binderSpecial /'[^']\+'/
|
||||||
|
syntax match binderString /"[^"]\+"/
|
||||||
|
syntax match binderIdentifier /\w\+/
|
||||||
|
syntax keyword binderConstant *CURRENT *PRV
|
||||||
|
|
||||||
|
syntax sync fromstart
|
||||||
|
|
||||||
|
highlight link binderKeywords Keyword
|
||||||
|
highlight link binderSpecial Special
|
||||||
|
highlight link binderString String
|
||||||
|
highlight link binderIdentifier Identifier
|
||||||
|
highlight link binderConstant Constant
|
||||||
126
syntax/clle.vim
Normal file
126
syntax/clle.vim
Normal file
@ -0,0 +1,126 @@
|
|||||||
|
|
||||||
|
" if exists('b:current_syntax')
|
||||||
|
" finish
|
||||||
|
" endif
|
||||||
|
|
||||||
|
" let b:current_syntax = 'clle'
|
||||||
|
|
||||||
|
" syntax case ignore
|
||||||
|
" syntax iskeyword @,48-57,192-255,-,%,*,/,_
|
||||||
|
|
||||||
|
|
||||||
|
" syntax region clleProgramm matchgroup=clleBlock
|
||||||
|
" \ start=/\<PGM\>/
|
||||||
|
" \ end=/\<ENDPGM\>/
|
||||||
|
" \ contains=@clleNest
|
||||||
|
|
||||||
|
" syntax region clleMon matchgroup=clleBlock
|
||||||
|
" \ start=/\<MONMSG\>/
|
||||||
|
" \ end=/\<ENDDO\>/
|
||||||
|
" \ contains=@clleNest
|
||||||
|
|
||||||
|
" syntax region clleDclSpec display matchgroup=clleDclKeywords
|
||||||
|
" \ start=/\<DCL\>/
|
||||||
|
" \ end=/$/
|
||||||
|
" \ contains=clleDclProp,clleDclParms,clleParm,
|
||||||
|
|
||||||
|
" syntax region clleVarMut matchgroup=clleMutKeywords
|
||||||
|
" \ start=/\<CHGVAR\>/
|
||||||
|
" \ end=/$/
|
||||||
|
" \ contains=clleDclParms
|
||||||
|
|
||||||
|
" syntax match clleCmd /-\n\w\+/
|
||||||
|
" \ nextgroup=clleParms
|
||||||
|
|
||||||
|
" syntax match clleDclProp /\s*/ contained nextgroup=clleDclPropName
|
||||||
|
" syntax match clleDclPropName /&\k\+/ contained
|
||||||
|
|
||||||
|
" " syntax match clleParm /\w\+\ze(/ contained nextgroup=clleParenBalance
|
||||||
|
|
||||||
|
" syntax region clleParenBalance matchgroup=clleBIFBrackets
|
||||||
|
" \ start=/(/
|
||||||
|
" \ end=/)/
|
||||||
|
" \ contains=@clleNest
|
||||||
|
|
||||||
|
" syntax cluster clleNest contains=clleBlock,clleCommand,clleMon,clleDclSpec,clleTypes,clleVarMut,
|
||||||
|
" \ clleKeyParams
|
||||||
|
|
||||||
|
" syntax region clleComment matchgroup=clleCommentSigns
|
||||||
|
" \ start=/\/\*/
|
||||||
|
" \ end=/\*\//
|
||||||
|
|
||||||
|
" syntax keyword clleTypes contained *DEC *CHAR *YES *NO
|
||||||
|
|
||||||
|
" syntax keyword clleDclParms contained TYPE LEN VALUE VAR
|
||||||
|
|
||||||
|
" syntax match clleKeyParams /\*\w\+/ contained
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
" highlight link clleKeyParams SpecialKey
|
||||||
|
" highlight link clleCommentSigns Comment
|
||||||
|
" highlight link clleComment Comment
|
||||||
|
" highlight link clleCmd Function
|
||||||
|
" highlight link clleCommand Function
|
||||||
|
" " highlight link clleMon Conditional
|
||||||
|
" highlight link clleBlock Conditional
|
||||||
|
" highlight link clleDclKeywords Keyword
|
||||||
|
" highlight link clleMutKeywords Function
|
||||||
|
" highlight link clleDclPropName Constant
|
||||||
|
" highlight link clleDclParms Keyword
|
||||||
|
" highlight link clleTypes Type
|
||||||
|
" highlight link clleBIFBrackets Comment
|
||||||
|
" Vim syntax for CLLE
|
||||||
|
" This may use some of the Rexx code, but probably not.
|
||||||
|
" The Command/Program keyword lists will need to be modified as I come across
|
||||||
|
" more
|
||||||
|
|
||||||
|
syntax case ignore
|
||||||
|
|
||||||
|
syntax match clleLabel /^[^/*]*:/
|
||||||
|
highlight link clleLabel labels
|
||||||
|
|
||||||
|
syntax region clleComment start="/\*" end="\*/" contains=clleComment
|
||||||
|
highlight link clleComment comment
|
||||||
|
|
||||||
|
syntax match clleParam /[^ ]\{1}[^ %]*(/hs=s+0,he=e-1
|
||||||
|
highlight link clleParam type
|
||||||
|
|
||||||
|
syntax region clleString start=/'/ skip=/''/ end=/'/ oneline
|
||||||
|
highlight link clleString string
|
||||||
|
|
||||||
|
syntax match clleVariable /&[^) ]*/
|
||||||
|
highlight link clleVariable identifier
|
||||||
|
|
||||||
|
syntax keyword clleControl if do goto enddo else dofor return
|
||||||
|
highlight link clleControl keyword
|
||||||
|
|
||||||
|
syntax keyword clleCommand pgm dcl dclf monmsg chgvar subr endsubr callsubr call endpgm
|
||||||
|
\ rtvjoba rtvneta rcvf rtvusrprf
|
||||||
|
highlight link clleCommand keyword
|
||||||
|
|
||||||
|
syntax match clleKeyword /\*\w\+/
|
||||||
|
highlight link clleKeyword Special
|
||||||
|
|
||||||
|
syntax keyword clleProgram sndpgmmsg rmvlible addlible chkobj cpylib rtvdtaara
|
||||||
|
\ rtvmsg sndpgmmsg ovrprtf dltf crtpf crtlf clrpfm ovrdbf dltovr cpyf
|
||||||
|
\ crtddmf rclddmcnv crtsavf clrsavf savobj savlib rstobj rstlib ftp cf
|
||||||
|
\ clrlib rgzpfm dspffd chgdtaara ovrmsgf chgjob rmvmsg clof
|
||||||
|
\ sbmjob dspobjd opndbf cpysrcf dltmod movobj crtdtaq dltdtaq crtsqlrpgi
|
||||||
|
\ crtsrvpgm
|
||||||
|
highlight link clleProgram keyword
|
||||||
|
|
||||||
|
setlocal iskeyword+=%
|
||||||
|
syntax keyword clleBIF %address %addr %binary %bin %offset %ofs %substring %sst %switch
|
||||||
|
highlight link clleBIF BIF
|
||||||
|
|
||||||
|
setlocal iskeyword+=*
|
||||||
|
syntax keyword clleChoices *char *dec *int *defined *auto *based *blank
|
||||||
|
\ *eq *gt *ge *ne *lt *le *and *or *no *yes *nolist *nomax *nosrc
|
||||||
|
\ *last *first *dtaara *lib *libl *add *replace *savf *all
|
||||||
|
\ *cat *tcat *bcat *ip *lda *mdy *dmy *ymd *prv *ext *status
|
||||||
|
highlight link clleChoices preproc
|
||||||
|
|
||||||
|
" groups
|
||||||
|
highlight BIF guifg=red
|
||||||
|
highlight labels guifg=darkgrey
|
||||||
523
syntax/rpgle.vim
Normal file
523
syntax/rpgle.vim
Normal file
@ -0,0 +1,523 @@
|
|||||||
|
" Vim syntax file
|
||||||
|
" Language: Free-Form ILE RPG
|
||||||
|
" Maintainer: Andreas Louv <andreas@louv.dk>
|
||||||
|
" Last Change: Oct 21, 2019
|
||||||
|
" Version: 81
|
||||||
|
" URL: https://github.com/andlrc/rpgle.vim
|
||||||
|
|
||||||
|
if exists('b:current_syntax')
|
||||||
|
finish
|
||||||
|
endif
|
||||||
|
|
||||||
|
"runtime! syntax/sqlanywhere.vim
|
||||||
|
syntax include @esql syntax/sqlanywhere.vim
|
||||||
|
|
||||||
|
let b:current_syntax = 'rpgle'
|
||||||
|
|
||||||
|
syntax case ignore
|
||||||
|
syntax iskeyword @,48-57,192-255,-,%,*,/,_
|
||||||
|
|
||||||
|
" Comments {{{
|
||||||
|
|
||||||
|
syntax match rpgleLineComment '//.*' contains=rpgleSpecialComment
|
||||||
|
\ contains=@rpgleCommentProps
|
||||||
|
syntax region rpgleBracketedComment start='/\*'
|
||||||
|
\ end='\*/'
|
||||||
|
\ contains=@rpgleCommentProps
|
||||||
|
" syntax keyword rpgleSpecialComment BESCHREIBUNG AUTHOR ERSTELLDATUM PROGRAMMNUTZEN
|
||||||
|
" \ ÄNDERUNGSDATUM
|
||||||
|
syntax match rpgleSpecialComment '\(programmnutzen:\|beschreibung:\|author:\|erstelldatum:\|änderungsdatum:\|beispielaufruf:\|compilebefehl:\)'
|
||||||
|
syntax cluster rpgleComment contains=rpgleLineComment,rpgleBracketedComment,rpgleSpecialComment
|
||||||
|
|
||||||
|
syntax cluster rpgleCommentProps contains=rpgleTodo,@Spell
|
||||||
|
syntax keyword rpgleTodo contained TODO FIXME
|
||||||
|
|
||||||
|
syntax match rpgleDsReference '\(\w\+\.\)\+\w\+' contained contains=rpgleDsPath
|
||||||
|
syntax match rpgleDsReferenceSql ':\(\w\+\.\)\+\w\+' contained contains=rpgleDsPath
|
||||||
|
syntax match rpgleDsPath '\(\w\|\.\)\+\ze\.' contained nextgroup=rpgledsSeperator
|
||||||
|
syntax match rpgleDsSeperator '\.' contained nextgroup=rpgleDsItem
|
||||||
|
syntax match rpgleDsItem '\w\+' contained
|
||||||
|
|
||||||
|
syntax match rpgleSqlReference ':\zs\w\+' contained
|
||||||
|
|
||||||
|
syntax keyword db2SqlKeywords CLOSQLCSR DATFMT
|
||||||
|
syntax keyword db2SqlValues *ENDMOD *NONE *ISO
|
||||||
|
|
||||||
|
" }}}
|
||||||
|
" Compiler directive {{{
|
||||||
|
|
||||||
|
syntax keyword rpglePreProc **FREE
|
||||||
|
|
||||||
|
syntax keyword rpglePreProc /COPY /DEFINE /EJECT /ELSE /ELSEIF /END-FREE
|
||||||
|
\ /ENDIF /EOF /FREE /IF /INCLUDE /RESTORE /SET
|
||||||
|
\ /SPACE /TITLE /UNDEFINE /SET
|
||||||
|
\ nextgroup=rpglePreProcValue
|
||||||
|
|
||||||
|
syntax match rpglePreProcValue /.*/ contained display
|
||||||
|
|
||||||
|
" }}}
|
||||||
|
" Header Specs {{{
|
||||||
|
|
||||||
|
" CTL-OPT ... ;
|
||||||
|
syntax region rpgleCtlSpec matchgroup=rpgleKeywords
|
||||||
|
\ start=/\<CTL-OPT\>/
|
||||||
|
\ end=/;/
|
||||||
|
\ contains=@rpgleCtlProps
|
||||||
|
syntax cluster rpgleCtlProps contains=rpgleCtlKeywords,rpgleNumber,
|
||||||
|
\@rpgleString,rpgleConstant,rpgleError,
|
||||||
|
\rpgleCtlParanBalance
|
||||||
|
|
||||||
|
syntax region rpgleCtlParanBalance matchgroup=xxx
|
||||||
|
\ start=/(/
|
||||||
|
\ end=/)/
|
||||||
|
\ contains=@rpgleCtlProps
|
||||||
|
|
||||||
|
" Header Keywords
|
||||||
|
syntax keyword rpgleCtlKeywords contained
|
||||||
|
\ ALLOC ACTGRP ALTSEQ ALWNULL AUT BNDDIR CCSID
|
||||||
|
\ CCSIDCVT COPYNEST COPYRIGHT CURSYM CVTOPT
|
||||||
|
\ DATEDIT DATFMT DCLOPT DEBUG DECEDIT DECPREC
|
||||||
|
\ DFTACTGRP DFTNAME ENBPFRCOL EXPROPTS
|
||||||
|
\ EXTBININT FIXNBR FLYDIV FORMSALIGN FTRANS
|
||||||
|
\ GENLVL INDENT INTPREC LANGID MAIN NOMAIN
|
||||||
|
\ OPENOPT OPTIMIZE OPTION PGMINFO PRFDTA
|
||||||
|
\ SRTSEQ STGMDL TEXT THREAD TIMFMT TRUNCNBR
|
||||||
|
\ USERPRF VALIDATE REQPREXP
|
||||||
|
|
||||||
|
" }}}
|
||||||
|
" Declaration Specs {{{
|
||||||
|
|
||||||
|
" Numbers and Strings
|
||||||
|
|
||||||
|
syntax match rpgleNumber display
|
||||||
|
\ /\<-\=\%(\d\|\.\)\+\>/
|
||||||
|
|
||||||
|
syntax match rpgleError /\%(^\|\W\)\@1<='\_.\{-}'\W\@=/
|
||||||
|
syntax match rpgleString /'\([+-]\n\|''\|[^']\)*'/ contains=rpgleStringProps
|
||||||
|
syntax cluster rpgleString contains=rpgleString
|
||||||
|
|
||||||
|
if get(g:, 'rpgle_spellString', 1)
|
||||||
|
syntax cluster rpgleStringProps contains=@Spell
|
||||||
|
endif
|
||||||
|
|
||||||
|
" Constants
|
||||||
|
syntax keyword rpgleConstant *ALL *BLANK *BLANKS *ENTRY *HIVAL *LOVAL *NULL
|
||||||
|
\ *OFF *ON *ZERO *ZEROS *LOCK *ISO0 *HMS0 *EUR *UTF8
|
||||||
|
\ *SYS *OMIT *ALLOC *REQUIRE *WARN *PROC *DATA
|
||||||
|
|
||||||
|
" *IN01 .. *IN99, *INH1 .. *INH9, *INL1 .. *INL9, *INLR, *INRT
|
||||||
|
syntax match rpgleSpecialKey display /\%(\*IN0[1-9]\|\*IN[1-9][0-9]\)/
|
||||||
|
syntax match rpgleSpecialKey display /\*INH[1-9]/
|
||||||
|
syntax match rpgleSpecialKey display /\*INL[1-9]/
|
||||||
|
syntax match rpgleSpecialKey display /\*INU[1-8]/
|
||||||
|
syntax keyword rpgleSpecialKey *INLR *INRT
|
||||||
|
|
||||||
|
" Operators
|
||||||
|
syntax match rpgleOperator display /<>/
|
||||||
|
syntax match rpgleOperator display />=/
|
||||||
|
syntax match rpgleOperator display /<=/
|
||||||
|
syntax match rpgleOperator display /\<in\>/
|
||||||
|
syntax match rpgleOperator display /\<to\>/
|
||||||
|
syntax match rpgleOperator display /\<downto\>/
|
||||||
|
syntax match rpgleOperator display /\<by\>/
|
||||||
|
syntax match rpgleOperator display /\<out\>/
|
||||||
|
syntax match rpgleOperator display /[*=><+]/
|
||||||
|
syntax match rpgleOperator display /\<-\>/
|
||||||
|
|
||||||
|
" Standalone, Constant
|
||||||
|
syntax region rpgleDclSpec display matchgroup=rpgleDclKeywords
|
||||||
|
\ start=/\<DCL-[SCF]\>/
|
||||||
|
\ end=/$/
|
||||||
|
\ contains=rpgleDclProp
|
||||||
|
|
||||||
|
" Procedure Interface
|
||||||
|
syntax keyword rpgleError END-PI
|
||||||
|
syntax region rpgleDclSpec matchgroup=rpgleDclKeywords
|
||||||
|
\ keepend
|
||||||
|
\ start=/\<DCL-PI\>/
|
||||||
|
\ end=/\<END-PI\>/
|
||||||
|
\ contains=rpgleDclProp,rpgleDclPiName
|
||||||
|
\ fold
|
||||||
|
|
||||||
|
" Special PI Name
|
||||||
|
syntax keyword rpgleDclPiName *N
|
||||||
|
|
||||||
|
" Prototype
|
||||||
|
syntax keyword rpgleError END-PR
|
||||||
|
syntax region rpgleDclSpec matchgroup=rpgleDclKeywords
|
||||||
|
\ keepend
|
||||||
|
\ start=/\<DCL-PR\>/
|
||||||
|
\ end=/\(\<END-PR\>\|OVERLOAD\)/
|
||||||
|
\ contains=rpgleDclProp
|
||||||
|
\ fold
|
||||||
|
|
||||||
|
" Data Structure
|
||||||
|
syntax keyword rpgleError LIKEDS LIKEREC END-DS
|
||||||
|
|
||||||
|
syntax keyword rpgleError ;;
|
||||||
|
|
||||||
|
syntax region rpgleDclSpec matchgroup=rpgleDclKeywords
|
||||||
|
\ keepend
|
||||||
|
\ start=/\<DCL-DS\>/
|
||||||
|
\ end=/\<END-DS\>/
|
||||||
|
\ contains=rpgleDclProp
|
||||||
|
|
||||||
|
" These this syntax regions cannot be "display", even though it is on one line,
|
||||||
|
" as the rule above could be matched wrongly then.
|
||||||
|
syntax region rpgleDclSpec matchgroup=rpgleDclKeywords
|
||||||
|
\ start=/\<DCL-DS\>\ze.*LIKEDS/
|
||||||
|
\ start=/\<DCL-DS\>\ze.*LIKEREC/
|
||||||
|
\ end=/$/
|
||||||
|
\ contains=rpgleDclProp
|
||||||
|
|
||||||
|
" Declaration Types
|
||||||
|
syntax keyword rpgleDclTypes contained
|
||||||
|
\ BINDEC CHAR DATE DATE FLOAT GRAPH IND INT OBJECT
|
||||||
|
\ PACKED POINTER TIME TIMESTAMP UCS2 UCS2 UNS
|
||||||
|
\ VARCHAR VARGRAPH VARUCS2 ZONED
|
||||||
|
|
||||||
|
" Declaration Keywords
|
||||||
|
syntax keyword rpgleDclKeywords contained
|
||||||
|
\ ALIAS ALIGN ALT ALTSEQ ASCEND BASED CCSID
|
||||||
|
\ CLASS CONST CTDATA DATFMT DESCEND DIM DTAARA
|
||||||
|
\ EXPORT EXT EXTFLD EXTFMT EXTNAME EXTPGM
|
||||||
|
\ EXTPROC FROMFILE IMPORT INZ LEN LIKE LIKEDS
|
||||||
|
\ LIKEFILE LIKEREC NOOPT NULLIND OCCURS OPDESC
|
||||||
|
\ OPTIONS OVERLAY PACKEVEN PERRCD POS PREFIX
|
||||||
|
\ PSDS QUALIFIED RTNPARM STATIC TEMPLATE TIMFMT
|
||||||
|
\ TOFILE VALUE PRINTER USROPN OFLIND INDDS WORKSTN
|
||||||
|
\ SFILE INFDS SQLTYPE OVERLOAD
|
||||||
|
|
||||||
|
|
||||||
|
" Declaration Constants
|
||||||
|
syntax keyword rpgleDclSpecialKeys contained
|
||||||
|
\ *NOPASS *OMIT *VARSIZE *STRING *RIGHTADJ *AUTO *VAR *DCLCASE *EXACT
|
||||||
|
\ *TRIM
|
||||||
|
|
||||||
|
syntax keyword rpgleDclSqlTypes contained
|
||||||
|
\ CLOB CLOB_LOCATOR DBCLOB DBCLOB_LOCATOR
|
||||||
|
\ BLOB BLOB_LOCATOR
|
||||||
|
\ BINARY VARBINARY
|
||||||
|
\ XML_CLOB XML_DBCLOB XML_BLOB XML_LOCATOR
|
||||||
|
\ XML_BLOB_FILE XML_CLOB_FILE XML_DBCLOB_FILE
|
||||||
|
\ BLOB_FILE CLOB_FILE DBCLOB_FILE
|
||||||
|
\ ROW_ID RESULT_SET_LOCATOR
|
||||||
|
|
||||||
|
syntax region rpgleDclParenBalance matchgroup=rpgleDclBrackets
|
||||||
|
\ start=/(/
|
||||||
|
\ end=/)/
|
||||||
|
\ contains=@rpgleComment,rpgleDclSpecialKeys,rpgleDclSqlTypes,
|
||||||
|
\rpgleNumber,@rpgleString,
|
||||||
|
\rpgleConstant,rpgleError,
|
||||||
|
\rpgleDclParenBalance,rpgleBIF
|
||||||
|
|
||||||
|
|
||||||
|
syntax match rpgleDclProp /\s*/ contained nextgroup=rpgleDclPropName
|
||||||
|
syntax match rpgleDclPropName /\k\+/ contained nextgroup=rpgleDclPropTail
|
||||||
|
\ contains=@rpgleComment
|
||||||
|
syntax match rpgleDclPropTail /.\+/ contained
|
||||||
|
\ contains=@rpgleComment,rpgleDclTypes,
|
||||||
|
\rpgleDclKeywords,rpgleError,
|
||||||
|
\rpgleDclParenBalance
|
||||||
|
|
||||||
|
" }}}
|
||||||
|
" Calculation Specs {{{
|
||||||
|
|
||||||
|
" IF ... ENDIF
|
||||||
|
syntax keyword rpgleError ENDIF
|
||||||
|
syntax region rpgleIf matchgroup=rpgleConditional
|
||||||
|
\ start=/\<IF\>/
|
||||||
|
\ end=/\<ENDIF\>/
|
||||||
|
\ contains=@rpgleNest,rpgleElse
|
||||||
|
\ fold
|
||||||
|
|
||||||
|
" ELSE ELSEIF
|
||||||
|
syntax keyword rpgleError ELSE ELSEIF
|
||||||
|
syntax keyword rpgleElse contained ELSE ELSEIF
|
||||||
|
|
||||||
|
" NOT, AND, OR
|
||||||
|
syntax keyword rpgleConditional NOT AND OR
|
||||||
|
|
||||||
|
" DOW .. ENDDO, DOU .. ENDDO
|
||||||
|
syntax keyword rpgleError ENDDO
|
||||||
|
syntax region rpgleDo matchgroup=rpgleRepeat
|
||||||
|
\ start=/\<DO[WU]\>/
|
||||||
|
\ end=/\<ENDDO\>/
|
||||||
|
\ contains=@rpgleNest
|
||||||
|
\ fold
|
||||||
|
|
||||||
|
" FOR ... ENDFOR
|
||||||
|
syntax region rpgleFor matchgroup=rpgleRepeat
|
||||||
|
\ start=/\<FOR\>/
|
||||||
|
\ end=/\<ENDFOR\>/
|
||||||
|
\ contains=@rpgleNest
|
||||||
|
\ fold
|
||||||
|
syntax keyword rpgleError ENDFOR
|
||||||
|
|
||||||
|
syntax region rpgleForEach matchgroup=rpgleRepeat
|
||||||
|
\ start=/\<FOR-EACH\>/
|
||||||
|
\ end=/\<ENDFOR\>/
|
||||||
|
\ contains=@rpgleNest
|
||||||
|
\ fold
|
||||||
|
|
||||||
|
" ITER, LEAVE
|
||||||
|
syntax keyword rpgleRepeat contained ITER LEAVE
|
||||||
|
|
||||||
|
" MONITOR ... ENDMON
|
||||||
|
syntax keyword rpgleError ENDMON
|
||||||
|
syntax region rpgleMonitor matchgroup=rpgleConditional
|
||||||
|
\ start=/\<MONITOR\>/
|
||||||
|
\ end=/\<ENDMON\>/
|
||||||
|
\ contains=@rpgleNest,rpgleOnError
|
||||||
|
\ fold
|
||||||
|
|
||||||
|
" ON-ERROR
|
||||||
|
syntax keyword rpgleError ON-ERROR
|
||||||
|
syntax keyword rpgleOnError contained ON-ERROR
|
||||||
|
|
||||||
|
" ON-EXIT
|
||||||
|
syntax keyword rpgleOnExit contained ON-EXIT
|
||||||
|
|
||||||
|
" SELECT ... ENDSL
|
||||||
|
syntax keyword rpgleError ENDSL
|
||||||
|
syntax region rpgleSelect matchgroup=rpgleKeywords
|
||||||
|
\ start=/\<SELECT\>/
|
||||||
|
\ end=/\<ENDSL\>/
|
||||||
|
\ contains=@rpgleNest,rpgleWhenOther
|
||||||
|
\ fold
|
||||||
|
|
||||||
|
" WHEN, OTHER
|
||||||
|
syntax keyword rpgleError WHEN OTHER
|
||||||
|
syntax keyword rpgleWhenOther contained WHEN OTHER
|
||||||
|
|
||||||
|
" Exec SQL
|
||||||
|
syntax region rpgleSql matchgroup=rpgleKeywords
|
||||||
|
\ start=/\<EXEC\_s\+SQL\>/
|
||||||
|
\ end=/;/
|
||||||
|
\ contains=@esql,rpgleDsReferenceSql,rpgleSqlReference,db2SqlKeywords,
|
||||||
|
\ db2SqlValues
|
||||||
|
|
||||||
|
" Build In Functions
|
||||||
|
syntax match rpgleError /%\w\+/
|
||||||
|
|
||||||
|
syntax keyword rpgleBIF %ABS
|
||||||
|
\ %ADDR
|
||||||
|
\ %ALLOC
|
||||||
|
\ %BITAND
|
||||||
|
\ %BITNOT
|
||||||
|
\ %BITOR
|
||||||
|
\ %BITXOR
|
||||||
|
\ %CHAR
|
||||||
|
\ %CHECK
|
||||||
|
\ %CHECKR
|
||||||
|
\ %DATA
|
||||||
|
\ %GEN
|
||||||
|
\ %OKEDOKE
|
||||||
|
\ %DATE
|
||||||
|
\ %DAYS
|
||||||
|
\ %DEC
|
||||||
|
\ %DECH
|
||||||
|
\ %DECPOS
|
||||||
|
\ %DIFF
|
||||||
|
\ %DIV
|
||||||
|
\ %EDITC
|
||||||
|
\ %EDITFLT
|
||||||
|
\ %EDITW
|
||||||
|
\ %ELEM
|
||||||
|
\ %EOF
|
||||||
|
\ %EQUAL
|
||||||
|
\ %ERROR
|
||||||
|
\ %FIELDS
|
||||||
|
\ %FLOAT
|
||||||
|
\ %FOUND
|
||||||
|
\ %GRAPH
|
||||||
|
\ %HANDLER
|
||||||
|
\ %HOURS
|
||||||
|
\ %INT
|
||||||
|
\ %INTH
|
||||||
|
\ %KDS
|
||||||
|
\ %LEN
|
||||||
|
\ %LOOKUP
|
||||||
|
\ %LOOKUPLT
|
||||||
|
\ %LOOKUPLE
|
||||||
|
\ %LOOKUPGT
|
||||||
|
\ %LOOKUPGE
|
||||||
|
\ %MAX
|
||||||
|
\ %MIN
|
||||||
|
\ %MINUTES
|
||||||
|
\ %MONTHS
|
||||||
|
\ %MSECONDS
|
||||||
|
\ %NULLIND
|
||||||
|
\ %OCCUR
|
||||||
|
\ %OPEN
|
||||||
|
\ %PADDR
|
||||||
|
\ %PARMS
|
||||||
|
\ %PARMNUM
|
||||||
|
\ %PARSER
|
||||||
|
\ %PROC
|
||||||
|
\ %REALLOC
|
||||||
|
\ %REM
|
||||||
|
\ %REPLACE
|
||||||
|
\ %SCAN
|
||||||
|
\ %SCANR
|
||||||
|
\ %SCANRPL
|
||||||
|
\ %SECONDS
|
||||||
|
\ %SHTDN
|
||||||
|
\ %SIZE
|
||||||
|
\ %SQRT
|
||||||
|
\ %STATUS
|
||||||
|
\ %STR
|
||||||
|
\ %SUBARR
|
||||||
|
\ %SUBDT
|
||||||
|
\ %SUBST
|
||||||
|
\ %THIS
|
||||||
|
\ %TIME
|
||||||
|
\ %TIMESTAMP
|
||||||
|
\ %TLOOKUPxx
|
||||||
|
\ %TRIM
|
||||||
|
\ %TRIML
|
||||||
|
\ %TRIMR
|
||||||
|
\ %UCS2
|
||||||
|
\ %UNS
|
||||||
|
\ %UNSH
|
||||||
|
\ %XFOOT
|
||||||
|
\ %XLATE
|
||||||
|
\ %XML
|
||||||
|
\ %YEARS
|
||||||
|
\ %RANGE
|
||||||
|
\ %LIST
|
||||||
|
\ %UPPER
|
||||||
|
\ %LOWER
|
||||||
|
|
||||||
|
" Procedures, the match group is to avoid infinite recursion as a
|
||||||
|
" ``rpgleProcCall'' can be within another ``rpgleProcCall''
|
||||||
|
syntax match rpgleError /)/
|
||||||
|
syntax region rpgleProcCall matchgroup=rpgleProcCallName
|
||||||
|
\ start=/%\@1<!\<\w\+(/
|
||||||
|
\ end=/)/
|
||||||
|
\ contains=@rpgleProcArgs
|
||||||
|
\ nextgroup=rpgleDsSeperator
|
||||||
|
|
||||||
|
"syntax region rpgleDsArray \.\w\+
|
||||||
|
|
||||||
|
syntax cluster rpgleProcArgs contains=rpgleBIF,@rpgleComment,rpgleConstant,
|
||||||
|
\rpgleNumber,rpglePreProc,rpgleProcCall,
|
||||||
|
\rpgleSpecialKey,
|
||||||
|
\@rpgleString,rpgleError,rpgleParenBalance,rpgleDsReference,
|
||||||
|
\rpgleConstant
|
||||||
|
syntax keyword rpgleKeywords RETURN
|
||||||
|
\ SORTA
|
||||||
|
\ SORTD
|
||||||
|
\ WRITE
|
||||||
|
\ OPEN
|
||||||
|
\ CLOSE
|
||||||
|
\ EXFMT
|
||||||
|
\ DSPLY
|
||||||
|
\ READC
|
||||||
|
\ CLEAR
|
||||||
|
\ DATA-GEN
|
||||||
|
\ READ
|
||||||
|
\ CHAIN
|
||||||
|
\ UPDATE
|
||||||
|
\ EVAL
|
||||||
|
\ EVALR
|
||||||
|
\ DUMP
|
||||||
|
|
||||||
|
" BEGSR .. ENDSR
|
||||||
|
syntax keyword rpgleError ENDSR
|
||||||
|
syntax region rpgleSub matchgroup=rpgleKeywords
|
||||||
|
\ start=/\<BEGSR\>/
|
||||||
|
\ end=/\<ENDSR\>/
|
||||||
|
\ contains=@rpgleNest
|
||||||
|
\ fold
|
||||||
|
|
||||||
|
" EXSR
|
||||||
|
syntax keyword rpgleKeywords EXSR
|
||||||
|
|
||||||
|
" }}}
|
||||||
|
" Procedure Specs {{{
|
||||||
|
|
||||||
|
syntax region rpgleDclProcBody matchgroup=rpgleDclProc
|
||||||
|
\ start=/\<DCL-PROC\>/
|
||||||
|
\ end=/\<END-PROC\>/
|
||||||
|
\ contains=@rpgleDclProcNest
|
||||||
|
\ fold
|
||||||
|
syntax cluster rpgleDclProcNest contains=@rpgleNest,rpgleSub,rpgleDclSpec,
|
||||||
|
\rpgleDclProcName,rpgleError,rpgleOnExit
|
||||||
|
syntax keyword rpgleError END-PROC
|
||||||
|
|
||||||
|
" Procedure Name
|
||||||
|
syntax match rpgleDclProcName display contained skipwhite
|
||||||
|
\ /\%(DCL-PROC\s\+\)\@10<=\w\+/
|
||||||
|
\ nextgroup=rpgleDclProcExport
|
||||||
|
|
||||||
|
" Export
|
||||||
|
syntax keyword rpgleDclProcExport contained EXPORT
|
||||||
|
|
||||||
|
" }}}
|
||||||
|
|
||||||
|
syntax region rpgleParenBalance matchgroup=rpgleBIFBrackets
|
||||||
|
\ start=/(/
|
||||||
|
\ end=/)/
|
||||||
|
\ contains=@rpgleNest
|
||||||
|
|
||||||
|
" All nestable groups, i.e. mostly Calculation Spec keywords:
|
||||||
|
syntax cluster rpgleNest contains=rpgleBIF,@rpgleComment,rpgleConditional,
|
||||||
|
\rpgleConstant,rpgleDo,rpgleFor,rpgleForEach,rpgleIf,
|
||||||
|
\rpgleKeywords,rpgleMonitor,rpgleNumber,
|
||||||
|
\rpgleOperator,rpglePreProc,rpgleProcCall,
|
||||||
|
\rpgleRepeat,rpgleSelect,rpgleSpecialKey,
|
||||||
|
\rpgleSql,@rpgleString,rpgleError,
|
||||||
|
\rpgleParenBalance,rpgleDsReference
|
||||||
|
|
||||||
|
"syntax match rpgleDclProcName display skipwhite /\k*\ze\((.*)\)/
|
||||||
|
|
||||||
|
syntax sync fromstart
|
||||||
|
|
||||||
|
highlight link rpgleProcCallName Function
|
||||||
|
highlight link rpgleError Error
|
||||||
|
highlight link rpglePreProc PreProc
|
||||||
|
highlight link rpgleProc Function
|
||||||
|
highlight link rpgleSpecialKey SpecialKey
|
||||||
|
highlight link rpgleNumber Number
|
||||||
|
highlight link rpgleString String
|
||||||
|
highlight link rpgleOperator Operator
|
||||||
|
highlight link rpgleComment Comment
|
||||||
|
highlight link rpgleSpecialComment SpecialComment
|
||||||
|
highlight link rpgleTodo Todo
|
||||||
|
highlight link rpgleConstant Constant
|
||||||
|
highlight link rpgleConditional Conditional
|
||||||
|
highlight link rpgleRepeat Repeat
|
||||||
|
highlight link rpgleKeywords Keyword
|
||||||
|
highlight link rpgleSpecial Special
|
||||||
|
highlight link rpgleTypes Type
|
||||||
|
highlight link rpgleDsReference Operator
|
||||||
|
highlight link rpgleDsPath PreProc
|
||||||
|
highlight link rpgleDsItem Identifier
|
||||||
|
highlight link rpgleSqlReference Identifier
|
||||||
|
highlight link db2SqlKeywords Conditional
|
||||||
|
highlight link db2SqlValues PreProc
|
||||||
|
|
||||||
|
highlight link rpgleLineComment rpgleComment
|
||||||
|
highlight link rpgleBracketedComment rpgleComment
|
||||||
|
|
||||||
|
highlight link rpgleCtlKeywords rpgleKeywords
|
||||||
|
highlight link rpgleDclTypes rpgleTypes
|
||||||
|
highlight link rpgleDclSqlTypes rpgleTypes
|
||||||
|
highlight link rpgleDclKeywords rpgleKeywords
|
||||||
|
highlight link rpgleDclProc rpgleKeywords
|
||||||
|
highlight link rpgleDclProcExport rpgleKeywords
|
||||||
|
highlight link rpgleDclProcName rpgleProc
|
||||||
|
highlight link rpgleDclPiName rpgleSpecial
|
||||||
|
highlight link rpgleDclSpecialKeys rpgleSpecialKey
|
||||||
|
highlight link rpgleElse rpgleConditional
|
||||||
|
highlight link rpgleOnError rpgleKeywords
|
||||||
|
highlight link rpgleOnExit rpgleKeywords
|
||||||
|
highlight link rpgleWhenOther rpgleKeywords
|
||||||
|
highlight link rpgleBIF rpgleSpecial
|
||||||
|
highlight link rpgleBIFBrackets rpgleSpecial
|
||||||
|
highlight link rpgleDclBrackets Comment
|
||||||
|
|
||||||
|
highlight link rpgleDclPropName Constant
|
||||||
|
|
||||||
|
" vim: foldmethod=marker
|
||||||
75
test-err.rpgle
Normal file
75
test-err.rpgle
Normal file
@ -0,0 +1,75 @@
|
|||||||
|
a = 'hello
|
||||||
|
x '' world
|
||||||
|
world
|
||||||
|
hello';
|
||||||
|
|
||||||
|
'error
|
||||||
|
here';
|
||||||
|
|
||||||
|
but not here, oh you didn't do it!
|
||||||
|
|
||||||
|
a = 'and error here
|
||||||
|
'
|
||||||
|
|
||||||
|
a = 'hello -
|
||||||
|
hello -
|
||||||
|
world';
|
||||||
|
|
||||||
|
dcl-pi;
|
||||||
|
end-pi;
|
||||||
|
end-pi;
|
||||||
|
dcl-pr;
|
||||||
|
end-pr;
|
||||||
|
end-pr;
|
||||||
|
dcl-ds;
|
||||||
|
end-ds;
|
||||||
|
end-ds;
|
||||||
|
dcl-ds likeds(abc);
|
||||||
|
likeds(abc);
|
||||||
|
if;
|
||||||
|
elseif;
|
||||||
|
else;
|
||||||
|
endif;
|
||||||
|
elseif;
|
||||||
|
else;
|
||||||
|
endif;
|
||||||
|
dow;
|
||||||
|
leave;
|
||||||
|
enddo;
|
||||||
|
enddo;
|
||||||
|
iter;
|
||||||
|
leave;
|
||||||
|
|
||||||
|
for;
|
||||||
|
endfor;
|
||||||
|
endfor;
|
||||||
|
monitor;
|
||||||
|
on-error;
|
||||||
|
endmon;
|
||||||
|
on-error;
|
||||||
|
endmon;
|
||||||
|
|
||||||
|
select;
|
||||||
|
when;
|
||||||
|
other;
|
||||||
|
endsl;
|
||||||
|
when
|
||||||
|
other;
|
||||||
|
endsl;
|
||||||
|
|
||||||
|
%char
|
||||||
|
%str
|
||||||
|
%err
|
||||||
|
|
||||||
|
abc()
|
||||||
|
abc())
|
||||||
|
)
|
||||||
|
begsr;
|
||||||
|
endsr;
|
||||||
|
endsr;
|
||||||
|
dcl-proc;
|
||||||
|
end-proc;
|
||||||
|
end-proc;
|
||||||
|
dcl-pi;
|
||||||
|
end-pi;
|
||||||
|
end-pi;
|
||||||
Loading…
Reference in New Issue
Block a user