Changeset afcf7d in git for Singular/LIB

Timestamp:

Aug 7, 1998, 7:33:55 PM (26 years ago)

Author:

Christian Gorze <gorzel@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

aba9c862885ea4eb31512639e30ef28bd4a4e1be

Parents:

b5e952ece42850fa86dda2c0753a40fe91bdb87f

Message:

all.lib  and latex.lib adapted for XSingular


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

Location:

Singular/LIB

Files:

• all.lib (modified) (4 diffs)
• latex.lib (modified) (3 diffs)

Singular/LIB/all.lib

@@ -1 @@
-// $Id: all.lib,v 1.13 1998-07-08 12:09:42 obachman Exp $
+// $Id: all.lib,v 1.14 1998-08-07 17:33:53 gorzel Exp $
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: all.lib,v 1.13 1998-07-08 12:09:42 obachman Exp $";
+version="$Id: all.lib,v 1.14 1998-08-07 17:33:53 gorzel Exp $";
 info="
 LIBRARY:  all.lib   Load all libraries
@@ -15 +15 @@
   homolog.lib   PROCEDURES FOR HOMOLOGICAL ALGEBRA
   inout.lib     PROCEDURES FOR MANIPULATING IN- AND OUTPUT
-  invar.lib     PROCEDURES FOR COMPUTING INVARIANTS OF (C,+)-ACTIONS
+  invar.lib     PROCEDURES FOR COMPUTING INVARIANTS OF (C,+)-ACTIONS 
+  latex.lib     PROCEDURES FOR TYPESET OF SINGULAROBJECTS IN LATEX2E
   matrix.lib    PROCEDURES FOR MATRIX OPERATIONS
   normal.lib    PROCEDURES FOR COMPUTING THE NORMALIZATION
@@ -26 +27 @@
   sing.lib      PROCEDURES FOR SINGULARITIES
   standard.lib  PROCEDURES WHICH ARE ALWAYS LOADED AT START-UP
-  latex.lib     PROCEDURES FOR TYPESET OF SINGULAROBJECTS IN TEX
 ";
 
 ///////////////////////////////////////////////////////////////////////////////
 
+
 LIB "classify.lib";
 LIB "deform.lib";
 LIB "elim.lib";
-LIB "factor.lib";
-LIB "fastsolv.lib";
 LIB "finvar.lib";
 LIB "general.lib";
+LIB "graphics.lib";
 LIB "hnoether.lib";
 LIB "homolog.lib";
 LIB "inout.lib";
 LIB "invar.lib";
+LIB "latex.lib";
 LIB "matrix.lib";
 LIB "normal.lib";
@@ -51 +52 @@
 LIB "ring.lib";
 LIB "sing.lib";
-LIB "latex.lib";
-// LIB "tools.lib";

Singular/LIB/latex.lib

@@ -1 @@
-// $Id: latex.lib,v 1.2 1998-05-20 15:40:07 gorzel Exp $   
+// $Id: latex.lib,v 1.3 1998-08-07 17:33:55 gorzel Exp $   
 //                        1998/04/17
 // author : Christian Gorzel email: gorzelc@math.uni-muenster.de
@@ -1212 +1212 @@
          otherwise append this to file fname.tex; return nothing    
 NOTE:    preceeding ">>" end ending ".tex" may miss in fname;      
-EXAMPLE: example texpoly; shoes an example
+EXAMPLE: example texpoly; shows an example
 "
 { 
@@ -1679 +1679 @@
 ///////////////////////////////////////////////////////////////////////////////
 
+
+proc tktex (def d)
+{
+ // calls appropriate proc from latex lib
+
+ string typeofd =typeof(d);
+ if (typeofd=="int" or typeofd=="string" or typeofd=="resolution" or typeofd=="map" or typeofd =="list"){ return(d);}
+
+ if (typeofd=="intvec" or typeofd == "intmat" or typeofd =="vector" or
+     typeofd=="matrix" or typeofd == "module")   { return(texobj("",d));}
+ if (typeofd=="ring" or typeofd=="qring") { return(texring("",d));}
+ if (typeofd =="ideal") { return(texobj("",d));}
+ if (typeofd=="number" or typeofd=="poly" or typeofd=="ideal")
+                                                 { return(texpoly("",d));}
+ if (typeofd=="link") {return(d);}
+
+}
 /////////////////////////////  PART0 //////////////////////////////////////////