X-Git-Url: https://git.m6w6.name/?a=blobdiff_plain;f=src%2Ftypes%2Flet_vals.h;fp=src%2Ftypes%2Flet_vals.h;h=f46345c224a638b2627e7e9366bd0336373afbe2;hb=e5103bb1ce17ef734e1329da9a13d9a2cbc40ad9;hp=0000000000000000000000000000000000000000;hpb=5359ad5c181e5772f350fe1cba060cbed3a05b91;p=m6w6%2Fext-psi

diff --git a/src/types/let_vals.h b/src/types/let_vals.h
new file mode 100644
index 0000000..f46345c
--- /dev/null
+++ b/src/types/let_vals.h
@@ -0,0 +1,42 @@
+#ifndef _PSI_TYPES_LET_VALS_H
+#define _PSI_TYPES_LET_VALS_H
+
+struct let_val;
+
+typedef struct let_vals {
+	struct let_val **vals;
+	size_t count;
+} let_vals;
+
+static inline let_vals *init_let_vals(struct let_val *val) {
+	let_vals *vals = calloc(1, sizeof(*vals));
+	if (val) {
+		vals->count = 1;
+		vals->vals = calloc(1, sizeof(val));
+		vals->vals[0] = val;
+	}
+	return vals;
+}
+
+static inline let_vals *add_let_val(let_vals *vals, struct let_val *val) {
+	if (!vals) {
+		vals = calloc(1, sizeof(*vals));
+	}
+	vals->vals = realloc(vals->vals, ++vals->count * sizeof(val));
+	vals->vals[vals->count-1] = val;
+	return vals;
+}
+
+static inline void free_let_vals(let_vals *vals) {
+	if (vals->vals) {
+		size_t i;
+
+		for (i = 0; i < vals->count; ++i) {
+			free_let_val(vals->vals[i]);
+		}
+		free(vals->vals);
+	}
+	free(vals);
+}
+
+#endif