/*	This command strips CRLFs from a given file.
	Usage:
		A>decr infile outfile (-s)<cr>
	written by Les Bell         Sept, 1981           */

#include "bdscio.h"
main(argc,argv)
char **argv;
{
	int ifd, ofd;
	char ibuf[BUFSIZ];
	char obuf[BUFSIZ];
	char linebuf1[135];
	char linebuf2[135];

	if ((argc != 3)&&(argc !=4)) {
		printf("Usage: decr infile outfile (-s)\n");
		exit();
	}

	if ((ifd = fopen(argv[1], ibuf)) == ERROR) {
		printf("cannot open: %s\n",argv[1]);
		exit();
	}

	if((ofd = fcreat(argv[2], obuf)) == ERROR) {
		printf("cannot open: %s\n",argv[2]);
		exit();
	}

	strcpy(linebuf2,'\n');

	while (fgets(linebuf1,ibuf)) {
		if(strcmp(linebuf1,"--more--\n") == 0) {
			fgets(linebuf1,ibuf);
		}
		if¨ (argc == 4)&&(isspace(linebuf1[0]))) {
			fprintf(obuf¬ "%s\n"¬ linebuf2);
			strcpy(linebuf2,linebuf1);
		}
		else if( isspace(linebuf1[0])) {
			fprintf(obuf, "%s", linebuf2);
			strcpy(linebuf2,linebuf1);
		}
		else {
			linebuf2[strlen(linebuf2)-1] = ' ';
			linebuf2[strlen(linebuf2)] = '\0';
			fprintf(obuf, "%s", linebuf2);
			strcpy(linebuf2, linebuf1);
		}
	}
	fflush(obuf);
	fclose(obuf);
}