static int codegen(int argc, char **argv)
{
set_work_lib();
static struct option long_options[] = {
{0, 0, 0, 0}
};
int c, index = 0;
const char *spec = "";
optind = 1;
while ((c = getopt_long(argc, argv, spec, long_options, &index)) != -1) {
switch (c) {
case 0:
// Set a flag
break;
case '?':
// getopt_long already printed an error message
exit(EXIT_FAILURE);
default:
abort();
}
}
if (optind == argc)
fatal("missing top-level unit name");
ident_t unit_i = to_unit_name(argv[optind]);
tree_t pack = lib_get(lib_work(), unit_i);
if (pack == NULL)
fatal("cannot find unit %s in library %s",
istr(unit_i), istr(lib_name(lib_work())));
if (tree_kind(pack) != T_PACKAGE)
fatal("this command can only be used with packages");
if (pack_needs_cgen(pack))
link_package(pack);
ident_t body_i = ident_prefix(unit_i, ident_new("body"), '-');
tree_t body = lib_get(lib_work(), body_i);
if (body != NULL)
link_package(body);
return EXIT_SUCCESS;
}
static int codegen(int argc, char **argv)
{
static struct option long_options[] = {
{ 0, 0, 0, 0 }
};
const int next_cmd = scan_cmd(2, argc, argv);
int c, index = 0;
const char *spec = "";
while ((c = getopt_long(next_cmd, argv, spec, long_options, &index)) != -1) {
switch (c) {
case 0:
// Set a flag
break;
case '?':
fatal("unrecognised codegen option %s", argv[optind - 1]);
default:
abort();
}
}
set_top_level(argv, next_cmd);
tree_t pack = lib_get(lib_work(), top_level);
if (pack == NULL)
fatal("cannot find unit %s in library %s",
istr(top_level), istr(lib_name(lib_work())));
if (tree_kind(pack) != T_PACKAGE)
fatal("this command can only be used with packages");
if (pack_needs_cgen(pack))
link_package(pack);
ident_t body_i = ident_prefix(top_level, ident_new("body"), '-');
tree_t body = lib_get(lib_work(), body_i);
if (body != NULL)
link_package(body);
argc -= next_cmd - 1;
argv += next_cmd - 1;
return argc > 1 ? process_command(argc, argv) : EXIT_SUCCESS;
}
