mkoptions.c revision 46021
112772Speter/* 212772Speter * Copyright (c) 1995 Peter Wemm 312772Speter * Copyright (c) 1980, 1993 412772Speter * The Regents of the University of California. All rights reserved. 512772Speter * 612772Speter * Redistribution and use in source and binary forms, with or without 712772Speter * modification, are permitted provided that the following conditions 812772Speter * are met: 912772Speter * 1. Redistributions of source code must retain the above copyright 1012772Speter * notice, this list of conditions and the following disclaimer. 1112772Speter * 2. Redistributions in binary form must reproduce the above copyright 1212772Speter * notice, this list of conditions and the following disclaimer in the 1312772Speter * documentation and/or other materials provided with the distribution. 1412772Speter * 3. All advertising materials mentioning features or use of this software 1512772Speter * must display the following acknowledgement: 1612772Speter * This product includes software developed by the University of 1712772Speter * California, Berkeley and its contributors. 1812772Speter * 4. Neither the name of the University nor the names of its contributors 1912772Speter * may be used to endorse or promote products derived from this software 2012772Speter * without specific prior written permission. 2112772Speter * 2212772Speter * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 2312772Speter * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 2412772Speter * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 2512772Speter * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 2612772Speter * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 2712772Speter * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 2812772Speter * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 2912772Speter * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 3012772Speter * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 3112772Speter * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 3212772Speter * SUCH DAMAGE. 3312772Speter */ 3412772Speter 3512772Speter#ifndef lint 3629451Scharnier#if 0 3712772Speterstatic char sccsid[] = "@(#)mkheaders.c 8.1 (Berkeley) 6/6/93"; 3829451Scharnier#endif 3929451Scharnierstatic const char rcsid[] = 4046021Speter "$Id: mkoptions.c,v 1.10 1999/04/18 13:36:29 peter Exp $"; 4112772Speter#endif /* not lint */ 4212772Speter 4312772Speter/* 4412772Speter * Make all the .h files for the optional entries 4512772Speter */ 4612772Speter 4729451Scharnier#include <ctype.h> 4829451Scharnier#include <err.h> 4912772Speter#include <stdio.h> 5020458Sjoerg#include <string.h> 5112772Speter#include "config.h" 5216073Sphk#include "y.tab.h" 5312772Speter 5420458Sjoerg#define ns(s) strdup(s) 5520458Sjoerg 5637578Sbdestatic struct users { 5737578Sbde int u_default; 5837578Sbde int u_min; 5937578Sbde int u_max; 6037578Sbde} users[] = { 6137578Sbde { 8, 2, 512 }, /* MACHINE_I386 */ 6237578Sbde { 8, 2, 512 }, /* MACHINE_PC98 */ 6337578Sbde { 8, 2, 512 }, /* MACHINE_ALPHA */ 6437578Sbde}; 6537578Sbde#define NUSERS (sizeof (users) / sizeof (users[0])) 6637578Sbde 6745744Speterstatic char *lower __P((char *)); 6845744Speterstatic void read_options __P((void)); 6945744Speterstatic void do_option __P((char *)); 7045744Speterstatic char *tooption __P((char *)); 7120458Sjoerg 7229451Scharniervoid 7312772Speteroptions() 7412772Speter{ 7537578Sbde char buf[40]; 7637578Sbde struct cputype *cp; 7712772Speter struct opt_list *ol; 7837578Sbde struct opt *op; 7937578Sbde struct users *up; 8012772Speter 8137578Sbde /* Fake the cpu types as options. */ 8237578Sbde for (cp = cputype; cp != NULL; cp = cp->cpu_next) { 8337578Sbde op = (struct opt *)malloc(sizeof(*op)); 8412772Speter memset(op, 0, sizeof(*op)); 8520458Sjoerg op->op_name = ns(cp->cpu_name); 8612772Speter op->op_next = opt; 8712772Speter opt = op; 8812772Speter } 8912772Speter 9037578Sbde /* Initialize `maxusers'. */ 9137578Sbde if ((unsigned)machine > NUSERS) { 9245775Speter printf("maxusers config info isn't present, using i386\n"); 9345744Speter up = &users[MACHINE_I386 - 1]; 9437578Sbde } else 9537578Sbde up = &users[machine - 1]; 9637578Sbde if (maxusers == 0) { 9737578Sbde printf("maxusers not specified; %d assumed\n", up->u_default); 9837578Sbde maxusers = up->u_default; 9937578Sbde } else if (maxusers < up->u_min) { 10037578Sbde printf("minimum of %d maxusers assumed\n", up->u_min); 10137578Sbde maxusers = up->u_min; 10237578Sbde } else if (maxusers > up->u_max) 10337578Sbde printf("warning: maxusers > %d (%d)\n", up->u_max, maxusers); 10437578Sbde 10537578Sbde /* Fake MAXUSERS as an option. */ 10637578Sbde op = (struct opt *)malloc(sizeof(*op)); 10737578Sbde memset(op, 0, sizeof(*op)); 10837578Sbde op->op_name = "MAXUSERS"; 10946021Speter snprintf(buf, sizeof(buf), "%d", maxusers); 11037578Sbde op->op_value = ns(buf); 11137578Sbde op->op_next = opt; 11237578Sbde opt = op; 11337578Sbde 11412772Speter read_options(); 11512772Speter for (ol = otab; ol != 0; ol = ol->o_next) 11612772Speter do_option(ol->o_name); 11712772Speter} 11812772Speter 11912772Speter/* 12012772Speter * Generate an <options>.h file 12112772Speter */ 12212772Speter 12345744Speterstatic void 12412772Speterdo_option(name) 12512772Speter char *name; 12612772Speter{ 12745744Speter char *file, *inw; 12812772Speter struct opt *op, *op_head, *topp; 12912772Speter FILE *inf, *outf; 13012772Speter char *value; 13112772Speter char *oldvalue; 13212772Speter int seen; 13312772Speter 13412772Speter file = tooption(name); 13512772Speter 13612772Speter /* 13712772Speter * Check to see if the option was specified.. 13812772Speter */ 13912772Speter value = NULL; 14012772Speter for (op = opt; op; op = op->op_next) { 14112772Speter if (eq(name, op->op_name)) { 14237577Sbde oldvalue = value; 14312772Speter value = op->op_value; 14437577Sbde if (value == NULL) 14512772Speter value = ns("1"); 14637577Sbde if (oldvalue != NULL && !eq(value, oldvalue)) 14737577Sbde printf( 14837577Sbde "%s:%d: option \"%s\" redefined from %s to %s\n", 14937577Sbde PREFIX, op->op_line, op->op_name, oldvalue, 15037577Sbde value); 15112772Speter op->op_ownfile++; 15212772Speter } 15312772Speter } 15412772Speter 15512772Speter inf = fopen(file, "r"); 15612772Speter if (inf == 0) { 15712772Speter outf = fopen(file, "w"); 15829451Scharnier if (outf == 0) 15929451Scharnier err(1, "%s", file); 16012772Speter 16112772Speter /* was the option in the config file? */ 16212772Speter if (value) { 16312772Speter fprintf(outf, "#define %s %s\n", name, value); 16412772Speter } /* else empty file */ 16512772Speter 16612772Speter (void) fclose(outf); 16712772Speter return; 16812772Speter } 16912772Speter oldvalue = NULL; 17012772Speter op_head = NULL; 17112772Speter seen = 0; 17212772Speter for (;;) { 17312772Speter char *cp; 17412772Speter char *invalue; 17512772Speter 17612772Speter /* get the #define */ 17712772Speter if ((inw = get_word(inf)) == 0 || inw == (char *)EOF) 17812772Speter break; 17912772Speter /* get the option name */ 18012772Speter if ((inw = get_word(inf)) == 0 || inw == (char *)EOF) 18112772Speter break; 18212772Speter inw = ns(inw); 18312772Speter cp = get_word(inf); 18412772Speter if (cp == 0 || cp == (char *)EOF) 18512772Speter break; 18612772Speter /* option value */ 18712772Speter invalue = ns(cp); /* malloced */ 18812772Speter if (eq(inw, name)) { 18912772Speter oldvalue = invalue; 19012772Speter invalue = value; 19112772Speter seen++; 19212772Speter } 19312772Speter op = (struct opt *) malloc(sizeof *op); 19412772Speter bzero(op, sizeof(*op)); 19512772Speter op->op_name = inw; 19612772Speter op->op_value = invalue; 19712772Speter op->op_next = op_head; 19812772Speter op_head = op; 19912772Speter 20012772Speter /* EOL? */ 20112772Speter cp = get_word(inf); 20212772Speter if (cp == (char *)EOF) 20312772Speter break; 20412772Speter } 20512772Speter (void) fclose(inf); 20612772Speter if ((value == NULL && oldvalue == NULL) || 20712772Speter (value && oldvalue && eq(value,oldvalue))) { 20812772Speter for (op = op_head; op != NULL; op = topp) { 20912772Speter topp = op->op_next; 21012772Speter free(op->op_name); 21112772Speter free(op->op_value); 21212772Speter free(op); 21312772Speter } 21412772Speter return; 21512772Speter } 21612772Speter 21712772Speter if (value && !seen) { 21812772Speter /* New option appears */ 21912772Speter op = (struct opt *) malloc(sizeof *op); 22012772Speter bzero(op, sizeof(*op)); 22112772Speter op->op_name = ns(name); 22212772Speter op->op_value = value ? ns(value) : NULL; 22312772Speter op->op_next = op_head; 22412772Speter op_head = op; 22512772Speter } 22612772Speter 22712772Speter outf = fopen(file, "w"); 22829451Scharnier if (outf == 0) 22929451Scharnier err(1, "%s", file); 23012772Speter for (op = op_head; op != NULL; op = topp) { 23112772Speter /* was the option in the config file? */ 23212772Speter if (op->op_value) { 23312772Speter fprintf(outf, "#define %s %s\n", 23412772Speter op->op_name, op->op_value); 23512772Speter } 23612772Speter topp = op->op_next; 23712772Speter free(op->op_name); 23812772Speter free(op->op_value); 23912772Speter free(op); 24012772Speter } 24112772Speter (void) fclose(outf); 24212772Speter} 24312772Speter 24412772Speter/* 24512772Speter * Find the filename to store the option spec into. 24612772Speter */ 24745744Speterstatic char * 24812772Spetertooption(name) 24912772Speter char *name; 25012772Speter{ 25112772Speter static char hbuf[80]; 25212772Speter char nbuf[80]; 25312772Speter struct opt_list *po; 25412772Speter 25512772Speter /* "cannot happen"? the otab list should be complete.. */ 25612772Speter (void) strcpy(nbuf, "options.h"); 25712772Speter 25812772Speter for (po = otab ; po != 0; po = po->o_next) { 25912772Speter if (eq(po->o_name, name)) { 26012772Speter strcpy(nbuf, po->o_file); 26112772Speter break; 26212772Speter } 26312772Speter } 26412772Speter 26512772Speter (void) strcpy(hbuf, path(nbuf)); 26612772Speter return (hbuf); 26712772Speter} 26812772Speter 26912772Speter/* 27012772Speter * read the options and options.<machine> files 27112772Speter */ 27245744Speterstatic void 27312772Speterread_options() 27412772Speter{ 27512772Speter FILE *fp; 27620457Sjoerg char fname[80]; 27712772Speter char *wd, *this, *val; 27812772Speter struct opt_list *po; 27912772Speter int first = 1; 28012772Speter char genopt[80]; 28112772Speter 28212772Speter otab = 0; 28320457Sjoerg (void) snprintf(fname, sizeof fname, "../../conf/options"); 28412772Speteropenit: 28512772Speter fp = fopen(fname, "r"); 28612772Speter if (fp == 0) { 28712772Speter return; 28812772Speter } 28912772Speter if(ident == NULL) { 29012772Speter printf("no ident line specified\n"); 29112772Speter exit(1); 29212772Speter } 29312772Speternext: 29412772Speter wd = get_word(fp); 29512772Speter if (wd == (char *)EOF) { 29612772Speter (void) fclose(fp); 29712772Speter if (first == 1) { 29820457Sjoerg (void) snprintf(fname, sizeof fname, "options.%s", machinename); 29912772Speter first++; 30012772Speter goto openit; 30112772Speter } 30212772Speter if (first == 2) { 30345744Speter (void) snprintf(fname, sizeof fname, "options.%s", raisestr(ident)); 30412772Speter first++; 30512772Speter fp = fopen(fname, "r"); 30612772Speter if (fp != 0) 30712772Speter goto next; 30812772Speter } 30912772Speter return; 31012772Speter } 31112772Speter if (wd == 0) 31212772Speter goto next; 31312772Speter /*************************************************\ 31412772Speter * If it's a comment ignore to the end of the line * 31512772Speter \*************************************************/ 31612772Speter if(wd[0] == '#') 31712772Speter { 31812772Speter while( ((wd = get_word(fp)) != (char *)EOF) && wd) 31912772Speter ; 32012772Speter goto next; 32112772Speter } 32212772Speter this = ns(wd); 32312772Speter val = get_word(fp); 32412772Speter if (val == (char *)EOF) 32512772Speter return; 32612772Speter if (val == 0) { 32712772Speter char *s = ns(this); 32820457Sjoerg (void) snprintf(genopt, sizeof genopt, "opt_%s.h", lower(s)); 32912772Speter val = genopt; 33012772Speter free(s); 33112772Speter } 33212772Speter val = ns(val); 33312772Speter 33412772Speter for (po = otab ; po != 0; po = po->o_next) { 33512772Speter if (eq(po->o_name, this)) { 33612772Speter printf("%s: Duplicate option %s.\n", 33712772Speter fname, this); 33812772Speter exit(1); 33912772Speter } 34012772Speter } 34112772Speter 34212772Speter po = (struct opt_list *) malloc(sizeof *po); 34312772Speter bzero(po, sizeof(*po)); 34412772Speter po->o_name = this; 34512772Speter po->o_file = val; 34612772Speter po->o_next = otab; 34712772Speter otab = po; 34812772Speter 34912772Speter goto next; 35012772Speter} 35112772Speter 35220458Sjoergstatic char * 35312772Speterlower(str) 35412772Speter register char *str; 35512772Speter{ 35612772Speter register char *cp = str; 35712772Speter 35812772Speter while (*str) { 35912772Speter if (isupper(*str)) 36012772Speter *str = tolower(*str); 36112772Speter str++; 36212772Speter } 36312772Speter return (cp); 36412772Speter} 36512772Speter 366