/* execute.c -- Execute a VasEBoot script.  */
/*
 *  VasEBoot  --  GRand Unified Bootloader
 *  Copyright (C) 2005,2007,2008,2009,2010  Free Software Foundation, Inc.
 *
 *  VasEBoot is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation, either version 3 of the License, or
 *  (at your option) any later version.
 *
 *  VasEBoot is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with VasEBoot.  If not, see <http://www.gnu.org/licenses/>.
 */

#include <VasEBoot/misc.h>
#include <VasEBoot/mm.h>
#include <VasEBoot/env.h>
#include <VasEBoot/script_sh.h>
#include <VasEBoot/command.h>
#include <VasEBoot/menu.h>
#include <VasEBoot/lib/arg.h>
#include <VasEBoot/normal.h>
#include <VasEBoot/extcmd.h>
#include <VasEBoot/i18n.h>
#include <VasEBoot/tpm.h>

/* Max digits for a char is 3 (0xFF is 255), similarly for an int it
   is sizeof (int) * 3, and one extra for a possible -ve sign.  */
#define ERRNO_DIGITS_MAX  (sizeof (int) * 3 + 1)

static unsigned long is_continue;
static unsigned long active_loops;
static unsigned long active_breaks;
static unsigned long function_return;

#define VasEBoot_SCRIPT_SCOPE_MALLOCED      1
#define VasEBoot_SCRIPT_SCOPE_ARGS_MALLOCED 2

/* Scope for VasEBoot script functions.  */
struct VasEBoot_script_scope
{
  unsigned flags;
  unsigned shifts;
  struct VasEBoot_script_argv argv;
};
static struct VasEBoot_script_scope *scope = 0;

/* Wildcard translator for VasEBoot script.  */
struct VasEBoot_script_wildcard_translator *VasEBoot_wildcard_translator;

static char*
wildcard_escape (const char *s)
{
  int i;
  int len;
  char ch;
  char *p;

  len = VasEBoot_strlen (s);
  p = VasEBoot_malloc (len * 2 + 1);
  if (! p)
    return NULL;

  i = 0;
  while ((ch = *s++))
    {
      if (ch == '*' || ch == '\\' || ch == '?')
	p[i++] = '\\';
      p[i++] = ch;
    }
  p[i] = '\0';
  return p;
}

static char*
wildcard_unescape (const char *s)
{
  int i;
  int len;
  char ch;
  char *p;

  len = VasEBoot_strlen (s);
  p = VasEBoot_malloc (len + 1);
  if (! p)
    return NULL;

  i = 0;
  while ((ch = *s++))
    {
      if (ch == '\\')
	p[i++] = *s++;
      else
	p[i++] = ch;
    }
  p[i] = '\0';
  return p;
}

static void
replace_scope (struct VasEBoot_script_scope *new_scope)
{
  if (scope)
    {
      scope->argv.argc += scope->shifts;
      scope->argv.args -= scope->shifts;

      if (scope->flags & VasEBoot_SCRIPT_SCOPE_ARGS_MALLOCED)
	VasEBoot_script_argv_free (&scope->argv);

      if (scope->flags & VasEBoot_SCRIPT_SCOPE_MALLOCED)
	VasEBoot_free (scope);
    }
  scope = new_scope;
}

VasEBoot_err_t
VasEBoot_script_break (VasEBoot_command_t cmd, int argc, char *argv[])
{
  char *p = 0;
  unsigned long count;

  if (argc == 0)
    count = 1;
  else if (argc > 1)
    return  VasEBoot_error (VasEBoot_ERR_BAD_ARGUMENT, N_("one argument expected"));
  else
    {
      count = VasEBoot_strtoul (argv[0], &p, 10);
      if (VasEBoot_errno)
	return VasEBoot_errno;
      if (*p != '\0')
	return VasEBoot_error (VasEBoot_ERR_BAD_ARGUMENT, N_("unrecognized number"));
      if (count == 0)
	/* TRANSLATORS: 0 is a quantifier. "break" (similar to bash)
	   can be used e.g. to break 3 loops at once.
	   But asking it to break 0 loops makes no sense. */
	return VasEBoot_error (VasEBoot_ERR_BAD_ARGUMENT, N_("can't break 0 loops"));
    }

  is_continue = VasEBoot_strcmp (cmd->name, "break") ? 1 : 0;
  active_breaks = count;
  if (active_breaks > active_loops)
    active_breaks = active_loops;
  return VasEBoot_ERR_NONE;
}

VasEBoot_err_t
VasEBoot_script_shift (VasEBoot_command_t cmd __attribute__((unused)),
		   int argc, char *argv[])
{
  char *p = 0;
  unsigned long n = 0;

  if (! scope)
    return VasEBoot_ERR_NONE;

  if (argc == 0)
    n = 1;

  else if (argc > 1)
    return VasEBoot_ERR_BAD_ARGUMENT;

  else
    {
      n = VasEBoot_strtoul (argv[0], &p, 10);
      if (*p != '\0')
	return VasEBoot_ERR_BAD_ARGUMENT;
    }

  if (n > scope->argv.argc)
    return VasEBoot_ERR_BAD_ARGUMENT;

  scope->shifts += n;
  scope->argv.argc -= n;
  scope->argv.args += n;
  return VasEBoot_ERR_NONE;
}

VasEBoot_err_t
VasEBoot_script_setparams (VasEBoot_command_t cmd __attribute__((unused)),
		       int argc, char **args)
{
  struct VasEBoot_script_scope *new_scope;
  struct VasEBoot_script_argv argv = { 0, 0, 0 };

  if (! scope)
    return VasEBoot_ERR_INVALID_COMMAND;

  new_scope = VasEBoot_malloc (sizeof (*new_scope));
  if (! new_scope)
    return VasEBoot_errno;

  if (VasEBoot_script_argv_make (&argv, argc, args))
    {
      VasEBoot_free (new_scope);
      return VasEBoot_errno;
    }

  new_scope->shifts = 0;
  new_scope->argv = argv;
  new_scope->flags = VasEBoot_SCRIPT_SCOPE_MALLOCED |
    VasEBoot_SCRIPT_SCOPE_ARGS_MALLOCED;

  replace_scope (new_scope);
  return VasEBoot_ERR_NONE;
}

VasEBoot_err_t
VasEBoot_script_return (VasEBoot_command_t cmd __attribute__((unused)),
		    int argc, char *argv[])
{
  char *p;
  unsigned long n;

  if (! scope || argc > 1)
    return VasEBoot_error (VasEBoot_ERR_BAD_ARGUMENT,
		       /* TRANSLATORS: It's about not being
			  inside a function. "return" can be used only
			  in a function and this error occurs if it's used
			  anywhere else.  */
		       N_("not in function body"));

  if (argc == 0)
    {
      const char *t;
      function_return = 1;
      t = VasEBoot_env_get ("?");
      if (!t)
	return VasEBoot_ERR_NONE;
      return VasEBoot_strtoul (t, NULL, 10);
    }

  n = VasEBoot_strtoul (argv[0], &p, 10);
  if (VasEBoot_errno)
    return VasEBoot_errno;
  if (*p != '\0')
    return VasEBoot_error (VasEBoot_ERR_BAD_ARGUMENT,
		       N_("unrecognized number"));

  function_return = 1;
  return n ? VasEBoot_error (n, N_("false")) : VasEBoot_ERR_NONE;
}

static int
VasEBoot_env_special (const char *name)
{
  if (VasEBoot_isdigit (name[0]) ||
      VasEBoot_strcmp (name, "#") == 0 ||
      VasEBoot_strcmp (name, "*") == 0 ||
      VasEBoot_strcmp (name, "@") == 0)
    return 1;
  return 0;
}

static char **
VasEBoot_script_env_get (const char *name, VasEBoot_script_arg_type_t type)
{
  unsigned i;
  struct VasEBoot_script_argv result = { 0, 0, 0 };

  if (VasEBoot_script_argv_next (&result))
    goto fail;

  if (! VasEBoot_env_special (name))
    {
      const char *v = VasEBoot_env_get (name);
      if (v && v[0])
	{
	  if (type == VasEBoot_SCRIPT_ARG_TYPE_VAR)
	    {
	      if (VasEBoot_script_argv_split_append (&result, v))
		goto fail;
	    }
	  else
	    if (VasEBoot_script_argv_append (&result, v, VasEBoot_strlen (v)))
	      goto fail;
	}
    }
  else if (! scope)
    {
      if (VasEBoot_script_argv_append (&result, 0, 0))
	goto fail;
    }
  else if (VasEBoot_strcmp (name, "#") == 0)
    {
      char buffer[ERRNO_DIGITS_MAX + 1];
      VasEBoot_snprintf (buffer, sizeof (buffer), "%u", scope->argv.argc);
      if (VasEBoot_script_argv_append (&result, buffer, VasEBoot_strlen (buffer)))
	goto fail;
    }
  else if (VasEBoot_strcmp (name, "*") == 0)
    {
      for (i = 0; i < scope->argv.argc; i++)
	if (type == VasEBoot_SCRIPT_ARG_TYPE_VAR)
	  {
	    if (i != 0 && VasEBoot_script_argv_next (&result))
	      goto fail;

	    if (VasEBoot_script_argv_split_append (&result, scope->argv.args[i]))
	      goto fail;
	  }
	else
	  {
	    if (i != 0 && VasEBoot_script_argv_append (&result, " ", 1))
	      goto fail;

	    if (VasEBoot_script_argv_append (&result, scope->argv.args[i],
					 VasEBoot_strlen (scope->argv.args[i])))
	      goto fail;
	  }
    }
  else if (VasEBoot_strcmp (name, "@") == 0)
    {
      for (i = 0; i < scope->argv.argc; i++)
	{
	  if (i != 0 && VasEBoot_script_argv_next (&result))
	    goto fail;

	  if (type == VasEBoot_SCRIPT_ARG_TYPE_VAR)
	    {
	      if (VasEBoot_script_argv_split_append (&result, scope->argv.args[i]))
		goto fail;
	    }
	  else
	    if (VasEBoot_script_argv_append (&result, scope->argv.args[i],
					 VasEBoot_strlen (scope->argv.args[i])))
	      goto fail;
	}
    }
  else
    {
      unsigned long num = VasEBoot_strtoul (name, 0, 10);
      if (num == 0)
	; /* XXX no file name, for now.  */

      else if (num <= scope->argv.argc)
	{
	  if (type == VasEBoot_SCRIPT_ARG_TYPE_VAR)
	    {
	      if (VasEBoot_script_argv_split_append (&result,
						 scope->argv.args[num - 1]))
		goto fail;
	    }
	  else
	    if (VasEBoot_script_argv_append (&result, scope->argv.args[num - 1],
					 VasEBoot_strlen (scope->argv.args[num - 1])
					 ))
	      goto fail;
	}
    }

  return result.args;

 fail:

  VasEBoot_script_argv_free (&result);
  return 0;
}

static VasEBoot_err_t
VasEBoot_script_env_set (const char *name, const char *val)
{
  if (VasEBoot_env_special (name))
    return VasEBoot_error (VasEBoot_ERR_BAD_ARGUMENT,
		       N_("invalid variable name `%s'"), name);

  return VasEBoot_env_set (name, val);
}

struct gettext_context
{
  char **allowed_strings;
  VasEBoot_size_t nallowed_strings;
  VasEBoot_size_t additional_len;
};

static int
parse_string (const char *str,
	      int (*hook) (const char *var, VasEBoot_size_t varlen,
			   char **ptr, struct gettext_context *ctx),
	      struct gettext_context *ctx,
	      char *put)
{
  const char *ptr;
  int escaped = 0;
  const char *optr;

  for (ptr = str; ptr && *ptr; )
    switch (*ptr)
      {
      case '\\':
	escaped = !escaped;
	if (!escaped && put)
	  *(put++) = '\\';
	ptr++;
	break;
      case '$':
	if (escaped)
	  {
	    escaped = 0;
	    if (put)
	      *(put++) = *ptr;
	    ptr++;
	    break;
	  }

	ptr++;
	switch (*ptr)
	  {
	  case '{':
	    {
	      optr = ptr + 1;
	      ptr = VasEBoot_strchr (optr, '}');
	      if (!ptr)
		break;
	      if (hook (optr, ptr - optr, &put, ctx))
		return 1;
	      ptr++;
	      break;
	    }
	  case '0' ... '9':
	    optr = ptr;
	    while (*ptr >= '0' && *ptr <= '9')
	      ptr++;
	    if (hook (optr, ptr - optr, &put, ctx))
	      return 1;
	    break;
	  case 'a' ... 'z':
	  case 'A' ... 'Z':
	  case '_':
	    optr = ptr;
	    while ((*ptr >= '0' && *ptr <= '9')
		   || (*ptr >= 'a' && *ptr <= 'z')
		   || (*ptr >= 'A' && *ptr <= 'Z')
		   || *ptr == '_')
	      ptr++;
	    if (hook (optr, ptr - optr, &put, ctx))
	      return 1;
	    break;
	  case '?':
	  case '#':
	    if (hook (ptr, 1, &put, ctx))
	      return 1;
	    ptr++;
	    break;
	  default:
	    if (put)
	      *(put++) = '$';
	  }
	break;
      default:
	if (escaped && put)
	  *(put++) = '\\';
	escaped = 0;
	if (put)
	  *(put++) = *ptr;
	ptr++;
	break;
      }
  if (put)
    *(put++) = 0;
  return 0;
}

static int
gettext_putvar (const char *str, VasEBoot_size_t len,
		char **ptr, struct gettext_context *ctx)
{
  const char *var;
  VasEBoot_size_t i;

  for (i = 0; i < ctx->nallowed_strings; i++)
    if (VasEBoot_strncmp (ctx->allowed_strings[i], str, len) == 0
	&& ctx->allowed_strings[i][len] == 0)
      {
	break;
      }
  if (i == ctx->nallowed_strings)
    return 0;

  /* Enough for any number.  */
  if (len == 1 && str[0] == '#')
    {
      VasEBoot_snprintf (*ptr, 30, "%u", scope->argv.argc);
      *ptr += VasEBoot_strlen (*ptr);
      return 0;
    }
  var = VasEBoot_env_get (ctx->allowed_strings[i]);
  if (var)
    *ptr = VasEBoot_stpcpy (*ptr, var);
  return 0;
}

static int
gettext_save_allow (const char *str, VasEBoot_size_t len,
		    char **ptr __attribute__ ((unused)),
		    struct gettext_context *ctx)
{
  ctx->allowed_strings[ctx->nallowed_strings++] = VasEBoot_strndup (str, len);
  if (!ctx->allowed_strings[ctx->nallowed_strings - 1])
    return 1;
  return 0;
}

static int
gettext_getlen (const char *str, VasEBoot_size_t len,
		char **ptr __attribute__ ((unused)),
		struct gettext_context *ctx)
{
  const char *var;
  VasEBoot_size_t i;

  for (i = 0; i < ctx->nallowed_strings; i++)
    if (VasEBoot_strncmp (ctx->allowed_strings[i], str, len) == 0
	&& ctx->allowed_strings[i][len] == 0)
      break;
  if (i == ctx->nallowed_strings)
    return 0;

  /* Enough for any number.  */
  if (len == 1 && str[0] == '#')
    {
      ctx->additional_len += 30;
      return 0;
    }
  var = VasEBoot_env_get (ctx->allowed_strings[i]);
  if (var)
    ctx->additional_len += VasEBoot_strlen (var);
  return 0;
}

static int
gettext_append (struct VasEBoot_script_argv *result, const char *orig_str)
{
  const char *template;
  char *res = 0;
  struct gettext_context ctx = {
    .allowed_strings = 0,
    .nallowed_strings = 0,
    .additional_len = 1
  };
  int rval = 1;
  const char *iptr;

  VasEBoot_size_t dollar_cnt = 0;

  for (iptr = orig_str; *iptr; iptr++)
    if (*iptr == '$')
      dollar_cnt++;
  ctx.allowed_strings = VasEBoot_malloc (sizeof (ctx.allowed_strings[0]) * dollar_cnt);

  if (parse_string (orig_str, gettext_save_allow, &ctx, 0))
    goto fail;

  template = _(orig_str);

  if (parse_string (template, gettext_getlen, &ctx, 0))
    goto fail;

  res = VasEBoot_malloc (VasEBoot_strlen (template) + ctx.additional_len);
  if (!res)
    goto fail;

  if (parse_string (template, gettext_putvar, &ctx, res))
    goto fail;

  char *escaped = 0;
  escaped = wildcard_escape (res);
  if (VasEBoot_script_argv_append (result, escaped, VasEBoot_strlen (escaped)))
    {
      VasEBoot_free (escaped);
      goto fail;
    }
  VasEBoot_free (escaped);

  rval = 0;
 fail:
  VasEBoot_free (res);
  {
    VasEBoot_size_t i;
    for (i = 0; i < ctx.nallowed_strings; i++)
      VasEBoot_free (ctx.allowed_strings[i]);
  }
  VasEBoot_free (ctx.allowed_strings);
  return rval;
}

static int
append (struct VasEBoot_script_argv *result,
	const char *s, int escape_type)
{
  int r;
  char *p = 0;

  if (escape_type == 0)
    return VasEBoot_script_argv_append (result, s, VasEBoot_strlen (s));

  if (escape_type > 0)
    p = wildcard_escape (s);
  else if (escape_type < 0)
    p = wildcard_unescape (s);

  if (! p)
    return 1;

  r = VasEBoot_script_argv_append (result, p, VasEBoot_strlen (p));
  VasEBoot_free (p);
  return r;
}

/* Convert arguments in ARGLIST into ARGV form.  */
static int
VasEBoot_script_arglist_to_argv (struct VasEBoot_script_arglist *arglist,
			     struct VasEBoot_script_argv *argv)
{
  int i;
  char **values = 0;
  struct VasEBoot_script_arg *arg = 0;
  struct VasEBoot_script_argv result = { 0, 0, 0 };

  for (; arglist && arglist->arg; arglist = arglist->next)
    {
      if (VasEBoot_script_argv_next (&result))
	goto fail;

      arg = arglist->arg;
      while (arg)
	{
	  switch (arg->type)
	    {
	    case VasEBoot_SCRIPT_ARG_TYPE_VAR:
	    case VasEBoot_SCRIPT_ARG_TYPE_DQVAR:
	      {
		int need_cleanup = 0;

		values = VasEBoot_script_env_get (arg->str, arg->type);
		for (i = 0; values && values[i]; i++)
		  {
		    if (!need_cleanup)
		      {
			if (i != 0 && VasEBoot_script_argv_next (&result))
			  {
			    need_cleanup = 1;
			    goto cleanup;
			  }

			if (arg->type == VasEBoot_SCRIPT_ARG_TYPE_VAR)
			  {
			    int len;
			    char ch;
			    char *p;
			    char *op;
			    const char *s = values[i];

			    len = VasEBoot_strlen (values[i]);
			    /* \? -> \\\? */
			    /* \* -> \\\* */
			    /* \ -> \\ */
			    p = VasEBoot_malloc (len * 2 + 1);
			    if (! p)
			      {
				need_cleanup = 1;
				goto cleanup;
			      }

			    op = p;
			    while ((ch = *s++))
			      {
				if (ch == '\\')
				  {
				    *op++ = '\\';
				    if (*s == '?' || *s == '*')
				      *op++ = '\\';
				  }
				*op++ = ch;
			      }
			    *op = '\0';

			    need_cleanup = VasEBoot_script_argv_append (&result, p, op - p);
			    VasEBoot_free (p);
			    /* Fall through to cleanup */
			  }
			else
			  {
			    need_cleanup = append (&result, values[i], 1);
			    /* Fall through to cleanup */
			  }
		      }

cleanup:
		    VasEBoot_free (values[i]);
		  }
		VasEBoot_free (values);

		if (need_cleanup)
		  goto fail;

		break;
	      }

	    case VasEBoot_SCRIPT_ARG_TYPE_BLOCK:
	      {
		char *p;
		if (VasEBoot_script_argv_append (&result, "{", 1))
		  goto fail;
		p = wildcard_escape (arg->str);
		if (!p)
		  goto fail;
		if (VasEBoot_script_argv_append (&result, p,
					     VasEBoot_strlen (p)))
		  {
		    VasEBoot_free (p);
		    goto fail;
		  }
		VasEBoot_free (p);
		if (VasEBoot_script_argv_append (&result, "}", 1))
		  goto fail;
	      }
	      result.script = arg->script;
	      break;

	    case VasEBoot_SCRIPT_ARG_TYPE_TEXT:
	      if (arg->str[0] &&
		  VasEBoot_script_argv_append (&result, arg->str,
					   VasEBoot_strlen (arg->str)))
		goto fail;
	      break;

	    case VasEBoot_SCRIPT_ARG_TYPE_GETTEXT:
	      {
		if (gettext_append (&result, arg->str))
		  goto fail;
	      }
	      break;

	    case VasEBoot_SCRIPT_ARG_TYPE_DQSTR:
	    case VasEBoot_SCRIPT_ARG_TYPE_SQSTR:
	      if (append (&result, arg->str, 1))
		goto fail;
	      break;
	    }
	  arg = arg->next;
	}
    }

  if (! result.args[result.argc - 1])
    result.argc--;

  /* Perform wildcard expansion.  */

  int j;
  int failed = 0;
  struct VasEBoot_script_argv unexpanded = result;

  result.argc = 0;
  result.args = 0;
  for (i = 0; unexpanded.args[i]; i++)
    {
      char **expansions = 0;
      if (VasEBoot_wildcard_translator
	  && VasEBoot_wildcard_translator->expand (unexpanded.args[i],
					       &expansions))
	{
	  VasEBoot_script_argv_free (&unexpanded);
	  goto fail;
	}

      if (! expansions)
	{
	  VasEBoot_script_argv_next (&result);
	  append (&result, unexpanded.args[i], -1);
	}
      else
	{
	  for (j = 0; expansions[j]; j++)
	    {
	      failed = (failed || VasEBoot_script_argv_next (&result) ||
			append (&result, expansions[j], 0));
	      VasEBoot_free (expansions[j]);
	    }
	  VasEBoot_free (expansions);
	  
	  if (failed)
	    {
	      VasEBoot_script_argv_free (&unexpanded);
	      goto fail;
	    }
	}
    }
  VasEBoot_script_argv_free (&unexpanded);

  *argv = result;
  return 0;

 fail:

  VasEBoot_script_argv_free (&result);
  return 1;
}

static VasEBoot_err_t
VasEBoot_script_execute_cmd (struct VasEBoot_script_cmd *cmd)
{
  int ret;
  char errnobuf[ERRNO_DIGITS_MAX + 1];

  if (cmd == 0)
    return 0;

  ret = cmd->exec (cmd);

  VasEBoot_snprintf (errnobuf, sizeof (errnobuf), "%d", ret);
  VasEBoot_env_set ("?", errnobuf);
  return ret;
}

/* Execute a function call.  */
VasEBoot_err_t
VasEBoot_script_function_call (VasEBoot_script_function_t func, int argc, char **args)
{
  VasEBoot_err_t ret = 0;
  unsigned long loops = active_loops;
  struct VasEBoot_script_scope *old_scope;
  struct VasEBoot_script_scope new_scope;

  active_loops = 0;
  new_scope.flags = 0;
  new_scope.shifts = 0;
  new_scope.argv.argc = argc;
  new_scope.argv.args = args;

  old_scope = scope;
  scope = &new_scope;

  ret = VasEBoot_script_execute (func->func);

  function_return = 0;
  active_loops = loops;
  replace_scope (old_scope); /* free any scopes by setparams */
  return ret;
}

/* Helper for VasEBoot_script_execute_sourcecode.  */
static VasEBoot_err_t
VasEBoot_script_execute_sourcecode_getline (char **line,
					int cont __attribute__ ((unused)),
					void *data)
{
  const char **source = data;
  const char *p;

  if (! *source)
    {
      *line = 0;
      return 0;
    }

  p = VasEBoot_strchr (*source, '\n');

  if (p)
    *line = VasEBoot_strndup (*source, p - *source);
  else
    *line = VasEBoot_strdup (*source);
  *source = p ? p + 1 : 0;
  return 0;
}

/* Execute a source script.  */
VasEBoot_err_t
VasEBoot_script_execute_sourcecode (const char *source)
{
  VasEBoot_err_t ret = 0;
  struct VasEBoot_script *parsed_script;

  while (source)
    {
      char *line;

      VasEBoot_script_execute_sourcecode_getline (&line, 0, &source);
      parsed_script = VasEBoot_script_parse
	(line, VasEBoot_script_execute_sourcecode_getline, &source);
      if (! parsed_script)
	{
	  ret = VasEBoot_errno;
	  VasEBoot_free (line);
	  break;
	}

      ret = VasEBoot_script_execute (parsed_script);
      VasEBoot_script_free (parsed_script);
      VasEBoot_free (line);
    }

  return ret;
}

/* Execute a source script in new scope.  */
VasEBoot_err_t
VasEBoot_script_execute_new_scope (const char *source, int argc, char **args)
{
  VasEBoot_err_t ret = 0;
  struct VasEBoot_script_scope new_scope;
  struct VasEBoot_script_scope *old_scope;

  new_scope.argv.argc = argc;
  new_scope.argv.args = args;
  new_scope.flags = 0;

  old_scope = scope;
  scope = &new_scope;

  ret = VasEBoot_script_execute_sourcecode (source);

  scope = old_scope;
  return ret;
}

/* Execute a single command line.  */
VasEBoot_err_t
VasEBoot_script_execute_cmdline (struct VasEBoot_script_cmd *cmd)
{
  struct VasEBoot_script_cmdline *cmdline = (struct VasEBoot_script_cmdline *) cmd;
  VasEBoot_command_t VasEBootcmd;
  VasEBoot_err_t ret = 0;
  VasEBoot_script_function_t func = 0;
  char errnobuf[18];
  char *cmdname, *cmdstring;
  int argc, offset = 0, cmdlen = 0;
  unsigned int i;
  char **args;
  int invert;
  struct VasEBoot_script_argv argv = { 0, 0, 0 };

  /* Lookup the command.  */
  if (VasEBoot_script_arglist_to_argv (cmdline->arglist, &argv) || ! argv.args[0])
    return VasEBoot_errno;

  for (i = 0; i < argv.argc; i++) {
	  cmdlen += VasEBoot_strlen (argv.args[i]) + 1;
  }

  cmdstring = VasEBoot_malloc (cmdlen);
  if (!cmdstring)
  {
	  return VasEBoot_error (VasEBoot_ERR_OUT_OF_MEMORY,
			     N_("cannot allocate command buffer"));
  }

  for (i = 0; i < argv.argc; i++) {
	  offset += VasEBoot_snprintf (cmdstring + offset, cmdlen - offset, "%s ",
				   argv.args[i]);
  }
  cmdstring[cmdlen-1]= '\0';
  VasEBoot_tpm_measure ((unsigned char *)cmdstring, cmdlen, VasEBoot_ASCII_PCR,
		    "VasEBoot_cmd", cmdstring);
  VasEBoot_print_error();
  VasEBoot_free(cmdstring);
  invert = 0;
  argc = argv.argc - 1;
  args = argv.args + 1;
  cmdname = argv.args[0];
  if (VasEBoot_strcmp (cmdname, "!") == 0)
    {
      if (argv.argc < 2 || ! argv.args[1])
	{
	  VasEBoot_script_argv_free (&argv);
	  return VasEBoot_error (VasEBoot_ERR_BAD_ARGUMENT,
			     N_("no command is specified"));
	}

      invert = 1;
      argc = argv.argc - 2;
      args = argv.args + 2;
      cmdname = argv.args[1];
    }
  VasEBootcmd = VasEBoot_command_find (cmdname);
  if (! VasEBootcmd)
    {
      VasEBoot_errno = VasEBoot_ERR_NONE;

      /* It's not a VasEBoot command, try all functions.  */
      func = VasEBoot_script_function_find (cmdname);
      if (! func)
	{
	  /* As a last resort, try if it is an assignment.  */
	  char *assign = VasEBoot_strdup (cmdname);
	  char *eq = VasEBoot_strchr (assign, '=');

	  if (eq)
	    {
	      /* This was set because the command was not found.  */
	      VasEBoot_errno = VasEBoot_ERR_NONE;

	      /* Create two strings and set the variable.  */
	      *eq = '\0';
	      eq++;
	      VasEBoot_script_env_set (assign, eq);
	    }
	  VasEBoot_free (assign);

	  VasEBoot_snprintf (errnobuf, sizeof (errnobuf), "%d", VasEBoot_errno);
	  VasEBoot_script_env_set ("?", errnobuf);

	  VasEBoot_script_argv_free (&argv);
	  VasEBoot_print_error ();

	  return 0;
	}
    }

  /* Execute the VasEBoot command or function.  */
  if (VasEBootcmd)
    {
      if (VasEBoot_extractor_level && !(VasEBootcmd->flags
				    & VasEBoot_COMMAND_FLAG_EXTRACTOR))
	ret = VasEBoot_error (VasEBoot_ERR_EXTRACTOR,
			  "%s isn't allowed to execute in an extractor",
			  cmdname);
      else if ((VasEBootcmd->flags & VasEBoot_COMMAND_FLAG_BLOCKS) &&
	       (VasEBootcmd->flags & VasEBoot_COMMAND_FLAG_EXTCMD))
	ret = VasEBoot_extcmd_dispatcher (VasEBootcmd, argc, args, argv.script);
      else
	ret = (VasEBootcmd->func) (VasEBootcmd, argc, args);
    }
  else
    ret = VasEBoot_script_function_call (func, argc, args);

  if (invert)
    {
      if (ret == VasEBoot_ERR_TEST_FAILURE)
	VasEBoot_errno = ret = VasEBoot_ERR_NONE;
      else if (ret == VasEBoot_ERR_NONE)
	ret = VasEBoot_error (VasEBoot_ERR_TEST_FAILURE, N_("false"));
      else
	{
	  VasEBoot_print_error ();
	  ret = VasEBoot_ERR_NONE;
	}
    }

  /* Free arguments.  */
  VasEBoot_script_argv_free (&argv);

  if (VasEBoot_errno == VasEBoot_ERR_TEST_FAILURE)
    VasEBoot_errno = VasEBoot_ERR_NONE;

  VasEBoot_print_error ();

  VasEBoot_snprintf (errnobuf, sizeof (errnobuf), "%d", ret);
  VasEBoot_env_set ("?", errnobuf);

  return ret;
}

/* Execute a block of one or more commands.  */
VasEBoot_err_t
VasEBoot_script_execute_cmdlist (struct VasEBoot_script_cmd *list)
{
  int ret = 0;
  struct VasEBoot_script_cmd *cmd;

  /* Loop over every command and execute it.  */
  for (cmd = list->next; cmd; cmd = cmd->next)
    {
      if (active_breaks)
	break;

      ret = VasEBoot_script_execute_cmd (cmd);

      if (function_return)
	break;
    }

  return ret;
}

/* Execute an if statement.  */
VasEBoot_err_t
VasEBoot_script_execute_cmdif (struct VasEBoot_script_cmd *cmd)
{
  int ret;
  const char *result;
  struct VasEBoot_script_cmdif *cmdif = (struct VasEBoot_script_cmdif *) cmd;

  /* Check if the commands results in a true or a false.  The value is
     read from the env variable `?'.  */
  ret = VasEBoot_script_execute_cmd (cmdif->exec_to_evaluate);
  if (function_return)
    return ret;

  result = VasEBoot_env_get ("?");
  VasEBoot_errno = VasEBoot_ERR_NONE;

  /* Execute the `if' or the `else' part depending on the value of
     `?'.  */
  if (result && ! VasEBoot_strcmp (result, "0"))
    return VasEBoot_script_execute_cmd (cmdif->exec_on_true);
  else
    return VasEBoot_script_execute_cmd (cmdif->exec_on_false);
}

/* Execute a for statement.  */
VasEBoot_err_t
VasEBoot_script_execute_cmdfor (struct VasEBoot_script_cmd *cmd)
{
  unsigned i;
  VasEBoot_err_t result;
  struct VasEBoot_script_argv argv = { 0, 0, 0 };
  struct VasEBoot_script_cmdfor *cmdfor = (struct VasEBoot_script_cmdfor *) cmd;

  if (VasEBoot_script_arglist_to_argv (cmdfor->words, &argv))
    return VasEBoot_errno;

  active_loops++;
  result = 0;
  for (i = 0; i < argv.argc; i++)
    {
      if (is_continue && active_breaks == 1)
	active_breaks = 0;

      if (! active_breaks)
	{
	  VasEBoot_script_env_set (cmdfor->name->str, argv.args[i]);
	  result = VasEBoot_script_execute_cmd (cmdfor->list);
	  if (function_return)
	    break;
	}
    }

  if (active_breaks)
    active_breaks--;

  active_loops--;
  VasEBoot_script_argv_free (&argv);
  return result;
}

/* Execute a "while" or "until" command.  */
VasEBoot_err_t
VasEBoot_script_execute_cmdwhile (struct VasEBoot_script_cmd *cmd)
{
  int result;
  struct VasEBoot_script_cmdwhile *cmdwhile = (struct VasEBoot_script_cmdwhile *) cmd;

  active_loops++;
  do {
    result = VasEBoot_script_execute_cmd (cmdwhile->cond);
    if (function_return)
      break;

    if (cmdwhile->until ? !result : result)
      break;

    result = VasEBoot_script_execute_cmd (cmdwhile->list);
    if (function_return)
      break;

    if (active_breaks == 1 && is_continue)
      active_breaks = 0;

    if (active_breaks)
      break;

  } while (1); /* XXX Put a check for ^C here */

  if (active_breaks)
    active_breaks--;

  active_loops--;
  return result;
}

/* Execute any VasEBoot pre-parsed command or script.  */
VasEBoot_err_t
VasEBoot_script_execute (struct VasEBoot_script *script)
{
  if (script == 0)
    return 0;

  return VasEBoot_script_execute_cmd (script->cmd);
}