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 --- pkg/xtools/gstrdetab.x | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 pkg/xtools/gstrdetab.x (limited to 'pkg/xtools/gstrdetab.x') diff --git a/pkg/xtools/gstrdetab.x b/pkg/xtools/gstrdetab.x new file mode 100644 index 00000000..b51ac019 --- /dev/null +++ b/pkg/xtools/gstrdetab.x @@ -0,0 +1,32 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +# GSTRDETAB -- Procedure to remove tabs from a line of text. + +int procedure gstrdetab (line, outline, maxch, tabs) + +char line[ARB], outline[ARB] +int maxch, tabs[ARB] + +int ip, op + +begin + ip = 1 + op = 1 + + while (line[ip] != EOS && op <= maxch) { + if (line[ip] == '\t') { + repeat { + outline[op] = ' ' + op = op + 1 + } until (tabs[op] == YES || op > maxch) + ip = ip + 1 + } else { + outline[op] = line [ip] + ip = ip + 1 + op = op + 1 + } + } + + outline[op] = EOS + return (op-1) +end -- cgit