/*
* 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);
}