/* $OpenBSD: elf2olf.c,v 1.2 1996/11/06 21:34:00 etheisen Exp $ */ /* * Copyright (c) 1996 Erik Theisen. 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. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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. */ #ifndef lint static char copyright[] = "@(#) Copyright (c) 1996 Erik Theisen. All rights reserved.\n"; #endif /* not lint */ #ifndef lint static char rcsid[] = "@(#) $Id: elf2olf.c,v 1.2 1996/11/06 21:34:00 etheisen Exp $"; #endif #include #include #include #include #include #include #include #include #include #include #include int retval = 0; int olf2elf; char *progname; int verbose; int opsys = OS_ID; char *os_namev[] = ONAMEV; /* Handle endianess */ #define word(x,y)((y == ELFDATA2LSB) ? ntohl(htonl(x)) : ntohl(x)) #define half(x,y)((y == ELFDATA2LSB) ? ntohs(htons(x)) : ntohs(x)) int main(int argc, char*argv[]) { extern char *optarg; extern int optind; register int ch, i, okay; char *opstring; register int fd; struct stat st; Elf32_Ehdr ehdr; Elf32_Shdr shdr; int e; if (progname = strrchr(*argv, '/')) ++progname; else progname = *argv; if (strstr(progname, "olf2elf")) olf2elf = 1; /* * Process cmdline */ opstring = olf2elf ? "v" : "vo:"; while((ch = getopt(argc, argv, opstring)) != EOF) switch(ch) { case 'v': verbose = 1; break; case 'o': for (i = 1; i <= OOS_NUM; i++) { if (os_namev[i] == NULL) { fprintf(stderr, "%s: illegal -o argument -- %s\n", progname, optarg); usage(); } else if (strcmp(optarg, os_namev[i]) == 0) { opsys = i; break; } } break; default: usage(); } argc -= optind; argv += optind; if (argc == 0) usage(); /* * Process file(s) */ do { okay = 0; if ((fd = open(*argv, O_RDWR | O_EXLOCK, 0)) > 0 && lseek(fd, (off_t)0, SEEK_SET) == 0 && fstat(fd, &st) == 0) { /* Make sure this is a 32bit ELF or OLF version 1 file */ if (read(fd, &ehdr, sizeof(Elf32_Ehdr)) == sizeof(Elf32_Ehdr)&& (IS_ELF(ehdr) || IS_OLF(ehdr)) && ehdr.e_ident[EI_CLASS] == ELFCLASS32 && ehdr.e_ident[EI_VERSION] == 1) { /* Is this elf2olf? */ if(!olf2elf) { /* Tag, your it... */ ehdr.e_ident[OI_MAG0] = OLFMAG0; ehdr.e_ident[OI_MAG1] = OLFMAG1; ehdr.e_ident[OI_MAG2] = OLFMAG2; ehdr.e_ident[OI_MAG3] = OLFMAG3; ehdr.e_ident[OI_OS] = opsys; ehdr.e_ident[OI_DYNAMIC] = ODYNAMIC_N; ehdr.e_ident[OI_STRIP] = OSTRIP; /* We'll need this endian */ e = ehdr.e_ident[EI_DATA]; /* Now we need to figure out wether or */ /* not we're really stripped. */ if (lseek(fd, (off_t)word(ehdr.e_shoff, e), SEEK_SET) == word(ehdr.e_shoff, e)) { /* * search through section header table * looking for a section header of type * SHT_SYMTAB and SHT_DYNAMIC. If there is * one present we're NOT stripped and/or * dynamic. */ for (i = 0; i < half(ehdr.e_shnum, e); i++) { if (read(fd, &shdr, sizeof(Elf32_Shdr)) == sizeof(Elf32_Shdr)){ if (word(shdr.sh_type, e) == SHT_SYMTAB) ehdr.e_ident[OI_STRIP] = OSTRIP_N; else if (word(shdr.sh_type, e) == SHT_DYNAMIC) ehdr.e_ident[OI_DYNAMIC] = ODYNAMIC; } else warn(progname, *argv, errno); } /* while less than number of section headers */ /* We're ready to modify */ okay = 1; } else /* Bogus section header table seek */ warn(progname, *argv, errno); } else { /* olf2elf */ ehdr.e_ident[EI_MAG0] = ELFMAG0; ehdr.e_ident[EI_MAG1] = ELFMAG1; ehdr.e_ident[EI_MAG2] = ELFMAG2; ehdr.e_ident[EI_MAG3] = ELFMAG3; ehdr.e_ident[OI_OS] = 0; ehdr.e_ident[OI_DYNAMIC] = 0; ehdr.e_ident[OI_STRIP] = 0; okay = 1; } /* olf2elf */ } else /* Bogus non-ELF file encountered */ warn(progname, *argv, ENOEXEC); /* * Do It. */ if (okay) { if (lseek(fd, (off_t)0, SEEK_SET) == 0) { if (write(fd, &ehdr, sizeof(Elf32_Ehdr)) == sizeof(Elf32_Ehdr)) { if (verbose) { if (!olf2elf) { printf("ELF %s => OLF %d-bit %s %s linked %s OLF.\n", *argv, (ehdr.e_ident[OI_CLASS] == OLFCLASS32)?\ 32 : 64, os_namev[ehdr.e_ident[OI_OS]], ehdr.e_ident[OI_DYNAMIC] ? \ "dynamically" : "statically", !ehdr.e_ident[OI_STRIP] ? "stripped" : "unstripped"); } else printf("OLF %s => ELF.\n", *argv); } } else /* bad write */ warn(progname, *argv, errno); } else /* bad seek */ warn(progname, *argv, errno); } /* okay? */ fsync(fd); close(fd); } else /* couldn't handle file */ warn(progname, *argv, errno); } while (*(++argv) != NULL); return (retval); } warn(name, fname, errval) char *name; char *fname; int errval; { fprintf(stderr, "%s: %s: %s.\n", name, fname, strerror(errval)); retval = 1; } usage() { register int i; if (olf2elf) { fprintf(stderr, "usage: %s [-v] file ...\n", progname); } else { fprintf(stderr, "usage: %s [-v] [-o opsys] elffile ...\n", progname); fprintf(stderr, "where opsys is:\n"); for (i = 1; os_namev[i] != NULL; i++) fprintf(stderr, "\t%s\n", os_namev[i]); } exit(1); }