Changeset 2f436b in git for Singular/pInline1.h

Timestamp:

Dec 31, 2000, 4:14:47 PM (23 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

e609098c45a74ac91c002ffa7ece5eebe7f8c002

Parents:

33ec1145a109507ad3e3cf4a69a847b703358e93

Message:

* version 1-3-13: sparsemat improivements


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

File:

• Singular/pInline1.h (modified) (2 diffs)

Singular/pInline1.h

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: pInline1.h,v 1.14 2000-12-05 13:01:11 obachman Exp $
+ *  Version: $Id: pInline1.h,v 1.15 2000-12-31 15:14:37 obachman Exp $
  *******************************************************************/
 #ifndef PINLINE1_H
@@ -492 +492 @@
   return TRUE;
 }
+// test if monomial is a constant, i.e. if all exponents and the component 
+// is zero
+PINLINE1 BOOLEAN p_LmIsConstant(const poly p, const ring r)
+{
+  if (p_LmIsConstantComp(p, r))
+    return (p_GetComp(p, r) == 0);
+  return FALSE;
+}
+
+// like the respective p_LmIs* routines, except that p might be empty
+PINLINE1 BOOLEAN p_IsConstantComp(const poly p, const ring r)
+{
+  if (p == NULL) return TRUE;
+  return p_LmIsConstantComp(p, r);
+}
+
+PINLINE1 BOOLEAN p_IsConstant(const poly p, const ring r)
+{
+  if (p == NULL) return TRUE;
+  return p_LmIsConstant(p, r);
+}
 
 PINLINE1 BOOLEAN p_LmExpVectorAddIsOk(const poly p1, const poly p2,