1 files changed, 135 insertions, 0 deletions
diff --git a/usr/src/lib/efcode/packages/parse.c b/usr/src/lib/efcode/packages/parse.c
new file mode 100644
index 0000000000..b75dd73ee5
--- /dev/null
+++ b/usr/src/lib/efcode/packages/parse.c
@@ -0,0 +1,135 @@
+/*
+ * 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 <strings.h>
+
+#include <fcode/private.h>
+#include <fcode/log.h>
+
+#include <fcdriver/fcdriver.h>
+
+void
+byte_loadfile(fcode_env_t *env)
+{
+	int len;
+
+	load_file(env);
+	len = (int) POP(DS);
+	if (len) {
+		void *ptr = (void *) TOS;
+		PUSH(DS, 1);
+		byte_load(env);
+		FREE(ptr);
+	} else {
+		drop(env);
+	}
+}
+
+void
+define_hook(fcode_env_t *env, char *name, int len, char *fcimage)
+{
+	static void (*byteload_ptr)(fcode_env_t *env) = byte_loadfile;
+
+	header(env, name, len, 0);
+	COMPILE_TOKEN(&do_colon);
+	env->state |= 1;
+	PUSH(DS, (fstack_t) fcimage);
+	PUSH(DS, strlen(fcimage));
+	compile_string(env);
+	COMPILE_TOKEN(&byteload_ptr);
+	semi(env);
+}
+
+/*
+ * simple parser for builtin-driver matching.
+ *
+ * Consists of alias:target<CR>
+ * where alias is:
+ *	<Key>[;<key>[;<key>]]
+ *
+ * and target is:
+ *	<path to fcode image>
+ */
+
+#define	PARSE_LINE	256
+
+static void
+line_error(char *where, int line, char *msg)
+{
+	log_message(MSG_ERROR, "%s:%d: %s\n", where, line, msg);
+}
+
+void
+make_builtin_hooks(fcode_env_t *env, char *where)
+{
+	FILE *fd;
+	int lnum = 0, len;
+	char *buffer, *line, *target, *next;
+
+	if (where == NULL)
+		where = "/fcode/aliases";
+
+	if ((fd = fopen(where, "r")) == NULL) {
+		return;
+	}
+
+	buffer = MALLOC(PARSE_LINE+1);
+
+	while ((line = fgets(buffer, PARSE_LINE, fd)) != NULL) {
+		lnum++;
+		if ((next = strpbrk(line, " \t#\n")) != NULL)
+			*next = '\0';
+		if (strlen(line) == 0)
+			continue;
+		if ((target = strchr(line, ':')) == NULL) {
+			line_error(where, lnum, "Badly formed line");
+			continue;
+		}
+		*target++ = 0;
+		if (strlen(line) == 0) {
+			line_error(where, lnum, "Badly formed alias");
+			continue;
+		}
+		if (strlen(target) == 0) {
+			line_error(where, lnum, "Badly formed target");
+			continue;
+		}
+		for (; line; line = next) {
+			if ((next = strchr(line, ';')) != NULL)
+				*next++ = '\0';
+			if (strlen(line) == 0)
+				line_error(where, lnum, "Null key in alias");
+			else
+				define_hook(env, line, strlen(line), target);
+		}
+	}
+	FREE(buffer);
+	fclose(fd);
+}