| version 1.1, 2003/11/24 08:16:13 |
version 1.3, 2013/09/20 05:12:24 |
|
|
| /* $OpenXM$ */ |
/* $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 "../Kan/datatype.h" |
#include "../Kan/datatype.h" |
| #include "../Kan/stackm.h" |
#include "../Kan/stackm.h" |
| #include "../Kan/extern.h" |
#include "../Kan/extern.h" |
| Line 60 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 74 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); |
| } |
} |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to tree2polymake.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / trans