Hi Bill,
* bill <[email protected]> [090725 14:05]:
> b...@bugs:~$ svn checkout
> https://galinha.ucpel.tche.br/svn/chicken-eggs/release/4/mpeg3
> svn: URL
> 'https://galinha.ucpel.tche.br/svn/chicken-eggs/release/4/mpeg3' doesn't
> exist
> b...@bugs:~$
>
> If I change the 4 to a 3 it works.
That's because mpeg3 has not been ported yet. Sorry if I caused
confusion here. To make up for it you can get a chicken 4 egg if
you apply the attached diff to the version 3 trunk of this egg.
I hope this helps,
Christian
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 #<<EOF
#include <libmpeg3.h>
@@ -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)) )
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
