elf2olf - olf2elf.

1 files changed, 245 insertions, 0 deletions

diff --git a/usr.bin/elf2olf/elf2olf.c b/usr.bin/elf2olf/elf2olf.c
new file mode 100644
index 00000000000..4b984b4255c
--- /dev/null
+++ b/usr.bin/elf2olf/elf2olf.c
@@ -0,0 +1,245 @@
+/*      $OpenBSD: elf2olf.c,v 1.1 1996/11/06 21:13:50 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.1 1996/11/06 21:13:50 etheisen Exp $";
+#endif
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <fcntl.h>
+#include <errno.h>
+#include <unistd.h>
+
+#include <sys/types.h>
+#include <sys/uio.h>
+#include <sys/stat.h>
+#include <sys/param.h>
+
+#include <olf_abi.h>
+
+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("%s ELF => %s %s %s OLF.\n",
+				       *argv, *argv,
+				       ehdr.e_ident[OI_STRIP] ? \
+				           "stripped" : "unstripped",
+				       os_namev[ehdr.e_ident[OI_OS]]);
+			    } else
+				printf("%s OLF => %s ELF.\n", *argv, *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);
+}
+
+