Annotation of sys/arch/hppa64/stand/mkboot/mkboot.c, Revision 1.1
1.1 ! nbrk 1: /* $OpenBSD: mkboot.c,v 1.1 2005/04/01 10:40:49 mickey Exp $ */
! 2:
! 3: /*
! 4: * Copyright (c) 1990, 1993
! 5: * The Regents of the University of California. All rights reserved.
! 6: *
! 7: * Redistribution and use in source and binary forms, with or without
! 8: * modification, are permitted provided that the following conditions
! 9: * are met:
! 10: * 1. Redistributions of source code must retain the above copyright
! 11: * notice, this list of conditions and the following disclaimer.
! 12: * 2. Redistributions in binary form must reproduce the above copyright
! 13: * notice, this list of conditions and the following disclaimer in the
! 14: * documentation and/or other materials provided with the distribution.
! 15: * 3. Neither the name of the University nor the names of its contributors
! 16: * may be used to endorse or promote products derived from this software
! 17: * without specific prior written permission.
! 18: *
! 19: * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
! 20: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
! 21: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
! 22: * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
! 23: * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
! 24: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
! 25: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
! 26: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
! 27: * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
! 28: * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
! 29: * SUCH DAMAGE.
! 30: *
! 31: * @(#)mkboot.c 8.1 (Berkeley) 7/15/93
! 32: */
! 33:
! 34: #if 0
! 35: #ifndef lint
! 36: static char copyright[] =
! 37: "@(#) Copyright (c) 1990, 1993\n\
! 38: The Regents of the University of California. All rights reserved.\n";
! 39: #endif /* not lint */
! 40:
! 41: #ifndef lint
! 42: static char rcsid[] = "$OpenBSD: mkboot.c,v 1.1 2005/04/01 10:40:49 mickey Exp $";
! 43: #endif /* not lint */
! 44: #endif
! 45:
! 46: #include <sys/param.h>
! 47: #include <sys/file.h>
! 48: #include <sys/stat.h>
! 49: #include <string.h>
! 50: #include <stdlib.h>
! 51: #include <unistd.h>
! 52: #include <time.h>
! 53: #ifdef __OpenBSD__
! 54: #include <err.h>
! 55: #endif
! 56:
! 57: #include <sys/exec_aout.h>
! 58: #include <sys/exec_elf.h>
! 59:
! 60: #ifndef hppa
! 61: /* hack for cross compile XXX */
! 62: #include "../../include/disklabel.h"
! 63: #else
! 64: #include <sys/disklabel.h>
! 65: #endif
! 66:
! 67: #include <stdio.h>
! 68: #include <ctype.h>
! 69:
! 70: int putfile(char *, int);
! 71: void __dead usage(void);
! 72: void bcddate(char *, char *);
! 73: char *lifname(char *);
! 74: int cksum(int, int *, int);
! 75:
! 76: char *to_file;
! 77: int loadpoint, verbose;
! 78: u_long entry;
! 79: #ifndef __OpenBSD__
! 80: char *__progname = "mkboot";
! 81: #endif
! 82:
! 83: /*
! 84: * Old Format:
! 85: * sector 0: LIF volume header (40 bytes)
! 86: * sector 1: <unused>
! 87: * sector 2: LIF directory (8 x 32 == 256 bytes)
! 88: * sector 3-: LIF file 0, LIF file 1, etc.
! 89: * where sectors are 256 bytes.
! 90: *
! 91: * New Format:
! 92: * sector 0: LIF volume header (40 bytes)
! 93: * sector 1: <unused>
! 94: * sector 2: LIF directory (8 x 32 == 256 bytes)
! 95: * sector 3: <unused>
! 96: * sector 4-31: disklabel (~300 bytes right now)
! 97: * sector 32-: LIF file 0, LIF file 1, etc.
! 98: */
! 99: int
! 100: main(int argc, char **argv)
! 101: {
! 102: int to;
! 103: register int n, pos, c;
! 104: char buf[LIF_FILESTART];
! 105: struct lifvol *lifv = (struct lifvol *)buf;
! 106: struct lifdir *lifd = (struct lifdir *)(buf + LIF_DIRSTART);
! 107:
! 108: while ((c = getopt(argc, argv, "vl:")) != -1) {
! 109: switch (c) {
! 110: case 'v':
! 111: verbose++;
! 112: break;
! 113: case 'l':
! 114: sscanf(optarg, "0x%x", &loadpoint);
! 115: break;
! 116: default:
! 117: usage();
! 118: }
! 119: }
! 120: if (argc - optind < 2)
! 121: usage();
! 122: else if (argc - optind > 8)
! 123: errx(1, "too many boot programs (max 8 supported)");
! 124:
! 125: to_file = argv[--argc];
! 126: if ((to = open(to_file, O_RDWR | O_TRUNC | O_CREAT, 0644)) < 0)
! 127: err(1, "%s: open", to_file);
! 128:
! 129: bzero(buf, sizeof(buf));
! 130: /* clear possibly unused directory entries */
! 131: memset(lifd[1].dir_name, ' ', sizeof lifd[1].dir_name);
! 132: lifd[1].dir_type = -1;
! 133: lifd[1].dir_addr = 0;
! 134: lifd[1].dir_length = 0;
! 135: lifd[1].dir_flag = 0xFF;
! 136: lifd[1].dir_implement = 0;
! 137: lifd[7] = lifd[6] = lifd[5] = lifd[4] = lifd[3] = lifd[2] = lifd[1];
! 138:
! 139: /* record volume info */
! 140: lifv->vol_id = htobe16(LIF_VOL_ID);
! 141: strncpy(lifv->vol_label, "BOOT44", 6);
! 142: lifv->vol_addr = htobe32(btolifs(LIF_DIRSTART));
! 143: lifv->vol_oct = htobe16(LIF_VOL_OCT);
! 144: lifv->vol_dirsize = htobe32(btolifs(LIF_DIRSIZE));
! 145: lifv->vol_version = htobe16(1);
! 146: lifv->vol_lastvol = lifv->vol_number = htobe16(1);
! 147: lifv->vol_length = LIF_FILESTART;
! 148: bcddate(to_file, lifv->vol_toc);
! 149: lifv->ipl_addr = htobe32(LIF_FILESTART);
! 150: lifv->ipl_size = 0;
! 151: lifv->ipl_entry = 0;
! 152:
! 153: argv += optind;
! 154: argc -= optind;
! 155: optind = 0;
! 156: for (pos = LIF_FILESTART; optind < argc; optind++) {
! 157:
! 158: /* output bootfile */
! 159: lseek(to, pos, 0);
! 160: lifd[optind].dir_addr = htobe32(btolifs(pos));
! 161: n = btolifs(putfile(argv[optind], to));
! 162: if (lifv->ipl_entry == 0) {
! 163: lifv->ipl_entry = htobe32(loadpoint + entry);
! 164: lifv->ipl_size = htobe32(lifstob(n));
! 165: lifd[optind].dir_type = htobe16(LIF_DIR_ISL);
! 166: lifd[optind].dir_implement = 0;
! 167: } else {
! 168: lifd[optind].dir_type = htobe16(LIF_DIR_TYPE);
! 169: lifd[1].dir_implement = htobe32(loadpoint + entry);
! 170: }
! 171:
! 172: strlcpy(lifd[optind].dir_name, lifname(argv[optind]),
! 173: sizeof lifd[optind].dir_name);
! 174: lifd[optind].dir_length = htobe32(n);
! 175: bcddate(argv[optind], lifd[optind].dir_toc);
! 176: lifd[optind].dir_flag = htobe16(LIF_DIR_FLAG);
! 177:
! 178: lifv->vol_length += n;
! 179: pos += lifstob(n);
! 180: }
! 181:
! 182: lifv->vol_length = htobe32(lifv->vol_length);
! 183:
! 184: /* output volume/directory header info */
! 185: lseek(to, LIF_VOLSTART, 0);
! 186: if (write(to, buf, sizeof(buf)) != sizeof(buf))
! 187: err(1, "%s: write LIF volume", to_file);
! 188: lseek(to, 0, SEEK_END);
! 189:
! 190: if (close(to) < 0)
! 191: err(1, "%s", to_file);
! 192:
! 193: return(0);
! 194: }
! 195:
! 196: int
! 197: putfile(from_file, to)
! 198: char *from_file;
! 199: int to;
! 200: {
! 201: struct exec ex;
! 202: register int n, total;
! 203: char buf[2048];
! 204: int from, check_sum = 0;
! 205: struct lif_load load;
! 206:
! 207: if ((from = open(from_file, O_RDONLY)) < 0)
! 208: err(1, "%s", from_file);
! 209:
! 210: n = read(from, &ex, sizeof(ex));
! 211: if (n != sizeof(ex))
! 212: err(1, "%s: reading file header", from_file);
! 213:
! 214: entry = ex.a_entry;
! 215: if (N_GETMAGIC(ex) == OMAGIC || N_GETMAGIC(ex) == NMAGIC)
! 216: entry += sizeof(ex);
! 217: else if (IS_ELF(*(Elf64_Ehdr *)&ex)) {
! 218: Elf64_Ehdr elf_header;
! 219: Elf64_Phdr *elf_segments;
! 220: int i,header_count, memory_needed, elf_load_image_segment;
! 221:
! 222: (void) lseek(from, 0, SEEK_SET);
! 223: n = read(from, &elf_header, sizeof (elf_header));
! 224: if (n != sizeof (elf_header))
! 225: err(1, "%s: reading ELF header", from_file);
! 226: header_count = betoh32(elf_header.e_phnum);
! 227: memory_needed = header_count * sizeof (*elf_segments);
! 228: elf_segments = malloc(memory_needed);
! 229: if (elf_segments == NULL)
! 230: err(1, "malloc");
! 231: (void) lseek(from, betoh32(elf_header.e_phoff), SEEK_SET);
! 232: n = read(from, elf_segments, memory_needed);
! 233: if (n != memory_needed)
! 234: err(1, "%s: reading ELF segments", from_file);
! 235: elf_load_image_segment = -1;
! 236: for (i = 0; i < header_count; i++) {
! 237: if (elf_segments[i].p_filesz &&
! 238: elf_segments[i].p_type == htobe32(PT_LOAD) &&
! 239: elf_segments[i].p_flags & htobe32(PF_X)) {
! 240: if (elf_load_image_segment != -1)
! 241: warnx("%s: more than one ELF program segment", from_file);
! 242: else
! 243: elf_load_image_segment = i;
! 244: }
! 245: }
! 246: if (elf_load_image_segment == -1)
! 247: errx(1, "%s: no suitable ELF program segment", from_file);
! 248: entry = betoh32(elf_header.e_entry) +
! 249: betoh32(elf_segments[elf_load_image_segment].p_offset) -
! 250: betoh32(elf_segments[elf_load_image_segment].p_vaddr);
! 251: } else if (*(u_char *)&ex == 0x1f && ((u_char *)&ex)[1] == 0x8b) {
! 252: entry = 0;
! 253: } else
! 254: errx(1, "%s: bad magic number", from_file);
! 255:
! 256: entry += sizeof(load);
! 257: lseek(to, sizeof(load), SEEK_CUR);
! 258: total = 0;
! 259: n = sizeof(buf) - sizeof(load);
! 260: /* copy the whole file */
! 261: for (lseek(from, 0, 0); ; n = sizeof(buf)) {
! 262: bzero(buf, sizeof(buf));
! 263: if ((n = read(from, buf, n)) < 0)
! 264: err(1, "%s", from_file);
! 265: else if (n == 0)
! 266: break;
! 267:
! 268: if (write(to, buf, n) != n)
! 269: err(1, "%s", to_file);
! 270:
! 271: total += n;
! 272: check_sum = cksum(check_sum, (int *)buf, n);
! 273: }
! 274:
! 275: /* load header */
! 276: load.address = htobe32(loadpoint + sizeof(load));
! 277: load.count = htobe32(4 + total);
! 278: check_sum = cksum(check_sum, (int *)&load, sizeof(load));
! 279:
! 280: if (verbose)
! 281: warnx("wrote %d bytes of file \'%s\'", total, from_file);
! 282:
! 283: total += sizeof(load);
! 284: /* insert the header */
! 285: lseek(to, -total, SEEK_CUR);
! 286: if (write(to, &load, sizeof(load)) != sizeof(load))
! 287: err(1, "%s", to_file);
! 288: lseek(to, total - sizeof(load), SEEK_CUR);
! 289:
! 290: bzero(buf, sizeof(buf));
! 291: /* pad to int */
! 292: n = sizeof(int) - total % sizeof(int);
! 293: if (total % sizeof(int)) {
! 294: if (write(to, buf, n) != n)
! 295: err(1, "%s", to_file);
! 296: else
! 297: total += n;
! 298: }
! 299:
! 300: /* pad to the blocksize */
! 301: n = sizeof(buf) - total % sizeof(buf);
! 302:
! 303: if (n < sizeof(int)) {
! 304: n += sizeof(buf);
! 305: total += sizeof(buf);
! 306: } else
! 307: total += n;
! 308:
! 309: /* TODO should pad here to the 65k boundary for tape boot */
! 310:
! 311: if (verbose)
! 312: warnx("checksum is 0x%08x", -check_sum);
! 313:
! 314: check_sum = htobe32(-check_sum);
! 315: if (write(to, &check_sum, sizeof(int)) != sizeof(int))
! 316: err(1, "%s", to_file);
! 317:
! 318: n -= sizeof(int);
! 319:
! 320: if (write(to, buf, n) != n)
! 321: err(1, "%s", to_file);
! 322:
! 323: if (close(from) < 0 )
! 324: err(1, "%s", from_file);
! 325:
! 326: return total;
! 327: }
! 328:
! 329: int
! 330: cksum(ck, p, size)
! 331: int ck;
! 332: int *p;
! 333: int size;
! 334: {
! 335: /* we assume size is int-aligned */
! 336: for (size = (size + sizeof(int) - 1) / sizeof(int); size--; p++ )
! 337: ck += betoh32(*p);
! 338:
! 339: return ck;
! 340: }
! 341:
! 342: void __dead
! 343: usage()
! 344: {
! 345: extern char *__progname;
! 346: fprintf(stderr,
! 347: "usage: %s [-v] [-l loadpoint] prog1 {progN} outfile\n",
! 348: __progname);
! 349: exit(1);
! 350: }
! 351:
! 352: char *
! 353: lifname(str)
! 354: char *str;
! 355: {
! 356: static char lname[10] = "XXXXXXXXXX";
! 357: register int i;
! 358:
! 359: for (i = 0; i < 9; i++) {
! 360: if (islower(*str))
! 361: lname[i] = toupper(*str);
! 362: else if (isalnum(*str) || *str == '_')
! 363: lname[i] = *str;
! 364: else
! 365: break;
! 366: str++;
! 367: }
! 368: for ( ; i < 10; i++)
! 369: lname[i] = ' ';
! 370: return(lname);
! 371: }
! 372:
! 373:
! 374: void
! 375: bcddate(file, toc)
! 376: char *file;
! 377: char *toc;
! 378: {
! 379: struct stat statb;
! 380: #ifndef __OpenBSD__
! 381: struct tm {
! 382: int tm_sec; /* second (0-61, allows for leap seconds) */
! 383: int tm_min; /* minute (0-59) */
! 384: int tm_hour; /* hour (0-23) */
! 385: int tm_mday; /* day of the month (1-31) */
! 386: int tm_mon; /* month (0-11) */
! 387: int tm_year; /* years since 1900 */
! 388: int tm_wday; /* day of the week (0-6) */
! 389: int tm_yday; /* day of the year (0-365) */
! 390: int tm_isdst; /* non-0 if daylight saving time is in effect */
! 391: } *tm;
! 392: #else
! 393: struct tm *tm;
! 394: #endif
! 395:
! 396: stat(file, &statb);
! 397: tm = localtime(&statb.st_ctime);
! 398: *toc = (tm->tm_year / 10) << 4;
! 399: *toc++ |= tm->tm_year % 10;
! 400: *toc = ((tm->tm_mon+1) / 10) << 4;
! 401: *toc++ |= (tm->tm_mon+1) % 10;
! 402: *toc = (tm->tm_mday / 10) << 4;
! 403: *toc++ |= tm->tm_mday % 10;
! 404: *toc = (tm->tm_hour / 10) << 4;
! 405: *toc++ |= tm->tm_hour % 10;
! 406: *toc = (tm->tm_min / 10) << 4;
! 407: *toc++ |= tm->tm_min % 10;
! 408: *toc = (tm->tm_sec / 10) << 4;
! 409: *toc |= tm->tm_sec % 10;
! 410: }
! 411:
! 412: #ifndef __OpenBSD__
! 413: int
! 414: err(ex, str)
! 415: int ex;
! 416: char *str;
! 417: {
! 418: perror(str);
! 419: exit(ex);
! 420: }
! 421:
! 422: int
! 423: errx(ex, str)
! 424: int ex;
! 425: char *str;
! 426: {
! 427: perror(str);
! 428: exit(ex);
! 429: }
! 430: #endif
CVSweb