Move stuff for various binding languages to own directories.

git-svn-id: http://svn.drobilla.net/lad/slv2@1315 a436a847-0d15-0410-975c-d299462d15a1

3 files changed, 30 insertions, 0 deletions

diff --git a/swig/chicken/Makefile.am b/swig/chicken/Makefile.am
new file mode 100644
index 0000000..8e3de73
--- /dev/null
+++ b/swig/chicken/Makefile.am
@@ -0,0 +1,15 @@
+EXTRA_DIST = slv2.setup lv2_list.scm
+
+if WITH_CHICKEN
+all:
+	rm -f slv2.scm slv2_wrap.c
+	swig -DCHICKEN -Wall -chicken -proxy -nounit -I../.. -o slv2_wrap.c -oh slv2_wrap.h ../slv2.i
+	tar -czf slv2.egg slv2.setup slv2.scm slv2_wrap.c
+
+#install-exec-local:
+#	chicken-setup ./slv2.egg
+
+clean-local:
+	rm -f *.[ch] *.so *.o slv2.egg slv2.scm
+endif
+
diff --git a/swig/chicken/lv2_list.scm b/swig/chicken/lv2_list.scm
new file mode 100644
index 0000000..cc23e0d
--- /dev/null
+++ b/swig/chicken/lv2_list.scm
@@ -0,0 +1,13 @@
+; Least idiomatic scheme bindings ever.  Work in progress...
+
+(require-extension slv2)
+
+(define world (slv2-world-new))
+(slv2-world-load-all world)
+
+(define plugins (slv2-world-get-all-plugins world))
+
+(let ((p (slv2-plugins-get-at plugins 0)))
+  (display (slv2-value-as-string (slv2-plugin-get-uri p)))
+  (newline))
+
diff --git a/swig/chicken/slv2.setup b/swig/chicken/slv2.setup
new file mode 100644
index 0000000..ef15f6d
--- /dev/null
+++ b/swig/chicken/slv2.setup
@@ -0,0 +1,2 @@
+(run (csc -s -o slv2.so slv2.scm slv2_wrap.c -lslv2))
+(install-extension 'slv2 '("slv2.so"))