1 files changed, 54 insertions, 0 deletions
diff --git a/sys/libc/clexnum.c b/sys/libc/clexnum.c
new file mode 100644
index 00000000..6e5091bc
--- /dev/null
+++ b/sys/libc/clexnum.c
@@ -0,0 +1,54 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+*/
+
+#define	import_spp
+#define import_libc
+#define	import_ctype
+#define	import_lexnum
+#define	import_xnames
+#include <iraf.h>
+
+
+/* LEXNUM -- Lexically analyze a string to determine if it is a legal IRAF
+** style number.  Returns one of the following tokens (lexnum.h):
+**
+**	LEX_OCTAL		octal number (e.g. B suffix)
+**	LEX_HEX			hex number (e.g. X suffix)
+**	LEX_DECIMAL		decimal number
+**	LEX_REAL		real number (incl sexagesimal)
+**	LEX_NONNUM		nonnumeric
+**
+** A numeric token is returned if any (prefix) portion of the field is
+** numeric.  The total number of numeric characters is also returned so
+** that the application may verify that the entire field was numeric,
+** if desired.
+*/
+int
+c_lexnum (
+  char	*str,			/* input string			*/
+  int	*toklen			/* nchars in token		*/
+)
+{
+	register char *ip;
+	register XCHAR *op, ch, ndigits;
+	PKCHAR	 numbuf[SZ_FNAME];
+	XINT	 ip_start = 1, x_toklen = *toklen;
+	int      status;
+
+
+	/* Convert number to XCHAR for lexnum.  In the process check to see
+	 * if we have a simple decimal integer constant to save a scan.
+	 */
+	for (ip=str, op=numbuf, ndigits=0;  (*op++ = ch = *ip++);  )
+	    if (isdigit (ch))
+		ndigits++;
+
+	if (ndigits == (ip - str - 1)) {
+	    *toklen = ndigits;
+	    return (LEX_DECIMAL);
+	} else {
+	    status = LEXNUM (numbuf, &ip_start, &x_toklen);
+	    *toklen = (int) x_toklen;
+	    return (status);
+	}
+}