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