Changeset 291790 in git for Singular/extra.cc

Timestamp:

Jun 27, 2011, 7:50:23 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

a2dde000d30c3959f561880bd909b298a306bb48

Parents:

4986481fc1e216c927221c4ebffb8cf0cdbe2a77

Message:

removed libfac debug stuff: system(factoras)

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

File:

• Singular/extra.cc (modified) (1 diff)

Singular/extra.cc

@@ -3650 +3650 @@
       else
       #endif
-  /*================= factoras =========================*/
-      if (strcmp (sys_cmd, "factoras") == 0)
-      {
-        if (h!=NULL && (h->Typ()== POLY_CMD) && (h->next->Typ() == IDEAL_CMD))
-        {
-          CanonicalForm F( convSingTrPFactoryP((poly)(h->Data())));
-          h= h->next;
-          ideal I= ((ideal) h->Data());
-          int i= IDELEMS (I);
-          CFList as;
-          for (int j= 0; j < i; j++)
-            as.append (convSingTrPFactoryP (I->m[j]));
-          int success= 0;
-          CFFList libfacResult= newfactoras (F, as, success);
-          if (success >= 0)
-          {
-            //convert factors
-            ideal factors= idInit(libfacResult.length(),1);
-            CFFListIterator j= libfacResult;
-            i= 0;
-            intvec *mult= new intvec (libfacResult.length());
-            for ( ; j.hasItem(); j++,i++ )
-            {
-              factors->m[i]= convFactoryPSingTrP (j.getItem().factor());
-              (*mult)[i]= j.getItem().exp();
-            }
-            lists l= (lists)omAllocBin( slists_bin);
-            l->Init(2);
-            l->m[0].rtyp= IDEAL_CMD;
-            l->m[0].data= (char *) factors;
-            l->m[1].rtyp= INTVEC_CMD;
-            l->m[1].data= (char *) mult;
-            res->data= l;
-            res->rtyp= LIST_CMD;
-            if (success == 0)
-              WerrorS ("factorization maybe incomplete");
-            return FALSE;
-          }
-          else
-          {
-            WerrorS("problem in libfac");
-            return TRUE;
-          }
-        }
-        else
-        {
-          WerrorS("`system(\"factoras\",<poly>,<ideal>) expected");
-          return TRUE;
-        }
-      }
-      else
   /*================= probIrredTest ======================*/
       if (strcmp (sys_cmd, "probIrredTest") == 0)