From 07c5ef5d24f2cc29a7d89dc048462c1fdf8ecaab Mon Sep 17 00:00:00 2001
From: torset
Date: Wed, 11 Feb 2009 15:15:00 +0000
Subject: add a third input argument to the function

---
 .../Scilab2C/FunctionAnnotation/FA_TP_PREC.sci     | 24 +++++++++++++++++++---
 1 file changed, 21 insertions(+), 3 deletions(-)

(limited to 'src/Scilab2C')

diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci
index afbd98ab..9f0523b7 100644
--- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci
+++ b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci
@@ -1,5 +1,5 @@
-function opout = FA_TP_PREC(in1,in2)
-// function opout = FA_TP_PREC(in1,in2)
+function opout = FA_TP_PREC(in1,in2,in3)
+// function opout = FA_TP_PREC(in1,in2,in3)
 // -----------------------------------------------------------------
 //
 // Status:
@@ -19,8 +19,9 @@ function opout = FA_TP_PREC(in1,in2)
 // ------------------------------
 // --- Check input arguments. ---
 // ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
+SCI2CNInArgCheck(argn(2),2,3);
 
+if (argn(2)==2) then 
 in1Pin2 = in1+in2;
 
 select (in1Pin2),
@@ -30,5 +31,22 @@ select (in1Pin2),
 	case 'cc' then opout = 's',
 	else opout = 'd',
 end
+end
+
+if (argn(2)==3) then 
+in1Pin2 = in1+in2+in3;
+
+select (in1Pin2),
+	case 'sss' then opout = 's',
+	case 'ssc' then opout = 's',
+	case 'scs' then opout = 's',
+	case 'scc' then opout = 's',
+	case 'ccc' then opout = 's',
+	case 'ccs' then opout = 's',
+	case 'csc' then opout = 's',
+	case 'css' then opout = 's',
+	else opout = 'd',
+end
+end
 
 endfunction
-- 
cgit