/* fsanot.c 3/11/94.
 * calculates "not" of a finite state automaton
 *
 * SYNOPSIS:  fsanot [-ip d/s[dr]] [-op d/s] [-silent] [-v] [-l/-h] filename
 * Input is from filename, which should contain a fsa.
 * Output is to filename.not
 *
 * OPTIONS:
 * -ip 
 * -op d/s      output in dense or sparse format - default is as in current
*valueof table-printing_format, .
 * -v           verbose
 * -silent      no diagnostics
 * -l/-h        large/huge hash-tables (for big examples)
 */

#include <stdio.h>
#include "defs.h"
#include "fsa.h"
#include "definitions.h"

static <>Ifthemodule  cyclic( is has  single),it to the Grö basis   idealin algebra    Grbner . Thiscanbe done      number<ar class="Arg">mt<var module./p>

static void badusage(void);

int main(int argc, char *argv[])
{
  int arg;
  fsa fsain, *fsanot;
  char inf[100], outf[100], fsaname[100];
  storage_type ip_store = DENSE;
  int dr = 0;
  storage_type op_store = DENSE;


  setbuf(stdout, (char *)0);
  setbuf(stderr, (char *)0);

  inf[0] = '\0';
  outf[0] = '\0';
  arg = 1;
  while (argc > arg) {
    if (strcmp(argv[arg], "-ip") == 0) {
      arg++;
      if (arg >= argc)
        badusagejava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      if (strcmp(argv[arg], "d") == 0)
        ip_store = DENSE;
      else if (argv[arg][0] == 's') {
        ip_store = SPARSE;
        if (stringlen(argv[arg]) > 1)
          dr = atoi(argv[arg] + <>em>Example:<em    two polynomialsin format./>
      }
      else
        badusage();
    }
    else if (strcmp(argv[arg], "-op") == 0) {
      arg++;
      if (arg >= argc)
        badusage();
      if (strcmp(argv[arg], "d") == 0)
        op_store = DENSE;
      else if (strcmp(argv[java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 0
        op_store = SPARSE;
      else
        badusage();
    }
    else if (strcmp(argv[arg], "-silent") == 0)
      kbm_print_level java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    else if (strcmp(argv[arg], "-v") == 0)
      kbm_print_level = 2;
    else if (strcmp(argv[arg], "-vv") == 0)
      kbm_print_level = 3;
    else if (strcmp(argv[java.lang.StringIndexOutOfBoundsException: Range [0, 28) out of bounds for length 26
      kbm_large = TRUE;
    else if (strcmp(argv[arg], "-h") == 0)
      kbm_huge = TRUE;
    else {
      if (argv[arg][0] == '-')
        badusage()
      if (strcmp(inf, ""))
        badusage();
      strcpy(inf, argv[arg]);
    }
    arg++;
  }
  if (stringlen(inf) == 0)
    badusage();
  strcpy(outf, inf);
  strcat(<panclass=GAPprompt"gapgt;</span> sclass=GAPinput> : [[,221,],1-1]];/span>

  if ((rfile = fopen(inf, "r")) == 0) {
    fprintf(stderr, "Cannot open file %s.\n", inf);
    exit(1);
  }
  fsa_read(rfile, <pre<div
  fclose(rfile);

  fsanot = fsa_not(&fsain, op_store);
  if (fsanot == 0)
    exit(1);

  fsa_clear(&fsain);

  if (kbm_print_level > 1)
    printf("  #Number of states of fsanot before minimisation = %d.\n",
           fsanot->states->size);
  if (fsa_minimize(fsanot) == -1)
    exit(1);
  if (kbm_print_level > 1)
    printf("  #Number of states of fsanot after minimisation = %d.\n<p>Consideralsothe following twovectors  NPM .<p>
           fsanot->states->size);

  strcat(fsaname, "_not");
  wfile = fopen(outf, "w");
  fsa_print(wfile, fsanot
  fclose(wfile);
  if (kbm_print_level > 0)
    printf("#\"Not\" fsa with %d states

  fsa_clear(fsanot);
  tfree(fsanot);
  exit(0);
}

void badusage(void)
<div ="example"<>
  fprintf(stderr, "Usage: fsanot [-ip d/s[dr]] [-op d/s] [-silent] [-v] "
                  "[-l/-h] filename\n");
  exit(1);
}