Changeset fca547 in git for Singular/syz1.cc

Timestamp:

Apr 3, 1998, 7:38:45 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5480dab448af565abfd5b8f28e1766de56df7613

Parents:

36ff0ee47861d9c243c573d5f915206fde045c9b

Message:

*** empty log message ***


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

File:

• Singular/syz1.cc (modified) (2 diffs)

Singular/syz1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: syz1.cc,v 1.23 1998-04-01 19:01:42 Singular Exp $ */
+/* $Id: syz1.cc,v 1.24 1998-04-03 17:38:45 Singular Exp $ */
 /*
 * ABSTRACT: resolutions
@@ -2265 +2265 @@
   }
   Free((ADDRESS)fr,(result->length)*sizeof(ideal));
+  return result;
+}
+
+syStrategy syMakeResolution(resolvente r, int length, 
+           intvec ** weights)
+{
+  syStrategy result=(syStrategy)Alloc0(sizeof(ssyStrategy));
+
+  length = max(length,0);
+  int i=0;
+  
+  while (i<length)
+  {
+    if (r[i]!=NULL)
+    {
+      if (i!=0)
+      {
+        int rank=IDELEMS(r[i-1]);
+        if (idIs0(r[i-1]))
+        {
+          idDelete(&(r[i]));
+          r[i]=idFreeModule(rank);
+        }
+        else
+        {
+          r[i]->rank=max(rank,idRankFreeModule(r[i]));
+        }
+        idSkipZeroes(r[i]);
+      }
+    }
+    else
+    {
+      // should not happen:
+      Warn("internal NULL in resolvente");
+      r[i]=idInit(1,1);
+    }
+    i++;
+  }
+  result->fullres = r;
+  result->length = length;
   return result;
 }