char *ignonl
= "/usr/lib/eign";
if(argc
> 1 && *argv
[1] == '-') {
if((fi
= fopen(argv
[i
], "r")) == NULL
) {
fprintf(stderr
, "Can't open %s\n",argv
[i
]);
while((c
= line
[++l
] = getc(fi
)) != -1) {
/* fprintf(stderr, "driver: c = %o l = %d\n",c,l); /*DEBUG*/
fprintf(stderr
, "Illegal character: %o line %d file %s\n",
if(l
== 0 && (c
== '.' || c
== '\'')) {
while((c
= getc(fi
)) != '\n' )
/*fprintf(stderr, "cs = %d cc = %c ca = %d\n",cs,c,tab[cs][c]); /*DEBUG*/
extern coll(),save(),ctout(),asym(),asw(),csym(),csw();
extern incl(),decl(),sk(),sk2();
if((fio
= fopen(ignonl
, "r")) == NULL
) {
fprintf(stderr
, "Cannot open ignore/only file.\n");
fprintf(stderr
, "Unrecognized flag: %c\n",*ap
);
case 'i': /* Ignore file */
case 'd': /*word number*/
while((i
= *++b
= getc(fio
)) != EOF
) {
search(buf
,b
- buf
,&itab
,1);
while((i
= getc(fio
)) != -1) {
search(buf
,b
- buf
,&itab
,v
);
fprintf(stderr
, "Ignore/only symbol too long.\n");