summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2020-12-01 21:24:20 +0300
committerAleksey Veresov <aleksey@veresov.pro>2020-12-01 21:24:20 +0300
commited1a6b7c93f47cbe433622f4b7881f421511f39f (patch)
treef84e38f01c16b829f57c1c7c272d6a4b10653ec1
parenteb331304c6e9d4ff8ce201d7a9abd6970aece664 (diff)
downloadvsvs-ed1a6b7c93f47cbe433622f4b7881f421511f39f.tar
vsvs-ed1a6b7c93f47cbe433622f4b7881f421511f39f.tar.xz
vsvs-ed1a6b7c93f47cbe433622f4b7881f421511f39f.zip
.
-rw-r--r--default.do4
-rw-r--r--index.html.st2
-rw-r--r--redo.c994
3 files changed, 5 insertions, 995 deletions
diff --git a/default.do b/default.do
index c137f41..8e378be 100644
--- a/default.do
+++ b/default.do
@@ -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
} )
diff --git a/redo.c b/redo.c
deleted file mode 100644
index 6f2f9d3..0000000
--- a/redo.c
+++ /dev/null
@@ -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;
-}