134 lines
1.9 KiB
VimL
134 lines
1.9 KiB
VimL
XPTemplate priority=lang
|
|
|
|
let s:f = g:XPTfuncs()
|
|
|
|
XPTvar $TRUE 1
|
|
XPTvar $FALSE 0
|
|
XPTvar $NULL NULL
|
|
XPTvar $UNDEFINED NULL
|
|
XPTvar $VOID_LINE /* void */;
|
|
XPTvar $BRif \n
|
|
|
|
XPTinclude
|
|
\ _common/common
|
|
|
|
|
|
" ========================= Function and Variables =============================
|
|
|
|
|
|
" ================================= Snippets ===================================
|
|
|
|
|
|
XPT acc " access
|
|
access
|
|
..XPT
|
|
|
|
XPT ali " aliased
|
|
aliased
|
|
..XPT
|
|
|
|
XPT beg " begin .. end;
|
|
begin
|
|
`cursor^
|
|
end;
|
|
..XPT
|
|
|
|
XPT case " case .. is .. end case;
|
|
case `1^ is
|
|
`cursor^
|
|
end case;
|
|
..XPT
|
|
|
|
XPT eli " elsif .. then ...
|
|
elsif `1^ then
|
|
`cursor^
|
|
..XPT
|
|
|
|
XPT for " for .. in .. loop ... end loop;
|
|
for `1^ in `2^ loop
|
|
`cursor^
|
|
end loop;
|
|
..XPT
|
|
|
|
XPT fun " function .. return .. is ..._ end;
|
|
function `1^name^ return `2^ is
|
|
`3^
|
|
begin -- `1^
|
|
`cursor^
|
|
end `1^;
|
|
..XPT
|
|
|
|
XPT if " if .. then ... end if;
|
|
if `1^ then
|
|
`cursor^
|
|
end if;
|
|
..XPT
|
|
|
|
XPT loop " loop .. end loop;
|
|
loop
|
|
`cursor^
|
|
end loop;
|
|
..XPT
|
|
|
|
XPT pbo " package body .. is .. end ;
|
|
package body `1^name^ is
|
|
`cursor^
|
|
end `1^;
|
|
..XPT
|
|
|
|
XPT pac " package .. is .. end;
|
|
package `1^name^ is
|
|
`cursor^
|
|
end `1^;
|
|
..XPT
|
|
|
|
XPT pne " package .. is ..
|
|
package `1^ is `cursor^
|
|
..XPT
|
|
|
|
XPT pro " procedure .. begin .. end;
|
|
procedure `1^Procedure^ is
|
|
`2^
|
|
begin -- `mark^S(R('1'),'([a-zA-Z0-9_]*).*$','\1')^
|
|
`cursor^
|
|
end `mark^;
|
|
..XPT
|
|
|
|
XPT rec " record .. end record;
|
|
record
|
|
`cursor^
|
|
end record;
|
|
..XPT
|
|
|
|
XPT ret " return ..;
|
|
return `1^;
|
|
..XPT
|
|
|
|
XPT ty " type .. is ..;
|
|
type `1^ is `cursor^
|
|
..XPT
|
|
|
|
XPT u " use ..;
|
|
use `1^;
|
|
..XPT
|
|
|
|
XPT when " when .. => ..
|
|
when `1^ =>
|
|
`cursor^
|
|
..XPT
|
|
|
|
XPT whi " while .. loop .. end loop;
|
|
while `1^ loop
|
|
`cursor^
|
|
end loop;
|
|
..XPT
|
|
|
|
XPT wu " with ..; use ..;
|
|
with `what^; use `1^;
|
|
`cursor^
|
|
..XPT
|
|
|
|
XPT w " with ..;
|
|
with `1^;
|
|
..XPT
|
|
|