diff options
| author | jofret | 2009-04-28 07:11:01 +0000 |
|---|---|---|
| committer | jofret | 2009-04-28 07:11:01 +0000 |
| commit | b22f596ce449869bffd8e0f63baee1c53e20fa06 (patch) | |
| tree | 24e5c3ca47f535b5340a969edf31b774b356848b /macros/GeneralFunctions/SCI2Cisnum.sci | |
| parent | f96b66fe2423831bcad2f141469de6805364d019 (diff) | |
| download | scilab2c-b22f596ce449869bffd8e0f63baee1c53e20fa06.tar.gz scilab2c-b22f596ce449869bffd8e0f63baee1c53e20fa06.tar.bz2 scilab2c-b22f596ce449869bffd8e0f63baee1c53e20fa06.zip | |
Moving macros here
Diffstat (limited to 'macros/GeneralFunctions/SCI2Cisnum.sci')
| -rw-r--r-- | macros/GeneralFunctions/SCI2Cisnum.sci | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/macros/GeneralFunctions/SCI2Cisnum.sci b/macros/GeneralFunctions/SCI2Cisnum.sci new file mode 100644 index 00000000..50a5c14e --- /dev/null +++ b/macros/GeneralFunctions/SCI2Cisnum.sci @@ -0,0 +1,30 @@ +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
|