Changeset 473707b in git

Timestamp:

May 7, 1999, 5:41:40 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')

Children:

0b805883d61d9b98b38be2212be4b53e1137db88

Parents:

0e12840d8e98b957353e63f5ec9b2142b333ba75

Message:

* hannes: jet(matrix,int) introduced
          sdb-fixes for batch mode


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

Files:

• Singular/ideals.cc (modified) (2 diffs)
• Singular/iparith.cc (modified) (2 diffs)
• Singular/tesths.cc (modified) (3 diffs)
• doc/general.doc (modified) (previous)
• doc/reference.doc (modified) (previous)

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.44 1999-05-07 10:11:08 siebert Exp $ */
+/* $Id: ideals.cc,v 1.45 1999-05-07 15:41:32 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -2922 +2922 @@
 {
   ideal r=idInit(IDELEMS(i),i->rank);
+  r->nrows = i-> nrows;
+  //r->ncols = i-> ncols;
+  //r->rank = i-> rank;
   int k;
-  for(k=0; k<IDELEMS(i); k++)
+  for(k=(i->nrows)*(i->ncols)-1;k>=0; k--)
   {
     r->m[k]=pJet(i->m[k],d);

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.146 1999-04-29 11:38:44 Singular Exp $ */
+/* $Id: iparith.cc,v 1.147 1999-05-07 15:41:34 Singular Exp $ */
 
 /*
@@ -2189 +2189 @@
 ,{jjJET_P,     JET_CMD,        VECTOR_CMD,     VECTOR_CMD, INT_CMD PROFILER}
 ,{jjJET_ID,    JET_CMD,        MODUL_CMD,      MODUL_CMD,  INT_CMD PROFILER}
+,{jjJET_ID,    JET_CMD,        MATRIX_CMD,     MATRIX_CMD,  INT_CMD PROFILER}
 ,{jjKBASE2,    KBASE_CMD,      IDEAL_CMD,      IDEAL_CMD,  INT_CMD PROFILER}
 ,{jjKBASE2,    KBASE_CMD,      MODUL_CMD,      MODUL_CMD,  INT_CMD PROFILER}

Singular/tesths.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: tesths.cc,v 1.60 1999-05-03 12:26:59 Singular Exp $ */
+/* $Id: tesths.cc,v 1.61 1999-05-07 15:41:35 Singular Exp $ */
 
 /*
@@ -26 +26 @@
 #include "ipid.h"
 #include "timer.h"
+#include "sdb.h"
 #ifdef HAVE_FACTORY
 #define SI_DONT_HAVE_GLOBAL_VARS
@@ -512 +513 @@
   }
   else
-  if (!feBatch)
-  {
+  {
+    sdb_flags = 0;
+    if (!feBatch)
+    {
 #ifdef __MWERKS__
-    memcpy(stderr,stdout,sizeof(FILE));
+      memcpy(stderr,stdout,sizeof(FILE));
 #else
-    dup2(1,2);
-#endif
+      dup2(1,2);
+#endif
+    }
   }
   slStandardInit();