55 lines
911 B
C
55 lines
911 B
C
|
|
/* */
|
|
/* Copyright (c) 1984,1985,1986,1987,1988,1989,1990 AT&T */
|
|
/* All Rights Reserved */
|
|
/* */
|
|
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T. */
|
|
/* The copyright notice above does not evidence any */
|
|
/* actual or intended publication of such source code. */
|
|
/* */
|
|
|
|
/*
|
|
* split a file up into lines with alpahnumeric strings
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
|
|
main(argc,argv)
|
|
char *argv[];
|
|
{
|
|
register FILE *fd;
|
|
register int c;
|
|
register int mode;
|
|
if(argc < 2)
|
|
exit(1);
|
|
if((fd = fopen(argv[1],"r"))==NULL)
|
|
exit(2);
|
|
while((c=getc(fd))!=EOF)
|
|
{
|
|
#ifdef cray
|
|
if(c=='$')
|
|
c = '_';
|
|
#endif /* cray */
|
|
if(isalpha(c) || c=='_')
|
|
mode++;
|
|
else if(isdigit(c) && mode)
|
|
mode++;
|
|
else if(mode>1)
|
|
{
|
|
mode = 0;
|
|
c = '\n';
|
|
}
|
|
else
|
|
{
|
|
mode = 0;
|
|
continue;
|
|
}
|
|
putc(c,stdout);
|
|
}
|
|
if(mode)
|
|
putc('\n',stdout);
|
|
exit(0);
|
|
}
|
|
|