Changeset 69b66ef in git

Timestamp:

Aug 6, 2008, 3:14:56 PM (16 years ago)

Author:

Thomas Markwig <keilen@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

ad8e1b0d640cd2aaf8929e7568cf730da7d7d683

Parents:

769343e17202548eace5e1578ccc64e4f15a0928

Message:

triangulations has been adopted so as to get along with the format of topcom version 0.15.


git-svn-id: file:///usr/local/Singular/svn/trunk@10948 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/polymake.lib (modified) (2 diffs)

Singular/LIB/polymake.lib

@@ -1 @@
-version="$Id: polymake.lib,v 1.3 2008-08-04 15:53:41 keilen Exp $";
+version="$Id: polymake.lib,v 1.4 2008-08-06 13:14:56 keilen Exp $";
 category="Tropical Geometry";
 info="
@@ -797 +797 @@
   system("sh","cd /tmp; points2triangs < triangulationsinput > triangulationsoutput");
   string p2t=read("/tmp/triangulationsoutput"); // takes the result of points2triangs
+  // preprocessing of p2t if points2triangs is version >= 0.15 brings p2t to the format of version 0.14
   string np2t; // takes the triangulations in Singular format
-  // transform the points2triangs output into Singular format
+  for (i=1;i<=size(p2t)-2;i++)
+  {
+    if ((p2t[i]==":") and (p2t[i+1]=="=") and (p2t[i+2]=="["))
+    {
+      np2t=np2t+p2t[i]+p2t[i+1];
+      i=i+3;
+      while (p2t[i]!=":")
+      {
+        i=i+1;
+      }
+    }
+    else
+    {
+      if ((p2t[i]=="]") and (p2t[i+1]==";"))
+      {
+        np2t=np2t+p2t[i+1];
+        i=i+1;
+      }
+      else
+      {        
+        np2t=np2t+p2t[i];
+      }
+    }
+  }
+  if (p2t[size(p2t)-1]=="]")
+  {
+    np2t=np2t+p2t[size(p2t)];
+  }
+  else
+  {
+    if (np2t[size(np2t)]!=";")
+    {      
+      np2t=np2t+p2t[size(p2t)-1]+p2t[size(p2t)];
+    }
+  }
+  p2t=np2t;
+  np2t="";
+  // transform the points2triangs output of version 0.14 into Singular format
   for (i=1;i<=size(p2t);i++)
   {