From 8b44229ef44f0558ce045e46ff833fb44df913c9 Mon Sep 17 00:00:00 2001
From: jofret
Date: Mon, 21 Jun 2010 06:24:38 +0000
Subject: Tagging the 2.0 release of scilab2c

---
 macros/FunctionAnnotation/FA_SZ_FROM_VAL.sci | 36 ++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 macros/FunctionAnnotation/FA_SZ_FROM_VAL.sci

(limited to 'macros/FunctionAnnotation/FA_SZ_FROM_VAL.sci')

diff --git a/macros/FunctionAnnotation/FA_SZ_FROM_VAL.sci b/macros/FunctionAnnotation/FA_SZ_FROM_VAL.sci
new file mode 100644
index 00000000..c3cae536
--- /dev/null
+++ b/macros/FunctionAnnotation/FA_SZ_FROM_VAL.sci
@@ -0,0 +1,36 @@
+function opout = FA_SZ_FROM_VAL(in1,in2)
+// function  opout = FA_SZ_FROM_VAL(in1,in2)
+// -----------------------------------------------------------------
+// Return a size according to the floored value of the first argument
+//
+// Input data:
+// in1: string specifying a number .
+//
+// Output data:
+// opout: string containing the computed result.
+//
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),2,2);
+
+
+if (isnum(in1))
+   in1num = eval(in1) ;
+   if isnan(in1num)
+      opout = '__SCI2CNANSIZE';
+   elseif ( in1num < 0 )
+	opout= '0' ;
+   else
+	opout = string ( floor (abs(in1num))) ;
+
+   end
+
+
+else
+  opout  = in2+"0floor"+in2+"0"+"("+in1+")";
+  opout  = in2+"0abs"+in2+"0"+"("+opout+")";
+
+end
+
+
+endfunction:
-- 
cgit