rom/dosboot/dosboot_init.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Boot AROS
   6     Lang: english
   7 */
   8
   9 #include <string.h>
  10 #include <stdlib.h>
  11
  12 #include <aros/debug.h>
  13 #include <exec/alerts.h>
  14 #include <aros/asmcall.h>
  15 #include <aros/bootloader.h>
  16 #include <exec/lists.h>
  17 #include <exec/memory.h>
  18 #include <exec/resident.h>
  19 #include <exec/types.h>
  20 #include <libraries/configvars.h>
  21 #include <libraries/expansion.h>
  22 #include <libraries/expansionbase.h>
  23 #include <libraries/partition.h>
  24 #include <utility/tagitem.h>
  25 #include <devices/bootblock.h>
  26 #include <devices/timer.h>
  27 #include <dos/dosextens.h>
  28 #include <resources/filesysres.h>
  29 #include <clib/alib_protos.h>
  30
  31 #include <proto/exec.h>
  32 #include <proto/expansion.h>
  33 #include <proto/partition.h>
  34 #include <proto/bootloader.h>
  35
  36 #include LC_LIBDEFS_FILE
  37
  38 #include "dosboot_intern.h"
  39 #include "../expansion/expansion_intern.h"
  40 #include "menu.h"
  41
  42 /* Delay just like Dos/Delay(), ticks are
  43  * in 1/50th of a second.
  44  */
  45 static void bootDelay(ULONG timeout)
  46 {
  47     struct timerequest  timerio;
  48     struct MsgPort     timermp;
  49
  50     memset(&timermp, 0, sizeof(timermp));
  51
  52     timermp.mp_Node.ln_Type = NT_MSGPORT;
  53     timermp.mp_Flags        = PA_SIGNAL;
  54     timermp.mp_SigBit       = SIGB_SINGLE;
  55     timermp.mp_SigTask      = FindTask(NULL);
  56     NEWLIST(&timermp.mp_MsgList);
  57
  58     timerio.tr_node.io_Message.mn_Node.ln_Type  = NT_REPLYMSG;
  59     timerio.tr_node.io_Message.mn_ReplyPort     = &timermp;
  60     timerio.tr_node.io_Message.mn_Length        = sizeof(timermp);
  61
  62     if (OpenDevice("timer.device", UNIT_VBLANK, (struct IORequest *)&timerio, 0) != 0) {
  63         D(bug("dosboot: Can't open timer.device unit 0\n"));
  64         return;
  65     }
  66
  67     timerio.tr_node.io_Command  = TR_ADDREQUEST;
  68     timerio.tr_time.tv_secs     = timeout / TICKS_PER_SECOND;
  69     timerio.tr_time.tv_micro    = 1000000UL / TICKS_PER_SECOND * (timeout % TICKS_PER_SECOND);
  70
  71     SetSignal(0, SIGF_SINGLE);
  72
  73     DoIO(&timerio.tr_node);
  74
  75     CloseDevice((struct IORequest *)&timerio);
  76 }
  77
  78 static BOOL bstreqcstr(BSTR bstr, CONST_STRPTR cstr)
  79 {
  80     int clen;
  81     int blen;
  82
  83     clen = strlen(cstr);
  84     blen = AROS_BSTR_strlen(bstr);
  85     if (clen != blen)
  86         return FALSE;
  87
  88     return (memcmp(AROS_BSTR_ADDR(bstr),cstr,clen) == 0);
  89 }
  90
  91 static void selectBootDevice(LIBBASETYPEPTR DOSBootBase, STRPTR bootDeviceName)
  92 {
  93     struct BootNode *bn = NULL;
  94
  95     if (bootDeviceName == NULL &&
  96         DOSBootBase->db_BootNode != NULL)
  97         return;
  98
  99     Forbid(); /* .. access to ExpansionBase->MountList */
 100
 101     if (bootDeviceName != NULL)
 102     {
 103         struct BootNode *i;
 104         ForeachNode(&DOSBootBase->bm_ExpansionBase->MountList, i)
 105         {
 106             struct DeviceNode *dn;
 107
 108             dn = i->bn_DeviceNode;
 109             if (dn == NULL || dn->dn_Name == BNULL)
 110                 continue;
 111
 112             if (bstreqcstr(dn->dn_Name, bootDeviceName))
 113             {
 114                 bn = i;
 115                 break;
 116             }
 117         }
 118     }
 119
 120     /* Default */
 121     if (bn == NULL)
 122         bn = (APTR)GetHead(&DOSBootBase->bm_ExpansionBase->MountList);
 123
 124     Permit();
 125
 126     DOSBootBase->db_BootNode = bn;
 127 }
 128
 129 /* This makes the selected boot device the actual
 130  * boot device. It also updates the boot flags.
 131  */
 132 static void setBootDevice(LIBBASETYPEPTR DOSBootBase)
 133 {
 134     struct BootNode *bn;
 135
 136     bn = DOSBootBase->db_BootNode;
 137
 138     if (bn != NULL)
 139     {
 140         Remove((struct Node *)bn);
 141         bn->bn_Node.ln_Type = NT_BOOTNODE;
 142         bn->bn_Node.ln_Pri = 127;
 143         /* We use AddHead() instead of Enqueue() here
 144          * to *insure* that this gets to the front of
 145          * the boot list.
 146          */
 147         AddHead(&DOSBootBase->bm_ExpansionBase->MountList, (struct Node *)bn);
 148     }
 149
 150     IntExpBase(DOSBootBase->bm_ExpansionBase)->BootFlags =
 151         DOSBootBase->db_BootFlags;
 152 }
 153
 154 int dosboot_Init(LIBBASETYPEPTR LIBBASE)
 155 {
 156     struct ExpansionBase *ExpansionBase;
 157     void *BootLoaderBase;
 158     BOOL WantBootMenu = FALSE;
 159     ULONG t;
 160     STRPTR bootDeviceName = NULL;
 161
 162     LIBBASE->delayTicks = 50;
 163
 164     D(bug("dosboot_Init: GO GO GO!\n"));
 165
 166     ExpansionBase = (APTR)OpenLibrary("expansion.library", 0);
 167
 168     D(bug("[Strap] ExpansionBase 0x%p\n", ExpansionBase));
 169     if( ExpansionBase == NULL )
 170     {
 171         D(bug( "Could not open expansion.library, something's wrong!\n"));
 172         Alert(AT_DeadEnd | AG_OpenLib | AN_BootStrap | AO_ExpansionLib);
 173     }
 174
 175     ExpansionBase->Flags |= EBF_SILENTSTART;
 176
 177     LIBBASE->bm_ExpansionBase = ExpansionBase;
 178
 179     /*
 180      * Search the kernel parameters for the bootdelay=%d string. It determines the
 181      * delay in seconds.
 182      */
 183     if ((BootLoaderBase = OpenResource("bootloader.resource")) != NULL)
 184     {
 185         struct List *args = GetBootInfo(BL_Args);
 186
 187         if (args)
 188         {
 189             struct Node *node;
 190
 191             ForeachNode(args, node)
 192             {
 193                 if (0 == strncmp(node->ln_Name, "bootdelay=", 10))
 194                 {
 195                     ULONG delay = atoi(&node->ln_Name[10]);
 196
 197                     D(bug("[Boot] delay of %d seconds requested.", delay));
 198                     if (delay)
 199                         bootDelay(delay * 50);
 200                 }
 201                 else if (0 == stricmp(node->ln_Name, "bootmenu"))
 202                 {
 203                     D(bug("[BootMenu] bootmenu_Init: Forced with bootloader argument\n"));
 204                     WantBootMenu = TRUE;
 205                 }
 206                 /*
 207                  * TODO: The following two flags should have corresponding switches
 208                  * in 'display options' page.
 209                  */
 210                 else if (0 == stricmp(node->ln_Name, "nomonitors"))
 211                 {
 212                     LIBBASE->db_BootFlags |= BF_NO_DISPLAY_DRIVERS;
 213                 }
 214                 else if (0 == stricmp(node->ln_Name, "nocomposition"))
 215                 {
 216                     LIBBASE->db_BootFlags |= BF_NO_COMPOSITION;
 217                 }
 218                 else if (0 == strnicmp(node->ln_Name, "bootdevice=", 11))
 219                 {
 220                     bootDeviceName = &node->ln_Name[11];
 221                 }
 222                 else if (0 == stricmp(node->ln_Name, "econsole"))
 223                 {
 224                     LIBBASE->db_BootFlags |= BF_EMERGENCY_CONSOLE;
 225                     D(bug("[Boot] Emergency console selected\n"));
 226                 }
 227             }
 228             IntExpBase(ExpansionBase)->BootFlags = LIBBASE->db_BootFlags;
 229         }
 230     }
 231
 232     /* Scan for any additional partition volumes */
 233     dosboot_BootScan(LIBBASE);
 234
 235     /* Select the initial boot device, so that the choice is available in the menu */
 236     selectBootDevice(LIBBASE, bootDeviceName);
 237
 238     /* Show the boot menu if needed */
 239     bootmenu_Init(LIBBASE, WantBootMenu);
 240
 241     /* Set final boot device */
 242     setBootDevice(LIBBASE);
 243
 244     /* We want to be able to find ourselves in RTF_AFTERDOS */
 245     LIBBASE->bm_Screen = NULL;
 246     AddResource(&LIBBASE->db_Node);
 247
 248     /* Attempt to boot until we succeed */
 249     for (;;)
 250     {
 251         dosboot_BootStrap(LIBBASE);
 252
 253         if (!LIBBASE->bm_Screen)
 254             LIBBASE->bm_Screen = NoBootMediaScreen(LIBBASE);
 255
 256         D(bug("No bootable disk was found.\n"));
 257         D(bug("Please insert a bootable disk in any drive.\n"));
 258         D(bug("Retrying in 3 seconds...\n"));
 259
 260         for (t = 0; t < 150; t += LIBBASE->delayTicks)
 261         {
 262             bootDelay(LIBBASE->delayTicks);
 263
 264             if (LIBBASE->bm_Screen)
 265                 anim_Animate(LIBBASE->bm_Screen, LIBBASE);
 266         }
 267     }
 268
 269     /* We never get here */
 270     return FALSE;
 271 }
 272
 273 ADD2INITLIB(dosboot_Init, 1)