int
main(string a)
{
object ret;
mixed code;
if (file_size("/tmp_eval_file.c") != -1)
rm ("/tmp_eval_file.c");
if (find_object("/tmp_eval_file"))
destruct(find_object("/tmp_eval_file"));
write_file("/tmp_eval_file.c", "mixed eval() { " + a + "; }\n");
ret = load_object("/tmp_eval_file");
dump_prog(ret, 1, "/CODE_TMP_FILE");
code = read_file( "/CODE_TMP_FILE");
rm("/CODE_TMP_FILE");
rm("/tmp_eval_file.c");
code = explode(code, ";;; *** Disassembly ***\n");
code = code[1];
write(code[0..strlen(code)-1]);
return 1;
}
