Changeset e070895 in git

Timestamp:

Oct 6, 2009, 11:32:54 AM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

16a86e2831249582a4e9cc321c76313bad539fdd

Parents:

3e96c5dc8f5e261b746d32bb4d985ec8def80154

Message:

*hannes; idInsertPoly


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

Location:

kernel

Files:

• ideals.cc (modified) (4 diffs)
• ideals.h (modified) (2 diffs)

kernel/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.79 2009-09-29 10:36:23 Singular Exp $ */
+/* $Id: ideals.cc,v 1.80 2009-10-06 09:32:54 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -70 +70 @@
 }
 
-//#ifndef __OPTIMIZE__
-// this is mainly for outputting an ideal within the debugger & DetailedPrint
+#ifndef __OPTIMIZE__
+// this is only for outputting an ideal within the debugger
 void idShow(const ideal id, const ring lmRing, const ring tailRing, const int debugPrint)
 {
@@ -91 +91 @@
   }
 }
-//#endif
+#endif
 
 /*2
@@ -541 +541 @@
 
 /*2
+* concat h1 and h2
+*/
+void idInsertPoly (ideal h1,poly h2)
+{
+  if (h2==NULL) return;
+  int j = IDELEMS(h1)-1;
+  while ((j >= 0) && (h1->m[j] == NULL)) j--;
+  j++;
+  if (j==IDELEMS(h1))
+  {
+    pEnlargeSet(&(h1->m),IDELEMS(h1),16);
+    IDELEMS(h1)+=16;
+  }
+  h1->m[j]=h2;
+}
+
+/*2
 * h1 + h2
 */

kernel/ideals.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.h,v 1.14 2009-07-20 12:00:50 motsak Exp $ */
+/* $Id: ideals.h,v 1.15 2009-10-06 09:32:54 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -55 +55 @@
   /*adds the quotient ideal*/
 ideal idAdd (ideal h1,ideal h2);
+  /* h1 + h2 */
+void idInsertPoly (ideal h1,poly h2);
   /* h1 + h2 */
 ideal idMult (ideal h1,ideal h2);