flush

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

diff --git a/src/types/let_vals.h b/src/types/let_vals.h
index 442ba598544c9087a37140a231e134e0c9b53a0f..01b1d8445fc32f8d0da75112457d3dc6a17622cd 100644 (file)
--- a/src/types/let_vals.h
+++ b/src/types/let_vals.h
@@ -37,4 +37,18 @@ let_vals *init_let_vals(struct let_val *val);
 let_vals *add_let_val(let_vals *vals, struct let_val *val);
 void free_let_vals(let_vals *vals);
 
+static inline let_val *locate_let_vals_val(let_vals *vals, const char *name) {
+       size_t i;
+
+       for (i = 0; i < vals->count; ++i) {
+               let_val *val = vals->vals[i];
+               const char *var = locate_let_val_varname(val);
+
+               if (!strcmp(var, name)) {
+                       return val;
+               }
+       }
+
+       return NULL;
+}
 #endif