diff options
| -rw-r--r-- | default.do | 4 | ||||
| -rw-r--r-- | index.html.st | 2 | ||||
| -rw-r--r-- | redo.c | 994 |
3 files changed, 5 insertions, 995 deletions
@@ -1,2 +1,6 @@ +if [[ $$2 =~ \.st$ ]] +then + exit 0 +fi deps=$( { shelter.sh $2.st >$2; } 3>&1) redo-ifchange ${deps} diff --git a/index.html.st b/index.html.st index a0fb7e1..a390332 100644 --- a/index.html.st +++ b/index.html.st @@ -1,5 +1,5 @@ $( { title="Welcome" - content="Hello, World!" + content="Hello, World." shelter.sh main.st } ) @@ -1,994 +0,0 @@ -/* An implementation of the redo build system - in portable C with zero dependencies - - http://cr.yp.to/redo.html - https://jdebp.eu./FGA/introduction-to-redo.html - https://github.com/apenwarr/redo/blob/master/README.md - http://news.dieweltistgarnichtso.net/bin/redo-sh.html - - To the extent possible under law, - Leah Neukirchen <leah@vuxu.org> - has waived all copyright and related or neighboring rights to this work. - - http://creativecommons.org/publicdomain/zero/1.0/ -*/ - -/* -##% cc -g -Os -Wall -Wextra -Wwrite-strings -o $STEM $FILE -*/ - -/* -current bugs: - dependency-loop: unlimited recursion - need locks - -todo: - test job server properly -*/ - -#include <sys/param.h> -#include <sys/stat.h> -#include <sys/types.h> -#include <sys/wait.h> - -#include <errno.h> -#include <fcntl.h> -#include <inttypes.h> -#include <stdarg.h> -#include <stdint.h> -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include <unistd.h> - -// --------------------------------------------------------------------------- -// from musl/src/crypt/crypt_sha256.c - -/* public domain sha256 implementation based on fips180-3 */ - -struct sha256 { - uint64_t len; /* processed message length */ - uint32_t h[8]; /* hash state */ - uint8_t buf[64]; /* message block buffer */ -}; - -static uint32_t ror(uint32_t n, int k) { return (n >> k) | (n << (32-k)); } -#define Ch(x,y,z) (z ^ (x & (y ^ z))) -#define Maj(x,y,z) ((x & y) | (z & (x | y))) -#define S0(x) (ror(x,2) ^ ror(x,13) ^ ror(x,22)) -#define S1(x) (ror(x,6) ^ ror(x,11) ^ ror(x,25)) -#define R0(x) (ror(x,7) ^ ror(x,18) ^ (x>>3)) -#define R1(x) (ror(x,17) ^ ror(x,19) ^ (x>>10)) - -static const uint32_t K[64] = { -0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5, 0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5, -0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3, 0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174, -0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc, 0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da, -0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7, 0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967, -0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13, 0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85, -0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3, 0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070, -0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5, 0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3, -0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208, 0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2 -}; - -static void processblock(struct sha256 *s, const uint8_t *buf) -{ - uint32_t W[64], t1, t2, a, b, c, d, e, f, g, h; - int i; - - for (i = 0; i < 16; i++) { - W[i] = (uint32_t)buf[4*i]<<24; - W[i] |= (uint32_t)buf[4*i+1]<<16; - W[i] |= (uint32_t)buf[4*i+2]<<8; - W[i] |= buf[4*i+3]; - } - for (; i < 64; i++) - W[i] = R1(W[i-2]) + W[i-7] + R0(W[i-15]) + W[i-16]; - a = s->h[0]; - b = s->h[1]; - c = s->h[2]; - d = s->h[3]; - e = s->h[4]; - f = s->h[5]; - g = s->h[6]; - h = s->h[7]; - for (i = 0; i < 64; i++) { - t1 = h + S1(e) + Ch(e, f, g) + K[i] + W[i]; - t2 = S0(a) + Maj(a, b, c); - h = g; - g = f; - f = e; - e = d + t1; - d = c; - c = b; - b = a; - a = t1 + t2; - } - s->h[0] += a; - s->h[1] += b; - s->h[2] += c; - s->h[3] += d; - s->h[4] += e; - s->h[5] += f; - s->h[6] += g; - s->h[7] += h; -} - -static void pad(struct sha256 *s) -{ - unsigned r = s->len % 64; - - s->buf[r++] = 0x80; - if (r > 56) { - memset(s->buf + r, 0, 64 - r); - r = 0; - processblock(s, s->buf); - } - memset(s->buf + r, 0, 56 - r); - s->len *= 8; - s->buf[56] = s->len >> 56; - s->buf[57] = s->len >> 48; - s->buf[58] = s->len >> 40; - s->buf[59] = s->len >> 32; - s->buf[60] = s->len >> 24; - s->buf[61] = s->len >> 16; - s->buf[62] = s->len >> 8; - s->buf[63] = s->len; - processblock(s, s->buf); -} - -static void sha256_init(struct sha256 *s) -{ - s->len = 0; - s->h[0] = 0x6a09e667; - s->h[1] = 0xbb67ae85; - s->h[2] = 0x3c6ef372; - s->h[3] = 0xa54ff53a; - s->h[4] = 0x510e527f; - s->h[5] = 0x9b05688c; - s->h[6] = 0x1f83d9ab; - s->h[7] = 0x5be0cd19; -} - -static void sha256_sum(struct sha256 *s, uint8_t *md) -{ - int i; - - pad(s); - for (i = 0; i < 8; i++) { - md[4*i] = s->h[i] >> 24; - md[4*i+1] = s->h[i] >> 16; - md[4*i+2] = s->h[i] >> 8; - md[4*i+3] = s->h[i]; - } -} - -static void sha256_update(struct sha256 *s, const void *m, unsigned long len) -{ - const uint8_t *p = m; - unsigned r = s->len % 64; - - s->len += len; - if (r) { - if (len < 64 - r) { - memcpy(s->buf + r, p, len); - return; - } - memcpy(s->buf + r, p, 64 - r); - len -= 64 - r; - p += 64 - r; - processblock(s, s->buf); - } - for (; len >= 64; len -= 64, p += 64) - processblock(s, p); - memcpy(s->buf, p, len); -} - -// ---------------------------------------------------------------------- - -int dir_fd = -1; -int dep_fd = -1; -int poolwr_fd = -1; -int poolrd_fd = -1; -int level = -1; -int implicit_jobs = 1; -int kflag, jflag, xflag, fflag, sflag; - -static void -redo_ifcreate(int fd, char *target) -{ - dprintf(fd, "-%s\n", target); -} - -static char * -check_dofile(const char *fmt, ...) -{ - static char dofile[PATH_MAX]; - - va_list ap; - va_start(ap, fmt); - vsnprintf(dofile, sizeof dofile, fmt, ap); - va_end(ap); - - if (access(dofile, F_OK) == 0) { - return dofile; - } else { - redo_ifcreate(dep_fd, dofile); - return 0; - } -} - -/* -dir/base.a.b - will look for dir/base.a.b.do, - dir/default.a.b.do, dir/default.b.do, dir/default.do, - default.a.b.do, default.b.do, and default.do. - -this function assumes no / in target -*/ -static char * -find_dofile(char *target) -{ - char updir[PATH_MAX]; - char *u = updir; - char *dofile, *s; - struct stat st, ost; - - dofile = check_dofile("./%s.do", target); - if (dofile) - return dofile; - - *u++ = '.'; - *u++ = '/'; - *u = 0; - - st.st_dev = ost.st_dev = st.st_ino = ost.st_ino = 0; - - while (1) { - ost = st; - - if (stat(updir, &st) < 0) - return 0; - if (ost.st_dev == st.st_dev && ost.st_ino == st.st_ino) - break; // reached root dir, .. = . - - s = target; - while (*s) { - if (*s++ == '.') { - dofile = check_dofile("%sdefault.%s.do", updir, s); - if (dofile) - return dofile; - } - } - - dofile = check_dofile("%sdefault.do", updir); - if (dofile) - return dofile; - - *u++ = '.'; - *u++ = '.'; - *u++ = '/'; - *u = 0; - } - - return 0; -} - -static int -envfd(const char *name) -{ - long fd; - - char *s = getenv(name); - if (!s) - return -1; - - fd = strtol(s, 0, 10); - if (fd < 0 || fd > 255) - fd = -1; - - return fd; -} - -static void -setenvfd(const char *name, int i) -{ - char buf[16]; - snprintf(buf, sizeof buf, "%d", i); - setenv(name, buf, 1); -} - -static char * -hashfile(int fd) -{ - static char hex[16] = "0123456789abcdef"; - static char asciihash[65]; - - struct sha256 ctx; - off_t off = 0; - char buf[4096]; - char *a; - unsigned char hash[32]; - int i; - ssize_t r; - - sha256_init(&ctx); - - while ((r = pread(fd, buf, sizeof buf, off)) > 0) { - sha256_update(&ctx, buf, r); - off += r; - } - - sha256_sum(&ctx, hash); - - for (i = 0, a = asciihash; i < 32; i++) { - *a++ = hex[hash[i] / 16]; - *a++ = hex[hash[i] % 16]; - } - *a = 0; - - return asciihash; -} - -static char * -datefile(int fd) -{ - static char hexdate[17]; - struct stat st; - - fstat(fd, &st); - snprintf(hexdate, sizeof hexdate, "%016" PRIx64, st.st_ctime); - - return hexdate; -} - -static int -keepdir() -{ - int fd = open(".", O_RDONLY | O_DIRECTORY | O_CLOEXEC); - if (fd < 0) { - perror("dir open"); - exit(-1); - } - return fd; -} - -static char * -targetchdir(char *target) -{ - char *base = strrchr(target, '/'); - if (base) { - int fd; - *base = 0; - fd = openat(dir_fd, target, O_RDONLY | O_DIRECTORY); - if (fd < 0) { - perror("openat dir"); - exit(111); - } - *base = '/'; - if (fchdir(fd) < 0) { - perror("chdir"); - exit(111); - } - close(fd); - return base+1; - } else { - fchdir(dir_fd); - return target; - } -} - -static char * -targetdep(char *target) -{ - static char buf[PATH_MAX]; - snprintf(buf, sizeof buf, ".dep.%s", target); - return buf; -} - -static char * -targetlock(char *target) -{ - static char buf[PATH_MAX]; - snprintf(buf, sizeof buf, ".lock.%s", target); - return buf; -} - -static int -sourcefile(char *target) -{ - target = targetchdir(target); - return access(target, F_OK) == 0 && access(targetdep(target), F_OK) != 0; -} - -static int -check_deps(char *target) -{ - char *depfile; - FILE *f; - int ok = 1; - int fd; - int old_dir_fd = dir_fd; - - target = targetchdir(target); - - depfile = targetdep(target); - f = fopen(depfile, "r"); - if (!f) - return 0; - - dir_fd = keepdir(); - - while (ok && !feof(f)) { - char line[4096]; - char *hash = line + 1; - char *timestamp = line + 1 + 64 + 1; - char *filename = line + 1 + 64 + 1 + 16 + 1; - - if (fgets(line, sizeof line, f)) { - line[strlen(line)-1] = 0; // strip \n - switch (line[0]) { - case '-': // must not exist - if (access(line+1, F_OK) == 0) - ok = 0; - break; - case '=': // compare hash - fd = open(filename, O_RDONLY); - if (fd < 0) { - ok = 0; - } else { - if (strncmp(timestamp, datefile(fd), 16) != 0 && - strncmp(hash, hashfile(fd), 64) != 0) - ok = 0; - close(fd); - } - // hash is good, recurse into dependencies - if (ok && strcmp(target, filename) != 0) { - if (!sourcefile(filename)) - ok = check_deps(filename); - fchdir(dir_fd); - } - break; - case '!': // always rebuild - default: // dep file broken, lets recreate it - ok = 0; - } - } else { - if (!feof(f)) { - ok = 0; - break; - } - } - } - - fclose(f); - - close(dir_fd); - dir_fd = old_dir_fd; - - return ok; -} - -void -vacate(int implicit) -{ - if (implicit) - implicit_jobs++; - else - write(poolwr_fd, "\0", 1); -} - -struct job { - struct job *next; - pid_t pid; - int lock_fd; - char *target, *temp_depfile, *temp_target; - int implicit; -}; -struct job *jobhead; - -static void -insert_job(struct job *job) -{ - job->next = jobhead; - jobhead = job; -} - -static void -remove_job(struct job *job) -{ - if (jobhead == job) - jobhead = jobhead->next; - else { - struct job *j = jobhead; - while (j->next != job) - j = j->next; - j->next = j->next->next; - } -} - -static struct job * -find_job(pid_t pid) -{ - struct job *j; - - for (j = jobhead; j; j = j->next) { - if (j->pid == pid) - return j; - } - - return 0; -} - -char uprel[PATH_MAX]; - -void -compute_uprel() -{ - char *u = uprel; - char *dp = getenv("REDO_DIRPREFIX"); - - *u = 0; - while (dp && *dp) { - *u++ = '.'; - *u++ = '.'; - *u++ = '/'; - *u = 0; - dp = strchr(dp + 1, '/'); - } -} - -static int -write_dep(int dep_fd, char *file) -{ - int fd = open(file, O_RDONLY); - if (fd < 0) - return 0; - dprintf(dep_fd, "=%s %s %s%s\n", - hashfile(fd), datefile(fd), (*file == '/' ? "" : uprel), file); - close(fd); - return 0; -} - -int -new_waitjob(int lock_fd, int implicit) -{ - pid_t pid; - - pid = fork(); - if (pid < 0) { - perror("fork"); - vacate(implicit); - exit(-1); - } else if (pid == 0) { // child - lockf(lock_fd, F_LOCK, 0); - close(lock_fd); - exit(0); - } else { - struct job *job = malloc(sizeof *job); - if (!job) - exit(-1); - job->target = 0; - job->pid = pid; - job->lock_fd = lock_fd; - job->implicit = implicit; - - insert_job(job); - } - - return 0; -} - -// dofile doesn't contain / -// target can contain / -static char * -redo_basename(char *dofile, char *target) -{ - static char buf[PATH_MAX]; - int stripext = 0; - char *s; - - if (strncmp(dofile, "default.", 8) == 0) - for (stripext = -1, s = dofile; *s; s++) - if (*s == '.') - stripext++; - - strncpy(buf, target, sizeof buf); - while (stripext-- > 0) { - if (strchr(buf, '.')) { - char *e = strchr(buf, '\0'); - while (*--e != '.') - *e = 0; - *e = 0; - } - } - - return buf; -} - -static void -run_script(char *target, int implicit) -{ - char temp_depfile[] = ".depend.XXXXXX"; - char temp_target_base[] = ".target.XXXXXX"; - char temp_target[PATH_MAX], rel_target[PATH_MAX], cwd[PATH_MAX]; - char *orig_target = target; - int old_dep_fd = dep_fd; - int target_fd; - char *dofile, *dirprefix; - pid_t pid; - - target = targetchdir(target); - - int lock_fd = open(targetlock(target), - O_WRONLY | O_TRUNC | O_CREAT, 0666); - if (lockf(lock_fd, F_TLOCK, 0) < 0) { - if (errno == EAGAIN) { - fprintf(stderr, "redo: %s already building, waiting.\n", - orig_target); - new_waitjob(lock_fd, implicit); - return; - } else { - perror("lockf"); - exit(111); - } - } - - dep_fd = mkstemp(temp_depfile); - - target_fd = mkstemp(temp_target_base); - - dofile = find_dofile(target); - if (!dofile) { - fprintf(stderr, "no dofile for %s.\n", target); - exit(1); - } - - fprintf(stderr, "redo%*.*s %s # %s\n", level*2, level*2, " ", orig_target, dofile); - write_dep(dep_fd, dofile); - - // .do files are called from the directory they reside in, we need to - // prefix the arguments with the path from the dofile to the target - getcwd(cwd, sizeof cwd); - dirprefix = strchr(cwd, '\0'); - dofile += 2; // find_dofile starts with ./ always - while (strncmp(dofile, "../", 3) == 0) { - chdir(".."); - dofile += 3; - while (*--dirprefix != '/') - ; - } - if (*dirprefix) - dirprefix++; - - snprintf(temp_target, sizeof temp_target, - "%s%s%s", dirprefix, "/"+(*dirprefix ? 0 : 1), temp_target_base); - snprintf(rel_target, sizeof rel_target, - "%s%s%s", dirprefix, "/"+(*dirprefix ? 0 : 1), target); - - if (dirprefix) - setenv("REDO_DIRPREFIX", dirprefix, 1); - else - unsetenv("REDO_DIRPREFIX"); - - pid = fork(); - if (pid < 0) { - perror("fork"); - vacate(implicit); - exit(-1); - } else if (pid == 0) { // child -/* -djb-style default.o.do: - $1 foo.o - $2 foo - $3 whatever.tmp - - $1 all - $2 all (!!) - $3 whatever.tmp - - $1 subdir/foo.o - $2 subdir/foo - $3 subdir/whatever.tmp -*/ - char *basename = redo_basename(dofile, rel_target); - - if (old_dep_fd > 0) - close(old_dep_fd); - close(lock_fd); - setenvfd("REDO_DEP_FD", dep_fd); - setenvfd("REDO_LEVEL", level + 1); - if (sflag > 0) - dup2(target_fd, 1); - else - close(target_fd); - - if (access(dofile, X_OK) != 0) // run -x files with /bin/sh - execl("/bin/sh", "/bin/sh", xflag > 0 ? "-ex" : "-e", - dofile, rel_target, basename, temp_target, (char *)0); - else - execl(dofile, - dofile, rel_target, basename, temp_target, (char *)0); - vacate(implicit); - exit(-1); - } else { - struct job *job = malloc(sizeof *job); - if (!job) - exit(-1); - - close(target_fd); - close(dep_fd); - dep_fd = old_dep_fd; - - job->pid = pid; - job->lock_fd = lock_fd; - job->target = orig_target; - job->temp_depfile = strdup(temp_depfile); - job->temp_target = strdup(temp_target_base); - job->implicit = implicit; - - insert_job(job); - } -} - -static int -try_procure() -{ - if (implicit_jobs > 0) { - implicit_jobs--; - return 1; - } else { - if (poolrd_fd < 0) - return 0; - - fcntl(poolrd_fd, F_SETFL, O_NONBLOCK); - - char buf[1]; - return read(poolrd_fd, &buf, 1) > 0; - } -} - -static int -procure() -{ - if (implicit_jobs > 0) { - implicit_jobs--; - return 1; - } else { - fcntl(poolrd_fd, F_SETFL, 0); // clear O_NONBLOCK - - char buf[1]; - return read(poolrd_fd, &buf, 1) > 0; - } -} - -void -create_pool() -{ - poolrd_fd = envfd("REDO_RD_FD"); - poolwr_fd = envfd("REDO_WR_FD"); - if (poolrd_fd < 0 || poolwr_fd < 0) { - int jobs = envfd("JOBS"); - if (jobs > 1) { - int i, fds[2]; - pipe(fds); - poolrd_fd = fds[0]; - poolwr_fd = fds[1]; - - for (i = 0; i < jobs-1; i++) - vacate(0); - - setenvfd("REDO_RD_FD", poolrd_fd); - setenvfd("REDO_WR_FD", poolwr_fd); - } else { - poolrd_fd = -1; - poolwr_fd = -1; - } - } -} - -static void -redo_ifchange(int targetc, char *targetv[]) -{ - pid_t pid; - int status; - struct job *job; - - int targeti = 0; - - // XXX - char skip[targetc]; - - create_pool(); - - // check all targets whether needing rebuild - for (targeti = 0; targeti < targetc; targeti++) - skip[targeti] = fflag > 0 ? 0 : check_deps(targetv[targeti]); - - targeti = 0; - while (1) { - int procured = 0; - if (targeti < targetc) { - char *target = targetv[targeti]; - - if (skip[targeti] || sourcefile(target)) { - targeti++; - continue; - } - - int implicit = implicit_jobs > 0; - if (try_procure()) { - procured = 1; - targeti++; - run_script(target, implicit); - } - } - - pid = waitpid(-1, &status, procured ? WNOHANG : 0); - - if (pid == 0) - continue; // nohang - - if (pid < 0) { - if (errno == ECHILD && targeti < targetc) - continue; // no child yet??? - else - break; // no child left - } - - if (WIFEXITED(status)) - status = WEXITSTATUS(status); - - job = find_job(pid); - - if (!job) { - exit(-1); - } - remove_job(job); - - if (job->target) { - if (status > 0) { - remove(job->temp_depfile); - remove(job->temp_target); - } else { - struct stat st; - char *target = targetchdir(job->target); - char *depfile = targetdep(target); - int dfd; - - dfd = open(job->temp_depfile, - O_WRONLY | O_APPEND); - if (stat(job->temp_target, &st) == 0) { - rename(job->temp_target, target); - write_dep(dfd, target); - } else { - remove(job->temp_target); - redo_ifcreate(dfd, target); - } - close(dfd); - - rename(job->temp_depfile, depfile); - remove(targetlock(target)); - } - } - - close(job->lock_fd); - - vacate(job->implicit); - - if (kflag < 0 && status > 0) { - printf("failed with status %d\n", status); - exit(status); - } - } -} - -static void -record_deps(int targetc, char *targetv[]) -{ - int targeti = 0; - int fd; - - dep_fd = envfd("REDO_DEP_FD"); - if (dep_fd < 0) - return; - - fchdir(dir_fd); - compute_uprel(); - - for (targeti = 0; targeti < targetc; targeti++) { - fd = open(targetv[targeti], O_RDONLY); - if (fd < 0) - continue; - write_dep(dep_fd, targetv[targeti]); - close(fd); - } -} - -int -main(int argc, char *argv[]) -{ - char *program; - int opt, i; - - dep_fd = envfd("REDO_DEP_FD"); - - level = envfd("REDO_LEVEL"); - if (level < 0) - level = 0; - - fflag = envfd("REDO_FORCE"); - kflag = envfd("REDO_KEEP_GOING"); - xflag = envfd("REDO_TRACE"); - sflag = envfd("REDO_STDOUT"); - - if ((program = strrchr(argv[0], '/'))) - program++; - else - program = argv[0]; - - while ((opt = getopt(argc, argv, "+kxfsj:C:")) != -1) { - switch (opt) { - case 'k': - kflag = 1; - setenvfd("REDO_KEEP_GOING", 1); - break; - case 'x': - xflag = 1; - setenvfd("REDO_TRACE", 1); - break; - case 'f': - fflag = 1; - setenvfd("REDO_FORCE", 1); - break; - case 's': - sflag = 1; - setenvfd("REDO_STDOUT", 1); - break; - case 'j': - setenv("JOBS", optarg, 1); - break; - case 'C': - if (chdir(optarg) < 0) { - perror("chdir"); - exit(-1); - } - break; - default: - fprintf(stderr, "usage: %s [-kfsx] [-jN] [-Cdir] [TARGETS...]\n", program); - exit(1); - } - } - argc -= optind; - argv += optind; - - if (argc == 0) { - argc = 1; - argv[0] = (char *)"all"; // XXX safe? - } - - dir_fd = keepdir(); - - if (strcmp(program, "redo") == 0) { - fflag = 1; - redo_ifchange(argc, argv); - procure(); - } else if (strcmp(program, "redo-ifchange") == 0) { - redo_ifchange(argc, argv); - record_deps(argc, argv); - procure(); - } else if (strcmp(program, "redo-ifcreate") == 0) { - for (i = 0; i < argc; i++) - redo_ifcreate(dep_fd, argv[i]); - } else if (strcmp(program, "redo-always") == 0) { - dprintf(dep_fd, "!\n"); - } else if (strcmp(program, "redo-hash") == 0) { - for (i = 0; i < argc; i++) - write_dep(1, argv[i]); - } else { - fprintf(stderr, "not implemented %s\n", program); - exit(-1); - } - - return 0; -} |