From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 sys/fmtio/scan.com | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 sys/fmtio/scan.com

(limited to 'sys/fmtio/scan.com')

diff --git a/sys/fmtio/scan.com b/sys/fmtio/scan.com
new file mode 100644
index 00000000..cb60824c
--- /dev/null
+++ b/sys/fmtio/scan.com
@@ -0,0 +1,10 @@
+# SCAN.COM -- Global common for the scan family of routines.
+
+define	SZ_SCANBUF	4096
+
+int	sc_ip			# char pointer into lbuf
+int	sc_ntokens		# keep track of successful conversions
+bool	sc_stopscan		# set if conversion is unsuccessful
+char	sc_scanbuf[SZ_SCANBUF]	# line buffer for scan procedures
+
+common	/scncom/ sc_ip, sc_ntokens, sc_stopscan, sc_scanbuf
-- 
cgit