diff options
| author | torset | 2009-02-11 15:15:00 +0000 |
|---|---|---|
| committer | torset | 2009-02-11 15:15:00 +0000 |
| commit | 07c5ef5d24f2cc29a7d89dc048462c1fdf8ecaab (patch) | |
| tree | 714955cce46c2337adb12108f7b1e607eca6f2a3 /src/Scilab2C | |
| parent | 76021350374f0b42580227d045ebabc90a39886f (diff) | |
| download | scilab2c-07c5ef5d24f2cc29a7d89dc048462c1fdf8ecaab.tar.gz scilab2c-07c5ef5d24f2cc29a7d89dc048462c1fdf8ecaab.tar.bz2 scilab2c-07c5ef5d24f2cc29a7d89dc048462c1fdf8ecaab.zip | |
add a third input argument to the function
Diffstat (limited to 'src/Scilab2C')
| -rw-r--r-- | src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci | 24 |
1 files changed, 21 insertions, 3 deletions
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 |