Changeset f220e5a in git for Singular/clapsing.cc

Timestamp:

Jul 16, 1998, 4:09:52 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

a7186ef2bd896982923eb58966eb9b8ae8a3279e

Parents:

91ffb8b83a411cc84c977f4d77904fb7244b9c71

Message:

* hannes: "not impl." for factorization over Q(a)


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

File:

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

Singular/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.36 1998-07-07 16:09:31 Singular Exp $
+// $Id: clapsing.cc,v 1.37 1998-07-16 14:09:15 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -539 +539 @@
     if (currRing->minpoly!=NULL)
     {
-      //if (nGetChar()==1)
-      //{
-      //  WerrorS( feNotImplemented );
-      //  return NULL;
-      //}
+      if ((nGetChar()==1)||(pVariables>1)) /* Q(a) or multivariat */
+      {
+        WerrorS( feNotImplemented );
+        return NULL;
+      }
       CanonicalForm mipo=convSingTrClapP(((lnumber)currRing->minpoly)->z);
       Variable a=rootOf(mipo);