sys/arch/macppc/stand/ofwboot/boot.c

   1 /*      $NetBSD: boot.c,v 1.22 2008/04/28 20:23:27 martin Exp $ */
   2
   3 /*-
   4  * Copyright (c) 1997 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * This code is derived from software contributed to The NetBSD Foundation
   8  * by Jason R. Thorpe.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted provided that the following conditions
  12  * are met:
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  29  * POSSIBILITY OF SUCH DAMAGE.
  30  */
  31
  32 /*
  33  * Copyright (C) 1995, 1996 Wolfgang Solfrank.
  34  * Copyright (C) 1995, 1996 TooLs GmbH.
  35  * All rights reserved.
  36  *
  37  * ELF support derived from NetBSD/alpha's boot loader, written
  38  * by Christopher G. Demetriou.
  39  *
  40  * Redistribution and use in source and binary forms, with or without
  41  * modification, are permitted provided that the following conditions
  42  * are met:
  43  * 1. Redistributions of source code must retain the above copyright
  44  *    notice, this list of conditions and the following disclaimer.
  45  * 2. Redistributions in binary form must reproduce the above copyright
  46  *    notice, this list of conditions and the following disclaimer in the
  47  *    documentation and/or other materials provided with the distribution.
  48  * 3. All advertising materials mentioning features or use of this software
  49  *    must display the following acknowledgement:
  50  *      This product includes software developed by TooLs GmbH.
  51  * 4. The name of TooLs GmbH may not be used to endorse or promote products
  52  *    derived from this software without specific prior written permission.
  53  *
  54  * THIS SOFTWARE IS PROVIDED BY TOOLS GMBH ``AS IS'' AND ANY EXPRESS OR
  55  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  56  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  57  * IN NO EVENT SHALL TOOLS GMBH BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  58  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  59  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
  60  * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  61  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  62  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
  63  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  64  */
  65
  66 /*
  67  * First try for the boot code
  68  *
  69  * Input syntax is:
  70  *      [promdev[{:|,}partition]]/[filename] [flags]
  71  */
  72
  73 #include "boot.h"
  74
  75 #include <sys/param.h>
  76 #include <sys/boot_flag.h>
  77 #include <sys/disklabel.h>
  78
  79 #include <lib/libsa/stand.h>
  80 #include <lib/libsa/loadfile.h>
  81 #include <lib/libkern/libkern.h>
  82
  83 #include "ofdev.h"
  84 #include "openfirm.h"
  85
  86 extern void __syncicache(void *, size_t); /* in libkern */
  87
  88
  89 #ifdef DEBUG
  90 # define DPRINTF printf
  91 #else
  92 # define DPRINTF while (0) printf
  93 #endif
  94
  95 char bootdev[MAXBOOTPATHLEN];
  96 char bootfile[MAXBOOTPATHLEN];
  97 int boothowto;
  98 bool floppyboot;
  99
 100 static int ofw_version = 0;
 101 static const char *kernels[] = { "/netbsd", "/netbsd.gz", "/netbsd.macppc", NULL };
 102
 103 static void
 104 prom2boot(char *dev)
 105 {
 106         char *cp;
 107
 108         cp = dev + strlen(dev) - 1;
 109         for (; *cp; cp--) {
 110                 if (*cp == ':') {
 111                         if (ofw_version < 3) {
 112                                 /* sd@0:0 -> sd@0 */
 113                                 *cp = 0;
 114                                 break;
 115                         } else {
 116                                 /* disk@0:5,boot -> disk@0:0 */
 117                                 strcpy(cp, ":0");
 118                                 break;
 119                         }
 120                 }
 121         }
 122 }
 123
 124 static void
 125 parseargs(char *str, int *howtop)
 126 {
 127         char *cp;
 128
 129         /* Allow user to drop back to the PROM. */
 130         if (strcmp(str, "exit") == 0)
 131                 OF_exit();
 132
 133         *howtop = 0;
 134
 135         cp = str;
 136         if (*cp == '-')
 137                 goto found;
 138         for (cp = str; *cp; cp++)
 139                 if (*cp == ' ')
 140                         goto found;
 141         return;
 142
 143 found:
 144         *cp++ = 0;
 145         while (*cp)
 146                 BOOT_FLAG(*cp++, *howtop);
 147 }
 148
 149 static bool
 150 is_floppyboot(const char *path, const char *defaultdev)
 151 {
 152         char dev[MAXBOOTPATHLEN];
 153         char nam[16];
 154         int handle, rv;
 155
 156         if (parsefilepath(path, dev, NULL, NULL)) {
 157                 if (dev[0] == '\0' && defaultdev != NULL)
 158                         strlcpy(dev, defaultdev, sizeof(dev));
 159
 160                 /* check properties */
 161                 handle = OF_finddevice(dev);
 162                 if (handle != -1) {
 163                         rv = OF_getprop(handle, "name", nam, sizeof(nam));
 164                         if (rv >= 0 &&
 165                             (strcmp(nam, "swim3") == 0 ||
 166                              strcmp(nam, "floppy") == 0))
 167                                 return true;
 168                 }
 169
 170                 /* also check devalias */
 171                 if (strcmp(dev, "fd") == 0)
 172                         return true;
 173         }
 174
 175         return false;
 176 }
 177
 178 static void
 179 chain(boot_entry_t entry, char *args, void *ssym, void *esym)
 180 {
 181         extern char end[];
 182         int l;
 183
 184         freeall();
 185
 186         /*
 187          * Stash pointer to end of symbol table after the argument
 188          * strings.
 189          */
 190         l = strlen(args) + 1;
 191         memcpy(args + l, &ssym, sizeof(ssym));
 192         l += sizeof(ssym);
 193         memcpy(args + l, &esym, sizeof(esym));
 194         l += sizeof(esym);
 195         l += sizeof(int);       /* XXX */
 196
 197         OF_chain((void *) RELOC, end - (char *) RELOC, entry, args, l);
 198         panic("chain");
 199 }
 200
 201 __dead void
 202 _rtt(void)
 203 {
 204
 205         OF_exit();
 206 }
 207
 208 void
 209 main(void)
 210 {
 211         extern char bootprog_name[], bootprog_rev[],
 212                     bootprog_maker[], bootprog_date[];
 213         int chosen, options, openprom;
 214         char bootline[512];             /* Should check size? */
 215         char *cp;
 216         u_long marks[MARK_MAX];
 217         u_int32_t entry;
 218         void *ssym, *esym;
 219
 220         printf("\n");
 221         printf(">> %s, Revision %s\n", bootprog_name, bootprog_rev);
 222         printf(">> (%s, %s)\n", bootprog_maker, bootprog_date);
 223
 224         /*
 225          * Figure out what version of Open Firmware...
 226          */
 227         if ((openprom = OF_finddevice("/openprom")) != -1) {
 228                 char model[32];
 229
 230                 memset(model, 0, sizeof model);
 231                 OF_getprop(openprom, "model", model, sizeof model);
 232                 for (cp = model; *cp; cp++)
 233                         if (*cp >= '0' && *cp <= '9') {
 234                                 ofw_version = *cp - '0';
 235                                 break;
 236                         }
 237                 DPRINTF(">> Open Firmware version %d.x\n", ofw_version);
 238         }
 239
 240         /*
 241          * Get the boot arguments from Openfirmware
 242          */
 243         if ((chosen = OF_finddevice("/chosen")) == -1 ||
 244             OF_getprop(chosen, "bootpath", bootdev, sizeof bootdev) < 0 ||
 245             OF_getprop(chosen, "bootargs", bootline, sizeof bootline) < 0) {
 246                 printf("Invalid Openfirmware environment\n");
 247                 OF_exit();
 248         }
 249
 250         /*
 251          * Some versions of Openfirmware sets bootpath to "".
 252          * We use boot-device instead if it occurs.
 253          */
 254         if (bootdev[0] == 0) {
 255                 printf("Cannot use bootpath\n");
 256                 if ((options = OF_finddevice("/options")) == -1 ||
 257                     OF_getprop(options, "boot-device", bootdev,
 258                                sizeof bootdev) < 0) {
 259                         printf("Invalid Openfirmware environment\n");
 260                         OF_exit();
 261                 }
 262                 printf("Using boot-device instead\n");
 263         }
 264
 265         prom2boot(bootdev);
 266         parseargs(bootline, &boothowto);
 267         DPRINTF("bootline=%s\n", bootline);
 268
 269         for (;;) {
 270                 int i, loadflag;
 271
 272                 if (boothowto & RB_ASKNAME) {
 273                         printf("Boot: ");
 274                         gets(bootline);
 275                         parseargs(bootline, &boothowto);
 276                 }
 277
 278                 if (bootline[0]) {
 279                         kernels[0] = bootline;
 280                         kernels[1] = NULL;
 281                 }
 282
 283                 for (i = 0; kernels[i]; i++) {
 284                         floppyboot = is_floppyboot(kernels[i], bootdev);
 285
 286                         DPRINTF("Trying %s%s\n", kernels[i],
 287                             floppyboot ? " (floppyboot)" : "");
 288
 289                         loadflag = LOAD_KERNEL;
 290                         if (floppyboot)
 291                                 loadflag &= ~LOAD_NOTE;
 292
 293                         marks[MARK_START] = 0;
 294                         if (loadfile(kernels[i], marks, loadflag) >= 0)
 295                                 goto loaded;
 296                 }
 297                 boothowto |= RB_ASKNAME;
 298         }
 299 loaded:
 300
 301 #ifdef  __notyet__
 302         OF_setprop(chosen, "bootpath", opened_name, strlen(opened_name) + 1);
 303         cp = bootline;
 304 #else
 305         strcpy(bootline, opened_name);
 306         cp = bootline + strlen(bootline);
 307         *cp++ = ' ';
 308 #endif
 309         *cp = '-';
 310         if (boothowto & RB_ASKNAME)
 311                 *++cp = 'a';
 312         if (boothowto & RB_USERCONF)
 313                 *++cp = 'c';
 314         if (boothowto & RB_SINGLE)
 315                 *++cp = 's';
 316         if (boothowto & RB_KDB)
 317                 *++cp = 'd';
 318         if (*cp == '-')
 319 #ifdef  __notyet__
 320                 *cp = 0;
 321 #else
 322                 *--cp = 0;
 323 #endif
 324         else
 325                 *++cp = 0;
 326 #ifdef  __notyet__
 327         OF_setprop(chosen, "bootargs", bootline, strlen(bootline) + 1);
 328 #endif
 329
 330         entry = marks[MARK_ENTRY];
 331         ssym = (void *)marks[MARK_SYM];
 332         esym = (void *)marks[MARK_END];
 333
 334         printf(" start=0x%x\n", entry);
 335         __syncicache((void *) entry, (u_int) ssym - (u_int) entry);
 336         chain((boot_entry_t) entry, bootline, ssym, esym);
 337
 338         OF_exit();
 339 }
 340
 341 #ifdef HAVE_CHANGEDISK_HOOK
 342 void
 343 changedisk_hook(struct open_file *of)
 344 {
 345         struct of_dev *op = of->f_devdata;
 346         int c;
 347
 348         OF_call_method("eject", op->handle, 0, 0);
 349
 350         c = getchar();
 351         if (c == 'q') {
 352                 printf("quit\n");
 353                 OF_exit();
 354         }
 355
 356         OF_call_method("close", op->handle, 0, 0);
 357         OF_call_method("open", op->handle, 0, 0);
 358 }
 359 #endif