| version 1.1, 2000/01/07 22:53:42 |
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[]) { |
+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]); |
| + }else{ |
+ }else{ |