implement templates (kinda)

uh oh

lib/list.hsex

@@ -1,3 +1,40 @@
-(template (T) struct list
-    (var T value)
-    ())
+(template (T)
+  struct list-T
+  ((T value)
+   ((list-T *) next)))
+
+(template (T)
+  pub fn (list-T *) make-list-T ()
+  (var (list-T *) list (malloc (sizeof list-T)))
+  (= (-> list next) NULL)
+  list)
+
+(template (T)
+  pub fn void add-value-list-T ((list-T *list) (T value))
+  (while (!= (-> list next) NULL)
+    (= list (-> list next)))
+  (= (-> list next) (make-list-T))
+  (= (-> list value) value))
+
+(template (T)
+  pub fn size-t length-list-T ((list-T *list))
+  (var size-t n 0)
+  (while (!= (-> list next) NULL)
+    (= list (-> list next))
+    (++ n))
+  n)
+
+(template (T)
+  pub fn bool is-empty-list-T ((list-T *list))
+  (== (-> list next) NULL))
+
+(define-syntax list-for-each
+  (syntax-rules ()
+    ((_ list-var elt-var what-do ...)
+     '(begin
+        ;; todo: that int here is not good
+        (var int elt-var (-> list-var value))
+        (while (!= (-> list-var next) NULL)
+         what-do ...
+         (= list-var (-> list-var next))
+         (= elt-var (-> list-var value)))))))

lib/test-list.sex

@@ -0,0 +1,22 @@
+(include stdlib.h)
+(include stddef.h)
+(include stdbool.h)
+(include stdio.h)
+
+(load "list.hsex")
+
+(instance list-int list-T (int))
+(instance make-list-int make-list-T (int))
+(instance add-value-list-int add-value-list-T (int))
+(instance length-list-int length-list-T (int))
+(instance is-empty-list-int is-empty-list-T (int))
+
+(pub fn int main ()
+     (var (* list-int) l (make-list-int))
+     (printf "Size of the list: %zu\n" (length-list-int l))
+     (add-value-list-int l 3)
+     (add-value-list-int l 4)
+     (printf "Size of the list: %zu\n" (length-list-int l))
+     ,(list-for-each l v (printf "%d " v))
+     (printf "\n")
+     0)