Return to detab.c CVS log

Up to [MW Coherent from dump] / coherent / g / usr / bin / me

coherent

/*
 * Turn tabs to spaces.
 */
#include <stdio.h>

main(argc, argv)
char **argv;
{
	extern char *getenv();
	register int tabsiz, loc, to, c;
	char *env;

	switch (argc) {
	case 1:		/* no argument */
		tabsiz = ((NULL == (env = getenv("TABSIZ"))) ? 8 : atoi(env));
		break;
	case 2:		/* 1 argument */
		tabsiz = atoi(argv[1]);
		break;
	default:
		fprintf(stderr, "usage: detab [tabsize]\n");
		exit(1);
	}

	if (tabsiz < 2 || tabsiz > 256) {
		fprintf(stderr, "detab: %d is illegal tab size\n", tabsiz);
		fprintf(stderr, "usage: detab [tabsize]\n");
		exit(1);
	}

	for (loc = 0;;) {
		switch (c = getchar()) {
		case EOF:
			exit(0);
		case '\n':
		case '\r':
			loc = -1;	/* next char will be at 0 */
			break;
		case '\a':
			loc--;		/* alarm takes no space */
			break;
		case '\b':
			loc -= 2;	/* backspace */
			break;
		case '\t':		/* space to the spot */
			for (to = loc + tabsiz - (loc % tabsiz);
			     loc < to;
			     loc++)
				putchar(' ');
			continue;
		}
		loc++;
		putchar(c);
	}
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.