diff -Nru palp-2.12/class.c palp-2.20/class.c --- palp-2.12/class.c 2020-08-07 12:12:55.000000000 +0000 +++ palp-2.20/class.c 2020-10-07 09:08:53.000000000 +0000 @@ -13,7 +13,6 @@ * Polynf normal form and symmetries * SubAdd sorting * Subdb data base - * -> poly.x class.x */ #include "Global.h" @@ -234,7 +233,9 @@ char Blank=0, *dbin=&Blank, *dbsub=&Blank, *dbout=dbin, *x_string=&Blank, *polyi=dbin, *polya=dbin, *polys=dbin, *polyo=dbin, mFlag=0, HFlag=0, sFlag=0; static CWS W; PolyPointList *_P; - if(narg==1) {puts("\nFor help type `class.x -h'\n");exit(0);} + if(narg==1) { + printf("For help type `%s -h'\n", fn[0]); + exit(0);} _P = (PolyPointList *) malloc(sizeof (PolyPointList)); if(_P==NULL) {puts("Unable to allocate space for _P"); exit(0);} @@ -254,8 +255,12 @@ case 'A': abFlag=2; break; case 'B': abFlag=-2; break; case 'k': kFlag=1; break; - case 'H': { HFlag=fn[n][2]; - if(HFlag=='e') x_string = (fn[n][3]) ? &fn[n][3] : fn[++n]; } + case 'H': { +#if (POLY_Dmax != 4) + puts("For using Hodge-DB-routines set POLY_Dmax=4!"); exit(0); +#endif + HFlag=fn[n][2]; + if(HFlag=='e') x_string = (fn[n][3]) ? &fn[n][3] : fn[++n]; } break; case 'p': { if(fn[n][2]=='i') polyi = (fn[n][3]) ? &fn[n][3] : fn[++n]; @@ -305,18 +310,11 @@ else if(mFlag=='r') while(Read_CWS_PP(&W,_P)) Max_check(&W,_P); else if(mFlag=='v') while(Read_CWS_PP(&W,_P)) DPvircheck(&W,_P); else if(mFlag=='l') while(Read_CWS_PP(&W,_P)) DPircheck(&W,_P); - -#if (POLY_Dmax < 6) else if(HFlag=='c') DB_to_Hodge(dbin, dbout, vf, vt,_P); else if(HFlag=='s') Sort_Hodge(dbin, dbout); else if(HFlag=='f') Test_Hodge_file(polyi,_P); else if(HFlag=='t') Test_Hodge_db(dbin); else if(HFlag=='e') Extract_from_Hodge_db(dbin,x_string,_P); -#else - else if(HFlag !=0) { - puts("For using Hodge-DB-routines set POLY_Dmax=4!"); exit(0);} -#endif - else if(*dbin&&!*polyo) Add_Polya_2_DBi(dbin,polya,dbout); else if(*dbout) Polyi_2_DBo(polyi,dbout); else if(*polya) Add_Polya_2_Polyi(polyi,polya,polyo); diff -Nru palp-2.12/Coord.c palp-2.20/Coord.c --- palp-2.12/Coord.c 2020-08-12 12:27:56.000000000 +0000 +++ palp-2.20/Coord.c 2020-10-07 09:16:21.000000000 +0000 @@ -110,13 +110,14 @@ if (codim > 1){ printf("Please increase POLY_Dmax to at least %d = %d + %d - 1\n", (polyDim + codim - 1), polyDim, codim); - puts("(nef.x requires POLY_Dmax >= dim N + codim - 1)");} + printf("(POLY_Dmax >= dim N + codim - 1 is required)\n");} else printf("Please increase POLY_Dmax to at least %d\n", polyDim); exit(0); }} else if (POLY_Dmax < polyDim +1){ printf("Please increase POLY_Dmax to at least %d = %d + 1\n", (polyDim + 1), polyDim); - puts("(nef.x -G requires POLY_Dmax >= dim(cone) = dim(support) + 1)"); + printf("(option -G requires POLY_Dmax >= dim(cone) = dim(support) + 1)\n" + ); exit(0);} } @@ -205,7 +206,7 @@ { Long sum = _CW->d[i] * index, *w = _CW->W[i]; for(j=0;j<_CW->N;j++) { assert(w[j]>=0); sum-=w[j]; } if((sum)&&(index==1)){ - printf("Use poly.x -l for (single) WeightSystems with "); + printf("Use option -l for (single) WeightSystems with "); printf("d!=\\sum(w)\n(only Read_Weight makes the correct "); puts("PolyPointList in that case)"); exit(0);} } @@ -325,10 +326,12 @@ MAP: for(i=0;i<_CW->nw;i++) /* check consistency of CWS */ { Long sum=_CW->d[i], *w=_CW->W[i]; for(j=0;j<_CW->N;j++) { assert(w[j]>=0); sum-=w[j]; } - if(sum){ printf("Use poly.x -w for (single) WeightSystems with "); - printf("d!=\\sum(w)\n(only Read_Weight makes the correct "); - puts("PolyPointList in that case)"); exit(0);} - } + if(sum){ /*printf("Use poly.x -w for (single) WeightSystems with "); + printf("d!=\\sum(w)\n(only Read_Weight makes the correct "); + puts("PolyPointList in that case)"); exit(0);*/ + printf("cannot handle (single) WeightSystems with "); + printf("d!=\\sum(w)\n"); + exit(0);}} _CW->nz=0; if(!Read_CWS_Zinfo(inFILE,_CW)) /* read Z to EOL */ { if(!InputOK) puts("-h gives you help\n"); return 0;} diff -Nru palp-2.12/cws.c palp-2.20/cws.c --- palp-2.12/cws.c 2020-08-17 12:44:28.000000000 +0000 +++ palp-2.20/cws.c 2020-10-07 09:39:49.000000000 +0000 @@ -13,13 +13,11 @@ typedef struct { int u[NFmax]; int nu; } CWS_type; -#define OSL (26) /* opt_string's length */ +#define OSL (24) /* opt_string's length */ -void PrintCWSUsage(){ +void PrintCWSUsage(char *c){ int i; char *opt_string[OSL]={ -"This is `cws.x': create weight systems and combined weight systems.", -"Usage: cws.x -; the first option must be -w, -c, -i, -d or -h.", "Options: -h print this information", " -f use as filter; otherwise parameters denote I/O files", " -w# [L H] make IP weight systems for #-dimensional polytopes.", @@ -45,6 +43,10 @@ " -2 adjoin a weight of 1/2 to the input weight system.", " -N make CWS for PPL in N lattice." }; + printf("This is `%s': ", c); + puts("create weight systems and combined weight systems."); + printf("Usage: %s -; ", c); + puts("the first option must be -w, -c, -i, -d or -h."); for (i=0;i Wed, 21 Oct 2020 21:30:48 +0200 + palp (2.12-1) unstable; urgency=medium * New upstream release. diff -Nru palp-2.12/E_Poly.c palp-2.20/E_Poly.c --- palp-2.12/E_Poly.c 2020-08-06 13:46:26.000000000 +0000 +++ palp-2.20/E_Poly.c 2020-10-07 09:20:05.000000000 +0000 @@ -1419,7 +1419,7 @@ if (POLY_Dmax < _P->n + 1){/* only relevant if index == 1 */ printf("Please increase POLY_Dmax to at least %d = %d + 1\n", (_P->n + 1), _P->n); - puts("(nef.x -G requires POLY_Dmax >= dim(cone) = dim(support) + 1)"); + printf("(POLY_Dmax >= dim(cone) = dim(support) + 1 required)\n"); assert(*_codim == 1); exit(0);} /* Print_PPL(_P, "_P before sorting");fflush(0); */ diff -Nru palp-2.12/GNUmakefile palp-2.20/GNUmakefile --- palp-2.12/GNUmakefile 2020-05-21 09:54:07.000000000 +0000 +++ palp-2.20/GNUmakefile 2020-10-07 14:28:24.000000000 +0000 @@ -32,23 +32,27 @@ clean: ; rm -f *.o -cleanall: ; rm -f *.o *.x core +cleanall: ; rm -f *.o *.x palp_* core poly: poly.o $(OBJECTS) LG.o Global.h LG.h $(CC) $(CFLAGS) $(CPPFLAGS) $(LDFLAGS) -o poly.x poly.o $(OBJECTS) LG.o class: class.o $(OBJECTS) $(CLASS_OBJ) Global.h Subpoly.h - $(CC) $(CFLAGS) $(CPPFLAGS) $(LDFLAGS) -o class.x class.o $(OBJECTS) $(CLASS_OBJ) + $(CC) $(CFLAGS) $(CPPFLAGS) $(LDFLAGS) -o class.x \ + class.o $(OBJECTS) $(CLASS_OBJ) cws: cws.o $(OBJECTS) LG.o Global.h LG.h - $(CC) $(CFLAGS) $(CPPFLAGS) $(LDFLAGS) -o cws.x cws.o $(OBJECTS) LG.o + $(CC) $(CFLAGS) $(CPPFLAGS) $(LDFLAGS) -o cws.x \ + cws.o $(OBJECTS) LG.o nef: nef.o $(OBJECTS) $(NEF_OBJ) Global.h - $(CC) $(CFLAGS) $(CPPFLAGS) $(LDFLAGS) -o nef.x nef.o $(OBJECTS) $(NEF_OBJ) + $(CC) $(CFLAGS) $(CPPFLAGS) $(LDFLAGS) -o nef.x \ + nef.o $(OBJECTS) $(NEF_OBJ) mori: mori.o $(OBJECTS) $(MORI_OBJ) LG.o Mori.h - $(CC) $(CFLAGS) $(CPPFLAGS) $(LDFLAGS) -o mori.x mori.o $(OBJECTS) $(MORI_OBJ) LG.o + $(CC) $(CFLAGS) $(CPPFLAGS) $(LDFLAGS) -o mori.x \ + mori.o $(OBJECTS) $(MORI_OBJ) LG.o @@ -74,21 +78,3 @@ cws.o: Global.h LG.h Rat.h nef.o: Global.h Nef.h LG.h mori.o: Global.h LG.h Mori.h - - - -# experimental stuff ... -# -#bpoly: bpoly.o Global.h $(OBJECTS) -# $(CC) $(CFLAGS) -o bpoly.x bpoly.o $(OBJECTS) - -#bpoly.o: bpoly.c Global.h - -#vnl: vnl.o $(OBJECTS) Global.h -# $(CC) $(CFLAGS) -o vnl.x vnl.o $(OBJECTS) - -#vnl.o: vnl.c Global.h - -#gen: gen.o $(OBJECTS) $(NEF_OBJ) Global.h -# $(CC) $(CFLAGS) -o gen.x gen.o $(OBJECTS) $(NEF_OBJ) -#gen.o: gen.c diff -Nru palp-2.12/mori.c palp-2.20/mori.c --- palp-2.12/mori.c 2012-05-07 16:44:40.000000000 +0000 +++ palp-2.20/mori.c 2020-10-07 09:21:42.000000000 +0000 @@ -20,7 +20,7 @@ FILE *inFILE, *outFILE; void PrintUsage(char *c){ - printf("This is ``mori.x'': star triangulations of a polytope P* in N\n"); + printf("This is ``%s'': star triangulations of a polytope P* in N\n",c); printf(" Mori cone of the corresponding toric ambient spaces\n"); printf(" intersection rings of embedded (CY) hypersurfaces\n"); printf("Usage: %s [-] [in-file [out-file]]\n", c); @@ -181,7 +181,8 @@ if (POLY_Dmax < (_P->np - _P->n)){ printf("Please increase POLY_Dmax to at least %d = %d - %d - 1\n", (_P->np - _P->n -1), _P->np, _P->n); - puts("(mori.x -M requires POLY_Dmax >= #(points) - dim N -1)"); + printf("(%s -M requires POLY_Dmax >= #(points) - dim N -1)\n", + fn[0]); exit(0); } } HyperSurfDivisorsQ(_P,&V,E,&Flag); fflush(outFILE); } diff -Nru palp-2.12/MoriCone.c palp-2.20/MoriCone.c --- palp-2.12/MoriCone.c 2020-08-18 13:41:33.000000000 +0000 +++ palp-2.20/MoriCone.c 2020-10-07 09:27:28.000000000 +0000 @@ -1184,7 +1184,8 @@ return; } else if((P->n!=4)||(p>v+3)) { - puts("P* requires triangulation. `mori.x' can triangulate only 4-polytopes"); + printf("P* requires triangulation. The present routinwes can "); + puts("triangulate only 4-polytopes"); puts("with up to 3 points that are neither vertices nor interior to P* or"); puts("a facet. Use option `-M' for providing a triangulation as input."); exit(1);} diff -Nru palp-2.12/nef.c palp-2.20/nef.c --- palp-2.12/nef.c 2012-04-17 14:23:02.000000000 +0000 +++ palp-2.20/nef.c 2020-10-07 09:29:10.000000000 +0000 @@ -286,7 +286,8 @@ if (POLY_Dmax < (_P->n + codim - 1)){ printf("Please increase POLY_Dmax to at least %d = %d + %d - 1\n", (_P->n + codim - 1), _P->n, codim); - puts("(nef.x requires POLY_Dmax >= dim N + codim - 1)"); + printf("(%s requires POLY_Dmax >= dim N + codim - 1)\n", + fn[0]); exit(0); } Make_E_Poly(outFILE, &CW, _P, _V, _E, &codim, &F, &D[0]); } else{ diff -Nru palp-2.12/poly.c palp-2.20/poly.c --- palp-2.12/poly.c 2020-08-12 12:28:03.000000000 +0000 +++ palp-2.20/poly.c 2020-08-26 09:57:45.000000000 +0000 @@ -9,7 +9,6 @@ * Rat rational functions * Vertex computes Vertices and Faces * Polynf normal form and symmetries - * -> class.x */ #include "Global.h" diff -Nru palp-2.12/Polynf.c palp-2.20/Polynf.c --- palp-2.12/Polynf.c 2020-08-06 13:13:24.000000000 +0000 +++ palp-2.20/Polynf.c 2020-10-07 09:31:01.000000000 +0000 @@ -1046,7 +1046,7 @@ { Long *Z=P->x[0],*N[4*VERT_Nmax]; int i,j,n=0; assert(P->n==4); for(i=0;inv;i++){ if (V->v[i] >= V->nv) - puts("Please do not use weight input with 'poly.x -C2'!"); + printf("Please do not use weight input with option '-C2'!\n"); assert(V->v[i]nv);} for(i=V->nv;inp;i++){Long *X=P->x[i]; if((X[0]-Z[0])%2==0) if((X[1]-Z[1])%2==0)if((X[2]-Z[2])%2==0)if((X[3]-Z[3])%2==0) N[n++]=X;} @@ -1200,7 +1200,7 @@ h12=1+ndpt-rk-py, /* 1 + doublePts - rk - facetIP(\D')=pyramid */ vol=LatVol_Barycent(P,V,xB,&xN); if (0!=vol%16) - puts ("poly.x -C2 requires polytopes divisible by 2 as input!"); + printf("option '-C2' requires polytopes divisible by 2 as input!\n"); assert(0==vol%16);vol/=16; /* degree */ if((PIC==0)||(PIC==pic)) /* restrict output to PIC=pic */ { printf("pic=%d deg=%2d h12=%2d rk=%d #sq=%d ",pic,vol,h12,rk,nsq); @@ -1253,7 +1253,7 @@ Sort_VL(V); for(i=0;inv;i++){ if (V->v[i] >= V->nv) - puts("Please do not use weight input with 'poly.x -E'!"); + printf("Please do not use weight input with option '-E'!\n"); assert(V->v[i]nv);} if(NR) for(i=0;ine;i++) d[i]=E->e[i].c; LatVol_Barycent(P,V,C,&N);bcz=(N==0);if(bcz)bary++;/*BaryCenterZero*/ diff -Nru palp-2.12/Subadd.c palp-2.20/Subadd.c --- palp-2.12/Subadd.c 2020-08-06 12:35:01.000000000 +0000 +++ palp-2.20/Subadd.c 2020-10-07 09:35:40.000000000 +0000 @@ -1381,7 +1381,7 @@ VertexNumList V; EqList F; assert(_NFL!=NULL); if(!(*polyo)) { puts("You have to specify an output file via -po in -a-mode!\n"); - puts("For more help type `class.x -h'\n"); + printf("For more help use option '-h'\n"); exit(0);} _NFL->of=0; _NFL->rf=0; _NFL->iname=polyi; _NFL->oname=polyo; _NFL->dbname=dbin; diff -Nru palp-2.12/Subdb.c palp-2.20/Subdb.c --- palp-2.12/Subdb.c 2020-08-06 12:45:07.000000000 +0000 +++ palp-2.20/Subdb.c 2020-10-07 09:36:27.000000000 +0000 @@ -1759,7 +1759,8 @@ assert(_L!=NULL); if(!(*polyo)) { puts("You have to specify an output file via -po in -sv-mode."); - puts("For more help type `class.x -h'"); exit(0);} + printf("For more help use option `-h'\n"); + exit(0);} _L->of=0; _L->rf=0; _L->iname=polyi; _L->oname=polyo; _L->dbname=dbin; Init_NF_List(_L); _L->SL=0; while(Read_H_poly_from_DB_or_inFILE(DB,_P)) diff -Nru palp-2.12/Subpoly.c palp-2.20/Subpoly.c --- palp-2.12/Subpoly.c 2020-08-06 12:55:24.000000000 +0000 +++ palp-2.20/Subpoly.c 2020-10-07 09:37:48.000000000 +0000 @@ -809,7 +809,7 @@ assert(_NFL!=NULL); if(!(*polyo)) { puts("You have to specify an output file via -po in -a-mode!\n"); - puts("For more help type `class.x -h'\n"); + printf("For more help type use option `-h'\n"); exit(0);} _NFL->of=0; _NFL->rf=0; _NFL->iname=polyi; _NFL->oname=polyo; _NFL->dbname=dbin; @@ -843,7 +843,8 @@ time_t W_SAVE_TIME=time(NULL); if(!(*polyo)) { puts("You have to specify an output file via -po!\n"); - puts("For more help type `class.x -h'\n"); exit(0);} + printf("For more help use option '-h'\n"); + exit(0);} assert(_NFL!=NULL); _NFL->of=oFlag; _NFL->rf=rFlag; _NFL->kf=kFlag; _NFL->iname=polyi; _NFL->oname=polyo; _NFL->dbname=dbin; Init_NF_List(_NFL); @@ -1128,7 +1129,7 @@ assert(_NFL!=NULL); if(!(*polyo)) { puts("You have to specify an output file via -po in -sm-mode."); - puts("For more help type `class.x -h'"); + printf("For more help use option `-h'\n"); exit(0);} _NFL->of=0; _NFL->rf=0; _NFL->iname=polyi; _NFL->oname=polyo; _NFL->dbname=dbin;