inner let vals

[m6w6/ext-psi] / src / types / let_vals.h

diff --git a/src/types/let_vals.h b/src/types/let_vals.h
new file mode 100644 (file)
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