From d3bfe2d1ee65f681ee04cfce0f5a3cdaae582f29 Mon Sep 17 00:00:00 2001
From: Pixel <Pixel>
Date: Wed, 2 May 2001 02:57:44 +0000
Subject: Bla

---
 lib/interface.c |  2 ++
 lib/parser.c    |  3 ++-
 lib/pile.c      | 13 +++++++------
 3 files changed, 11 insertions(+), 7 deletions(-)

(limited to 'lib')

diff --git a/lib/interface.c b/lib/interface.c
index e3fbe7a..f459215 100644
--- a/lib/interface.c
+++ b/lib/interface.c
@@ -94,7 +94,9 @@ void ifloop(void) {
 			break;
 		case 10: /* Entrée */
 			printf("\n");
+			clearterm();
 			parse_line(buffer);
+			initterm();
 			position = 0;
 			buffer[0] = 0;
 			printf("\n");
diff --git a/lib/parser.c b/lib/parser.c
index 6a2ab34..529516b 100644
--- a/lib/parser.c
+++ b/lib/parser.c
@@ -232,6 +232,7 @@ void parse_line(char *line)
 						exception(1, _("Parse error: too much left parenthesis"));
 					act_pile(get_func(op));
 				}
+				got_unary = 128;
 				move_to_resultat_pile();
 				break;
 			case ')':
@@ -273,7 +274,7 @@ void parse_line(char *line)
 	}
 	popcontext();
 	if (global_error) {
-		got_unary = 0;
+		got_unary = 128;
 		while (pileop_pos) {
 			pop_op();
 		}
diff --git a/lib/pile.c b/lib/pile.c
index 9a755ff..55a0ff2 100644
--- a/lib/pile.c
+++ b/lib/pile.c
@@ -411,17 +411,18 @@ void act_pile(int func)
 				break;
 			case T_POLY:
 				if (operande2.poly) {
-					if (operande1.poly->degre == 0) {
-
-
+					if (operande1.val != 1) {
+						exception(1, _("act_pile: OP_FUNC_CALL need only one argument for a polynom evaluation"));
+					}
+					if (operande[0].poly->degre == 0) {
 						push_pile_poly(ply_constr
 							       (rat_constr_from_double
 								(ply_valuation
-								 (operande2.poly, rat_to_double(operande1.poly->coef))),
+								 (operande2.poly, rat_to_double(operande[0].poly->coef))),
 								0));
 
-						if (operande1.poly)
-							ply_destruct(operande1.poly);
+						if (operande[0].poly)
+							ply_destruct(operande[0].poly);
 						ply_destruct(operande2.poly);
 					} else {
 						exception(1, _("act_pile: OP_FUNC_CALL incorrect value for 2nd arg"));
-- 
cgit v1.2.3