Repatch (from linux) of OSX IRAF

1 files changed, 679 insertions, 0 deletions

diff --git a/unix/boot/generic/lexyy.c b/unix/boot/generic/lexyy.c
new file mode 100644
index 00000000..6cda8553
--- /dev/null
+++ b/unix/boot/generic/lexyy.c
@@ -0,0 +1,679 @@
+# include <stdio.h>
+# define U(x) x
+# define NLSTATE yyprevious=YYNEWLINE
+# define BEGIN yybgin = yysvec + 1 +
+# define INITIAL 0
+# define YYLERR yysvec
+# define YYSTATE (yyestate-yysvec-1)
+# define YYOPTIM 1
+# define YYLMAX BUFSIZ
+# define output(c) putc(c,yyout)
+# define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):k_getc(yyin))==10?(yylineno++,yytchar):yytchar)==EOF?0:yytchar)
+# define unput(c) {yytchar= (c);if(yytchar=='\n')yylineno--;*yysptr++=yytchar;}
+# define yymore() (yymorfg=1)
+# define ECHO fprintf(yyout, "%s",yytext)
+# define REJECT { nstr = yyreject(); goto yyfussy;}
+int yyleng; extern char yytext[];
+int yymorfg;
+extern char *yysptr, yysbuf[];
+int yytchar;
+FILE *yyin, *yyout;
+extern int yylineno;
+struct yysvf { 
+	struct yywork *yystoff;
+	struct yysvf *yyother;
+	int *yystops;};
+struct yysvf *yyestate;
+extern struct yysvf yysvec[], *yybgin;
+
+#include <ctype.h>
+
+/*
+ * GENERIC -- This filter takes a file containing a generic operator as input
+ * and generates as output either a set of files, one for each of the data
+ * types in the generic family, or a single file wherein the generic section
+ * has been duplicated for each case.
+ */
+
+#undef	output
+extern	char	*type_string;
+extern	char	xtype_string[];
+extern	char	type_char;
+
+# define YYNEWLINE 10
+yylex(){
+int nstr; extern int yyprevious;
+if (yyin==NULL) yyin = stdin;
+if (yyout==NULL) yyout = stdout;
+while((nstr = yylook()) >= 0)
+yyfussy: switch(nstr){
+case 0:
+if(yywrap()) return(0); break;
+case 1:
+			outstr (type_string);
+break;
+case 2:
+			outstr (xtype_string);
+break;
+case 3:
+			output_indef (type_char);
+break;
+case 4:
+	ECHO;
+break;
+case 5:
+		output_upper ("SZ_");
+break;
+case 6:
+		output_upper ("TY_");
+break;
+case 7:
+			outstr ("PIXEL");
+break;
+case 8:
+			outstr ("INDEF");
+break;
+case 9:
+	{
+					yytext[strlen(yytext)-5] = '\0';
+					output_upper (yytext);
+				}
+break;
+case 10:
+			{	if (isupper (type_char))
+					    output (tolower (type_char));
+					else
+					    output (type_char);
+				}
+break;
+case 11:
+			{	if (islower (type_char))
+					    output (toupper (type_char));
+					else
+					    output (type_char);
+				}
+break;
+case 12:
+			pass_through();
+break;
+case 13:
+	make_float (type_char);
+break;
+case 14:
+		do_if();
+break;
+case 15:
+		do_else();
+break;
+case 16:
+		do_endif();
+break;
+case 17:
+		do_for();
+break;
+case 18:
+		do_endfor();
+break;
+case 19:
+		do_if();
+break;
+case 20:
+		do_else();
+break;
+case 21:
+		do_endif();
+break;
+case 22:
+		do_for();
+break;
+case 23:
+		do_endfor();
+break;
+case 24:
+			output ('$');
+break;
+case 25:
+			copy_comment();
+break;
+case 26:
+			copy_string();
+break;
+case 27:
+			ECHO;
+break;
+case 28:
+			ECHO;
+break;
+case 29:
+		ECHO;
+break;
+case 30:
+		ECHO;
+break;
+case 31:
+			copy_line();
+break;
+case 32:
+			copy_line();
+break;
+case -1:
+break;
+default:
+fprintf(yyout,"bad switch yylook %d",nstr);
+} return(0); }
+/* end of yylex */
+
+
+/* LEX_INPUT -- Make input() callable as a function from the .c code.
+ */
+lex_input()
+{
+	return (input());
+}
+
+
+/* LEX_UNPUT -- Make unput() callable as a function from the .c code.
+ */
+lex_unput (ch)
+int	ch;
+{
+	unput (ch);
+}
+int yyvstop[] = {
+0,
+
+26,
+0,
+
+31,
+0,
+
+31,
+0,
+
+32,
+0,
+
+24,
+0,
+
+12,
+0,
+
+11,
+0,
+
+10,
+0,
+
+25,
+0,
+
+19,
+0,
+
+14,
+0,
+
+13,
+0,
+
+27,
+0,
+
+22,
+0,
+
+17,
+0,
+
+20,
+0,
+
+15,
+0,
+
+3,
+0,
+
+1,
+0,
+
+28,
+0,
+
+21,
+0,
+
+8,
+0,
+
+7,
+0,
+
+16,
+0,
+
+9,
+0,
+
+4,
+0,
+
+2,
+9,
+0,
+
+29,
+0,
+
+23,
+0,
+
+18,
+0,
+
+5,
+9,
+0,
+
+6,
+9,
+0,
+
+30,
+0,
+0};
+# define YYTYPE char
+struct yywork { YYTYPE verify, advance; } yycrank[] = {
+0,0,	0,0,	0,0,	0,0,	
+0,0,	0,0,	0,0,	0,0,	
+0,0,	0,0,	1,3,	0,0,	
+0,0,	0,0,	0,0,	0,0,	
+3,3,	0,0,	0,0,	0,0,	
+0,0,	0,0,	0,0,	0,0,	
+0,0,	0,0,	0,0,	0,0,	
+0,0,	0,0,	0,0,	0,0,	
+0,0,	1,3,	0,0,	1,4,	
+1,5,	1,6,	2,15,	3,3,	
+2,16,	0,0,	0,0,	3,17,	
+7,29,	0,0,	0,0,	0,0,	
+1,7,	1,8,	1,8,	1,8,	
+1,8,	1,8,	1,8,	1,8,	
+1,8,	1,8,	1,8,	0,0,	
+0,0,	0,0,	0,0,	0,0,	
+0,0,	0,0,	1,9,	1,9,	
+1,9,	1,9,	1,9,	1,9,	
+1,9,	1,9,	1,10,	1,9,	
+1,9,	1,9,	1,9,	1,9,	
+1,9,	1,11,	1,9,	1,9,	
+1,12,	1,13,	1,9,	1,9,	
+1,9,	1,14,	1,9,	1,9,	
+6,18,	8,30,	10,32,	11,33,	
+12,34,	13,35,	14,36,	20,40,	
+21,42,	20,41,	23,45,	6,19,	
+27,49,	8,8,	8,8,	8,8,	
+8,8,	8,8,	8,8,	8,8,	
+8,8,	8,8,	8,8,	15,37,	
+17,20,	17,21,	26,48,	15,38,	
+17,39,	25,46,	22,43,	25,47,	
+30,50,	6,20,	6,21,	31,51,	
+32,52,	6,22,	22,44,	33,53,	
+34,54,	35,55,	36,56,	37,57,	
+6,23,	37,58,	38,59,	39,43,	
+6,24,	40,61,	41,62,	42,63,	
+44,64,	45,65,	38,60,	46,66,	
+17,25,	17,26,	47,67,	48,68,	
+17,27,	51,69,	52,70,	53,71,	
+30,50,	6,25,	6,26,	54,72,	
+55,73,	6,27,	56,74,	57,75,	
+58,76,	60,77,	61,78,	62,79,	
+64,81,	65,82,	62,80,	66,83,	
+6,28,	9,9,	9,9,	9,9,	
+9,9,	9,9,	9,9,	9,9,	
+9,9,	9,9,	9,9,	9,9,	
+9,9,	9,9,	9,9,	9,9,	
+9,31,	9,9,	9,9,	9,9,	
+9,9,	9,9,	9,9,	9,9,	
+9,9,	9,9,	9,9,	67,84,	
+69,86,	70,87,	67,85,	9,9,	
+71,88,	72,89,	73,90,	74,91,	
+75,92,	76,93,	77,94,	79,95,	
+80,96,	81,97,	82,98,	84,99,	
+85,100,	86,101,	87,102,	89,103,	
+90,104,	91,105,	93,106,	87,102,	
+94,107,	95,108,	87,102,	99,109,	
+103,110,	104,111,	107,112,	110,113,	
+87,102,	87,102,	111,114,	112,115,	
+0,0,	0,0,	87,102,	0,0,	
+0,0};
+struct yysvf yysvec[] = {
+0,	0,	0,
+yycrank+1,	0,		0,	
+yycrank+3,	yysvec+1,	0,	
+yycrank+7,	0,		0,	
+yycrank+0,	0,		yyvstop+1,
+yycrank+0,	0,		yyvstop+3,
+yycrank+56,	0,		0,	
+yycrank+2,	0,		0,	
+yycrank+57,	0,		0,	
+yycrank+108,	0,		0,	
+yycrank+16,	yysvec+9,	0,	
+yycrank+22,	yysvec+9,	0,	
+yycrank+6,	yysvec+9,	0,	
+yycrank+8,	yysvec+9,	0,	
+yycrank+18,	yysvec+9,	0,	
+yycrank+14,	0,		yyvstop+5,
+yycrank+0,	0,		yyvstop+7,
+yycrank+47,	0,		0,	
+yycrank+0,	0,		yyvstop+9,
+yycrank+0,	0,		yyvstop+11,
+yycrank+23,	0,		0,	
+yycrank+21,	0,		0,	
+yycrank+52,	0,		0,	
+yycrank+29,	0,		0,	
+yycrank+0,	0,		yyvstop+13,
+yycrank+13,	0,		0,	
+yycrank+7,	0,		0,	
+yycrank+2,	0,		0,	
+yycrank+0,	0,		yyvstop+15,
+yycrank+0,	0,		yyvstop+17,
+yycrank+54,	0,		0,	
+yycrank+54,	yysvec+9,	0,	
+yycrank+60,	yysvec+9,	0,	
+yycrank+43,	yysvec+9,	0,	
+yycrank+37,	yysvec+9,	0,	
+yycrank+38,	yysvec+9,	0,	
+yycrank+61,	yysvec+9,	0,	
+yycrank+27,	0,		0,	
+yycrank+36,	0,		0,	
+yycrank+69,	0,		0,	
+yycrank+58,	0,		0,	
+yycrank+74,	0,		0,	
+yycrank+61,	0,		0,	
+yycrank+0,	0,		yyvstop+19,
+yycrank+76,	0,		0,	
+yycrank+57,	0,		0,	
+yycrank+32,	0,		0,	
+yycrank+50,	0,		0,	
+yycrank+37,	0,		0,	
+yycrank+0,	0,		yyvstop+21,
+yycrank+0,	0,		yyvstop+23,
+yycrank+65,	yysvec+9,	0,	
+yycrank+85,	yysvec+9,	0,	
+yycrank+86,	yysvec+9,	0,	
+yycrank+79,	yysvec+9,	0,	
+yycrank+80,	yysvec+9,	0,	
+yycrank+74,	yysvec+9,	0,	
+yycrank+48,	0,		0,	
+yycrank+64,	0,		0,	
+yycrank+0,	0,		yyvstop+25,
+yycrank+66,	0,		0,	
+yycrank+97,	0,		0,	
+yycrank+97,	0,		0,	
+yycrank+0,	0,		yyvstop+27,
+yycrank+99,	0,		0,	
+yycrank+100,	0,		0,	
+yycrank+70,	0,		0,	
+yycrank+97,	0,		0,	
+yycrank+0,	0,		yyvstop+29,
+yycrank+131,	yysvec+9,	0,	
+yycrank+131,	yysvec+9,	0,	
+yycrank+128,	yysvec+9,	0,	
+yycrank+132,	yysvec+9,	0,	
+yycrank+133,	yysvec+9,	0,	
+yycrank+138,	yysvec+9,	0,	
+yycrank+107,	0,		0,	
+yycrank+104,	0,		0,	
+yycrank+102,	0,		0,	
+yycrank+0,	0,		yyvstop+31,
+yycrank+132,	0,		0,	
+yycrank+142,	0,		0,	
+yycrank+143,	0,		0,	
+yycrank+138,	0,		0,	
+yycrank+0,	0,		yyvstop+33,
+yycrank+104,	0,		0,	
+yycrank+114,	0,		0,	
+yycrank+141,	yysvec+9,	0,	
+yycrank+150,	yysvec+9,	yyvstop+35,
+yycrank+0,	yysvec+9,	yyvstop+37,
+yycrank+131,	yysvec+9,	0,	
+yycrank+132,	yysvec+9,	0,	
+yycrank+145,	yysvec+9,	0,	
+yycrank+0,	0,		yyvstop+39,
+yycrank+120,	0,		0,	
+yycrank+107,	0,		0,	
+yycrank+143,	0,		0,	
+yycrank+0,	0,		yyvstop+41,
+yycrank+0,	0,		yyvstop+43,
+yycrank+0,	0,		yyvstop+45,
+yycrank+113,	0,		0,	
+yycrank+0,	0,		yyvstop+47,
+yycrank+0,	yysvec+9,	yyvstop+49,
+yycrank+0,	yysvec+9,	yyvstop+51,
+yycrank+159,	yysvec+9,	0,	
+yycrank+160,	yysvec+9,	0,	
+yycrank+0,	yysvec+9,	yyvstop+53,
+yycrank+0,	0,		yyvstop+56,
+yycrank+130,	0,		0,	
+yycrank+0,	0,		yyvstop+58,
+yycrank+0,	0,		yyvstop+60,
+yycrank+155,	yysvec+9,	0,	
+yycrank+158,	yysvec+9,	0,	
+yycrank+134,	0,		0,	
+yycrank+0,	yysvec+9,	yyvstop+62,
+yycrank+0,	yysvec+9,	yyvstop+65,
+yycrank+0,	0,		yyvstop+68,
+0,	0,	0};
+struct yywork *yytop = yycrank+238;
+struct yysvf *yybgin = yysvec+1;
+char yymatch[] = {
+00  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
+01  ,011 ,01  ,01  ,01  ,01  ,01  ,01  ,
+01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
+01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
+011 ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
+01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
+'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,
+'0' ,'0' ,01  ,01  ,01  ,01  ,01  ,01  ,
+01  ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
+'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
+'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
+'A' ,'A' ,'A' ,01  ,01  ,01  ,01  ,'_' ,
+01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
+01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
+01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
+01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
+0};
+char yyextra[] = {
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0};
+#ifndef lint
+static	char ncform_sccsid[] = "@(#)ncform 1.6 88/02/08 SMI"; /* from S5R2 1.2 */
+#endif
+
+int yylineno =1;
+# define YYU(x) x
+# define NLSTATE yyprevious=YYNEWLINE
+char yytext[YYLMAX];
+struct yysvf *yylstate [YYLMAX], **yylsp, **yyolsp;
+char yysbuf[YYLMAX];
+char *yysptr = yysbuf;
+int *yyfnd;
+extern struct yysvf *yyestate;
+int yyprevious = YYNEWLINE;
+yylook(){
+	register struct yysvf *yystate, **lsp;
+	register struct yywork *yyt;
+	struct yysvf *yyz;
+	int yych, yyfirst;
+	struct yywork *yyr;
+# ifdef LEXDEBUG
+	int debug;
+# endif
+	char *yylastch;
+	/* start off machines */
+# ifdef LEXDEBUG
+	debug = 0;
+# endif
+	yyfirst=1;
+	if (!yymorfg)
+		yylastch = yytext;
+	else {
+		yymorfg=0;
+		yylastch = yytext+yyleng;
+		}
+	for(;;){
+		lsp = yylstate;
+		yyestate = yystate = yybgin;
+		if (yyprevious==YYNEWLINE) yystate++;
+		for (;;){
+# ifdef LEXDEBUG
+			if(debug)fprintf(yyout,"state %d\n",yystate-yysvec-1);
+# endif
+			yyt = yystate->yystoff;
+			if(yyt == yycrank && !yyfirst){  /* may not be any transitions */
+				yyz = yystate->yyother;
+				if(yyz == 0)break;
+				if(yyz->yystoff == yycrank)break;
+				}
+			*yylastch++ = yych = input();
+			yyfirst=0;
+		tryagain:
+# ifdef LEXDEBUG
+			if(debug){
+				fprintf(yyout,"char ");
+				allprint(yych);
+				putchar('\n');
+				}
+# endif
+			yyr = yyt;
+			if ( (int)yyt > (int)yycrank){
+				yyt = yyr + yych;
+				if (yyt <= yytop && yyt->verify+yysvec == yystate){
+					if(yyt->advance+yysvec == YYLERR)	/* error transitions */
+						{unput(*--yylastch);break;}
+					*lsp++ = yystate = yyt->advance+yysvec;
+					goto contin;
+					}
+				}
+# ifdef YYOPTIM
+			else if((int)yyt < (int)yycrank) {		/* r < yycrank */
+				yyt = yyr = yycrank+(yycrank-yyt);
+# ifdef LEXDEBUG
+				if(debug)fprintf(yyout,"compressed state\n");
+# endif
+				yyt = yyt + yych;
+				if(yyt <= yytop && yyt->verify+yysvec == yystate){
+					if(yyt->advance+yysvec == YYLERR)	/* error transitions */
+						{unput(*--yylastch);break;}
+					*lsp++ = yystate = yyt->advance+yysvec;
+					goto contin;
+					}
+				yyt = yyr + YYU(yymatch[yych]);
+# ifdef LEXDEBUG
+				if(debug){
+					fprintf(yyout,"try fall back character ");
+					allprint(YYU(yymatch[yych]));
+					putchar('\n');
+					}
+# endif
+				if(yyt <= yytop && yyt->verify+yysvec == yystate){
+					if(yyt->advance+yysvec == YYLERR)	/* error transition */
+						{unput(*--yylastch);break;}
+					*lsp++ = yystate = yyt->advance+yysvec;
+					goto contin;
+					}
+				}
+			if ((yystate = yystate->yyother) && (yyt= yystate->yystoff) != yycrank){
+# ifdef LEXDEBUG
+				if(debug)fprintf(yyout,"fall back to state %d\n",yystate-yysvec-1);
+# endif
+				goto tryagain;
+				}
+# endif
+			else
+				{unput(*--yylastch);break;}
+		contin:
+# ifdef LEXDEBUG
+			if(debug){
+				fprintf(yyout,"state %d char ",yystate-yysvec-1);
+				allprint(yych);
+				putchar('\n');
+				}
+# endif
+			;
+			}
+# ifdef LEXDEBUG
+		if(debug){
+			fprintf(yyout,"stopped at %d with ",*(lsp-1)-yysvec-1);
+			allprint(yych);
+			putchar('\n');
+			}
+# endif
+		while (lsp-- > yylstate){
+			*yylastch-- = 0;
+			if (*lsp != 0 && (yyfnd= (*lsp)->yystops) && *yyfnd > 0){
+				yyolsp = lsp;
+				if(yyextra[*yyfnd]){		/* must backup */
+					while(yyback((*lsp)->yystops,-*yyfnd) != 1 && lsp > yylstate){
+						lsp--;
+						unput(*yylastch--);
+						}
+					}
+				yyprevious = YYU(*yylastch);
+				yylsp = lsp;
+				yyleng = yylastch-yytext+1;
+				yytext[yyleng] = 0;
+# ifdef LEXDEBUG
+				if(debug){
+					fprintf(yyout,"\nmatch ");
+					sprint(yytext);
+					fprintf(yyout," action %d\n",*yyfnd);
+					}
+# endif
+				return(*yyfnd++);
+				}
+			unput(*yylastch);
+			}
+		if (yytext[0] == 0  /* && feof(yyin) */)
+			{
+			yysptr=yysbuf;
+			return(0);
+			}
+		yyprevious = yytext[0] = input();
+		if (yyprevious>0)
+			output(yyprevious);
+		yylastch=yytext;
+# ifdef LEXDEBUG
+		if(debug)putchar('\n');
+# endif
+		}
+	}
+yyback(p, m)
+	int *p;
+{
+if (p==0) return(0);
+while (*p)
+	{
+	if (*p++ == m)
+		return(1);
+	}
+return(0);
+}
+	/* the following are only used in the lex library */
+yyinput(){
+	return(input());
+	}
+yyoutput(c)
+  int c; {
+	output(c);
+	}
+yyunput(c)
+   int c; {
+	unput(c);
+	}