187 lines
		
	
	
		
			7.2 KiB
		
	
	
	
		
			Makefile
		
	
	
	
			
		
		
	
	
			187 lines
		
	
	
		
			7.2 KiB
		
	
	
	
		
			Makefile
		
	
	
	
| .PHONY: package test libtest.o tests/libtest.so libtest.a documentation README.html
 | |
| .SILENT: build install test test-docker clean
 | |
| SCHEME=chibi
 | |
| DOCKERIMG=${SCHEME}:head
 | |
| VERSION=0.10.9
 | |
| PKG=foreign-c-${VERSION}.tgz
 | |
| GAUCHE_PKG=foreign-c-gauche-primitives-${VERSION}.tgz
 | |
| GAUCHE_TAR=foreign-c-gauche-primitives-${VERSION}.tar
 | |
| CC=gcc
 | |
| PKG=foreign-c-${VERSION}.tgz
 | |
| ifeq "${SCHEME}" "chicken"
 | |
| DOCKERIMG=${SCHEME}:5
 | |
| endif
 | |
| 
 | |
| # Mit scheme specific
 | |
| MITCMD=mit-scheme --batch-mode
 | |
| MITDIR=${PWD}/foreign/c/primitives/mit-scheme
 | |
| MITLIBDIR=$(shell echo "(display (->namestring (system-library-directory-pathname)))" | mit-scheme --batch-mode 2> /dev/null | tail -1)
 | |
| 
 | |
| 
 | |
| build:
 | |
| 	rm -rf *.tgz
 | |
| 	echo "<pre>$$(cat README.md)</pre>" > README.html
 | |
| 	snow-chibi package \
 | |
| 		--version=${VERSION} \
 | |
| 		--authors="Retropikzel" \
 | |
| 		--doc=README.html \
 | |
| 		--foreign-depends=ffi \
 | |
| 		--description="Portable foreign function interface for R7RS Schemes" \
 | |
| 		--test=test.scm \
 | |
| 	foreign/c.sld \
 | |
| 	foreign/c/chibi-primitives.sld \
 | |
| 	foreign/c/chicken-primitives.sld \
 | |
| 	foreign/c/guile-primitives.sld \
 | |
| 	foreign/c/kawa-primitives.sld \
 | |
| 	foreign/c/mosh-primitives.sld \
 | |
| 	foreign/c/racket-primitives.sld \
 | |
| 	foreign/c/stklos-primitives.sld \
 | |
| 	foreign/c/ypsilon-primitives.sld
 | |
| 
 | |
| build-gauche:
 | |
| 	snow-chibi package \
 | |
| 		--version=${VERSION} \
 | |
| 		--authors="Retropikzel" \
 | |
| 		--foreign-depends="libgauche ffi" \
 | |
| 		--description="Portable foreign function interface for R7RS Schemes - Gauche primitives" \
 | |
| 	foreign/c/gauche-primitives.sld \
 | |
| 	foreign/c/gauche-primitives.stub
 | |
| 
 | |
| install:
 | |
| 	snow-chibi --impls=${SCHEME} --always-yes install ${PKG}
 | |
| 
 | |
| install-gauche:
 | |
| 	if [ "${SCHEME}" = "gauche" ]; then \
 | |
| 		snow-chibi --impls=${SCHEME} ${SNOW_CHIBI_ARGS} install ${GAUCHE_PKG}; \
 | |
| 	fi
 | |
| 
 | |
| 		#make gauche; \
 | |
| 		#sudo cp foreign/c/primitives/gauche.scm $(shell gauche-config --sitelibdir)/foreign/c/primitives/;\
 | |
| 		#sudo mkdir -p $(shell gauche-config --sitearchdir)/foreign/c/lib/; \
 | |
| 		#sudo cp -r foreign/c/lib/gauche.so $(shell gauche-config --sitearchdir)/foreign/c/lib/; \
 | |
| 	#fi
 | |
| 
 | |
| uninstall:
 | |
| 	snow-chibi --impls=${SCHEME} remove "(foreign c)"
 | |
| 
 | |
| test: libtest.o libtest.so libtest.a
 | |
| 	rm -rf test
 | |
| 	COMPILE_R7RS_CHICKEN="-L -ltest -I./tests/c-include -L." \
 | |
| 		COMPILE_R7RS=${SCHEME} compile-r7rs -I . -o test test.scm
 | |
| 	LD_LIBRARY_PATH=. ./test
 | |
| 
 | |
| test-docker:
 | |
| 	docker build --build-arg IMAGE=${DOCKERIMG} --build-arg SCHEME=${SCHEME} --tag=retropikzel-foreign-c-test-${SCHEME} -f Dockerfile.test .
 | |
| 	docker run -v "${PWD}:/workdir" -w /workdir -t retropikzel-foreign-c-test-${SCHEME} sh -c "make SCHEME=${SCHEME} SNOW_CHIBI_ARGS=--always-yes build install test"
 | |
| 
 | |
| libtest.o: tests/c-src/libtest.c
 | |
| 	${CC} ${CFLAGS} -o libtest.o -fPIC -c tests/c-src/libtest.c -I./include ${LDFLAGS}
 | |
| 
 | |
| libtest.so: tests/c-src/libtest.c
 | |
| 	${CC} ${CFLAGS} -o libtest.so -shared -fPIC tests/c-src/libtest.c -I./include ${LDFLAGS}
 | |
| 
 | |
| libtest.a: libtest.o tests/c-src/libtest.c
 | |
| 	ar rcs libtest.a libtest.o ${LDFLAGS}
 | |
| 
 | |
| chibi: foreign/c/chibi-primitives.stub
 | |
| 	chibi-ffi foreign/c/chibi-primitives.stub
 | |
| 	#${CC} ${CFLAGS} -g3 -o foreign/c/primitives/chibi/foreign-c.so foreign/c/primitives/chibi/foreign-c.c -fPIC -lffi -shared
 | |
| 
 | |
| gauche:
 | |
| 	gauche-package compile \
 | |
| 		--srcdir=foreign/c \
 | |
| 		--keep-c-files \
 | |
| 		gauche-primitives \
 | |
| 		gauche-primitives.gauche.scm
 | |
| 	#gcc -shared -o foreign/c/gauche-primitives.so gauche-primitives.so
 | |
| 		#--verbose \
 | |
| 		#--keep-c-files \
 | |
| 		#--srcdir=foreign/c/gauche \
 | |
| 		#--cc=${CC} \
 | |
| 		#--cflags="${CFLAGS} -I.foreign/c/gauche" \
 | |
| 		#--libs=-lffi \
 | |
| 		#foreign-c-gauche-primitives foreign-c-gauche-primitives.c gauchelib.scm
 | |
| 	#mkdir -p foreign/c/lib
 | |
| 	#mv foreign-c-gauche-primitives.so foreign/c/lib/gauche.so
 | |
| 	#mv foreign-c-gauche-primitives.o foreign/c/lib/gauche.o
 | |
| 
 | |
| mit-scheme:
 | |
| 	cd ${MITDIR} && echo "(load-option 'ffi) (c-generate \"mit-scheme-foreign-c\" \"#include <stdio.h>\n#include <ffi.h>\") " | ${MITCMD}
 | |
| 	cd ${MITDIR} && ${CC} -shared -Wall -fPIC -lffi -o mit-scheme-foreign-c-shim.so mit-scheme-foreign-c-shim.c -I${MITLIBDIR}
 | |
| 	cd ${MITDIR} && ${CC} -Wall -fPIC -lffi -o mit-scheme-foreign-c-const mit-scheme-foreign-c-const.c -I$(shell mit-scheme --batch-mode --eval "(display (->namestring (system-library-directory-pathname)))" --eval "(exit 0)" | tail -1)
 | |
| 	cd ${MITDIR} && ./mit-scheme-foreign-c-const
 | |
| 	cd ${MITDIR} && echo "(sf \"mit-scheme-foreign-c-const\")" | ${MITCMD}
 | |
| 	cd ${MITDIR} && echo "(generate-shim \"mit-scheme-foreign-c\" \"#include <stdio.h>\n#include <ffi.h>\")" | ${MITCMD}
 | |
| 	sudo cp foreign/c/primitives/mit-scheme/mit-scheme-foreign-c-types.bin ${MITLIBDIR}
 | |
| 	sudo cp foreign/c/primitives/mit-scheme/mit-scheme-foreign-c-const.bin ${MITLIBDIR}
 | |
| 	sudo cp foreign/c/primitives/mit-scheme/mit-scheme-foreign-c-shim.so ${MITLIBDIR}
 | |
| 	cd foreign && echo '(compile-file "c-mit-scheme.sld")' | ${MITCMD}
 | |
| 	sudo mkdir -p ${MITLIBDIR}/libraries/foreign
 | |
| 	sudo cp foreign/c-mit-scheme.binld ${MITLIBDIR} #/libraries/foreign/
 | |
| 	sudo cp foreign/c-mit-scheme.comld ${MITLIBDIR} #/libraries/foreign/
 | |
| 	#sudo cp foreign/c-mit-scheme.sld ${MITLIBDIR} #/libraries/foreign/
 | |
| 
 | |
| 
 | |
| test-mit-scheme:
 | |
| 	LD_LIBRARY_PATH=${PWD}/foreign/c/primitives/mit-scheme \
 | |
| 		echo "(exit 0)" | mit-scheme --batch-mode --load test.scm --eval "(exit 0)"
 | |
| 
 | |
| 
 | |
| mit-scheme-old:
 | |
| 	cd foreign/c/primitives/mit-scheme \
 | |
| 		&& ${CC} \
 | |
| 		-c -Wall -fPIC -lffi -o mit-scheme-foreign-c.o mit-scheme-foreign-c-shim.c \
 | |
| 		-I$(shell mit-scheme --batch-mode --eval "(display (->namestring (system-library-directory-pathname)))" --eval "(exit 0)" | tail -1)
 | |
| 	cd foreign/c/primitives/mit-scheme \
 | |
| 		#&& ${CC} -shared -Wall -fPIC -o mit-scheme-foreign-c.so mit-scheme-foreign-c-shim.o
 | |
| 	cd foreign/c/primitives/mit-scheme \
 | |
| 		&& mit-scheme --batch-mode \
 | |
| 			--eval "(generate-shim \"mit-scheme-foreign-c\" \"#include <stdio.h>\n#include <ffi.h>\")" \
 | |
| 			--eval "(exit 0)"
 | |
| 	cd foreign/c/primitives/mit-scheme \
 | |
| 		&& ${CC} -c -o mit-scheme-foreign-c-const.o mit-scheme-foreign-c-const.c
 | |
| 	cd foreign/c/primitives/mit-scheme \
 | |
| 		&& ${CC} -o mit-scheme-foreign-c-const mit-scheme-foreign-c-const.o
 | |
| 	cd foreign/c/primitives/mit-scheme \
 | |
| 		&& ./mit-scheme-foreign-c-const
 | |
| 	cd foreign/c/primitives/mit-scheme \
 | |
| 		&& echo '(sf "mit-scheme-foreign-c-const")' | mit-scheme --batch-mode
 | |
| 	cd foreign \
 | |
| 		&& echo '(sf "c-mit-scheme.sld")' | mit-scheme --batch-mode
 | |
| 
 | |
| clean:
 | |
| 	find . -name "*.meta" -delete
 | |
| 	find . -name "*.link" -delete
 | |
| 	find . -name "*.o" -delete
 | |
| 	find . -name "*.bci" -delete
 | |
| 	find . -name "*.com" -delete
 | |
| 	find . -name "*.comld" -delete
 | |
| 	find . -name "*.bin" -delete
 | |
| 	find . -name "*.binld" -delete
 | |
| 	find . -name "*.bcild" -delete
 | |
| 	find . -name "*.o[1-9]" -delete
 | |
| 	find . -name "*.so" -delete
 | |
| 	find . -name "*.a" -delete
 | |
| 	find . -name "*.class" -delete
 | |
| 	find . -name "*.jar" -delete
 | |
| 	find . -name "core.1" -delete
 | |
| 	find . -name "*@gambit*" -delete
 | |
| 	find . -name "*.import.scm" -delete
 | |
| 	find . -name "*.cdecl" -delete
 | |
| 	find . -name "*.log" -delete
 | |
| 	find . -name "*.tgz" -delete
 | |
| 	find . -name "*.rkt" -delete
 | |
| 	find . -name "*.tar.gz" -delete
 | |
| 	rm -rf MANIFEST.mf
 | |
| 	rm -rf tmp
 | |
| 	rm -rf foreign/c/primitives/chibi/foreign-c.c
 | |
| 	rm -rf foreign/c/lib
 | |
| 	rm -rf foreign/c/primitives/mit-scheme/mit-scheme-foreign-c-shim.c
 | |
| 	rm -rf foreign/c/primitives/mit-scheme/mit-scheme-foreign-c-const.c
 | |
| 	rm -rf foreign/c/primitives/mit-scheme/mit-scheme-foreign-c-const
 | |
| 	rm -rf foreign/c/primitives/mit-scheme/mit-scheme-foreign-c-const.scm
 | |
| 	rm -rf *.tgz
 | |
| 	rm -rf README.html
 | |
| 	rm -rf test
 | |
| 	rm -rf testfile.test
 |