[src/trunk]: src/dist/nawk Import nawk 2000/11/15.

[jdolecek <jdolecek%NetBSD.org@localhost>]

details:   https://anonhg.NetBSD.org/src/rev/92df1e2a241a
branches:  trunk
changeset: 503411:92df1e2a241a
user:      jdolecek <jdolecek%NetBSD.org@localhost>
date:      Mon Feb 05 13:31:17 2001 +0000

description:
Import nawk 2000/11/15.

These files are not used for build, but are usable when one want to regenerate
proctab.c

diffstat:

 dist/nawk/makefile  |   81 +++++++++++++++++++++++++
 dist/nawk/maketab.c |  168 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 249 insertions(+), 0 deletions(-)

diffs (257 lines):

diff -r 196672248ab3 -r 92df1e2a241a dist/nawk/makefile
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/dist/nawk/makefile        Mon Feb 05 13:31:17 2001 +0000
@@ -0,0 +1,81 @@
+# /****************************************************************
+# Copyright (C) Lucent Technologies 1997
+# All Rights Reserved
+# 
+# Permission to use, copy, modify, and distribute this software and
+# its documentation for any purpose and without fee is hereby
+# granted, provided that the above copyright notice appear in all
+# copies and that both that the copyright notice and this
+# permission notice and warranty disclaimer appear in supporting
+# documentation, and that the name Lucent Technologies or any of
+# its entities not be used in advertising or publicity pertaining
+# to distribution of the software without specific, written prior
+# permission.
+# 
+# LUCENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
+# INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
+# IN NO EVENT SHALL LUCENT OR ANY OF ITS ENTITIES BE LIABLE FOR ANY
+# SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
+# IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
+# ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
+# THIS SOFTWARE.
+# ****************************************************************/
+
+CFLAGS = -g
+CFLAGS = -O2
+CFLAGS =
+
+CC = gcc -Wall -g
+CC = /opt/pure/purify/purify cc
+CC = cc
+
+YACC = bison -y
+YACC = yacc
+YFLAGS = -d
+
+OFILES = b.o main.o parse.o proctab.o tran.o lib.o run.o lex.o
+
+SOURCE = awk.h ytab.c ytab.h proto.h awkgram.y lex.c b.c main.c maketab.c parse.c lib.c run.c tran.c proctab.c missing95.c
+
+LISTING = awk.h proto.h awkgram.y lex.c b.c main.c maketab.c parse.c lib.c run.c tran.c missing95.c
+
+SHIP = README FIXES $(SOURCE) ytab[ch].bak makefile awk.1 buildwin.bat mac.code
+
+a.out: ytab.o $(OFILES)
+       $(CC) $(CFLAGS) ytab.o $(OFILES) $(ALLOC)  -lm
+
+$(OFILES):     awk.h ytab.h proto.h
+
+ytab.o:        awk.h proto.h awkgram.y
+       $(YACC) $(YFLAGS) awkgram.y
+       mv y.tab.c ytab.c
+       mv y.tab.h ytab.h
+       $(CC) $(CFLAGS) -c ytab.c
+
+proctab.c:     maketab
+       ./maketab >proctab.c
+
+maketab:       ytab.h maketab.c
+       $(CC) $(CFLAGS) maketab.c -o maketab
+
+bundle:
+       @cp ytab.h ytabh.bak
+       @cp ytab.c ytabc.bak
+       @bundle $(SHIP)
+
+tar:
+       @cp ytab.h ytabh.bak
+       @cp ytab.c ytabc.bak
+       @bundle $(SHIP) >awk.shar
+       @tar cf awk.tar $(SHIP)
+       gzip awk.tar
+       ls -l awk.tar.gz
+       @zip awk.zip $(SHIP)
+       ls -l awk.zip
+
+names:
+       @echo $(LISTING)
+
+clean:
+       rm -f a.out *.o maketab # proctab.c
diff -r 196672248ab3 -r 92df1e2a241a dist/nawk/maketab.c
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/dist/nawk/maketab.c       Mon Feb 05 13:31:17 2001 +0000
@@ -0,0 +1,168 @@
+/****************************************************************
+Copyright (C) Lucent Technologies 1997
+All Rights Reserved
+
+Permission to use, copy, modify, and distribute this software and
+its documentation for any purpose and without fee is hereby
+granted, provided that the above copyright notice appear in all
+copies and that both that the copyright notice and this
+permission notice and warranty disclaimer appear in supporting
+documentation, and that the name Lucent Technologies or any of
+its entities not be used in advertising or publicity pertaining
+to distribution of the software without specific, written prior
+permission.
+
+LUCENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
+INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
+IN NO EVENT SHALL LUCENT OR ANY OF ITS ENTITIES BE LIABLE FOR ANY
+SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
+IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
+THIS SOFTWARE.
+****************************************************************/
+
+/*
+ * this program makes the table to link function names
+ * and type indices that is used by execute() in run.c.
+ * it finds the indices in ytab.h, produced by yacc.
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include "awk.h"
+#include "ytab.h"
+
+struct xx
+{      int token;
+       char *name;
+       char *pname;
+} proc[] = {
+       { PROGRAM, "program", NULL },
+       { BOR, "boolop", " || " },
+       { AND, "boolop", " && " },
+       { NOT, "boolop", " !" },
+       { NE, "relop", " != " },
+       { EQ, "relop", " == " },
+       { LE, "relop", " <= " },
+       { LT, "relop", " < " },
+       { GE, "relop", " >= " },
+       { GT, "relop", " > " },
+       { ARRAY, "array", NULL },
+       { INDIRECT, "indirect", "$(" },
+       { SUBSTR, "substr", "substr" },
+       { SUB, "sub", "sub" },
+       { GSUB, "gsub", "gsub" },
+       { INDEX, "sindex", "sindex" },
+       { SPRINTF, "awksprintf", "sprintf " },
+       { ADD, "arith", " + " },
+       { MINUS, "arith", " - " },
+       { MULT, "arith", " * " },
+       { DIVIDE, "arith", " / " },
+       { MOD, "arith", " % " },
+       { UMINUS, "arith", " -" },
+       { POWER, "arith", " **" },
+       { PREINCR, "incrdecr", "++" },
+       { POSTINCR, "incrdecr", "++" },
+       { PREDECR, "incrdecr", "--" },
+       { POSTDECR, "incrdecr", "--" },
+       { CAT, "cat", " " },
+       { PASTAT, "pastat", NULL },
+       { PASTAT2, "dopa2", NULL },
+       { MATCH, "matchop", " ~ " },
+       { NOTMATCH, "matchop", " !~ " },
+       { MATCHFCN, "matchop", "matchop" },
+       { INTEST, "intest", "intest" },
+       { PRINTF, "awkprintf", "printf" },
+       { PRINT, "printstat", "print" },
+       { CLOSE, "closefile", "closefile" },
+       { DELETE, "awkdelete", "awkdelete" },
+       { SPLIT, "split", "split" },
+       { ASSIGN, "assign", " = " },
+       { ADDEQ, "assign", " += " },
+       { SUBEQ, "assign", " -= " },
+       { MULTEQ, "assign", " *= " },
+       { DIVEQ, "assign", " /= " },
+       { MODEQ, "assign", " %= " },
+       { POWEQ, "assign", " ^= " },
+       { CONDEXPR, "condexpr", " ?: " },
+       { IF, "ifstat", "if(" },
+       { WHILE, "whilestat", "while(" },
+       { FOR, "forstat", "for(" },
+       { DO, "dostat", "do" },
+       { IN, "instat", "instat" },
+       { NEXT, "jump", "next" },
+       { NEXTFILE, "jump", "nextfile" },
+       { EXIT, "jump", "exit" },
+       { BREAK, "jump", "break" },
+       { CONTINUE, "jump", "continue" },
+       { RETURN, "jump", "ret" },
+       { BLTIN, "bltin", "bltin" },
+       { CALL, "call", "call" },
+       { ARG, "arg", "arg" },
+       { VARNF, "getnf", "NF" },
+       { GETLINE, "getline", "getline" },
+       { 0, "", "" },
+};
+
+#define SIZE   (LASTTOKEN - FIRSTTOKEN + 1)
+char *table[SIZE];
+char *names[SIZE];
+
+int main(int argc, char *argv[])
+{
+       struct xx *p;
+       int i, n, tok;
+       char c;
+       FILE *fp;
+       char buf[200], name[200], def[200];
+
+       printf("#include <stdio.h>\n");
+       printf("#include \"awk.h\"\n");
+       printf("#include \"ytab.h\"\n\n");
+       for (i = SIZE; --i >= 0; )
+               names[i] = "";
+
+       if ((fp = fopen("ytab.h", "r")) == NULL) {
+               fprintf(stderr, "maketab can't open ytab.h!\n");
+               exit(1);
+       }
+       printf("static char *printname[%d] = {\n", SIZE);
+       i = 0;
+       while (fgets(buf, sizeof buf, fp) != NULL) {
+               n = sscanf(buf, "%1c %s %s %d", &c, def, name, &tok);
+               if (c != '#' || (n != 4 && strcmp(def,"define") != 0))  /* not a valid #define */
+                       continue;
+               if (tok < FIRSTTOKEN || tok > LASTTOKEN) {
+                       fprintf(stderr, "maketab funny token %d %s ignored\n", tok, buf);
+                       continue;
+               }
+               names[tok-FIRSTTOKEN] = (char *) malloc(strlen(name)+1);
+               strcpy(names[tok-FIRSTTOKEN], name);
+               printf("\t(char *) \"%s\",\t/* %d */\n", name, tok);
+               i++;
+       }
+       printf("};\n\n");
+
+       for (p=proc; p->token!=0; p++)
+               table[p->token-FIRSTTOKEN] = p->name;
+       printf("\nCell *(*proctab[%d])(Node **, int) = {\n", SIZE);
+       for (i=0; i<SIZE; i++)
+               if (table[i]==0)
+                       printf("\tnullproc,\t/* %s */\n", names[i]);
+               else
+                       printf("\t%s,\t/* %s */\n", table[i], names[i]);
+       printf("};\n\n");
+
+       printf("char *tokname(int n)\n");       /* print a tokname() function */
+       printf("{\n");
+       printf("        static char buf[100];\n\n");
+       printf("        if (n < FIRSTTOKEN || n > LASTTOKEN) {\n");
+       printf("                sprintf(buf, \"token %%d\", n);\n");
+       printf("                return buf;\n");
+       printf("        }\n");
+       printf("        return printname[n-FIRSTTOKEN];\n");
+       printf("}\n");
+       return 0;
+}