OpenSolaris Launch

1 files changed, 117 insertions, 0 deletions

diff --git a/usr/src/lib/efcode/engine/instance.c b/usr/src/lib/efcode/engine/instance.c
new file mode 100644
index 0000000000..380d1d6297
--- /dev/null
+++ b/usr/src/lib/efcode/engine/instance.c
@@ -0,0 +1,117 @@
+/*
+ * 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);
+}