From 298e80f22178e1f0bef11986e0cd7a2dc9208a98 Mon Sep 17 00:00:00 2001
From: yannickreiss <yannick.reiss@protonmail.ch>
Date: Wed, 18 Dec 2024 09:29:02 +0100
Subject: [PATCH] Add pascal snippets

---
 UltiSnips/pascal.snippets | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/UltiSnips/pascal.snippets b/UltiSnips/pascal.snippets
index 2eb293b..c82d8b1 100644
--- a/UltiSnips/pascal.snippets
+++ b/UltiSnips/pascal.snippets
@@ -48,8 +48,38 @@ Begin
 End;
 endsnippet
 
+snippet function "Add a new function" b
+{   Procedure
+	@name: $1`!p
+if t[2] == "":
+	snip.rv = "\n\t"
+else:
+	snip.rv = "\n"
+	groups = t[2].split(";");
+	for group in groups:
+		snip.rv += f"\t@param {group}\n"
+	snip.rv += "\t"
+	`@return $3
+	@description: $4 }
+Function ${1:name}`!p
+if not (t[2] == ""):
+	snip.rv = " ("
+else:
+	snip.rv = ""`$2`!p
+if not (t[2] == ""):
+	snip.rv = ")"
+else:
+	snip.rv = ""` :  ${3:Integer};`!p
+if t[5] == "":
+	snip.rv = ""
+else:
+	snip.rv = "\nVar\n\t"`$5
+Begin
+	$0
+End;
+endsnippet
 
-snippet -- "Add multiline comment" A
+snippet -- "Add comment"
 (* $1 *)$0
 endsnippet