* initial revision

rtl/morphos/ahi.pas

@@ -0,0 +1,634 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2005 Karoly Balogh for Genesi S.a.r.l.
+
+    ahi.library interface unit for MorphOS/PowerPC
+
+    Based on work of Nils Sjoholm member of the Amiga RTL
+    development team.
+
+    MorphOS port was done on a free Pegasos II/G4 machine
+    provided by Genesi S.a.r.l. <www.genesi.lu>
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+**********************************************************************}
+
+{$PACKRECORDS 2}
+unit AHI;
+
+interface
+
+uses exec, utility;
+
+var 
+  AHIBase: PLibrary;
+
+  type
+
+     PFixed = ^Fixed;
+     Fixed = LONGINT;
+  { A fixed-point value, 16 bits
+    to the left of the point and
+    16 bits to the right  }
+
+  type
+
+     Psposition = ^sposition;
+     sposition = Fixed;
+
+  { AHIAudioCtrl  }
+  { Lots of private data follows!  }
+     PAHIAudioCtrl = ^tAHIAudioCtrl;
+     tAHIAudioCtrl = record
+          ahiac_UserData : Pointer;
+       end;
+
+  { AHISoundMessage  }
+     PAHISoundMessage = ^tAHISoundMessage;
+     tAHISoundMessage = record
+          ahism_Channel : Word;
+       end;
+
+  { AHIRecordMessage  }
+     PAHIRecordMessage = ^tAHIRecordMessage;
+     tAHIRecordMessage = record
+          ahirm_Type : Cardinal;     { Format of buffer (object)  }
+          ahirm_Buffer : Pointer;    { Pointer to the sample array  }
+          ahirm_Length : Cardinal;   { Number of sample frames in buffer  }
+       end;
+
+  { AHISampleInfo  }
+     PAHISampleInfo = ^tAHISampleInfo;
+     tAHISampleInfo = record
+          ahisi_Type : Cardinal;      { Format of samples  }
+          ahisi_Address : Pointer;    { Address to array of samples  }
+          ahisi_Length : Cardinal;    { Number of samples in array  }
+       end;
+
+  { AHIAudioModeRequester  }
+     PAHIAudioModeRequester = ^tAHIAudioModeRequester;
+     tAHIAudioModeRequester = record
+          ahiam_AudioID : Cardinal;      { Selected audio mode  }
+          ahiam_MixFreq : Cardinal;      { Selected mixing/sampling frequency  }
+          ahiam_LeftEdge : WORD;      { Coordinates of requester on exit  }
+          ahiam_TopEdge : WORD;
+          ahiam_Width : WORD;
+          ahiam_Height : WORD;
+          ahiam_InfoOpened : Boolean;    { Info window opened on exit?  }
+          ahiam_InfoLeftEdge : WORD;  { Last coordinates of Info window  }
+          ahiam_InfoTopEdge : WORD;
+          ahiam_InfoWidth : WORD;
+          ahiam_InfoHeight : WORD;
+          ahiam_UserData : Pointer;      { You can store your own data here  }
+          { Lots of private data follows!  }
+       end;
+
+  { AHIEffMasterVolume  }
+     PAHIEffMasterVolume = ^tAHIEffMasterVolume;
+     tAHIEffMasterVolume = record
+          ahie_Effect : Cardinal;     { Set to AHIET_MASTERVOLUME  }
+          ahiemv_Volume : Fixed;   { See autodocs for range!  }
+       end;
+
+  { AHIEffOutputBuffer  }
+     PAHIEffOutputBuffer = ^tAHIEffOutputBuffer;
+     tAHIEffOutputBuffer = record
+          ahie_Effect : Cardinal;     { Set to AHIET_OUTPUTBUFFER  }
+          ahieob_Func : PHook;
+          { These fields are filled by AHI  }
+          ahieob_Type : Cardinal;     { Format of buffer  }
+          ahieob_Buffer : Pointer;    { Pointer to the sample array  }
+          ahieob_Length : Cardinal;   { Number of sample frames in buffer  }
+       end;
+
+  { AHIEffDSPMask (V4)  }
+     PAHIEffDSPMask = ^tAHIEffDSPMask;
+     tAHIEffDSPMask = record
+          ahie_Effect : Cardinal;       { Set to AHIET_DSPMASK  }
+          ahiedm_Channels : Word;   { Number of elements in array  }
+          ahiedm_Mask : array[0..0] of Byte;   { Here follows the array  }
+       end;
+
+
+  const
+     AHIEDM_WET = 0;
+     AHIEDM_DRY = 1;
+  { AHIEffDSPEcho (V4)  }
+  type
+     PAHIDSPEcho = ^tAHIDSPEcho;
+     tAHIDSPEcho = record
+          ahie_Effect : Cardinal;     { Set to AHIET_DSPECHO  }
+          ahiede_Delay : Cardinal;    { In samples  }
+          ahiede_Feedback : Fixed;
+          ahiede_Mix : Fixed;
+          ahiede_Cross : Fixed;
+       end;
+
+  { AHIEffChannelInfo (V4)  }
+     PAHIEffChannelInfo = ^tAHIEffChannelInfo;
+     tAHIEffChannelInfo = record
+          ahie_Effect : Cardinal;    { Set to AHIET_CHANNELINFO  }
+          ahieci_Func : PHook;
+          ahieci_Channels : Word;
+          ahieci_Pad : Word;
+          { The rest is filled by AHI  }
+          ahieci_Offset : array[0..0] of Cardinal;   { The array follows  }
+       end;
+
+  {   TAGS  }
+
+  const
+     AHI_TagBase = TAG_USER;
+     AHI_TagBaseR = AHI_TagBase or $8000;
+  { AHI_AllocAudioA tags  }
+  { Desired audio mode  }
+     AHIA_AudioID = AHI_TagBase + 1;
+  { Suggested mixing frequency  }
+     AHIA_MixFreq = AHI_TagBase + 2;
+  { Suggested number of channels  }
+     AHIA_Channels = AHI_TagBase + 3;
+  { Number of sounds to use  }
+     AHIA_Sounds = AHI_TagBase + 4;
+  { End-of-Sound Hook  }
+     AHIA_SoundFunc = AHI_TagBase + 5;
+  { Player Hook  }
+     AHIA_PlayerFunc = AHI_TagBase + 6;
+  { Frequency for player Hook (Fixed) }
+     AHIA_PlayerFreq = AHI_TagBase + 7;
+  { Minimum Frequency for player Hook  }
+     AHIA_MinPlayerFreq = AHI_TagBase + 8;
+  { Maximum Frequency for player Hook  }
+     AHIA_MaxPlayerFreq = AHI_TagBase + 9;
+  { Sample recording Hook  }
+     AHIA_RecordFunc = AHI_TagBase + 10;
+  { What to put in ahiac_UserData  }
+     AHIA_UserData = AHI_TagBase + 11;
+  { AHI_PlayA tags (V4)  }
+  { All command tags should be...  }
+     AHIP_BeginChannel = AHI_TagBase + 40;
+  { ... enclosed by these tags.  }
+     AHIP_EndChannel = AHI_TagBase + 41;
+     AHIP_Freq = AHI_TagBase + 50;
+     AHIP_Vol = AHI_TagBase + 51;
+     AHIP_Pan = AHI_TagBase + 52;
+     AHIP_Sound = AHI_TagBase + 53;
+     AHIP_Offset = AHI_TagBase + 54;
+     AHIP_Length = AHI_TagBase + 55;
+     AHIP_LoopFreq = AHI_TagBase + 60;
+     AHIP_LoopVol = AHI_TagBase + 61;
+     AHIP_LoopPan = AHI_TagBase + 62;
+     AHIP_LoopSound = AHI_TagBase + 63;
+     AHIP_LoopOffset = AHI_TagBase + 64;
+     AHIP_LoopLength = AHI_TagBase + 65;
+  { AHI_ControlAudioA tags  }
+  { Booleanean  }
+     AHIC_Play = AHI_TagBase + 80;
+  { Booleanean  }
+     AHIC_Record = AHI_TagBase + 81;
+     AHIC_MonitorVolume = AHI_TagBase + 82;
+  { ti_Data is pointer to Fixed (LONG)  }
+     AHIC_MonitorVolume_Query = AHI_TagBase + 83;
+  { ti_Data is pointer to Cardinal  }
+     AHIC_MixFreq_Query = AHI_TagBase + 84;
+  { --- New for V2, they will be ignored by V1 ---  }
+     AHIC_InputGain = AHI_TagBase + 85;
+  { ti_Data is pointer to Fixed (LONG)  }
+     AHIC_InputGain_Query = AHI_TagBase + 86;
+     AHIC_OutputVolume = AHI_TagBase + 87;
+  { ti_Data is pointer to Fixed (LONG)  }
+     AHIC_OutputVolume_Query = AHI_TagBase + 88;
+     AHIC_Input = AHI_TagBase + 89;
+  { ti_Data is pointer to Cardinal  }
+     AHIC_Input_Query = AHI_TagBase + 90;
+     AHIC_Output = AHI_TagBase + 91;
+  { ti_Data is pointer to Cardinal  }
+     AHIC_Output_Query = AHI_TagBase + 92;
+  { AHI_GetAudioAttrsA tags  }
+     AHIDB_AudioID = AHI_TagBase + 100;
+  { Pointer to name of driver  }
+     AHIDB_Driver = AHI_TagBaseR + 101;
+  { Private!  }
+     AHIDB_Flags = AHI_TagBase + 102;
+  { Booleanean  }
+     AHIDB_Volume = AHI_TagBase + 103;
+  { Booleanean  }
+     AHIDB_Panning = AHI_TagBase + 104;
+  { Booleanean  }
+     AHIDB_Stereo = AHI_TagBase + 105;
+  { Booleanean  }
+     AHIDB_HiFi = AHI_TagBase + 106;
+  { Booleanean  }
+     AHIDB_PingPong = AHI_TagBase + 107;
+  { Private!  }
+     AHIDB_MultTable = AHI_TagBase + 108;
+  { Pointer to name of this mode  }
+     AHIDB_Name = AHI_TagBaseR + 109;
+  { Output bits  }
+     AHIDB_Bits = AHI_TagBase + 110;
+  { Max supported channels  }
+     AHIDB_MaxChannels = AHI_TagBase + 111;
+  { Min mixing freq. supported  }
+     AHIDB_MinMixFreq = AHI_TagBase + 112;
+  { Max mixing freq. supported  }
+     AHIDB_MaxMixFreq = AHI_TagBase + 113;
+  { Booleanean  }
+     AHIDB_Record = AHI_TagBase + 114;
+     AHIDB_Frequencies = AHI_TagBase + 115;
+  { ti_Data is frequency index  }
+     AHIDB_FrequencyArg = AHI_TagBase + 116;
+     AHIDB_Frequency = AHI_TagBase + 117;
+  { Pointer to driver author name  }
+     AHIDB_Author = AHI_TagBase + 118;
+  { Pointer to driver copyright notice  }
+     AHIDB_Copyright = AHI_TagBase + 119;
+  { Pointer to driver version string  }
+     AHIDB_Version = AHI_TagBase + 120;
+  { Pointer to driver annotation text  }
+     AHIDB_Annotation = AHI_TagBase + 121;
+  { Specifies the string buffer size  }
+     AHIDB_BufferLen = AHI_TagBase + 122;
+  { ti_Data is frequency!  }
+     AHIDB_IndexArg = AHI_TagBase + 123;
+     AHIDB_Index = AHI_TagBase + 124;
+  { Booleanean  }
+     AHIDB_Realtime = AHI_TagBase + 125;
+  { It's sample  frames   }
+     AHIDB_MaxPlaySamples = AHI_TagBase + 126;
+  { It's sample  frames   }
+     AHIDB_MaxRecordSamples = AHI_TagBase + 127;
+  { Booleanean  }
+     AHIDB_FullDuplex = AHI_TagBase + 129;
+  { --- New for V2, they will be ignored by V1 ---  }
+     AHIDB_MinMonitorVolume = AHI_TagBase + 130;
+     AHIDB_MaxMonitorVolume = AHI_TagBase + 131;
+     AHIDB_MinInputGain = AHI_TagBase + 132;
+     AHIDB_MaxInputGain = AHI_TagBase + 133;
+     AHIDB_MinOutputVolume = AHI_TagBase + 134;
+     AHIDB_MaxOutputVolume = AHI_TagBase + 135;
+     AHIDB_Inputs = AHI_TagBase + 136;
+  { ti_Data is input index  }
+     AHIDB_InputArg = AHI_TagBase + 137;
+     AHIDB_Input = AHI_TagBase + 138;
+     AHIDB_Outputs = AHI_TagBase + 139;
+  { ti_Data is input index  }
+     AHIDB_OutputArg = AHI_TagBase + 140;
+     AHIDB_Output = AHI_TagBase + 141;
+  { --- New for V4, they will be ignored by V2 and earlier ---  }
+  { Private!  }
+     AHIDB_Data = AHI_TagBaseR + 142;
+  { AHI_BestAudioIDA tags  }
+  { --- New for V4, they will be ignored by V2 and earlier ---  }
+     AHIB_Dizzy = AHI_TagBase + 190;
+  { AHI_AudioRequestA tags  }
+  { Window control  }
+  { Parent window  }
+     AHIR_Window = AHI_TagBase + 200;
+  { Screen to open on if no window  }
+     AHIR_Screen = AHI_TagBase + 201;
+  { Name of public screen  }
+     AHIR_PubScreenName = AHI_TagBase + 202;
+  { Allocate private IDCMP?  }
+     AHIR_PrivateIDCMP = AHI_TagBase + 203;
+  { Function to handle IntuiMessages  }
+     AHIR_IntuiMsgFunc = AHI_TagBase + 204;
+  { Block input in AHIR_Window?  }
+     AHIR_SleepWindow = AHI_TagBase + 205;
+  { What to put in ahiam_UserData  }
+     AHIR_UserData = AHI_TagBase + 206;
+  { Text display  }
+  { Text font to use for gadget text  }
+     AHIR_TextAttr = AHI_TagBase + 220;
+  { Locale to use for text  }
+     AHIR_Locale = AHI_TagBase + 221;
+  { Title of requester  }
+     AHIR_TitleText = AHI_TagBase + 222;
+  { Positive gadget text  }
+     AHIR_PositiveText = AHI_TagBase + 223;
+  { Negative gadget text  }
+     AHIR_NegativeText = AHI_TagBase + 224;
+  { Initial settings  }
+  { Initial requester coordinates  }
+     AHIR_InitialLeftEdge = AHI_TagBase + 240;
+     AHIR_InitialTopEdge = AHI_TagBase + 241;
+  { Initial requester dimensions  }
+     AHIR_InitialWidth = AHI_TagBase + 242;
+     AHIR_InitialHeight = AHI_TagBase + 243;
+  { Initial audio mode id  }
+     AHIR_InitialAudioID = AHI_TagBase + 244;
+  { Initial mixing/sampling frequency  }
+     AHIR_InitialMixFreq = AHI_TagBase + 245;
+  { Info window initially opened?  }
+     AHIR_InitialInfoOpened = AHI_TagBase + 246;
+  { Initial Info window coords.  }
+     AHIR_InitialInfoLeftEdge = AHI_TagBase + 247;
+     AHIR_InitialInfoTopEdge = AHI_TagBase + 248;
+  { Not used!  }
+     AHIR_InitialInfoWidth = AHI_TagBase + 249;
+  { Not used!  }
+     AHIR_InitialInfoHeight = AHI_TagBase + 250;
+  { Options  }
+  { Allow selection of mixing frequency?  }
+     AHIR_DoMixFreq = AHI_TagBase + 260;
+  { Allow selection of default mode? (V4)  }
+     AHIR_DoDefaultMode = AHI_TagBase + 261;
+  { Filtering  }
+  { Pointer to filter taglist  }
+     AHIR_FilterTags = AHI_TagBase + 270;
+  { Function to filter mode id's  }
+     AHIR_FilterFunc = AHI_TagBase + 271;
+  {   DEFS  }
+     AHINAME : PChar = 'ahi.device';
+  { Invalid Audio ID  }
+     AHI_INVALID_ID =  not (0);
+  { Only for AHI_AllocAudioA()!  }
+     AHI_DEFAULT_ID = $00000000;
+  { Special sample render Audio ID  }
+     AHI_LOOPBACK_ID = $00000001;
+  { Only for AHI_AllocAudioA()!  }
+     AHI_DEFAULT_FREQ = 0;
+  { Special frequency for AHI_SetFreq()  }
+     AHI_MIXFREQ =  not (0);
+  { Turns a channel off  }
+     AHI_NOSOUND = $ffff;
+  { Set#? Flags  }
+     AHISF_IMM = 1 shl 0;
+     AHISB_IMM = 0;
+  { Effect Types  }
+  { OR with effect to disable  }
+     AHIET_CANCEL = 1 shl 31;
+     AHIET_MASTERVOLUME = 1;
+     AHIET_OUTPUTBUFFER = 2;
+  { --- New for V4 ---  }
+     AHIET_DSPMASK = 3;
+     AHIET_DSPECHO = 4;
+     AHIET_CHANNELINFO = 5;
+  { Sound Types  }
+  { Private  }
+     AHIST_NOTYPE =  not (0);
+  { 8 or 16 bit sample  }
+     AHIST_SAMPLE = 0;
+  { Dynamic sample  }
+     AHIST_DYNAMICSAMPLE = 1;
+  { The input from your sampler  }
+     AHIST_INPUT = 1 shl 29;
+  { Private  }
+     AHIST_BW = 1 shl 30;
+  { Sample types  }
+  { Note that only AHIST_M8S, AHIST_S8S, AHIST_M16S and AHIST_S16S
+     are supported by AHI_LoadSound().  }
+  { Mono, 8 bit signed (BYTE)  }
+     AHIST_M8S = 0;
+  { Mono, 16 bit signed (WORD)  }
+     AHIST_M16S = 1;
+  { Stereo, 8 bit signed (2×BYTE)  }
+     AHIST_S8S = 2;
+  { Stereo, 16 bit signed (2×WORD)  }
+     AHIST_S16S = 3;
+  { Mono, 32 bit signed (LONG)  }
+     AHIST_M32S = 8;
+  { Stereo, 32 bit signed (2×LONG)  }
+     AHIST_S32S = 10;
+  { OBSOLETE!  }
+     AHIST_M8U = 4;
+  { Error codes  }
+  { No error  }
+     AHIE_OK = 0;
+  { Out of memory  }
+     AHIE_NOMEM = 1;
+  { Unknown sound type  }
+     AHIE_BADSOUNDTYPE = 2;
+  { Unknown/unsupported sample type  }
+     AHIE_BADSAMPLETYPE = 3;
+  { User-triggered abortion  }
+     AHIE_ABORTED = 4;
+  { Error, but unknown  }
+     AHIE_UNKNOWN = 5;
+  { CMD_WRITE/CMD_READ failure  }
+     AHIE_HALFDUPLEX = 6;
+  { DEVICE INTERFACE DEFINITIONS FOLLOWS                                     }
+  { Device units  }
+     AHI_DEFAULT_UNIT = 0;
+     AHI_NO_UNIT = 255;
+  { The preference file  }
+     ID_AHIU = $41484955;
+     ID_AHIG = $41484947;
+
+
+  type
+     PAHIUnitPrefs = ^tAHIUnitPrefs;
+     tAHIUnitPrefs = record
+          ahiup_Unit : Byte;
+          ahiup_Pad : Byte;
+          ahiup_Channels : Word;
+          ahiup_AudioMode : Cardinal;
+          ahiup_Frequency : Cardinal;
+          ahiup_MonitorVolume : Fixed;
+          ahiup_InputGain : Fixed;
+          ahiup_OutputVolume : Fixed;
+          ahiup_Input : Cardinal;
+          ahiup_Output : Cardinal;
+       end;
+
+
+
+     PAHIGlobalPrefs = ^tAHIGlobalPrefs;
+     tAHIGlobalPrefs = record
+          ahigp_DebugLevel : Word;       { Range: 0-3 (for None, Low,}
+          ahigp_DisableSurround : Boolean;   { High and All)  }
+          ahigp_DisableEcho : Boolean;
+          ahigp_FastEcho : Boolean;
+          ahigp_MaxCPU : Fixed;
+          ahigp_ClipMasterVolume : Boolean;
+       end;
+
+  { Debug levels  }
+
+  const
+     AHI_DEBUG_NONE = 0;
+     AHI_DEBUG_LOW = 1;
+     AHI_DEBUG_HIGH = 2;
+     AHI_DEBUG_ALL = 3;
+
+  { AHIRequest  }
+  type
+     PAHIRequest = ^tAHIRequest;
+     tAHIRequest = record
+          ahir_Std : tIOStdReq;                  { Standard IO request  }
+          ahir_Version : Word;                  { Needed version  }
+          { --- New for V4, they will be ignored by V2 and earlier ---  }
+          ahir_Pad1 : Word;
+          ahir_Private : array[0..1] of Cardinal;   { Hands off!  }
+          ahir_Type : Cardinal;                     { Sample format  }
+          ahir_Frequency : Cardinal;                { Sample/Record frequency  }
+          ahir_Volume : Fixed;                   { Sample volume  }
+          ahir_Position : Fixed;                 { Stereo position  }
+          ahir_Link : PAHIRequest;               { For double buffering  }
+       end;
+
+  { Flags for OpenDevice()  }
+
+  const
+     AHIDF_NOMODESCAN = 1 shl 0;
+     AHIDB_NOMODESCAN = 0;
+
+
+function AHI_AllocAudioA(tagList : pTagItem location 'a1') : pAHIAudioCtrl;
+SysCall AHIBase 042;
+
+procedure AHI_FreeAudio(AudioCtrl : pAHIAudioCtrl location 'a2');
+SysCall AHIBase 048;
+
+procedure AHI_KillAudio;
+SysCall AHIBase 054;
+
+function AHI_ControlAudioA(AudioCtrl : pAHIAudioCtrl location 'a2'; tagList : pTagItem location 'a1') : Cardinal;
+SysCall AHIBase 060;
+
+procedure AHI_SetVol(Channel : Word location 'd0'; Volume : LongInt location 'd1'; Pan : LongInt location 'd2'; AudioCtrl : pAHIAudioCtrl location 'a2'; Flags : Cardinal location 'd3');
+SysCall AHIBase 066;
+
+procedure AHI_SetFreq(Channel : Word location 'd0'; Freq : Cardinal location 'd1'; AudioCtrl : pAHIAudioCtrl location 'a2'; Flags : Cardinal location 'd2');
+SysCall AHIBase 072;
+
+procedure AHI_SetSound(Channel : Word location 'd0'; Sound : Word location 'd1'; Offset : Cardinal location 'd2'; Length : LongInt location 'd3'; AudioCtrl : pAHIAudioCtrl location 'a2'; Flags : Cardinal location 'd4');
+SysCall AHIBase 078;
+
+function AHI_SetEffect(Effect : Pointer location 'a0'; AudioCtrl : pAHIAudioCtrl location 'a2') : Cardinal;
+SysCall AHIBase 084;
+
+function AHI_LoadSound(Sound : Word location 'd0'; SType : Cardinal location 'd1'; Info : Pointer location 'a0'; AudioCtrl : pAHIAudioCtrl location 'a2') : Cardinal;
+SysCall AHIBase 090;
+
+procedure AHI_UnloadSound(Sound : Word location 'd0'; Audioctrl : pAHIAudioCtrl location 'a2');
+SysCall AHIBase 096;
+
+function AHI_NextAudioID(Last_ID : Cardinal location 'd0') : Cardinal;
+SysCall AHIBase 102;
+
+function AHI_GetAudioAttrsA(ID : Cardinal location 'd0'; Audioctrl : pAHIAudioCtrl location 'a2'; tagList : pTagItem location 'a1') : BOOLEAN;
+SysCall AHIBase 108;
+
+function AHI_BestAudioIDA(tagList : pTagItem location 'a1') : Cardinal;
+SysCall AHIBase 114;
+
+function AHI_AllocAudioRequestA(tagList : pTagItem location 'a0') : pAHIAudioModeRequester;
+SysCall AHIBase 120;
+
+function AHI_AudioRequestA(Requester : pAHIAudioModeRequester location 'a0'; tagList : pTagItem location 'a1') : BOOLEAN;
+SysCall AHIBase 126;
+
+procedure AHI_FreeAudioRequest(Requester : pAHIAudioModeRequester location 'a0');
+SysCall AHIBase 132;
+
+procedure AHI_PlayA(Audioctrl : pAHIAudioCtrl location 'a2'; tagList : pTagItem location 'a1');
+SysCall AHIBase 138;
+
+function AHI_SampleFrameSize(SampleType : Cardinal location 'd0') : Cardinal;
+SysCall AHIBase 144;
+
+function AHI_AddAudioMode(a0arg : pTagItem location 'a0') : Cardinal;
+SysCall AHIBase 150;
+
+function AHI_RemoveAudioMode(d0arg : Cardinal location 'd0') : Cardinal;
+SysCall AHIBase 156;
+
+function AHI_LoadModeFile(a0arg : PChar location 'a0') : Cardinal;
+SysCall AHIBase 162;
+
+
+{
+ Functions and procedures with tags
+}
+function AHI_AllocAudio(tagList : array of DWord): pAHIAudioCtrl;
+function AHI_ControlAudio(AudioCtrl : pAHIAudioCtrl; tagList : array Of DWord) : Cardinal;
+function AHI_GetAudioAttrs(ID : CARDINAL; Audioctrl : pAHIAudioCtrl; taglist : array of DWord) : Boolean;
+function AHI_BestAudioID(taglist : array of DWord) : Cardinal;
+function AHI_AllocAudioRequest(taglist : array of DWord) : pAHIAudioModeRequester;
+function AHI_AudioRequest(Requester : pAHIAudioModeRequester; taglist : array of DWord) : Boolean;
+procedure AHI_Play(Audioctrl : pAHIAudioCtrl; taglist : array of DWord);
+
+function InitAHILibrary : boolean;
+
+
+implementation
+
+
+function AHI_AllocAudio(tagList : array of DWord): pAHIAudioCtrl;
+begin
+    AHI_AllocAudio:=AHI_AllocAudioA(@taglist);
+end;
+
+function AHI_AllocAudioRequest(taglist : array of DWord) : pAHIAudioModeRequester;
+begin
+    AHI_AllocAudioRequest:=AHI_AllocAudioRequestA(@taglist);
+end;
+
+function AHI_AudioRequest(Requester : pAHIAudioModeRequester; taglist : array of DWord) : Boolean;
+begin
+    AHI_AudioRequest:=AHI_AudioRequestA(Requester,@taglist);
+end;
+
+function AHI_BestAudioID(taglist : array of DWord) : longword;
+begin
+    AHI_BestAudioID:=AHI_BestAudioIDA(@taglist);
+end;
+
+function AHI_ControlAudio(AudioCtrl : pAHIAudioCtrl; taglist : array of DWord) : longword;
+begin
+    AHI_ControlAudio:=AHI_ControlAudioA(AudioCtrl,@taglist);
+end;
+
+function AHI_GetAudioAttrs(ID : longword; Audioctrl : pAHIAudioCtrl; taglist : array of DWord) : Boolean;
+begin
+    AHI_GetAudioAttrs:=AHI_GetAudioAttrsA(ID,Audioctrl,@taglist);
+end;
+
+procedure AHI_Play(Audioctrl : pAHIAudioCtrl; taglist : array of DWord);
+begin
+    AHI_PlayA(Audioctrl,@taglist);
+end;
+
+
+const
+    { Change VERSION and LIBVERSION to proper values }
+
+    VERSION : string[2] = '0';
+    LIBVERSION : longword = 0;
+
+var
+  ahi_exit : Pointer;
+
+procedure CloseAHILibrary;
+begin
+  ExitProc := ahi_exit;
+  if AHIBase <> nil then begin
+    CloseLibrary(PLibrary(AHIBase));
+    AHIBase := nil;
+  end;
+end;
+
+function InitAHILibrary : boolean;
+begin
+  AHIBase := nil;
+  AHIBase := OpenLibrary(AHINAME,LIBVERSION);
+  if AHIBase <> nil then begin
+    ahi_exit := ExitProc;
+    ExitProc := @CloseAhiLibrary;
+    InitAhiLibrary:=True;
+  end else begin
+    InitAhiLibrary:=False;
+  end;
+end;
+
+end. (* UNIT AHI *)
+
+{
+  $Log
+}

rtl/morphos/asl.pas

@@ -0,0 +1,617 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2005 Karoly Balogh for Genesi S.a.r.l.
+
+    intuition.library interface unit for MorphOS/PowerPC
+
+    Based on work of Nils Sjoholm member of the Amiga RTL
+    development team.
+
+    MorphOS port was done on a free Pegasos II/G4 machine
+    provided by Genesi S.a.r.l. <www.genesi.lu>
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+{$PACKRECORDS 2}
+unit asl;
+
+interface
+
+uses exec, utility, {workbench,} graphics;
+
+
+{************************************************************************}
+
+const
+  ASLNAME : PChar = 'asl.library';
+  ASL_TB          =     TAG_USER+$80000;
+
+{************************************************************************}
+
+{ Types of requesters known to ASL, used as arguments to AllocAslRequest() }
+  ASL_FileRequest       = 0;
+  ASL_FontRequest       = 1;
+  ASL_ScreenModeRequest = 2;
+
+
+{****************************************************************************
+ *
+ * ASL File Requester data structures and constants
+ *
+ * This structure must only be allocated by asl.library amd is READ-ONLY!
+ * Control of the various fields is provided via tags when the requester
+ * is created with AllocAslRequest() and when it is displayed via
+ * AslRequest()
+ }
+
+type
+       pFileRequester = ^tFileRequester;
+       tFileRequester = record
+           rf_Reserved0   : Array[0..3] Of Byte;
+           rf_File        : PChar;        { Filename pointer             }
+           rf_Dir         : PChar;        { Directory name pointer       }
+           rf_Reserved1   : Array[0..9] Of Byte;
+           rf_LeftEdge    : smallint;
+           rf_TopEdge     : smallint;          { Preferred window pos }
+           rf_Width       : smallint;
+           rf_Height      : smallint;          { Preferred window size  }
+           rf_Reserved2   : Array[0..1] Of Byte;
+           rf_NumArgs     : LongInt;       { A-la WB Args, FOR multiselects }
+{$WARNING FIX ME!!! Needs workbench unit}
+{           rf_ArgList     : pWBArgList;}
+           rf_ArgList     : Pointer;
+           rf_UserData    : Pointer;       { Applihandle (you may write!!) }
+           rf_Reserved3   : Array[0..7] Of Byte;
+           rf_Pat         : PChar;         { Pattern match pointer }
+       END;                                { note - more reserved fields follow }
+
+
+{ File requester tag values, used by AllocAslRequest() and AslRequest() }
+
+const
+{ Window control }
+  ASLFR_Window         = ASL_TB+2 ;  { Parent window                    }
+  ASLFR_Screen         = ASL_TB+40;  { Screen to open on if no window   }
+  ASLFR_PubScreenName  = ASL_TB+41;  { Name of public screen            }
+  ASLFR_PrivateIDCMP   = ASL_TB+42;  { Allocate private IDCMP?          }
+  ASLFR_IntuiMsgFunc   = ASL_TB+70;  { Function to handle IntuiMessages }
+  ASLFR_SleepWindow    = ASL_TB+43;  { Block input in ASLFR_Window?     }
+  ASLFR_UserData       = ASL_TB+52;  { What to put in fr_UserData       }
+  ASLFR_PopToFront     = ASL_TB+131; { Make the requester window visible }
+  ASLFR_Activate       = ASL_TB+132; { Activate the requester window when }
+
+{ Text display }
+  ASLFR_TextAttr       = ASL_TB+51;  { Text font to use for gadget text }
+  ASLFR_Locale         = ASL_TB+50;  { Locale ASL should use for text   }
+  ASLFR_TitleText      = ASL_TB+1 ;  { Title of requester               }
+  ASLFR_PositiveText   = ASL_TB+18;  { Positive gadget text             }
+  ASLFR_NegativeText   = ASL_TB+19;  { Negative gadget text             }
+
+{ Initial settings }
+  ASLFR_InitialLeftEdge= ASL_TB+3 ;  { Initial requester coordinates    }
+  ASLFR_InitialTopEdge = ASL_TB+4 ;
+  ASLFR_InitialWidth   = ASL_TB+5 ;  { Initial requester dimensions     }
+  ASLFR_InitialHeight  = ASL_TB+6 ;
+  ASLFR_InitialFile    = ASL_TB+8 ;  { Initial contents of File gadget  }
+  ASLFR_InitialDrawer  = ASL_TB+9 ;  { Initial contents of Drawer gadg. }
+  ASLFR_InitialPattern = ASL_TB+10;  { Initial contents of Pattern gadg.}
+  ASLFR_InitialShowVolumes = ASL_TB+130; { Initially, show the volume list (V44) }
+
+{ Options }
+  ASLFR_Flags1         = ASL_TB+20;  { Option flags                     }
+  ASLFR_Flags2         = ASL_TB+22;  { Additional option flags          }
+  ASLFR_DoSaveMode     = ASL_TB+44;  { Being used for saving?           }
+  ASLFR_DoMultiSelect  = ASL_TB+45;  { Do multi-select?                 }
+  ASLFR_DoPatterns     = ASL_TB+46;  { Display a Pattern gadget?        }
+
+{ Filtering }
+  ASLFR_DrawersOnly    = ASL_TB+47;  { Don't display files?             }
+  ASLFR_FilterFunc     = ASL_TB+49;  { Function to filter files         }
+  ASLFR_RejectIcons    = ASL_TB+60;  { Display .info files?             }
+  ASLFR_RejectPattern  = ASL_TB+61;  { Don't display files matching pat }
+  ASLFR_AcceptPattern  = ASL_TB+62;  { Accept only files matching pat   }
+  ASLFR_FilterDrawers  = ASL_TB+63;  { Also filter drawers with patterns}
+  ASLFR_HookFunc       = ASL_TB+7 ;  { Combined callback function       }
+
+{ Sorting }
+  ASLFR_SetSortBy      = ASL_TB+124; { Sort criteria (name, date, size) }
+  ASLFR_GetSortBy      = ASL_TB+125;
+  ASLFR_SetSortDrawers = ASL_TB+126; { Placement of drawers in the list }
+  ASLFR_GetSortDrawers = ASL_TB+127;
+  ASLFR_SetSortOrder   = ASL_TB+128; { Order (ascending or descending)  }
+  ASLFR_GetSortOrder   = ASL_TB+129;
+
+
+{ Flag bits for the ASLFR_Flags1 tag }
+  FRB_FILTERFUNC     = 7;
+  FRB_INTUIFUNC      = 6;
+  FRB_DOSAVEMODE     = 5;
+  FRB_PRIVATEIDCMP   = 4;
+  FRB_DOMULTISELECT  = 3;
+  FRB_DOPATTERNS     = 0;
+
+  FRF_FILTERFUNC     = 128;
+  FRF_INTUIFUNC      = 64;
+  FRF_DOSAVEMODE     = 32;
+  FRF_PRIVATEIDCMP   = 16;
+  FRF_DOMULTISELECT  = 8;
+  FRF_DOPATTERNS     = 1;
+
+{ Flag bits for the ASLFR_Flags2 tag }
+  FRB_DRAWERSONLY    = 0;
+  FRB_FILTERDRAWERS  = 1;
+  FRB_REJECTICONS    = 2;
+
+  FRF_DRAWERSONLY    = 1;
+  FRF_FILTERDRAWERS  = 2;
+  FRF_REJECTICONS    = 4;
+
+{ Sort criteria for the ASLFR_SetSortBy/ASLFR_GetSortBy tags }
+  ASLFRSORTBY_Name   = 0;
+  ASLFRSORTBY_Date   = 1;
+  ASLFRSORTBY_Size   = 2;
+
+{ Drawer placement for the ASLFR_SetSortDrawers/ASLFR_GetSortDrawers tags }
+  ASLFRSORTDRAWERS_First  = 0;
+  ASLFRSORTDRAWERS_Mix    = 1;
+  ASLFRSORTDRAWERS_Last   = 2;
+
+{ Sort order for the ASLFR_SetSortOrder/ASLFR_GetSortOrder tags }
+  ASLFRSORTORDER_Ascend   = 0;
+  ASLFRSORTORDER_Descend  = 1;
+
+{****************************************************************************
+ *
+ * ASL Font Requester data structures and constants
+ *
+ * This structure must only be allocated by asl.library amd is READ-ONLY!
+ * Control of the various fields is provided via tags when the requester
+ * is created with AllocAslRequest() and when it is displayed via
+ * AslRequest()
+ }
+
+type
+    pFontRequester = ^tFontRequester;
+    tFontRequester = record
+       fo_Reserved0        : Array[0..7] Of Byte;
+       fo_Attr             : tTextAttr;            { Returned TextAttr                }
+       fo_FrontPen         : Byte;                 { Returned front pen               }
+       fo_BackPen          : Byte;                 { Returned back pen                }
+       fo_DrawMode         : Byte;                 { Returned drawing mode            }
+       fo_Reserved1        : Byte;
+       fo_UserData         : Pointer;              { You can store your own data here }
+       fo_LeftEdge         : smallint;                 { Coordinates Of requester on Exit }
+       fo_TopEdge          : smallint;
+       fo_Width            : smallint;
+       fo_Height           : smallint;
+       fo_TAttr            : tTTextAttr;           { Returned TTextAttr               }
+    end;
+
+
+{ Font requester tag values, used by AllocAslRequest() AND AslRequest() }
+
+const
+{ Window control }
+  ASLFO_Window         = ASL_TB+2 ;  { Parent window                    }
+  ASLFO_Screen         = ASL_TB+40;  { Screen to open on if no window   }
+  ASLFO_PubScreenName  = ASL_TB+41;  { Name of public screen            }
+  ASLFO_PrivateIDCMP   = ASL_TB+42;  { Allocate private IDCMP?          }
+  ASLFO_IntuiMsgFunc   = ASL_TB+70;  { Function to handle IntuiMessages }
+  ASLFO_SleepWindow    = ASL_TB+43;  { Block input in ASLFO_Window?     }
+  ASLFO_UserData       = ASL_TB+52;  { What to put in fo_UserData       }
+  ASLFO_PopToFront     = ASL_TB+131; { Make the requester window visible
+                                          * when it opens (V44)
+                                          }
+  ASLFO_Activate       = ASL_TB+132; { Activate the requester window when
+                                          * it opens (V45).
+                                          }
+{ Text display }
+  ASLFO_TextAttr       = ASL_TB+51;  { Text font to use for gadget text }
+  ASLFO_Locale         = ASL_TB+50;  { Locale ASL should use for text   }
+  ASLFO_TitleText      = ASL_TB+1 ;  { Title of requester               }
+  ASLFO_PositiveText   = ASL_TB+18;  { Positive gadget text             }
+  ASLFO_NegativeText   = ASL_TB+19;  { Negative gadget text             }
+
+{ Initial settings }
+  ASLFO_InitialLeftEdge= ASL_TB+3 ;  { Initial requester coordinates    }
+  ASLFO_InitialTopEdge = ASL_TB+4 ;
+  ASLFO_InitialWidth   = ASL_TB+5 ;  { Initial requester dimensions     }
+  ASLFO_InitialHeight  = ASL_TB+6 ;
+  ASLFO_InitialName    = ASL_TB+10;  { Initial contents of Name gadget  }
+  ASLFO_InitialSize    = ASL_TB+11;  { Initial contents of Size gadget  }
+  ASLFO_InitialStyle   = ASL_TB+12;  { Initial font style               }
+  ASLFO_InitialFlags   = ASL_TB+13;  { Initial font flags for TextAttr  }
+  ASLFO_InitialFrontPen= ASL_TB+14;  { Initial front pen                }
+  ASLFO_InitialBackPen = ASL_TB+15;  { Initial back pen                 }
+  ASLFO_InitialDrawMode= ASL_TB+59;  { Initial draw mode                }
+
+{ Options }
+  ASLFO_Flags          = ASL_TB+20;  { Option flags                     }
+  ASLFO_DoFrontPen     = ASL_TB+44;  { Display Front color selector?    }
+  ASLFO_DoBackPen      = ASL_TB+45;  { Display Back color selector?     }
+  ASLFO_DoStyle        = ASL_TB+46;  { Display Style checkboxes?        }
+  ASLFO_DoDrawMode     = ASL_TB+47;  { Display DrawMode cycle gadget?   }
+  ASLFO_SampleText     = ASL_TB+133; { Text to display in font sample area (V45) }
+
+{ Filtering }
+  ASLFO_FixedWidthOnly = ASL_TB+48;  { Only allow fixed-width fonts?    }
+  ASLFO_MinHeight      = ASL_TB+16;  { Minimum font height to display   }
+  ASLFO_MaxHeight      = ASL_TB+17;  { Maximum font height to display   }
+  ASLFO_FilterFunc     = ASL_TB+49;  { Function to filter fonts         }
+  ASLFO_HookFunc       = ASL_TB+7 ;  { Combined callback function       }
+  ASLFO_MaxFrontPen    = ASL_TB+66;  { Max # of colors in front palette }
+  ASLFO_MaxBackPen     = ASL_TB+67;  { Max # of colors in back palette  }
+
+{ Custom additions }
+  ASLFO_ModeList       = ASL_TB+21;  { Substitute list for drawmodes    }
+  ASLFO_FrontPens      = ASL_TB+64;  { Color table for front pen palette}
+  ASLFO_BackPens       = ASL_TB+65;  { Color table for back pen palette }
+
+{ Flag bits for ASLFO_Flags tag }
+  FOB_DOFRONTPEN    =  0;
+  FOB_DOBACKPEN     =  1;
+  FOB_DOSTYLE       =  2;
+  FOB_DODRAWMODE    =  3;
+  FOB_FIXEDWIDTHONLY=  4;
+  FOB_PRIVATEIDCMP  =  5;
+  FOB_INTUIFUNC     =  6;
+  FOB_FILTERFUNC    =  7;
+
+  FOF_DOFRONTPEN     = 1;
+  FOF_DOBACKPEN      = 2;
+  FOF_DOSTYLE        = 4;
+  FOF_DODRAWMODE     = 8;
+  FOF_FIXEDWIDTHONLY = 16;
+  FOF_PRIVATEIDCMP   = 32;
+  FOF_INTUIFUNC      = 64;
+  FOF_FILTERFUNC     = 128;
+
+{****************************************************************************
+ *
+ * ASL Screen Mode Requester data structures and constants
+ *
+ * This structure must only be allocated by asl.library and is READ-ONLY!
+ * Control of the various fields is provided via tags when the requester
+ * is created with AllocAslRequest() and when it is displayed via
+ * AslRequest()
+ }
+
+Type
+ pScreenModeRequester = ^tScreenModeRequester;
+ tScreenModeRequester = record
+    sm_DisplayID        : Cardinal;    { Display mode ID                  }
+    sm_DisplayWidth     : Cardinal;    { Width Of display IN pixels       }
+    sm_DisplayHeight    : Cardinal;    { Height Of display IN pixels      }
+    sm_DisplayDepth     : word;     { Number OF bit-planes OF display  }
+    sm_OverscanType     : word;     { TYPE OF overscan OF display      }
+    sm_AutoScroll       : Boolean;  { Display should auto-scroll?      }
+
+    sm_BitMapWidth      : Cardinal;    { Used TO create your own BitMap   }
+    sm_BitMapHeight     : Cardinal;
+
+    sm_LeftEdge         : smallint;     { Coordinates OF requester on Exit }
+    sm_TopEdge          : smallint;
+    sm_Width            : smallint;
+    sm_Height           : smallint;
+
+    sm_InfoOpened       : Boolean;  { Info window opened on exit?      }
+    sm_InfoLeftEdge     : smallint;     { Last coordinates OF Info window  }
+    sm_InfoTopEdge      : smallint;
+    sm_InfoWidth        : smallint;
+    sm_InfoHeight       : smallint;
+
+    sm_UserData         : Pointer;     { You can store your own data here }
+ END;
+
+
+{ An Exec list of custom modes can be added to the list of available modes.
+ * The DimensionInfo structure must be completely initialized, including the
+ * Header. See <graphics/displayinfo.h>. Custom mode ID's must be in the range
+ * $FFFF0000..$FFFFFFFF. Regular properties which apply to your custom modes
+ * can be added in the dn_PropertyFlags field. Custom properties are not
+ * allowed.
+ }
+ pDisplayMode = ^tDisplayMode;
+ tDisplayMode = record
+    dm_Node     : tNode;                 { see ln_Name           }
+    dm_DimensionInfo : tDimensionInfo;   { mode description      }
+    dm_PropertyFlags : Cardinal;           { applicable properties }
+ end;
+
+
+{ ScreenMode requester tag values, used by AllocAslRequest() and AslRequest() }
+const
+{ Window control }
+  ASLSM_Window        =  ASL_TB+2 ;  { Parent window                    }
+  ASLSM_Screen        =  ASL_TB+40;  { Screen to open on if no window   }
+  ASLSM_PubScreenName =  ASL_TB+41;  { Name of public screen            }
+  ASLSM_PrivateIDCMP  =  ASL_TB+42;  { Allocate private IDCMP?          }
+  ASLSM_IntuiMsgFunc  =  ASL_TB+70;  { Function to handle IntuiMessages }
+  ASLSM_SleepWindow   =  ASL_TB+43;  { Block input in ASLSM_Window?     }
+  ASLSM_UserData      =  ASL_TB+52;  { What to put in sm_UserData       }
+  ASLSM_PopToFront    =  ASL_TB+131; { Make the requester window visible
+                                          * when it opens (V44)
+                                          }
+  ASLSM_Activate      =  ASL_TB+132; { Activate the requester window when
+                                          * it opens (V45).
+                                          }
+
+{ Text display }
+  ASLSM_TextAttr      =  ASL_TB+51;  { Text font to use for gadget text }
+  ASLSM_Locale        =  ASL_TB+50;  { Locale ASL should use for text   }
+  ASLSM_TitleText     =  ASL_TB+1 ;  { Title of requester               }
+  ASLSM_PositiveText  =  ASL_TB+18;  { Positive gadget text             }
+  ASLSM_NegativeText  =  ASL_TB+19;  { Negative gadget text             }
+
+{ Initial settings }
+  ASLSM_InitialLeftEdge      = ASL_TB+3  ; { Initial requester coordinates    }
+  ASLSM_InitialTopEdge       = ASL_TB+4  ;
+  ASLSM_InitialWidth         = ASL_TB+5  ; { Initial requester dimensions     }
+  ASLSM_InitialHeight        = ASL_TB+6  ;
+  ASLSM_InitialDisplayID     = ASL_TB+100; { Initial display mode id     }
+  ASLSM_InitialDisplayWidth  = ASL_TB+101; { Initial display width       }
+  ASLSM_InitialDisplayHeight = ASL_TB+102; { Initial display height      }
+  ASLSM_InitialDisplayDepth  = ASL_TB+103; { Initial display depth       }
+  ASLSM_InitialOverscanType  = ASL_TB+104; { Initial type of overscan    }
+  ASLSM_InitialAutoScroll    = ASL_TB+105; { Initial autoscroll setting  }
+  ASLSM_InitialInfoOpened    = ASL_TB+106; { Info wndw initially opened? }
+  ASLSM_InitialInfoLeftEdge  = ASL_TB+107; { Initial Info window coords. }
+  ASLSM_InitialInfoTopEdge   = ASL_TB+108;
+
+{ Options }
+  ASLSM_DoWidth         = ASL_TB+109;  { Display Width gadget?           }
+  ASLSM_DoHeight        = ASL_TB+110;  { Display Height gadget?          }
+  ASLSM_DoDepth         = ASL_TB+111;  { Display Depth gadget?           }
+  ASLSM_DoOverscanType  = ASL_TB+112;  { Display Overscan Type gadget?   }
+  ASLSM_DoAutoScroll    = ASL_TB+113;  { Display AutoScroll gadget?      }
+
+{ Filtering }
+  ASLSM_PropertyFlags   = ASL_TB+114;  { Must have these Property flags  }
+  ASLSM_PropertyMask    = ASL_TB+115;  { Only these should be looked at  }
+  ASLSM_MinWidth        = ASL_TB+116;  { Minimum display width to allow  }
+  ASLSM_MaxWidth        = ASL_TB+117;  { Maximum display width to allow  }
+  ASLSM_MinHeight       = ASL_TB+118;  { Minimum display height to allow }
+  ASLSM_MaxHeight       = ASL_TB+119;  { Maximum display height to allow }
+  ASLSM_MinDepth        = ASL_TB+120;  { Minimum display depth           }
+  ASLSM_MaxDepth        = ASL_TB+121;  { Maximum display depth           }
+  ASLSM_FilterFunc      = ASL_TB+122;  { Function to filter mode id's    }
+
+{ Custom additions }
+  ASLSM_CustomSMList    = ASL_TB+123;  { Exec list of struct DisplayMode }
+
+{***************************************************************************}
+
+  ASL_LAST_TAG  = ASL_TB+133;
+
+{***************************************************************************}
+
+{ This defines the rendezvous data for setting and querying asl.library's
+ * defaults for the window size and the file requester sort order. The name
+ * of the semaphore is given below; it exists only with asl.library V45 and
+ * IPrefs V45 and beyond.
+ }
+  ASL_SEMAPHORE_NAME  : Pchar = 'asl.library';
+
+   type
+       PAslSemaphore = ^tAslSemaphore;
+       tAslSemaphore = record
+            as_Semaphore : tSignalSemaphore;
+            as_Version : Word;         { Must be >= 45 }
+            as_Size : Cardinal;            { Size of this data structure. }
+            as_SortBy : Byte;          { File requester defaults; name, date or size }
+            as_SortDrawers : Byte;     { File requester defaults; first, mix or last }
+            as_SortOrder : Byte;       { File requester defaults; ascending or descending }
+            as_SizePosition : Byte;    { See below }
+            as_RelativeLeft : WORD;     { Window position offset }
+            as_RelativeTop : WORD;
+            as_RelativeWidth : Byte;   { Window size factor; this is
+                                         * a percentage of the parent
+                                         * window/screen width.
+                                        }
+            as_RelativeHeight : Byte;
+         end;
+
+const
+{ Default position of the ASL window. }
+  ASLPOS_DefaultPosition   = 0;   { Position is calculated according to the builtin rules. }
+  ASLPOS_CenterWindow      = 1;   { Centred within the bounds of the parent window. }
+  ASLPOS_CenterScreen      = 2;   { Centred within the bounds of the parent screen. }
+  ASLPOS_WindowPosition    = 3;   { Relative to the top left corner of the parent window,
+                                    * using the offset values provided in the
+                                    * as_RelativeLeft/as_RelativeTop members.
+                                  }
+  ASLPOS_ScreenPosition    = 4;   { Relative to the top left corner of the parent screen,
+                                    * using the offset values provided in the
+                                    * as_RelativeLeft/as_RelativeTop members.
+                                  }
+  ASLPOS_CenterMouse       = 5;   { Directly below the mouse pointer. }
+  ASLPOS_MASK              = $0F;
+
+{ Default size of the ASL window. }
+  ASLSIZE_DefaultSize   = (0 shl 4);   { Size is calculated according to the builtin rules. }
+  ASLSIZE_RelativeSize  = (1 shl 4);   { Size is relative to the size of the parent
+                                         * window or screen, using the values provided in
+                                         * the as_RelativeWidth/as_RelativeHeight members.
+                                         * The as_RelativeWidth/as_RelativeHeight values are
+                                         * taken as percentage, i.e. a value of "50" stands for
+                                         * 50% of the width/height of the parent window/screen.
+                                       }
+  ASLSIZE_MASK          = $30;
+
+{ Other options. }
+  ASLOPTION_ASLOverrides   = (1 shl 6);   { ASL determines placement and size of requester
+                                            * windows; application's choice is ignored.
+                                          }
+
+
+{****************************************************************************
+ *
+ * Obsolete ASL definitions, here for source code compatibility only.
+ * Please do NOT use in new code.
+ *
+ *   define ASL_V38_NAMES_ONLY to remove these older names
+ }
+{$define ASL_V38_NAMES_ONLY}
+{$ifndef ASL_V38_NAMES_ONLY}
+const
+  ASL_Dummy       = (TAG_USER + $80000);
+  ASL_Hail        = ASL_Dummy+1 ;
+  ASL_Window      = ASL_Dummy+2 ;
+  ASL_LeftEdge    = ASL_Dummy+3 ;
+  ASL_TopEdge     = ASL_Dummy+4 ;
+  ASL_Width       = ASL_Dummy+5 ;
+  ASL_Height      = ASL_Dummy+6 ;
+  ASL_HookFunc    = ASL_Dummy+7 ;
+  ASL_File        = ASL_Dummy+8 ;
+  ASL_Dir         = ASL_Dummy+9 ;
+  ASL_FontName    = ASL_Dummy+10;
+  ASL_FontHeight  = ASL_Dummy+11;
+  ASL_FontStyles  = ASL_Dummy+12;
+  ASL_FontFlags   = ASL_Dummy+13;
+  ASL_FrontPen    = ASL_Dummy+14;
+  ASL_BackPen     = ASL_Dummy+15;
+  ASL_MinHeight   = ASL_Dummy+16;
+  ASL_MaxHeight   = ASL_Dummy+17;
+  ASL_OKText      = ASL_Dummy+18;
+  ASL_CancelText  = ASL_Dummy+19;
+  ASL_FuncFlags   = ASL_Dummy+20;
+  ASL_ModeList    = ASL_Dummy+21;
+  ASL_ExtFlags1   = ASL_Dummy+22;
+  ASL_Pattern     = ASL_FontName;
+{ remember what I said up there? Do not use these anymore! }
+  FILB_DOWILDFUNC  = 7;
+  FILB_DOMSGFUNC   = 6;
+  FILB_SAVE        = 5;
+  FILB_NEWIDCMP    = 4;
+  FILB_MULTISELECT = 3;
+  FILB_PATGAD      = 0;
+  FILF_DOWILDFUNC  = 128;
+  FILF_DOMSGFUNC   = 64;
+  FILF_SAVE        = 32;
+  FILF_NEWIDCMP    = 16;
+  FILF_MULTISELECT = 8;
+  FILF_PATGAD      = 1;
+  FIL1B_NOFILES    = 0;
+  FIL1B_MATCHDIRS  = 1;
+  FIL1F_NOFILES    = 1;
+  FIL1F_MATCHDIRS  = 2;
+  FONB_FRONTCOLOR  = 0;
+  FONB_BACKCOLOR   = 1;
+  FONB_STYLES      = 2;
+  FONB_DRAWMODE    = 3;
+  FONB_FIXEDWIDTH  = 4;
+  FONB_NEWIDCMP    = 5;
+  FONB_DOMSGFUNC   = 6;
+  FONB_DOWILDFUNC  = 7;
+  FONF_FRONTCOLOR  = 1;
+  FONF_BACKCOLOR   = 2;
+  FONF_STYLES      = 4;
+  FONF_DRAWMODE    = 8;
+  FONF_FIXEDWIDTH  = 16;
+  FONF_NEWIDCMP    = 32;
+  FONF_DOMSGFUNC   = 64;
+  FONF_DOWILDFUNC  = 128;
+{$endif ASL_V38_NAMES_ONLY}
+
+
+var 
+  AslBase : pLibrary;
+
+function AllocFileRequest : pFileRequester;
+SysCall AslBase 030;
+
+procedure FreeFileRequest(fileReq : pFileRequester location 'a0');
+SysCall AslBase 036;
+
+function RequestFile(fileReq : pFileRequester location 'a0'): Boolean;
+SysCall AslBase 042;
+
+function AllocAslRequest(reqType: Cardinal location 'd0'; 
+                         tagList: pTagItem location 'a0'): Pointer;
+SysCall AslBase 048;
+
+procedure FreeAslRequest(requester: Pointer location 'a0');
+SysCall AslBase 054;
+
+function AslRequest(requester: Pointer  location 'a0'; 
+                    tagList  : pTagItem location 'a1'): Boolean;
+SysCall AslBase 060;
+
+procedure AbortAslRequest(requester: Pointer location 'a0');
+SysCall AslBase 078;
+
+procedure ActivateAslRequest(requester : Pointer location 'a0');
+SysCall AslBase 084;
+
+function AllocAslRequestTags(reqType: Cardinal; 
+                             tagList: array of DWord): Pointer; Inline;
+function AslRequestTags(requester: Pointer; 
+                        tagList  : array of DWord): Boolean; Inline;
+
+function InitAslLibrary : boolean;
+
+
+implementation
+
+
+function AllocAslRequestTags(reqType: Cardinal; 
+                             tagList: array of DWord): Pointer; Inline;
+begin
+  AllocAslRequestTags:=AllocAslRequest(reqType,@tagList);
+end;
+
+function AslRequestTags(requester: Pointer; 
+                        tagList  : array of DWord): Boolean; Inline;
+begin
+  AslRequestTags:=AslRequest(requester,@tagList);
+end;
+
+
+const
+    { Change VERSION and LIBVERSION to proper values }
+
+    VERSION : string[2] = '0';
+    LIBVERSION : longword = 0;
+
+var
+  asl_exit: Pointer;
+
+procedure CloseAslLibrary;
+begin
+  ExitProc := asl_exit;
+  if AslBase <> nil then begin
+    CloseLibrary(PLibrary(AslBase));
+    AslBase := nil;
+  end;
+end;
+
+function InitAslLibrary : boolean;
+begin
+  AslBase := nil;
+  AslBase := OpenLibrary(ASLNAME,LIBVERSION);
+  if AslBase <> nil then begin
+    asl_exit := ExitProc;
+    ExitProc := @CloseAslLibrary;
+    InitAslLibrary:=True;
+  end else begin
+    InitAslLibrary:=False;
+  end;
+end;
+
+
+end. (* UNIT ASL *)
+
+{
+  $Log$
+  Revision 1.1  2005-01-30 18:58:23  karoly
+    * initial revision
+
+}