src/lib/modplug/modplug.pas

   1 {
   2   Translation of the libmodplug headers for FreePascal
   3   Copyright (C) 2006 by Ivo Steinmann
   4 }
   5
   6 (*
   7  * This source code is public domain.
   8  *
   9  * Authors: Kenton Varda <temporal@gauge3d.org> (C interface wrapper)
  10  *)
  11
  12 unit modplug;
  13
  14 {$MODE OBJFPC}
  15 {$PACKRECORDS C}
  16
  17 interface
  18
  19 uses
  20   ctypes;
  21
  22 {$IF DEFINED(WINDOWS)}
  23   {$IFDEF MODPLUG_WINDOZE_STATIC}
  24     {$LINKLIB libstdc++.a} // is this necessary?
  25     {$LINKLIB libmodplug.a}
  26   {$ELSE}
  27     {$DEFINE MP_DYNAMIC}
  28     const modpluglib = 'libmodplug-1.dll';
  29   {$ENDIF}
  30 {$ELSEIF DEFINED(UNIX)}
  31   {$DEFINE MP_DYNAMIC}
  32   {$LINKLIB libmodplug}
  33   const modpluglib = 'libmodplug';
  34 {$ELSE}
  35   {$ERROR libmodplug not supported on this platform. Fix it!}
  36 {$ENDIF}
  37
  38 type
  39   PModPlugFile = Pointer;
  40   ModPlugFile = record
  41   end;
  42
  43 (* Load a mod file.  [data] should point to a block of memory containing the complete
  44  * file, and [size] should be the size of that block.
  45  * Return the loaded mod file on success, or NULL on failure. *)
  46 function ModPlug_Load(data: pointer; size: cint): PModPlugFile; cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
  47
  48 (* Unload a mod file. *)
  49 procedure ModPlug_Unload(_file: PModPlugFile); cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
  50
  51 (* Read sample data into the buffer.  Returns the number of bytes read.  If the end
  52  * of the mod has been reached, zero is returned. *)
  53 function ModPlug_Read(_file: PModPlugFile; buffer: pointer; size: cint): cint; cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
  54
  55 (* Get the name of the mod.  The returned buffer is stored within the ModPlugFile
  56  * structure and will remain valid until you unload the file. *)
  57 function ModPlug_GetName(_file: PModPlugFile): pcchar; cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
  58
  59 (* Get the length of the mod, in milliseconds.  Note that this result is not always
  60  * accurate, especially in the case of mods with loops. *)
  61 function ModPlug_GetLength(_file: PModPlugFile): cint; cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
  62
  63 (* Seek to a particular position in the song.  Note that seeking and MODs don't mix very
  64  * well.  Some mods will be missing instruments for a short time after a seek, as ModPlug
  65  * does not scan the sequence backwards to find out which instruments were supposed to be
  66  * playing at that time.  (Doing so would be difficult and not very reliable.)  Also,
  67  * note that seeking is not very exact in some mods -- especially those for which
  68  * ModPlug_GetLength() does not report the full length. *)
  69 procedure ModPlug_Seek(_file: PModPlugFile; millisecond: cint); cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
  70
  71
  72 const
  73 // _ModPlug_Flags
  74   MODPLUG_ENABLE_OVERSAMPLING     = 1 shl 0;  (* Enable oversampling (highly recommended) *)
  75   MODPLUG_ENABLE_NOISE_REDUCTION  = 1 shl 1;  (* Enable noise reduction *)
  76   MODPLUG_ENABLE_REVERB           = 1 shl 2;  (* Enable reverb *)
  77   MODPLUG_ENABLE_MEGABASS         = 1 shl 3;  (* Enable megabass *)
  78   MODPLUG_ENABLE_SURROUND         = 1 shl 4;  (* Enable surround sound. *)
  79
  80 // _ModPlug_ResamplingMode
  81   MODPLUG_RESAMPLE_NEAREST = 0;  (* No interpolation (very fast, extremely bad sound quality) *)
  82   MODPLUG_RESAMPLE_LINEAR  = 1;  (* Linear interpolation (fast, good quality) *)
  83   MODPLUG_RESAMPLE_SPLINE  = 2;  (* Cubic spline interpolation (high quality) *)
  84   MODPLUG_RESAMPLE_FIR     = 3;  (* 8-tap fir filter (extremely high quality) *)
  85
  86 type
  87   PModPlug_Settings = ^ModPlug_Settings;
  88   ModPlug_Settings = record
  89     mFlags            : cint;  (* One or more of the MODPLUG_ENABLE_* flags above, bitwise-OR'ed *)
  90     mChannels         : cint;  (* Number of channels - 1 for mono or 2 for stereo *)
  91     mBits             : cint;  (* Bits per sample - 8, 16, or 32 *)
  92     mFrequency        : cint;  (* Sampling rate - 11025, 22050, or 44100 *)
  93     mResamplingMode   : cint;  (* One of MODPLUG_RESAMPLE_*, above *)
  94     mStereoSeparation : cint;  (* 1-256 *)
  95     mMaxMixChannels   : cint;  (* Maximum number of mixing channels, 32-256 *)
  96     mReverbDepth      : cint;  (* Reverb level 0(quiet)-100(loud)      *)
  97     mReverbDelay      : cint;  (* Reverb delay in ms, usually 40-200ms *)
  98     mBassAmount       : cint;  (* XBass level 0(quiet)-100(loud)       *)
  99     mBassRange        : cint;  (* XBass cutoff in Hz 10-100            *)
 100     mSurroundDepth    : cint;  (* Surround level 0(quiet)-100(heavy)   *)
 101     mSurroundDelay    : cint;  (* Surround delay in ms, usually 5-40ms *)
 102     mLoopCount        : cint;  (* Number of times to loop.  Zero prevents looping. -1 loops forever. *)
 103   end;
 104
 105 (* Get and set the mod decoder settings.  All options, except for channels, bits-per-sample,
 106  * sampling rate, and loop count, will take effect immediately.  Those options which don't
 107  * take effect immediately will take effect the next time you load a mod. *)
 108 procedure ModPlug_GetSettings(settings: PModPlug_Settings); cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
 109 procedure ModPlug_SetSettings(const settings: PModPlug_Settings); cdecl; external {$IFDEF MP_DYNAMIC}modpluglib{$ENDIF};
 110
 111 implementation
 112
 113 // TODO: why the fuck does this exist here
 114
 115 (*
 116
 117 function cppNew(s: cint): pointer; cdecl; public; alias : '_Znaj'; alias : '_Znwj';
 118 begin
 119   GetMem(Result, s);
 120 end;
 121
 122 procedure cppDelete(p: pointer); cdecl; public; alias : '_ZdlPv'; alias : '_ZdaPv';
 123 begin
 124   FreeMem(p);
 125 end;
 126
 127 *)
 128
 129 end.