workbench/devs/AHI/Device/header.c

   1 /*
   2      AHI - Hardware independent audio subsystem
   3      Copyright (C) 1996-2005 Martin Blom <martin@blom.org>
   4
   5      This library is free software; you can redistribute it and/or
   6      modify it under the terms of the GNU Library General Public
   7      License as published by the Free Software Foundation; either
   8      version 2 of the License, or (at your option) any later version.
   9
  10      This library is distributed in the hope that it will be useful,
  11      but WITHOUT ANY WARRANTY; without even the implied warranty of
  12      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13      Library General Public License for more details.
  14
  15      You should have received a copy of the GNU Library General Public
  16      License along with this library; if not, write to the
  17      Free Software Foundation, Inc., 59 Temple Place - Suite 330, Cambridge,
  18      MA 02139, USA.
  19 */
  20
  21 #include <config.h>
  22
  23 #include <exec/memory.h>
  24 #include <exec/resident.h>
  25 #include <exec/alerts.h>
  26 #include <exec/execbase.h>
  27 #include <proto/dos.h>
  28 #include <proto/exec.h>
  29 #include <proto/gadtools.h>
  30 #include <proto/graphics.h>
  31 #include <proto/iffparse.h>
  32 #if defined(__AROS__)
  33 #include <proto/stdc.h>
  34 #endif
  35
  36 #include "ahi_def.h"
  37 #include "debug.h"
  38 #include "header.h"
  39 #include "gateway.h"
  40 #include "gatestubs.h"
  41 #include "localize.h"
  42 #include "misc.h"
  43 #include "version.h"
  44
  45 #ifdef __amithlon__
  46 # define RTF_NATIVE (1<<3)
  47 # define FUNCARRAY_32BIT_NATIVE 0xfffefffe
  48 #endif
  49
  50 #if !defined( __AROS__ ) && !defined( __amithlon__ )
  51 extern void _etext;
  52 #else
  53 # define _etext RomTag+1 // Fake it
  54 #endif
  55
  56 /******************************************************************************
  57 ** Function prototypes ********************************************************
  58 ******************************************************************************/
  59
  60 static BOOL
  61 OpenLibs ( void );
  62
  63 static void
  64 CloseLibs ( void );
  65
  66 #define GetSymbol( name ) AHIGetELFSymbol( #name, (void*) &name ## Ptr )
  67
  68 #undef Req
  69 #define Req( msg ) ReqA( msg, NULL )
  70
  71 /******************************************************************************
  72 ** Device entry ***************************************************************
  73 ******************************************************************************/
  74
  75 #if defined( __amithlon__ )
  76 __asm( "\n\
  77          .text;\n\
  78          .byte 0x4e, 0xfa, 0x00, 0x03\n\
  79          jmp _start" );
  80 #endif
  81
  82 int
  83 _start( void )
  84 {
  85   return -1;
  86 }
  87
  88 #if defined( __MORPHOS__ )
  89 ULONG   __abox__=1;
  90 ULONG   __amigappc__=1;  // deprecated, used in MOS 0.4
  91 #endif
  92
  93 /******************************************************************************
  94 ** Device resident structure **************************************************
  95 ******************************************************************************/
  96
  97 #if defined( __AMIGAOS4__  )
  98 static const struct TagItem InitTable[];
  99 #else
 100 static const APTR InitTable[4];
 101 #endif
 102
 103 // This structure must reside in the text segment or the read-only
 104 // data segment!  "const" makes it happen.
 105 const struct Resident RomTag __attribute__((used)) =
 106 {
 107   RTC_MATCHWORD,
 108   (struct Resident *) &RomTag,
 109   (struct Resident *) &_etext,
 110 #if defined( __MORPHOS__ )
 111   RTF_EXTENDED | RTF_PPC | RTF_AUTOINIT,
 112 #elif defined( __AROS__ )
 113   RTF_EXTENDED | RTF_AUTOINIT,
 114 #elif defined( __amithlon__ )
 115   RTF_NATIVE | RTF_AUTOINIT,
 116 #elif defined( __AMIGAOS4__ )
 117   RTF_NATIVE | RTF_AUTOINIT,
 118 #else
 119   RTF_AUTOINIT,
 120 #endif
 121   VERSION,
 122   NT_DEVICE,
 123   0,                      /* priority */
 124   (BYTE *) &DevName[0],
 125   (BYTE *) &IDString[6],
 126   (APTR) &InitTable
 127 #if defined( __MORPHOS__ ) || defined( __AROS__ )
 128   , REVISION, NULL
 129 #endif
 130 };
 131
 132
 133 /******************************************************************************
 134 ** Globals ********************************************************************
 135 ******************************************************************************/
 136
 137 const ULONG  DriverVersion  = 2;
 138 const ULONG  Version        = VERSION;
 139 const ULONG  Revision       = REVISION;
 140
 141 const char DevName[]  = AHINAME;
 142 const char IDString[] = "$VER: " AHINAME " " VERS
 143                         " ©1994-2005 Martin Blom. " CPU " version.\r\n";
 144
 145 struct ExecBase           *SysBase        = NULL;
 146 struct DosLibrary         *DOSBase        = NULL;
 147 struct GfxBase            *GfxBase        = NULL;
 148 struct AHIBase            *AHIBase        = NULL;
 149 struct Library            *GadToolsBase   = NULL;
 150 struct Library            *IFFParseBase   = NULL;
 151 struct IntuitionBase      *IntuitionBase  = NULL;
 152 struct LocaleBase         *LocaleBase     = NULL;
 153 struct Device             *TimerBase      = NULL;
 154 struct UtilityBase        *UtilityBase    = NULL;
 155 #if defined (__AROS__)
 156 struct StdCBase           *StdCBase       = NULL;
 157 #endif
 158
 159 #if defined( __AMIGAOS4__ )
 160 struct ExecIFace          *IExec          = NULL;
 161 struct DOSIFace           *IDOS           = NULL;
 162 struct GadToolsIFace      *IGadTools      = NULL;
 163 struct GraphicsIFace      *IGraphics      = NULL;
 164 struct IFFParseIFace      *IIFFParse      = NULL;
 165 struct IntuitionIFace     *IIntuition     = NULL;
 166 struct LocaleIFace        *ILocale        = NULL;
 167 struct TimerIFace         *ITimer         = NULL;
 168 struct UtilityIFace       *IUtility       = NULL;
 169 #endif
 170
 171 struct Resident           *MorphOSRes     = NULL;
 172 static struct timerequest *TimerIO        = NULL;
 173
 174 #if defined( ENABLE_WARPUP )
 175 struct Library            *PowerPCBase    = NULL;
 176 void                      *PPCObject      = NULL;
 177 const ULONG               __LIB_Version  = VERSION;
 178 const ULONG               __LIB_Revision = REVISION;
 179 #endif
 180
 181 enum MixBackend_t          MixBackend     = MB_NATIVE;
 182
 183 ADDFUNC* AddByteMonoPtr                   = AddByteMono;
 184 ADDFUNC* AddByteStereoPtr                 = AddByteStereo;
 185 ADDFUNC* AddByte71Ptr                     = AddByte71;
 186 ADDFUNC* AddBytesMonoPtr                  = AddBytesMono;
 187 ADDFUNC* AddBytesStereoPtr                = AddBytesStereo;
 188 ADDFUNC* AddBytes71Ptr                    = AddBytes71;
 189 ADDFUNC* AddWordMonoPtr                   = AddWordMono;
 190 ADDFUNC* AddWordStereoPtr                 = AddWordStereo;
 191 ADDFUNC* AddWord71Ptr                     = AddWord71;
 192 ADDFUNC* AddWordsMonoPtr                  = AddWordsMono;
 193 ADDFUNC* AddWordsStereoPtr                = AddWordsStereo;
 194 ADDFUNC* AddWords71Ptr                    = AddWords71;
 195 ADDFUNC* AddLongMonoPtr                   = AddLongMono;
 196 ADDFUNC* AddLongStereoPtr                 = AddLongStereo;
 197 ADDFUNC* AddLong71Ptr                     = AddLong71;
 198 ADDFUNC* AddLongsMonoPtr                  = AddLongsMono;
 199 ADDFUNC* AddLongsStereoPtr                = AddLongsStereo;
 200 ADDFUNC* Add71MonoPtr                     = Add71Mono;
 201 ADDFUNC* Add71StereoPtr                   = Add71Stereo;
 202 ADDFUNC* AddLongs71Ptr                    = AddLongs71;
 203 ADDFUNC* Add7171Ptr                       = Add7171;
 204
 205 ADDFUNC* AddByteMonoBPtr                  = AddByteMonoB;
 206 ADDFUNC* AddByteStereoBPtr                = AddByteStereoB;
 207 ADDFUNC* AddByte71BPtr                    = AddByte71B;
 208 ADDFUNC* AddBytesMonoBPtr                 = AddBytesMonoB;
 209 ADDFUNC* AddBytesStereoBPtr               = AddBytesStereoB;
 210 ADDFUNC* AddBytes71BPtr                   = AddBytes71B;
 211 ADDFUNC* AddWordMonoBPtr                  = AddWordMonoB;
 212 ADDFUNC* AddWordStereoBPtr                = AddWordStereoB;
 213 ADDFUNC* AddWord71BPtr                    = AddWord71B;
 214 ADDFUNC* AddWordsMonoBPtr                 = AddWordsMonoB;
 215 ADDFUNC* AddWordsStereoBPtr               = AddWordsStereoB;
 216 ADDFUNC* AddWords71BPtr                   = AddWords71B;
 217 ADDFUNC* AddLongMonoBPtr                  = AddLongMonoB;
 218 ADDFUNC* AddLongStereoBPtr                = AddLongStereoB;
 219 ADDFUNC* AddLong71BPtr                    = AddLong71B;
 220 ADDFUNC* AddLongsMonoBPtr                 = AddLongsMonoB;
 221 ADDFUNC* AddLongsStereoBPtr               = AddLongsStereoB;
 222 ADDFUNC* AddLongs71BPtr                   = AddLongs71B;
 223 ADDFUNC* Add71MonoBPtr                    = Add71MonoB;
 224 ADDFUNC* Add71StereoBPtr                  = Add71StereoB;
 225 ADDFUNC* Add7171BPtr                      = Add7171B;
 226
 227 ADDFUNC* AddLofiByteMonoPtr               = AddLofiByteMono;
 228 ADDFUNC* AddLofiByteStereoPtr             = AddLofiByteStereo;
 229 ADDFUNC* AddLofiBytesMonoPtr              = AddLofiBytesMono;
 230 ADDFUNC* AddLofiBytesStereoPtr            = AddLofiBytesStereo;
 231 ADDFUNC* AddLofiWordMonoPtr               = AddLofiWordMono;
 232 ADDFUNC* AddLofiWordStereoPtr             = AddLofiWordStereo;
 233 ADDFUNC* AddLofiWordsMonoPtr              = AddLofiWordsMono;
 234 ADDFUNC* AddLofiWordsStereoPtr            = AddLofiWordsStereo;
 235 ADDFUNC* AddLofiLongMonoPtr               = AddLofiLongMono;
 236 ADDFUNC* AddLofiLongStereoPtr             = AddLofiLongStereo;
 237 ADDFUNC* AddLofiLongsMonoPtr              = AddLofiLongsMono;
 238 ADDFUNC* AddLofiLongsStereoPtr            = AddLofiLongsStereo;
 239 ADDFUNC* AddLofiByteMonoBPtr              = AddLofiByteMonoB;
 240 ADDFUNC* AddLofiByteStereoBPtr            = AddLofiByteStereoB;
 241 ADDFUNC* AddLofiBytesMonoBPtr             = AddLofiBytesMonoB;
 242 ADDFUNC* AddLofiBytesStereoBPtr           = AddLofiBytesStereoB;
 243 ADDFUNC* AddLofiWordMonoBPtr              = AddLofiWordMonoB;
 244 ADDFUNC* AddLofiWordStereoBPtr            = AddLofiWordStereoB;
 245 ADDFUNC* AddLofiWordsMonoBPtr             = AddLofiWordsMonoB;
 246 ADDFUNC* AddLofiWordsStereoBPtr           = AddLofiWordsStereoB;
 247 ADDFUNC* AddLofiLongMonoBPtr              = AddLofiLongMonoB;
 248 ADDFUNC* AddLofiLongStereoBPtr            = AddLofiLongStereoB;
 249 ADDFUNC* AddLofiLongsMonoBPtr             = AddLofiLongsMonoB;
 250 ADDFUNC* AddLofiLongsStereoBPtr           = AddLofiLongsStereoB;
 251
 252 /******************************************************************************
 253 ** Device code ****************************************************************
 254 ******************************************************************************/
 255
 256 #ifndef __AMIGAOS4__
 257 static inline void DeleteLibrary(struct Library *base) {
 258   FreeMem((APTR)(((char*)base)-base->lib_NegSize),base->lib_NegSize+base->lib_PosSize);
 259 }
 260 #endif
 261
 262 struct AHIBase*
 263 _DevInit( struct AHIBase*  device,
 264           APTR             seglist,
 265           struct ExecBase* sysbase )
 266 {
 267   AHIBase = device;
 268   SysBase = sysbase;
 269
 270   ahibug("[AHI:Device] %s()\n", __func__);
 271
 272 #ifdef __AMIGAOS4__
 273   IExec = (struct ExecIFace*) SysBase->MainInterface;
 274 #endif
 275
 276   device->ahib_Library.lib_Revision = REVISION;
 277
 278   device->ahib_SysLib  = sysbase;
 279   device->ahib_SegList = (BPTR) seglist;
 280
 281 #if defined( __mc68000__ )
 282   // Make sure we're running on a M68020 or better
 283
 284   if( ( sysbase->AttnFlags & AFF_68020 ) == 0 )
 285   {
 286     Alert( ( AN_Unknown | ACPU_InstErr ) & (~AT_DeadEnd) );
 287     DeleteLibrary( &device->ahib_Library );
 288     return NULL;
 289   }
 290 #endif
 291
 292   InitSemaphore( &device->ahib_Lock );
 293
 294   if( !OpenLibs() )
 295   {
 296     CloseLibs();
 297     DeleteLibrary( &device->ahib_Library );
 298     return NULL;
 299   }
 300
 301   return device;
 302 }
 303
 304
 305 BPTR
 306 _DevExpunge( struct AHIBase* device )
 307 {
 308   BPTR seglist = 0;
 309
 310   ahibug("[AHI:Device] %s()\n", __func__);
 311
 312    //DebugPrintF("AHI: _DevExpunge\n");
 313
 314   if( device->ahib_Library.lib_OpenCnt == 0)
 315   {
 316     seglist = device->ahib_SegList;
 317
 318     Remove( (struct Node *) device );
 319
 320     CloseLibs();
 321
 322     DeleteLibrary( &device->ahib_Library );
 323   }
 324   else
 325   {
 326     device->ahib_Library.lib_Flags |= LIBF_DELEXP;
 327   }
 328
 329   return seglist;
 330 }
 331
 332 ULONG
 333 _DevNull( void ) {
 334   return 0;
 335 }
 336
 337
 338 #ifndef __AMIGAOS4__
 339
 340 static const APTR FuncTable[] =
 341 {
 342 #if defined( __MORPHOS__ ) || defined( __amithlon__ )
 343   (APTR) FUNCARRAY_32BIT_NATIVE,
 344 #endif
 345
 346   gwDevOpen,
 347   gwDevClose,
 348   gwDevExpunge,
 349   gwDevNull,
 350
 351   gwDevBeginIO,
 352   gwDevAbortIO,
 353
 354   gwAHI_AllocAudioA,
 355   gwAHI_FreeAudio,
 356   gwAHI_KillAudio,
 357   gwAHI_ControlAudioA,
 358   gwAHI_SetVol,
 359   gwAHI_SetFreq,
 360   gwAHI_SetSound,
 361   gwAHI_SetEffect,
 362   gwAHI_LoadSound,
 363   gwAHI_UnloadSound,
 364   gwAHI_NextAudioID,
 365   gwAHI_GetAudioAttrsA,
 366   gwAHI_BestAudioIDA,
 367   gwAHI_AllocAudioRequestA,
 368   gwAHI_AudioRequestA,
 369   gwAHI_FreeAudioRequest,
 370   gwAHI_PlayA,
 371   gwAHI_SampleFrameSize,
 372   gwAHI_AddAudioMode,
 373   gwAHI_RemoveAudioMode,
 374   gwAHI_LoadModeFile,
 375
 376   (APTR) -1
 377 };
 378
 379
 380 static const APTR InitTable[4] =
 381 {
 382   (APTR) sizeof( struct AHIBase ),
 383   (APTR) &FuncTable,
 384   NULL,
 385 #if defined( __MORPHOS__ ) || defined( __amithlon__ )
 386   (APTR) _DevInit
 387 #else
 388   (APTR) gwDevInit
 389 #endif
 390 };
 391
 392 #else // __AMIGAOS4__
 393
 394 static ULONG generic_Obtain(struct Interface *Self)
 395 {
 396   return Self->Data.RefCount++;
 397 }
 398
 399 static ULONG generic_Release(struct Interface *Self)
 400 {
 401   return Self->Data.RefCount--;
 402 }
 403
 404
 405 static const CONST_APTR DevManagerVectors[] =
 406 {
 407   generic_Obtain,
 408   generic_Release,
 409   NULL,
 410   NULL,
 411
 412   gwDevOpen,
 413   gwDevClose,
 414   gwDevExpunge,
 415   NULL,
 416   gwDevBeginIO,
 417   gwDevAbortIO,
 418
 419   (CONST_APTR) -1
 420 };
 421
 422 static const struct TagItem DevManagerTags[] =
 423 {
 424   { MIT_Name,             (IPTR) "__device"        },
 425   { MIT_VectorTable,      (IPTR) DevManagerVectors },
 426   { MIT_Version,          1                         },
 427   { TAG_DONE,             0                         }
 428 };
 429
 430
 431 static const CONST_APTR MainVectors[] = {
 432   generic_Obtain,
 433   generic_Release,
 434   NULL,
 435   NULL,
 436
 437   gwAHI_AllocAudioA,
 438   gwAHI_AllocAudio,
 439   gwAHI_FreeAudio,
 440   gwAHI_KillAudio,
 441   gwAHI_ControlAudioA,
 442   gwAHI_ControlAudio,
 443   gwAHI_SetVol,
 444   gwAHI_SetFreq,
 445   gwAHI_SetSound,
 446   gwAHI_SetEffect,
 447   gwAHI_LoadSound,
 448   gwAHI_UnloadSound,
 449   gwAHI_NextAudioID,
 450   gwAHI_GetAudioAttrsA,
 451   gwAHI_GetAudioAttrs,
 452   gwAHI_BestAudioIDA,
 453   gwAHI_BestAudioID,
 454   gwAHI_AllocAudioRequestA,
 455   gwAHI_AllocAudioRequest,
 456   gwAHI_AudioRequestA,
 457   gwAHI_AudioRequest,
 458   gwAHI_FreeAudioRequest,
 459   gwAHI_PlayA,
 460   gwAHI_Play,
 461   gwAHI_SampleFrameSize,
 462   gwAHI_AddAudioMode,
 463   gwAHI_RemoveAudioMode,
 464   gwAHI_LoadModeFile,
 465
 466   (CONST_APTR) -1
 467 };
 468
 469 static const struct TagItem MainTags[] =
 470 {
 471   { MIT_Name,              (IPTR) "main"      },
 472   { MIT_VectorTable,       (IPTR) MainVectors },
 473   { MIT_Version,           1                   },
 474   { TAG_DONE,              0                   }
 475 };
 476
 477
 478 /* MLT_INTERFACES array */
 479 static const CONST_APTR Interfaces[] =
 480 {
 481   DevManagerTags,
 482   MainTags,
 483   NULL
 484 };
 485
 486 /* m68k library vectors */
 487 static const CONST_APTR VecTable68K[] = {
 488   (CONST_APTR) &m68kgwDevOpen,
 489   (CONST_APTR) &m68kgwDevClose,
 490   (CONST_APTR) &m68kgwDevExpunge,
 491   (CONST_APTR) &m68kgwDevNull,
 492
 493   (CONST_APTR) &m68kgwDevBeginIO,
 494   (CONST_APTR) &m68kgwDevAbortIO,
 495   (CONST_APTR) &m68kgwAHI_AllocAudioA,
 496   (CONST_APTR) &m68kgwAHI_FreeAudio,
 497   (CONST_APTR) &m68kgwAHI_KillAudio,
 498   (CONST_APTR) &m68kgwAHI_ControlAudioA,
 499   (CONST_APTR) &m68kgwAHI_SetVol,
 500   (CONST_APTR) &m68kgwAHI_SetFreq,
 501   (CONST_APTR) &m68kgwAHI_SetSound,
 502   (CONST_APTR) &m68kgwAHI_SetEffect,
 503   (CONST_APTR) &m68kgwAHI_LoadSound,
 504   (CONST_APTR) &m68kgwAHI_UnloadSound,
 505   (CONST_APTR) &m68kgwAHI_NextAudioID,
 506   (CONST_APTR) &m68kgwAHI_GetAudioAttrsA,
 507   (CONST_APTR) &m68kgwAHI_BestAudioIDA,
 508   (CONST_APTR) &m68kgwAHI_AllocAudioRequestA,
 509   (CONST_APTR) &m68kgwAHI_AudioRequestA,
 510   (CONST_APTR) &m68kgwAHI_FreeAudioRequest,
 511   (CONST_APTR) &m68kgwAHI_PlayA,
 512   (CONST_APTR) &m68kgwAHI_SampleFrameSize,
 513   (CONST_APTR) &m68kgwAHI_AddAudioMode,
 514   (CONST_APTR) &m68kgwAHI_RemoveAudioMode,
 515   (CONST_APTR) &m68kgwAHI_LoadModeFile,
 516
 517   (CONST_APTR) -1
 518 };
 519
 520 /* CreateLibrary() tag list */
 521 static const struct TagItem InitTable[] =
 522 {
 523   { CLT_DataSize,         sizeof(struct AHIBase) },
 524   { CLT_Interfaces,       (ULONG) Interfaces     },
 525   { CLT_Vector68K,        (ULONG) VecTable68K    },
 526   { CLT_InitFunc,         (ULONG) gwDevInit      },
 527   { TAG_DONE,             0                      }
 528 };
 529
 530 #endif // __AMIGAOS4__
 531
 532
 533 /******************************************************************************
 534 ** OpenLibs *******************************************************************
 535 ******************************************************************************/
 536
 537 // This function is called by the device startup code when the device is
 538 // first loaded into memory.
 539
 540 static BOOL
 541 OpenLibs ( void )
 542 {
 543   /* Intuition Library */
 544
 545   ahibug("[AHI:Device] %s()\n", __func__);
 546
 547   IntuitionBase = (struct IntuitionBase *) OpenLibrary( "intuition.library", 37 );
 548
 549   if( IntuitionBase == NULL)
 550   {
 551     Alert(AN_Unknown|AG_OpenLib|AO_Intuition);
 552     return FALSE;
 553   }
 554
 555   /* DOS Library */
 556
 557   DOSBase = (struct DosLibrary *) OpenLibrary( "dos.library", 37 );
 558
 559   if( DOSBase == NULL)
 560   {
 561     Req( "Unable to open 'dos.library'." );
 562     return FALSE;
 563   }
 564
 565   /* Graphics Library */
 566
 567   GfxBase = (struct GfxBase *) OpenLibrary( "graphics.library", 37 );
 568
 569   if( GfxBase == NULL)
 570   {
 571     Req( "Unable to open 'graphics.library'." );
 572     return FALSE;
 573   }
 574
 575   /* GadTools Library */
 576
 577   GadToolsBase = OpenLibrary( "gadtools.library", 37 );
 578
 579   if( GadToolsBase == NULL)
 580   {
 581     Req( "Unable to open 'gadtools.library'." );
 582     return FALSE;
 583   }
 584
 585   /* IFFParse Library */
 586
 587   IFFParseBase = OpenLibrary( "iffparse.library", 37 );
 588
 589   if( IFFParseBase == NULL)
 590   {
 591     Req( "Unable to open 'iffparse.library'." );
 592     return FALSE;
 593   }
 594
 595   /* Locale Library */
 596
 597   LocaleBase = (struct LocaleBase*) OpenLibrary( "locale.library", 38 );
 598
 599   /* Timer Device */
 600
 601   TimerIO = (struct timerequest *) AllocMem( sizeof(struct timerequest),
 602                                              MEMF_PUBLIC | MEMF_CLEAR );
 603
 604   if( TimerIO == NULL)
 605   {
 606     Req( "Out of memory." );
 607     return FALSE;
 608   }
 609
 610   if( OpenDevice( "timer.device",
 611                   UNIT_VBLANK,
 612                   (struct IORequest *)
 613                   TimerIO,
 614                   0) != 0 )
 615   {
 616     Req( "Unable to open 'timer.device'." );
 617 //    return FALSE;
 618   }
 619   else
 620   {
 621     TimerBase = (struct Device *) TimerIO->tr_node.io_Device;
 622   }
 623
 624   /* Utility Library */
 625
 626   UtilityBase = (struct UtilityBase *) OpenLibrary( "utility.library", 37 );
 627
 628   if( UtilityBase == NULL)
 629   {
 630     Req( "Unable to open 'utility.library'." );
 631     return FALSE;
 632   }
 633
 634 #if defined(__AROS__)
 635   /* StdC library */
 636
 637   StdCBase = (struct StdCBase *) OpenLibrary( "stdc.library", 0 );
 638
 639   if( StdCBase == NULL)
 640   {
 641     Req( "Unable to open 'stdc.library'." );
 642     return FALSE;
 643   }
 644 #endif
 645
 646 #ifdef __AMIGAOS4__
 647   if ((IIntuition = (struct IntuitionIFace *) GetInterface((struct Library *) IntuitionBase, "main", 1, NULL)) == NULL)
 648   {
 649     Req("Couldn't open IIntuition interface!\n");
 650     return FALSE;
 651   }
 652
 653   if ((IDOS = (struct DOSIFace *) GetInterface((struct Library *) DOSBase, "main", 1, NULL)) == NULL)
 654   {
 655     Req("Couldn't open IDOS interface!\n");
 656     return FALSE;
 657   }
 658
 659   if ((IGraphics = (struct GraphicsIFace *) GetInterface((struct Library *) GfxBase, "main", 1, NULL)) == NULL)
 660   {
 661     Req("Couldn't open Graphics interface!\n");
 662     return FALSE;
 663   }
 664
 665   if ((IGadTools = (struct GadToolsIFace *) GetInterface((struct Library *) GadToolsBase, "main", 1, NULL)) == NULL)
 666   {
 667     Req("Couldn't open IGadTools interface!\n");
 668     return FALSE;
 669   }
 670
 671   if ((IIFFParse = (struct IFFParseIFace *) GetInterface((struct Library *) IFFParseBase, "main", 1, NULL)) == NULL)
 672   {
 673     Req("Couldn't open IFFParse interface!\n");
 674     return FALSE;
 675   }
 676
 677   if ((ILocale = (struct LocaleIFace *) GetInterface((struct Library *) LocaleBase, "main", 1, NULL)) == NULL)
 678   {
 679     Req("Couldn't open ILocale interface!\n");
 680     return FALSE;
 681   }
 682
 683   if ((ITimer = (struct TimerIFace *) GetInterface((struct Library *) TimerBase, "main", 1, NULL)) == NULL)
 684   {
 685     Req("Couldn't open Timer interface!\n");
 686     return FALSE;
 687   }
 688
 689   if ((IUtility = (struct UtilityIFace *) GetInterface((struct Library *) UtilityBase, "main", 1, NULL)) == NULL)
 690   {
 691     Req("Couldn't open Utility interface!\n");
 692     return FALSE;
 693   }
 694
 695   if ((IAHI = (struct AHIIFace *) GetInterface((struct Library *) AHIBase, "main", 1, NULL)) == NULL)
 696   {
 697     Req("Couldn't open AHI interface!\n");
 698     return FALSE;
 699   }
 700 #endif
 701
 702
 703   /* MorphOS/PowerUp/WarpOS loading
 704
 705   Strategy:
 706
 707   1) If MorphOS is running, use it.
 708   2) If PowerUp is running, but not WarpUp, use the m68k core
 709   3) If neither of them are running, try WarpUp.
 710
 711   */
 712
 713   // Check if MorpOS/PowerUp/WarpUp is running.
 714   {
 715 #if defined( ENABLE_WARPUP )
 716     struct Library* ppclib     = NULL;
 717     struct Library* powerpclib = NULL;
 718 #endif
 719
 720     Forbid();
 721     MorphOSRes  = FindResident( "MorphOS" );
 722
 723 #if defined( ENABLE_WARPUP )
 724     powerpclib = (struct Library *) FindName( &SysBase->LibList,
 725                                               "powerpc.library" );
 726     ppclib     = (struct Library *) FindName( &SysBase->LibList,
 727                                               "ppc.library" );
 728 #endif
 729
 730     Permit();
 731
 732 #if defined( ENABLE_WARPUP )
 733     if( MorphOSRes == NULL && ! ( ppclib != NULL && powerpclib == NULL ) )
 734     {
 735       // Open WarpUp (but not if MorphOS or PowerUp is active)
 736
 737       PowerPCBase = OpenLibrary( "powerpc.library", 15 );
 738     }
 739 #endif
 740   }
 741
 742   if( MorphOSRes != NULL )
 743   {
 744     MixBackend  = MB_NATIVE;
 745   }
 746
 747 #if defined( ENABLE_WARPUP )
 748
 749   else if( PowerPCBase != NULL )
 750   {
 751     MixBackend = MB_WARPUP;
 752
 753     /* Load our code to PPC..  */
 754
 755     PPCObject = AHILoadObject( "DEVS:ahi.device.elf" );
 756
 757     if( PPCObject != NULL )
 758     {
 759       ULONG* version = NULL;
 760       ULONG* revision = NULL;
 761
 762       int r = ~0;
 763
 764       AHIGetELFSymbol( "__LIB_Version", (void*) &version );
 765       AHIGetELFSymbol( "__LIB_Revision", (void*) &revision );
 766
 767       if( version != NULL && revision != NULL )
 768       {
 769         if( *version == VERSION && *revision == REVISION )
 770         {
 771           r &= GetSymbol( AddByteMono     );
 772           r &= GetSymbol( AddByteStereo   );
 773           r &= GetSymbol( AddBytesMono    );
 774           r &= GetSymbol( AddBytesStereo  );
 775           r &= GetSymbol( AddWordMono     );
 776           r &= GetSymbol( AddWordStereo   );
 777           r &= GetSymbol( AddWordsMono    );
 778           r &= GetSymbol( AddWordsStereo  );
 779           r &= GetSymbol( AddLongMono     );
 780           r &= GetSymbol( AddLongStereo   );
 781           r &= GetSymbol( AddLongsMono    );
 782           r &= GetSymbol( AddLongsStereo  );
 783           r &= GetSymbol( AddByteMonoB    );
 784           r &= GetSymbol( AddByteStereoB  );
 785           r &= GetSymbol( AddBytesMonoB   );
 786           r &= GetSymbol( AddBytesStereoB );
 787           r &= GetSymbol( AddWordMonoB    );
 788           r &= GetSymbol( AddWordStereoB  );
 789           r &= GetSymbol( AddWordsMonoB   );
 790           r &= GetSymbol( AddWordsStereoB );
 791           r &= GetSymbol( AddLongMonoB    );
 792           r &= GetSymbol( AddLongStereoB  );
 793           r &= GetSymbol( AddLongsMonoB   );
 794           r &= GetSymbol( AddLongsStereoB );
 795
 796           r &= GetSymbol( AddLofiByteMono     );
 797           r &= GetSymbol( AddLofiByteStereo   );
 798           r &= GetSymbol( AddLofiBytesMono    );
 799           r &= GetSymbol( AddLofiBytesStereo  );
 800           r &= GetSymbol( AddLofiWordMono     );
 801           r &= GetSymbol( AddLofiWordStereo   );
 802           r &= GetSymbol( AddLofiWordsMono    );
 803           r &= GetSymbol( AddLofiWordsStereo  );
 804           r &= GetSymbol( AddLofiLongMono     );
 805           r &= GetSymbol( AddLofiLongStereo   );
 806           r &= GetSymbol( AddLofiLongsMono    );
 807           r &= GetSymbol( AddLofiLongsStereo  );
 808           r &= GetSymbol( AddLofiByteMonoB    );
 809           r &= GetSymbol( AddLofiByteStereoB  );
 810           r &= GetSymbol( AddLofiBytesMonoB   );
 811           r &= GetSymbol( AddLofiBytesStereoB );
 812           r &= GetSymbol( AddLofiWordMonoB    );
 813           r &= GetSymbol( AddLofiWordStereoB  );
 814           r &= GetSymbol( AddLofiWordsMonoB   );
 815           r &= GetSymbol( AddLofiWordsStereoB );
 816           r &= GetSymbol( AddLofiLongMonoB    );
 817           r &= GetSymbol( AddLofiLongStereoB  );
 818           r &= GetSymbol( AddLofiLongsMonoB   );
 819           r &= GetSymbol( AddLofiLongsStereoB );
 820
 821           if( r != 0 )
 822           {
 823             char buffer[ 2 ] = "0";
 824
 825             GetVar( "PowerPC/UseDisable", buffer, sizeof buffer, 0 );
 826
 827             if( buffer[ 0 ] == '1' )
 828             {
 829               // OK, then...
 830             }
 831             else
 832             {
 833               Req( "The WarpUp variable 'PowerPC/UseDisable' must be '1'." );
 834
 835               AHIUnloadObject( PPCObject );
 836               PPCObject  = NULL;
 837               MixBackend = MB_NATIVE;
 838             }
 839           }
 840           else
 841           {
 842             Req( "Unable to fetch all symbols from ELF object." );
 843
 844             AHIUnloadObject( PPCObject );
 845             PPCObject  = NULL;
 846             MixBackend = MB_NATIVE;
 847           }
 848         }
 849         else
 850         {
 851           Req( "'ahi.device.elf' version %ld.%ld doesn't match "
 852                "'ahi.device' version %ld.%ld.",
 853                *version, *revision, VERSION, REVISION );
 854
 855           AHIUnloadObject( PPCObject );
 856           PPCObject  = NULL;
 857           MixBackend = MB_NATIVE;
 858         }
 859       }
 860       else
 861       {
 862         Req( "Unable to fetch version information from 'ahi.device.elf'." );
 863
 864         AHIUnloadObject( PPCObject );
 865         PPCObject  = NULL;
 866         MixBackend = MB_NATIVE;
 867       }
 868     }
 869     else
 870     {
 871       MixBackend = MB_NATIVE;
 872     }
 873   }
 874
 875 #endif
 876
 877   else
 878   {
 879     //MixBackend = MB_NATIVE;
 880   }
 881
 882   OpenahiCatalog(NULL, NULL);
 883
 884   return TRUE;
 885 }
 886
 887
 888 /******************************************************************************
 889 ** CloseLibs *******************************************************************
 890 ******************************************************************************/
 891
 892 // This function is called by DevExpunge() when the device is about to be
 893 // flushed
 894
 895 static void
 896 CloseLibs ( void )
 897 {
 898   ahibug("[AHI:Device] %s()\n", __func__);
 899
 900   CloseahiCatalog();
 901
 902 #if defined( ENABLE_WARPUP )
 903   if( PPCObject != NULL )
 904   {
 905     AHIUnloadObject( PPCObject );
 906   }
 907
 908   CloseLibrary( PowerPCBase );
 909 #endif
 910
 911 #ifdef __AMIGAOS4__
 912   DropInterface((struct Interface *) IUtility );
 913   DropInterface((struct Interface *) ITimer );
 914   DropInterface((struct Interface *) ILocale );
 915   DropInterface((struct Interface *) IIFFParse );
 916   DropInterface((struct Interface *) IGadTools );
 917   DropInterface((struct Interface *) IGraphics );
 918   DropInterface((struct Interface *) IDOS );
 919   DropInterface((struct Interface *) IIntuition );
 920   DropInterface((struct Interface *) IAHI );
 921 #endif
 922
 923 #if defined(__AROS__)
 924   CloseLibrary( (struct Library *) StdCBase );
 925 #endif
 926   CloseLibrary( (struct Library *) UtilityBase );
 927
 928   if( TimerIO != NULL )
 929   {
 930     if( TimerBase != NULL )
 931     {
 932       CloseDevice( (struct IORequest *) TimerIO );
 933     }
 934
 935     FreeMem( TimerIO, sizeof(struct timerequest) );
 936   }
 937
 938   CloseLibrary( (struct Library *) LocaleBase );
 939   CloseLibrary( IFFParseBase );
 940   CloseLibrary( GadToolsBase );
 941   CloseLibrary( (struct Library *) GfxBase );
 942   CloseLibrary( (struct Library *) DOSBase );
 943   CloseLibrary( (struct Library *) IntuitionBase );
 944 }