26 lines
584 B
C
26 lines
584 B
C
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;
|
|
}
|