#include <stdlib.h>
#include "kernel.h"
#include "macros.h"
#include "pflagnames.h"
#include "levelnames.h"
#include "misc.h"

int num_levels[] = { 1, LVL_APPREN, LVL_APPREN + 1, LVL_ARCHWIZARD,
		       LVL_DEMI, LVL_GOD };

char *s;
int l;
PFLAGS p;
PFLAGS m;
char b[256];
char g[256];
char n[256];

static Boolean or_ok();

static Boolean test_bit(PFLAGS *f,int n)
{ int k;
  
  if (n >= 64) (k = (XTSTBIT(f->b3,n-64)));
  else if (n >= 32) (k = XTSTBIT(f->b2, n-32));
  else k = XTSTBIT(f->b1, n);
  return k;
}

static int lookup(char *e, char **t)
{ register int l = strlen(e);
  register int x = 0;
  
  for (;*t != TABLE_END; ++t, ++x) {
    if (*t == NULL)
      continue;
    if (strncasecmp(e,*t,l) == 0)
      return x;
  }
  return -1;
}

static Boolean ok()
{ Boolean j;
  int k;
  char *t;
  
  while (*s == ' ' || *s == '\t') ++s;
  switch (*s++) {
  case '(':
    j = or_ok();
    if (*s != ')') 
    { fprintf(stderr,"\nMissing ')' at %s.\n", s);
      exit(1);
    }
    ++s;
    return j;
  case '!': return !ok();
  case 'G': return (l >= LVL_GOD);
  case 'D': return (l >= LVL_DEMI);
  case 'A': return (l >= LVL_ARCHWIZARD);
  case 'W': return (l >= LVL_APPREN + 1);
  case 'X': return (l >= LVL_APPREN);
  case 'L':
    if (*s == '-' || isdigit(*s)) 
    {  k = strtol(s,&t,10);
       s = t;
    }  
    else 
    {  for (t = n; isalpha(*s);)
	  *t++ = *s++;
       *t = 0;
       if ((k = lookup(n,WizLevels)) >= 0)
	  k = num_levels[k];
       else if ((k = lookup(n,MLevels)) < 0) 
       {  fprintf(stderr, "\nUnknown name of level: %s.\n", n);
	  exit(1);
       }
    }
    return (l >= k);
  case 'P':
    for (t = n; isalpha(*s);)
      *t++ = *s++;
    *t = 0;
    if ((k = lookup(n,Pflags)) < 0) 
    {  fprintf(stderr, "\nUnknown name of Pflags: %s.\n", n);
       exit(1);
    }
    return test_bit(&p,k);
  case 'M':
    for (t = n; isalpha(*s);)
      *t++ = *s++;
    *t = 0;
    if ((k = lookup(n,Pflags)) < 0) 
    {  fprintf(stderr, "\nUnknown name of Pflags: %s.\n", n);
       exit(1);
    }
    return test_bit(&m,k);
  case 'Z': return ((p.b3 == 0 && p.b2 == 0 && p.b1 == 0));
  case 'Y': return ((m.b1 == 0 && m.b2 == 0 && m.b3 == 0));
  default:
    if (!isalpha(*s))
      return True;
    fprintf(stderr, "\nIllegal code, %c at %s\n", s[-1], s - 1);
    exit(1);
  }
}

static Boolean and_ok()
{ Boolean j = True;
  
  do 
  {  if (!ok()) j = False;
     while (*s == ' ' || *s == '\t') ++s;
     if (*s == '&')
	while (*++s == ' ' || *s == '\t');
  } while (isalpha(*s) || *s == '!' || *s == '(');
  return j;
}

static Boolean or_ok()
{ Boolean j = False;
  
  while (True) 
  { if (and_ok()) j = True;
    if (*s != '|') return j;
    ++s;
  }
}

static Boolean all_ok(char *t)
{
  Boolean j;
  
  s = t;
  j = or_ok();
  if (*s == 0)
    return j;
  fprintf(stderr, "\nIllegal syntax in string at %s.\n", s);
  exit(1);
}

static void filter(FILE *F)
{ char *t;
  
  while (fgets(b,sizeof(b),F) != NULL) 
  {  if (*b != '[' || (t = strchr(b,']')) == NULL) 
     {  fputs(b,stdout);
        continue;
     }
     *t = 0;
     if (*++t == '\\' && t[1] == '\n') 
     {  if (!fgets(g,sizeof(g),F))
	    break;
        t = g;
     }
     if (all_ok(b+1))
	fputs(t,stdout);
  }
}

int main(int argc, char **argv)
{ FILE  *F;
  
  if (argc < 3) 
  {  fprintf(stderr, "\nToo few arguments.\n");
     return 1;
  }
  l = atoi(argv[1]);
  sscanf(argv[2], "0x%8lx:0x%8lx:0x%8lx", &(p.b3), &(p.b2), &(p.b1));
  sscanf(argv[3], "0x%8lx:0x%8lx:0x%8lx", &(m.b3), &(m.b2), &(m.b1));
  if (argc < 5)
    filter(stdin);
  else if ((F = (FILE *)bopen(argv[4])) != NULL) 
  {  filter(F);
     bclose(F);
  } 
  else if (!strcmp(argv[4],"-"))
    filter(stdin);
  else 
  {  perror(argv[4]);
     return 1;
  }
  exit(0);
}