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..716d3771 --- /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 |