Changeset 1439 for trunk/src/kmk/function.c

Timestamp:

Mar 29, 2008, 3:55:14 AM (17 years ago)

Author:

bird

Message:

CONFIG_WITH_EVALPLUS: evalctx, evalval, evalvalctx, evalcall and evalcall2. (all untested)

File:

• trunk/src/kmk/function.c (modified) (5 diffs)

trunk/src/kmk/function.c

@@ -1513 +1513 @@
 
 
-#ifdef CONFIG_WITH_EVALCTX
+#ifdef CONFIG_WITH_EVALPLUS
 /* Same as func_eval except that we push and pop the local variable
    context before evaluating the buffer. */
@@ -1537 +1537 @@
   return o;
 }
-#endif /* CONFIG_WITH_EVALCTX */
+
+/* A mix of func_eval and func_value, saves memory for the expansion. 
+  This implements both evalval and evalvalctx, the latter has its own
+  variable context just like evalctx. */
+static char *
+func_evalval (char *o, char **argv, const char *funcname)
+{
+  /* Look up the variable.  */
+  struct variable *v = lookup_variable (argv[0], strlen (argv[0]));
+  if (v)
+    {
+      char *buf;
+      unsigned int len;
+      int var_ctx;
+
+      /* Eval the value.  Pop the current variable buffer setting so that the
+         eval'd code can use its own without conflicting. (really necessary?)  */
+
+      install_variable_buffer (&buf, &len);
+      var_ctx = !strcmp(funcname, "evalvalctx");
+      if (var_ctx)
+        push_new_variable_scope ();
+
+      eval_buffer (v->value);
+
+      if (var_ctx)
+        pop_variable_scope ();
+      restore_variable_buffer (buf, len);
+    }
+
+  return o;
+}
+#endif /* CONFIG_WITH_EVALPLUS */
 
 static char *
@@ -3577 +3609 @@
   { STRING_SIZE_TUPLE("value"),         0,  1,  1,  func_value},
   { STRING_SIZE_TUPLE("eval"),          0,  1,  1,  func_eval},
-#ifdef CONFIG_WITH_EVALCTX
+#ifdef CONFIG_WITH_EVALPLUS
   { STRING_SIZE_TUPLE("evalctx"),       0,  1,  1,  func_evalctx},
+  { STRING_SIZE_TUPLE("evalval"),       0,  1,  0,  func_evalval},
+  { STRING_SIZE_TUPLE("evalvalctx"),    0,  1,  0,  func_evalval},
+  { STRING_SIZE_TUPLE("evalcall"),      1,  0,  1,  func_call},
+  { STRING_SIZE_TUPLE("evalcall2"),     1,  0,  1,  func_call},
 #endif
 #ifdef EXPERIMENTAL
@@ -3817 +3853 @@
   const struct function_table_entry *entry_p;
   struct variable *v;
+#ifdef CONFIG_WITH_EVALPLUS
+  char *buf;
+  unsigned int len;
+#endif
 
   /* There is no way to define a variable with a space in the name, so strip
@@ -3888 +3928 @@
     }
 
-  /* Expand the body in the context of the arguments, adding the result to
-     the variable buffer.  */
-
-  v->exp_count = EXP_COUNT_MAX;
-
   saved_args = max_args;
   max_args = i;
-  o = variable_expand_string (o, body, flen+3);
+
+#ifdef CONFIG_WITH_EVALPLUS
+  if (!strcmp (funcname, "call"))
+    {
+#endif
+      /* Expand the body in the context of the arguments, adding the result to
+         the variable buffer.  */
+    
+      v->exp_count = EXP_COUNT_MAX;
+      o = variable_expand_string (o, body, flen+3);
+      v->exp_count = 0;
+
+      o += strlen (o);
+#ifdef CONFIG_WITH_EVALPLUS
+    }
+  else if (!strcmp (funcname, "evalcall"))
+    {
+      /* Evaluate the variable value directly without expanding it first.  */
+
+      install_variable_buffer (&buf, &len);
+      eval_buffer (v->value);
+      restore_variable_buffer (buf, len);
+    }
+  else /* evalcall2: */
+    {
+      /* Expand the body first and then evaluate the output. */
+
+      v->exp_count = EXP_COUNT_MAX;
+      o = variable_expand_string (o, body, flen+3);
+      v->exp_count = 0;
+
+      install_variable_buffer (&buf, &len);
+      eval_buffer (o);
+      restore_variable_buffer (buf, len);
+    }
+#endif /* CONFIG_WITH_EVALPLUS */
+
   max_args = saved_args;
 
-  v->exp_count = 0;
-
   pop_variable_scope ();
 
-  return o + strlen (o);
+  return o;
 }