Return to trans.hh CVS log | Up to [local] / OpenXM / src / kan96xx / trans |
1.1 ! takayama 1: /* $OpenXM$ */ ! 2: else if (strcmp(key,"treeToPolymake") == 0) { ! 3: if (size != 2) errorKan1("%s\n","[(treeToPolymake) obj] extension stro."); ! 4: obj1 = getoa(obj,1); ! 5: if (obj1.tag != Sclass) { ! 6: errorKan1("%s\n","[(treeToPolymake) obj] extension stro."); ! 7: } ! 8: rob = KtreeToPolymakeS(obj1); ! 9: }