Initial commit

1 files changed, 32 insertions, 0 deletions

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