1 --- packages/dts/src/dts.pas 2010-04-21 20:42:31.000000000 +0100 2 +++ packages/dts/src/dts.pas 2010-04-21 20:52:51.000000000 +0100 3 @@ -272,7 +272,7 @@ 4 {$IF Defined(WINDOWS)} 5 dtslib = 'dts.dll'; 6 {$ELSEIF Defined(UNIX)} 7 - dtslib = 'libdts.so'; 8 + dtslib = 'libdca.so'; 9 {$ELSE} 10 {$MESSAGE ERROR 'DYNLINK not supported'} 11 {$IFEND} 12 @@ -331,14 +331,14 @@ 13 DTS_ADJUST_LEVEL = $100; 14 15 16 -function dts_init(mm_accel: cuint32): pdts_state_t; cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 17 -function dts_syncinfo(state: pdts_state_t; buf: pcuint8; var flags: cint; var sample_rate: cint; var bit_rate: cint; var frame_length: cint): cint; cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 18 -function dts_frame(state: pdts_state_t; buf: pcuint8; var flags: cint; var level: dts_level_t; bias: dts_sample_t): cint; cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 19 -procedure dts_dynrng(state: pdts_state_t; call: dts_dynrng_call; data: pointer); cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 20 -function dts_blocks_num(state: pdts_state_t): cint; cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 21 -function dts_block(state: pdts_state_t): cint; cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 22 -function dts_samples(state: pdts_state_t): pdts_sample_t; cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 23 -procedure dts_free(state: pdts_state_t); cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 24 +function dca_init(mm_accel: cuint32): pdts_state_t; cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 25 +function dca_syncinfo(state: pdts_state_t; buf: pcuint8; var flags: cint; var sample_rate: cint; var bit_rate: cint; var frame_length: cint): cint; cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 26 +function dca_frame(state: pdts_state_t; buf: pcuint8; var flags: cint; var level: dts_level_t; bias: dts_sample_t): cint; cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 27 +procedure dca_dynrng(state: pdts_state_t; call: dts_dynrng_call; data: pointer); cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 28 +function dca_blocks_num(state: pdts_state_t): cint; cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 29 +function dca_block(state: pdts_state_t): cint; cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 30 +function dca_samples(state: pdts_state_t): pdts_sample_t; cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 31 +procedure dca_free(state: pdts_state_t); cdecl; external {$IFDEF DYNLINK}dtslib{$ENDIF}; 32 33 34 35 @@ -378,12 +378,61 @@ 36 end; 37 38 39 +function dts_init(mm_accel: cuint32): pdts_state_t; 40 +function dts_syncinfo(state: pdts_state_t; buf: pcuint8; var flags: cint; var sample_rate: cint; var bit_rate: cint; var frame_length: cint): cint; 41 +function dts_frame(state: pdts_state_t; buf: pcuint8; var flags: cint; var level: dts_level_t; bias: dts_sample_t): cint; 42 +procedure dts_dynrng(state: pdts_state_t; call: dts_dynrng_call; data: pointer); 43 +function dts_blocks_num(state: pdts_state_t): cint; 44 +function dts_block(state: pdts_state_t): cint; 45 +function dts_samples(state: pdts_state_t): pdts_sample_t; 46 +procedure dts_free(state: pdts_state_t); 47 + 48 function dts_decoder_init(mm_accel: cuint32; user: pointer; read: dts_read_func; seek: dts_seek_func; close: dts_close_func; tell: dts_tell_func): pdts_decoder; 49 function dts_decoder_read(decoder: pdts_decoder; buffer: pointer; length: cint): cint; 50 procedure dts_decoder_free(decoder: pdts_decoder); 51 52 implementation 53 54 +function dts_init(mm_accel: cuint32): pdts_state_t; 55 +begin 56 + Result := dca_init(mm_accel); 57 +end; 58 + 59 +function dts_syncinfo(state: pdts_state_t; buf: pcuint8; var flags: cint; var sample_rate: cint; var bit_rate: cint; var frame_length: cint): cint; 60 +begin 61 + Result := dca_syncinfo(state, buf, flags, sample_rate, bit_rate, frame_length); 62 +end; 63 + 64 +function dts_frame(state: pdts_state_t; buf: pcuint8; var flags: cint; var level: dts_level_t; bias: dts_sample_t): cint; 65 +begin 66 + Result := dca_frame(state, buf, flags, level, bias); 67 +end; 68 + 69 +procedure dts_dynrng(state: pdts_state_t; call: dts_dynrng_call; data: pointer); 70 +begin 71 + dca_dynrng(state, call, data); 72 +end; 73 + 74 +function dts_blocks_num(state: pdts_state_t): cint; 75 +begin 76 + Result := dca_blocks_num(state); 77 +end; 78 + 79 +function dts_block(state: pdts_state_t): cint; 80 +begin 81 + Result := dca_block(state); 82 +end; 83 + 84 +function dts_samples(state: pdts_state_t): pdts_sample_t; 85 +begin 86 + Result := dca_samples(state) 87 +end; 88 + 89 +procedure dts_free(state: pdts_state_t); 90 +begin 91 + dca_free(state); 92 +end; 93 + 94 function dts_decoder_init(mm_accel: cuint32; user: pointer; read: dts_read_func; seek: dts_seek_func; close: dts_close_func; tell: dts_tell_func): pdts_decoder; 95 begin 96 GetMem(Result, Sizeof(dts_decoder)); 97 Only in work.new/fpc-2.4.0/packages/dts/src: dts.pas~ 98