mirror of
https://github.com/moshix/mvs.git
synced 2026-01-11 23:43:00 +00:00
274 lines
11 KiB
VimL
274 lines
11 KiB
VimL
set smartindent
|
|
set tabstop=4
|
|
set number
|
|
set shiftwidth=4
|
|
set expandtab
|
|
highlight ColoColumn ctermbg=lightgrey guibg=lightgrey
|
|
set cc=72
|
|
set showcmd
|
|
set cursorline
|
|
set wildmenu
|
|
set lazyredraw
|
|
set showmatch
|
|
set incsearch
|
|
set hlsearch
|
|
set smartcase
|
|
set path+=**
|
|
set nocompatible
|
|
syntax enable
|
|
filetype plugin on
|
|
set title
|
|
"set background=dark
|
|
"colorscheme solarized
|
|
"highlight OverLength ctermbg=red ctermfg=white guibg=#592929
|
|
"match OverLength /\%81v.*/
|
|
if version < 600
|
|
syntax clear
|
|
elseif exists("b:current_syntax")
|
|
finish
|
|
endif
|
|
" strips trailing whitespace at the end of files. this
|
|
" is called on buffer write in the autogroup above.
|
|
function! <SID>StripTrailingWhitespaces()
|
|
" save last search & cursor position
|
|
let _s=@/
|
|
let l = line(".")
|
|
let c = col(".")
|
|
%s/\s\+$//e
|
|
let @/=_s
|
|
call cursor(l, c)
|
|
endfunction
|
|
syn case ignore
|
|
syn keyword jclKwd pgm proc class dsn[ame] msgclass space disp contained
|
|
syn keyword jclKwd parm member cond msglevel order lrecl recfm unit contained
|
|
syn keyword jclKwd sysout outlim blksize region dcb amp notify contained
|
|
syn keyword jclKwd then shr old new mod catlg rlse delete pass keep contained
|
|
syn keyword jclKwd cyl trk vol retain ser label recorg sysda contained
|
|
syn keyword jclKwd dummy contained
|
|
syn keyword jclCKwd pgm proc class dsn[ame] msgclass space disp contained
|
|
syn keyword jclCKwd parm member cond msglevel order lrecl recfm unit contained
|
|
syn keyword jclCKwd sysout outlim blksize region dcb amp contained
|
|
syn keyword jclCKwd then shr old new mod catlg rlse delete pass keep contained
|
|
syn keyword jclCKwd cyl trk vol retain ser label recorg sysda contained
|
|
syn keyword jclCKwd dummy contained
|
|
syn keyword jclPgm idcams iebcopy sort icegener adrdssu ftp rexec contained
|
|
syn keyword jclPgm iebgener iefbr14 contained
|
|
syn keyword jclCPgm idcams iebcopy sort icegener adrdssu ftp rexec contained
|
|
syn keyword jclCPgm iebgener iefbr14 contained
|
|
"
|
|
" Matches main command and special dd
|
|
"
|
|
syn match jclMainCommand +^//[^* ]*\s\+EXEC+hs=e-3 contained
|
|
syn match jclMainCommand +^//[^* ]*\s\+DD+hs=e-1 contained
|
|
syn match jclMainCommand +^//[^* ]*\s\+INCLUDE+hs=e-6 contained
|
|
syn match jclMainCommand +^//[^* ]*\s\+JCLLIB+hs=e-5 contained
|
|
syn match jclMainCommand +^//[^* ]*\s\+JOB+hs=e-2 contained
|
|
syn match jclMainCommand +^//[^* ]*\s\+SET+hs=e-2 contained
|
|
syn match jclCMainCommand +^//[^* ]*\s\+EXEC+hs=e-3 contained
|
|
syn match jclCMainCommand +^//[^* ]*\s\+DD+hs=e-1 contained
|
|
syn match jclCMainCommand +^//[^* ]*\s\+INCLUDE+hs=e-6 contained
|
|
syn match jclCMainCommand +^//[^* ]*\s\+JCLLIB+hs=e-5 contained
|
|
syn match jclCMainCommand +^//[^* ]*\s\+JOB+hs=e-2 contained
|
|
syn match jclCMainCommand +^//[^* ]*\s\+SET+hs=e-2 contained
|
|
syn match jclCond +^//[^* ]*\s\+ELSE+ contained
|
|
syn match jclOperator "[()]" contained
|
|
syn match jclCOperator +[()]+ contained
|
|
syn match jclNumber +\<\d\+\>+ contained
|
|
syn match jclCNumber +\<\d\+\>+ contained
|
|
syn match jclDsn +\(\(\w\{1,8}\.\)\+\w\{1,8}\((\w\{1,8})\)\?\|\(&&\w\{1,8}\)\)+ contained
|
|
syn match jclCDsn +\(\(\w\{1,8}\.\)\+\w\{1,8}\((\w\{1,8})\)\?\|\(&&\w\{1,8}\)\)+ contained
|
|
syn region jclDblQuote start=+"+ skip=+[^"]+ end=+"+ contained
|
|
syn region jclSnglQuote start=+'+ skip=+[^']+ end=+'+ contained
|
|
syn region jclCDblQuote start=+"+ skip=+[^"]+ end=+"+ contained
|
|
syn region jclCSnglQuote start=+'+ skip=+[^']+ end=+'+ contained
|
|
syn cluster jclConditional contains=jclCMainCommand,jclCIF,jclCData,jclCKwd,jclCond,jclCDblQuote,jclCSnglQuote,jclCComment,jclCOperator,jclCDsn,jclCPgm,jclCNumber
|
|
syn region jclIF matchgroup=jclCond start=+^//\w*\s\+IF+ end=+^//\w*\s\+ENDIF+ contains=@jclConditional contained
|
|
syn region jclCIF matchgroup=jclCond start=+^//\w*\s\+IF+ end=+^//\w*\s\+ENDIF+ contains=@jclConditional contained
|
|
syn match jclCComment +^//\*.*$+ contained
|
|
syn cluster jclNonConditional contains=jclMainCommand,jclKwd,jclIf,jclOperator,jclDblQuote,jclSnglQuote,jclDsn,jclPgm,jclNumber
|
|
" High level matches
|
|
syn match jclComment +^//\*.*$+
|
|
"syn match jclData +^[^/].*$+
|
|
syn match jclData +^\([^/]\|/[^*/]\).*$+
|
|
syn match jclStatement +^//[^*].*$+ transparent contains=@jclNonConditional
|
|
syn match jclCData +^\([^/]\|/[^*/]\).*$+ contained
|
|
" Define the default highlighting.
|
|
" For version 5.7 and earlier: only when not done already
|
|
" For version 5.8 and later: only when an item doesn't have highlighting yet
|
|
if version >= 508 || !exists("did_jcl_syntax_inits")
|
|
if version < 508
|
|
let did_jcl_syntax_inits = 1
|
|
command -nargs=+ HiLink hi link <args>
|
|
else
|
|
command -nargs=+ HiLink hi def link <args>
|
|
endif
|
|
" hi Comment guifg=darkgrey
|
|
" hi jclIF guibg=white
|
|
" hi jclCond guibg=grey guifg=darkblue gui=bold
|
|
" hi jclCComm guibg=white guifg=darkred
|
|
" hi jclCComment guibg=white guifg=darkgrey
|
|
" "hi jclKwd guifg=darkgreen
|
|
" "hi jclCKwd guibg=white guifg=darkgreen
|
|
" hi jclKwd guifg=brown
|
|
" hi jclCKwd guibg=white guifg=brown
|
|
" hi jclMainCommand guifg=blue
|
|
" hi jclCMainCommand guifg=blue guibg=grey
|
|
" hi jclData guifg=violet
|
|
" hi jclCData guifg=violet guibg=white
|
|
" hi jclOperator guifg=darkred
|
|
" hi jclCOperator guifg=darkred guibg=white
|
|
" hi jclDsn guifg=darkcyan
|
|
" hi jclCDsn guifg=darkcyan guibg=white
|
|
"
|
|
" Standand colors test :
|
|
"
|
|
HiLink jclIF Normal
|
|
HiLink jclCIF Normal
|
|
HiLink jclCond WarningMsg
|
|
HiLink jclCComm Statement
|
|
HiLink jclCComment Comment
|
|
HiLink jclKwd Statement
|
|
HiLink jclCKwd Statement
|
|
HiLink jclMainCommand Type
|
|
HiLink jclCMainCommand WarningMsg
|
|
HiLink jclOperator Operator
|
|
HiLink jclCOperator Operator
|
|
HiLink jclDsn Normal
|
|
HiLink jclCDsn Normal
|
|
HiLink jclData Special
|
|
HiLink jclCData Special
|
|
HiLink jclPgm Function
|
|
HiLink jclCPgm Function
|
|
HiLink jclNumber Number
|
|
HiLink jclCNumber Number
|
|
HiLink jclDblQuote jclSnglQuote
|
|
HiLink jclSnglQuote String
|
|
HiLink jclCDblQuote jclCSnglQuote
|
|
HiLink jclCSnglQuote String
|
|
HiLink jclCIF jclIF
|
|
HiLink jclComment Comment
|
|
HiLink jclCComment Comment
|
|
HiLink jclComm Statement
|
|
HiLink jclLabel Label
|
|
syn sync fromstart " syncronize from start
|
|
delcommand HiLink
|
|
endif
|
|
let b:current_syntax = "jcl"
|
|
syn keyword xInstruction a ah al alr ap ar contained
|
|
syn keyword xInstruction bal balr bas basm bassm bc bcr bctr bsm bxh bxle contained
|
|
syn keyword xInstruction c cds ch cl clc clcl cli clm clr cp cr cs cvb cvd contained
|
|
syn keyword xInstruction d dp dr contained
|
|
syn keyword xInstruction ed edmk ex contained
|
|
syn keyword xInstruction ic icm ipm contained
|
|
syn keyword xInstruction l la lcr lh lm lnr lpr lr ltr contained
|
|
syn keyword xInstruction m mh mp mr mvc mvcin mvcl mvi mvn mvo mvz contained
|
|
syn keyword xInstruction n nc ni nr contained
|
|
syn keyword xInstruction o oc oi or contained
|
|
syn keyword xInstruction pack contained
|
|
syn keyword xInstruction s sh sl sla slda sldl sll slr sp sr sra srda srdl srl srp st stb stc contained
|
|
syn keyword xInstruction spm stcm sth stm svc contained
|
|
syn keyword xInstruction tm tr trt contained
|
|
syn keyword xInstruction unpk contained
|
|
syn keyword xInstruction x xc xi xr contained
|
|
syn keyword xInstruction zap contained
|
|
|
|
syn keyword xDirective amode com copy csect contained
|
|
syn keyword xDirective dc ds drop dsect contained
|
|
syn keyword xDirective eject end entry equ contained
|
|
syn keyword xDirective ltorg contained
|
|
syn keyword xDirective macro mend mexit mnote contained
|
|
syn keyword xDirective org print contained
|
|
syn keyword xDirective rmode space start title contained
|
|
syn keyword xDirective using contained
|
|
|
|
syn keyword xBranch b bct be ber bh bhr bl blr bm bmr bne bner bnh contained
|
|
syn keyword xBranch bnhr bnl bnlr bnm bnmr contained
|
|
syn keyword xBranch bno bnor bnp bnpr bnz bnzr bo bor bor bp bpr contained
|
|
syn keyword xBranch br bz bz bzr contained
|
|
syn keyword xBranch nop nopr contained
|
|
|
|
syn keyword xMacro actr ago aif anop chau close contained
|
|
syn keyword xMacro dcb contained
|
|
syn keyword xMacro gbla gblb gblc get contained
|
|
syn keyword xMacro lcla lclb lclc contained
|
|
syn keyword xMacro open contained
|
|
syn keyword xMacro ppio put contained
|
|
syn keyword xMacro read contained
|
|
syn keyword xMacro seta setb setc snap contained
|
|
syn keyword xMacro write wto wtor wtorpc contained
|
|
|
|
syn keyword xParameter blksize contained
|
|
syn keyword xParameter dcb ddname dsorg contained
|
|
syn keyword xParameter eodad gen contained
|
|
syn keyword xParameter id contained
|
|
syn keyword xParameter lrecl lv contained
|
|
syn keyword xParameter macrf contained
|
|
syn keyword xParameter nogen contained
|
|
syn keyword xParameter pdata contained
|
|
syn keyword xParameter recfm record ru contained
|
|
syn keyword xParameter storage contained
|
|
|
|
|
|
syn keyword xRegister r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r10 r11 r12 r13 r14 r15 contained
|
|
syn keyword xOperator and eq ge gt le lt ne not or contained
|
|
syn match xDelimiter /[+\-,=.*/]/ contained
|
|
syn match xAttribute /[iklnst]'/ contained
|
|
syn match xSymbol /[&][0-9a-z@$#_]\+/ contained
|
|
syn match xSymbol /[.][0-9a-z@$#_]\+/ contained
|
|
syn match xSymbol /[a-z@#$][0-9a-z@$#_]\+/ contained
|
|
syn match xSymbol1 /[&][0-9a-z@$#_]\+/ contained
|
|
syn match xString /[cbdxfhp]\(l[1-9][0-9]*\)\?'\([^']\|''\)*'/ contained contains=xSymbol1
|
|
syn match xString /[ ,]'\([^']\|''\)*'/ contained contains=xSymbol1
|
|
syn match xString1 /'\([^']\|''\)*'/ contained contains=xSymbol1
|
|
|
|
syn match xLineComment /^\(\*.*\|\.\*.*\)\%<73c/
|
|
syn match xContinue /\%72c\S/
|
|
syn match xLabel /^[@#$&.]\?[0-9a-z@$#_]\+/ skipwhite nextgroup=xOperation
|
|
syn match xSpaceAndOp1 /^ \{1,14}/ skipwhite nextgroup=xOperation
|
|
syn match xOperation /[0-9a-z@$#&_]\+/ contained contains=xInstruction,xDirective,xBranch,xMacro skipwhite nextgroup=xOperand,xOperandStr
|
|
syn match xContinueLine /^ \{15}/ nextgroup=xOperand
|
|
syn match xOperand /\((.*)\|[iklnst]'[0-9a-z@$#&_]\+\|[^iklnst ]'\([^']\|''\)*'\|[0-9a-z@$#&_]\+\|[+\-,=.*%!~;:?/]\+\)\+/ contained contains=xAttribute,xParameter,xRegister,xString,xOperator,xDelimiter,xSymbol skipwhite nextgroup=xComment
|
|
syn match xOperandStr /'\([^']\|''\)*'\((.*)\)\?/ contained contains=xString1 skipwhite nextgroup=xComment
|
|
syn match xComment /.*\%<73c/ contained
|
|
syn match xTodo /.*:todo:.*/
|
|
|
|
" Define the default highlighting.
|
|
" For version 5.7 and earlier: only when not done already
|
|
" For version 5.8 and later: only when an item doesn't have highlighting yet
|
|
if version >= 508 || !exists("did_asm_syntax_inits")
|
|
if version < 508
|
|
let did_asm_syntax_inits = 1
|
|
command -nargs=+ HiLink hi link <args>
|
|
else
|
|
command -nargs=+ HiLink hi def link <args>
|
|
endif
|
|
|
|
|
|
" The default methods for highlighting. Can be overridden later
|
|
HiLink xLineComment Comment
|
|
HiLink xComment Comment
|
|
HiLink xAttribute Special
|
|
HiLink xRegister Type
|
|
HiLink xContinue Number
|
|
HiLink xLabel Identifier
|
|
HiLink xSymbol Identifier
|
|
HiLink xSymbol1 Identifier
|
|
HiLink xString String
|
|
HiLink xString1 String
|
|
|
|
HiLink xInstruction Statement
|
|
HiLink xDirective Special
|
|
HiLink xBranch Number
|
|
HiLink xMacro Macro
|
|
HiLink xOperator Operator
|
|
HiLink xDelimiter Operator
|
|
|
|
HiLink xParameter Keyword
|
|
HiLink xTodo Todo
|
|
|
|
delcommand HiLink
|
|
endif
|
|
|
|
|
|
let b:current_syntax = "hlasm"
|