[Maxima-commits] CVS: maxima/share/contrib/Zeilberger Gosper.mac, 1.8, 1.9 shiftQuotient.mac, 1.11, 1.12 zeilberger_algorithm.mac, 1.6, 1.7

[Andrej V. <an...@us...>]

Update of /cvsroot/maxima/maxima/share/contrib/Zeilberger
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv10140

Modified Files:
	Gosper.mac shiftQuotient.mac zeilberger_algorithm.mac 
Log Message:
Disable more warning printout if warnings is false.


Index: Gosper.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/contrib/Zeilberger/Gosper.mac,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Gosper.mac	23 Dec 2008 21:59:15 -0000	1.8
+++ Gosper.mac	4 Jan 2009 10:17:32 -0000	1.9
@@ -102,7 +102,8 @@
   fRat : shiftQuoOnlyHyp(factor(f),k), /* factor might not be necessary */
   if fRat = [] then
     (
-    print(f, " is not hypergeometric in ", k),
+      if warnings then
+        print(f, " is not hypergeometric in ", k),
     return(NON_HYPERGEOMETRIC)
     ),
 

Index: shiftQuotient.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/contrib/Zeilberger/shiftQuotient.mac,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- shiftQuotient.mac	25 Feb 2008 00:44:38 -0000	1.11
+++ shiftQuotient.mac	4 Jan 2009 10:17:32 -0000	1.12
@@ -279,7 +279,7 @@
          return([shiftFactPoly(expr,k,1)/expr,hyp_flag])
        else
          (
-         print("Unknown operator : ", zb_op(expr)),
+         if warnings then print("Unknown operator : ", zb_op(expr)),
          return([expr,NO_HYP])
          )
 );

Index: zeilberger_algorithm.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/contrib/Zeilberger/zeilberger_algorithm.mac,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- zeilberger_algorithm.mac	16 Jul 2008 05:36:45 -0000	1.6
+++ zeilberger_algorithm.mac	4 Jan 2009 10:17:32 -0000	1.7
@@ -189,7 +189,7 @@
 
 if nFTrivial = [] then
   (
-  print(f, " is not hypergeometric in ", n),
+  if warnings then print(f, " is not hypergeometric in ", n),
   return([NON_PROPER_HYPERGEOMETRIC])
   ),
 
@@ -215,7 +215,7 @@
 
 if parFRat = [] then
  (
- print(f, " is not hypergeometric in ", k),
+ if warnings then print(f, " is not hypergeometric in ", k),
  return([NON_PROPER_HYPERGEOMETRIC])
  ),