Initial import of wamcc version 2.22.

A Prolog-to-C translator from Inria.

PR:		13745
Submitted by:	W. Gerald Hicks <wghicks@bellsouth.net>

6 files changed, 228 insertions, 0 deletions

diff --git a/lang/wamcc/files/patch-aa b/lang/wamcc/files/patch-aa
new file mode 100644
index 0000000..782e1bd
--- /dev/null
+++ b/lang/wamcc/files/patch-aa
@@ -0,0 +1,68 @@
+--- Makefile.orig	Tue Mar  7 03:21:05 1995
++++ Makefile	Sun Oct 31 13:03:29 1999
+@@ -5,12 +5,16 @@
+ # /* Makefile                                                              */
+ # /*-----------------------------------------------------------------------*/
+ 
+-# you can change the following paths
++PREFIX?=	/usr/local
++INCPATH=	$(PREFIX)/include/wamcc
++LIBPATH=	$(PREFIX)/lib/wamcc
++BINPATH=	$(PREFIX)/bin
++DOCPATH=	$(PREFIX)/share/doc/wamcc
++EXAMPLEPATH=	$(PREFIX)/share/examples/wamcc
++
++PROGRAMS=	src/$(COMPILER) src/$(BMF) src/hex2pl src/pl2hex
++SCRIPTS=	src/$(WCC)
+ 
+-ROOTPATH= $(HOME)/$(COMPILER)
+-INCPATH = $(ROOTPATH)/include
+-LIBPATH = $(ROOTPATH)/lib
+-BINPATH = $(ROOTPATH)/bin
+ 
+ # you can specify the name of the C compiler
+ 
+@@ -25,24 +29,28 @@
+ 
+ EXECS   = $(WCC) $(COMPILER) $(BMF) hex2pl pl2hex
+ 
+-install:
+-	cd src; echo $(ROOTPATH);\
++all:
++	(cd src; \
+ 	make $(WCC) COMPILER=$(COMPILER) INCPATH=$(INCPATH) \
+-                    LIBPATH=$(LIBPATH) CC=$(CC) WCC=$(WCC)
+-	cd Builtin; \
+-	make COMPILER=$(COMPILER) CC=$(CC) WCC=../src/$(WCC)
+-	cd src; \
++                    LIBPATH=$(LIBPATH) CC=$(CC) WCC=$(WCC))
++	(cd Builtin; \
++	make COMPILER=$(COMPILER) CC=$(CC) WCC=../src/$(WCC))
++	(cd src; \
+ 	make COMPILER=$(COMPILER) INCPATH=$(INCPATH) \
+-             LIBPATH=$(LIBPATH) CC=$(CC) WCC=$(WCC)
+-	-mkdir -p $(INCPATH)
+-	-mkdir -p $(LIBPATH)
+-	-mkdir -p $(BINPATH)
+-	cp src/*.h $(INCPATH)
+-	rm $(INCPATH)/wamcc*.h
+-	cp src/*.a $(LIBPATH)
+-	ranlib $(LIBPATH)/*.a
+-	cp src/$(WCC) src/$(COMPILER) src/$(BMF) src/hex2pl src/pl2hex $(BINPATH)
++             LIBPATH=$(LIBPATH) CC=$(CC) WCC=$(WCC))
+ 
++install:
++	$(INSTALL) -d $(INCPATH)
++	$(INSTALL) -c -m 444 src/*.h $(INCPATH)
++	$(INSTALL) -d $(LIBPATH)
++	$(INSTALL) -c -m 444 src/*.a $(LIBPATH)
++	$(INSTALL) -d $(DOCPATH)
++	$(INSTALL) -c -m 444 doc/* $(DOCPATH)
++	$(INSTALL) -d $(EXAMPLEPATH)
++	$(INSTALL) -c -m 444 Examples/* $(EXAMPLEPATH)
++	$(INSTALL) -d $(BINPATH)
++	$(INSTALL) -c -m 555 $(SCRIPTS) $(BINPATH)
++	$(INSTALL) -c -s -m 555 $(PROGRAMS) $(BINPATH)
+ 
+ clean:
+ 	cd src;     make clean
diff --git a/lang/wamcc/files/patch-ab b/lang/wamcc/files/patch-ab
new file mode 100644
index 0000000..0de56c1
--- /dev/null
+++ b/lang/wamcc/files/patch-ab
@@ -0,0 +1,11 @@
+--- Builtin/Makefile.orig	Fri Dec 23 18:10:02 1994
++++ Builtin/Makefile	Tue Sep 14 04:17:29 1999
+@@ -51,7 +51,7 @@
+ 
+ 
+ starter.c: build_starter Makefile
+-	build_starter $(BIPS) >starter.c
++	./build_starter $(BIPS) >starter.c
+ 
+ build_starter: build_starter.c
+ 	$(CC) $(CFLAGS) $(LFLAGS) -o build_starter build_starter.c
diff --git a/lang/wamcc/files/patch-ac b/lang/wamcc/files/patch-ac
new file mode 100644
index 0000000..b3c3dbd
--- /dev/null
+++ b/lang/wamcc/files/patch-ac
@@ -0,0 +1,51 @@
+--- src/Makefile.orig	Wed Jan 29 11:37:54 1997
++++ src/Makefile	Tue Sep 14 04:16:11 1999
+@@ -49,22 +49,22 @@
+ 
+ 
+ machine.o: machine.h archi.h wam_engine.h machine.c
+-	$(WCC) $(CFLAGS) -c machine.c
++	./$(WCC) $(CFLAGS) -c machine.c
+ 
+ wam_engine.o: machine.h archi.h wam_engine.h atom_pred.h wam_engine.c 
+-	$(WCC) $(CFLAGS) -c wam_engine.c
++	./$(WCC) $(CFLAGS) -c wam_engine.c
+ 
+ wam_engine_pp.o: machine.h archi.h wam_engine.h atom_pred.h wam_engine.c
+-	$(WCC) $(CFLAGS) -DWAM_PROFILE -c -o wam_engine_pp.o wam_engine.c
++	./$(WCC) $(CFLAGS) -DWAM_PROFILE -c -o wam_engine_pp.o wam_engine.c
+ 
+ atom_pred.o: machine.h archi.h wam_engine.h atom_pred.h atom_pred.c
+-	$(WCC) $(CFLAGS) -c atom_pred.c
++	./$(WCC) $(CFLAGS) -c atom_pred.c
+ 
+ debugger.o: machine.h archi.h wam_engine.h atom_pred.h debugger.c
+-	$(WCC) $(CFLAGS) -c debugger.c
++	./$(WCC) $(CFLAGS) -c debugger.c
+ 
+ hash.o: machine.h hash.c
+-	$(WCC) $(CFLAGS) -c hash.c
++	./$(WCC) $(CFLAGS) -c hash.c
+ 
+ 
+ 
+@@ -79,7 +79,7 @@
+ 
+ 
+ $(WCC): configure archi.def
+-	configure
++	./configure
+ 	chmod a+x $(WCC)
+ 
+ $(BMF): bmf.c
+@@ -95,8 +95,8 @@
+ 	$(CC) $(CFLAGS) $(LFLAGS) -o pl2hex pl2hex.c
+ 
+ $(COMPILER):
+-	$(WCC) $(CFLAGS) -c wamcc*.c
+-	$(WCC) $(CFLAGS) $(LFLAGS) -s -o $(COMPILER) wamcc*.o -l$(COMPILER)
++	./$(WCC) $(CFLAGS) -c wamcc*.c
++	./$(WCC) $(CFLAGS) $(LFLAGS) -s -o $(COMPILER) wamcc*.o -l$(COMPILER)
+ 
+ 
+ 
diff --git a/lang/wamcc/files/patch-ad b/lang/wamcc/files/patch-ad
new file mode 100644
index 0000000..a8372a5
--- /dev/null
+++ b/lang/wamcc/files/patch-ad
@@ -0,0 +1,36 @@
+--- src/debugger.c.orig	Sun Dec 18 12:15:55 1994
++++ src/debugger.c	Tue Sep 14 04:16:44 1999
+@@ -278,7 +278,15 @@
+ 
+ #define Y_Storing_Invoc_Nb(e)   (Y(e,3))                   /* see call.pl */
+ 
++static void mygets(char *str, int size)
++{
++	char *p;
++	fgets(str,size,stdin);
+ 
++	p = index(str, '\n');
++	if(p)
++		*p = '\0';
++}
+ 
+ 
+ 
+@@ -959,7 +967,7 @@
+  Lib1(printf," ? ");
+ 
+  *str='\0';
+- Lib1(gets,str);
++ Lib2(mygets,str,sizeof(str) - 1);
+  if (*str=='\0')
+      Lib2(strcpy,str,"creep");
+ 
+@@ -2047,7 +2055,7 @@
+      Lib1(printf,"\nNew value: ");
+ 
+      *str='\0';
+-     Lib1(gets,str);
++     Lib2(mygets,str,sizeof(str) - 1);
+      if (*str=='\0')
+          return;
+ 
diff --git a/lang/wamcc/files/patch-ae b/lang/wamcc/files/patch-ae
new file mode 100644
index 0000000..b8b6e20
--- /dev/null
+++ b/lang/wamcc/files/patch-ae
@@ -0,0 +1,14 @@
+--- src/machine.c.orig	Sun Dec 18 12:15:59 1994
++++ src/machine.c	Tue Sep 14 04:16:29 1999
+@@ -52,7 +52,11 @@
+ 
+ #endif
+ 
++#if !defined(M_i386_freebsd) && !defined(M_alpha_freebsd)
++
+ extern char *sys_errlist[];
++
++#endif
+ 
+ 
+ 
diff --git a/lang/wamcc/files/patch-af b/lang/wamcc/files/patch-af
new file mode 100644
index 0000000..4702250
--- /dev/null
+++ b/lang/wamcc/files/patch-af
@@ -0,0 +1,48 @@
+--- src/machine.h.orig	Mon Oct 23 10:59:26 1995
++++ src/machine.h	Tue Sep 14 04:13:45 1999
+@@ -33,6 +33,16 @@
+ #      define M_MACHINE            "dec_alpha"
+ #      define M_dec_alpha
+ 
++#   elif defined(__FreeBSD__) && defined(i386)
++
++	#define M_MACHINE          "i386_freebsd"
++	#define M_i386_freebsd
++
++#   elif defined(__FreeBSD__) && defined(alpha)
++
++        #define M_MACHINE        "alpha_freebsd"
++	#define M_alpha_freebsd
++
+ #   elif defined(__linux__) && !defined(__ELF__)
+ 
+ #      define M_MACHINE            "pc_linux_a_out"
+@@ -101,7 +111,8 @@
+ /*---------------------------------*/
+ 
+ #if defined(M_sony_news) || defined(M_dec_ultrix) || defined(M_dec_alpha) ||\
+-    defined(M_pc_linux_elf)
++    defined(M_pc_linux_elf) || defined(M_i386_freebsd) ||\
++    defined(M_alpha_freebsd)
+ 
+ #   define M_Asm_Symbol1(name)     #name
+ #   define M_Asm_Symbol(name)      M_Asm_Symbol1(name)
+@@ -122,7 +133,8 @@
+ 
+ 
+ #if defined(M_sparc) || defined(M_dec_ultrix) || defined(M_sony_news) ||    \
+-    defined(M_NeXT_hppa) || defined(M_dec_alpha)
++    defined(M_NeXT_hppa) || defined(M_dec_alpha) || defined(M_i386_freebsd) ||\
++    defined(M_alpha_freebsd)
+ 
+ #    define M_Save_Control_Info
+ #    define M_Restore_Control_Info
+@@ -145,7 +157,7 @@
+ 
+ 
+ #if defined(M_sparc) || defined(M_dec_ultrix) || defined(M_sony_news) ||    \
+-    defined(M_NeXT_hppa)
++    defined(M_NeXT_hppa) || defined(M_i386_freebsd) || defined(M_alpha_freebsd)
+ 
+ #    define M_Direct_Goto(lab)     {lab(); return;}
+ #    define M_Indirect_Goto(p_lab) {(* ((void (*)()) p_lab))();return;}