[BACK]Return to tree2polymake.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / trans

Diff for /OpenXM/src/kan96xx/trans/tree2polymake.c between version 1.2 and 1.3

version 1.2, 2005/07/03 11:08:54 version 1.3, 2013/09/20 05:12:24
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/trans/tree2polymake.c,v 1.1 2003/11/24 08:16:13 takayama Exp $ */  /* $OpenXM: OpenXM/src/kan96xx/trans/tree2polymake.c,v 1.2 2005/07/03 11:08:54 ohara Exp $ */
 #include <stdio.h>  #include <stdio.h>
 #include <string.h>  #include <string.h>
 #include "../Kan/datatype.h"  #include "../Kan/datatype.h"
Line 61  int arrayToPolymakeS(struct object ob,FILE2 *fp,int fo
Line 61  int arrayToPolymakeS(struct object ob,FILE2 *fp,int fo
       if (ob1.tag == Sarray) {        if (ob1.tag == Sarray) {
         r=(arrayToPolymakeS(ob1,fp,format)<0?-1:r);          r=(arrayToPolymakeS(ob1,fp,format)<0?-1:r);
       }else{        }else{
         r=(integerToPolymakeS(ob1,fp)<0?-1:r);          r=(rationalToPolymakeS(ob1,fp)<0?-1:r);
         if (i != n-1) fp2fputc(' ',fp);          if (i != n-1) fp2fputc(' ',fp);
       }        }
     }      }
Line 75  int arrayToPolymakeS(struct object ob,FILE2 *fp,int fo
Line 75  int arrayToPolymakeS(struct object ob,FILE2 *fp,int fo
         r=(arrayToPolymakeS(ob1,fp,format)<0?-1:r);          r=(arrayToPolymakeS(ob1,fp,format)<0?-1:r);
         if (i==n-1) fp2fputc('}',fp);          if (i==n-1) fp2fputc('}',fp);
       }else{        }else{
         r=(integerToPolymakeS(ob1,fp)<0?-1:r);          r=(rationalToPolymakeS(ob1,fp)<0?-1:r);
         if (i != n-1) fp2fputc(' ',fp);          if (i != n-1) fp2fputc(' ',fp);
       }        }
     }      }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>