4472895c83623ccc6371a113d1a96a0d888fe13f
1 {
2 Translation of the libmodplug headers for FreePascal
3 Copyright (C) 2006 by Ivo Steinmann
4 }
6 (*
7 * This source code is public domain.
8 *
9 * Authors: Kenton Varda <temporal@gauge3d.org> (C interface wrapper)
10 *)
14 {$MODE OBJFPC}
15 {$PACKRECORDS C}
17 interface
19 uses
20 ctypes;
22 {$IFDEF WINDOWS}
23 {$IFNDEF LIBMODPLUG_PINDOZE_STATIC}
24 {$DEFINE MP_DYNAMIC}
25 {$ENDIF}
26 {$ENDIF}
28 {$IFDEF MP_DYNAMIC}
29 const
30 {$IF DEFINED(WINDOWS)}
32 {$ELSEIF DEFINED(UNIX)}
34 {$ELSE}
36 {$IFEND}
37 {$ELSE}
39 {$LINKLIB modplug}
40 {$ENDIF}
43 type
48 (* Load a mod file. [data] should point to a block of memory containing the complete
49 * file, and [size] should be the size of that block.
50 * Return the loaded mod file on success, or NULL on failure. *)
51 function ModPlug_Load(data: pointer; size: cint): PModPlugFile; cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
53 (* Unload a mod file. *)
54 procedure ModPlug_Unload(_file: PModPlugFile); cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
56 (* Read sample data into the buffer. Returns the number of bytes read. If the end
57 * of the mod has been reached, zero is returned. *)
58 function ModPlug_Read(_file: PModPlugFile; buffer: pointer; size: cint): cint; cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
60 (* Get the name of the mod. The returned buffer is stored within the ModPlugFile
61 * structure and will remain valid until you unload the file. *)
62 function ModPlug_GetName(_file: PModPlugFile): pcchar; cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
64 (* Get the length of the mod, in milliseconds. Note that this result is not always
65 * accurate, especially in the case of mods with loops. *)
66 function ModPlug_GetLength(_file: PModPlugFile): cint; cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
68 (* Seek to a particular position in the song. Note that seeking and MODs don't mix very
69 * well. Some mods will be missing instruments for a short time after a seek, as ModPlug
70 * does not scan the sequence backwards to find out which instruments were supposed to be
71 * playing at that time. (Doing so would be difficult and not very reliable.) Also,
72 * note that seeking is not very exact in some mods -- especially those for which
73 * ModPlug_GetLength() does not report the full length. *)
74 procedure ModPlug_Seek(_file: PModPlugFile; millisecond: cint); cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
77 const
78 // _ModPlug_Flags
85 // _ModPlug_ResamplingMode
91 type
110 (* Get and set the mod decoder settings. All options, except for channels, bits-per-sample,
111 * sampling rate, and loop count, will take effect immediately. Those options which don't
112 * take effect immediately will take effect the next time you load a mod. *)
113 procedure ModPlug_GetSettings(settings: PModPlug_Settings); cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
114 procedure ModPlug_SetSettings(const settings: PModPlug_Settings); cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
116 implementation
118 // TODO: why the fuck does this exist here
120 (*
122 function cppNew(s: cint): pointer; cdecl; public; alias : '_Znaj'; alias : '_Znwj';
123 begin
124 GetMem(Result, s);
125 end;
127 procedure cppDelete(p: pointer); cdecl; public; alias : '_ZdlPv'; alias : '_ZdaPv';
128 begin
129 FreeMem(p);
130 end;
132 *)