OpenSolaris Launch

1 files changed, 139 insertions, 0 deletions

diff --git a/usr/src/lib/efcode/engine/init.c b/usr/src/lib/efcode/engine/init.c
new file mode 100644
index 0000000000..128476cf4e
--- /dev/null
+++ b/usr/src/lib/efcode/engine/init.c
@@ -0,0 +1,139 @@
+/*
+ * 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>
+
+fcode_env_t *initial_env = 0;
+int dict_size = 0x100000;	/* 1Mb, hopefully big enough... */
+int stack_size = 0x200;
+
+void *
+safe_malloc(size_t n, char *f, int l)
+{
+	void *p;
+
+	p = malloc((size_t) n);
+#if defined(__sparcv9)
+	/*
+	 * For Ultrasparc, we must force addresses to be less than 4Gb,
+	 * since Fcode assumes that addresses can be stored in 32 bits.
+	 * To get around this would require turning all addresses into
+	 * cookies, which is a lot of work.
+	 */
+	if (((uint64_t)p) >= 0x100000000) {
+		log_message(MSG_WARN, "Malloc returned address > 4Gb\n");
+	}
+#endif	/* __sparcv9 */
+	if (p) {
+		memset(p, 0, (size_t) n);
+	} else
+		log_message(MSG_ERROR, "%s:%d:Malloc(%llx) failed\n", f, l,
+		    (uint64_t)n);
+	return (p);
+}
+
+void *
+safe_realloc(void *p, size_t n, char *f, int l)
+{
+	void *newp;
+
+	if ((newp = safe_malloc(n, f, l)) == NULL) {
+		log_message(MSG_ERROR, "%s:%d:realloc(%p, %x) failed\n", f, l,
+		    p, n);
+		safe_free(p, f, l);
+		return (NULL);
+	}
+	if (p) {
+		memcpy(newp, p, n);
+		safe_free(p, f, l);
+	}
+	return (newp);
+}
+
+void
+safe_free(void *p, char *f, int l)
+{
+	if (p) {
+		free(p);
+	}
+}
+
+char *
+safe_strdup(char *s, char *f, int l)
+{
+	char *p = strdup(s);
+
+	return (p);
+}
+
+#pragma init(_init)
+
+static void
+_init(void)
+{
+	int i;
+	acf_t f_error_addr;
+	fcode_env_t *env;
+
+	NOTICE;
+
+	fcode_impl_count = 0;
+	env = MALLOC(sizeof (fcode_env_t));
+	env->table = MALLOC((MAX_FCODE + 1) * sizeof (fcode_token));
+	env->base = MALLOC(dict_size);
+	env->here = env->base;
+	env->ds = env->ds0 = MALLOC(stack_size * sizeof (fstack_t));
+	env->rs = env->rs0 = MALLOC(stack_size * sizeof (fstack_t));
+	env->order = MALLOC(MAX_ORDER * sizeof (token_t));
+	env->input = MALLOC(sizeof (input_typ));
+	env->num_base = 0x10;
+
+	/* Setup the initial forth environment */
+	do_forth(env);
+	do_definitions(env);
+	install_handlers(env);
+
+	initial_env = env;
+
+	/*
+	 * Need to define this early because it is the default for
+	 * all unimpl, FCODE functions
+	 */
+	P1275(0x0fc, IMMEDIATE,	"ferror",		f_error);
+	f_error_addr = LINK_TO_ACF(env->lastlink);
+	for (i = 0; i <= MAX_FCODE; i++) {
+		DEBUGF(ANY, env->table[i].usage = 0);
+		SET_TOKEN(i, IMMEDIATE, "ferror", f_error_addr);
+	}
+	fcode_impl_count = 0;
+}