DataMuseum.dk

top - download

    Length: 824 (0x338)
    Types: TextFile
    Names: »scriptse.c«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/se/scriptse.c« 

TextFile

#ifndef lint
static char RCSid[] = "$Header: scriptse.c,v 1.1 86/05/06 13:38:32 osadr Exp $";
#endif

/*
 * $Log:	scriptse.c,v $
 * Revision 1.1  86/05/06  13:38:32  osadr
 * Initial revision
 * 
 * 
 */

/*
** scriptse.c
**
** turn input into a form se
** can use as a script.
**
** This is very quick-and-dirty, not checking
** for any of se's control characters.
*/

#include <stdio.h>

main (argc, argv)
int argc;
char **argv;
{
	register int c;
	register int dflag = 0;

	if (argc > 1)
		if (strcmp (argv[1], "-d") == 0)
			dflag = 1;
		else
		{
			fprintf (stderr, "usage: %s [-d] < file > newfile\n",
				argv[0]);
			exit (1);
		}

	while ((c = getchar()) != EOF)
	{
		if (c != '\n')		/* most frequent case */
			putchar (c);
		else
		{
			putchar ('\r');
			if (! dflag)
				putchar ('\177');
		}
	}
	
	exit (0);
}