/* $OpenBSD: file.c,v 1.8 2004/04/14 20:37:28 henning Exp $ */ /* * Copyright (c) 1995-96 Mats O Jansson. 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. * * 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 const char rcsid[] = "$OpenBSD: file.c,v 1.8 2004/04/14 20:37:28 henning Exp $"; #endif #include "os.h" #include "common/common.h" #include "common/mopdef.h" #ifndef NOAOUT #if defined(__NetBSD__) || defined(__OpenBSD__) #include #endif #if defined(__bsdi__) #define NOAOUT #endif #if defined(__FreeBSD__) #include #endif #if !defined(MID_I386) #define MID_I386 134 #endif #if !defined(MID_SPARC) #define MID_SPARC 138 #endif #if !defined(MID_VAX) #define MID_VAX 140 #endif #endif void mopFilePutLX(u_char *buf, int index, u_long value, int cnt) { int i; for (i = 0; i < cnt; i++) { buf[index + i] = value % 256; value = value / 256; } } void mopFilePutBX(u_char *buf, int index, u_long value, int cnt) { int i; for (i = 0; i < cnt; i++) { buf[index + cnt - 1 - i] = value % 256; value = value / 256; } } u_long mopFileGetLX(void *buffer, int index, int cnt) { u_long ret = 0; int i; u_char *buf = (u_char *)buffer; for (i = 0; i < cnt; i++) ret = ret*256 + buf[index+cnt - 1 - i]; return (ret); } u_long mopFileGetBX(void *buffer, int index, int cnt) { u_long ret = 0; int i; u_char *buf = (u_char *)buffer; for (i = 0; i < cnt; i++) ret = ret*256 + buf[index + i]; return (ret); } void mopFileSwapX(void *buffer, int index, int cnt) { int i; u_char c; u_char *buf = (u_char *)buffer; for (i = 0; i < (cnt / 2); i++) { c = buf[index + i]; buf[index + i] = buf[index + cnt - 1 - i]; buf[index + cnt - 1 - i] = c; } } int CheckMopFile(int fd) { u_char header[512]; short image_type; if (read(fd, header, 512) != 512) return (-1); lseek(fd, 0, SEEK_SET); image_type = header[IHD_W_ALIAS+1] * 256 + header[IHD_W_ALIAS]; switch (image_type) { case IHD_C_NATIVE: /* Native mode image (VAX) */ case IHD_C_RSX: /* RSX image produced by TKB */ case IHD_C_BPA: /* BASIC plus analog */ case IHD_C_ALIAS: /* Alias */ case IHD_C_CLI: /* Image is CLI */ case IHD_C_PMAX: /* PMAX system image */ case IHD_C_ALPHA: /* ALPHA system image */ break; default: return (-1); } return (0); } int GetMopFileInfo(int fd, u_long *load, u_long *xfr) { u_char header[512]; short image_type; u_long load_addr, xfr_addr, isd, iha, hbcnt, isize; if (read(fd, header, 512) != 512) return (-1); image_type = header[IHD_W_ALIAS+1] * 256 + header[IHD_W_ALIAS]; switch (image_type) { case IHD_C_NATIVE: /* Native mode image (VAX) */ isd = header[IHD_W_SIZE + 1] * 256 + header[IHD_W_SIZE]; iha = header[IHD_W_ACTIVOFF + 1] * 256 + header[IHD_W_ACTIVOFF]; hbcnt = header[IHD_B_HDRBLKCNT]; isize = (header[isd + ISD_W_PAGCNT + 1] * 256 + header[isd + ISD_W_PAGCNT]) * 512; load_addr = ((header[isd + ISD_V_VPN + 1] * 256 + header[isd+ISD_V_VPN]) & ISD_M_VPN) * 512; xfr_addr = (header[iha + IHA_L_TFRADR1 + 3] * 0x1000000+ header[iha + IHA_L_TFRADR1 + 2] * 0x10000 + header[iha + IHA_L_TFRADR1 + 1] * 0x100 + header[iha + IHA_L_TFRADR1]) & 0x7fffffff; #ifdef INFO printf("Native Image (VAX)\n"); printf("Header Block Count: %lu\n", hbcnt); printf("Image Size: %08lx\n", isize); printf("Load Address: %08lx\n", load_addr); printf("Transfer Address: %08lx\n", xfr_addr); #endif break; case IHD_C_RSX: /* RSX image produced by TKB */ hbcnt = header[L_BBLK + 1] * 256 + header[L_BBLK]; isize = (header[L_BLDZ + 1] * 256 + header[L_BLDZ]) * 64; load_addr = header[L_BSA+1] * 256 + header[L_BSA]; xfr_addr = header[L_BXFR+1] * 256 + header[L_BXFR]; #ifdef INFO printf("RSX Image\n"); printf("Header Block Count: %lu\n",hbcnt); printf("Image Size: %08lx\n", isize); printf("Load Address: %08lx\n", load_addr); printf("Transfer Address: %08lx\n", xfr_addr); #endif break; case IHD_C_BPA: /* BASIC plus analog */ #ifdef INFO printf("BASIC-Plus Image, not supported\n"); #endif return (-1); break; case IHD_C_ALIAS: /* Alias */ #ifdef INFO printf("Alias, not supported\n"); #endif return (-1); break; case IHD_C_CLI: /* Image is CLI */ #ifdef INFO printf("CLI, not supported\n"); #endif return (-1); break; case IHD_C_PMAX: /* PMAX system image */ isd = header[IHD_W_SIZE+1] * 256 + header[IHD_W_SIZE]; iha = header[IHD_W_ACTIVOFF+1] * 256 + header[IHD_W_ACTIVOFF]; hbcnt = header[IHD_B_HDRBLKCNT]; isize = (header[isd + ISD_W_PAGCNT + 1] * 256 + header[isd + ISD_W_PAGCNT]) * 512; load_addr = (header[isd + ISD_V_VPN + 1] * 256 + header[isd + ISD_V_VPN]) * 512; xfr_addr = (header[iha + IHA_L_TFRADR1 + 3] * 0x1000000+ header[iha + IHA_L_TFRADR1 + 2] * 0x10000 + header[iha + IHA_L_TFRADR1 + 1] * 0x100 + header[iha + IHA_L_TFRADR1]); #ifdef INFO printf("PMAX Image \n"); printf("Header Block Count: %lu\n", hbcnt); printf("Image Size: %08lx\n", isize); printf("Load Address: %08lx\n", load_addr); printf("Transfer Address: %08lx\n", xfr_addr); #endif break; case IHD_C_ALPHA: /* ALPHA system image */ isd = (header[EIHD_L_ISDOFF + 3] * 0x1000000 + header[EIHD_L_ISDOFF + 2] * 0x10000 + header[EIHD_L_ISDOFF + 1] * 0x100 + header[EIHD_L_ISDOFF]); hbcnt = (header[EIHD_L_HDRBLKCNT + 3] * 0x1000000 + header[EIHD_L_HDRBLKCNT + 2] * 0x10000 + header[EIHD_L_HDRBLKCNT + 1] * 0x100 + header[EIHD_L_HDRBLKCNT]); isize = (header[isd+EISD_L_SECSIZE + 3] * 0x1000000 + header[isd+EISD_L_SECSIZE + 2] * 0x10000 + header[isd+EISD_L_SECSIZE + 1] * 0x100 + header[isd+EISD_L_SECSIZE]); load_addr = 0; xfr_addr = 0; #ifdef INFO printf("Alpha Image \n"); printf("Header Block Count: %lu\n", hbcnt); printf("Image Size: %08lx\n", isize); printf("Load Address: %08lx\n", load_addr); printf("Transfer Address: %08lx\n", xfr_addr); #endif break; default: #ifdef INFO printf("Unknown Image (%d)\n", image_type); #endif return (-1); } if (load != NULL) *load = load_addr; if (xfr != NULL) *xfr = xfr_addr; return (0); } #ifndef NOAOUT int getMID(int old_mid, int new_mid) { int mid; mid = old_mid; switch (new_mid) { case MID_I386: mid = MID_I386; break; #ifdef MID_M68K case MID_M68K: mid = MID_M68K; break; #endif #ifdef MID_M68K4K case MID_M68K4K: mid = MID_M68K4K; break; #endif #ifdef MID_NS32532 case MID_NS32532: mid = MID_NS32532; break; #endif case MID_SPARC: mid = MID_SPARC; break; #ifdef MID_PMAX case MID_PMAX: mid = MID_PMAX; break; #endif #ifdef MID_VAX case MID_VAX: mid = MID_VAX; break; #endif #ifdef MID_ALPHA case MID_ALPHA: mid = MID_ALPHA; break; #endif #ifdef MID_MIPS case MID_MIPS: mid = MID_MIPS; break; #endif #ifdef MID_ARM6 case MID_ARM6: mid = MID_ARM6; break; #endif default: break; } return (mid); } int getCLBYTES(int mid) { int clbytes; switch (mid) { #ifdef MID_VAX case MID_VAX: clbytes = 1024; break; #endif case MID_I386: #ifdef MID_M68K4K case MID_M68K4K: #endif #ifdef MID_NS32532 case MID_NS32532: #endif case MID_SPARC: /* It might be 8192 */ #ifdef MID_PMAX case MID_PMAX: #endif #ifdef MID_MIPS case MID_MIPS: #endif #ifdef MID_ARM6 case MID_ARM6: #endif clbytes = 4096; break; #ifdef MID_M68K case MID_M68K: #endif #ifdef MID_ALPHA case MID_ALPHA: #endif #if defined(MID_M68K) || defined(MID_ALPHA) clbytes = 8192; break; #endif default: clbytes = 0; } return (clbytes); } #endif int CheckAOutFile(int fd) { #ifdef NOAOUT return (-1); #else struct exec ex, ex_swap; int mid = -1; if (read(fd, &ex, sizeof(ex)) != sizeof(ex)) return (-1); lseek(fd, 0, SEEK_SET); if (read(fd, &ex_swap, sizeof(ex_swap)) != sizeof(ex_swap)) return (-1); lseek(fd, 0, SEEK_SET); mid = getMID(mid, N_GETMID(ex)); if (mid == -1) mid = getMID(mid, N_GETMID(ex_swap)); if (mid != -1) return (0); else return (-1); #endif /* NOAOUT */ } int GetAOutFileInfo(int fd, u_long *load, u_long *xfr, u_long *a_text, u_long *a_text_fill, u_long *a_data, u_long *a_data_fill, u_long *a_bss, u_long *a_bss_fill, int *aout) { #ifdef NOAOUT return (-1); #else struct exec ex, ex_swap; int mid = -1; u_long magic, clbytes, clofset; if (read(fd, &ex, sizeof(ex)) != sizeof(ex)) return (-1); lseek(fd, 0, SEEK_SET); if (read(fd, &ex_swap, sizeof(ex_swap)) != sizeof(ex_swap)) return (-1); mopFileSwapX(&ex_swap, 0, 4); mid = getMID(mid, N_GETMID(ex)); if (mid == -1) { mid = getMID(mid, N_GETMID(ex_swap)); if (mid != -1) mopFileSwapX(&ex, 0, 4); } if (mid == -1) return (-1); if (N_BADMAG(ex)) return (-1); switch (mid) { case MID_I386: #ifdef MID_NS32532 case MID_NS32532: #endif #ifdef MID_PMAX case MID_PMAX: #endif #ifdef MID_VAX case MID_VAX: #endif #ifdef MID_ALPHA case MID_ALPHA: #endif #ifdef MID_ARM6 case MID_ARM6: #endif ex.a_text = mopFileGetLX(&ex_swap, 4, 4); ex.a_data = mopFileGetLX(&ex_swap, 8, 4); ex.a_bss = mopFileGetLX(&ex_swap, 12, 4); ex.a_syms = mopFileGetLX(&ex_swap, 16, 4); ex.a_entry = mopFileGetLX(&ex_swap, 20, 4); ex.a_trsize = mopFileGetLX(&ex_swap, 24, 4); ex.a_drsize = mopFileGetLX(&ex_swap, 28, 4); break; #ifdef MID_M68K case MID_M68K: #endif #ifdef MID_M68K4K case MID_M68K4K: #endif case MID_SPARC: #ifdef MID_MIPS case MID_MIPS: #endif ex.a_text = mopFileGetBX(&ex_swap, 4, 4); ex.a_data = mopFileGetBX(&ex_swap, 8, 4); ex.a_bss = mopFileGetBX(&ex_swap, 12, 4); ex.a_syms = mopFileGetBX(&ex_swap, 16, 4); ex.a_entry = mopFileGetBX(&ex_swap, 20, 4); ex.a_trsize= mopFileGetBX(&ex_swap, 24, 4); ex.a_drsize= mopFileGetBX(&ex_swap, 28, 4); break; default: break; } #ifdef INFO printf("a.out image ("); switch (N_GETMID(ex)) { case MID_I386: printf("i386"); break; #ifdef MID_M68K case MID_M68K: printf("m68k"); break; #endif #ifdef MID_M68K4K case MID_M68K4K: printf("m68k 4k"); break; #endif #ifdef MID_NS32532 case MID_NS32532: printf("pc532"); break; #endif case MID_SPARC: printf("sparc"); break; #ifdef MID_PMAX case MID_PMAX: printf("pmax"); break; #endif #ifdef MID_VAX case MID_VAX: printf("vax"); break; #endif #ifdef MID_ALPHA case MID_ALPHA: printf("alpha"); break; #endif #ifdef MID_MIPS case MID_MIPS: printf("mips"); break; #endif #ifdef MID_ARM6 case MID_ARM6: printf("arm32"); break; #endif default: break; } printf(") Magic: "); switch (N_GETMAGIC (ex)) { case OMAGIC: printf("OMAGIC"); break; case NMAGIC: printf("NMAGIC"); break; case ZMAGIC: printf("ZMAGIC"); break; case QMAGIC: printf("QMAGIC"); break; default: printf("Unknown %d",N_GETMAGIC (ex)); } printf("\n"); printf("Size of text: %08x\n", ex.a_text); printf("Size of data: %08x\n", ex.a_data); printf("Size of bss: %08x\n", ex.a_bss); printf("Size of symbol tab: %08x\n", ex.a_syms); printf("Transfer Address: %08x\n", ex.a_entry); printf("Size of reloc text: %08x\n", ex.a_trsize); printf("Size of reloc data: %08x\n", ex.a_drsize); #endif magic = N_GETMAGIC(ex); clbytes = getCLBYTES(mid); clofset = clbytes - 1; if (load != NULL) *load = 0; if (xfr != NULL) *xfr = ex.a_entry; if (a_text != NULL) *a_text = ex.a_text; if (a_text_fill != NULL) { if (magic == ZMAGIC || magic == NMAGIC) { *a_text_fill = clbytes - (ex.a_text & clofset); if (*a_text_fill == clbytes) *a_text_fill = 0; } else *a_text_fill = 0; } if (a_data != NULL) *a_data = ex.a_data; if (a_data_fill != NULL) { if (magic == ZMAGIC || magic == NMAGIC) { *a_data_fill = clbytes - (ex.a_data & clofset); if (*a_data_fill == clbytes) *a_data_fill = 0; } else *a_data_fill = 0; } if (a_bss != NULL) *a_bss = ex.a_bss; if (a_bss_fill != NULL) { if (magic == ZMAGIC || magic == NMAGIC) { *a_bss_fill = clbytes - (ex.a_bss & clofset); if (*a_bss_fill == clbytes) *a_bss_fill = 0; } else { *a_bss_fill = clbytes - ((ex.a_text + ex.a_data + ex.a_bss) & clofset); if (*a_text_fill == clbytes) *a_text_fill = 0; } } if (aout != NULL) *aout = mid; return (0); #endif /* NOAOUT */ } int GetFileInfo(int fd, u_long *load, u_long *xfr, int *aout, u_long *a_text, u_long *a_text_fill, u_long *a_data, u_long *a_data_fill, u_long *a_bss, u_long *a_bss_fill) { int err; err = CheckAOutFile(fd); if (err == 0) { err = GetAOutFileInfo(fd, load, xfr, a_text, a_text_fill, a_data, a_data_fill, a_bss, a_bss_fill, aout); if (err != 0) return (-1); } else { err = CheckMopFile(fd); if (err == 0) { err = GetMopFileInfo(fd, load, xfr); if (err != 0) return (-1); *aout = -1; } else return (-1); } return (0); } ssize_t mopFileRead(struct dllist *dlslot, u_char *buf) { ssize_t len, outlen; int bsz; long pos, notdone, total; if (dlslot->aout == -1) len = read(dlslot->ldfd,buf,dlslot->dl_bsz); else { bsz = dlslot->dl_bsz; pos = dlslot->a_lseek; len = 0; total = dlslot->a_text; if (pos < total) { notdone = total - pos; if (notdone <= bsz) outlen = read(dlslot->ldfd,&buf[len],notdone); else outlen = read(dlslot->ldfd,&buf[len],bsz); len = len + outlen; pos = pos + outlen; bsz = bsz - outlen; } total = total + dlslot->a_text_fill; if ((bsz > 0) && (pos < total)) { notdone = total - pos; if (notdone <= bsz) outlen = notdone; else outlen = bsz; bzero(&buf[len],outlen); len = len + outlen; pos = pos + outlen; bsz = bsz - outlen; } total = total + dlslot->a_data; if ((bsz > 0) && (pos < total)) { notdone = total - pos; if (notdone <= bsz) outlen = read(dlslot->ldfd,&buf[len],notdone); else outlen = read(dlslot->ldfd,&buf[len],bsz); len = len + outlen; pos = pos + outlen; bsz = bsz - outlen; } total = total + dlslot->a_data_fill; if ((bsz > 0) && (pos < total)) { notdone = total - pos; if (notdone <= bsz) outlen = notdone; else outlen = bsz; bzero(&buf[len],outlen); len = len + outlen; pos = pos + outlen; bsz = bsz - outlen; } total = total + dlslot->a_bss; if ((bsz > 0) && (pos < total)) { notdone = total - pos; if (notdone <= bsz) outlen = notdone; else outlen = bsz; bzero(&buf[len],outlen); len = len + outlen; pos = pos + outlen; bsz = bsz - outlen; } total = total + dlslot->a_bss_fill; if ((bsz > 0) && (pos < total)) { notdone = total - pos; if (notdone <= bsz) outlen = notdone; else outlen = bsz; bzero(&buf[len],outlen); len = len + outlen; pos = pos + outlen; bsz = bsz - outlen; } dlslot->a_lseek = pos; } return (len); }