summaryrefslogtreecommitdiffstats
path: root/swig/chicken
diff options
context:
space:
mode:
Diffstat (limited to 'swig/chicken')
-rw-r--r--swig/chicken/Makefile.am8
-rw-r--r--swig/chicken/lilv.setup4
-rw-r--r--swig/chicken/lv2_list.scm12
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))