wr_ranlib.c

Go to the documentation of this file.

/* $Header: /opt/proj/minix/cvsroot/src/commands/aal/wr_ranlib.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 <ranlib.h>
#include "object.h"

wr_ranlib(fd, ran, cnt)
        register struct ranlib  *ran;
        register long   cnt;
{
#if ! (BYTES_REVERSED || WORDS_REVERSED)
        if (sizeof (struct ranlib) != SZ_RAN)
#endif
        {
                char buf[100 * SZ_RAN];

                while (cnt) {
                        register int i = (cnt > 100) ? 100 : cnt;
                        register char *c = buf;
                        long j = i * SZ_RAN;

                        cnt -= i;
                        while (i--) {
                                put4(ran->ran_off,c); c += 4;
                                put4(ran->ran_pos,c); c += 4;
                                ran++;
                        }
                        wr_bytes(fd, buf, j);
                }
        }
#if ! (BYTES_REVERSED || WORDS_REVERSED)
        else    wr_bytes(fd, (char *) ran, cnt * SZ_RAN);
#endif
}

---