#include <stdio.h>
#include <regex.h>

extern char *strchr(), *strrchr(), *getdirentry(), *compile(), *execute();
extern FILE *fopen();

#define	YES 1
#define	NO  0

#define BIGNUMBER 255
#define MAXPAT 1024
#define TAB 9

char line[1024];

#define emphasise	1
int exclude   = NO;
	    
doline(start,end)
register char *start, *end;
{
    register char *p;

    for (p=line; p<start; p++)
	putchar(*p);
    fputs("\033p", stdout);
    while (p<end)
	putchar(*p++);
    fputs("\033q", stdout);
    fputs(p, stdout);
}

int
findfwd(f,fname)
/* look for a regular expression forward */
FILE *f;
char *fname;
{
    register int i;
    register int found;
    register char *fp;
    char *EOS();

    while (fgets(line,1024,f)) {
	found = (fp = execute(line, EOS(line)-1)) != NULL;
	if (found != exclude) {
	    if (fname)
		printf("%s:", fname);

	    doline(fp, RElastp);
	}
    }
}

main(argc,argv)
char **argv;
{
    register int  i;
    register char *name, *ap;
    register FILE *f;
    char *msg;

    while (argc > 1 && *(argv[1]) == '-') {
	ap = argv[1];
	++argv; --argc;
	if (*++ap) {
	    for (; *ap; ++ap)
		switch (*ap) {
		  case 'v': exclude = YES;		break;
		  default : fprintf(stderr, "gre: bad option -%c\n", *ap);
			    exit(255);
		}
	}
	else
	    break;
    }
    if (argc < 2) {
	fprintf(stderr,"usage: gre [-v] pattern file ...\n");
	exit(255);
    }
    if (msg = compile(argv[1])) {
	fprintf(stderr, "gre: %s\n", msg);
	exit(2);
    }
    if (argc > 2) {
	for(i=2;i<argc;i++) {
	    if (name=getdirentry(argv[i])) {
		do {
		    if ((f=fopen(name, "r")) != NULL) {
			findfwd(f, name);
			fclose(f);
		    }
		    else
			fprintf(stderr,"gre: cannot open %s\n", name);
		} while (name=getdirentry(NULL));
	    }
	    else
		fprintf(stderr,"gre: cannot open %s\n", argv[i]);
	}
    }
    else
	findfwd(stdin, NULL);
}