version 1.2, 2000/03/23 13:20:54 |
version 1.4, 2014/03/29 20:02:25 |
|
|
|
diff -urN TiGERS_0.9.orig/Makefile TiGERS_0.9/Makefile |
|
--- TiGERS_0.9.orig/Makefile 1999-06-12 07:05:52.000000000 +0900 |
|
+++ TiGERS_0.9/Makefile 2014-03-30 04:58:05.000000000 +0900 |
|
@@ -2,7 +2,7 @@ |
|
|
|
# specify compiler and compiler flags |
|
# note to use profiling need -pg option for both compiling and linking |
|
-CC = gcc |
|
+#CC = gcc |
|
CFLAGS = -O3 |
|
|
|
Lib_Dirs = |
diff -urN TiGERS_0.9.orig/NOTE.txt TiGERS_0.9/NOTE.txt |
diff -urN TiGERS_0.9.orig/NOTE.txt TiGERS_0.9/NOTE.txt |
--- TiGERS_0.9.orig/NOTE.txt Thu Jan 1 09:00:00 1970 |
--- TiGERS_0.9.orig/NOTE.txt Thu Jan 1 09:00:00 1970 |
+++ TiGERS_0.9/NOTE.txt Sat Jan 8 07:43:41 2000 |
+++ TiGERS_0.9/NOTE.txt Sat Jan 8 07:43:41 2000 |
Line 94 diff -urN TiGERS_0.9.orig/binomial.c TiGERS_0.9/binomi |
|
Line 106 diff -urN TiGERS_0.9.orig/binomial.c TiGERS_0.9/binomi |
|
|
|
/* |
/* |
diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c |
diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c |
--- TiGERS_0.9.orig/call.c Sat Jan 8 07:42:43 2000 |
--- TiGERS_0.9.orig/call.c Sat Jun 12 07:05:52 1999 |
+++ TiGERS_0.9/call.c Sat Jan 8 07:43:41 2000 |
+++ TiGERS_0.9/call.c Wed Dec 15 03:06:28 2004 |
@@ -15,6 +15,8 @@ |
@@ -15,6 +15,8 @@ |
#include "gset.h" |
#include "gset.h" |
#include "matrices.h" |
#include "matrices.h" |
Line 105 diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c |
|
Line 117 diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c |
|
/* |
/* |
** write a description of program usage to stderr |
** write a description of program usage to stderr |
*/ |
*/ |
|
@@ -68,7 +70,7 @@ |
|
exit(-1); |
|
} |
|
|
|
-FILE *infile=stdin, *outfile=stdout; |
|
+FILE *infile, *outfile; |
|
extern int rsearch_cache; |
|
extern int print_tree; |
|
extern int print_init; |
@@ -87,7 +89,7 @@ |
@@ -87,7 +89,7 @@ |
|
|
#define MATFOUND 1 |
#define MATFOUND 1 |
Line 114 diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c |
|
Line 135 diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c |
|
char *c,cc, *prog=argv[0], *ifname=0, *ofname=0; |
char *c,cc, *prog=argv[0], *ifname=0, *ofname=0; |
int tmp,acnt,stat=0,counter; |
int tmp,acnt,stat=0,counter; |
gset G1=0,gset_toric_ideal(); |
gset G1=0,gset_toric_ideal(); |
@@ -205,6 +207,29 @@ |
@@ -100,6 +102,10 @@ |
|
print_tree=FALSE; |
|
print_init=FALSE; |
|
|
|
+ /* added by noro */ |
|
+ infile = stdin; |
|
+ outfile = stdout; |
|
+ |
|
/* parse command line */ |
|
while (--argc > 0 && (*++argv)[0] == '-'){ |
|
acnt=0; |
|
@@ -205,6 +211,29 @@ |
} |
} |
} |
} |
|
|
Line 144 diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c |
|
Line 176 diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c |
|
/* output first GB if desired */ |
/* output first GB if desired */ |
fprintf(outfile,"%% starting GB:\n"); |
fprintf(outfile,"%% starting GB:\n"); |
fprintf(outfile,"R: %d\n",ring_N); |
fprintf(outfile,"R: %d\n",ring_N); |
@@ -314,15 +339,119 @@ |
@@ -314,15 +343,119 @@ |
return 0; |
return 0; |
} |
} |
} |
} |
Line 203 diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c |
|
Line 235 diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c |
|
+ |
+ |
+ return M; |
+ return M; |
+} |
+} |
|
+ |
+tiger_executeString_M(char *is) { |
+tiger_executeString_M(char *is) { |
+ char *c,cc, *prog="tigers", *ifname=0, *ofname=0; |
+ char *c,cc, *prog="tigers", *ifname=0, *ofname=0; |
+ int tmp,acnt,stat=0,counter; |
+ int tmp,acnt,stat=0,counter; |
+ gset G1=0,gset_toric_ideal(); |
+ gset G1=0,gset_toric_ideal(); |
+ int **M=0,Mn,Mm; |
+ int **M=0,Mn,Mm; |
+ double tt; |
+ double tt; |
|
+ |
+ /* initialize parameters */ |
+ /* initialize parameters */ |
+ root_only=FALSE; |
+ root_only=FALSE; |
+ rsearch_cache=TRUE; |
+ rsearch_cache=TRUE; |
+ print_tree=FALSE; |
+ print_tree=FALSE; |
+ print_init=FALSE; |
+ print_init=FALSE; |
|
+ |
+ if ((M=imatrix_read_from_string(is,&Mm,&Mn))==0){ |
+ if ((M=imatrix_read_from_string(is,&Mm,&Mn))==0){ |
+ fprintf(stderr,"%s: imatrix_read() failed\n",prog); |
+ fprintf(stderr,"%s: imatrix_read() failed\n",prog); |
+ exit(1); |
+ exit(1); |
Line 250 diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c |
|
Line 282 diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c |
|
+ fprintf(outfile,"\n"); |
+ fprintf(outfile,"\n"); |
+ } |
+ } |
+ } |
+ } |
+ |
|
+ fprintf(outfile,"]\n"); |
+ fprintf(outfile,"]\n"); |
+ LP_free_space(); |
+ LP_free_space(); |
+ if (G1!=0) gset_free(G1); |
+ if (G1!=0) gset_free(G1); |
+} |
+} |
+ |
|
+ |
|
+main(int argc, char *argv[]) { infile=stdin; outfile=stdout; |
+main(int argc, char *argv[]) { infile=stdin; outfile=stdout; |
+ if (argc > 1) { |
+ if (argc > 1) { |
+ tiger_executeString_M(argv[1]); |
+ tiger_executeString_M(argv[1]); |