Colony » Colony Scout

/*-

 * Copyright (c) 1990, 1993

 *        The Regents of the University of California.  All rights reserved.

 *

 * This code is derived from software contributed to Berkeley by

 * Chris Torek.

 *

 * 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. Neither the name of the University nor the names of its contributors

 *    may be used to endorse or promote products derived from this software

 *    without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``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 REGENTS OR CONTRIBUTORS 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.

 */

#include <sys/param.h>

#include <unistd.h>

#include <stdio.h>

#include <stdlib.h>

#include <errno.h>

#include <string.h>

#include "local.h"

int        __sdidinit;

FILE __sF[3];

static void

std(FILE *fp, FILE *next, short flags, short fileno)

{

        memset(fp, 0, sizeof(FILE));

        fp->next = next;

        fp->_flags = flags;

        fp->_file = fileno;

}

/*

 * Find a free FILE for fopen et al.

 */

FILE *

__sfp()

{

        FILE *fp, *tmp;

        if (!__sdidinit)

                __sinit();

        for (fp = &__sF[0];; fp = fp->next) {

                if (fp->_flags == 0)

                        goto found;

                if (fp->next == NULL) {

                        if ((tmp = malloc(sizeof(FILE))) == NULL)

                                break;

                        fp->next = tmp;

                        fp = tmp;

                        goto found;

                }

        }

        return (NULL);

found:

        std(fp, NULL, 1, -1);

        return (fp);

}

/*

 * exit() calls _cleanup() through *__cleanup, set whenever we

 * open or buffer a file.  This chicanery is done so that programs

 * that do not use stdio need not link it all in.

 *

 * The name `_cleanup' is, alas, fairly well known outside stdio.

b */

void

_cleanup()

{

        /* (void) _fwalk(fclose); */

        (void) _fwalk(__sflush);                /* `cheating' */

}

/*

 * __sinit() is called whenever stdio's internal variables must be set up.

 */

void

__sinit()

{

        std(&__sF[0], &__sF[1], __SRD, STDIN_FILENO);

        std(&__sF[1], &__sF[2], __SWR, STDOUT_FILENO);

        std(&__sF[2], NULL, __SWR|__SNBF, STDERR_FILENO);

        /* make sure we clean up on exit */

        __cleanup = _cleanup;                /* conservative */

        __sdidinit = 1;

}