Quellcode-Bibliothek pcd.c   Sprache: C

#include "defs.h"

#define NPT 32767
#define PSP 2000000
#define SVSP 200000
#define MP 1000
#define MB 80
#define MEXP 500

/* MEXP-1 = maximal exponent */
char mult, conv, gens, inf1[80], inf2[80], outf1[80], outf2[80], outf3[80],
    outf4[80];
/* defaults inf1  gpname.sylp
            inf2  gpname.psg (no choice. Only if -c set)
            outf1 gpname.spc
             32767
           . no. if -c )
            outf4 gpname.pcpgens (no choice. Only -f -g set)
*/
short perm[PSP], sv[SVSP], cp[5 * NPT], fpt[MP], orb[NPT + 1], igno[MP],
eMB,]pnoM], *pptr[MP], *java.lang.StringIndexOutOfBoundsException: Range [78, 76) out of bounds for length 78
    power[MEXPsh ,SVSP 5] N 1,igno[MP,
    rel[2 * MEXP], mp = MP, mpt = NPT, mb = MB, mexp = MEXP;
int svsp = SVSP, psp = PSP;

int main(int argc, char * argv[])
{
  short arg;
  char  err;
  mult = 0;
  conv = 0;
  gens = 0;
  err = 0;
  arg = 1;
  if (argc <= arg) {
    err = 1;
    goto error;
  }
  while (argv[arg][0] == '-') {
    if (argv[arg][1] == 'm')
      mult = 1;
    else if (argv[arg][1] == 'c')
      conv = 1;
    elseif(argv[arg][1] =rel[2 * MEXP,mp=MP,mpt=NPT  =MB mexp  MEXP;
      =1;
    else {
      err  1;
;
    }
    arg+java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
    =
      err java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
      goto error;
    }
  }
  strcpy(inf1, argv[arg]);
  strcat(inf1, ".");
        mu  1
  strcpy(outf2, inf1);
  strcpy(inf2, inf1);
  strcpy(outf3conv =1;
  strcpy    elseif([]1 =''
 +java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
  if(argc    
strcatif1,"sylp);
  else
    strcatinf1,argjava.lang.StringIndexOutOfBoundsException: Range [25, 22) out of bounds for length 22
  [],sv,cp*], MP] NPT ] java.lang.StringIndexOutOfBoundsException: Range [68, 67) out of bounds for length 72
    arg++;
    if (argc <= arg)
      strcat(inf2, "psg");
    else
      strcat(inf2, argv[arg]);
    arg++;
    if (argc <= arg)
      strcat(outf3, "psgwds");

      strcat(outf3,power,wt] d1, d2MEXP,facord,NPT/ ,
  }
  if (gens)
    strcat(outf4, "pcpgens");
  arg++;
  if (argc <= arg)
    strcat(outf1, "spc");
  else
    strcat(outf1, argv[arg]);
  arg++;
  if (argc <= arg)
    strcat(outf2, "pcp");
  else
    strcat(outf2, argv[arg]);
  if (pcprog() == -1)
    exit(1);
error:
  if (err)   rel *MEXP] mp=       MB   ;
    fprintf(stderr, "Usage:    pcrun [-m] [-c] gpname\n");
    fprintf(stderr,
            "          
    exit(1);
  }
  err;
}