Add missing foreigndefs.h, includes to foreign.c. (#214)

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

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

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 */

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"