afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <sys/types.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <sys/stat.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <fcntl.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <errno.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <stdlib.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <stdio.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <string.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <strings.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <limits.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <unistd.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <dirent.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <macros.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <sys/systeminfo.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <sys/queue.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include <sys/mnttab.h>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#include "ficl.h"

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soometypedef int (bootblk_cmd_t)(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define CMD_OK 0

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define CMD_ERROR 1

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestruct bootblk_command

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome const char *c_name;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome const char *c_desc;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome bootblk_cmd_t *c_fn;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_ENTRY(bootblk_command) next;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome};

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define MDIR_REMOVED 0x0001

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define MDIR_NOHINTS 0x0002

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestruct moduledir {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *d_path; /* path of modules directory */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome uchar_t *d_hints; /* content of linker.hints file */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int d_hintsz; /* size of hints data */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int d_flags;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_ENTRY(moduledir) d_link;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome};

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic STAILQ_HEAD(, moduledir) moduledir_list =

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_HEAD_INITIALIZER(moduledir_list);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic const char *default_searchpath = "/platform/i86pc";

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic char typestr[] = "?fc?d?b? ?l?s?w";

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int ls_getdir(char **pathp);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeextern char **_environ;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomechar *command_errmsg;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomechar command_errbuf[256];

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeextern void pager_open(void);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeextern void pager_close(void);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeextern int pager_output(const char *);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeextern int pager_file(const char *);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int page_file(char *);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int include(const char *);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_help(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_commandlist(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_show(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_set(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_setprop(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_unset(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_echo(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_read(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_more(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_ls(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_include(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_autoboot(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_boot(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_unload(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_load(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int command_reboot(int argc, char *argv[]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define BF_PARSE 100

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define BF_DICTSIZE 30000

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic const char bootprog_rev[] = "1.1";

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas SoomeSTAILQ_HEAD(cmdh, bootblk_command) commands;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas SoomeficlSystem *bf_sys;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas SoomeficlVm *bf_vm;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic void clean(void);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int insert(int *argcp, char *buf);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define PARSE_BUFSIZE 1024 /* maximum size of one element */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define MAXARGS 20 /* maximum number of elements */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic char *args[MAXARGS];

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define DIGIT(x) \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (isdigit(x) ? (x) - '0' : islower(x) ? (x) + 10 - 'a' : (x) + 10 - 'A')

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomechar *

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomebackslash(char *str)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /*

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *new_str;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int seenbs = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int i = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((new_str = strdup(str)) == NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (NULL);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome while (*str) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (seenbs) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome seenbs = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome switch (*str) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case '\\':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = '\\';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* preserve backslashed quotes, dollar signs */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case '\'':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case '"':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case '$':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = '\\';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = *str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 'b':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = '\b';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 'f':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = '\f';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 'r':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = '\r';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 'n':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = '\n';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 's':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = ' ';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 't':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = '\t';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 'v':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = '\13';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 'z':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case '0': case '1': case '2': case '3': case '4':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case '5': case '6': case '7': case '8': case '9': {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char val;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* Three digit octal constant? */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (*str >= '0' && *str <= '3' &&

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *(str + 1) >= '0' && *(str + 1) <= '7' &&

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *(str + 2) >= '0' && *(str + 2) <= '7') {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome val = (DIGIT(*str) << 6) +

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (DIGIT(*(str + 1)) << 3) +

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome DIGIT(*(str + 2));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /*

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = val;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str += 3;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /*

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (*str == '0' &&

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (*(str + 1) == 'x' || *(str + 1) == 'X') &&

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome isxdigit(*(str + 2))) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome val = DIGIT(*(str + 2));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (isxdigit(*(str + 3))) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome val = (val << 4) +

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome DIGIT(*(str + 3));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str += 4;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str += 3;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* Yep, allow null value here too */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = val;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome default:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = *str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (*str == '\\') {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome seenbs = 1;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = *str++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (seenbs) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /*

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i++] = '\\';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome new_str[i] = '\0';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (new_str);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define PARSE_FAIL(expr) \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeif (expr) { \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome printf("fail at line %d\n", __LINE__); \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome clean(); \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(copy); \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(buf); \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (1); \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic char

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeisdelim(int ch)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (ch == '{')

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return ('}');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome else if (ch == '(')

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (')');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return ('\0');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeisquote(int ch)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (ch == '\'');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeisdquote(int ch)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (ch == '"');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeparse(int *argc, char ***argv, char *str)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int ac;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *val, *p, *q, *copy = NULL;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome size_t i = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char token, tmp, quote, dquote, *buf;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome enum { STR, VAR, WHITE } state;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ac = *argc = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome dquote = quote = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (!str || (p = copy = backslash(str)) == NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* Initialize vector and state */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome clean();

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome state = STR;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf = (char *)malloc(PARSE_BUFSIZE);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome token = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* And awaaaaaaaaay we go! */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome while (*p) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome switch (state) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case STR:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((*p == '\\') && p[1]) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome p++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome PARSE_FAIL(i == (PARSE_BUFSIZE - 1));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf[i++] = *p++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else if (isquote(*p)) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome quote = quote ? 0 : *p;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (dquote) { /* keep quote */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome PARSE_FAIL(i == (PARSE_BUFSIZE - 1));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf[i++] = *p++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ++p;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else if (isdquote(*p)) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome dquote = dquote ? 0 : *p;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (quote) { /* keep dquote */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome PARSE_FAIL(i == (PARSE_BUFSIZE - 1));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf[i++] = *p++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ++p;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else if (isspace(*p) && !quote && !dquote) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome state = WHITE;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (i) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf[i] = '\0';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome PARSE_FAIL(insert(&ac, buf));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome i = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ++p;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else if (*p == '$' && !quote) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome token = isdelim(*(p + 1));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (token)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome p += 2;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome else

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ++p;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome state = VAR;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome PARSE_FAIL(i == (PARSE_BUFSIZE - 1));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf[i++] = *p++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case WHITE:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (isspace(*p))

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ++p;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome else

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome state = STR;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case VAR:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (token) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome PARSE_FAIL((q = strchr(p, token)) == NULL);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome q = p;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome while (*q && !isspace(*q))

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ++q;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome tmp = *q;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *q = '\0';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((val = getenv(p)) != NULL) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome size_t len = strlen(val);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome strncpy(buf + i, val, PARSE_BUFSIZE - (i + 1));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome i += min(len, PARSE_BUFSIZE - 1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *q = tmp; /* restore value */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome p = q + (token ? 1 : 0);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome state = STR;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* missing terminating ' or " */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome PARSE_FAIL(quote || dquote);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* If at end of token, add it */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (i && state == STR) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf[i] = '\0';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome PARSE_FAIL(insert(&ac, buf));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome args[ac] = NULL;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *argc = ac;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *argv = (char **)malloc((sizeof (char *) * ac + 1));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome bcopy(args, *argv, sizeof (char *) * ac + 1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(buf);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(copy);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (0);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define MAXARGS 20

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic void

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeclean(void)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int i;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome for (i = 0; i < MAXARGS; i++) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (args[i] != NULL) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(args[i]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome args[i] = NULL;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeinsert(int *argcp, char *buf)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (*argcp >= MAXARGS)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome args[(*argcp)++] = strdup(buf);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (0);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic char *

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeisadir(void)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *buf;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome size_t bufsize = 20;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int ret;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((buf = malloc(bufsize)) == NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (NULL);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ret = sysinfo(SI_ARCHITECTURE_K, buf, bufsize);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (ret == -1) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(buf);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (NULL);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (buf);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic void

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomebf_command(ficlVm *vm)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *name, *line, *tail, *cp;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome size_t len;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome struct bootblk_command *cmdp;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome bootblk_cmd_t *cmd;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int nstrings, i;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int argc, result;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char **argv;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* Get the name of the current word */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome name = vm->runningWord->name;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* Find our command structure */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cmd = NULL;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_FOREACH(cmdp, &commands, next) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((cmdp->c_name != NULL) && strcmp(name, cmdp->c_name) == 0)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cmd = cmdp->c_fn;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (cmd == NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome printf("callout for unknown command '%s'\n", name);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* Check whether we have been compiled or are being interpreted */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (ficlStackPopInteger(ficlVmGetDataStack(vm))) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /*

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome nstrings = ficlStackPopInteger(ficlVmGetDataStack(vm));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome for (i = 0, len = 0; i < nstrings; i++)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome len += ficlStackFetch(ficlVmGetDataStack(vm), i * 2).i + 1;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome line = malloc(strlen(name) + len + 1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome strcpy(line, name);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (nstrings)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome for (i = 0; i < nstrings; i++) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome len = ficlStackPopInteger(

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlVmGetDataStack(vm));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cp = ficlStackPopPointer(

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlVmGetDataStack(vm));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome strcat(line, " ");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome strncat(line, cp, len);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* Get remainder of invocation */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome tail = ficlVmGetInBuf(vm);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome for (cp = tail, len = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cp != vm->tib.end && *cp != 0 && *cp != '\n'; cp++, len++)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome line = malloc(strlen(name) + len + 2);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome strcpy(line, name);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (len > 0) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome strcat(line, " ");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome strncat(line, tail, len);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlVmUpdateTib(vm, tail + len);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome command_errmsg = command_errbuf;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome command_errbuf[0] = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (!parse(&argc, &argv, line)) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome result = (cmd)(argc, argv);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(argv);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome result = BF_PARSE;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(line);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /*

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (result != 0)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlVmThrow(vm, result);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* This is going to be thrown!!! */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlStackPushInteger(ficlVmGetDataStack(vm), result);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic char *

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeget_currdev(void)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int ret;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *currdev;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome FILE *fp;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome struct mnttab mpref = {0};

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome struct mnttab mp = {0};

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome mpref.mnt_mountp = "/";

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome fp = fopen(MNTTAB, "r");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* do the best we can to return something... */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (fp == NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (strdup(":"));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ret = getmntany(fp, &mp, &mpref);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (void) fclose(fp);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (ret == 0)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (void) asprintf(&currdev, "zfs:%s:", mp.mnt_special);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome else

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (strdup(":"));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (currdev);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define BUILTIN_CONSTRUCTOR \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome": builtin: " \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome">in @ " /* save the tib index pointer */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"' " /* get next word's xt */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"swap >in ! " /* point again to next word */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"create " /* create a new definition of the next word */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome", " /* save previous definition's xt */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"immediate " /* make the new definition an immediate word */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"does> " /* Now, the *new* definition will: */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"state @ if " /* if in compiling state: */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"1 postpone literal " /* pass 1 flag to indicate compile */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"@ compile, " /* compile in previous definition */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"postpone throw " /* throw stack-returned result */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"else " /* if in interpreting state: */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"0 swap " /* pass 0 flag to indicate interpret */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"@ execute " /* call previous definition */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome"throw " /* throw stack-returned result */ \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeextern int ficlExecFD(ficlVm *, int);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome#define COMMAND_SET(ptr, name, desc, fn) \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ptr = malloc(sizeof (struct bootblk_command)); \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ptr->c_name = (name); \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ptr->c_desc = (desc); \

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ptr->c_fn = (fn);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas SoomeficlVm *

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomebf_init(const char *rc, ficlOutputFunction out)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome struct bootblk_command *cmdp;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char create_buf[41]; /* 31 characters-long builtins */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *buf;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int fd, rv;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlSystemInformation *fsi;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlDictionary *dict;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlDictionary *env;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* set up commands list */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INIT(&commands);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "help", "detailed help", command_help);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "?", "list commands", command_commandlist);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "show", "show variable(s)", command_show);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "printenv", "show variable(s)", command_show);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "set", "set a variable", command_set);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "setprop", "set a variable", command_setprop);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "unset", "unset a variable", command_unset);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "echo", "echo arguments", command_echo);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "read", "read input from the terminal", command_read);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "more", "show contents of a file", command_more);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "ls", "list files", command_ls);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "include", "read commands from a file",

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome command_include);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "boot", "boot a file or loaded kernel", command_boot);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "autoboot", "boot automatically after a delay",

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome command_autoboot);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "load", "load a kernel or module", command_load);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "unload", "unload all modules", command_unload);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome COMMAND_SET(cmdp, "reboot", "reboot the system", command_reboot);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_INSERT_TAIL(&commands, cmdp, next);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome fsi = malloc(sizeof (ficlSystemInformation));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlSystemInformationInitialize(fsi);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome fsi->textOut = out;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome fsi->dictionarySize = BF_DICTSIZE;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome bf_sys = ficlSystemCreate(fsi);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(fsi);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlSystemCompileExtras(bf_sys);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome bf_vm = ficlSystemCreateVm(bf_sys);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf = isadir();

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (buf == NULL || strcmp(buf, "amd64") != 0) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (void) setenv("ISADIR", "", 1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (void) setenv("ISADIR", buf, 1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (buf != NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(buf);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf = get_currdev();

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (void) setenv("currdev", buf, 1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(buf);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* Put all private definitions in a "builtins" vocabulary */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome rv = ficlVmEvaluate(bf_vm,

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome "vocabulary builtins also builtins definitions");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (rv != FICL_VM_STATUS_OUT_OF_TEXT) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome printf("error interpreting forth: %d\n", rv);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome exit(1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* Builtin constructor word */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome rv = ficlVmEvaluate(bf_vm, BUILTIN_CONSTRUCTOR);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (rv != FICL_VM_STATUS_OUT_OF_TEXT) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome printf("error interpreting forth: %d\n", rv);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome exit(1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* make all commands appear as Forth words */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome dict = ficlSystemGetDictionary(bf_sys);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cmdp = NULL;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_FOREACH(cmdp, &commands, next) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlDictionaryAppendPrimitive(dict, (char *)cmdp->c_name,

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome bf_command, FICL_WORD_DEFAULT);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome rv = ficlVmEvaluate(bf_vm, "forth definitions builtins");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (rv != FICL_VM_STATUS_OUT_OF_TEXT) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome printf("error interpreting forth: %d\n", rv);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome exit(1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome sprintf(create_buf, "builtin: %s", cmdp->c_name);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome rv = ficlVmEvaluate(bf_vm, create_buf);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (rv != FICL_VM_STATUS_OUT_OF_TEXT) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome printf("error interpreting forth: %d\n", rv);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome exit(1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome rv = ficlVmEvaluate(bf_vm, "builtins definitions");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (rv != FICL_VM_STATUS_OUT_OF_TEXT) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome printf("error interpreting forth: %d\n", rv);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome exit(1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome rv = ficlVmEvaluate(bf_vm, "only forth definitions");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (rv != FICL_VM_STATUS_OUT_OF_TEXT) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome printf("error interpreting forth: %d\n", rv);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome exit(1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /*

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome env = ficlSystemGetEnvironment(bf_sys);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlDictionarySetConstant(env, "loader_version",

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (bootprog_rev[0] - '0') * 10 + (bootprog_rev[2] - '0'));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* try to load and run init file if present */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (rc == NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome rc = "/boot/forth/boot.4th";

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (*rc != '\0') {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome fd = open(rc, O_RDONLY);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (fd != -1) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (void) ficlExecFD(bf_vm, fd);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome close(fd);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (bf_vm);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomebf_fini(void)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlSystemDestroy(bf_sys);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomebf_run(char *line)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int result;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ficlString s;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome FICL_STRING_SET_FROM_CSTRING(s, line);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome result = ficlVmExecuteString(bf_vm, s);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome switch (result) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case FICL_VM_STATUS_OUT_OF_TEXT:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case FICL_VM_STATUS_ABORTQ:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case FICL_VM_STATUS_QUIT:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case FICL_VM_STATUS_ERROR_EXIT:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case FICL_VM_STATUS_USER_EXIT:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case FICL_VM_STATUS_ABORT:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome printf("Aborted!\n");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case BF_PARSE:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome printf("Parse error!\n");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome default:

32b706a1d3367746e0a3e15c957300631d4013d4Toomas Soome if (command_errmsg != NULL) {

32b706a1d3367746e0a3e15c957300631d4013d4Toomas Soome printf("%s\n", command_errmsg);

32b706a1d3367746e0a3e15c957300631d4013d4Toomas Soome command_errmsg = NULL;

32b706a1d3367746e0a3e15c957300631d4013d4Toomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome setenv("interpret", bf_vm->state ? "" : "ok", 1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (result);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomechar *

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeget_dev(const char *path)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome FILE *fp;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome struct mnttab mpref = {0};

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome struct mnttab mp = {0};

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *currdev;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int ret;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *buf;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *tmppath;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *tmpdev;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *cwd = NULL;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome fp = fopen(MNTTAB, "r");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* do the best we can to return something... */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (fp == NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (strdup(path));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /*

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf = strrchr(path, ':');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (buf != NULL) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome tmppath = buf+1; /* real path */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf = strchr(path, ':'); /* skip zfs: */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome tmpdev = strdup(buf);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf = strchr(tmpdev, ':'); /* get ending : */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *buf = '\0';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome tmppath = (char *)path;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (tmppath[0] != '/')

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((cwd = getcwd(NULL, PATH_MAX)) == NULL) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (void) fclose(fp);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (strdup(path));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome currdev = getenv("currdev");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf = strchr(currdev, ':'); /* skip zfs: */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (buf == NULL) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (void) fclose(fp);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (strdup(path));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome tmpdev = strdup(buf);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome buf = strchr(tmpdev, ':'); /* get ending : */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *buf = '\0';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome mpref.mnt_special = tmpdev;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ret = getmntany(fp, &mp, &mpref);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (void) fclose(fp);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(tmpdev);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (cwd == NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (void) asprintf(&buf, "%s/%s", ret? "":mp.mnt_mountp, tmppath);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome else {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (void) asprintf(&buf, "%s/%s/%s", ret? "":mp.mnt_mountp, cwd,

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome tmppath);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(cwd);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (buf);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic void

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomengets(char *buf, int n)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int c;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *lp;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome for (lp = buf; ; )

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome switch (c = getchar() & 0177) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case '\n':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case '\r':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *lp = '\0';

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome putchar('\n');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case '\b':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case '\177':

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (lp > buf) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome lp--;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome putchar('\b');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome putchar(' ');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome putchar('\b');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 'r'&037: {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *p;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome putchar('\n');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome for (p = buf; p < lp; ++p)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome putchar(*p);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 'u'&037:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 'w'&037:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome lp = buf;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome putchar('\n');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome default:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((n < 1) || ((lp - buf) < n - 1)) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *lp++ = c;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome putchar(c);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /*NOTREACHED*/

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomefgetstr(char *buf, int size, int fd)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char c;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int err, len;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome size--; /* leave space for terminator */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome len = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome while (size != 0) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome err = read(fd, &c, sizeof (c));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (err < 0) /* read error */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (-1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (err == 0) { /* EOF */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (len == 0)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (-1); /* nothing to read */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((c == '\r') || (c == '\n')) /* line terminators */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *buf++ = c; /* keep char */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome size--;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome len++;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *buf = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (len);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic char *

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeunargv(int argc, char *argv[])

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome size_t hlong;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int i;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *cp;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome for (i = 0, hlong = 0; i < argc; i++)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome hlong += strlen(argv[i]) + 2;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (hlong == 0)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (NULL);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cp = malloc(hlong);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cp[0] = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome for (i = 0; i < argc; i++) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome strcat(cp, argv[i]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (i < (argc - 1))

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome strcat(cp, " ");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (cp);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomehelp_getnext(int fd, char **topic, char **subtopic, char **desc)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char line[81], *cp, *ep;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome for (;;) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (fgetstr(line, 80, fd) < 0)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (0);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((strlen(line) < 3) || (line[0] != '#') || (line[1] != ' '))

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome continue;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *topic = *subtopic = *desc = NULL;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cp = line + 2;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome while ((cp != NULL) && (*cp != 0)) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ep = strchr(cp, ' ');

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((*cp == 'T') && (*topic == NULL)) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (ep != NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *ep++ = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *topic = strdup(cp + 1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else if ((*cp == 'S') && (*subtopic == NULL)) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (ep != NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *ep++ = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *subtopic = strdup(cp + 1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else if (*cp == 'D') {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *desc = strdup(cp + 1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ep = NULL;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cp = ep;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (*topic == NULL) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (*subtopic != NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(*subtopic);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (*desc != NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(*desc);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome continue;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (1);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomehelp_emitsummary(char *topic, char *subtopic, char *desc)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int i;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_output(" ");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_output(topic);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome i = strlen(topic);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (subtopic != NULL) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_output(" ");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_output(subtopic);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome i += strlen(subtopic) + 1;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (desc != NULL) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome do {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_output(" ");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } while (i++ < 30);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_output(desc);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (pager_output("\n"));

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomecommand_help(int argc, char *argv[])

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char buf[81]; /* XXX buffer size? */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int hfd, matched, doindex;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *topic, *subtopic, *t, *s, *d;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* page the help text from our load path */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome sprintf(buf, "/boot/loader.help");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((hfd = open(buf, O_RDONLY)) < 0) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome printf("Verbose help not available, "

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome "use '?' to list commands\n");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (CMD_OK);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* pick up request from arguments */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome topic = subtopic = NULL;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome switch (argc) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 3:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome subtopic = strdup(argv[2]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 2:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome topic = strdup(argv[1]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome case 1:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome topic = strdup("help");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome default:

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome command_errmsg = "usage is 'help <topic> [<subtopic>]";

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome close(hfd);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (CMD_ERROR);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* magic "index" keyword */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome doindex = strcmp(topic, "index") == 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome matched = doindex;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* Scan the helpfile looking for help matching the request */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_open();

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome while (help_getnext(hfd, &t, &s, &d)) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (doindex) { /* dink around formatting */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (help_emitsummary(t, s, d))

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else if (strcmp(topic, t)) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* topic mismatch */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* nothing more on this topic, stop scanning */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (matched)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* topic matched */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome matched = 1;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (((subtopic == NULL) && (s == NULL)) ||

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ((subtopic != NULL) && (s != NULL) &&

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome strcmp(subtopic, s) == 0)) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* exact match, print text */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome while ((fgetstr(buf, 80, hfd) >= 0) &&

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome (buf[0] != '#')) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (pager_output(buf))

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (pager_output("\n"))

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else if ((subtopic == NULL) && (s != NULL)) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /* topic match, list subtopics */

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (help_emitsummary(t, s, d))

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(t);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(s);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(d);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_close();

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome close(hfd);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (!matched) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome snprintf(command_errbuf, sizeof (command_errbuf),

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome "no help available for '%s'", topic);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(topic);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (subtopic)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(subtopic);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (CMD_ERROR);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(topic);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (subtopic)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(subtopic);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (CMD_OK);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomecommand_commandlist(int argc, char *argv[])

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome struct bootblk_command *cmdp;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int res;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char name[20];

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome res = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_open();

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome res = pager_output("Available commands:\n");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cmdp = NULL;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome STAILQ_FOREACH(cmdp, &commands, next) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (res)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((cmdp->c_name != NULL) && (cmdp->c_desc != NULL)) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome sprintf(name, " %-15s ", cmdp->c_name);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_output(name);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_output(cmdp->c_desc);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome res = pager_output("\n");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_close();

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (CMD_OK);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomecommand_show(int argc, char *argv[])

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char **ev;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *cp;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (argc < 2) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome /*

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_open();

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome for (ev = _environ; *ev != NULL; ev++) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_output(*ev);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cp = getenv(*ev);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (cp != NULL) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_output("=");

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_output(cp);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (pager_output("\n"))

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome break;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome pager_close();

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((cp = getenv(argv[1])) != NULL) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome printf("%s\n", cp);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome snprintf(command_errbuf, sizeof (command_errbuf),

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome "variable '%s' not found", argv[1]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (CMD_ERROR);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (CMD_OK);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomecommand_set(int argc, char *argv[])

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome int err;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome char *value, *copy;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (argc != 2) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome command_errmsg = "wrong number of arguments";

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (CMD_ERROR);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome } else {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome copy = strdup(argv[1]);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if (copy == NULL) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome command_errmsg = strerror(errno);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (CMD_ERROR);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((value = strchr(copy, '=')) != NULL)

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome *(value++) = 0;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome else

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome value = "";

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome if ((err = setenv(copy, value, 1)) != 0) {

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(copy);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome command_errmsg = strerror(errno);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (CMD_ERROR);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome free(copy);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome return (CMD_OK);

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome}

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomestatic int