shithub: scc

ref: 2d1b151c900071e5362b23e2e673c3cc0221c166
dir: /src/cmd/strip.c/

#include <errno.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <scc/arg.h>
#include <scc/mach.h>

static int status;
static char tmpname[FILENAME_MAX];
static char *filename;
char *argv0;

static void
error(char *fmt, ...)
{
	va_list va;

	va_start(va, fmt);
	fprintf(stderr, "strip: %s: ", filename);
	vfprintf(stderr, fmt, va);
	putc('\n', stderr);
	va_end(va);

	status = EXIT_FAILURE;
}

static void
doit(char *fname)
{
	int type;;
	size_t r;
	FILE *src, *dst;
	Map *map;
	Obj *obj;

	errno = 0;
	filename = fname;
	r = snprintf(tmpname, sizeof(tmpname), "%s.tmp", fname);
	if (r >= sizeof(tmpname)) {
		error("%s: name too long", fname);
		return;
	}
	if ((src = fopen(fname, "rb")) == NULL)
		goto err0;
	if ((type = objtype(src, NULL)) < 0)
		goto err1;
	if ((obj = newobj(type)) == NULL)
		goto err1;
	if (readobj(obj, src) < 0)
		goto err2;
	if ((map = loadmap(obj, src)) == NULL)
		goto err3;
	if (strip(obj) < 0)
		goto err3;
	if ((dst = fopen(tmpname, "wb")) == NULL)
		goto err3;
	if (writeobj(obj, map, dst) < 0)
		goto err5;
	if (fclose(dst) == EOF)
		goto err4;
	if (remove(fname) == EOF)
		goto err4;
	if (rename(tmpname, fname) == EOF)
		goto err4;

	goto err3;

err5:
	fclose(dst);
err4:
	remove(tmpname);
err3:
	free(map);
err2:
	delobj(obj);
err1:
	fclose(src);
err0:
	if (errno)
		error(strerror(errno));
}

static void
usage(void)
{
	fputs("usage: strip [file...]\n", stderr);
	exit(EXIT_FAILURE);
}

int
main(int argc, char *argv[])
{
	ARGBEGIN {
	default:
		usage();
	} ARGEND

	if (argc == 0) {
		doit("a.out");
	} else {
		for (; *argv; ++argv)
			doit(*argv);
	}

	return status;
}