arch/.unmaintained/m68k-pp-native/dos/dosboot.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     Id: dosboot.c,v 1.16 2001/08/26 02:27:00 falemagn Exp $
   4
   5     Desc: Start up the ol' Dos boot process.
   6     Lang: english
   7 */
   8
   9
  10 # define  DEBUG  1
  11 # include <aros/debug.h>
  12
  13 #include <aros/macros.h>
  14
  15 #include <exec/types.h>
  16 #include <exec/nodes.h>
  17 #include <exec/lists.h>
  18 #include <exec/execbase.h>
  19 #include <exec/alerts.h>
  20 #include <exec/memory.h>
  21 #include <dos/dosextens.h>
  22 #include <dos/dostags.h>
  23 #include <libraries/expansionbase.h>
  24 #include <aros/asmcall.h>
  25 #include <string.h>
  26 #include <dos/filehandler.h>
  27 #include <dos/filesystem.h>
  28 #include <devices/trackdisk.h>
  29
  30 #include <proto/exec.h>
  31 #include <proto/dos.h>
  32
  33 #include <string.h>
  34
  35 extern void boot();
  36
  37 BOOL init_hidds( struct ExecBase *, struct DosLibrary * );
  38 BOOL mount( struct DeviceNode *dn, struct DosLibrary * );
  39 BOOL isBootable( CONST_STRPTR deviceNam, struct DosLibrary * );
  40
  41 AROS_UFH3(void, intBoot,
  42     AROS_UFHA(APTR, argString, A0),
  43     AROS_UFHA(ULONG, argSize, D0),
  44     AROS_UFHA(struct ExecBase *,SysBase, A6)
  45 )
  46 {
  47     AROS_USERFUNC_INIT
  48
  49     struct ExpansionBase *ExpansionBase = NULL;
  50     struct DosLibrary    *DOSBase       = NULL;
  51     struct BootNode      *bootNode      = NULL;
  52     STRPTR                bootName;
  53     LONG                  bootNameLength;
  54     BPTR                  lock;
  55     LONG                  second;
  56
  57 #   define deviceName (((struct DosList *) bootNode->bn_DeviceNode)->dol_DevName)
  58
  59     /**** Open all required libraries **********************************************/
  60     DOSBase       = (struct DosLibrary *)    OpenLibrary( "dos.library", 0 );
  61     ExpansionBase = (struct ExpansionBase *) OpenLibrary( "expansion.library", 0 );
  62
  63     if( DOSBase == NULL )
  64     {
  65         D(bug( "Could not open dos.library, something's wrong!\n" ));
  66         Alert(AT_DeadEnd| AG_OpenLib | AN_DOSLib | AO_DOSLib);
  67     }
  68
  69     if( ExpansionBase == NULL )
  70     {
  71         D(bug( "Could not open expansion.library, something's wrong!\n"));
  72         Alert(AT_DeadEnd | AG_OpenLib | AN_DOSLib | AO_ExpansionLib);
  73     }
  74
  75     /**** Try to mount all filesystems in the MountList ****************************/
  76     D(bug( "Examining MountList:\n" ));
  77
  78     ForeachNode( &ExpansionBase->MountList, bootNode )
  79     {
  80         D(bug
  81         (
  82             "Node: %p, DevNode: %p, Name = %s\n",
  83             bootNode, bootNode->bn_DeviceNode,
  84             deviceName ? deviceName : "(null)"
  85         ));
  86 //#if (AROS_FLAVOUR & AROS_FLAVOUR_EMULATION)
  87 #if 0
  88 #warning !!! Cannot have this part activated. I do define AROS_FLAVOUR_EMULATION
  89 #warning in order no to have to deal with things in boot/strap.c like
  90 #warning partition.library.
  91         AddDosEntry( (struct DosList *) bootNode->bn_DeviceNode );
  92 #else
  93         /*
  94             Try to mount the filesystem. If it fails, remove the BootNode
  95             from the list so DOS doesn't try to boot from it later.
  96         */
  97
  98         if( !mount( (struct DeviceNode *) bootNode->bn_DeviceNode ,
  99                     (struct DosLibrary *) DOSBase))
 100         {
 101             REMOVE( bootNode );
 102         }
 103 #endif
 104     }
 105
 106     /**** Try to find a bootable filesystem ****************************************/
 107     while( TRUE )
 108     {
 109         ForeachNode( &ExpansionBase->MountList, bootNode )
 110         {
 111             /*
 112                 Check if the mounted filesystem is bootable. If it's not,
 113                 it's probably some kind of transient error (ie. no disk
 114                 in drive or wrong disk) so we only move it to the end of
 115                 the list.
 116             */
 117
 118             if( isBootable( deviceName, (struct DosLibrary *)DOSBase ) )
 119             {
 120                 goto boot;
 121             }
 122         }
 123
 124         kprintf( "No bootable disk was found.\n" );
 125         kprintf( "Please insert a bootable disk in any drive.\n" );
 126
 127         for( second = 5; second > 0; second-- ) {
 128             kprintf( "Retrying in %d seconds...\n", second );
 129             Delay( 50 );
 130         }
 131
 132         /* FIXME: Should there be a prompt instead of a automatic retry? */
 133     }
 134
 135 boot:
 136
 137     /* Construct the complete device name of the boot device */
 138     bootNameLength = strlen( deviceName ) + 2;
 139     bootName       = AllocMem( bootNameLength, MEMF_ANY);
 140
 141     if( bootName == NULL )
 142     {
 143         Alert(AT_DeadEnd | AG_NoMemory | AO_DOSLib | AN_StartMem);
 144     }
 145
 146     strcpy( bootName, deviceName );
 147     strcat( bootName, ":" );
 148
 149     /* We don't need expansion.library any more */
 150     CloseLibrary( (struct Library *) ExpansionBase );
 151
 152     /* Lock the boot device and add some default assigns */
 153
 154     lock = DOSBase->dl_SYSLock = Lock(bootName, SHARED_LOCK);
 155
 156     if (lock != NULL)
 157     {
 158         AssignLock("SYS", lock);
 159     }
 160     else
 161     {
 162         Alert(AT_DeadEnd | AG_BadParm | AN_DOSLib);
 163     }
 164
 165     FreeMem( bootName, bootNameLength );
 166     lock = Lock("SYS:", SHARED_LOCK);
 167
 168     if (lock != NULL)
 169     {
 170         CurrentDir(lock);
 171     }
 172     else
 173     {
 174         Alert(AT_DeadEnd | AG_BadParm | AN_DOSLib);
 175     }
 176
 177     lock = Lock("SYS:C", SHARED_LOCK);
 178
 179     if (lock != NULL)
 180     {
 181         AssignLock("C", lock);
 182     }
 183
 184     lock = Lock("SYS:S", SHARED_LOCK);
 185
 186     if (lock != NULL)
 187     {
 188         AssignLock("S", lock);
 189     }
 190
 191     lock = Lock("SYS:Libs", SHARED_LOCK);
 192
 193     if (lock != NULL)
 194     {
 195         AssignLock("LIBS", lock);
 196     }
 197
 198     lock = Lock("SYS:Devs", SHARED_LOCK);
 199
 200     if (lock != NULL)
 201     {
 202         AssignLock("DEVS", lock);
 203     }
 204
 205     /* Late binding ENVARC: assign, only if used */
 206     AssignLate("ENVARC", "SYS:Prefs/env-archive");
 207
 208     /* Initialize HIDDs */
 209     init_hidds(SysBase, (struct DosLibrary *)DOSBase);
 210
 211     /* We now call the system dependant boot - should never return. */
 212     AROS_UFC3(void, boot,
 213               AROS_UFCA(STRPTR, argString, A0),
 214               AROS_UFCA(ULONG, argSize, D0),
 215               AROS_UFCA(struct ExecBase *, SysBase, A6));
 216
 217 #   undef deviceName
 218
 219     AROS_USERFUNC_EXIT
 220 }
 221
 222
 223 void DOSBoot(struct ExecBase *SysBase, struct DosLibrary *DOSBase)
 224 {
 225     struct TagItem bootprocess[] =
 226     {
 227         { NP_Entry,      (IPTR) intBoot },
 228         { NP_Name,       (IPTR) "Boot Process" },
 229         { NP_Input,      (IPTR) NULL },
 230         { NP_Output,     (IPTR) NULL },
 231         { NP_CurrentDir, (IPTR) NULL },
 232         { NP_Cli,        (IPTR) 0 },
 233         { TAG_END, }
 234     };
 235
 236     if( CreateNewProc( bootprocess ) == NULL )
 237     {
 238         D(bug
 239         (
 240             "CreateNewProc() failed with %ld\n",
 241             ((struct Process *) FindTask( NULL ))->pr_Result2
 242         ));
 243         Alert( AT_DeadEnd | AN_DOSLib | AG_ProcCreate );
 244     }
 245 }
 246
 247 #ifdef SysBase
 248 #undef SysBase
 249 #endif
 250
 251 #define SysBase (DOSBase->dl_SysBase)
 252
 253 BOOL mount( struct DeviceNode *dn, struct DosLibrary * DOSBase )
 254 {
 255     struct FileSysStartupMsg *fssm = BADDR(dn->dn_Startup);
 256     struct IOFileSys         *iofs;
 257     struct MsgPort           *mp = CreateMsgPort();
 258     BOOL                      rc = FALSE;
 259
 260     if (mp != NULL)
 261     {
 262         iofs = (struct IOFileSys *)CreateIORequest(mp,
 263                                                    sizeof(struct IOFileSys));
 264         if (iofs != NULL)
 265         {
 266             iofs->io_Union.io_OpenDevice.io_DeviceName = AROS_BSTR_ADDR(fssm->fssm_Device);
 267             iofs->io_Union.io_OpenDevice.io_Unit       = fssm->fssm_Unit;
 268             iofs->io_Union.io_OpenDevice.io_Environ    = BADDR(fssm->fssm_Environ);
 269             iofs->io_Union.io_OpenDevice.io_DosName    = dn->dn_NewName;
 270             if (!OpenDevice(AROS_BSTR_ADDR(dn->dn_Handler), 0, &iofs->IOFS, 0))
 271             {
 272                 if (AddDosEntry(dn))
 273                 {
 274                     dn->dn_Unit = iofs->IOFS.io_Unit;
 275                     dn->dn_Device = iofs->IOFS.io_Device;
 276                     /* Do not close filesys !!! */
 277                     rc = TRUE;
 278                 }
 279             }
 280
 281             DeleteIORequest((struct IORequest *)iofs);
 282         }
 283         else
 284         {
 285             Alert(AT_DeadEnd | AG_NoMemory | AN_DOSLib);
 286         }
 287
 288         DeleteMsgPort(mp);
 289     }
 290     else
 291     {
 292         Alert(AT_DeadEnd | AG_NoMemory | AN_DOSLib);
 293     }
 294
 295     return rc;
 296 }
 297
 298 #ifdef SysBase
 299 #undef SysBase
 300 #endif
 301
 302 #define SysBase (DOSBase->dl_SysBase)
 303
 304 BOOL isBootable( CONST_STRPTR deviceName, struct DosLibrary * DOSBase )
 305 {
 306     BOOL            result = FALSE;
 307     BPTR            lock;
 308     STRPTR          buffer;
 309     LONG            bufferLength;
 310     struct InfoData info;
 311
 312     bufferLength = strlen( deviceName ) + 2;
 313
 314     if( (buffer = AllocMem( bufferLength, MEMF_ANY ) ) == NULL )
 315     {
 316         Alert( AT_DeadEnd | AG_NoMemory | AN_DOSLib );
 317     }
 318
 319     strcpy( buffer, deviceName );
 320     strcat( buffer, ":" );
 321
 322     if( (lock = Lock( buffer, SHARED_LOCK )) == 0 )
 323     {
 324         D(bug( "dosboot: could not lock '%s'\n", buffer ));
 325         goto cleanup;
 326     }
 327
 328     if( !Info( lock, &info ) )
 329     {
 330         D(bug( "dosboot: could not get info on '%s'\n", buffer ));
 331         goto cleanup;
 332     }
 333
 334     if( info.id_DiskType != ID_NO_DISK_PRESENT )
 335     {
 336         result = TRUE;
 337     }
 338
 339 cleanup:
 340     if( buffer != NULL ) FreeMem( buffer, bufferLength );
 341     if( lock   != 0    ) UnLock( lock );
 342
 343     return result;
 344 }
 345
 346 #ifdef SysBase
 347 #undef SysBase
 348 #endif