Changeset cb83c1 in git

Timestamp:

Aug 8, 2008, 12:54:50 PM (15 years ago)

Author:

Thomas Markwig <keilen@…>

Branches:

(u'spielwiese', 'a7324b6e0b44a1a8ed3fa4d9ca3e2ff210ddd52c')

Children:

9cb273d69977c6dfe8b9fdb37ec1893193b953c7

Parents:

90203a90e070f1fa64b3e7012c9d1f4ef0992f60

Message:

procedure cleanTmp added and made sure that tex-files are partly removed after leaving procedures


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

File:

• Singular/LIB/tropical.lib (modified) (9 diffs)

Singular/LIB/tropical.lib

@@ -1 @@
-version="$Id: tropical.lib,v 1.5 2008-08-07 15:52:58 keilen Exp $";
+version="$Id: tropical.lib,v 1.6 2008-08-08 10:54:50 keilen Exp $";
 category="Tropical Geometry";
 info="
@@ -110 +110 @@
      tropcialSubst(poly,int,list)     computes the tropical polynomial of poly with certain substitutions 
      randomPoly(int,int,int)          computes a polynomial with random coefficients
+     cleanTmp()                       removes the latex and ps files from /tmp created by other procedures
 
 KEYWORDS:        tropical curves; tropical polynomials
@@ -1180 +1181 @@
              the basering must have a global monomial ordering, two variables and up to one parameter!
 RETURN:      NONE
-NOTE:        - the procedure produces the files /tmp/tropicalcurveNUMBER.tex, /tmp/tropicalcurveNUMBER.dvi and 
+NOTE:        - the procedure produces the files /tmp/tropicalcurveNUMBER.tex and 
                /tmp/tropicalcurveNUMBER.ps, where NUMBER is a random four digit integer; 
                moreover it displays the tropical curve defined by f via kghostview;
+               if you wish to remove all these files from /tmp, call the procedure cleanTmp
 @*           - edges with multiplicity greater than one carry this multiplicity
 @*           - if # is empty, then the tropical curve is computed w.r.t. minimum, if #[1] is the
@@ -1304 +1306 @@
     int rdnum=random(1000,9999);
     write(":w /tmp/tropicalcurve"+string(rdnum)+".tex",TEXBILD);
-    system("sh","cd /tmp; latex /tmp/tropicalcurve"+string(rdnum)+".tex; dvips /tmp/tropicalcurve"+string(rdnum)+".dvi -o; kghostview tropicalcurve"+string(rdnum)+".ps &");  
+    system("sh","cd /tmp; latex /tmp/tropicalcurve"+string(rdnum)+".tex; dvips /tmp/tropicalcurve"+string(rdnum)+".dvi -o; /bin/rm tropicalcurve"+string(rdnum)+".log;  /bin/rm tropicalcurve"+string(rdnum)+".aux;  /bin/rm tropicalcurve"+string(rdnum)+".ps?;  /bin/rm tropicalcurve"+string(rdnum)+".dvi; kghostview tropicalcurve"+string(rdnum)+".ps &");  
   }
   else
@@ -1336 +1338 @@
 RETURN:   NONE
 NOTE:     - the procedure produces the files /tmp/newtonsubdivisionNUMBER.tex, 
-            /tmp/newtonsubdivisionNUMBER.dvi and /tmp/newtonsubdivisionNUMBER.ps, 
-            where NUMBER is a random four digit integer; 
+            and /tmp/newtonsubdivisionNUMBER.ps, where NUMBER is a random four digit integer; 
             moreover it desplays the tropical curve defined by f via kghostview;
+            if you wish to remove all these files from /tmp, call the procedure cleanTmp
 @*          if # is empty, then the tropical curve is computed w.r.t. minimum, if #[1] is the
             string 'max', then it is computed w.r.t. maximum 
@@ -1395 +1397 @@
   int rdnum=random(1000,9999);
   write(":w /tmp/newtonsubdivision"+string(rdnum)+".tex",TEXBILD);
-  system("sh","cd /tmp; latex /tmp/newtonsubdivision"+string(rdnum)+".tex; dvips /tmp/newtonsubdivision"+string(rdnum)+".dvi -o; kghostview newtonsubdivision"+string(rdnum)+".ps &");  
+  system("sh","cd /tmp; latex /tmp/newtonsubdivision"+string(rdnum)+".tex; dvips /tmp/newtonsubdivision"+string(rdnum)+".dvi -o; /bin/rm newtonsubdivision"+string(rdnum)+".log;  /bin/rm newtonsubdivision"+string(rdnum)+".aux;  /bin/rm newtonsubdivision"+string(rdnum)+".ps?;  /bin/rm newtonsubdivision"+string(rdnum)+".dvi; kghostview newtonsubdivision"+string(rdnum)+".ps &");  
 //  return(TEXBILD);
 }
@@ -3119 +3121 @@
 }
 
+proc cleanTmp ()
+"USAGE:  cleanTmp()
+PURPOSE: some procedures create latex and ps-files in the directory /tmp;
+         in order to remove them simply call cleanTmp();
+RETURN:  none"
+{
+  system("sh","cd /tmp; /bin/rm -f tropicalcurve*; /bin/rm -f tropicalnewtonsubdivision*");  
+}
 
 /////////////////////////////////////////////////////////////////////////////////
@@ -3938 +3948 @@
     export(PARA);
   }
+  // kill the gfan files in /tmp
+  system("sh","cd /tmp; /bin/rm gfaninput; /bin/rm gfanoutput");  
   // we return a list which contains the parametrisation ring (with the parametrisation ideal)
   // and the string representing the maximal ideal describing the necessary field extension
@@ -4891 +4903 @@
     kill TRRING;
   }
+  // kill the gfan files in /tmp
+  system("sh","cd /tmp; /bin/rm gfaninput; /bin/rm gfanoutput");  
   // we return a list which contains lists of the parametrisation rings (with the parametrisation ideal)
   // and an integer N such that t should be replaced by t^1/N