Changeset 891692 in git

Timestamp:

Apr 18, 2005, 4:50:56 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

c0eb11ed4b9c2fcf9078e34ece905585ee5ec7b2

Parents:

b30ac0f73ca4f9793dfafad24d726a79bdc7c13b

Message:

*hannes: p_Var from 2-0


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

Location:

kernel

Files:

• polys.h (modified) (2 diffs)
• polys1.cc (modified) (2 diffs)

kernel/polys.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.h,v 1.3 2005-01-27 16:42:15 Singular Exp $ */
+/* $Id: polys.h,v 1.4 2005-04-18 14:50:55 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate polynomials of the
@@ -417 +417 @@
 poly  pPolys2Vec(polyset p, int len);
 void  pVec2Polys(poly v, polyset *p, int *len);
-int   pVar(poly m);
+int   p_Var(poly mi,const ring r);
+#define   pVar(m) p_Var(m,currRing)
 
 /*-----------specials for spoly-computations--------------*/

kernel/polys1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys1.cc,v 1.12 2005-04-11 15:59:28 Singular Exp $ */
+/* $Id: polys1.cc,v 1.13 2005-04-18 14:50:56 Singular Exp $ */
 
 /*
@@ -1631 +1631 @@
 }
 
-int pVar(poly m)
+int p_Var(poly m,const ring r)
 {
   if (m==NULL) return 0;
   if (pNext(m)!=NULL) return 0;
   int i,e=0;
-  for (i=pVariables; i>0; i--)
-  {
-    if (pGetExp(m,i)==1)
+  for (i=r->N; i>0; i--)
+  {
+    if (p_GetExp(m,i,r)==1)
     {
       if (e==0) e=i;