diff options
Diffstat (limited to 'swig/chicken')
-rw-r--r-- | swig/chicken/Makefile.am | 8 | ||||
-rw-r--r-- | swig/chicken/lilv.setup | 4 | ||||
-rw-r--r-- | swig/chicken/lv2_list.scm | 12 |
3 files changed, 12 insertions, 12 deletions
diff --git a/swig/chicken/Makefile.am b/swig/chicken/Makefile.am index 16cb115..da3645d 100644 --- a/swig/chicken/Makefile.am +++ b/swig/chicken/Makefile.am @@ -2,14 +2,14 @@ EXTRA_DIST = lilv.setup lv2_list.scm if WITH_CHICKEN all: - rm -f lilv.scm slv2_wrap.c - swig -DCHICKEN -Wall -chicken -proxy -nounit -I../.. -o lilv_wrap.c -oh slv2_wrap.h ../slv2.i - tar -czf lilv.egg slv2.setup slv2.scm slv2_wrap.c + rm -f lilv.scm lilv_wrap.c + swig -DCHICKEN -Wall -chicken -proxy -nounit -I../.. -o lilv_wrap.c -oh lilv_wrap.h ../lilv.i + tar -czf lilv.egg lilv.setup lilv.scm lilv_wrap.c #install-exec-local: # chicken-setup ./lilv.egg clean-local: - rm -f *.[ch] *.so *.o lilv.egg slv2.scm + rm -f *.[ch] *.so *.o lilv.egg lilv.scm endif diff --git a/swig/chicken/lilv.setup b/swig/chicken/lilv.setup index ef15f6d..bac6aa3 100644 --- a/swig/chicken/lilv.setup +++ b/swig/chicken/lilv.setup @@ -1,2 +1,2 @@ -(run (csc -s -o slv2.so slv2.scm slv2_wrap.c -lslv2)) -(install-extension 'slv2 '("slv2.so")) +(run (csc -s -o lilv.so lilv.scm lilv_wrap.c -llilv)) +(install-extension 'lilv '("lilv.so")) diff --git a/swig/chicken/lv2_list.scm b/swig/chicken/lv2_list.scm index cc23e0d..3978a12 100644 --- a/swig/chicken/lv2_list.scm +++ b/swig/chicken/lv2_list.scm @@ -1,13 +1,13 @@ ; Least idiomatic scheme bindings ever. Work in progress... -(require-extension slv2) +(require-extension lilv) -(define world (slv2-world-new)) -(slv2-world-load-all world) +(define world (lilv-world-new)) +(lilv-world-load-all world) -(define plugins (slv2-world-get-all-plugins world)) +(define plugins (lilv-world-get-all-plugins world)) -(let ((p (slv2-plugins-get-at plugins 0))) - (display (slv2-value-as-string (slv2-plugin-get-uri p))) +(let ((p (lilv-plugins-get-at plugins 0))) + (display (lilv-value-as-string (lilv-plugin-get-uri p))) (newline)) |