diff options
| author | torset | 2009-02-17 14:08:06 +0000 |
|---|---|---|
| committer | torset | 2009-02-17 14:08:06 +0000 |
| commit | 2ab4f2c63bc217db17ea83e0cca613264a16aaa1 (patch) | |
| tree | 4a8a9b5e46b70f73dd8718e60cac61d760d70c40 | |
| parent | 7d2844a7726395ac899827819bccbb3ca700dc48 (diff) | |
| download | scilab2c-2ab4f2c63bc217db17ea83e0cca613264a16aaa1.tar.gz scilab2c-2ab4f2c63bc217db17ea83e0cca613264a16aaa1.tar.bz2 scilab2c-2ab4f2c63bc217db17ea83e0cca613264a16aaa1.zip | |
Adjust FA_TP_MAX to be use with one argument
| -rw-r--r-- | scilab2c/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/scilab2c/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci b/scilab2c/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci index 07f7ddb5..6ac51616 100644 --- a/scilab2c/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci +++ b/scilab2c/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci @@ -13,8 +13,19 @@ function opout = FA_TP_MAX(in1,in2) // ------------------------------ // --- Check input arguments. --- // ------------------------------ -SCI2CNInArgCheck(argn(2),2,2); +SCI2CNInArgCheck(argn(2),1,2); + +if (argn(2)==1) then +select (in1), + case 's' then opout = 'c' + case 'c' then opout = 'c' + else opout = 'z', +end +end + + +if (argn(2)==2) then in1Pin2 = in1+in2; opout = in1; @@ -27,5 +38,6 @@ elseif (in1Pin2 == 'sc') elseif (in1Pin2 == 'dc') opout = 'z'; end +end endfunction |