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 {$IF DEFINED(WINDOWS)}
23 {$IFDEF MODPLUG_WINDOZE_STATIC}
25 {$LINKLIB libmodplug.a}
26 {$ELSE}
27 {$DEFINE MP_DYNAMIC}
29 {$ENDIF}
30 {$ELSEIF DEFINED(UNIX)}
31 {$DEFINE MP_DYNAMIC}
33 {$ELSE}
34 {$ERROR libmpg123 not supported on this platform. Fix it!}
35 {$ENDIF}
37 type
42 (* Load a mod file. [data] should point to a block of memory containing the complete
43 * file, and [size] should be the size of that block.
44 * Return the loaded mod file on success, or NULL on failure. *)
45 function ModPlug_Load(data: pointer; size: cint): PModPlugFile; cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
47 (* Unload a mod file. *)
48 procedure ModPlug_Unload(_file: PModPlugFile); cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
50 (* Read sample data into the buffer. Returns the number of bytes read. If the end
51 * of the mod has been reached, zero is returned. *)
52 function ModPlug_Read(_file: PModPlugFile; buffer: pointer; size: cint): cint; cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
54 (* Get the name of the mod. The returned buffer is stored within the ModPlugFile
55 * structure and will remain valid until you unload the file. *)
56 function ModPlug_GetName(_file: PModPlugFile): pcchar; cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
58 (* Get the length of the mod, in milliseconds. Note that this result is not always
59 * accurate, especially in the case of mods with loops. *)
60 function ModPlug_GetLength(_file: PModPlugFile): cint; cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
62 (* Seek to a particular position in the song. Note that seeking and MODs don't mix very
63 * well. Some mods will be missing instruments for a short time after a seek, as ModPlug
64 * does not scan the sequence backwards to find out which instruments were supposed to be
65 * playing at that time. (Doing so would be difficult and not very reliable.) Also,
66 * note that seeking is not very exact in some mods -- especially those for which
67 * ModPlug_GetLength() does not report the full length. *)
68 procedure ModPlug_Seek(_file: PModPlugFile; millisecond: cint); cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
71 const
72 // _ModPlug_Flags
79 // _ModPlug_ResamplingMode
85 type
104 (* Get and set the mod decoder settings. All options, except for channels, bits-per-sample,
105 * sampling rate, and loop count, will take effect immediately. Those options which don't
106 * take effect immediately will take effect the next time you load a mod. *)
107 procedure ModPlug_GetSettings(settings: PModPlug_Settings); cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
108 procedure ModPlug_SetSettings(const settings: PModPlug_Settings); cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
110 implementation
112 // TODO: why the fuck does this exist here
114 (*
116 function cppNew(s: cint): pointer; cdecl; public; alias : '_Znaj'; alias : '_Znwj';
117 begin
118 GetMem(Result, s);
119 end;
121 procedure cppDelete(p: pointer); cdecl; public; alias : '_ZdlPv'; alias : '_ZdaPv';
122 begin
123 FreeMem(p);
124 end;
126 *)