3a1
@verb #14:"set_eval_env _set_eval_env" this none this rxo #55
@program #14:"set_eval_env _set_eval_env" this none this
"Copied from Generic Programming student&&Etudiant d'informatique generique (#3924):set_eval_env by Sleeping_Beauty (#2) Sat Jul  1 06:26:36 1995 EDT"
"set_eval_env(string);"
"Run <string> through eval.  If it doesn't compile, return E_INVARG.  If it crashes, well, it crashes.  If it works okay, set .eval_env to it and set .eval_ticks to the amount of time it took."
set_task_perms(caller_perms())
program = args[1]
value = $code_utils:eval_d("ticks = ticks_left();" + program + ";return ticks - ticks_left() - 2;")
if (!value[1])
  return E_INVARG
elseif (typeof(value[2]) == $ERR)
  return value[2]
endif
ok = this.eval_env = program
this.eval_ticks = value[2]
if (typeof(ok) == $ERR)
  return ok
else
  return 1
endif
"Last modified by Dax (#789) on Tue May  3 13:45:56 2005 MDT."
.

0