Bruce/tomo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Activity

Limited support for tomo -s to compile shared objects

Browse Source
This commit is contained in:
Bruce Hill 2024-05-27 17:25:13 -04:00
parent f11b46d660
commit c35e5a84b9
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tomo.c
View File

@ -18,14 +18,14 @@
#include "typecheck.h" #include "typecheck.h"
#include "types.h" #include "types.h"
typedef enum { MODE_TRANSPILE = 0, MODE_COMPILE_OBJ = 1, MODE_COMPILE_EXE = 2, MODE_RUN = 3 } mode_e; typedef enum { MODE_TRANSPILE = 0, MODE_COMPILE_OBJ = 1, MODE_COMPILE_SHARED_OBJ = 2, MODE_COMPILE_EXE = 3, MODE_RUN = 4 } mode_e;
static bool verbose = false; static bool verbose = false;
static const char *autofmt, *cconfig, *cflags, *objfiles, *ldlibs, *ldflags, *cc; static const char *autofmt, *cconfig, *cflags, *objfiles, *ldlibs, *ldflags, *cc;
static array_t get_file_dependencies(const char *filename); static array_t get_file_dependencies(const char *filename);
static int transpile(const char *filename, bool force_retranspile, module_code_t *module_code); static int transpile(const char *filename, bool force_retranspile, module_code_t *module_code);
static int compile_object_file(const char *filename, bool force_recompile); static int compile_object_file(const char *filename, bool force_recompile, bool shared);
static int compile_executable(const char *filename, const char *object_files, module_code_t *module_code); static int compile_executable(const char *filename, const char *object_files, module_code_t *module_code);
int main(int argc, char *argv[]) int main(int argc, char *argv[])
@ -38,6 +38,8 @@ int main(int argc, char *argv[])
mode = MODE_TRANSPILE; mode = MODE_TRANSPILE;
} else if (streq(argv[i], "-c")) { } else if (streq(argv[i], "-c")) {
mode = MODE_COMPILE_OBJ; mode = MODE_COMPILE_OBJ;
} else if (streq(argv[i], "-s")) {
mode = MODE_COMPILE_SHARED_OBJ;
} else if (streq(argv[i], "-r")) { } else if (streq(argv[i], "-r")) {
mode = MODE_RUN; mode = MODE_RUN;
} else if (streq(argv[i], "-e")) { } else if (streq(argv[i], "-e")) {
@ -115,12 +117,12 @@ int main(int argc, char *argv[])
CORD object_files_cord = CORD_EMPTY; CORD object_files_cord = CORD_EMPTY;
for (int64_t i = 0; i < file_deps.length; i++) { for (int64_t i = 0; i < file_deps.length; i++) {
const char *dep = *(char**)(file_deps.data + i*file_deps.stride); const char *dep = *(char**)(file_deps.data + i*file_deps.stride);
int compile_status = compile_object_file(dep, false); int compile_status = compile_object_file(dep, false, mode == MODE_COMPILE_SHARED_OBJ && streq(dep, resolve_path(filename, ".", ".")));
if (compile_status != 0) return compile_status; if (compile_status != 0) return compile_status;
object_files_cord = object_files_cord ? CORD_all(object_files_cord, " ", dep, ".o") : CORD_cat(dep, ".o"); object_files_cord = object_files_cord ? CORD_all(object_files_cord, " ", dep, ".o") : CORD_cat(dep, ".o");
} }
if (mode == MODE_COMPILE_OBJ) if (mode == MODE_COMPILE_OBJ || mode == MODE_COMPILE_SHARED_OBJ)
return 0; return 0;
const char *object_files = CORD_to_const_char_star(object_files_cord); const char *object_files = CORD_to_const_char_star(object_files_cord);
@ -296,21 +298,26 @@ int transpile(const char *filename, bool force_retranspile, module_code_t *modul
return 0; return 0;
} }
int compile_object_file(const char *filename, bool force_recompile) int compile_object_file(const char *filename, bool force_recompile, bool shared)
{ {
const char *obj_file = heap_strf("%s.o", filename); const char *obj_file = heap_strf("%s.o", filename);
if (!force_recompile && !stale(obj_file, filename) if (!force_recompile && !stale(obj_file, filename)
&& !stale(obj_file, heap_strf("%s.c", filename)) && !stale(obj_file, heap_strf("%s.h", filename))) { && !stale(obj_file, heap_strf("%s.c", filename)) && !stale(obj_file, heap_strf("%s.h", filename))) {
return 0; return 0;
} }
const char *cmd = heap_strf("%s %s -c %s.c -o %s.o", cc, cflags, filename, filename); const char *base = strrchr(filename, '/')+1;
base = heap_strn(base, strlen(base) - strlen(".tm"));
const char *outfile = shared ? heap_strf("lib%s.so", base) : heap_strf("%s.o", filename);
const char *cmd = shared ?
heap_strf("%s %s %s %s %s -Wl,-soname,lib%s.so -shared %s.c -o %s", cc, cflags, ldflags, ldlibs, objfiles, base, filename, outfile)
: heap_strf("%s %s -c %s.c -o %s", cc, cflags, filename, outfile);
if (verbose) if (verbose)
printf("Running: %s\n", cmd); printf("Running: %s\n", cmd);
FILE *prog = popen(cmd, "w"); FILE *prog = popen(cmd, "w");
int status = pclose(prog); int status = pclose(prog);
if (WIFEXITED(status) && WEXITSTATUS(status) == 0) { if (WIFEXITED(status) && WEXITSTATUS(status) == 0) {
if (verbose) if (verbose)
printf("Compiled to %s.o\n", filename); printf("Compiled to %s\n", outfile);
} }
return WIFEXITED(status) ? WEXITSTATUS(status) : EXIT_FAILURE; return WIFEXITED(status) ? WEXITSTATUS(status) : EXIT_FAILURE;
} }