/*
 *	$Source: /afs/dev.mit.edu/source/repository/athena/bin/dent/dent.c,v $
 *	$Author: builder $
 *	$Locker:  $
 *	$Header: /afs/dev.mit.edu/source/repository/athena/bin/dent/dent.c,v 1.1 1985-04-08 11:25:33 builder Exp $
 */

#ifndef lint
static char *rcsid_dent_c = "$Header: /afs/dev.mit.edu/source/repository/athena/bin/dent/dent.c,v 1.1 1985-04-08 11:25:33 builder Exp $";
#endif	lint

#include <stdio.h>

#define MAXCHARS 1024		/* maximum length of a single line */

/*
	This routine indents the standard input.
*/

main(argc,argv)
int argc;
char *argv[];
{
	FILE *fptr = stdin;	/* initially read standard input file */
	register int i,j;
	int nspaces = 8;
	for(i = 1; i < argc; i++) {
		if(argv[i][0] == '-') {
			if(sscanf(&argv[i][1],"%d",&nspaces) == 0) {
				fprintf(stderr,
					"%s: argument must be integer.\n",
					argv[0]);
				exit(1);
			}
			continue;
		}
		if((fptr = fopen(argv[i],"r")) == NULL) {
			fprintf(stderr,"%s: no such file %s.\n",
				argv[0],argv[i]);
			exit(1);
		}
		indent(fptr,nspaces);
	fclose(fptr);
	}
	if(fptr == stdin) indent(fptr,nspaces);
	exit(0);
}

int indent(fptr,nspaces)
FILE *fptr;
int nspaces;
{
	register int i,j;
	char line[MAXCHARS];
	while(fgets(line,MAXCHARS,fptr) != NULL) {
		if(strlen(line) >= 1) {
			spaceout(nspaces);
			for (j = 0; j < strlen(line); j++) {
				putchar(line[j]);
				if(line[j] == '\r') spaceout(nspaces);
			}
		}
	}
}
spaceout(spaces)
register int spaces;
{
	while(spaces-- > 0) putchar(' ');
}