ref: b548687a8ed1d0a159c9d3f3f921d93bbb56908e
dir: /os/boot.original/pc/conf.c/
#include "u.h"
#include "lib.h"
#include "mem.h"
#include "dat.h"
#include "fns.h"
#include "io.h"
#include "fs.h"
/*
* Where configuration info is left for the loaded programme.
* This will turn into a structure as more is done by the boot loader
* (e.g. why parse the .ini file twice?).
* There are 3584 bytes available at CONFADDR.
*
* The low-level boot routines in l.s leave data for us at CONFADDR,
* which we pick up before reading the plan9.ini file.
*/
#define BOOTLINELEN 64
#define BOOTARGS ((char*)(CONFADDR+BOOTLINELEN))
#define BOOTARGSLEN (3584-0x200-BOOTLINELEN)
#define MAXCONF 100
static char *confname[MAXCONF];
static char *confval[MAXCONF];
static int nconf;
extern char **ini;
typedef struct {
char* name;
int start;
int end;
} Mblock;
typedef struct {
char* tag;
Mblock* mb;
} Mitem;
static Mblock mblock[MAXCONF];
static int nmblock;
static Mitem mitem[MAXCONF];
static int nmitem;
static char* mdefault;
static char mdefaultbuf[10];
static int mtimeout;
static char*
comma(char* line, char** residue)
{
char *q, *r;
if((q = strchr(line, ',')) != nil){
*q++ = 0;
if(*q == ' ')
q++;
}
*residue = q;
if((r = strchr(line, ' ')) != nil)
*r = 0;
if(*line == ' ')
line++;
return line;
}
static Mblock*
findblock(char* name, char** residue)
{
int i;
char *p;
p = comma(name, residue);
for(i = 0; i < nmblock; i++){
if(strcmp(p, mblock[i].name) == 0)
return &mblock[i];
}
return nil;
}
static Mitem*
finditem(char* name, char** residue)
{
int i;
char *p;
p = comma(name, residue);
for(i = 0; i < nmitem; i++){
if(strcmp(p, mitem[i].mb->name) == 0)
return &mitem[i];
}
return nil;
}
static void
parsemenu(char* str, char* scratch, int len)
{
Mitem *mi;
Mblock *mb, *menu;
char buf[20], *p, *q, *line[MAXCONF];
int i, inblock, n, show;
inblock = 0;
menu = nil;
memmove(scratch, str, len);
n = getfields(scratch, line, MAXCONF, '\n');
if(n >= MAXCONF)
print("warning: possibly too many lines in plan9.ini\n");
for(i = 0; i < n; i++){
p = line[i];
if(inblock && *p == '['){
mblock[nmblock].end = i;
if(strcmp(mblock[nmblock].name, "menu") == 0)
menu = &mblock[nmblock];
nmblock++;
inblock = 0;
}
if(*p == '['){
if(nmblock == 0 && i != 0){
mblock[nmblock].name = "common";
mblock[nmblock].start = 0;
mblock[nmblock].end = i;
nmblock++;
}
q = strchr(p+1, ']');
if(q == nil || *(q+1) != 0){
print("malformed menu block header - %s\n", p);
return;
}
*q = 0;
mblock[nmblock].name = p+1;
mblock[nmblock].start = i+1;
inblock = 1;
}
}
if(inblock){
mblock[nmblock].end = i;
nmblock++;
}
if(menu == nil)
return;
if(nmblock < 2){
print("incomplete menu specification\n");
return;
}
for(i = menu->start; i < menu->end; i++){
p = line[i];
if(cistrncmp(p, "menuitem=", 9) == 0){
p += 9;
if((mb = findblock(p, &q)) == nil){
print("no block for menuitem %s\n", p);
return;
}
if(q != nil)
mitem[nmitem].tag = q;
else
mitem[nmitem].tag = mb->name;
mitem[nmitem].mb = mb;
nmitem++;
}
else if(cistrncmp(p, "menudefault=", 12) == 0){
p += 12;
if((mi = finditem(p, &q)) == nil){
print("no item for menudefault %s\n", p);
return;
}
if(q != nil)
mtimeout = strtol(q, 0, 0);
sprint(mdefaultbuf, "%ld", mi-mitem+1);
mdefault = mdefaultbuf;
}
else if(cistrncmp(p, "menuconsole=", 12) == 0){
p += 12;
p = comma(p, &q);
consinit(p, q);
}
else{
print("invalid line in [menu] block - %s\n", p);
return;
}
}
again:
print("\nPlan 9 Startup Menu:\n====================\n");
for(i = 0; i < nmitem; i++)
print(" %d. %s\n", i+1, mitem[i].tag);
for(;;){
getstr("Selection", buf, sizeof(buf), mdefault, mtimeout);
mtimeout = 0;
i = strtol(buf, &p, 0)-1;
if(i < 0 || i >= nmitem)
goto again;
switch(*p){
case 'p':
case 'P':
show = 1;
print("\n");
break;
case 0:
show = 0;
break;
default:
continue;
}
mi = &mitem[i];
p = str;
p += sprint(p, "menuitem=%s\n", mi->mb->name);
for(i = 0; i < nmblock; i++){
mb = &mblock[i];
if(mi->mb != mb && cistrcmp(mb->name, "common") != 0)
continue;
for(n = mb->start; n < mb->end; n++)
p += sprint(p, "%s\n", line[n]);
}
if(show){
for(q = str; q < p; q += i){
if((i = print(q)) <= 0)
break;
}
goto again;
}
break;
}
print("\n");
}
/*
static void
msleep(int msec)
{
ulong start;
for(start = m->ticks; TK2MS(m->ticks - start) < msec; )
;
}
*/
void
readlsconf(void)
{
uchar *p;
p = (uchar*)CONFADDR;
for(;;) {
if(strcmp((char*)p, "APM") == 0){
apm.haveinfo = 1;
apm.ax = *(ushort*)(p+4);
apm.cx = *(ushort*)(p+6);
apm.dx = *(ushort*)(p+8);
apm.di = *(ushort*)(p+10);
apm.ebx = *(ulong*)(p+12);
apm.esi = *(ulong*)(p+16);
print("apm ax=%x cx=%x dx=%x di=%x ebx=%x esi=%x\n",
apm.ax, apm.cx, apm.dx, apm.di, apm.ebx, apm.esi);
p += 20;
continue;
}
break;
}
}
char*
getconf(char *name)
{
int i, n, nmatch;
char buf[20];
nmatch = 0;
for(i = 0; i < nconf; i++)
if(cistrcmp(confname[i], name) == 0)
nmatch++;
switch(nmatch) {
default:
print("\n");
nmatch = 0;
for(i = 0; i < nconf; i++)
if(cistrcmp(confname[i], name) == 0)
print("%d. %s\n", ++nmatch, confval[i]);
print("%d. none of the above\n", ++nmatch);
do {
getstr(name, buf, sizeof(buf), nil, 0);
n = atoi(buf);
} while(n < 1 || n > nmatch);
for(i = 0; i < nconf; i++)
if(cistrcmp(confname[i], name) == 0)
if(--n == 0)
return confval[i];
break;
case 1:
for(i = 0; i < nconf; i++)
if(cistrcmp(confname[i], name) == 0)
return confval[i];
break;
case 0:
break;
}
return nil;
}
void
addconf(char *fmt, ...)
{
va_list arg;
va_start(arg, fmt);
vseprint(BOOTARGS+strlen(BOOTARGS), BOOTARGS+BOOTARGSLEN, fmt, arg);
va_end(arg);
}
void
changeconf(char *fmt, ...)
{
va_list arg;
char *p, *q, pref[20], buf[128];
va_start(arg, fmt);
vseprint(buf, buf+sizeof buf, fmt, arg);
va_end(arg);
strncpy(pref+1, buf, 19);
pref[19] = '\0';
if(p = strchr(pref, '='))
*(p+1) = '\0';
else
print("warning: did not change %s in plan9.ini\n", buf);
/* find old line by looking for \nwhat= */
pref[0] = '\n';
if(strncmp(BOOTARGS, pref+1, strlen(pref+1)) == 0)
p = BOOTARGS;
else if(p = strstr(BOOTARGS, pref))
p++;
else
p = nil;
/* move rest of args up, deleting what= line. */
if(p != nil && (q = strchr(p, '\n')) != nil)
memmove(p, q+1, strlen(q+1)+1);
/* add replacement to end */
addconf("%s", buf);
}
/*
* read configuration file
*/
static char inibuf[BOOTARGSLEN];
static char id[8] = "ZORT 0\r\n";
int
dotini(Fs *fs)
{
File rc;
int blankline, i, incomment, inspace, n;
char *cp, *p, *q, *line[MAXCONF];
if(fswalk(fs, *ini, &rc) <= 0)
return -1;
cp = inibuf;
*cp = 0;
n = fsread(&rc, cp, BOOTARGSLEN-1);
if(n <= 0)
return -1;
cp[n] = 0;
/*
* Strip out '\r', change '\t' -> ' '.
* Change runs of spaces into single spaces.
* Strip out trailing spaces, blank lines.
*
* We do this before we make the copy so that if we
* need to change the copy, it is already fairly clean.
* The main need is in the case when plan9.ini has been
* padded with lots of trailing spaces, as is the case
* for those created during a distribution install.
*/
p = cp;
blankline = 1;
incomment = inspace = 0;
for(q = cp; *q; q++){
if(*q == '\r')
continue;
if(*q == '\t')
*q = ' ';
if(*q == ' '){
inspace = 1;
continue;
}
if(*q == '\n'){
if(!blankline){
if(!incomment)
*p++ = '\n';
blankline = 1;
}
incomment = inspace = 0;
continue;
}
if(inspace){
if(!blankline && !incomment)
*p++ = ' ';
inspace = 0;
}
if(blankline && *q == '#')
incomment = 1;
blankline = 0;
if(!incomment)
*p++ = *q;
}
if(p > cp && p[-1] != '\n')
*p++ = '\n';
*p++ = 0;
n = p-cp;
parsemenu(cp, BOOTARGS, n);
/*
* Keep a copy.
* We could change this to pass the parsed strings
* to the booted programme instead of the raw
* string, then it only gets done once.
*/
if(strncmp(cp, id, sizeof(id))){
memmove(BOOTARGS, id, sizeof(id));
if(n+1+sizeof(id) >= BOOTARGSLEN)
n -= sizeof(id);
memmove(BOOTARGS+sizeof(id), cp, n+1);
}
else
memmove(BOOTARGS, cp, n+1);
n = getfields(cp, line, MAXCONF, '\n');
for(i = 0; i < n; i++){
cp = strchr(line[i], '=');
if(cp == 0)
continue;
*cp++ = 0;
if(cp - line[i] >= NAMELEN+1)
*(line[i]+NAMELEN-1) = 0;
confname[nconf] = line[i];
confval[nconf] = cp;
nconf++;
}
return 0;
}
static int
parseether(uchar *to, char *from)
{
char nip[4];
char *p;
int i;
p = from;
while(*p == ' ')
++p;
for(i = 0; i < 6; i++){
if(*p == 0)
return -1;
nip[0] = *p++;
if(*p == 0)
return -1;
nip[1] = *p++;
nip[2] = 0;
to[i] = strtoul(nip, 0, 16);
if(*p == ':')
p++;
}
return 0;
}
int
isaconfig(char *class, int ctlrno, ISAConf *isa)
{
char cc[NAMELEN], *p, *q, *r;
int n;
sprint(cc, "%s%d", class, ctlrno);
for(n = 0; n < nconf; n++){
if(cistrncmp(confname[n], cc, NAMELEN))
continue;
isa->nopt = 0;
p = confval[n];
while(*p){
while(*p == ' ' || *p == '\t')
p++;
if(*p == '\0')
break;
if(cistrncmp(p, "type=", 5) == 0){
p += 5;
for(q = isa->type; q < &isa->type[NAMELEN-1]; q++){
if(*p == '\0' || *p == ' ' || *p == '\t')
break;
*q = *p++;
}
*q = '\0';
}
else if(cistrncmp(p, "port=", 5) == 0)
isa->port = strtoul(p+5, &p, 0);
else if(cistrncmp(p, "irq=", 4) == 0)
isa->irq = strtoul(p+4, &p, 0);
else if(cistrncmp(p, "mem=", 4) == 0)
isa->mem = strtoul(p+4, &p, 0);
else if(cistrncmp(p, "size=", 5) == 0)
isa->size = strtoul(p+5, &p, 0);
else if(cistrncmp(p, "ea=", 3) == 0){
if(parseether(isa->ea, p+3) == -1)
memset(isa->ea, 0, 6);
}
else if(isa->nopt < NISAOPT){
r = isa->opt[isa->nopt];
while(*p && *p != ' ' && *p != '\t'){
*r++ = *p++;
if(r-isa->opt[isa->nopt] >= ISAOPTLEN-1)
break;
}
*r = '\0';
isa->nopt++;
}
while(*p && *p != ' ' && *p != '\t')
p++;
}
return 1;
}
return 0;
}