rom/dos/boot.c

   1 /*
   2     Copyright © 1995-2019, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Implements AROS's generic/amiga-like boot sequence.
   6     Lang: english
   7 */
   8
   9 #include <aros/debug.h>
  10 #include <exec/alerts.h>
  11 #include <exec/libraries.h>
  12 #include <exec/devices.h>
  13 #include <exec/execbase.h>
  14 #include <aros/libcall.h>
  15 #include <aros/asmcall.h>
  16 #include <dos/dosextens.h>
  17 #include <dos/cliinit.h>
  18 #include <dos/stdio.h>
  19 #include <utility/tagitem.h>
  20 #include <libraries/expansionbase.h>
  21 #include <proto/exec.h>
  22 #include <proto/dos.h>
  23
  24 #include "dos_intern.h"
  25 #include "../dosboot/bootflags.h"
  26
  27 #ifdef __mc68000
  28 /*
  29  * Load DEVS:system-configuration only on m68k.
  30  * Setup pre-2.0 boot disk colors and mouse cursors (for example)
  31  */
  32 #define USE_SYSTEM_CONFIGURATION
  33
  34 #endif
  35
  36 #ifdef USE_SYSTEM_CONFIGURATION
  37
  38 #include <proto/intuition.h>
  39
  40 static void load_system_configuration(struct DosLibrary *DOSBase)
  41 {
  42     BPTR fh;
  43     ULONG len;
  44     struct Preferences prefs;
  45     struct Library *IntuitionBase;
  46
  47     fh = Open("DEVS:system-configuration", MODE_OLDFILE);
  48     if (!fh)
  49         return;
  50     len = Read(fh, &prefs, sizeof prefs);
  51     Close(fh);
  52     if (len != sizeof prefs)
  53         return;
  54     IntuitionBase = TaggedOpenLibrary(TAGGEDOPEN_INTUITION);
  55     if (IntuitionBase)
  56         SetPrefs(&prefs, len, FALSE);
  57     CloseLibrary(IntuitionBase);
  58 }
  59
  60 #else
  61
  62 #define load_system_configuration(DOSBase) do { } while (0)
  63
  64 #endif
  65
  66 extern void BCPL_cliInit(void);
  67
  68 void __dos_Boot(struct DosLibrary *DOSBase, ULONG BootFlags, UBYTE Flags)
  69 {
  70     BPTR cis = BNULL;
  71
  72     /*  We have been created as a process by DOS, we should now
  73         try and boot the system. */
  74
  75     D(
  76         bug("[DOS] %s: ** starting generic boot sequence\n", __func__);
  77         bug("[DOS] %s: BootFlags 0x%08X Flags 0x%02X\n", __func__, BootFlags, Flags);
  78         bug("[DOS] %s: DOSBase @ 0x%p\n", __func__, DOSBase);
  79       )
  80
  81     /* m68000 uses this to get the default colors and
  82      * cursors for Workbench
  83      */
  84     load_system_configuration(DOSBase);
  85
  86     D(bug("[DOS] %s: system config loaded\n", __func__);)
  87
  88     /*
  89      * If needed, run the display drivers loader.
  90      * In fact the system must have at least one resident driver,
  91      * which will be used for bootmenu etc. However, it we somehow happen
  92      * not to have it, this will be our last chance.
  93      */
  94     if ((BootFlags & (BF_NO_DISPLAY_DRIVERS | BF_NO_COMPOSITION)) != (BF_NO_DISPLAY_DRIVERS | BF_NO_COMPOSITION))
  95     {
  96         /* Check that it exists first... */
  97         BPTR seg;
  98
  99         D(bug("[DOS] %s: initialising displays\n", __func__);)
 100
 101         if ((seg = LoadSeg("C:AROSMonDrvs")) != BNULL)
 102         {
 103             STRPTR args = "";
 104             BPTR oldin, oldout;
 105
 106             /*
 107              * Argument strings MUST contain terminating LF because of ReadItem() bugs.
 108              * Their absence causes ReadArgs() crash.
 109              */
 110             if (BootFlags & BF_NO_COMPOSITION)
 111                 args = "NOCOMPOSITION\n";
 112             else if (BootFlags & BF_NO_DISPLAY_DRIVERS)
 113                 args = "ONLYCOMPOSITION\n";
 114
 115             D(bug("[DOS] %s: Running AROSMonDrvs %s\n", __func__, args);)
 116
 117             /* RunCommand needs a valid Input() handle
 118              * for passing in its arguments.
 119              */
 120             oldin = SelectInput(Open("NIL:", MODE_OLDFILE));
 121             oldout= SelectOutput(Open("NIL:", MODE_NEWFILE));
 122             RunCommand(seg, AROS_STACKSIZE, args, strlen(args));
 123             SelectInput(oldin);
 124             SelectOutput(oldout);
 125
 126             /* We don't care about the return code */
 127             UnLoadSeg(seg);
 128         }
 129     }
 130
 131     D(bug("[DOS] %s: preparing console\n", __func__);)
 132
 133     if (BootFlags & BF_EMERGENCY_CONSOLE) {
 134         D(bug("[DOS] %s:     (emergency console)\n", __func__);)
 135         BootFlags |= BF_NO_STARTUP_SEQUENCE;
 136         cis = Open("ECON:", MODE_OLDFILE);
 137     }
 138
 139     if (cis == BNULL)
 140         cis = Open("CON:////AROS/AUTO/CLOSE/SMART/BOOT", MODE_OLDFILE);
 141
 142     if (cis) {
 143         BPTR cos = OpenFromLock(DupLockFromFH(cis));
 144         BYTE const C[] = "Copyright © 1995-2019, The AROS Development Team.\n"
 145                          "Licensed under the AROS Public License.\n"
 146 #if defined(REPOTYPE)
 147                          "Version " REPOTYPE "" REPOREVISION
 148 #if defined(REPOID)
 149                          " (" REPOID ")"
 150 #endif
 151                          "\n"
 152 #endif
 153                          "built on " ISODATE ".\n";
 154
 155         D(bug("[DOS] %s:  handle @ 0x%p (0x%p)\n", __func__, cis, cos);)
 156
 157         if (cos) {
 158             BPTR cas = BNULL;
 159
 160             if (!(BootFlags & BF_NO_STARTUP_SEQUENCE))
 161                 cas = Open("S:Startup-Sequence", MODE_OLDFILE);
 162
 163             /* Inject the banner */
 164             if (Flags & EBF_SILENTSTART) {
 165                 if (SetVBuf(cos, NULL, BUF_FULL, sizeof(C)) == 0) {
 166                     FPuts(cos, C);
 167                     SetVBuf(cos, NULL, BUF_LINE, -1);
 168                 }
 169             } else {
 170                 FPuts(cos, C);
 171             }
 172
 173             D(bug("[DOS] %s: initialising CLI\n", __func__);)
 174
 175             if (SystemTags(NULL,
 176                            NP_Name, "Initial CLI",
 177                            SYS_Background, FALSE,
 178                            SYS_Asynch, FALSE,
 179                            SYS_Input, cis,
 180                            SYS_Output, cos,
 181                            SYS_ScriptInput, cas,
 182                            TAG_END) == -1) {
 183                 D(bug("[DOS] %s:  .. failed!\n", __func__);)
 184                 Alert(AT_DeadEnd | AN_BootStrap);
 185             }
 186
 187             Close(cis);
 188 #if (1)
 189             /* Do not flush cos (show banner) if we got this far, we don't want to
 190              * see shell window quickly opening and then immediately closing at
 191              * the end of startup-sequence.
 192              *
 193              * There has to be less hacky way..
 194              */
 195             struct FileHandle *fh = ((struct FileHandle*)BADDR(cos));
 196             fh->fh_Flags &= ~0x80000000;
 197 #endif
 198             Close(cos);
 199             /* NOTE: 'cas' will already have been closed by the Shell */
 200         }
 201     } else {
 202         D(bug("[DOS] %s:  .. failed!\n", __func__);)
 203         Alert(AN_NoWindow);
 204     }
 205 }