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

Recompile files older than the compiler's executable

Browse Source
This commit is contained in:
Bruce Hill 2025-03-21 21:30:37 -04:00
parent eaa0fe4266
commit 9acea1807f
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tomo.c
View File

@ -31,6 +31,8 @@
#define run_cmd(...) ({ const char *_cmd = heap_strf(__VA_ARGS__); if (verbose) printf("\033[34;1m%s\033[m\n", _cmd); popen(_cmd, "w"); }) #define run_cmd(...) ({ const char *_cmd = heap_strf(__VA_ARGS__); if (verbose) printf("\033[34;1m%s\033[m\n", _cmd); popen(_cmd, "w"); })
#define array_str(arr) Text$as_c_string(Text$join(Text(" "), arr)) #define array_str(arr) Text$as_c_string(Text$join(Text(" "), arr))
static struct stat compiler_stat;
static const char *paths_str(Array_t paths) { static const char *paths_str(Array_t paths) {
Text_t result = EMPTY_TEXT; Text_t result = EMPTY_TEXT;
for (int64_t i = 0; i < paths.length; i++) { for (int64_t i = 0; i < paths.length; i++) {
@ -83,6 +85,11 @@ typedef struct {
#pragma GCC diagnostic ignored "-Wstack-protector" #pragma GCC diagnostic ignored "-Wstack-protector"
int main(int argc, char *argv[]) int main(int argc, char *argv[])
{ {
// Get the file modification time of the compiler, so we
// can recompile files after changing the compiler:
if (stat(argv[0], &compiler_stat) != 0)
err(1, "Could not find age of compiler");
if (register_printf_specifier('T', printf_type, printf_pointer_size)) if (register_printf_specifier('T', printf_type, printf_pointer_size))
errx(1, "Couldn't set printf specifier"); errx(1, "Couldn't set printf specifier");
if (register_printf_specifier('W', printf_ast, printf_pointer_size)) if (register_printf_specifier('W', printf_ast, printf_pointer_size))
@ -583,6 +590,11 @@ bool is_stale(Path_t path, Path_t relative_to)
struct stat target_stat; struct stat target_stat;
if (stat(Path$as_c_string(path), &target_stat) != 0) if (stat(Path$as_c_string(path), &target_stat) != 0)
return true; return true;
// Any file older than the compiler is stale:
if (target_stat.st_mtime < compiler_stat.st_mtime)
return true;
struct stat relative_to_stat; struct stat relative_to_stat;
if (stat(Path$as_c_string(relative_to), &relative_to_stat) != 0) if (stat(Path$as_c_string(relative_to), &relative_to_stat) != 0)
errx(1, "File doesn't exist: %s", Path$as_c_string(relative_to)); errx(1, "File doesn't exist: %s", Path$as_c_string(relative_to));