/* $NetBSD: mkboot.c,v 1.11 2014/10/11 05:33:25 dholland Exp $ */ /* * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * @(#)mkboot.c 8.1 (Berkeley) 7/15/93 */ #if HAVE_NBTOOL_CONFIG_H #include "nbtool_config.h" #endif #include #ifndef lint __COPYRIGHT( "@(#) Copyright (c) 1990, 1993\n\ The Regents of the University of California. All rights reserved.\n"); #endif /* not lint */ #ifndef lint #ifdef notdef static char sccsid[] = "@(#)mkboot.c 7.2 (Berkeley) 12/16/90"; #endif __RCSID("$NetBSD: mkboot.c,v 1.11 2014/10/11 05:33:25 dholland Exp $"); #endif /* not lint */ #include #include #include #ifndef HAVE_NBTOOL_CONFIG_H #include #endif #include #include #include #include #include #include #include "volhdr.h" #define LIF_NUMDIR 8 #define LIF_VOLSTART 0 #define LIF_VOLSIZE sizeof(struct lifvol) #define LIF_DIRSTART 512 #define LIF_DIRSIZE (LIF_NUMDIR * sizeof(struct lifdir)) #define LIF_FILESTART 8192 #define btolifs(b) (((b) + (SECTSIZE - 1)) / SECTSIZE) #define lifstob(s) ((s) * SECTSIZE) int lpflag; int loadpoint; struct load ld; struct lifvol lifv; struct lifdir lifd[LIF_NUMDIR]; int main(int, char **); void bcddate(char *, char *); char *lifname(char *); int putfile(char *, int); void usage(void); /* * Old Format: * sector 0: LIF volume header (40 bytes) * sector 1: * sector 2: LIF directory (8 x 32 == 256 bytes) * sector 3-: LIF file 0, LIF file 1, etc. * where sectors are 256 bytes. * * New Format: * sector 0: LIF volume header (40 bytes) * sector 1: * sector 2: LIF directory (8 x 32 == 256 bytes) * sector 3: * sector 4-31: disklabel (~300 bytes right now) * sector 32-: LIF file 0, LIF file 1, etc. */ int main(int argc, char **argv) { char *n1, *n2, *n3; int n, to; int count; --argc; ++argv; if (argc == 0) usage(); if (!strcmp(argv[0], "-l")) { argv++; argc--; if (argc == 0) usage(); sscanf(argv[0], "0x%x", &loadpoint); lpflag++; argv++; argc--; } if (!lpflag || argc == 0) usage(); n1 = argv[0]; argv++; argc--; if (argc == 0) usage(); if (argc > 1) { n2 = argv[0]; argv++; argc--; if (argc > 1) { n3 = argv[0]; argv++; argc--; } else n3 = NULL; } else n2 = n3 = NULL; to = open(argv[0], O_WRONLY | O_TRUNC | O_CREAT, 0644); if (to < 0) { perror("open"); exit(1); } /* clear possibly unused directory entries */ strncpy(lifd[1].dir_name, " ", 10); lifd[1].dir_type = htobe16(-1); lifd[1].dir_addr = htobe32(0); lifd[1].dir_length = htobe32(0); lifd[1].dir_flag = htobe16(0xFF); lifd[1].dir_exec = htobe32(0); lifd[7] = lifd[6] = lifd[5] = lifd[4] = lifd[3] = lifd[2] = lifd[1]; /* record volume info */ lifv.vol_id = htobe16(VOL_ID); strncpy(lifv.vol_label, "BOOT43", 6); lifv.vol_addr = htobe32(btolifs(LIF_DIRSTART)); lifv.vol_oct = htobe16(VOL_OCT); lifv.vol_dirsize = htobe32(btolifs(LIF_DIRSIZE)); lifv.vol_version = htobe16(1); /* output bootfile one */ lseek(to, LIF_FILESTART, SEEK_SET); count = putfile(n1, to); n = btolifs(count); strcpy(lifd[0].dir_name, lifname(n1)); lifd[0].dir_type = htobe16(DIR_TYPE); lifd[0].dir_addr = htobe32(btolifs(LIF_FILESTART)); lifd[0].dir_length = htobe32(n); bcddate(n1, lifd[0].dir_toc); lifd[0].dir_flag = htobe16(DIR_FLAG); lifd[0].dir_exec = htobe32(loadpoint); lifv.vol_length = htobe32(be32toh(lifd[0].dir_addr) + be32toh(lifd[0].dir_length)); /* if there is an optional second boot program, output it */ if (n2) { lseek(to, LIF_FILESTART+lifstob(n), SEEK_SET); count = putfile(n2, to); n = btolifs(count); strcpy(lifd[1].dir_name, lifname(n2)); lifd[1].dir_type = htobe16(DIR_TYPE); lifd[1].dir_addr = htobe32(lifv.vol_length); lifd[1].dir_length = htobe32(n); bcddate(n2, lifd[1].dir_toc); lifd[1].dir_flag = htobe16(DIR_FLAG); lifd[1].dir_exec = htobe32(loadpoint); lifv.vol_length = htobe32(be32toh(lifd[1].dir_addr) + be32toh(lifd[1].dir_length)); } /* ditto for three */ if (n3) { lseek(to, LIF_FILESTART+lifstob(lifd[0].dir_length+n), SEEK_SET); count = putfile(n3, to); n = btolifs(count); strcpy(lifd[2].dir_name, lifname(n3)); lifd[2].dir_type = htobe16(DIR_TYPE); lifd[2].dir_addr = htobe32(lifv.vol_length); lifd[2].dir_length = htobe32(n); bcddate(n3, lifd[2].dir_toc); lifd[2].dir_flag = htobe16(DIR_FLAG); lifd[2].dir_exec = htobe32(loadpoint); lifv.vol_length = htobe32(be32toh(lifd[2].dir_addr) + be32toh(lifd[2].dir_length)); } /* output volume/directory header info */ lseek(to, LIF_VOLSTART, SEEK_SET); write(to, &lifv, LIF_VOLSIZE); lseek(to, LIF_DIRSTART, SEEK_SET); write(to, lifd, LIF_DIRSIZE); exit(0); } int putfile(char *from, int to) { int fd; struct stat statb; int nr; void *bp; if ((fd = open(from, 0)) < 0) { printf("error: unable to open file %s\n", from); exit(1); } fstat(fd, &statb); ld.address = htobe32(loadpoint); ld.count = htobe32(statb.st_size); bp = malloc(statb.st_size); if ((nr = read(fd, bp, statb.st_size)) < 0) { printf("error: reading from file %s\n", from); exit(1); } (void)close(fd); write(to, &ld, sizeof(ld)); write(to, bp, statb.st_size); free(bp); return (statb.st_size + sizeof(ld)); } void usage(void) { fprintf(stderr, "usage: mkboot -l loadpoint prog1 [ prog2 ] outfile\n"); exit(1); } char * lifname(char *str) { static char lname[10] = "SYS_XXXXX"; char *cp; int i; if ((cp = strrchr(str, '/')) != NULL) str = ++cp; for (i = 4; i < 9; i++) { if (islower(*str)) lname[i] = toupper(*str); else if (isalnum(*str) || *str == '_') lname[i] = *str; else break; str++; } for ( ; i < 10; i++) lname[i] = '\0'; return(lname); } void bcddate(char *name, char *toc) { struct stat statb; struct tm *tm; stat(name, &statb); tm = localtime(&statb.st_ctime); *toc = ((tm->tm_mon+1) / 10) << 4; *toc++ |= (tm->tm_mon+1) % 10; *toc = (tm->tm_mday / 10) << 4; *toc++ |= tm->tm_mday % 10; *toc = (tm->tm_year / 10) << 4; *toc++ |= tm->tm_year % 10; *toc = (tm->tm_hour / 10) << 4; *toc++ |= tm->tm_hour % 10; *toc = (tm->tm_min / 10) << 4; *toc++ |= tm->tm_min % 10; *toc = (tm->tm_sec / 10) << 4; *toc |= tm->tm_sec % 10; }