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/strldxs.x | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 sys/fmtio/strldxs.x (limited to 'sys/fmtio/strldxs.x') diff --git a/sys/fmtio/strldxs.x b/sys/fmtio/strldxs.x new file mode 100644 index 00000000..1c583d0f --- /dev/null +++ b/sys/fmtio/strldxs.x @@ -0,0 +1,46 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +define BIGSET 10 +define SZ_ASCII 128 + +# STRLDXS -- Return the index of the last occurrence of any of a set of +# characters in a string. + +int procedure strldxs (set, str) + +char set[ARB] # set of characters to be searched for +char str[ARB] # string to be searched + +int setlen, ip, i, last_member +char ch, lut[SZ_ASCII] +int strlen() + +begin + setlen = strlen (set) + last_member = 0 + + if (setlen > BIGSET) { + # Encode the set in a lookup table. + call aclrc (lut, SZ_ASCII) + do i = 1, setlen + lut[set[i]] = 1 + + # Search the string. + for (ip=1; str[ip] != EOS; ip=ip+1) + if (lut[str[ip]] != 0) + last_member = ip + + } else { + # Set is too small to be worth using a lookup table. + for (ip=1; str[ip] != EOS; ip=ip+1) { + ch = str[ip] + do i = 1, setlen + if (ch == set[i]) { + last_member = ip + break + } + } + } + + return (last_member) +end -- cgit