Changeset bd2b93 in git for Singular/extra.cc

Timestamp:

Jul 12, 1999, 1:05:57 PM (25 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

0a5f342e03dda534e299aecb4e831f39b5569cd7

Parents:

a86bd56f61fbcd8c253ba5bc70325f291651b90a

Message:

exclude barstep


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.95 1999-07-08 10:18:07 wenk Exp $ */
+/* $Id: extra.cc,v 1.96 1999-07-12 11:05:57 pohl Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -658 +658 @@
     else
 #endif
-/*==================== barstep =============================*/
-    if(strcmp(sys_cmd,"barstep")==0)
-    {
-      if ((h!=NULL) &&(h->Typ()==MATRIX_CMD))
-      {
-        if (h->next!=NULL)
-        {
-          if (h->next->Typ()!=POLY_CMD)
-          {
-            Warn("Wrong types for barstep(matrix,poly)");
-          }
-        }
-        int r,c;
-        poly div=(poly)h->next->Data();
-        res->rtyp=MATRIX_CMD;
-        res->data=(void *)mpOneStepBareiss((matrix)h->Data(),
-                                           &div,&r,&c);
-        PrintS("div: ");pWrite(div);
-        Print("rows: %d, cols: %d\n",r,c);
-        pDelete(&div);
-        return FALSE;
-      }
-      else
-        WerrorS("matrix expected");
-    }
-    else
 #ifdef FACTORY_GCD_TEST
 /*=======================gcd Testerei ================================*/