/*
* Copyright (c) 1995 Peter Wemm
* Copyright (c) 1980, 1993
* The Regents of the University of California. 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.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 REGENTS 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.
*/
#ifndef lint
#if 0
static char sccsid[] = "@(#)mkheaders.c 8.1 (Berkeley) 6/6/93";
#endif
static const char rcsid[] =
"$Id: mkoptions.c,v 1.7 1998/07/12 02:31:08 bde Exp $";
#endif /* not lint */
/*
* Make all the .h files for the optional entries
*/
#include <ctype.h>
#include <err.h>
#include <stdio.h>
#include <string.h>
#include "config.h"
#include "y.tab.h"
#define ns(s) strdup(s)
static struct users {
int u_default;
int u_min;
int u_max;
} users[] = {
{ 8, 2, 512 }, /* MACHINE_VAX */
{ 8, 2, 512 }, /* MACHINE_TAHOE */
{ 8, 2, 512 }, /* MACHINE_HP300 */
{ 8, 2, 512 }, /* MACHINE_I386 */
{ 8, 2, 512 }, /* MACHINE_MIPS */
{ 8, 2, 512 }, /* MACHINE_PMAX */
{ 8, 2, 512 }, /* MACHINE_LUNA68K */
{ 8, 2, 512 }, /* MACHINE_NEWS3400 */
{ 8, 2, 512 }, /* MACHINE_PC98 */
{ 8, 2, 512 }, /* MACHINE_ALPHA */
};
#define NUSERS (sizeof (users) / sizeof (users[0]))
static char *lower __P((char *));
void read_options __P((void));
void do_option __P((char *));
void
options()
{
char buf[40];
struct cputype *cp;
struct opt_list *ol;
struct opt *op;
struct users *up;
/* Fake the cpu types as options. */
for (cp = cputype; cp != NULL; cp = cp->cpu_next) {
op = (struct opt *)malloc(sizeof(*op));
memset(op, 0, sizeof(*op));
op->op_name = ns(cp->cpu_name);
op->op_next = opt;
opt = op;
}
/* Initialize `maxusers'. */
if ((unsigned)machine > NUSERS) {
printf("maxusers config info isn't present, using vax\n");
up = &users[MACHINE_VAX - 1];
} else
up = &users[machine - 1];
if (maxusers == 0) {
printf("maxusers not specified; %d assumed\n", up->u_default);
maxusers = up->u_default;
} else if (maxusers < up->u_min) {
printf("minimum of %d maxusers assumed\n", up->u_min);
maxusers = up->u_min;
} else if (maxusers > up->u_max)
printf("warning: maxusers > %d (%d)\n", up->u_max, maxusers);
/* Fake MAXUSERS as an option. */
op = (struct opt *)malloc(sizeof(*op));
memset(op, 0, sizeof(*op));
op->op_name = "MAXUSERS";
sprintf(buf, "%d", maxusers);
op->op_value = ns(buf);
op->op_next = opt;
opt = op;
read_options();
for (ol = otab; ol != 0; ol = ol->o_next)
do_option(ol->o_name);
}
/*
* Generate an <options>.h file
*/
void
do_option(name)
char *name;
{
char *file, *inw, *tooption();
struct opt *op, *op_head, *topp;
FILE *inf, *outf;
char *value;
char *oldvalue;
int seen;
file = tooption(name);
/*
* Check to see if the option was specified..
*/
value = NULL;
for (op = opt; op; op = op->op_next) {
if (eq(name, op->op_name)) {
oldvalue = value;
value = op->op_value;
if (value == NULL)
value = ns("1");
if (oldvalue != NULL && !eq(value, oldvalue))
printf(
"%s:%d: option \"%s\" redefined from %s to %s\n",
PREFIX, op->op_line, op->op_name, oldvalue,
value);
op->op_ownfile++;
}
}
inf = fopen(file, "r");
if (inf == 0) {
outf = fopen(file, "w");
if (outf == 0)
err(1, "%s", file);
/* was the option in the config file? */
if (value) {
fprintf(outf, "#define %s %s\n", name, value);
} /* else empty file */
(void) fclose(outf);
return;
}
oldvalue = NULL;
op_head = NULL;
seen = 0;
for (;;) {
char *cp;
char *invalue;
/* get the #define */
if ((inw = get_word(inf)) == 0 || inw == (char *)EOF)
break;
/* get the option name */
if ((inw = get_word(inf)) == 0 || inw == (char *)EOF)
break;
inw = ns(inw);
cp = get_word(inf);
if (cp == 0 || cp == (char *)EOF)
break;
/* option value */
invalue = ns(cp); /* malloced */
if (eq(inw, name)) {
oldvalue = invalue;
invalue = value;
seen++;
}
op = (struct opt *) malloc(sizeof *op);
bzero(op, sizeof(*op));
op->op_name = inw;
op->op_value = invalue;
op->op_next = op_head;
op_head = op;
/* EOL? */
cp = get_word(inf);
if (cp == (char *)EOF)
break;
}
(void) fclose(inf);
if ((value == NULL && oldvalue == NULL) ||
(value && oldvalue && eq(value,oldvalue))) {
for (op = op_head; op != NULL; op = topp) {
topp = op->op_next;
free(op->op_name);
free(op->op_value);
free(op);
}
return;
}
if (value && !seen) {
/* New option appears */
op = (struct opt *) malloc(sizeof *op);
bzero(op, sizeof(*op));
op->op_name = ns(name);
op->op_value = value ? ns(value) : NULL;
op->op_next = op_head;
op_head = op;
}
outf = fopen(file, "w");
if (outf == 0)
err(1, "%s", file);
for (op = op_head; op != NULL; op = topp) {
/* was the option in the config file? */
if (op->op_value) {
fprintf(outf, "#define %s %s\n",
op->op_name, op->op_value);
}
topp = op->op_next;
free(op->op_name);
free(op->op_value);
free(op);
}
(void) fclose(outf);
}
/*
* Find the filename to store the option spec into.
*/
char *
tooption(name)
char *name;
{
static char hbuf[80];
char nbuf[80];
struct opt_list *po;
/* "cannot happen"? the otab list should be complete.. */
(void) strcpy(nbuf, "options.h");
for (po = otab ; po != 0; po = po->o_next) {
if (eq(po->o_name, name)) {
strcpy(nbuf, po->o_file);
break;
}
}
(void) strcpy(hbuf, path(nbuf));
return (hbuf);
}
/*
* read the options and options.<machine> files
*/
void
read_options()
{
FILE *fp;
char fname[80];
char *wd, *this, *val;
struct opt_list *po;
int first = 1;
char genopt[80];
otab = 0;
(void) snprintf(fname, sizeof fname, "../../conf/options");
openit:
fp = fopen(fname, "r");
if (fp == 0) {
return;
}
if(ident == NULL) {
printf("no ident line specified\n");
exit(1);
}
next:
wd = get_word(fp);
if (wd == (char *)EOF) {
(void) fclose(fp);
if (first == 1) {
(void) snprintf(fname, sizeof fname, "options.%s", machinename);
first++;
goto openit;
}
if (first == 2) {
(void) snprintf(fname, sizeof fname, "options.%s", raise(ident));
first++;
fp = fopen(fname, "r");
if (fp != 0)
goto next;
}
return;
}
if (wd == 0)
goto next;
/*************************************************\
* If it's a comment ignore to the end of the line *
\*************************************************/
if(wd[0] == '#')
{
while( ((wd = get_word(fp)) != (char *)EOF) && wd)
;
goto next;
}
this = ns(wd);
val = get_word(fp);
if (val == (char *)EOF)
return;
if (val == 0) {
char *s = ns(this);
(void) snprintf(genopt, sizeof genopt, "opt_%s.h", lower(s));
val = genopt;
free(s);
}
val = ns(val);
for (po = otab ; po != 0; po = po->o_next) {
if (eq(po->o_name, this)) {
printf("%s: Duplicate option %s.\n",
fname, this);
exit(1);
}
}
po = (struct opt_list *) malloc(sizeof *po);
bzero(po, sizeof(*po));
po->o_name = this;
po->o_file = val;
po->o_next = otab;
otab = po;
goto next;
}
static char *
lower(str)
register char *str;
{
register char *cp = str;
while (*str) {
if (isupper(*str))
*str = tolower(*str);
str++;
}
return (cp);
}