summaryrefslogtreecommitdiff
path: root/packages/oggvorbis/src
diff options
context:
space:
mode:
Diffstat (limited to 'packages/oggvorbis/src')
-rw-r--r--packages/oggvorbis/src/ogg.pas218
-rw-r--r--packages/oggvorbis/src/vorbis.pas458
2 files changed, 676 insertions, 0 deletions
diff --git a/packages/oggvorbis/src/ogg.pas b/packages/oggvorbis/src/ogg.pas
new file mode 100644
index 0000000000..d1d3b5b7f4
--- /dev/null
+++ b/packages/oggvorbis/src/ogg.pas
@@ -0,0 +1,218 @@
+{
+ Translation of the ogg headers for FreePascal
+ Copyright (C) 2006 by Ivo Steinmann
+}
+
+(********************************************************************
+ * *
+ * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE. *
+ * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS *
+ * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
+ * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING. *
+ * *
+ * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2002 *
+ * by the Xiph.Org Foundation http://www.xiph.org/ *
+ * *
+ ********************************************************************)
+
+unit ogg;
+
+{$mode objfpc}
+{$MINENUMSIZE 4}
+
+interface
+
+uses
+ ctypes;
+
+{$IFDEF WINDOWS}
+ {$DEFINE DYNLINK}
+{$ENDIF}
+
+{$IFDEF DYNLINK}
+const
+{$IF Defined(WINDOWS)}
+ ogglib = 'ogglib.dll';
+{$ELSEIF Defined(UNIX)}
+ ogglib = 'libogg.so';
+{$ELSE}
+ {$MESSAGE ERROR 'DYNLINK not supported'}
+{$IFEND}
+{$ELSE}
+ {$LINKLIB ogg}
+{$ENDIF}
+
+
+(***********************************************************************)
+(* Header : os_types.h *)
+(***********************************************************************)
+type
+ ogg_int64_t = cint64; pogg_int64_t = ^ogg_int64_t;
+ ogg_int32_t = cint32; pogg_int32_t = ^ogg_int32_t;
+ ogg_uint32_t = cuint32; pogg_uint32_t = ^ogg_uint32_t;
+ ogg_int16_t = cint16; pogg_int16_t = ^ogg_int16_t;
+ ogg_uint16_t = cuint16; pogg_uint16_t = ^ogg_uint16_t;
+
+
+(***********************************************************************)
+(* Header : ogg.h *)
+(***********************************************************************)
+type
+ poggpack_buffer = ^oggpack_buffer;
+ oggpack_buffer = record
+ endbyte : clong;
+ endbit : cint;
+ buffer : pcuchar;
+ ptr : pcuchar;
+ storage : clong;
+ end;
+
+{ ogg_page is used to encapsulate the data in one Ogg bitstream page }
+
+ pogg_page = ^ogg_page;
+ ogg_page = record
+ header : pcuchar;
+ header_len : clong;
+ body : pcuchar;
+ body_len : clong;
+ end;
+
+{ ogg_stream_state contains the current encode/decode state of a logical Ogg bitstream }
+
+ pogg_stream_state = ^ogg_stream_state;
+ ogg_stream_state = record
+ body_data : pcuchar; { bytes from packet bodies }
+ body_storage : clong; { storage elements allocated }
+ body_fill : clong; { elements stored; fill mark }
+ body_returned : clong; { elements of fill returned }
+
+ lacing_vals : pcint; { The values that will go to the segment table }
+ granule_vals : pogg_int64_t; { granulepos values for headers. Not compact this way, but it is simple coupled to the lacing fifo }
+
+ lacing_storage : clong;
+ lacing_fill : clong;
+ lacing_packet : clong;
+ lacing_returned : clong;
+
+ header : array[0..281] of cuchar; { working space for header encode }
+ header_fill : cint;
+
+ e_o_s : cint; { set when we have buffered the last packet in the logical bitstream }
+ b_o_s : cint; { set after we've written the initial page of a logical bitstream }
+
+ serialno : clong;
+ pageno : clong;
+ packetno : ogg_int64_t; { sequence number for decode; the framing knows where there's a hole in the data,
+ but we need coupling so that the codec (which is in a seperate abstraction layer) also knows about the gap }
+ granulepos : ogg_int64_t;
+ end;
+
+{ ogg_packet is used to encapsulate the data and metadata belonging to a single raw Ogg/Vorbis packet }
+
+ pogg_packet = ^ogg_packet;
+ ogg_packet = record
+ packet : pcuchar;
+ bytes : clong;
+ b_o_s : clong;
+ e_o_s : clong;
+
+ granulepos : ogg_int64_t;
+ packetno : ogg_int64_t; { sequence number for decode; the framing knows where there's a hole in the data,
+ but we need coupling so that the codec (which is in a seperate abstraction layer) also knows about the gap }
+ end;
+
+ ogg_sync_state = record
+ data : pcuchar;
+ storage : cint;
+ fill : cint;
+ returned : cint;
+
+ unsynced : cint;
+ headerbytes : cint;
+ bodybytes : cint;
+ end;
+
+{ Ogg BITSTREAM PRIMITIVES: bitstream }
+
+procedure oggpack_writeinit(var b: oggpack_buffer); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpack_writetrunc(var b: oggpack_buffer; bits: clong); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpack_writealign(var b: oggpack_buffer); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpack_writecopy(var b: oggpack_buffer; source: pointer; bits: clong); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpack_reset(var b: oggpack_buffer); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpack_writeclear(var b: oggpack_buffer); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpack_readinit(var b: oggpack_buffer; buf: pointer; bytes: cint); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpack_write(var b: oggpack_buffer; value: culong; bits: cint); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpack_look(var b: oggpack_buffer; bits: cint): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpack_look1(var b: oggpack_buffer): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpack_adv(var b: oggpack_buffer; bits: cint); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpack_adv1(var b: oggpack_buffer); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpack_read(var b: oggpack_buffer; bits: cint): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpack_read1(var b: oggpack_buffer): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpack_bytes(var b: oggpack_buffer): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpack_bits(var b: oggpack_buffer): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpack_get_buffer(var b: oggpack_buffer): pointer; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+
+procedure oggpackB_writeinit(var b: oggpack_buffer); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpackB_writetrunc(var b: oggpack_buffer; bits: clong); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpackB_writealign(var b: oggpack_buffer); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpackB_writecopy(var b: oggpack_buffer; source: pointer; bits: clong); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpackB_reset(var b: oggpack_buffer); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpackB_writeclear(var b: oggpack_buffer); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpackB_readinit(var b: oggpack_buffer; buf: pointer; bytes: cint); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpackB_write(var b: oggpack_buffer; value: culong; bits: cint); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpackB_look(var b: oggpack_buffer; bits: cint): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpackB_look1(var b: oggpack_buffer): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpackB_adv(var b: oggpack_buffer; bits: cint); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+procedure oggpackB_adv1(var b: oggpack_buffer); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpackB_read(var b: oggpack_buffer; bits: cint): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpackB_read1(var b: oggpack_buffer): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpackB_bytes(var b: oggpack_buffer): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpackB_bits(var b: oggpack_buffer): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function oggpackB_get_buffer(var b: oggpack_buffer): pointer; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+
+{ ogglib BITSTREAM PRIMITIVES: encoding }
+
+function ogg_stream_packetin(var os: ogg_stream_state; var op: ogg_packet): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_stream_pageout(var os: ogg_stream_state; var op: ogg_page): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_stream_flush(var os: ogg_stream_state; var op: ogg_page): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+
+{ ogglib BITSTREAM PRIMITIVES: decoding }
+
+function ogg_sync_init(var oy: ogg_sync_state): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_sync_clear(var oy: ogg_sync_state): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_sync_reset(var oy: ogg_sync_state): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_sync_destroy(var oy: ogg_sync_state): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+
+function ogg_sync_buffer(var oy: ogg_sync_state; size: clong): pointer; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_sync_wrote(var oy: ogg_sync_state; bytes: clong): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_sync_pageseek(var oy: ogg_sync_state; var og: ogg_page): pointer; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_sync_pageout(var oy: ogg_sync_state; var og: ogg_page): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_stream_pagein(var os: ogg_stream_state; var og: ogg_page): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_stream_packetout(var os: ogg_stream_state; var op: ogg_packet): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_stream_packetpeek(var os: ogg_stream_state; var op: ogg_packet): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+
+{ ogglib BITSTREAM PRIMITIVES: general }
+
+function ogg_stream_init(var os: ogg_stream_state; serialno: cint): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_stream_clear(var os: ogg_stream_state): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_stream_reset(var os: ogg_stream_state): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_stream_reset_serialno(var os: ogg_stream_state; serialno: cint): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_stream_destroy(var os: ogg_stream_state): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_stream_eos(var os: ogg_stream_state): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+
+procedure ogg_page_checksum_set(var og: ogg_page); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+
+function ogg_page_version(var og: ogg_page): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_page_continued(var og: ogg_page): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_page_bos(var og: ogg_page): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_page_eos(var og: ogg_page): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_page_granulepos(var og: ogg_page): ogg_int64_t; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_page_serialno(var og: ogg_page): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_page_pageno(var og: ogg_page): clong; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+function ogg_page_packets(var og: ogg_page): cint; cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+
+procedure ogg_packet_clear(var op: ogg_packet); cdecl; external {$IFDEF DYNLINK}ogglib{$ENDIF};
+
+implementation
+
+end.
diff --git a/packages/oggvorbis/src/vorbis.pas b/packages/oggvorbis/src/vorbis.pas
new file mode 100644
index 0000000000..56e38ad4da
--- /dev/null
+++ b/packages/oggvorbis/src/vorbis.pas
@@ -0,0 +1,458 @@
+{
+ Translation of the vorbis headers for FreePascal
+ Copyright (C) 2006 by Ivo Steinmann
+}
+
+(********************************************************************
+ * *
+ * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE. *
+ * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS *
+ * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
+ * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING. *
+ * *
+ * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2001 *
+ * by the XIPHOPHORUS Company http://www.xiph.org/ *
+ * *
+ ********************************************************************)
+
+unit vorbis;
+
+{$mode objfpc}
+{$MINENUMSIZE 4}
+{$PACKRECORDS C}
+
+interface
+
+uses
+ ctypes, ogg;
+
+{$IFDEF WINDOWS}
+ {$DEFINE DYNLINK}
+{$ENDIF}
+
+{$IFDEF DYNLINK}
+const
+{$IF Defined(WINDOWS)}
+ vorbislib = 'vorbis.dll';
+ vorbisfilelib = 'vorbisfile.dll';
+ vorbisenclib = 'vorbisenc.dll';
+{$ELSEIF Defined(UNIX)}
+ vorbislib = 'libvorbis.so';
+ vorbisfilelib = 'libvorbisfile.so';
+ vorbisenclib = 'libvorbisenc.so';
+{$ELSE}
+ {$MESSAGE ERROR 'DYNLINK not supported'}
+{$IFEND}
+{$ELSE}
+ {$LINKLIB vorbis}
+ {$LINKLIB vorbisfile}
+ {$LINKLIB vorbisenc}
+{$ENDIF}
+
+(***********************************************************************)
+(* Header : codec.h *)
+(***********************************************************************)
+
+type
+ csize_t = culong;
+
+ ppcfloat = ^pcfloat;
+
+ pvorbis_info = ^vorbis_info;
+ vorbis_info = record
+ version : cint;
+ channels : cint;
+ rate : clong;
+
+ { The below bitrate declarations are *hints*.
+ Combinations of the three values carry the following implications:
+
+ all three set to the same value:
+ implies a fixed rate bitstream
+ only nominal set:
+ implies a VBR stream that averages the nominal bitrate. No hard
+ upper/lower limit
+ upper and or lower set:
+ implies a VBR bitstream that obeys the bitrate limits. nominal
+ may also be set to give a nominal rate.
+ none set:
+ the coder does not care to speculate.
+ }
+
+ bitrate_upper : clong;
+ bitrate_nominal : clong;
+ bitrate_lower : clong;
+ bitrate_window : clong;
+ codec_setup : pointer;
+ end;
+
+{ vorbis_dsp_state buffers the current vorbis audio analysis/synthesis state. The DSP state belongs to a specific logical bitstream }
+
+ pvorbis_dsp_state = ^vorbis_dsp_state;
+ vorbis_dsp_state = record
+ analysisp : cint;
+ vi : pvorbis_info;
+
+ pcm : ppcfloat;
+ pcmret : ppcfloat;
+ pcm_storage : cint;
+ pcm_current : cint;
+ pcm_returned : cint;
+
+ preextrapolate : cint;
+ eofflag : cint;
+
+ lW : clong;
+ W : clong;
+ nW : clong;
+ centerW : clong;
+
+ granulepos : ogg_int64_t;
+ sequence : ogg_int64_t;
+
+ glue_bits : ogg_int64_t;
+ time_bits : ogg_int64_t;
+ floor_bits : ogg_int64_t;
+ res_bits : ogg_int64_t;
+
+ backend_state : pointer;
+ end;
+
+{ vorbis_block is a single block of data to be processed as part of
+ the analysis/synthesis stream; it belongs to a specific logical
+ bitstream, but is independant from other vorbis_blocks belonging to
+ that logical bitstream. }
+
+ palloc_chain = ^alloc_chain;
+ alloc_chain = record
+ ptr : pointer;
+ next : palloc_chain;
+ end;
+
+ pvorbis_block = ^vorbis_block;
+ vorbis_block = record
+ { necessary stream state for linking to the framing abstraction }
+ pcm : ppcfloat; { this is a pointer into local storage }
+ opb : oggpack_buffer;
+
+ lW : clong;
+ W : clong;
+ nW : clong;
+ pcmend : cint;
+ mode : cint;
+
+ eofflag : cint;
+ granulepos : ogg_int64_t;
+ sequence : ogg_int64_t;
+ vd : pvorbis_dsp_state; { For read-only access of configuration }
+
+ { local storage to avoid remallocing; it's up to the mapping to structure it }
+ localstore : pointer;
+ localtop : clong;
+ localalloc : clong;
+ totaluse : clong;
+ reap : palloc_chain;
+
+ { bitmetrics for the frame }
+ glue_bits : clong;
+ time_bits : clong;
+ floor_bits : clong;
+ res_bits : clong;
+
+ internal : pointer;
+ end;
+
+{ vorbis_info contains all the setup information specific to the
+ specific compression/decompression mode in progress (eg,
+ psychoacoustic settings, channel setup, options, codebook
+ etc). vorbis_info and substructures are in backends.h. }
+
+{ the comments are not part of vorbis_info so that vorbis_info can be static storage }
+
+ pvorbis_comment = ^vorbis_comment;
+ vorbis_comment = record
+ { unlimited user comment fields. libvorbis writes 'libvorbis' whatever vendor is set to in encode }
+ user_comments : ^pcchar;
+ comment_lengths : pcint;
+ comments : cint;
+ vendor : pcchar;
+ end;
+
+
+{ libvorbis encodes in two abstraction layers; first we perform DSP
+ and produce a packet (see docs/analysis.txt). The packet is then
+ coded into a framed OggSquish bitstream by the second layer (see
+ docs/framing.txt). Decode is the reverse process; we sync/frame
+ the bitstream and extract individual packets, then decode the
+ packet back into PCM audio.
+
+ The extra framing/packetizing is used in streaming formats, such as
+ files. Over the net (such as with UDP), the framing and
+ packetization aren't necessary as they're provided by the transport
+ and the streaming layer is not used }
+
+{ Vorbis PRIMITIVES: general }
+
+procedure vorbis_info_init(var vi: vorbis_info); cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+procedure vorbis_info_clear(var vi: vorbis_info); cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_info_blocksize(var vi: vorbis_info; zo: cint): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+procedure vorbis_comment_init(var vc: vorbis_comment); cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+procedure vorbis_comment_add(var vc: vorbis_comment; comment: pchar); cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+procedure vorbis_comment_add_tag(var vc: vorbis_comment; tag: pchar; contents: pchar); cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_comment_query(var vc: vorbis_comment; tag: pchar; count: cint): pchar; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_comment_query_count(var vc: vorbis_comment; tag: pchar): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+procedure vorbis_comment_clear(var vc: vorbis_comment); cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+
+function vorbis_block_init(var v: vorbis_dsp_state; var vb: vorbis_block): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_block_clear(var vb: vorbis_block): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+procedure vorbis_dsp_clear(var v: vorbis_dsp_state); cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_granule_time(var v: vorbis_dsp_state; granulepos: ogg_int64_t): cdouble; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+
+{ vorbislib PRIMITIVES: analysis/DSP layer }
+
+function vorbis_analysis_init(var v: vorbis_dsp_state; var vi: vorbis_info): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_commentheader_out(var vc: vorbis_comment; var op: ogg_packet): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_analysis_headerout(var v:vorbis_dsp_state; var vc: vorbis_comment; var op: ogg_packet; var op_comm: ogg_packet; var op_code: ogg_packet): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_analysis_buffer(var v: vorbis_dsp_state; vals: cint): ppcfloat; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_analysis_wrote(var v: vorbis_dsp_state; vals: cint): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_analysis_blockout(var v: vorbis_dsp_state; var vb: vorbis_block): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_analysis(var vb: vorbis_block; var op: ogg_packet): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+
+function vorbis_bitrate_addblock(var vb: vorbis_block): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_bitrate_flushpacket(var vd: vorbis_dsp_state; var op: ogg_packet): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+
+{ vorbislib PRIMITIVES: synthesis layer }
+
+function vorbis_synthesis_headerin(var vi: vorbis_info; var vc: vorbis_comment; var op: ogg_packet): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+
+function vorbis_synthesis_init(var v: vorbis_dsp_state; var vi: vorbis_info): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_synthesis_restart(var v: vorbis_dsp_state): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_synthesis(var vb: vorbis_block; var op: ogg_packet): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_synthesis_trackonly(var vb: vorbis_block; var op: ogg_packet): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_synthesis_blockin(var v: vorbis_dsp_state; var vb: vorbis_block): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_synthesis_pcmout(var v: vorbis_dsp_state; var pcm: ppcfloat): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_synthesis_lapout(var v: vorbis_dsp_state; var pcm: ppcfloat): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_synthesis_read(var v: vorbis_dsp_state; samples: cint): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_packet_blocksize(var vi: vorbis_info; var op: ogg_packet): clong; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+
+function vorbis_synthesis_halfrate(var v: vorbis_info; flag: cint): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+function vorbis_synthesis_halfrate_p(var v: vorbis_info): cint; cdecl; external {$IFDEF DYNLINK}vorbislib{$ENDIF};
+
+{ vorbislib ERRORS and return codes }
+Const
+ OV_FALSE = -1;
+ OV_EOF = -2;
+ OV_HOLE = -3;
+
+ OV_EREAD = -128;
+ OV_EFAULT = -129;
+ OV_EIMPL = -130;
+ OV_EINVAL = -131;
+ OV_ENOTVORBIS = -132;
+ OV_EBADHEADER = -133;
+ OV_EVERSION = -134;
+ OV_ENOTAUDIO = -135;
+ OV_EBADPACKET = -136;
+ OV_EBADLINK = -137;
+ OV_ENOSEEK = -138;
+
+
+(***********************************************************************)
+(* Header : vorbisfile.h *)
+(***********************************************************************)
+
+type
+
+{* The function prototypes for the callbacks are basically the same as for
+
+ * the stdio functions fread, fseek, fclose, ftell.
+ * The one difference is that the FILE * arguments have been replaced with
+ * a void * - this is to be used as a pointer to whatever internal data these
+ * functions might need. In the stdio case, it's just a FILE * cast to a void *
+ *
+ * If you use other functions, check the docs for these functions and return
+ * the right values. For seek_func(), you *MUST* return -1 if the stream is
+ * unseekable
+ *}
+
+ read_func = function(ptr: pointer; size, nmemb: csize_t; datasource: pointer): csize_t; cdecl;
+ seek_func = function(datasource: pointer; offset: ogg_int64_t; whence: cint): cint; cdecl;
+ close_func = function(datasource: pointer): cint; cdecl;
+ tell_func = function(datasource: pointer): clong; cdecl;
+
+ pov_callbacks = ^ov_callbacks;
+ ov_callbacks = record
+ read : read_func;
+ seek : seek_func;
+ close : close_func;
+ tell : tell_func;
+ end;
+
+const
+ NOTOPEN = 0;
+ PARTOPEN = 1;
+ OPENED = 2;
+ STREAMSET = 3;
+ INITSET = 4;
+
+type
+ POggVorbis_File = ^OggVorbis_File;
+ OggVorbis_File = record
+ datasource : pointer; { pointer to a FILE *, etc. }
+ seekable : cint;
+ offset : ogg_int64_t;
+ end_ : ogg_int64_t;
+ oy : ogg_sync_state;
+
+ { If the FILE handle isn't seekable (eg, a pipe), only the current stream appears }
+ links : cint;
+ offsets : pogg_int64_t;
+ dataoffsets : pogg_int64_t;
+ serialnos : pclong;
+ pcmlengths : pogg_int64_t; { overloaded to maintain binary compatability; x2 size, stores both beginning and end values }
+ vi : pvorbis_info;
+ vc : pvorbis_comment;
+
+ { Decoding working state local storage }
+ pcm_offset : ogg_int64_t;
+ ready_state : cint;
+ current_serialno: clong;
+ current_link : cint;
+
+ bittrack : cdouble;
+ samptrack : cdouble;
+
+ os : ogg_stream_state; { take physical pages, weld into a logical stream of packets }
+ vd : vorbis_dsp_state; { central working state for the packet->PCM decoder }
+ vb : vorbis_block; { local working space for packet->PCM decode }
+
+ callbacks : ov_callbacks;
+ end;
+
+
+function ov_clear(var vf: OggVorbis_File): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_open(f: pointer; var vf: OggVorbis_File; initial: pointer; ibytes: clong): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_open_callbacks(datasource: pointer; var vf: OggVorbis_File; initial: pointer; ibytes: clong; callbacks: ov_callbacks): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+
+function ov_test(f: pointer; var vf: OggVorbis_File; initial: pointer; ibytes: clong): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_test_callbacks(datasource: pointer; var vf: OggVorbis_File; initial: pointer; ibytes: clong; callbacks: ov_callbacks): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_test_open(var vf: OggVorbis_File): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+
+function ov_bitrate(var vf: OggVorbis_File; i: cint): clong; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_bitrate_instant(var vf: OggVorbis_File): clong; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_streams(var vf: OggVorbis_File): clong; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_seekable(var vf: OggVorbis_File): clong; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_serialnumber(var vf: OggVorbis_File; i: cint): clong; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+
+function ov_raw_total(var vf: OggVorbis_File; i: cint): ogg_int64_t; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_pcm_total(var vf: OggVorbis_File; i: cint): ogg_int64_t; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_time_total(var vf: OggVorbis_File; i: cint): cdouble; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+
+function ov_raw_seek(var vf: OggVorbis_File; pos: ogg_int64_t): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_pcm_seek(var vf: OggVorbis_File; pos: ogg_int64_t): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_pcm_seek_page(var vf: OggVorbis_File; pos: ogg_int64_t): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_time_seek(var vf: OggVorbis_File; pos: cdouble): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_time_seek_page(var vf: OggVorbis_File; pos: cdouble): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+
+function ov_raw_seek_lap(var vf: OggVorbis_File; pos: ogg_int64_t): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_pcm_seek_lap(var vf: OggVorbis_File; pos: ogg_int64_t): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_pcm_seek_page_lap(var vf: OggVorbis_File; pos: ogg_int64_t): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_time_seek_lap(var vf: OggVorbis_File; pos: cdouble): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_time_seek_page_lap(var vf: OggVorbis_File; pos: cdouble): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+
+function ov_raw_tell(var vf: OggVorbis_File): ogg_int64_t; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_pcm_tell(var vf: OggVorbis_File): ogg_int64_t; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_time_tell(var vf: OggVorbis_File): cdouble; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+
+function ov_info(var vf: OggVorbis_File; link: cint): pvorbis_info; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_comment(var vf: OggVorbis_File; link: cint): pvorbis_comment; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+
+function ov_read_float(var vf: OggVorbis_File; var pcm_channels: ppcfloat; samples: cint; bitstream: pcint): clong; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_read(var vf: OggVorbis_File; buffer: pointer; length: cint; bigendianp: cbool; word: cint; sgned: cbool; bitstream: pcint): clong; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_crosslap(var vf1: OggVorbis_File; var vf2: OggVorbis_File): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+
+function ov_halfrate(var vf: OggVorbis_File; flag: cint): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+function ov_halfrate_p(var vf: OggVorbis_File): cint; cdecl; external {$IFDEF DYNLINK}vorbisfilelib{$ENDIF};
+
+
+{
+ Developer of the A52 helpers for FreePascal
+ Copyright (C) 2006 by Ivo Steinmann
+}
+
+function ov_read_ext(var vf: OggVorbis_File; buffer: pointer; length: cint; bigendianp: cbool; word: cint; sgned: cbool): clong;
+
+
+(***********************************************************************)
+(* Header : vorbisenc.h *)
+(***********************************************************************)
+
+const
+ OV_ECTL_RATEMANAGE_GET = $10;
+
+ OV_ECTL_RATEMANAGE_SET = $11;
+ OV_ECTL_RATEMANAGE_AVG = $12;
+ OV_ECTL_RATEMANAGE_HARD = $13;
+
+ OV_ECTL_LOWPASS_GET = $20;
+ OV_ECTL_LOWPASS_SET = $21;
+
+ OV_ECTL_IBLOCK_GET = $30;
+ OV_ECTL_IBLOCK_SET = $31;
+
+type
+ povectl_ratemanage_arg = ^ovectl_ratemanage_arg;
+ ovectl_ratemanage_arg = record
+ management_active : cint;
+
+ bitrate_hard_min : clong;
+ bitrate_hard_max : clong;
+ bitrate_hard_window : cdouble;
+
+ bitrate_av_lo : clong;
+ bitrate_av_hi : clong;
+ bitrate_av_window : cdouble;
+ bitrate_av_window_center : cdouble;
+ end;
+
+function vorbis_encode_init(var vi: vorbis_info; channels, rate, max_bitrate, nominal_bitrate, min_bitrate: clong): cint; cdecl; external {$IFDEF DYNLINK}vorbisenclib{$ENDIF};
+function vorbis_encode_setup_managed(var vi: vorbis_info; channels, rate, max_bitrate, nominal_bitrate, min_bitrate: clong): cint; cdecl; external {$IFDEF DYNLINK}vorbisenclib{$ENDIF};
+function vorbis_encode_setup_vbr(var vi: vorbis_info; channels, rate: clong; quality: cfloat): cint; cdecl; external {$IFDEF DYNLINK}vorbisenclib{$ENDIF};
+(* quality level from 0. (lo) to 1. (hi) *)
+function vorbis_encode_init_vbr(var vi: vorbis_info; channels, rate: clong; base_quality: cfloat): cint; cdecl; external {$IFDEF DYNLINK}vorbisenclib{$ENDIF};
+function vorbis_encode_setup_init(var vi: vorbis_info): cint; cdecl; external {$IFDEF DYNLINK}vorbisenclib{$ENDIF};
+function vorbis_encode_ctl(var vi: vorbis_info; number: cint; arg: pointer): cint; cdecl; external {$IFDEF DYNLINK}vorbisenclib{$ENDIF};
+
+implementation
+
+function ov_read_ext(var vf: OggVorbis_File; buffer: pointer; length: cint; bigendianp: cbool; word: cint; sgned: cbool): clong;
+var
+ ofs: cint;
+ Num: cint;
+ Res: cint;
+begin
+ // check blocksize here!
+ {if length mod 4 <> 0 then
+ Exit(0);}
+
+ ofs := 0;
+ num := length;
+
+ while num > 0 do
+ begin
+ res := ov_read(vf, pointer(ptrint(buffer) + ofs), num, bigendianp, word, sgned, nil);
+ if res < 0 then
+ Exit(res);
+
+ if res = 0 then
+ Break;
+
+ ofs := ofs + res;
+ num := num - res;
+ end;
+
+ Result := ofs;
+end;
+
+end.
+
View Lorry Controller Status