1 files changed, 34 insertions, 0 deletions
diff --git a/sys/qpoe/qpctoi.x b/sys/qpoe/qpctoi.x
new file mode 100644
index 00000000..9ac70ddb
--- /dev/null
+++ b/sys/qpoe/qpctoi.x
@@ -0,0 +1,34 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<lexnum.h>
+
+# QP_CTOI -- Decode an integer token from the input string, advancing the
+# input pointer the the first character following the decoded number, and
+# returning the number of numeric characters decoded as the function value.
+# This is equivalent to the standard CTOI except that it calls LEXNUM first
+# to determine the radix of the input number, hence can deals with hex and
+# octal numbers as well as decimal.
+
+int procedure qp_ctoi (str, ip, ival)
+
+char	str[ARB]			#I input string
+int	ip				#U pointer into input string
+int	ival				#O integer value
+
+int	ip_save, base, nchars
+int	gctol(), lexnum()
+
+begin
+	ip_save = ip
+	switch (lexnum (str, ip, nchars)) {
+	case LEX_OCTAL:
+	    base = 8
+	case LEX_HEX:
+	    base = 16
+	default:
+	    base = 10
+	}
+
+	ip = ip_save
+	return (gctol (str, ip, ival, base))
+end