mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 18:46:01 +02:00
* oggvorbis first pass
git-svn-id: trunk@10020 -
This commit is contained in:
marco
parent
2b8631d722
commit
3c43c38a43
5
.gitattributes
vendored
5
.gitattributes
vendored
@ -4034,6 +4034,11 @@ packages/odbc/src/odbcsql.pas svneol=native#text/plain
|
|||||||
packages/odbc/src/odbcsqldyn.pas svneol=native#text/plain
|
packages/odbc/src/odbcsqldyn.pas svneol=native#text/plain
|
||||||
packages/odbc/tests/testodbc.mdb -text
|
packages/odbc/tests/testodbc.mdb -text
|
||||||
packages/odbc/tests/testodbc.pp svneol=native#text/plain
|
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/openal/Makefile svneol=native#text/plain
|
packages/openal/Makefile svneol=native#text/plain
|
||||||
packages/openal/Makefile.fpc svneol=native#text/plain
|
packages/openal/Makefile.fpc svneol=native#text/plain
|
||||||
packages/openal/examples/Makefile svneol=native#text/plain
|
packages/openal/examples/Makefile svneol=native#text/plain
|
||||||
|
|||||||
2249
packages/oggvorbis/Makefile
Normal file
2249
packages/oggvorbis/Makefile
Normal file
File diff suppressed because it is too large
Load Diff
25
packages/oggvorbis/Makefile.fpc
Normal file
25
packages/oggvorbis/Makefile.fpc
Normal file
@ -0,0 +1,25 @@
|
|||||||
|
#
|
||||||
|
# Makefile.fpc for oggvorbis bindings
|
||||||
|
#
|
||||||
|
|
||||||
|
[package]
|
||||||
|
name=oggvorbis
|
||||||
|
version=2.0.0
|
||||||
|
|
||||||
|
[target]
|
||||||
|
units=ogg vorbis
|
||||||
|
|
||||||
|
[require]
|
||||||
|
|
||||||
|
[install]
|
||||||
|
fpcpackage=y
|
||||||
|
|
||||||
|
[default]
|
||||||
|
fpcdir=../..
|
||||||
|
|
||||||
|
[compiler]
|
||||||
|
includedir=src
|
||||||
|
sourcedir=src tests
|
||||||
|
|
||||||
|
[rules]
|
||||||
|
.NOTPARALLEL:
|
||||||
27
packages/oggvorbis/fpmake.pp
Normal file
27
packages/oggvorbis/fpmake.pp
Normal file
@ -0,0 +1,27 @@
|
|||||||
|
{$ifndef ALLPACKAGES}
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
program fpmake;
|
||||||
|
|
||||||
|
uses fpmkunit;
|
||||||
|
|
||||||
|
Var
|
||||||
|
P : TPackage;
|
||||||
|
T : TTarget;
|
||||||
|
begin
|
||||||
|
With Installer do
|
||||||
|
begin
|
||||||
|
{$endif ALLPACKAGES}
|
||||||
|
|
||||||
|
P:=AddPackage('xforms');
|
||||||
|
{$ifdef ALLPACKAGES}
|
||||||
|
P.Directory:='xforms';
|
||||||
|
{$endif ALLPACKAGES}
|
||||||
|
P.Version:='2.0.0';
|
||||||
|
P.SourcePath.Add('src');
|
||||||
|
// P.Dependencies.Add('x11');
|
||||||
|
|
||||||
|
{$ifndef ALLPACKAGES}
|
||||||
|
Run;
|
||||||
|
end;
|
||||||
|
end.
|
||||||
|
{$endif ALLPACKAGES}
|
||||||
218
packages/oggvorbis/ogg.pas
Normal file
218
packages/oggvorbis/ogg.pas
Normal file
@ -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.
|
||||||
458
packages/oggvorbis/vorbis.pas
Normal file
458
packages/oggvorbis/vorbis.pas
Normal file
@ -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.
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user