" Vim syntax file " Language: IRPF90 " Version: 0.1 " URL: " Last Change: 2011 Nov. 9 " Maintainer: " Usage: Do :help irpf90-syntax from Vim " Credits: " Version 0.1 was based on the fortran 95 syntax file by Ajit J. Thakkar if version < 600 let b:current_syntax = "fortran" finish elseif exists("b:current_syntax") finish endif let b:current_syntax = "irpf90" syn case ignore syn match irpf90Identifier "\<\a\w*\>" contains=irpf90SerialNumber syn match irpf90ConstructName "^\s*\zs\a\w*\ze\s*:" syn match irpf90ConstructName "\(\" syn keyword irpf90Type character complex integer syn keyword irpf90Type intrinsic syn match irpf90Type "\" syn keyword irpf90Structure dimension syn keyword irpf90StorageClass parameter save syn match irpf90UnitHeader "\" syn keyword irpf90Call call syn match irpf90UnitHeader "\" syn match irpf90UnitHeader "\" syn keyword irpf90Statement return stop syn keyword irpf90Conditional else then syn match irpf90Conditional "\" syn match irpf90Repeat "\" syn keyword irpf90Todo contained todo fixme "Catch errors caused by too many right parentheses syn region irpf90Paren transparent start="(" end=")" contains=ALLBUT,irpf90ParenError,@irpf90CommentGroup,cIncluded syn match irpf90ParenError ")" syn match irpf90Operator "\.\s*n\=eqv\s*\." syn match irpf90Operator "\.\s*\(and\|or\|not\)\s*\." syn match irpf90Operator "\(+\|-\|/\|\*\)" syn match irpf90Boolean "\.\s*\(true\|false\)\s*\." syn keyword irpf90ReadWrite backspace close inquire open rewind endfile syn keyword irpf90ReadWrite read write print "If tabs are allowed then the left margin checks do not work if exists("irpf90_have_tabs") syn match irpf90Tab "\t" transparent else syn match irpf90Tab "\t" endif syn keyword irpf90IO unit file iostat access blank fmt form syn keyword irpf90IO recl status exist opened number named name syn keyword irpf90IO sequential direct rec syn keyword irpf90IO formatted unformatted nextrec syn keyword irpf9066Intrinsic cabs ccos cexp clog csin csqrt syn keyword irpf9066Intrinsic dacos dasin datan datan2 dcos dcosh syn keyword irpf9066Intrinsic ddim dexp dint dlog dlog10 dmod dabs syn keyword irpf9066Intrinsic dnint dsign dsin dsinh dsqrt dtan syn keyword irpf9066Intrinsic dtanh iabs idim idnint isign idint ifix syn keyword irpf9066Intrinsic amax0 amax1 dmax1 max0 max1 syn keyword irpf9066Intrinsic amin0 amin1 dmin1 min0 min1 syn keyword irpf9066Intrinsic amod float sngl alog alog10 " Intrinsics provided by some vendors syn keyword irpf90ExtraIntrinsic cdabs cdcos cdexp cdlog cdsin cdsqrt syn keyword irpf90ExtraIntrinsic cqabs cqcos cqexp cqlog cqsin cqsqrt syn keyword irpf90ExtraIntrinsic qacos qasin qatan qatan2 qcos qcosh syn keyword irpf90ExtraIntrinsic qdim qexp iqint qlog qlog10 qmod qabs syn keyword irpf90ExtraIntrinsic qnint qsign qsin qsinh qsqrt qtan syn keyword irpf90ExtraIntrinsic qtanh qmax1 qmin1 syn keyword irpf90ExtraIntrinsic dimag qimag dcmplx qcmplx dconjg qconjg syn keyword irpf90ExtraIntrinsic gamma dgamma qgamma algama dlgama qlgama syn keyword irpf90ExtraIntrinsic erf derf qerf erfc derfc qerfc syn keyword irpf90ExtraIntrinsic dfloat syn keyword irpf90Intrinsic abs acos aimag aint anint asin atan atan2 syn keyword irpf90Intrinsic cos sin tan sinh cosh tanh exp log log10 syn keyword irpf90Intrinsic sign sqrt int cmplx nint min max conjg syn keyword irpf90Intrinsic char ichar index syn match irpf90Intrinsic "\" syn match irpf90Intrinsic "\" "Numbers of various sorts " Integers syn match irpf90Number display "\<\d\+\(_\a\w*\)\=\>" " floating point number, without a decimal point syn match irpf90FloatNoDec display "\<\d\+[deq][-+]\=\d\+\(_\a\w*\)\=\>" " floating point number, starting with a decimal point syn match irpf90FloatIniDec display "\.\d\+\([deq][-+]\=\d\+\)\=\(_\a\w*\)\=\>" " floating point number, no digits after decimal syn match irpf90FloatEndDec display "\<\d\+\.\([deq][-+]\=\d\+\)\=\(_\a\w*\)\=\>" " floating point number, D or Q exponents syn match irpf90FloatDExp display "\<\d\+\.\d\+\([dq][-+]\=\d\+\)\=\(_\a\w*\)\=\>" " floating point number syn match irpf90Float display "\<\d\+\.\d\+\(e[-+]\=\d\+\)\=\(_\a\w*\)\=\>" " Numbers in formats syn match irpf90FormatSpec display "\d*f\d\+\.\d\+" syn match irpf90FormatSpec display "\d*e[sn]\=\d\+\.\d\+\(e\d+\>\)\=" syn match irpf90FormatSpec display "\d*\(d\|q\|g\)\d\+\.\d\+\(e\d+\)\=" syn match irpf90FormatSpec display "\d\+x\>" " The next match cannot be used because it would pick up identifiers as well " syn match irpf90FormatSpec display "\<\(a\|i\)\d\+" " Numbers as labels syn match irpf90LabelNumber display "^\d\{1,5}\s"me=e-1 syn match irpf90LabelNumber display "^ \d\{1,4}\s"ms=s+1,me=e-1 syn match irpf90LabelNumber display "^ \d\{1,3}\s"ms=s+2,me=e-1 syn match irpf90LabelNumber display "^ \d\d\=\s"ms=s+3,me=e-1 syn match irpf90LabelNumber display "^ \d\s"ms=s+4,me=e-1 if version >= 600 && exists("irpf90_more_precise") " Numbers as targets syn match irpf90Target display "\(\" syn match irpf90Target display "\(\" syn match irpf90Target display "\(\" endif syn keyword irpf90TypeEx external syn keyword irpf90IOEx format syn keyword irpf90StatementEx continue syn match irpf90StatementEx "\" syn region irpf90StringEx start=+'+ end=+'+ contains=irpf90ContinueMark,irpf90LeftMargin,irpf90SerialNumber syn keyword irpf90IntrinsicEx dim lge lgt lle llt mod syn keyword irpf90StatementOb assign pause to syn keyword irpf90Type type none syn keyword irpf90Structure private public intent optional syn keyword irpf90Structure pointer target allocatable syn keyword irpf90StorageClass in out syn match irpf90StorageClass "\" syn keyword irpf90UnitHeader use only contains syn keyword irpf90UnitHeader result operator assignment syn match irpf90UnitHeader "\" syn match irpf90UnitHeader "\" syn keyword irpf90Statement allocate deallocate nullify cycle exit syn match irpf90Conditional "\" syn keyword irpf90Conditional case default where elsewhere syn match irpf90Operator "\(\(>\|<\)=\=\|==\|/=\|=\)" syn match irpf90Operator "=>" syn region irpf90String start=+"+ end=+"+ contains=irpf90LeftMargin,irpf90ContinueMark,irpf90SerialNumber syn keyword irpf90IO pad position action delim readwrite syn keyword irpf90IO eor advance nml syn keyword irpf90Intrinsic adjustl adjustr all allocated any syn keyword irpf90Intrinsic associated bit_size btest ceiling syn keyword irpf90Intrinsic count cshift date_and_time syn keyword irpf90Intrinsic digits dot_product eoshift epsilon exponent syn keyword irpf90Intrinsic floor fraction huge iand ibclr ibits ibset ieor syn keyword irpf90Intrinsic ior ishft ishftc lbound len_trim syn keyword irpf90Intrinsic matmul maxexponent maxloc maxval merge syn keyword irpf90Intrinsic minexponent minloc minval modulo mvbits nearest syn keyword irpf90Intrinsic pack present product radix random_number syn match irpf90Intrinsic "\\(\s*\.\)\@!"me=s+3 syn keyword irpf90Intrinsic random_seed range repeat reshape rrspacing scale syn keyword irpf90Intrinsic selected_int_kind selected_real_kind scan syn keyword irpf90Intrinsic shape size spacing spread set_exponent syn keyword irpf90Intrinsic tiny transpose trim ubound unpack verify syn keyword irpf90Intrinsic precision sum system_clock syn match irpf90Intrinsic "\\s*[(,]"me=s+4 syn match irpf90UnitHeader "\" syn match irpf90Type "\" syn match irpf90ConstructName "\(\" syn cluster irpf90CommentGroup contains=irpf90Todo syn match irpf90ContinueMark display "&" syn match irpf90Comment excludenl "!.*$" contains=@irpf90CommentGroup "cpp is often used with irpf90 syn match cPreProc "^\s*#\s*\(define\|ifdef\)\>.*" syn match cPreProc "^\s*#\s*\(elif\|if\)\>.*" syn match cPreProc "^\s*#\s*\(ifndef\|undef\)\>.*" syn match cPreCondit "^\s*#\s*\(else\|endif\)\>.*" syn region cIncluded contained start=+"[^(]+ skip=+\\\\\|\\"+ end=+"+ contains=irpf90LeftMargin,irpf90ContinueMark,irpf90SerialNumber syn match cIncluded contained "<[^>]*>" syn match cInclude "^\s*#\s*include\>\s*["<]" contains=cIncluded "Synchronising limits assume that comment and continuation lines are not mixed syn sync linecont "&" maxlines=40 """"IRPF90 specific syn match irpf90UnitHeader "^\s*begin_shell\s*" syn match irpf90UnitHeader "^\s*end_shell\s*$" syn match irpf90UnitHeader "^\s*begin_template\s*" syn match irpf90UnitHeader "^\s*end_template\s*$" syn match irpf90UnitHeader "^\s*subst\s*$" syn match irpf90Comment "^\s*begin_doc\s*" syn match irpf90Comment "^\s*end_doc\s*$" syn match irpf90UnitHeader "^\s*&*\s*begin_provider\s*" syn match irpf90UnitHeader "^\s*end_provider\s*$" syn match irpf90UnitHeader "^\s*assert" syn match irpf90UnitHeader "^\s*touch" syn match irpf90UnitHeader "^\s*soft_touch" syn match irpf90UnitHeader "^\s*provide" syn match irpf90UnitHeader "^\s*free" syn match irpf90UnitHeader "^\s*irp_if" syn match irpf90UnitHeader "^\s*irp_else" syn match irpf90UnitHeader "^\s*irp_endif" syn match irpf90UnitHeader "^\s*irp_read" syn match irpf90UnitHeader "^\s*irp_write" """ if exists("irpf90_fold") syn sync fromstart syn region irpf90Program transparent fold keepend start="^\s*program\s\+\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\\)\=\|$\)" contains=ALLBUT,irpf90Module syn region irpf90Module transparent fold keepend start="^\s*module\s\+\(procedure\)\@!\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\\)\=\|$\)" contains=ALLBUT,irpf90Program syn region irpf90Function transparent fold keepend extend start="^\s*\(elemental \|pure \|recursive \)\=\s*function\s\+\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\\)\=\)" contains=ALLBUT,irpf90Program,irpf90Module syn region irpf90Subroutine transparent fold keepend extend start="^\s*\(elemental \|pure \|recursive \)\=\s*subroutine\s\+\z(\a\w*\)" skip="^\s*[!#].*$" excludenl end="\\)\=\)" contains=ALLBUT,irpf90Program,irpf90Module syn region irpf90BlockData transparent fold keepend start="\ " The default highlighting differs for each dialect. " Transparent groups: " irpf90Paren, irpf90LeftMargin " irpf90Program, irpf90Module, irpf90Subroutine, irpf90Function, " irpf90BlockData " irpf90Loop, irpf90Loop, irpf90IfBlock, irpf90Case " irpf90MultiCommentLines HiLink irpf90Statement Statement HiLink irpf90ConstructName Special HiLink irpf90Conditional Conditional HiLink irpf90Repeat Repeat HiLink irpf90Todo Todo HiLink irpf90ContinueMark Todo HiLink irpf90String String HiLink irpf90Number Number HiLink irpf90Operator Operator HiLink irpf90Boolean Boolean HiLink irpf90LabelError Error HiLink irpf90Obsolete Todo HiLink irpf90Type Type HiLink irpf90Structure Type HiLink irpf90StorageClass StorageClass HiLink irpf90Call irpf90UnitHeader HiLink irpf90UnitHeader irpf90PreCondit HiLink irpf90ReadWrite irpf90Intrinsic HiLink irpf90IO irpf90Intrinsic HiLink irpf90Intrinsic irpf90Intrinsic HiLink irpf90Intrinsic irpf90Intrinsic HiLink irpf90Intrinsic Special HiLink irpf90StatementOb Statement HiLink irpf9066Intrinsic irpf90Intrinsic HiLink irpf90IntrinsicR irpf90Intrinsic HiLink irpf90UnitHeaderR irpf90PreCondit HiLink irpf90TypeR irpf90Type HiLink irpf90StorageClassR irpf90StorageClass HiLink irpf90OperatorR irpf90Operator HiLink irpf90Include Include HiLink irpf90StorageClassR irpf90StorageClass HiLink irpf90LabelNumber Special HiLink irpf90Target Special HiLink irpf90FormatSpec Identifier HiLink irpf90FloatDExp irpf90Float HiLink irpf90FloatNoDec irpf90Float HiLink irpf90FloatIniDec irpf90Float HiLink irpf90FloatEndDec irpf90Float HiLink irpf90TypeEx irpf90Type HiLink irpf90IOEx irpf90IO HiLink irpf90StatementEx irpf90Statement HiLink irpf90StringEx irpf90String HiLink irpf90IntrinsicEx irpf90Intrinsic HiLink irpf90UnitHeaderEx irpf90UnitHeader HiLink irpf90ConditionalEx irpf90Conditional HiLink irpf90IntrinsicEx irpf90Intrinsic HiLink irpf90Float Float "Uncomment the next line if you want all irpf90 variables to be highlighted " HiLink irpf90Identifier Identifier HiLink irpf90PreCondit PreCondit HiLink irpf90Include Include HiLink cIncluded Error HiLink cInclude Error HiLink cPreProc Error HiLink cPreCondit Error HiLink irpf90ParenError Error HiLink irpf90Comment Comment HiLink irpf90SerialNumber Todo HiLink irpf90Tab Error " Vendor extensions HiLink irpf90ExtraIntrinsic Special delcommand HiLink endif fun! ReadMan() let s:man_word = expand('') :exe ":!irpman " . s:man_word endfun map K :call ReadMan() set equalprg=irpf90_indent if exists('g:no_irpf90_conceal') || !has('conceal') || &enc != 'utf-8' finish endif syntax match irpf90NiceOperator "<-" conceal cchar=← syntax match irpf90NiceOperator "->" conceal cchar=→ syntax match irpf90NiceOperator "==" conceal cchar=≡ syntax match irpf90NiceOperator "\.eq\." conceal cchar=≡ syntax match irpf90NiceOperator "/=" conceal cchar=≠ syntax match irpf90NiceOperator "\.ne\." conceal cchar=≠ syntax match irpf90NiceOperator "\.or\." conceal cchar=∨ syntax match irpf90NiceOperator "\.and\." conceal cchar=∧ syntax match irpf90NiceOperator "*" conceal cchar=× let s:extraConceal = 1 " Some windows font don't support some of the characters, " so if they are the main font, we don't load them :) if has("win32") let s:incompleteFont = [ 'Consolas' \ , 'Lucida Console' \ , 'Courier New' \ ] let s:mainfont = substitute( &guifont, '^\([^:,]\+\).*', '\1', '') for s:fontName in s:incompleteFont if s:mainfont ==? s:fontName let s:extraConceal = 0 break endif endfor endif if s:extraConceal " Match greater than and lower than w/o messing with Kleisli composition syntax match irpf90NiceOperator "<=" conceal cchar=≤ syntax match irpf90NiceOperator ">=" conceal cchar=≥ syntax match irpf90NiceOperator "\.le\." conceal cchar=≤ syntax match irpf90NiceOperator "\.ge\." conceal cchar=≥ syntax match irpf90NiceOperator "\.lt\." conceal cchar=< syntax match irpf90NiceOperator "\.gt\." conceal cchar=> syntax match irpf90NiceOperator "<\Delta\>" conceal cchar=Δ syntax match irpf90NiceOperator "<\lapl_" conceal cchar=Δ syntax match irpf90NiceOperator "\" conceal cchar=Λ syntax match irpf90NiceOperator "\" conceal cchar=Π syntax match irpf90NiceOperator "\" conceal cchar=Σ syntax match irpf90NiceOperator "\" conceal cchar=Ψ syntax match irpf90NiceOperator "\" conceal cchar=Ω syntax match irpf90NiceOperator "\" conceal cchar=α syntax match irpf90NiceOperator "\" conceal cchar=β syntax match irpf90NiceOperator "\" conceal cchar=γ syntax match irpf90NiceOperator "\" conceal cchar=δ syntax match irpf90NiceOperator "\" conceal cchar=ε syntax match irpf90NiceOperator "\" conceal cchar=ζ syntax match irpf90NiceOperator "\" conceal cchar=θ syntax match irpf90NiceOperator "\" conceal cchar=η syntax match irpf90NiceOperator "\" conceal cchar=λ syntax match irpf90NiceOperator "\" conceal cchar=μ syntax match irpf90NiceOperator "\" conceal cchar=ν syntax match irpf90NiceOperator "\" conceal cchar=π syntax match irpf90NiceOperator "\" conceal cchar=ρ syntax match irpf90NiceOperator "\" conceal cchar=σ syntax match irpf90NiceOperator "\" conceal cchar=τ syntax match irpf90NiceOperator "\" conceal cchar=φ syntax match irpf90NiceOperator "\" conceal cchar=∇ syntax match irpf90NiceOperator "\" conceal cchar=χ syntax match irpf90NiceOperator "\" conceal cchar=ψ syntax match irpf90NiceOperator "\" conceal cchar=ω syntax match irpf90NiceOperator "=>" conceal cchar=⇒ syntax match irpf90NiceOperator "\:\:" conceal cchar=∷ syntax match irpf90NiceOperator "++" conceal cchar=⧺ syntax match irpf90NiceOperator "\" conceal cchar=∀ endif hi link irpf90NiceOperator Operator hi! link Conceal Operator setlocal conceallevel=2 " vim: set fenc=utf-8: " vim: ts=8 tw=132