Revert r326792, r326784, r326772, r326712
Something subtle is creating problems for disk access on ubldr. Back it out unti that can be sorted out. Sponsored by: Netflix
This commit is contained in:
parent
f74deabac8
commit
ba25195ebf
Notes:
svn2git
2020-12-20 02:59:44 +00:00
svn path=/head/; revision=326812
@ -45,7 +45,7 @@ extern char command_errbuf[COMMAND_ERRBUFSZ];
|
||||
#define CMD_FATAL 4
|
||||
|
||||
/* interp.c */
|
||||
void interact(void);
|
||||
void interact(const char *rc);
|
||||
int include(const char *filename);
|
||||
|
||||
/* interp_backslash.c */
|
||||
@ -54,6 +54,10 @@ char *backslash(const char *str);
|
||||
/* interp_parse.c */
|
||||
int parse(int *argc, char ***argv, const char *str);
|
||||
|
||||
/* interp_forth.c */
|
||||
void bf_init(const char *rc);
|
||||
int bf_run(char *line);
|
||||
|
||||
/* boot.c */
|
||||
int autoboot(int timeout, char *prompt);
|
||||
void autoboot_maybe(void);
|
||||
|
@ -1,6 +1,5 @@
|
||||
/*-
|
||||
* Copyright (c) 1998 Michael Smith <msmith@freebsd.org>
|
||||
* Copyright (c) 2011 Wojciech A. Koszek <wkoszek@FreeBSD.org>
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
@ -24,6 +23,7 @@
|
||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
* SUCH DAMAGE.
|
||||
*/
|
||||
|
||||
#include <sys/cdefs.h>
|
||||
__FBSDID("$FreeBSD$");
|
||||
|
||||
@ -36,100 +36,22 @@ __FBSDID("$FreeBSD$");
|
||||
#include <stand.h>
|
||||
#include <string.h>
|
||||
#include "bootstrap.h"
|
||||
#include "interp.h"
|
||||
|
||||
#ifdef BOOT_FORTH
|
||||
#include "ficl.h"
|
||||
#define RETURN(x) stackPushINT(bf_vm->pStack,!x); return(x)
|
||||
|
||||
extern FICL_VM *bf_vm;
|
||||
#else
|
||||
#define RETURN(x) return(x)
|
||||
#endif
|
||||
|
||||
#define MAXARGS 20 /* maximum number of arguments allowed */
|
||||
|
||||
struct interp *interp =
|
||||
#if defined(BOOT_FORTH)
|
||||
&boot_interp_forth;
|
||||
#else
|
||||
&boot_interp_simple;
|
||||
#endif
|
||||
static void prompt(void);
|
||||
|
||||
int
|
||||
default_load_config(void *ctx)
|
||||
{
|
||||
return INTERP_INCL(interp, "/boot/loader.rc");
|
||||
}
|
||||
|
||||
/*
|
||||
* Interactive mode
|
||||
*/
|
||||
void
|
||||
interact(void)
|
||||
{
|
||||
static char input[256]; /* big enough? */
|
||||
|
||||
INTERP_INIT(interp);
|
||||
|
||||
/*
|
||||
* Read our default configuration
|
||||
*/
|
||||
INTERP_LOAD_DEF_CONFIG(interp);
|
||||
printf("\n");
|
||||
/*
|
||||
* Before interacting, we might want to autoboot.
|
||||
*/
|
||||
autoboot_maybe();
|
||||
|
||||
/*
|
||||
* Not autobooting, go manual
|
||||
*/
|
||||
printf("\nType '?' for a list of commands, 'help' for more detailed help.\n");
|
||||
if (getenv("prompt") == NULL)
|
||||
setenv("prompt", "${interpret}", 1);
|
||||
if (getenv("interpret") == NULL)
|
||||
setenv("interpret", "OK", 1);
|
||||
|
||||
|
||||
for (;;) {
|
||||
input[0] = '\0';
|
||||
prompt();
|
||||
ngets(input, sizeof(input));
|
||||
INTERP_RUN(interp, input);
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* Read commands from a file, then execute them.
|
||||
*
|
||||
* We store the commands in memory and close the source file so that the media
|
||||
* holding it can safely go away while we are executing.
|
||||
*
|
||||
* Commands may be prefixed with '@' (so they aren't displayed) or '-' (so
|
||||
* that the script won't stop if they fail).
|
||||
*/
|
||||
COMMAND_SET(include, "include", "read commands from a file", command_include);
|
||||
|
||||
static int
|
||||
command_include(int argc, char *argv[])
|
||||
{
|
||||
int i;
|
||||
int res;
|
||||
char **argvbuf;
|
||||
|
||||
/*
|
||||
* Since argv is static, we need to save it here.
|
||||
*/
|
||||
argvbuf = (char**) calloc((u_int)argc, sizeof(char*));
|
||||
for (i = 0; i < argc; i++)
|
||||
argvbuf[i] = strdup(argv[i]);
|
||||
|
||||
res=CMD_OK;
|
||||
for (i = 1; (i < argc) && (res == CMD_OK); i++)
|
||||
res = INTERP_INCL(interp, argvbuf[i]);
|
||||
|
||||
for (i = 0; i < argc; i++)
|
||||
free(argvbuf[i]);
|
||||
free(argvbuf);
|
||||
|
||||
if (res != CMD_OK)
|
||||
printf("%s", command_errbuf);
|
||||
|
||||
return(res);
|
||||
}
|
||||
#ifndef BOOT_FORTH
|
||||
static int perform(int argc, char *argv[]);
|
||||
|
||||
/*
|
||||
* Perform the command
|
||||
@ -160,14 +82,268 @@ perform(int argc, char *argv[])
|
||||
} else {
|
||||
command_errmsg = "unknown command";
|
||||
}
|
||||
return result;
|
||||
RETURN(result);
|
||||
}
|
||||
#endif /* ! BOOT_FORTH */
|
||||
|
||||
/*
|
||||
* Interactive mode
|
||||
*/
|
||||
void
|
||||
interact(const char *rc)
|
||||
{
|
||||
static char input[256]; /* big enough? */
|
||||
#ifndef BOOT_FORTH
|
||||
int argc;
|
||||
char **argv;
|
||||
#endif
|
||||
|
||||
#ifdef BOOT_FORTH
|
||||
bf_init((rc) ? "" : NULL);
|
||||
#endif
|
||||
|
||||
if (rc == NULL) {
|
||||
/* Read our default configuration. */
|
||||
include("/boot/loader.rc");
|
||||
} else if (*rc != '\0')
|
||||
include(rc);
|
||||
|
||||
printf("\n");
|
||||
|
||||
/*
|
||||
* Before interacting, we might want to autoboot.
|
||||
*/
|
||||
autoboot_maybe();
|
||||
|
||||
/*
|
||||
* Not autobooting, go manual
|
||||
*/
|
||||
printf("\nType '?' for a list of commands, 'help' for more detailed help.\n");
|
||||
if (getenv("prompt") == NULL)
|
||||
setenv("prompt", "${interpret}", 1);
|
||||
if (getenv("interpret") == NULL)
|
||||
setenv("interpret", "OK", 1);
|
||||
|
||||
|
||||
for (;;) {
|
||||
input[0] = '\0';
|
||||
prompt();
|
||||
ngets(input, sizeof(input));
|
||||
#ifdef BOOT_FORTH
|
||||
bf_vm->sourceID.i = 0;
|
||||
bf_run(input);
|
||||
#else
|
||||
if (!parse(&argc, &argv, input)) {
|
||||
if (perform(argc, argv))
|
||||
printf("%s: %s\n", argv[0], command_errmsg);
|
||||
free(argv);
|
||||
} else {
|
||||
printf("parse error\n");
|
||||
}
|
||||
#endif
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* Read commands from a file, then execute them.
|
||||
*
|
||||
* We store the commands in memory and close the source file so that the media
|
||||
* holding it can safely go away while we are executing.
|
||||
*
|
||||
* Commands may be prefixed with '@' (so they aren't displayed) or '-' (so
|
||||
* that the script won't stop if they fail).
|
||||
*/
|
||||
COMMAND_SET(include, "include", "read commands from a file", command_include);
|
||||
|
||||
static int
|
||||
command_include(int argc, char *argv[])
|
||||
{
|
||||
int i;
|
||||
int res;
|
||||
char **argvbuf;
|
||||
|
||||
/*
|
||||
* Since argv is static, we need to save it here.
|
||||
*/
|
||||
argvbuf = (char**) calloc((u_int)argc, sizeof(char*));
|
||||
for (i = 0; i < argc; i++)
|
||||
argvbuf[i] = strdup(argv[i]);
|
||||
|
||||
res=CMD_OK;
|
||||
for (i = 1; (i < argc) && (res == CMD_OK); i++)
|
||||
res = include(argvbuf[i]);
|
||||
|
||||
for (i = 0; i < argc; i++)
|
||||
free(argvbuf[i]);
|
||||
free(argvbuf);
|
||||
|
||||
return(res);
|
||||
}
|
||||
|
||||
/*
|
||||
* Header prepended to each line. The text immediately follows the header.
|
||||
* We try to make this short in order to save memory -- the loader has
|
||||
* limited memory available, and some of the forth files are very long.
|
||||
*/
|
||||
struct includeline
|
||||
{
|
||||
struct includeline *next;
|
||||
#ifndef BOOT_FORTH
|
||||
int flags;
|
||||
int line;
|
||||
#define SL_QUIET (1<<0)
|
||||
#define SL_IGNOREERR (1<<1)
|
||||
#endif
|
||||
char text[0];
|
||||
};
|
||||
|
||||
int
|
||||
include(const char *filename)
|
||||
{
|
||||
struct includeline *script, *se, *sp;
|
||||
char input[256]; /* big enough? */
|
||||
#ifdef BOOT_FORTH
|
||||
int res;
|
||||
char *cp;
|
||||
int prevsrcid, fd, line;
|
||||
#else
|
||||
int argc,res;
|
||||
char **argv, *cp;
|
||||
int fd, flags, line;
|
||||
#endif
|
||||
|
||||
if (((fd = open(filename, O_RDONLY)) == -1)) {
|
||||
snprintf(command_errbuf, sizeof(command_errbuf),
|
||||
"can't open '%s': %s", filename, strerror(errno));
|
||||
return(CMD_ERROR);
|
||||
}
|
||||
|
||||
/*
|
||||
* Read the script into memory.
|
||||
*/
|
||||
script = se = NULL;
|
||||
line = 0;
|
||||
|
||||
while (fgetstr(input, sizeof(input), fd) >= 0) {
|
||||
line++;
|
||||
#ifdef BOOT_FORTH
|
||||
cp = input;
|
||||
#else
|
||||
flags = 0;
|
||||
/* Discard comments */
|
||||
if (strncmp(input+strspn(input, " "), "\\ ", 2) == 0)
|
||||
continue;
|
||||
cp = input;
|
||||
/* Echo? */
|
||||
if (input[0] == '@') {
|
||||
cp++;
|
||||
flags |= SL_QUIET;
|
||||
}
|
||||
/* Error OK? */
|
||||
if (input[0] == '-') {
|
||||
cp++;
|
||||
flags |= SL_IGNOREERR;
|
||||
}
|
||||
#endif
|
||||
/* Allocate script line structure and copy line, flags */
|
||||
if (*cp == '\0')
|
||||
continue; /* ignore empty line, save memory */
|
||||
sp = malloc(sizeof(struct includeline) + strlen(cp) + 1);
|
||||
/* On malloc failure (it happens!), free as much as possible and exit */
|
||||
if (sp == NULL) {
|
||||
while (script != NULL) {
|
||||
se = script;
|
||||
script = script->next;
|
||||
free(se);
|
||||
}
|
||||
snprintf(command_errbuf, sizeof(command_errbuf),
|
||||
"file '%s' line %d: memory allocation failure - aborting",
|
||||
filename, line);
|
||||
return (CMD_ERROR);
|
||||
}
|
||||
strcpy(sp->text, cp);
|
||||
#ifndef BOOT_FORTH
|
||||
sp->flags = flags;
|
||||
sp->line = line;
|
||||
#endif
|
||||
sp->next = NULL;
|
||||
|
||||
if (script == NULL) {
|
||||
script = sp;
|
||||
} else {
|
||||
se->next = sp;
|
||||
}
|
||||
se = sp;
|
||||
}
|
||||
close(fd);
|
||||
|
||||
/*
|
||||
* Execute the script
|
||||
*/
|
||||
#ifndef BOOT_FORTH
|
||||
argv = NULL;
|
||||
#else
|
||||
prevsrcid = bf_vm->sourceID.i;
|
||||
bf_vm->sourceID.i = fd;
|
||||
#endif
|
||||
res = CMD_OK;
|
||||
for (sp = script; sp != NULL; sp = sp->next) {
|
||||
|
||||
#ifdef BOOT_FORTH
|
||||
res = bf_run(sp->text);
|
||||
if (res != VM_OUTOFTEXT) {
|
||||
snprintf(command_errbuf, sizeof(command_errbuf),
|
||||
"Error while including %s, in the line:\n%s",
|
||||
filename, sp->text);
|
||||
res = CMD_ERROR;
|
||||
break;
|
||||
} else
|
||||
res = CMD_OK;
|
||||
#else
|
||||
/* print if not being quiet */
|
||||
if (!(sp->flags & SL_QUIET)) {
|
||||
prompt();
|
||||
printf("%s\n", sp->text);
|
||||
}
|
||||
|
||||
/* Parse the command */
|
||||
if (!parse(&argc, &argv, sp->text)) {
|
||||
if ((argc > 0) && (perform(argc, argv) != 0)) {
|
||||
/* normal command */
|
||||
printf("%s: %s\n", argv[0], command_errmsg);
|
||||
if (!(sp->flags & SL_IGNOREERR)) {
|
||||
res=CMD_ERROR;
|
||||
break;
|
||||
}
|
||||
}
|
||||
free(argv);
|
||||
argv = NULL;
|
||||
} else {
|
||||
printf("%s line %d: parse error\n", filename, sp->line);
|
||||
res=CMD_ERROR;
|
||||
break;
|
||||
}
|
||||
#endif
|
||||
}
|
||||
#ifndef BOOT_FORTH
|
||||
if (argv != NULL)
|
||||
free(argv);
|
||||
#else
|
||||
bf_vm->sourceID.i = prevsrcid;
|
||||
#endif
|
||||
while(script != NULL) {
|
||||
se = script;
|
||||
script = script->next;
|
||||
free(se);
|
||||
}
|
||||
return(res);
|
||||
}
|
||||
|
||||
/*
|
||||
* Emit the current prompt; use the same syntax as the parser
|
||||
* for embedding environment variables.
|
||||
*/
|
||||
void
|
||||
static void
|
||||
prompt(void)
|
||||
{
|
||||
char *pr, *p, *cp, *ev;
|
||||
|
@ -1,87 +0,0 @@
|
||||
/*-
|
||||
* Copyright (c) 2011 Wojciech A. Koszek <wkoszek@FreeBSD.org>
|
||||
* Copyright (c) 2014 Pedro Souza <pedrosouza@freebsd.org>
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
||||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
* SUCH DAMAGE.
|
||||
*
|
||||
* $FreeBSD$
|
||||
*/
|
||||
|
||||
typedef void interp_init_t(void *ctx);
|
||||
typedef int interp_run_t(void *ctx, const char *input);
|
||||
typedef int interp_incl_t(void *ctx, const char *filename);
|
||||
typedef int interp_load_def_t(void *ctx); // load default configuration files
|
||||
|
||||
struct interp {
|
||||
interp_init_t *init;
|
||||
interp_run_t *run;
|
||||
interp_incl_t *incl;
|
||||
interp_load_def_t *load_configs;
|
||||
void *context;
|
||||
};
|
||||
|
||||
#define INTERP_INIT(i) do { \
|
||||
if (((i) != NULL) && ((i)->init != NULL)) { \
|
||||
((i)->init((i)->context)); \
|
||||
} \
|
||||
} while (0)
|
||||
|
||||
#define INTERP_RUN(i, input) \
|
||||
((i)->run(((i)->context), input))
|
||||
|
||||
#define INTERP_INCL(i, filename) \
|
||||
((i)->incl(((i)->context), filename))
|
||||
|
||||
#define INTERP_LOAD_DEF_CONFIG(i) \
|
||||
((i)->load_configs(((i)->context)))
|
||||
|
||||
|
||||
|
||||
extern struct interp boot_interp_simple;
|
||||
extern struct interp boot_interp_forth;
|
||||
extern struct interp boot_interp_lua;
|
||||
|
||||
|
||||
extern struct interp *interp;
|
||||
|
||||
int perform(int argc, char *argv[]);
|
||||
void prompt(void);
|
||||
|
||||
/*
|
||||
* Default config loader for interp_simple & intep_forth
|
||||
* Use it if your interpreter does not use a custom config
|
||||
* file.
|
||||
*
|
||||
* Calls interp->include with 'loader.rc' or 'boot.conf'
|
||||
*/
|
||||
int default_load_config(void *ctx);
|
||||
|
||||
struct includeline
|
||||
{
|
||||
struct includeline *next;
|
||||
int flags;
|
||||
int line;
|
||||
#define SL_QUIET (1<<0)
|
||||
#define SL_IGNOREERR (1<<1)
|
||||
char text[0];
|
||||
};
|
@ -1,6 +1,5 @@
|
||||
/*-
|
||||
* Copyright (c) 1998 Michael Smith <msmith@freebsd.org>
|
||||
* Copyright (c) 2011 Wojciech A. Koszek <wkoszek@FreeBSD.org>
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
@ -33,7 +32,6 @@ __FBSDID("$FreeBSD$");
|
||||
#include <stand.h>
|
||||
#include "bootstrap.h"
|
||||
#include "ficl.h"
|
||||
#include "interp.h"
|
||||
|
||||
extern unsigned bootprog_rev;
|
||||
|
||||
@ -62,14 +60,9 @@ extern unsigned bootprog_rev;
|
||||
/*
|
||||
* BootForth Interface to Ficl Forth interpreter.
|
||||
*/
|
||||
struct interp_forth_softc {
|
||||
FICL_SYSTEM *bf_sys;
|
||||
FICL_VM *bf_vm;
|
||||
FICL_WORD *pInterp;
|
||||
};
|
||||
struct interp_forth_softc forth_softc = { NULL, NULL, NULL };
|
||||
|
||||
#define RETURN(x) stackPushINT(bf_vm->pStack,!x); return(x)
|
||||
FICL_SYSTEM *bf_sys;
|
||||
FICL_VM *bf_vm;
|
||||
|
||||
/*
|
||||
* Shim for taking commands from BF and passing them out to 'standard'
|
||||
@ -145,8 +138,6 @@ bf_command(FICL_VM *vm)
|
||||
result=BF_PARSE;
|
||||
}
|
||||
|
||||
/* XXX Not sure about the rest of this -- imp */
|
||||
|
||||
switch (result) {
|
||||
case CMD_CRIT:
|
||||
printf("%s\n", command_errmsg);
|
||||
@ -258,22 +249,15 @@ bf_command(FICL_VM *vm)
|
||||
/*
|
||||
* Initialise the Forth interpreter, create all our commands as words.
|
||||
*/
|
||||
static void
|
||||
interp_forth_init(void *ctx)
|
||||
void
|
||||
bf_init(const char *rc)
|
||||
{
|
||||
struct interp_forth_softc *softc;
|
||||
struct bootblk_command **cmdp;
|
||||
char create_buf[41]; /* 31 characters-long builtins */
|
||||
FICL_SYSTEM *bf_sys;
|
||||
FICL_VM *bf_vm;
|
||||
int fd;
|
||||
|
||||
softc = ctx;
|
||||
|
||||
assert((softc->bf_sys == NULL) && (softc->bf_vm == NULL) &&
|
||||
(softc->pInterp == NULL)); /* No Forth context at this stage */
|
||||
|
||||
bf_sys = softc->bf_sys = ficlInitSystem(BF_DICTSIZE);
|
||||
bf_vm = softc->bf_vm = ficlNewVM(bf_sys);
|
||||
bf_sys = ficlInitSystem(BF_DICTSIZE);
|
||||
bf_vm = ficlNewVM(bf_sys);
|
||||
|
||||
/* Put all private definitions in a "builtins" vocabulary */
|
||||
ficlExec(bf_vm, "vocabulary builtins also builtins definitions");
|
||||
@ -294,20 +278,28 @@ interp_forth_init(void *ctx)
|
||||
/* Export some version numbers so that code can detect the loader/host version */
|
||||
ficlSetEnv(bf_sys, "FreeBSD_version", __FreeBSD_version);
|
||||
ficlSetEnv(bf_sys, "loader_version", bootprog_rev);
|
||||
|
||||
/* try to load and run init file if present */
|
||||
if (rc == NULL)
|
||||
rc = "/boot/boot.4th";
|
||||
if (*rc != '\0') {
|
||||
fd = open(rc, O_RDONLY);
|
||||
if (fd != -1) {
|
||||
(void)ficlExecFD(bf_vm, fd);
|
||||
close(fd);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* Feed a line of user input to the Forth interpreter
|
||||
*/
|
||||
static int
|
||||
interp_forth_run(void *ctx, const char *line)
|
||||
int
|
||||
bf_run(char *line)
|
||||
{
|
||||
struct interp_forth_softc *softc;
|
||||
int result;
|
||||
|
||||
softc = ctx;
|
||||
|
||||
result = ficlExec(softc->bf_vm, (char *)line);
|
||||
result = ficlExec(bf_vm, line);
|
||||
|
||||
DEBUG("ficlExec '%s' = %d", line, result);
|
||||
switch (result) {
|
||||
@ -334,34 +326,7 @@ interp_forth_run(void *ctx, const char *line)
|
||||
|
||||
if (result == VM_USEREXIT)
|
||||
panic("interpreter exit");
|
||||
setenv("interpret", softc->bf_vm->state ? "" : "OK", 1);
|
||||
setenv("interpret", bf_vm->state ? "" : "OK", 1);
|
||||
|
||||
return (result);
|
||||
}
|
||||
|
||||
static int
|
||||
interp_forth_incl(void *ctx, const char *filename)
|
||||
{
|
||||
struct interp_forth_softc *softc;
|
||||
int fd;
|
||||
|
||||
softc = ctx;
|
||||
|
||||
fd = open(filename, O_RDONLY);
|
||||
if (fd == -1) {
|
||||
/* Hihger layers print the error message */
|
||||
snprintf(command_errbuf, sizeof(command_errbuf),
|
||||
"can't open %s\n", filename);
|
||||
return (CMD_ERROR);
|
||||
}
|
||||
return (ficlExecFD(softc->bf_vm, fd));
|
||||
}
|
||||
|
||||
|
||||
struct interp boot_interp_forth = {
|
||||
.init = interp_forth_init,
|
||||
.run = interp_forth_run,
|
||||
.incl = interp_forth_incl,
|
||||
.load_configs = default_load_config,
|
||||
.context = &forth_softc
|
||||
};
|
||||
|
@ -1,183 +0,0 @@
|
||||
/*-
|
||||
* Copyright (c) 2011 Wojciech A. Koszek <wkoszek@FreeBSD.org>
|
||||
* Copyright (c) 2014 Pedro Souza <pedrosouza@freebsd.org>
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
||||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
* SUCH DAMAGE.
|
||||
*
|
||||
*/
|
||||
|
||||
#include <sys/cdefs.h>
|
||||
__FBSDID("$FreeBSD$");
|
||||
|
||||
#include <stand.h>
|
||||
#include <string.h>
|
||||
#include "bootstrap.h"
|
||||
#include "interp.h"
|
||||
|
||||
struct interp_simple_softc {
|
||||
int dummy;
|
||||
};
|
||||
|
||||
static void
|
||||
interp_simple_init(void *ctx)
|
||||
{
|
||||
|
||||
(void)ctx; /* Silent the compiler */
|
||||
}
|
||||
|
||||
static int
|
||||
interp_simple_run(void *ctx, const char *input)
|
||||
{
|
||||
struct interp_simple_softc *softc;
|
||||
int argc;
|
||||
char **argv;
|
||||
|
||||
softc = ctx;
|
||||
(void)softc; /* Currently unused */
|
||||
|
||||
if (!parse(&argc, &argv, input)) {
|
||||
if (perform(argc, argv))
|
||||
printf("%s: %s\n", argv[0], command_errmsg);
|
||||
free(argv);
|
||||
} else {
|
||||
printf("parse error\n");
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
static int
|
||||
interp_simple_incl(void *ctx, const char *filename)
|
||||
{
|
||||
struct includeline *script, *se, *sp;
|
||||
char input[256]; /* big enough? */
|
||||
int argc,res;
|
||||
char **argv, *cp;
|
||||
int fd, flags, line;
|
||||
|
||||
(void)ctx; /* Silent the compiler */
|
||||
|
||||
if (((fd = open(filename, O_RDONLY)) == -1)) {
|
||||
sprintf(command_errbuf,"can't open '%s': %s\n", filename, strerror(errno));
|
||||
return(CMD_ERROR);
|
||||
}
|
||||
|
||||
/*
|
||||
* Read the script into memory.
|
||||
*/
|
||||
script = se = NULL;
|
||||
line = 0;
|
||||
|
||||
while (fgetstr(input, sizeof(input), fd) >= 0) {
|
||||
line++;
|
||||
flags = 0;
|
||||
/* Discard comments */
|
||||
if (strncmp(input+strspn(input, " "), "\\ ", 2) == 0)
|
||||
continue;
|
||||
cp = input;
|
||||
/* Echo? */
|
||||
if (input[0] == '@') {
|
||||
cp++;
|
||||
flags |= SL_QUIET;
|
||||
}
|
||||
/* Error OK? */
|
||||
if (input[0] == '-') {
|
||||
cp++;
|
||||
flags |= SL_IGNOREERR;
|
||||
}
|
||||
/* Allocate script line structure and copy line, flags */
|
||||
if (*cp == '\0')
|
||||
continue; /* ignore empty line, save memory */
|
||||
sp = malloc(sizeof(struct includeline) + strlen(cp) + 1);
|
||||
/* On malloc failure (it happens!), free as much as possible and exit */
|
||||
if (sp == NULL) {
|
||||
while (script != NULL) {
|
||||
se = script;
|
||||
script = script->next;
|
||||
free(se);
|
||||
}
|
||||
sprintf(command_errbuf, "file '%s' line %d: memory allocation "
|
||||
"failure - aborting\n", filename, line);
|
||||
return (CMD_ERROR);
|
||||
}
|
||||
strcpy(sp->text, cp);
|
||||
sp->flags = flags;
|
||||
sp->line = line;
|
||||
sp->next = NULL;
|
||||
|
||||
if (script == NULL) {
|
||||
script = sp;
|
||||
} else {
|
||||
se->next = sp;
|
||||
}
|
||||
se = sp;
|
||||
}
|
||||
close(fd);
|
||||
|
||||
/*
|
||||
* Execute the script
|
||||
*/
|
||||
argv = NULL;
|
||||
res = CMD_OK;
|
||||
for (sp = script; sp != NULL; sp = sp->next) {
|
||||
|
||||
/* print if not being quiet */
|
||||
if (!(sp->flags & SL_QUIET)) {
|
||||
prompt();
|
||||
printf("%s\n", sp->text);
|
||||
}
|
||||
|
||||
/* Parse the command */
|
||||
if (!parse(&argc, &argv, sp->text)) {
|
||||
if ((argc > 0) && (perform(argc, argv) != 0)) {
|
||||
/* normal command */
|
||||
printf("%s: %s\n", argv[0], command_errmsg);
|
||||
if (!(sp->flags & SL_IGNOREERR)) {
|
||||
res=CMD_ERROR;
|
||||
break;
|
||||
}
|
||||
}
|
||||
free(argv);
|
||||
argv = NULL;
|
||||
} else {
|
||||
printf("%s line %d: parse error\n", filename, sp->line);
|
||||
res=CMD_ERROR;
|
||||
break;
|
||||
}
|
||||
}
|
||||
if (argv != NULL)
|
||||
free(argv);
|
||||
while(script != NULL) {
|
||||
se = script;
|
||||
script = script->next;
|
||||
free(se);
|
||||
}
|
||||
return(res);
|
||||
}
|
||||
|
||||
struct interp boot_interp_simple = {
|
||||
.init = interp_simple_init,
|
||||
.run = interp_simple_run,
|
||||
.incl = interp_simple_incl,
|
||||
.load_configs = default_load_config,
|
||||
.context = NULL
|
||||
};
|
@ -501,7 +501,7 @@ main(int argc, CHAR16 *argv[])
|
||||
#endif
|
||||
}
|
||||
|
||||
interact(); /* doesn't return */
|
||||
interact(NULL); /* doesn't return */
|
||||
|
||||
return (EFI_SUCCESS); /* keep compiler happy */
|
||||
}
|
||||
|
@ -232,7 +232,7 @@ main(void)
|
||||
|
||||
bios_getsmap();
|
||||
|
||||
interact();
|
||||
interact(NULL);
|
||||
|
||||
/* if we ever get here, it is an error */
|
||||
return (1);
|
||||
|
@ -59,8 +59,6 @@ SRCS+= pnp.c
|
||||
.if ${MK_FORTH} != "no"
|
||||
SRCS+= interp_forth.c
|
||||
.include "${BOOTSRC}/ficl.mk"
|
||||
.else
|
||||
SRCS+= interp_simple.c
|
||||
.endif
|
||||
|
||||
.if defined(BOOT_PROMPT_123)
|
||||
|
@ -149,7 +149,7 @@ main(int argc, char *argv[], char *envv[], struct bootinfo *bootinfop)
|
||||
printf("bootpath=\"%s\"\n", bootpath);
|
||||
#endif
|
||||
|
||||
interact();
|
||||
interact(NULL);
|
||||
return (0);
|
||||
}
|
||||
|
||||
|
@ -157,7 +157,7 @@ main(int (*openfirm)(void *))
|
||||
archsw.arch_readin = ofw_readin;
|
||||
archsw.arch_autoload = ofw_autoload;
|
||||
|
||||
interact(); /* doesn't return */
|
||||
interact(NULL); /* doesn't return */
|
||||
|
||||
OF_exit();
|
||||
|
||||
|
@ -122,7 +122,7 @@ main(int argc, const char **argv)
|
||||
setenv("loaddev", bootdev, 1);
|
||||
setenv("LINES", "24", 1);
|
||||
|
||||
interact(); /* doesn't return */
|
||||
interact(NULL); /* doesn't return */
|
||||
|
||||
return (0);
|
||||
}
|
||||
|
@ -140,7 +140,7 @@ main(void)
|
||||
setenv("LINES", "24", 1);
|
||||
setenv("hw.platform", "ps3", 1);
|
||||
|
||||
interact(); /* doesn't return */
|
||||
interact(NULL); /* doesn't return */
|
||||
|
||||
return (0);
|
||||
}
|
||||
|
@ -902,7 +902,7 @@ main(int (*openfirm)(void *))
|
||||
printf("bootpath=\"%s\"\n", bootpath);
|
||||
|
||||
/* Give control to the machine independent loader code. */
|
||||
interact();
|
||||
interact(NULL);
|
||||
return (1);
|
||||
}
|
||||
|
||||
|
@ -500,7 +500,7 @@ main(int argc, char **argv)
|
||||
archsw.arch_readin = uboot_readin;
|
||||
archsw.arch_autoload = uboot_autoload;
|
||||
|
||||
interact(); /* doesn't return */
|
||||
interact(NULL); /* doesn't return */
|
||||
|
||||
return (0);
|
||||
}
|
||||
|
@ -142,7 +142,7 @@ loader_main(struct loader_callbacks *cb, void *arg, int version, int ndisks)
|
||||
if (setjmp(jb))
|
||||
return;
|
||||
|
||||
interact(); /* doesn't return */
|
||||
interact(NULL); /* doesn't return */
|
||||
|
||||
exit(0);
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user