adding new stuff

plugins/bundle/xptemplate/ftplugin/ada/ada.xpt.vim

@@ -0,0 +1,134 @@
+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
+