fluffos/testsuite/command/codefor.lpc
Yucong Sun 592dfc0688 Prefer .lpc source extension; rename testsuite to .lpc
Source resolution is now explicit-extension-exact: load_object("/foo.c")
probes only foo.c, never foo.lpc (and vice versa); extension-less names
prefer .lpc and fall back to .c. Object identity stays extension-blind:
object names carry no extension, any spelling finds a loaded object, and
the registry is consulted before the filesystem. The caller's raw
spelling now flows through find_object()/inherit/master/simul_efun loads
instead of being pre-stripped away.

- filename_to_obname and otable basename() strip .lpc too (children())
- save_object() strips either source extension before appending .o
- replace_program()/function_exists() handle both suffixes
- testsuite: all LPC sources renamed to .lpc; runner globs, master
  get_include_path cases, and program-name assertions updated;
  README.md rewritten with the extension rules and suite conventions
- new single/tests/efuns/dual_extension.lpc pins exact-pick, fallback,
  no-crossover, identity, and registry-before-filesystem with .c/.lpc
  fixture pairs in /clone

Verified: ctest 297/297 and driver-autotest x3 (ASan Debug) plus
RelWithDebInfo ctest + autotest.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
2026-07-09 20:48:48 -04:00

25 lines
584 B
Text

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;
}