diff options
Diffstat (limited to 'src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cisnum.sci')
| -rw-r--r-- | src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cisnum.sci | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cisnum.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cisnum.sci new file mode 100644 index 00000000..770574e5 --- /dev/null +++ b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cisnum.sci @@ -0,0 +1,19 @@ +function outbool = SCI2Cisnum(instring)
+// function outbool = SCI2Cisnum(instring)
+// -----------------------------------------------------------------
+// Status:
+// 12-Apr-2007 -- Nutricato Raffaele: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),1,1);
+
+instring = convstr(instring,'l');
+outbool = isnum(instring);
+firstchar = part(instring,1:1);
+if (firstchar == 'd' | firstchar == 'e')
+ outbool = %F;
+end
+endfunction
|