From: Nick Papadakis <edu/mit/csail/zurich/nick>
Date: Fri, 23 Jul 1993 20:06:58 +0000 (+0000)
Subject: Added FLOATING_VECTOR_ARG to support vectors of double floats
X-Git-Tag: 20090517-FFI~8178
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f8231cf18689a2e8f994e4851b4871d893a64896;p=mit-scheme.git

Added FLOATING_VECTOR_ARG to support vectors of double floats
Added FFI stuf to ymake.lcl for 700's
---

diff --git a/v7/src/microcode/unxutl/y700.lcl b/v7/src/microcode/unxutl/y700.lcl
index e64e26b66..4bed9492b 100644
--- a/v7/src/microcode/unxutl/y700.lcl
+++ b/v7/src/microcode/unxutl/y700.lcl
@@ -1,10 +1,30 @@
 /* -*- C -*-
    Switzerland local additions to the makefile
-   $Id: y700.lcl,v 1.7 1993/06/25 21:18:52 gjr Exp $
+   $Id: y700.lcl,v 1.8 1993/07/23 20:06:58 nick Exp $
  */
 
 COMMON_OBJECTS = $(CORE_OBJECTS) $(STD_GC_OBJECTS) $(UNIX_OBJECTS) $(OS_PRIM_OBJECTS)
 
+/* Foreign function interface
+   The following are reasonable defaults
+   Make a file called "ffi" with the scheme-like definitions of the
+functions you want to call.  Then load "gen-prim.scm" into a scheme,
+and call "(gen-prim "ffi"), which will generate an "ffi.c" and an
+"ffi.scm".  Edit these as appropriate.  Then add your stuff to the
+three lines below and do 'make xmkfile' followed by 'make -f xmkfile scmffi'.
+ */
+
+FFI_SOURCES = ffi.c
+FFI_OBJECTS = ffi.o
+FFI_LIBS    = -ldld -lcl -lisamstub -lc
+
+ALL_FFI_SOURCES = $(X_SOURCES) $(TERMCAP_OBJECTS) $(GRAPHICS_SOURCES)\
+	SOURCES_SYSTEM SOURCES_MACHINE $(FFI_SOURCES)
+ALL_FFI_OBJECTS = $(X_OBJECTS) $(TERMCAP_OBJECTS) $(GRAPHICS_OBJECTS)\
+	OBJECTS_SYSTEM OBJECTS_MACHINE ffi.o $(FFI_OBJECTS) usrFFI.o
+ALL_FFI_LIBS =  $(USER_LIBS) $(FFI_LIBS) $(GRAPHICS_LIBS) $(X_LIB) $(TERMCAP_LIBS)\
+	LIB_MATH LIBS_SYSTEM LIBS_MACHINE LIB_DEBUG LIB_STANDARD
+
 
 /* There is some hair here since scmsig (the signal-processing schemne
 for GJS) and scm6003 (thanos) need separate versions of some files.
@@ -48,6 +68,18 @@ install.world: install scmsig scm6003
 	-rm -f $(BINDIR)/scmsig.busy
 	$(INSTALL) scmsig $(BINDIR)/scmsig
 
+
+scmffi : $(COMMON_OBJECTS) $(ALL_FFI_OBJECTS)
+	@ECHO "#** Re-linking" $@ because of $?
+	rm -f $@
+	$(CC) $(LDFLAGS) -o $@ $(COMMON_OBJECTS) $(ALL_FFI_OBJECTS) $(ALL_FFI_LIBS)
+
+usrFFI.c : $(ALL_FFI_SOURCES) $(SOURCES) $(OS_PRIM_SOURCES) usrdef.tch findprim xmkfile
+	@ECHO "#** Re-making" $@ because of $?
+	rm -f usrFFI.c
+	./findprim $(ALL_FFI_SOURCES) $(SOURCES) $(OS_PRIM_SOURCES) > usrFFI.c
+
+
 scm6003 : $(COMMON_OBJECTS) $(6003_OBJECTS)
 	@ECHO "#** Re-linking" $@ because of $?
 	rm -f $@
@@ -73,6 +105,7 @@ sgraph.o sgraph_x.o sgx.o : scheme.tch prims.h sgraph.h
 sgraph_a.o : scheme.tch prims.h sgraph.h array.h
 fft.o : scheme.tch prims.h zones.h array.h image.h
 array.o image.o : scheme.tch prims.h array.h
+ffi.o : scheme.tch prims.h
 
 d_sgraph_a.o: scheme.tch prims.h sgraph.h array.h d_sgraph_a.c
 	$(CC) $(CFLAGS)  -DREAL_IS_DEFINED_DOUBLE=1 -c $*.c
@@ -101,4 +134,3 @@ clean.world:
 	rm -f usrSIG.o usr6003.o usrkit.o usrLYN.o
 	rm -f usrSIG.c usr6003.c usrkit.c usrLYN.c
 	rm -f d_sgraph_a.c d_fft.c d_array.c d_image.c
-