Changeset 2639fd in git

Timestamp:

Dec 8, 2000, 1:50:30 PM (22 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

856b116e305edbb0b4ab17b6a00800fac298acbb

Parents:

7049b23b606ac58a17994f6065c8b82018c273f1

Message:

*hannes: napoly, nap*


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

File:

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

Singular/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.74 2000-11-14 16:04:50 obachman Exp $
+// $Id: clapsing.cc,v 1.75 2000-12-08 12:50:30 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -130 +130 @@
 #include "longalg.h"
 #include "febase.h"
-// alg f
+// napoly f
 #define FACTORY_ALGOUT_POLY( tag, f ) \
   StringSetS( tag ); \
@@ -138 +138 @@
 #define FACTORY_CFTROUT_POLY( tag, f ) \
   { \
-    alg F=convClapPSingTr( f ); \
+    napoly F=convClapPSingTr( f ); \
     StringSetS( tag ); \
     napWrite( F ); \
     PrintS(StringAppendS("\n")); \
-    napDelete( &F ); \
+    napDelete(&F); \
   }
 // CanonicalForm f, represents algebraic extension
 #define FACTORY_CFAOUT_POLY( tag, f ) \
   { \
-    alg F=convClapASingA( f ); \
+    napoly F=convClapASingA( f ); \
     StringSetS( tag ); \
     napWrite( F ); \
     PrintS(StringAppendS("\n")); \
-    napDelete( &F ); \
+    napDelete(&F); \
   }
 #else /* ! FACTORY_GCD_DEBOUT */
@@ -160 +160 @@
 
 #ifdef FACTORY_GCD_DEBOUT_PATTERN
-// alg f
+// napoly f
 #define FACTORY_ALGOUT_PAT( tag, f ) \
   if (currRing->minpoly!=NULL) \
@@ -1225 +1225 @@
 }
 
-alg singclap_alglcm ( alg f, alg g )
+napoly singclap_alglcm ( napoly f, napoly g )
 {
  FACTORY_ALGOUT( "f", f );
@@ -1233 +1233 @@
  if (nGetChar()==1) setCharacteristic( 0 );
  else               setCharacteristic( -nGetChar() );
- alg res;
+ napoly res;
 
  if (currRing->minpoly!=NULL)
@@ -1281 +1281 @@
 }
 
-void singclap_algdividecontent ( alg f, alg g, alg &ff, alg &gg )
+void singclap_algdividecontent ( napoly f, napoly g, napoly &ff, napoly &gg )
 {
  FACTORY_ALGOUT( "f", f );