minix/commands/unexpand/unexpand.c
Ben Gras 6a73e85ad1 retire _PROTOTYPE
. only good for obsolete K&R support
	. also remove a stray ansi.h and the proto cmd
2012-03-25 16:17:10 +02:00

121 lines
2.2 KiB
C

/* unexpand - convert spaces to tabs Author: Terrence W. Holm */
/* Usage: unexpand [ -a ] [ file ... ] */
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#define TAB 8
int column = 0; /* Current column, retained between files */
int spaces = 0; /* Spaces since last tab stop */
int leading_blank = 1; /* Only unexpand leading blanks, */
/* Overruled by -a option */
int main(int argc, char **argv);
void Unexpand(FILE *f, int all);
int main(argc, argv)
int argc;
char *argv[];
{
int all = 0; /* -a flag means unexpand all spaces */
int i;
FILE *f;
if (argc > 1 && argv[1][0] == '-') {
if (strcmp(argv[1], "-a") == 0)
all = 1;
else {
fprintf(stderr, "Usage: unexpand [ -a ] [ file ... ]\n");
exit(1);
}
--argc;
++argv;
}
if (argc == 1)
Unexpand(stdin, all);
else
for (i = 1; i < argc; ++i) {
if ((f = fopen(argv[i], "r")) == NULL) {
perror(argv[i]);
exit(1);
}
Unexpand(f, all);
fclose(f);
}
/* If there are pending spaces print them. */
while (spaces > 0) {
putchar(' ');
--spaces;
}
return(0);
}
void Unexpand(f, all)
FILE *f;
int all;
{
int c;
while ((c = getc(f)) != EOF) {
if (c == ' ' && (all || leading_blank)) {
++column;
++spaces;
/* If we have white space up to a tab stop, then output */
/* A tab. If only one space is required, use a ' '. */
if (column % TAB == 0) {
if (spaces == 1)
putchar(' ');
else
putchar('\t');
spaces = 0;
}
continue;
}
/* If a tab character is encountered in the input then */
/* Simply echo it. Any accumulated spaces can only be */
/* Since the last tab stop, so ignore them. */
if (c == '\t') {
column = (column / TAB + 1) * TAB;
spaces = 0;
putchar('\t');
continue;
}
/* A non-space character is to be printed. If there */
/* Are pending spaces, then print them. There will be */
/* At most TAB-1 spaces to print. */
while (spaces > 0) {
putchar(' ');
--spaces;
}
if (c == '\n' || c == '\r') {
column = 0;
leading_blank = 1;
putchar(c);
continue;
}
if (c == '\b')
column = column > 0 ? column - 1 : 0;
else
++column;
leading_blank = 0;
putchar(c);
}
}