diff options
Diffstat (limited to 'macros/GeneralFunctions')
-rw-r--r-- | macros/GeneralFunctions/SCI2Cisnum.sci | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/macros/GeneralFunctions/SCI2Cisnum.sci b/macros/GeneralFunctions/SCI2Cisnum.sci deleted file mode 100644 index 50a5c14e..00000000 --- a/macros/GeneralFunctions/SCI2Cisnum.sci +++ /dev/null @@ -1,30 +0,0 @@ -function outbool = SCI2Cisnum(instring)
-// function outbool = SCI2Cisnum(instring)
-// -----------------------------------------------------------------
-// It fixes the bug of isnum. isnum('d') -> %T!!!
-//
-// Input data:
-// instring: string to analyze.
-//
-// Output data:
-// outbool: %T if instring is a number.
-//
-// Status:
-// 12-Apr-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-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
|