189 lines
8.2 KiB
VimL
189 lines
8.2 KiB
VimL
if exists('g:polyglot_disabled') && index(g:polyglot_disabled, 'julia') != -1
|
||
finish
|
||
endif
|
||
|
||
function! julia#set_syntax_version(jvers)
|
||
if &filetype != "julia"
|
||
echo "Not a Julia file"
|
||
return
|
||
endif
|
||
syntax clear
|
||
let b:julia_syntax_version = a:jvers
|
||
set filetype=julia
|
||
endfunction
|
||
|
||
function! julia#toggle_deprecated_syntax()
|
||
if &filetype != "julia"
|
||
echo "Not a Julia file"
|
||
return
|
||
endif
|
||
syntax clear
|
||
let hd = get(b:, "julia_syntax_highlight_deprecated",
|
||
\ get(g:, "julia_syntax_highlight_deprecated", 0))
|
||
let b:julia_syntax_highlight_deprecated = hd ? 0 : 1
|
||
set filetype=julia
|
||
if b:julia_syntax_highlight_deprecated
|
||
echo "Highlighting of deprecated syntax enabled"
|
||
else
|
||
echo "Highlighting of deprecated syntax disabled"
|
||
endif
|
||
endfunction
|
||
|
||
if exists("loaded_matchit")
|
||
|
||
function! julia#toggle_function_blockassign()
|
||
let sav_pos = getcurpos()
|
||
let l = getline('.')
|
||
let c = match(l, '\C\m\<function\s\+.\+(')
|
||
if c != -1
|
||
return julia#function_block2assign()
|
||
endif
|
||
let c = match(l, '\C\m)\%(::\S\+\)\?\%(\s\+where\s\+.*\)\?\s*=\s*')
|
||
if c == -1
|
||
echohl WarningMsg | echo "Not on a function definition or assignment line" | echohl None
|
||
return
|
||
endif
|
||
return julia#function_assign2block()
|
||
endfunction
|
||
|
||
function! julia#function_block2assign()
|
||
let sav_pos = getcurpos()
|
||
let l = getline('.')
|
||
let c = match(l, '\C\m\<function\s\+.\+(')
|
||
if c == -1
|
||
echohl WarningMsg | echo "Not on a function definition line" | echohl None
|
||
return
|
||
endif
|
||
let fpos = copy(sav_pos)
|
||
let fpos[2] = c+1
|
||
call setpos('.', fpos)
|
||
normal %
|
||
if line('.') != fpos[1]+2 || match(getline('.'), '\C\m^\s*end\s*$') == -1
|
||
echohl WarningMsg | echo "Only works with 3-lines functions" | echohl None
|
||
call setpos('.', sav_pos)
|
||
return
|
||
endif
|
||
call setpos('.', fpos)
|
||
normal! f(
|
||
normal %
|
||
while line('.') == fpos[1] && match(l[col('.')-1:], '\C\m)(') == 0
|
||
normal! l
|
||
normal %
|
||
endwhile
|
||
if line('.') != fpos[1] || match(l[(col('.')-1):], '\C\m)\%(::\S\+\)\?\%(\s\+where\s\+.*\)\?\s*$') != 0
|
||
echohl WarningMsg | echo "Unrecognized function definition format" | echohl None
|
||
call setpos('.', sav_pos)
|
||
return
|
||
endif
|
||
|
||
call setpos('.', fpos)
|
||
normal! dwA = J
|
||
if match(getline('.')[(col('.')-1):], '\C\mreturn\>') == 0
|
||
normal! dw
|
||
endif
|
||
if match(getline('.')[(col('.')-1):], '\C\m\s*$') == 0
|
||
normal! F=C= nothing
|
||
endif
|
||
normal! jddk^
|
||
return
|
||
endfunction
|
||
|
||
function! julia#function_assign2block()
|
||
let sav_pos = getcurpos()
|
||
let l = getline('.')
|
||
let c = match(l, '\C\m)\%(::\S\+\)\?\%(\s\+where\s\+.*\)\?\s*=\s*')
|
||
if c == -1
|
||
echohl WarningMsg | echo "Not on a function assignment-definition line" | echohl None
|
||
return
|
||
endif
|
||
normal ^
|
||
while match(l[(col('.')-1):], '\%(\S\+\.\)*@') == 0
|
||
normal! W
|
||
endwhile
|
||
normal! ifunction
|
||
let l = getline('.')
|
||
let c = match(l, '\C\m)\%(::\S\+\)\?\%(\s\+where\s\+.*\)\?\s*\zs=\s*')
|
||
let eqpos = copy(sav_pos)
|
||
let eqpos[2] = c+1
|
||
call setpos('.', eqpos)
|
||
normal! cw
|
||
oend
|
||
normal %
|
||
s/\s*$// | noh
|
||
return
|
||
endfunction
|
||
|
||
|
||
let s:nonid_chars = "\U01-\U07" . "\U0E-\U1F" .
|
||
\ "\"#$'(,.:;=?@`\\U5B{" .
|
||
\ "\U80-\UA1" . "\UA7\UA8\UAB\UAD\UAF\UB4" . "\UB6-\UB8" . "\UBB\UBF"
|
||
|
||
let s:nonidS_chars = "[:space:])\\U5D}" . s:nonid_chars
|
||
|
||
" the following excludes '!' since it can be used as an identifier,
|
||
" and '$' since it can be used in interpolations
|
||
" note that \U2D is '-'
|
||
let s:uniop_chars = "+\\U2D~¬√∛∜"
|
||
|
||
let s:binop_chars = "=+\\U2D*/\\%÷^&|⊻<>≤≥≡≠≢∈∉⋅×∪∩⊆⊈⊂⊄⊊←→∋∌⊕⊖⊞⊟∘∧⊗⊘↑↓∨⊠±"
|
||
|
||
" the following is a list of all remainig valid operator chars,
|
||
" but it's more efficient when expressed with ranges (see below)
|
||
" let s:binop_chars_extra = "↔↚↛↠↣↦↮⇎⇏⇒⇔⇴⇶⇷⇸⇹⇺⇻⇼⇽⇾⇿⟵⟶⟷⟷⟹⟺⟻⟼⟽⟾⟿⤀⤁⤂⤃⤄⤅⤆⤇⤌⤍⤎⤏⤐⤑⤔⤕⤖⤗⤘⤝⤞⤟⤠⥄⥅⥆⥇⥈⥊⥋⥎⥐⥒⥓⥖⥗⥚⥛⥞⥟⥢⥤⥦⥧⥨⥩⥪⥫⥬⥭⥰⧴⬱⬰⬲⬳⬴⬵⬶⬷⬸⬹⬺⬻⬼⬽⬾⬿⭀⭁⭂⭃⭄⭇⭈⭉⭊⭋⭌←→" .
|
||
" \ "∝∊∍∥∦∷∺∻∽∾≁≃≄≅≆≇≈≉≊≋≌≍≎≐≑≒≓≔≕≖≗≘≙≚≛≜≝≞≟≣≦≧≨≩≪≫≬≭≮≯≰≱≲≳≴≵≶≷≸≹≺≻≼≽≾≿⊀⊁⊃⊅⊇⊉⊋⊏⊐⊑⊒⊜⊩⊬⊮⊰⊱⊲⊳⊴⊵⊶⊷⋍⋐⋑⋕⋖⋗⋘⋙⋚⋛⋜⋝⋞⋟⋠⋡⋢⋣⋤⋥⋦⋧⋨⋩⋪⋫⋬⋭⋲⋳⋴⋵⋶⋷⋸⋹⋺⋻⋼⋽⋾⋿⟈⟉⟒⦷⧀⧁⧡⧣⧤⧥⩦⩧⩪⩫⩬⩭⩮⩯⩰⩱⩲⩳⩴⩵⩶⩷⩸⩹⩺⩻⩼⩽⩾⩿⪀⪁⪂⪃⪄⪅⪆⪇⪈⪉⪊⪋⪌⪍⪎⪏⪐⪑⪒⪓⪔⪕⪖⪗⪘⪙⪚⪛⪜⪝⪞⪟⪠⪡⪢⪣⪤⪥⪦⪧⪨⪩⪪⪫⪬⪭⪮⪯⪰⪱⪲⪳⪴⪵⪶⪷⪸⪹⪺⪻⪼⪽⪾⪿⫀⫁⫂⫃⫄⫅⫆⫇⫈⫉⫊⫋⫌⫍⫎⫏⫐⫑⫒⫓⫔⫕⫖⫗⫘⫙⫷⫸⫹⫺⊢⊣" .
|
||
" \ "⊔∓∔∸≂≏⊎⊽⋎⋓⧺⧻⨈⨢⨣⨤⨥⨦⨧⨨⨩⨪⨫⨬⨭⨮⨹⨺⩁⩂⩅⩊⩌⩏⩐⩒⩔⩖⩗⩛⩝⩡⩢⩣" .
|
||
" \ "⊙⊚⊛⊡⊓∗∙∤⅋≀⊼⋄⋆⋇⋉⋊⋋⋌⋏⋒⟑⦸⦼⦾⦿⧶⧷⨇⨰⨱⨲⨳⨴⨵⨶⨷⨸⨻⨼⨽⩀⩃⩄⩋⩍⩎⩑⩓⩕⩘⩚⩜⩞⩟⩠⫛⊍▷⨝⟕⟖⟗" .
|
||
" \ "⇵⟰⟱⤈⤉⤊⤋⤒⤓⥉⥌⥍⥏⥑⥔⥕⥘⥙⥜⥝⥠⥡⥣⥥⥮⥯↑↓"
|
||
|
||
" same as above, but with character ranges, for performance
|
||
let s:binop_chars_extra = "\\U214B\\U2190-\\U2194\\U219A\\U219B\\U21A0\\U21A3\\U21A6\\U21AE\\U21CE\\U21CF\\U21D2\\U21D4\\U21F4-\\U21FF\\U2208-\\U220D\\U2213\\U2214\\U2217-\\U2219\\U221D\\U2224-\\U222A\\U2237\\U2238\\U223A\\U223B\\U223D\\U223E\\U2240-\\U228B\\U228D-\\U229C\\U229E-\\U22A3\\U22A9\\U22AC\\U22AE\\U22B0-\\U22B7\\U22BB-\\U22BD\\U22C4-\\U22C7\\U22C9-\\U22D3\\U22D5-\\U22ED\\U22F2-\\U22FF\\U25B7\\U27C8\\U27C9\\U27D1\\U27D2\\U27D5-\\U27D7\\U27F0\\U27F1\\U27F5-\\U27F7\\U27F7\\U27F9-\\U27FF\\U2900-\\U2918\\U291D-\\U2920\\U2944-\\U2970\\U29B7\\U29B8\\U29BC\\U29BE-\\U29C1\\U29E1\\U29E3-\\U29E5\\U29F4\\U29F6\\U29F7\\U29FA\\U29FB\\U2A07\\U2A08\\U2A1D\\U2A22-\\U2A2E\\U2A30-\\U2A3D\\U2A40-\\U2A45\\U2A4A-\\U2A58\\U2A5A-\\U2A63\\U2A66\\U2A67\\U2A6A-\\U2AD9\\U2ADB\\U2AF7-\\U2AFA\\U2B30-\\U2B44\\U2B47-\\U2B4C\\UFFE9-\\UFFEC"
|
||
|
||
" a Julia identifier, sort of
|
||
let s:idregex = '[^' . s:nonidS_chars . '0-9!' . s:uniop_chars . s:binop_chars . '][^' . s:nonidS_chars . s:uniop_chars . s:binop_chars . s:binop_chars_extra . ']*'
|
||
|
||
let s:operators = '\%(' . '\.\%([-+*/^÷%|&!]\|//\|\\\|<<\|>>>\?\)\?=' .
|
||
\ '\|' . '[:$<>]=\|||\|&&\||>\|<|\|<:\|:>\|::\|<<\|>>>\?\|//\|[-=]>\|\.\{3\}' .
|
||
\ '\|' . '[' . s:uniop_chars . '!$]' .
|
||
\ '\|' . '\.\?[' . s:binop_chars . s:binop_chars_extra . ']' .
|
||
\ '\)'
|
||
|
||
function! julia#idundercursor()
|
||
" TODO...
|
||
let w = expand('<cword>')
|
||
" let [l,c] = [line('.'),col('.')]
|
||
" let ll = getline(l)
|
||
return w
|
||
endfunction
|
||
|
||
function! julia#gotodefinition()
|
||
let w = julia#idundercursor()
|
||
if empty(w)
|
||
return ''
|
||
endif
|
||
let [l,c] = [line('.'),col('.')]
|
||
let st = map(synstack(l,c), 'synIDattr(v:val, "name")')
|
||
let n = len(st)
|
||
if n > 0 && st[-1] =~# '^julia\%(\%(Range\|Ternary\|CTrans\)\?Operator\|\%(Possible\)\?SymbolS\?\|\%(Bl\|Rep\)\?Keyword\|Conditional\|ParDelim\|Char\|Colon\|Typedef\|Number\|Float\|Const\%(Generic\|Bool\)\|ComplexUnit\|\%(Special\|\%(Octal\|Hex\)Escape\)Char\|UniChar\%(Small\|Large\)\|Comment[LM]\|Todo\|Semicolon\)$'
|
||
return ''
|
||
endif
|
||
|
||
let comprehension = 0
|
||
let indollar = 0
|
||
for i in range(n-1, 0, -1)
|
||
if st[i] =~# '^juliaDollar\%(Var\|Par\|SqBra\)$'
|
||
let indollar = 1
|
||
endif
|
||
if !indollar && st[i] =~# '^julia\%(\a*String\|QuotedParBlockS\?\)$'
|
||
return ''
|
||
endif
|
||
if st[i] =~# '^julia\%(ParBlock\%(InRange\)\?\|SqBraBlock\|\%(Dollar\|StringVars\)\%(Par\|SqBra\)\)$'
|
||
let comprehension = 1
|
||
endif
|
||
endfor
|
||
|
||
let s1 = search('\C\<' . w . '\s*=[^=]', 'bcWzs')
|
||
|
||
return
|
||
endfunction
|
||
|
||
endif
|