Repatch (from linux) of OSX IRAF

1 files changed, 48 insertions, 0 deletions

diff --git a/pkg/images/tv/iis/src/clear.x b/pkg/images/tv/iis/src/clear.x
new file mode 100644
index 00000000..60cf69eb
--- /dev/null
+++ b/pkg/images/tv/iis/src/clear.x
@@ -0,0 +1,48 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<ctotok.h>
+include	<ctype.h>
+include	"../lib/ids.h"
+
+# CLEAR -- clear certain frames in the display
+
+procedure clear()
+
+char	token[SZ_LINE]
+int	tok
+short	frames[IDS_MAXIMPL+1]
+
+define	nexttok	10
+
+include "cv.com"
+
+begin
+	call gargtok (tok, token, SZ_LINE)
+	call strlwr (token)
+
+	while ( (tok == TOK_IDENTIFIER) || (tok == TOK_NUMBER) ) {
+	    if (tok == TOK_IDENTIFIER) {
+		switch (token[1]) {
+		    case 'a', 'g':
+			# all colors
+			call cvclearg (short(IDS_EOD), short (IDS_EOD))
+			if (token[1] == 'g')
+			    goto nexttok
+			frames[1] = IDS_EOD
+
+		    case 'f':
+			call cv_frame (token[2], frames)
+		}
+	    } else
+		call cv_frame (token[1], frames)
+
+	    call cvcleari (frames)
+	    if (token[1] == 'a')
+		return
+
+	    # get next token
+nexttok
+	    call gargtok (tok, token, SZ_LINE)
+	    call strlwr (token)
+	}
+end