From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- 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