===================================================================
RCS file: /home/cvs/OpenXM/src/tigers/tigers.patch,v
retrieving revision 1.2
retrieving revision 1.6
diff -u -p -r1.2 -r1.6
--- OpenXM/src/tigers/tigers.patch	2000/03/23 13:20:54	1.2
+++ OpenXM/src/tigers/tigers.patch	2021/11/16 07:09:46	1.6
@@ -1,16 +1,28 @@
+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	2020-11-01 10:49:33.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
---- 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.orig/NOTE.txt	1970-01-01 09:00:00.000000000 +0900
++++ TiGERS_0.9/NOTE.txt	2020-11-01 10:49:33.000000000 +0900
 @@ -0,0 +1 @@
 +This is a working directory by NT.  1999, 6/26.
 diff -urN TiGERS_0.9.orig/README.change TiGERS_0.9/README.change
---- TiGERS_0.9.orig/README.change	Thu Jan  1 09:00:00 1970
-+++ TiGERS_0.9/README.change	Sat Jan  8 07:46:11 2000
+--- TiGERS_0.9.orig/README.change	1970-01-01 09:00:00.000000000 +0900
++++ TiGERS_0.9/README.change	2020-11-01 10:49:33.000000000 +0900
 @@ -0,0 +1 @@
 +The original source code of TiGERS is in OpenXM_contib/TiGERS_0.9.
 diff -urN TiGERS_0.9.orig/binomial.c TiGERS_0.9/binomial.c
---- TiGERS_0.9.orig/binomial.c	Sat Jan  8 07:42:43 2000
-+++ TiGERS_0.9/binomial.c	Sat Jan  8 07:43:41 2000
+--- TiGERS_0.9.orig/binomial.c	1999-06-12 07:05:51.000000000 +0900
++++ TiGERS_0.9/binomial.c	2020-11-01 10:49:33.000000000 +0900
 @@ -12,7 +12,7 @@
  #include<stdlib.h>
  #include "utils.h"
@@ -94,8 +106,8 @@ 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
---- TiGERS_0.9.orig/call.c	Sat Jan  8 07:42:43 2000
-+++ TiGERS_0.9/call.c	Sat Jan  8 07:43:41 2000
+--- TiGERS_0.9.orig/call.c	1999-06-12 07:05:52.000000000 +0900
++++ TiGERS_0.9/call.c	2020-11-01 10:49:33.000000000 +0900
 @@ -15,6 +15,8 @@
  #include "gset.h"
  #include "matrices.h"
@@ -105,6 +117,15 @@ diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c
  /*
  ** 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 @@
  
  #define MATFOUND 1
@@ -114,7 +135,18 @@ diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c
   char *c,cc, *prog=argv[0], *ifname=0, *ofname=0;
   int tmp,acnt,stat=0,counter;
   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 @@
     }
    }
  
@@ -144,7 +176,7 @@ diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c
    /* output first GB if desired */
    fprintf(outfile,"%% starting GB:\n");
    fprintf(outfile,"R: %d\n",ring_N);
-@@ -314,15 +339,119 @@
+@@ -314,15 +343,119 @@
      return 0;
      }
    }
@@ -203,20 +235,20 @@ diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c
 +  
 +  return M;
 +}
- 
++
 +tiger_executeString_M(char *is) {
 +  char *c,cc, *prog="tigers", *ifname=0, *ofname=0;
 +  int tmp,acnt,stat=0,counter;
 +  gset G1=0,gset_toric_ideal();
 +  int **M=0,Mn,Mm;
 +  double tt;
- 
++
 +  /* initialize parameters */
 +  root_only=FALSE;
 +  rsearch_cache=TRUE;
 +  print_tree=FALSE;
 +  print_init=FALSE;
- 
++
 +  if ((M=imatrix_read_from_string(is,&Mm,&Mn))==0){
 +     fprintf(stderr,"%s: imatrix_read() failed\n",prog);
 +     exit(1);      
@@ -250,13 +282,13 @@ diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c
 +      fprintf(outfile,"\n");
 +    }
 +  }
-+
+ 
 +  fprintf(outfile,"]\n");
 +  LP_free_space();
 +  if (G1!=0) gset_free(G1);
 +}
-+
-+
+ 
+ 
 +main(int argc, char *argv[]) { infile=stdin; outfile=stdout;
 +  if (argc > 1) {
 +    tiger_executeString_M(argv[1]);
@@ -265,8 +297,8 @@ diff -urN TiGERS_0.9.orig/call.c TiGERS_0.9/call.c
 +  }
 +}
 diff -urN TiGERS_0.9.orig/gset.c TiGERS_0.9/gset.c
---- TiGERS_0.9.orig/gset.c	Sat Jan  8 07:42:43 2000
-+++ TiGERS_0.9/gset.c	Sat Jan  8 07:43:41 2000
+--- TiGERS_0.9.orig/gset.c	1999-06-12 07:05:51.000000000 +0900
++++ TiGERS_0.9/gset.c	2020-11-01 10:49:33.000000000 +0900
 @@ -13,6 +13,7 @@
  #include "gset.h"
  #include "matrices.h"
@@ -302,9 +334,36 @@ diff -urN TiGERS_0.9.orig/gset.c TiGERS_0.9/gset.c
  }
  
  /*
+diff -urN TiGERS_0.9.orig/gset.h TiGERS_0.9/gset.h
+--- TiGERS_0.9.orig/gset.h	1999-06-12 07:05:52.000000000 +0900
++++ TiGERS_0.9/gset.h	2020-11-01 10:59:44.000000000 +0900
+@@ -40,9 +40,17 @@
+ gset gset_toric_ideal(int **,int,int);
+ void gset_rgb(gset g, int (*comp)(monomial,monomial));
+ 
+-
+-
+-
+-
+-
+-
++void binomial_copy(binomial src,binomial dest);
++void vertex_print(gset g1);
++int rsearch(gset g1);
++int exsearch(gset g1);
++void LP_free_space();
++int ring_read(FILE *infile);
++void print_monomial(FILE *of, int *exps);
++int binomial_compair(binomial b1,binomial b2);
++void reducetrail(binomial b1, binomial b2);
++void binomial_bumpto(binomial b1, binomial b2);
++int monomial_rel_prime(monomial m1, monomial m2);
++int lp_isfacet(gset g,binomial b);
++void gset_facet_print(FILE *of,gset g);
++int ihermite(int **S,int **U,int m, int n);
 diff -urN TiGERS_0.9.orig/memo.txt TiGERS_0.9/memo.txt
---- TiGERS_0.9.orig/memo.txt	Thu Jan  1 09:00:00 1970
-+++ TiGERS_0.9/memo.txt	Sat Jan  8 07:43:41 2000
+--- TiGERS_0.9.orig/memo.txt	1970-01-01 09:00:00.000000000 +0900
++++ TiGERS_0.9/memo.txt	2020-11-01 10:49:33.000000000 +0900
 @@ -0,0 +1,33 @@
 +Open XM 化は２とおりの方法があり.  1999, 6/26
 +一つは, 出力をパーサで理解する方法。
@@ -340,8 +399,8 @@ diff -urN TiGERS_0.9.orig/memo.txt TiGERS_0.9/memo.txt
 +---  よい経験になると思う.  この経験をプログラム作法として記録するのは
 +---  大事であろう. のこりは日本でやる.  あとは, 級数解の構成プログラム.
 diff -urN TiGERS_0.9.orig/tigers.c TiGERS_0.9/tigers.c
---- TiGERS_0.9.orig/tigers.c	Sat Jan  8 07:42:43 2000
-+++ TiGERS_0.9/tigers.c	Sat Jan  8 07:43:41 2000
+--- TiGERS_0.9.orig/tigers.c	1999-06-12 07:05:51.000000000 +0900
++++ TiGERS_0.9/tigers.c	2020-11-01 10:49:33.000000000 +0900
 @@ -12,6 +12,7 @@
  #include "utils.h"
  #include "gset.h"
@@ -402,8 +461,8 @@ diff -urN TiGERS_0.9.orig/tigers.c TiGERS_0.9/tigers.c
    
  
 diff -urN TiGERS_0.9.orig/toric.c TiGERS_0.9/toric.c
---- TiGERS_0.9.orig/toric.c	Sat Jan  8 07:42:43 2000
-+++ TiGERS_0.9/toric.c	Sat Jan  8 07:43:41 2000
+--- TiGERS_0.9.orig/toric.c	1999-06-12 07:05:52.000000000 +0900
++++ TiGERS_0.9/toric.c	2020-11-01 10:49:33.000000000 +0900
 @@ -15,7 +15,7 @@
  #include "gset.h"
  #include "matrices.h"
@@ -425,3 +484,27 @@ diff -urN TiGERS_0.9.orig/toric.c TiGERS_0.9/toric.c
  
    /* set lex last variable to be lv */
    lold=ring_lv;
+diff -urN TiGERS_0.9.orig/utils.c TiGERS_0.9/utils.c
+--- TiGERS_0.9.orig/utils.c	1999-06-12 07:05:52.000000000 +0900
++++ TiGERS_0.9/utils.c	2020-11-01 10:59:09.000000000 +0900
+@@ -10,6 +10,7 @@
+ */
+ #include<stdio.h>
+ #include<stdlib.h>
++#include<ctype.h>
+ 
+ int eatwhite(FILE *is){
+  int c;
+
+--- TiGERS_0.9/tigers.c.orig	2021-11-16 11:59:40.619709584 +0900
++++ TiGERS_0.9/tigers.c	2021-11-16 12:00:58.800452127 +0900
+@@ -17,7 +17,7 @@
+ /* 
+ ** Output initial ideals and numbers of facets at each stage.
+ */
+-FILE *outfile;
++extern FILE *outfile;
+ int print_init=TRUE;
+ int print_tree=TRUE;
+ 
+