Changeset 876fc4 in git for Singular/LIB/makedbm.lib

Timestamp:

Dec 15, 1997, 11:35:07 AM (26 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', 'a719bcf0b8dbc648b128303a49777a094b57592c')

Children:

81bde72e991abc306c483aaae7343f49e1acdb6e

Parents:

918ec8a016936f3512445c139a607d8cbb51bdbb

Message:

Modified Files:
	classify.lib makedbm.lib
	small fixes.


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

File:

• Singular/LIB/makedbm.lib (modified) (5 diffs)

Singular/LIB/makedbm.lib

@@ -1 @@
-// $Id: makedbm.lib,v 1.4 1997-11-10 19:18:46 krueger Exp $
+// $Id: makedbm.lib,v 1.5 1997-12-15 10:35:07 krueger Exp $
 //=========================================================================
 //
@@ -10 +10 @@
    dbm_read(l);          read all entries from a DBM-databaes pointed by l
    dbm_getnext(l);       read next entry from a DBM-databaes pointed by l
+
+//=============================================================================
+proc _init()
+{
+  "_init() makedbm started";
+}
 
 //=============================================================================
@@ -35 +41 @@
 proc create_sing_dbm
 {
+// DatenFormat: crk=#; Mu=#; MlrCd=#;
+  string s;
   link l="DBM:rw NFlist";
+
   write(l, "A[k]", "x^(k+1)");
+  s ="crk=1; Mu=k; MlnCd=k;";
+  write(l, "I_A[k]", s);
+
   write(l, "D[k]", "x2y+y^(k-1)");
+  s = "crk=2; Mu=k; MlnCd=1,1,k-3";
+  write(l, "I_D[k]", s);
+
   write(l, "E[6k]", "x3+y^(3*k+1)+a*x*(y^(2*k+1))");
+  s = "crk=2; Mu=6*k; MlnCd=1,2*k,2*k-1";
+  write(l, "I_E[6k]", s);
+
   write(l, "E[6k+1]", "x3+x*(y^(2*k+1))+a*(y^(3*k+2))");
   write(l, "E[6k+2]", "x3+y^(3*k+2)+a*x*(y^(2*k+2))");
@@ -92 +110 @@
   write(l, "T[k,r,s]", "x^k+y^r+z^s+xyz");
 
-//////////////////////////////////////////////////////////////////
-// DatenFormat: crk=#; Mu=#; MlrCd=#;
-string s;
-  s ="crk=1; Mu=k; MlnCd=k;";
-  write(l, "I_A[k]", s);
-  s = "crk=2; Mu=k; MlnCd=1,1,k-3";
-  write(l, "I_D[k]", s);
-  s = "crk=2; Mu=6*k; MlnCd=1,2*k,2*k-1";
-  write(l, "I_E[6k]", s);
   s = "crk=2; Mu=6*k+1; MlnCd=1,2*k,2*k";
   write(l, "I_E[6k+1]", s);
@@ -208 +217 @@
   s = "crk=3; Mu=0;";
   write(l, "I_T[k,r,s]", s);
+  write(l,"VERSION", "1.0");
   close(l);
 }