efcode/engine/resource.c

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright (c) 1999 by Sun Microsystems, Inc.
 * All rights reserved.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <fcode/private.h>
#include <fcode/log.h>

fc_resource_t *
find_resource(fc_resource_t **head, void *ptr, int (cmp)(void *, void *))
{
    fc_resource_t *f, *prev, *r = *head;

    f = NULL;
    prev = NULL;
    while (r) {
        if (r->data == NULL) {
            fc_resource_t *dead;

            if (prev)
                prev->next = r->next;
            else {
                *head = r->next;
            }
            dead = r;
            r = r->next;
            FREE(dead);
        } else {
            if (cmp(ptr, r->data)) {
                f = r;
                break;
            }
            prev = r;
            r = r->next;
        }
    }
    return (f);
}

void *
add_resource(fc_resource_t **head, void *ptr, int (cmp)(void *, void *))
{
    fc_resource_t *r;

    r = find_resource(head, ptr, cmp);
    if (r == NULL) {
        r = MALLOC(sizeof (fc_resource_t));
        r->data = ptr;
        r->next = *head;
        *head = r;
        return (r->data);
    }
    log_message(MSG_ERROR, "add_resource: Duplicate entry: %p\n", ptr);
    return (NULL);
}

void
free_resource(fc_resource_t **head, void *ptr,  int (cmp)(void *, void *))
{
    fc_resource_t *r;

    if ((r = find_resource(head, ptr, cmp)) != NULL)
        r->data = NULL;
    else
        log_message(MSG_ERROR, "free_resource: No such Entry: %p\n",
            ptr);
}

#ifdef DEBUG

static int
dump_print(void *s, void *d)
{
    log_message(MSG_DEBUG, "Buffer: %p\n", d);
    return (0);
}

void
dump_resources(fcode_env_t *env)
{
    fc_resource_t **head;

    head = (fc_resource_t **) POP(DS);
    (void) find_resource(head, NULL, dump_print);
}

void
propbufs(fcode_env_t *env)
{
    PUSH(DS, (fstack_t) &env->propbufs);
}

#pragma init(_init)

static void
_init(void)
{
    fcode_env_t *env = initial_env;

    NOTICE;
    ASSERT(env);

    FORTH(0,        "propbufs",     propbufs);
    FORTH(0,        "dump-resource",    dump_resources);
}

#endif