Index: mpeg3.meta =================================================================== --- mpeg3.meta (revision 15226) +++ mpeg3.meta (working copy) @@ -1,6 +1,7 @@ ((files "mpeg3.scm" "mpeg3.setup" "mpeg3.html") (egg "mpeg3.egg") (doc-from-wiki) + (needs easyffi) (author "Alejandro Forero Cuervo") (synopsis "Decodes several MPEG standards into uncompressed data suitable for editing and playback.") Index: mpeg3.setup =================================================================== --- mpeg3.setup (revision 15226) +++ mpeg3.setup (working copy) @@ -1,2 +1,6 @@ -(compile -s -O2 -d1 mpeg3.scm -L -lmpeg3) -(install-extension 'mpeg3 '("mpeg3.so" "mpeg3.html") '((version 0.2) (documentation "mpeg3.html"))) +(compile -s -O2 -d1 mpeg3.scm -L -lmpeg3 -j mpeg3) +(compile -s -O2 -d1 mpeg3.import.scm) +(install-extension 'mpeg3 + '("mpeg3.so" "mpeg3.import.so" "mpeg3.html") + '((version 0.2) + (documentation "mpeg3.html"))) Index: mpeg3.scm =================================================================== --- mpeg3.scm (revision 15226) +++ mpeg3.scm (working copy) @@ -1,6 +1,8 @@ -(declare - (export mpeg3-check-sig mpeg3-open mpeg3-close mpeg3-set-cpus mpeg3-set-mmx mpeg3-has-audio mpeg3-total-astreams mpeg3-audio-channels mpeg3-sample-rate mpeg3-audio-samples mpeg3-seek-byte mpeg3-tell-byte mpeg3-get-bytes mpeg3-get-time mpeg3-set-sample mpeg3-get-sample mpeg3-drop-frames)) +(module mpeg3 + (mpeg3-check-sig mpeg3-open mpeg3-close mpeg3-set-cpus mpeg3-set-mmx mpeg3-has-audio mpeg3-total-astreams mpeg3-audio-channels mpeg3-sample-rate mpeg3-audio-samples mpeg3-seek-byte mpeg3-tell-byte mpeg3-get-bytes mpeg3-get-time mpeg3-set-sample mpeg3-get-sample mpeg3-drop-frames) +(import chicken scheme) +(use easyffi) (declare (foreign-declare #< @@ -74,4 +76,4 @@ (foreign-lambda long "mpeg3_get_sample" mpeg3-type integer)) (define mpeg3-drop-frames - (foreign-lambda int "mpeg3_drop_frames" mpeg3-type long integer)) + (foreign-lambda int "mpeg3_drop_frames" mpeg3-type long integer)) )