Remove unmaintained/ogg code

db4
Chris Double 2009-09-25 16:46:22 +12:00
parent d1a67c358e
commit 1591f1b723
12 changed files with 0 additions and 404 deletions

View File

@ -1 +0,0 @@
Chris Double

View File

@ -1,132 +0,0 @@
! Copyright (C) 2007 Chris Double.
! See http://factorcode.org/license.txt for BSD license.
!
USING: kernel system combinators alien alien.syntax ;
IN: ogg
<<
"ogg" {
{ [ os winnt? ] [ "ogg.dll" ] }
{ [ os macosx? ] [ "libogg.0.dylib" ] }
{ [ os unix? ] [ "libogg.so" ] }
} cond "cdecl" add-library
>>
LIBRARY: ogg
C-STRUCT: oggpack_buffer
{ "long" "endbyte" }
{ "int" "endbit" }
{ "uchar*" "buffer" }
{ "uchar*" "ptr" }
{ "long" "storage" } ;
C-STRUCT: ogg_page
{ "uchar*" "header" }
{ "long" "header_len" }
{ "uchar*" "body" }
{ "long" "body_len" } ;
C-STRUCT: ogg_stream_state
{ "uchar*" "body_data" }
{ "long" "body_storage" }
{ "long" "body_fill" }
{ "long" "body_returned" }
{ "int*" "lacing_vals" }
{ "longlong*" "granule_vals" }
{ "long" "lacing_storage" }
{ "long" "lacing_fill" }
{ "long" "lacing_packet" }
{ "long" "lacing_returned" }
{ { "uchar" 282 } "header" }
{ "int" "header_fill" }
{ "int" "e_o_s" }
{ "int" "b_o_s" }
{ "long" "serialno" }
{ "long" "pageno" }
{ "longlong" "packetno" }
{ "longlong" "granulepos" } ;
C-STRUCT: ogg_packet
{ "uchar*" "packet" }
{ "long" "bytes" }
{ "long" "b_o_s" }
{ "long" "e_o_s" }
{ "longlong" "granulepos" }
{ "longlong" "packetno" } ;
C-STRUCT: ogg_sync_state
{ "uchar*" "data" }
{ "int" "storage" }
{ "int" "fill" }
{ "int" "returned" }
{ "int" "unsynced" }
{ "int" "headerbytes" }
{ "int" "bodybytes" } ;
FUNCTION: void oggpack_writeinit ( oggpack_buffer* b ) ;
FUNCTION: void oggpack_writetrunc ( oggpack_buffer* b, long bits ) ;
FUNCTION: void oggpack_writealign ( oggpack_buffer* b) ;
FUNCTION: void oggpack_writecopy ( oggpack_buffer* b, void* source, long bits ) ;
FUNCTION: void oggpack_reset ( oggpack_buffer* b ) ;
FUNCTION: void oggpack_writeclear ( oggpack_buffer* b ) ;
FUNCTION: void oggpack_readinit ( oggpack_buffer* b, uchar* buf, int bytes ) ;
FUNCTION: void oggpack_write ( oggpack_buffer* b, ulong value, int bits ) ;
FUNCTION: long oggpack_look ( oggpack_buffer* b, int bits ) ;
FUNCTION: long oggpack_look1 ( oggpack_buffer* b ) ;
FUNCTION: void oggpack_adv ( oggpack_buffer* b, int bits ) ;
FUNCTION: void oggpack_adv1 ( oggpack_buffer* b ) ;
FUNCTION: long oggpack_read ( oggpack_buffer* b, int bits ) ;
FUNCTION: long oggpack_read1 ( oggpack_buffer* b ) ;
FUNCTION: long oggpack_bytes ( oggpack_buffer* b ) ;
FUNCTION: long oggpack_bits ( oggpack_buffer* b ) ;
FUNCTION: uchar* oggpack_get_buffer ( oggpack_buffer* b ) ;
FUNCTION: void oggpackB_writeinit ( oggpack_buffer* b ) ;
FUNCTION: void oggpackB_writetrunc ( oggpack_buffer* b, long bits ) ;
FUNCTION: void oggpackB_writealign ( oggpack_buffer* b ) ;
FUNCTION: void oggpackB_writecopy ( oggpack_buffer* b, void* source, long bits ) ;
FUNCTION: void oggpackB_reset ( oggpack_buffer* b ) ;
FUNCTION: void oggpackB_writeclear ( oggpack_buffer* b ) ;
FUNCTION: void oggpackB_readinit ( oggpack_buffer* b, uchar* buf, int bytes ) ;
FUNCTION: void oggpackB_write ( oggpack_buffer* b, ulong value, int bits ) ;
FUNCTION: long oggpackB_look ( oggpack_buffer* b, int bits ) ;
FUNCTION: long oggpackB_look1 ( oggpack_buffer* b ) ;
FUNCTION: void oggpackB_adv ( oggpack_buffer* b, int bits ) ;
FUNCTION: void oggpackB_adv1 ( oggpack_buffer* b ) ;
FUNCTION: long oggpackB_read ( oggpack_buffer* b, int bits ) ;
FUNCTION: long oggpackB_read1 ( oggpack_buffer* b ) ;
FUNCTION: long oggpackB_bytes ( oggpack_buffer* b ) ;
FUNCTION: long oggpackB_bits ( oggpack_buffer* b ) ;
FUNCTION: uchar* oggpackB_get_buffer ( oggpack_buffer* b ) ;
FUNCTION: int ogg_stream_packetin ( ogg_stream_state* os, ogg_packet* op ) ;
FUNCTION: int ogg_stream_pageout ( ogg_stream_state* os, ogg_page* og ) ;
FUNCTION: int ogg_stream_flush ( ogg_stream_state* os, ogg_page* og ) ;
FUNCTION: int ogg_sync_init ( ogg_sync_state* oy ) ;
FUNCTION: int ogg_sync_clear ( ogg_sync_state* oy ) ;
FUNCTION: int ogg_sync_reset ( ogg_sync_state* oy ) ;
FUNCTION: int ogg_sync_destroy ( ogg_sync_state* oy ) ;
FUNCTION: void* ogg_sync_buffer ( ogg_sync_state* oy, long size ) ;
FUNCTION: int ogg_sync_wrote ( ogg_sync_state* oy, long bytes ) ;
FUNCTION: long ogg_sync_pageseek ( ogg_sync_state* oy, ogg_page* og ) ;
FUNCTION: int ogg_sync_pageout ( ogg_sync_state* oy, ogg_page* og ) ;
FUNCTION: int ogg_stream_pagein ( ogg_stream_state* os, ogg_page* og ) ;
FUNCTION: int ogg_stream_packetout ( ogg_stream_state* os, ogg_packet* op ) ;
FUNCTION: int ogg_stream_packetpeek ( ogg_stream_state* os, ogg_packet* op ) ;
FUNCTION: int ogg_stream_init (ogg_stream_state* os, int serialno ) ;
FUNCTION: int ogg_stream_clear ( ogg_stream_state* os ) ;
FUNCTION: int ogg_stream_reset ( ogg_stream_state* os ) ;
FUNCTION: int ogg_stream_reset_serialno ( ogg_stream_state* os, int serialno ) ;
FUNCTION: int ogg_stream_destroy ( ogg_stream_state* os ) ;
FUNCTION: int ogg_stream_eos ( ogg_stream_state* os ) ;
FUNCTION: void ogg_page_checksum_set ( ogg_page* og ) ;
FUNCTION: int ogg_page_version ( ogg_page* og ) ;
FUNCTION: int ogg_page_continued ( ogg_page* og ) ;
FUNCTION: int ogg_page_bos ( ogg_page* og ) ;
FUNCTION: int ogg_page_eos ( ogg_page* og ) ;
FUNCTION: longlong ogg_page_granulepos ( ogg_page* og ) ;
FUNCTION: int ogg_page_serialno ( ogg_page* og ) ;
FUNCTION: long ogg_page_pageno ( ogg_page* og ) ;
FUNCTION: int ogg_page_packets ( ogg_page* og ) ;
FUNCTION: void ogg_packet_clear ( ogg_packet* op ) ;

View File

@ -1 +0,0 @@
Ogg media library binding

View File

@ -1,3 +0,0 @@
bindings
audio
video

View File

@ -1 +0,0 @@
Chris Double

View File

@ -1 +0,0 @@
Ogg Theora video library binding

View File

@ -1 +0,0 @@
video

View File

@ -1,120 +0,0 @@
! Copyright (C) 2007 Chris Double.
! See http://factorcode.org/license.txt for BSD license.
!
USING: kernel system combinators alien alien.syntax ;
IN: ogg.theora
<<
"theora" {
{ [ os winnt? ] [ "theora.dll" ] }
{ [ os macosx? ] [ "libtheora.0.dylib" ] }
{ [ os unix? ] [ "libtheora.so" ] }
} cond "cdecl" add-library
>>
LIBRARY: theora
C-STRUCT: yuv_buffer
{ "int" "y_width" }
{ "int" "y_height" }
{ "int" "y_stride" }
{ "int" "uv_width" }
{ "int" "uv_height" }
{ "int" "uv_stride" }
{ "void*" "y" }
{ "void*" "u" }
{ "void*" "v" } ;
: OC_CS_UNSPECIFIED ( -- number ) 0 ; inline
: OC_CS_ITU_REC_470M ( -- number ) 1 ; inline
: OC_CS_ITU_REC_470BG ( -- number ) 2 ; inline
: OC_CS_NSPACES ( -- number ) 3 ; inline
TYPEDEF: int theora_colorspace
: OC_PF_420 ( -- number ) 0 ; inline
: OC_PF_RSVD ( -- number ) 1 ; inline
: OC_PF_422 ( -- number ) 2 ; inline
: OC_PF_444 ( -- number ) 3 ; inline
TYPEDEF: int theora_pixelformat
C-STRUCT: theora_info
{ "uint" "width" }
{ "uint" "height" }
{ "uint" "frame_width" }
{ "uint" "frame_height" }
{ "uint" "offset_x" }
{ "uint" "offset_y" }
{ "uint" "fps_numerator" }
{ "uint" "fps_denominator" }
{ "uint" "aspect_numerator" }
{ "uint" "aspect_denominator" }
{ "theora_colorspace" "colorspace" }
{ "int" "target_bitrate" }
{ "int" "quality" }
{ "int" "quick_p" }
{ "uchar" "version_major" }
{ "uchar" "version_minor" }
{ "uchar" "version_subminor" }
{ "void*" "codec_setup" }
{ "int" "dropframes_p" }
{ "int" "keyframe_auto_p" }
{ "uint" "keyframe_frequency" }
{ "uint" "keyframe_frequency_force" }
{ "uint" "keyframe_data_target_bitrate" }
{ "int" "keyframe_auto_threshold" }
{ "uint" "keyframe_mindistance" }
{ "int" "noise_sensitivity" }
{ "int" "sharpness" }
{ "theora_pixelformat" "pixelformat" } ;
C-STRUCT: theora_state
{ "theora_info*" "i" }
{ "longlong" "granulepos" }
{ "void*" "internal_encode" }
{ "void*" "internal_decode" } ;
C-STRUCT: theora_comment
{ "char**" "user_comments" }
{ "int*" "comment_lengths" }
{ "int" "comments" }
{ "char*" "vendor" } ;
: OC_FAULT ( -- number ) -1 ; inline
: OC_EINVAL ( -- number ) -10 ; inline
: OC_DISABLED ( -- number ) -11 ; inline
: OC_BADHEADER ( -- number ) -20 ; inline
: OC_NOTFORMAT ( -- number ) -21 ; inline
: OC_VERSION ( -- number ) -22 ; inline
: OC_IMPL ( -- number ) -23 ; inline
: OC_BADPACKET ( -- number ) -24 ; inline
: OC_NEWPACKET ( -- number ) -25 ; inline
: OC_DUPFRAME ( -- number ) 1 ; inline
FUNCTION: char* theora_version_string ( ) ;
FUNCTION: uint theora_version_number ( ) ;
FUNCTION: int theora_encode_init ( theora_state* th, theora_info* ti ) ;
FUNCTION: int theora_encode_YUVin ( theora_state* t, yuv_buffer* yuv ) ;
FUNCTION: int theora_encode_packetout ( theora_state* t, int last_p, ogg_packet* op ) ;
FUNCTION: int theora_encode_header ( theora_state* t, ogg_packet* op ) ;
FUNCTION: int theora_encode_comment ( theora_comment* tc, ogg_packet* op ) ;
FUNCTION: int theora_encode_tables ( theora_state* t, ogg_packet* op ) ;
FUNCTION: int theora_decode_header ( theora_info* ci, theora_comment* cc, ogg_packet* op ) ;
FUNCTION: int theora_decode_init ( theora_state* th, theora_info* c ) ;
FUNCTION: int theora_decode_packetin ( theora_state* th, ogg_packet* op ) ;
FUNCTION: int theora_decode_YUVout ( theora_state* th, yuv_buffer* yuv ) ;
FUNCTION: int theora_packet_isheader ( ogg_packet* op ) ;
FUNCTION: int theora_packet_iskeyframe ( ogg_packet* op ) ;
FUNCTION: int theora_granule_shift ( theora_info* ti ) ;
FUNCTION: longlong theora_granule_frame ( theora_state* th, longlong granulepos ) ;
FUNCTION: double theora_granule_time ( theora_state* th, longlong granulepos ) ;
FUNCTION: void theora_info_init ( theora_info* c ) ;
FUNCTION: void theora_info_clear ( theora_info* c ) ;
FUNCTION: void theora_clear ( theora_state* t ) ;
FUNCTION: void theora_comment_init ( theora_comment* tc ) ;
FUNCTION: void theora_comment_add ( theora_comment* tc, char* comment ) ;
FUNCTION: void theora_comment_add_tag ( theora_comment* tc, char* tag, char* value ) ;
FUNCTION: char* theora_comment_query ( theora_comment* tc, char* tag, int count ) ;
FUNCTION: int theora_comment_query_count ( theora_comment* tc, char* tag ) ;
FUNCTION: void theora_comment_clear ( theora_comment* tc ) ;

View File

@ -1 +0,0 @@
Chris Double

View File

@ -1 +0,0 @@
Ogg Vorbis audio library binding

View File

@ -1 +0,0 @@
audio

View File

@ -1,141 +0,0 @@
! Copyright (C) 2007 Chris Double.
! See http://factorcode.org/license.txt for BSD license.
!
USING: kernel system combinators alien alien.syntax ogg ;
IN: ogg.vorbis
<<
"vorbis" {
{ [ os winnt? ] [ "vorbis.dll" ] }
{ [ os macosx? ] [ "libvorbis.0.dylib" ] }
{ [ os unix? ] [ "libvorbis.so" ] }
} cond "cdecl" add-library
>>
LIBRARY: vorbis
C-STRUCT: vorbis_info
{ "int" "version" }
{ "int" "channels" }
{ "long" "rate" }
{ "long" "bitrate_upper" }
{ "long" "bitrate_nominal" }
{ "long" "bitrate_lower" }
{ "long" "bitrate_window" }
{ "void*" "codec_setup"}
;
C-STRUCT: vorbis_dsp_state
{ "int" "analysisp" }
{ "vorbis_info*" "vi" }
{ "float**" "pcm" }
{ "float**" "pcmret" }
{ "int" "pcm_storage" }
{ "int" "pcm_current" }
{ "int" "pcm_returned" }
{ "int" "preextrapolate" }
{ "int" "eofflag" }
{ "long" "lW" }
{ "long" "W" }
{ "long" "nW" }
{ "long" "centerW" }
{ "longlong" "granulepos" }
{ "longlong" "sequence" }
{ "longlong" "glue_bits" }
{ "longlong" "time_bits" }
{ "longlong" "floor_bits" }
{ "longlong" "res_bits" }
{ "void*" "backend_state" }
;
C-STRUCT: alloc_chain
{ "void*" "ptr" }
{ "void*" "next" }
;
C-STRUCT: vorbis_block
{ "float**" "pcm" }
{ "oggpack_buffer" "opb" }
{ "long" "lW" }
{ "long" "W" }
{ "long" "nW" }
{ "int" "pcmend" }
{ "int" "mode" }
{ "int" "eofflag" }
{ "longlong" "granulepos" }
{ "longlong" "sequence" }
{ "vorbis_dsp_state*" "vd" }
{ "void*" "localstore" }
{ "long" "localtop" }
{ "long" "localalloc" }
{ "long" "totaluse" }
{ "alloc_chain*" "reap" }
{ "long" "glue_bits" }
{ "long" "time_bits" }
{ "long" "floor_bits" }
{ "long" "res_bits" }
{ "void*" "internal" }
;
C-STRUCT: vorbis_comment
{ "char**" "usercomments" }
{ "int*" "comment_lengths" }
{ "int" "comments" }
{ "char*" "vendor" }
;
FUNCTION: void vorbis_info_init ( vorbis_info* vi ) ;
FUNCTION: void vorbis_info_clear ( vorbis_info* vi ) ;
FUNCTION: int vorbis_info_blocksize ( vorbis_info* vi, int zo ) ;
FUNCTION: void vorbis_comment_init ( vorbis_comment* vc ) ;
FUNCTION: void vorbis_comment_add ( vorbis_comment* vc, char* comment ) ;
FUNCTION: void vorbis_comment_add_tag ( vorbis_comment* vc, char* tag, char* contents ) ;
FUNCTION: char* vorbis_comment_query ( vorbis_comment* vc, char* tag, int count ) ;
FUNCTION: int vorbis_comment_query_count ( vorbis_comment* vc, char* tag ) ;
FUNCTION: void vorbis_comment_clear ( vorbis_comment* vc ) ;
FUNCTION: int vorbis_block_init ( vorbis_dsp_state* v, vorbis_block* vb ) ;
FUNCTION: int vorbis_block_clear ( vorbis_block* vb ) ;
FUNCTION: void vorbis_dsp_clear ( vorbis_dsp_state* v ) ;
FUNCTION: double vorbis_granule_time ( vorbis_dsp_state* v, longlong granulepos ) ;
FUNCTION: int vorbis_analysis_init ( vorbis_dsp_state* v, vorbis_info* vi ) ;
FUNCTION: int vorbis_commentheader_out ( vorbis_comment* vc, ogg_packet* op ) ;
FUNCTION: int vorbis_analysis_headerout ( vorbis_dsp_state* v,
vorbis_comment* vc,
ogg_packet* op,
ogg_packet* op_comm,
ogg_packet* op_code ) ;
FUNCTION: float** vorbis_analysis_buffer ( vorbis_dsp_state* v, int vals ) ;
FUNCTION: int vorbis_analysis_wrote ( vorbis_dsp_state* v, int vals ) ;
FUNCTION: int vorbis_analysis_blockout ( vorbis_dsp_state* v, vorbis_block* vb ) ;
FUNCTION: int vorbis_analysis ( vorbis_block* vb, ogg_packet* op ) ;
FUNCTION: int vorbis_bitrate_addblock ( vorbis_block* vb ) ;
FUNCTION: int vorbis_bitrate_flushpacket ( vorbis_dsp_state* vd,
ogg_packet* op ) ;
FUNCTION: int vorbis_synthesis_headerin ( vorbis_info* vi, vorbis_comment* vc,
ogg_packet* op ) ;
FUNCTION: int vorbis_synthesis_init ( vorbis_dsp_state* v, vorbis_info* vi ) ;
FUNCTION: int vorbis_synthesis_restart ( vorbis_dsp_state* v ) ;
FUNCTION: int vorbis_synthesis ( vorbis_block* vb, ogg_packet* op ) ;
FUNCTION: int vorbis_synthesis_trackonly ( vorbis_block* vb, ogg_packet* op ) ;
FUNCTION: int vorbis_synthesis_blockin ( vorbis_dsp_state* v, vorbis_block* vb ) ;
FUNCTION: int vorbis_synthesis_pcmout ( vorbis_dsp_state* v, float*** pcm ) ;
FUNCTION: int vorbis_synthesis_lapout ( vorbis_dsp_state* v, float*** pcm ) ;
FUNCTION: int vorbis_synthesis_read ( vorbis_dsp_state* v, int samples ) ;
FUNCTION: long vorbis_packet_blocksize ( vorbis_info* vi, ogg_packet* op ) ;
FUNCTION: int vorbis_synthesis_halfrate ( vorbis_info* v, int flag ) ;
FUNCTION: int vorbis_synthesis_halfrate_p ( vorbis_info* v ) ;
: OV_FALSE ( -- number ) -1 ; inline
: OV_EOF ( -- number ) -2 ; inline
: OV_HOLE ( -- number ) -3 ; inline
: OV_EREAD ( -- number ) -128 ; inline
: OV_EFAULT ( -- number ) -129 ; inline
: OV_EIMPL ( -- number ) -130 ; inline
: OV_EINVAL ( -- number ) -131 ; inline
: OV_ENOTVORBIS ( -- number ) -132 ; inline
: OV_EBADHEADER ( -- number ) -133 ; inline
: OV_EVERSION ( -- number ) -134 ; inline
: OV_ENOTAUDIO ( -- number ) -135 ; inline
: OV_EBADPACKET ( -- number ) -136 ; inline
: OV_EBADLINK ( -- number ) -137 ; inline
: OV_ENOSEEK ( -- number ) -138 ; inline