From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- sys/fmtio/sscan.x | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 sys/fmtio/sscan.x (limited to 'sys/fmtio/sscan.x') diff --git a/sys/fmtio/sscan.x b/sys/fmtio/sscan.x new file mode 100644 index 00000000..6c877dc2 --- /dev/null +++ b/sys/fmtio/sscan.x @@ -0,0 +1,24 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +# SSCAN -- Begin a scan from a string. Only the first newline terminated +# line in the string buffer will be scanned. If a string buffer containing +# more than a single line must be scanned, MEMOPEN and FSCAN may be used. + +procedure sscan (str) + +char str[ARB] +int ip, op +include "scan.com" + +begin + op = 1 + for (ip=1; str[ip] != EOS && str[ip] != '\n'; ip=ip+1) { + sc_scanbuf[op] = str[ip] + op = op + 1 + if (op >= SZ_SCANBUF) + break + } + + sc_scanbuf[op] = EOS + call reset_scan() # initialize scan +end -- cgit