rd.c

Go to the documentation of this file.

/* $Header: /opt/proj/minix/cvsroot/src/commands/aal/rd.c,v 1.1.1.1 2005/04/21 14:53:58 beng Exp $ */
/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 */
#include <out.h>
#include "object.h"

extern long             lseek();

/*
 * Parts of the output file.
 */
#undef PARTEMIT
#undef PARTRELO
#undef PARTNAME
#undef PARTCHAR
#undef PARTDBUG
#undef NPARTS

#define PARTEMIT        0
#define PARTRELO        1
#define PARTNAME        2
#define PARTCHAR        3
#ifdef SYMDBUG
#define PARTDBUG        4
#else
#define PARTDBUG        3
#endif
#define NPARTS          (PARTDBUG + 1)

static long             offset[MAXSECT];

static int              outfile;
static long             outseek[NPARTS];
static long             currpos;
static long             rd_base;
#define OUTSECT(i) \
        (outseek[PARTEMIT] = offset[i])
#define BEGINSEEK(p, o) \
        (outseek[(p)] = (o))

static int sectionnr;

static
OUTREAD(p, b, n)
        char *b;
        long n;
{
        register long l = outseek[p];

        if (currpos != l) {
                lseek(outfile, l, 0);
        }
        rd_bytes(outfile, b, n);
        l += n;
        currpos = l;
        outseek[p] = l;
}

/*
 * Open the output file according to the chosen strategy.
 */
int
rd_open(f)
        char *f;
{

        if ((outfile = open(f, 0)) < 0)
                return 0;
        return rd_fdopen(outfile);
}

static int offcnt;

rd_fdopen(fd)
{
        register int i;

        for (i = 0; i < NPARTS; i++) outseek[i] = 0;
        offcnt = 0;
        rd_base = lseek(fd, 0L, 1);
        if (rd_base < 0) {
                return 0;
        }
        currpos = rd_base;
        outseek[PARTEMIT] = currpos;
        outfile = fd;
        sectionnr = 0;
        return 1;
}

rd_close()
{

        close(outfile);
        outfile = -1;
}

rd_fd()
{
        return outfile;
}

rd_ohead(head)
        register struct outhead *head;
{
        register long off;

        OUTREAD(PARTEMIT, (char *) head, (long) SZ_HEAD);
#if ! (BYTES_REVERSED || WORDS_REVERSED)
        if (sizeof(struct outhead) != SZ_HEAD)
#endif
        {
                register char *c = (char *) head + (SZ_HEAD-4);
                
                head->oh_nchar = get4(c);
                c -= 4; head->oh_nemit = get4(c);
                c -= 2; head->oh_nname = uget2(c);
                c -= 2; head->oh_nrelo = uget2(c);
                c -= 2; head->oh_nsect = uget2(c);
                c -= 2; head->oh_flags = uget2(c);
                c -= 2; head->oh_stamp = uget2(c);
                c -= 2; head->oh_magic = uget2(c);
        }
        off = OFF_RELO(*head) + rd_base;
        BEGINSEEK(PARTRELO, off);
        off += (long) head->oh_nrelo * SZ_RELO;
        BEGINSEEK(PARTNAME, off);
        off += (long) head->oh_nname * SZ_NAME;
        BEGINSEEK(PARTCHAR, off);
#ifdef SYMDBUG
        off += head->oh_nchar;
        BEGINSEEK(PARTDBUG, off);
#endif
}

rd_rew_relos(head)
        register struct outhead *head;
{
        register long off = OFF_RELO(*head) + rd_base;

        BEGINSEEK(PARTRELO, off);
}

rd_sect(sect, cnt)
        register struct outsect *sect;
        register unsigned int   cnt;
{
        register char *c = (char *) sect + cnt * SZ_SECT;

        OUTREAD(PARTEMIT, (char *) sect, (long)cnt * SZ_SECT);
        sect += cnt;
        offcnt += cnt;
        while (cnt--) {
                sect--;
#if ! (BYTES_REVERSED || WORDS_REVERSED)
                if (sizeof(struct outsect) != SZ_SECT)
#endif
                {
                        c -= 4; sect->os_lign = get4(c);
                        c -= 4; sect->os_flen = get4(c);
                        c -= 4; sect->os_foff = get4(c);
                }
                offset[--offcnt] = sect->os_foff + rd_base;
#if ! (BYTES_REVERSED || WORDS_REVERSED)
                if (sizeof(struct outsect) != SZ_SECT)
#endif
                {
                        c -= 4; sect->os_size = get4(c);
                        c -= 4; sect->os_base = get4(c);
                }
        }
}

rd_outsect(s)
{
        OUTSECT(s);
        sectionnr = s;
}

/*
 * We don't have to worry about byte order here.
 */
rd_emit(emit, cnt)
        char            *emit;
        long            cnt;
{
        OUTREAD(PARTEMIT, emit, cnt);
        offset[sectionnr] += cnt;
}

rd_relo(relo, cnt)
        register struct outrelo *relo;
        register unsigned int cnt;
{

        OUTREAD(PARTRELO, (char *) relo, (long) cnt * SZ_RELO);
#if ! (BYTES_REVERSED || WORDS_REVERSED)
        if (sizeof(struct outrelo) != SZ_RELO)
#endif
        {
                register char *c = (char *) relo + (long) cnt * SZ_RELO;

                relo += cnt;
                while (cnt--) {
                        relo--;
                        c -= 4; relo->or_addr = get4(c);
                        c -= 2; relo->or_nami = uget2(c);
                        relo->or_sect = *--c;
                        relo->or_type = *--c;
                }
        }
}

rd_name(name, cnt)
        register struct outname *name;
        register unsigned int cnt;
{

        OUTREAD(PARTNAME, (char *) name, (long) cnt * SZ_NAME);
#if ! (BYTES_REVERSED || WORDS_REVERSED)
        if (sizeof(struct outname) != SZ_NAME)
#endif
        {
                register char *c = (char *) name + (long) cnt * SZ_NAME;

                name += cnt;
                while (cnt--) {
                        name--;
                        c -= 4; name->on_valu = get4(c);
                        c -= 2; name->on_desc = uget2(c);
                        c -= 2; name->on_type = uget2(c);
                        c -= 4; name->on_foff = get4(c);
                }
        }
}

rd_string(addr, len)
        char *addr;
        long len;
{
        
        OUTREAD(PARTCHAR, addr, len);
}

#ifdef SYMDBUG
rd_dbug(buf, size)
        char            *buf;
        long            size;
{
        OUTREAD(PARTDBUG, buf, size);
}
#endif

---