From 19329883d58b0931dbb86e9eb54c80658ecf7752 Mon Sep 17 00:00:00 2001
From: Bruce Mitchener <bruce.mitchener@gmail.com>
Date: Wed, 13 Jan 2021 08:14:19 +0700
Subject: [PATCH] Add missing foreigndefs.h, includes to foreign.c. (#214)

---
 CMakeLists.txt    |  1 +
 bin/makefile-tail |  2 +-
 inc/foreigndefs.h | 18 ++++++++++++++++++
 src/foreign.c     |  5 +++++
 4 files changed, 25 insertions(+), 1 deletion(-)
 create mode 100644 inc/foreigndefs.h

diff --git a/CMakeLists.txt b/CMakeLists.txt
index f91e75f..4ef2531 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -290,6 +290,7 @@ SET(MAIKO_HDRS
     inc/ether.h
     inc/fast_dsp.h
     inc/findkeydefs.h
+    inc/foreigndefs.h
     inc/fpdefs.h
     inc/fvardefs.h
     inc/gc2defs.h
diff --git a/bin/makefile-tail b/bin/makefile-tail
index b4640b9..b844498 100755
--- a/bin/makefile-tail
+++ b/bin/makefile-tail
@@ -841,7 +841,7 @@ $(OBJECTDIR)xwinman.o : $(SRCDIR)xwinman.c  $(REQUIRED-INCS) $(INCDIR)xdefs.h \
 	$(INCDIR)MyWindow.h $(INCDIR)dbprint.h
 	$(CC) $(RFLAGS) $(SRCDIR)xwinman.c -o $(OBJECTDIR)xwinman$(OEXT)
 
-$(OBJECTDIR)foreign.o : $(SRCDIR)foreign.c  $(REQUIRED-INCS) $(INCLUDEDIR)dld.h
+$(OBJECTDIR)foreign.o : $(SRCDIR)foreign.c  $(REQUIRED-INCS) $(INCLUDEDIR)dld.h $(INCDIR)foreigndefs.h
 	$(CC) $(RFLAGS) $(SRCDIR)foreign.c $(INLINE) -o $(OBJECTDIR)foreign$(OEXT)
 
 $(OBJECTDIR)lisp2c.o : $(SRCDIR)lisp2c.c  $(REQUIRED-INCS) $(INCLUDEDIR)dld.h
diff --git a/inc/foreigndefs.h b/inc/foreigndefs.h
new file mode 100644
index 0000000..3b28fe6
--- /dev/null
+++ b/inc/foreigndefs.h
@@ -0,0 +1,18 @@
+#ifndef FOREIGNDEFS_H
+#define FOREIGNDEFS_H 1
+
+LispPTR call_c_fn(LispPTR *args);
+LispPTR smashing_c_fn(LispPTR *args);
+int Mdld_link(LispPTR *args);
+int Mdld_unlink_by_file(LispPTR *args);
+int Mdld_unlink_by_symbol(LispPTR *args);
+unsigned long Mdld_get_symbol(LispPTR *args);
+unsigned long Mdld_get_func(LispPTR *args);
+int Mdld_function_executable_p(LispPTR *args);
+int Mdld_list_undefined_sym(void);
+int c_malloc(LispPTR *args);
+int c_free(LispPTR *args);
+int put_c_basebyte(LispPTR *args);
+int get_c_basebyte(LispPTR *args);
+
+#endif /* FOREIGNDEFS_H */
diff --git a/src/foreign.c b/src/foreign.c
index ea1a1ff..b17b802 100644
--- a/src/foreign.c
+++ b/src/foreign.c
@@ -11,7 +11,9 @@
 #include "version.h"
 
 #ifndef NOFORN
+#include <stdio.h>
 #include <sys/param.h>
+
 #include "dld.h"
 #include "lispemul.h"
 #include "lspglob.h"
@@ -19,9 +21,12 @@
 #include "adr68k.h"
 #include "lispmap.h"
 #include "lsptypes.h"
+#include "lisp2cdefs.h"
 #include "locfile.h"
 #include "medleyfp.h"
+#include "mkcelldefs.h"
 #include "arith.h"
+#include "commondefs.h"
 #include "stack.h"
 
 #include "foreigndefs.h"