efcode/engine/instance.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 <fcode/private.h>

/*
 * Return a pointer to the allocated instance data.
 * If the data was initialised then return a pointer to the initialisation
 * buffer otherwise return a pointer to the un-init data.
 */
token_t *
alloc_instance_data(fcode_env_t *env, int init, int n, int *offset)
{
    int ptr;

    *offset = ptr = MYSELF->device->data_size[init];
    MYSELF->device->data_size[init] += n;
    if (init == INIT_DATA)
        return (&MYSELF->device->init_data[ptr]);
    else
        return (&MYSELF->data[init][ptr]);
}

token_t *
get_instance_address(fcode_env_t *env)
{
    int which;
    token_t *ptr;
    token_t offset;

    CHECK_DEPTH(env, 1, "get_instance_address");
    ptr = (token_t *) POP(DS);
    offset = *ptr;
    if (offset < 0) {
        offset = -offset;
        which = UINIT_DATA;
    } else {
        which = INIT_DATA;
    }
    return (&MYSELF->data[which][offset]);
}

void
fetch_instance_data(fcode_env_t *env)
{
    token_t *ptr;

    CHECK_DEPTH(env, 1, "get_instance_data");
    ptr = get_instance_address(env);
    PUSH(DS, *ptr);
}

void
set_instance_data(fcode_env_t *env)
{
    token_t *ptr;

    CHECK_DEPTH(env, 2, "set_instance_data");
    ptr = get_instance_address(env);
    *ptr = POP(DS);
}

void
address_instance_data(fcode_env_t *env)
{
    token_t *ptr;

    CHECK_DEPTH(env, 1, "address_instance_data");
    ptr = get_instance_address(env);
    PUSH(DS, (fstack_t) ptr);
}

void
instance_variable(fcode_env_t *env)
{
    token_t *ptr;

    PUSH(DS, (fstack_t) WA);
    ptr = get_instance_address(env);
    PUSH(DS, (fstack_t) ptr);
}

void
idefer_exec(fcode_env_t *env)
{
    CHECK_DEPTH(env, 1, "idefer_exec");
    fetch_instance_data(env);
    execute(env);
}