mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 23:09:40 +02:00
* oggvorbis move + cleanup
git-svn-id: trunk@10021 -
This commit is contained in:
marco
parent
3c43c38a43
commit
cee2c293e2
8
.gitattributes
vendored
8
.gitattributes
vendored
@ -1423,10 +1423,6 @@ packages/extra/lua/fpmake.pp svneol=native#text/plain
|
||||
packages/extra/lua/lauxlib.pas svneol=native#text/plain
|
||||
packages/extra/lua/lua.pas svneol=native#text/plain
|
||||
packages/extra/lua/lualib.pas svneol=native#text/plain
|
||||
packages/extra/oggvorbis/Makefile svneol=native#text/plain
|
||||
packages/extra/oggvorbis/Makefile.fpc svneol=native#text/plain
|
||||
packages/extra/oggvorbis/ogg.pas svneol=native#text/plain
|
||||
packages/extra/oggvorbis/vorbis.pas svneol=native#text/plain
|
||||
packages/extra/openssl/Makefile svneol=native#text/plain
|
||||
packages/extra/openssl/Makefile.fpc svneol=native#text/plain
|
||||
packages/extra/openssl/examples/Makefile svneol=native#text/plain
|
||||
@ -4037,8 +4033,8 @@ packages/odbc/tests/testodbc.pp svneol=native#text/plain
|
||||
packages/oggvorbis/Makefile svneol=native#text/plain
|
||||
packages/oggvorbis/Makefile.fpc svneol=native#text/plain
|
||||
packages/oggvorbis/fpmake.pp svneol=native#text/plain
|
||||
packages/oggvorbis/ogg.pas svneol=native#text/plain
|
||||
packages/oggvorbis/vorbis.pas svneol=native#text/plain
|
||||
packages/oggvorbis/src/ogg.pas svneol=native#text/plain
|
||||
packages/oggvorbis/src/vorbis.pas svneol=native#text/plain
|
||||
packages/openal/Makefile svneol=native#text/plain
|
||||
packages/openal/Makefile.fpc svneol=native#text/plain
|
||||
packages/openal/examples/Makefile svneol=native#text/plain
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,21 +0,0 @@
|
||||
#
|
||||
# Makefile.fpc for oggvorbis bindings
|
||||
#
|
||||
|
||||
[package]
|
||||
name=oggvorbis
|
||||
version=2.0.0
|
||||
|
||||
[target]
|
||||
units=ogg vorbis
|
||||
|
||||
[require]
|
||||
|
||||
[install]
|
||||
fpcpackage=y
|
||||
|
||||
[default]
|
||||
fpcdir=../../..
|
||||
|
||||
[rules]
|
||||
.NOTPARALLEL:
|
||||
@ -12,14 +12,21 @@ begin
|
||||
begin
|
||||
{$endif ALLPACKAGES}
|
||||
|
||||
P:=AddPackage('xforms');
|
||||
P:=AddPackage('oggvorbis');
|
||||
{$ifdef ALLPACKAGES}
|
||||
P.Directory:='xforms';
|
||||
P.Directory:='oggvorbis';
|
||||
{$endif ALLPACKAGES}
|
||||
P.Version:='2.0.0';
|
||||
P.SourcePath.Add('src');
|
||||
// P.Dependencies.Add('x11');
|
||||
|
||||
T:=P.Targets.AddUnit('ogg.pas');
|
||||
T:=P.Targets.AddUnit('vorbis.pas');
|
||||
with T.Dependencies do
|
||||
begin
|
||||
AddUnit('ogg');
|
||||
end;
|
||||
|
||||
{$ifndef ALLPACKAGES}
|
||||
Run;
|
||||
end;
|
||||
|
||||
@ -1,218 +0,0 @@
|
||||
{
|
||||
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.
|
||||
@ -1,458 +0,0 @@
|
||||
{
|
||||
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.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user