mkoptions.c revision 48401
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[] = 4048401Speter "$Id: mkoptions.c,v 1.11 1999/04/24 18:59:19 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; 12848401Speter struct opt_list *ol; 12912772Speter struct opt *op, *op_head, *topp; 13012772Speter FILE *inf, *outf; 13112772Speter char *value; 13212772Speter char *oldvalue; 13312772Speter int seen; 13448401Speter int tidy; 13512772Speter 13612772Speter file = tooption(name); 13712772Speter 13812772Speter /* 13912772Speter * Check to see if the option was specified.. 14012772Speter */ 14112772Speter value = NULL; 14212772Speter for (op = opt; op; op = op->op_next) { 14312772Speter if (eq(name, op->op_name)) { 14437577Sbde oldvalue = value; 14512772Speter value = op->op_value; 14637577Sbde if (value == NULL) 14712772Speter value = ns("1"); 14837577Sbde if (oldvalue != NULL && !eq(value, oldvalue)) 14937577Sbde printf( 15037577Sbde "%s:%d: option \"%s\" redefined from %s to %s\n", 15137577Sbde PREFIX, op->op_line, op->op_name, oldvalue, 15237577Sbde value); 15312772Speter op->op_ownfile++; 15412772Speter } 15512772Speter } 15612772Speter 15712772Speter inf = fopen(file, "r"); 15812772Speter if (inf == 0) { 15912772Speter outf = fopen(file, "w"); 16029451Scharnier if (outf == 0) 16129451Scharnier err(1, "%s", file); 16212772Speter 16312772Speter /* was the option in the config file? */ 16412772Speter if (value) { 16512772Speter fprintf(outf, "#define %s %s\n", name, value); 16612772Speter } /* else empty file */ 16712772Speter 16812772Speter (void) fclose(outf); 16912772Speter return; 17012772Speter } 17112772Speter oldvalue = NULL; 17212772Speter op_head = NULL; 17312772Speter seen = 0; 17448401Speter tidy = 0; 17512772Speter for (;;) { 17612772Speter char *cp; 17712772Speter char *invalue; 17812772Speter 17912772Speter /* get the #define */ 18012772Speter if ((inw = get_word(inf)) == 0 || inw == (char *)EOF) 18112772Speter break; 18212772Speter /* get the option name */ 18312772Speter if ((inw = get_word(inf)) == 0 || inw == (char *)EOF) 18412772Speter break; 18512772Speter inw = ns(inw); 18648401Speter /* get the option value */ 18748401Speter if ((cp = get_word(inf)) == 0 || cp == (char *)EOF) 18812772Speter break; 18912772Speter /* option value */ 19012772Speter invalue = ns(cp); /* malloced */ 19112772Speter if (eq(inw, name)) { 19212772Speter oldvalue = invalue; 19312772Speter invalue = value; 19412772Speter seen++; 19512772Speter } 19648401Speter for (ol = otab; ol != 0; ol = ol->o_next) 19748401Speter if (eq(inw, ol->o_name)) 19848401Speter break; 19948401Speter if (!seen && !ol) { 20048401Speter printf("WARNING: unknown option `%s' removed from %s\n", 20148401Speter inw, file); 20248401Speter tidy++; 20348401Speter } else { 20448401Speter op = (struct opt *) malloc(sizeof *op); 20548401Speter bzero(op, sizeof(*op)); 20648401Speter op->op_name = inw; 20748401Speter op->op_value = invalue; 20848401Speter op->op_next = op_head; 20948401Speter op_head = op; 21048401Speter } 21112772Speter 21212772Speter /* EOL? */ 21312772Speter cp = get_word(inf); 21412772Speter if (cp == (char *)EOF) 21512772Speter break; 21612772Speter } 21712772Speter (void) fclose(inf); 21848401Speter if (!tidy && ((value == NULL && oldvalue == NULL) || 21948401Speter (value && oldvalue && eq(value, oldvalue)))) { 22012772Speter for (op = op_head; op != NULL; op = topp) { 22112772Speter topp = op->op_next; 22212772Speter free(op->op_name); 22312772Speter free(op->op_value); 22412772Speter free(op); 22512772Speter } 22612772Speter return; 22712772Speter } 22812772Speter 22912772Speter if (value && !seen) { 23012772Speter /* New option appears */ 23112772Speter op = (struct opt *) malloc(sizeof *op); 23212772Speter bzero(op, sizeof(*op)); 23312772Speter op->op_name = ns(name); 23412772Speter op->op_value = value ? ns(value) : NULL; 23512772Speter op->op_next = op_head; 23612772Speter op_head = op; 23712772Speter } 23812772Speter 23912772Speter outf = fopen(file, "w"); 24029451Scharnier if (outf == 0) 24129451Scharnier err(1, "%s", file); 24212772Speter for (op = op_head; op != NULL; op = topp) { 24312772Speter /* was the option in the config file? */ 24412772Speter if (op->op_value) { 24512772Speter fprintf(outf, "#define %s %s\n", 24612772Speter op->op_name, op->op_value); 24712772Speter } 24812772Speter topp = op->op_next; 24912772Speter free(op->op_name); 25012772Speter free(op->op_value); 25112772Speter free(op); 25212772Speter } 25312772Speter (void) fclose(outf); 25412772Speter} 25512772Speter 25612772Speter/* 25712772Speter * Find the filename to store the option spec into. 25812772Speter */ 25945744Speterstatic char * 26012772Spetertooption(name) 26112772Speter char *name; 26212772Speter{ 26312772Speter static char hbuf[80]; 26412772Speter char nbuf[80]; 26512772Speter struct opt_list *po; 26612772Speter 26712772Speter /* "cannot happen"? the otab list should be complete.. */ 26812772Speter (void) strcpy(nbuf, "options.h"); 26912772Speter 27012772Speter for (po = otab ; po != 0; po = po->o_next) { 27112772Speter if (eq(po->o_name, name)) { 27212772Speter strcpy(nbuf, po->o_file); 27312772Speter break; 27412772Speter } 27512772Speter } 27612772Speter 27712772Speter (void) strcpy(hbuf, path(nbuf)); 27812772Speter return (hbuf); 27912772Speter} 28012772Speter 28112772Speter/* 28212772Speter * read the options and options.<machine> files 28312772Speter */ 28445744Speterstatic void 28512772Speterread_options() 28612772Speter{ 28712772Speter FILE *fp; 28820457Sjoerg char fname[80]; 28912772Speter char *wd, *this, *val; 29012772Speter struct opt_list *po; 29112772Speter int first = 1; 29212772Speter char genopt[80]; 29312772Speter 29412772Speter otab = 0; 29520457Sjoerg (void) snprintf(fname, sizeof fname, "../../conf/options"); 29612772Speteropenit: 29712772Speter fp = fopen(fname, "r"); 29812772Speter if (fp == 0) { 29912772Speter return; 30012772Speter } 30112772Speter if(ident == NULL) { 30212772Speter printf("no ident line specified\n"); 30312772Speter exit(1); 30412772Speter } 30512772Speternext: 30612772Speter wd = get_word(fp); 30712772Speter if (wd == (char *)EOF) { 30812772Speter (void) fclose(fp); 30912772Speter if (first == 1) { 31020457Sjoerg (void) snprintf(fname, sizeof fname, "options.%s", machinename); 31112772Speter first++; 31212772Speter goto openit; 31312772Speter } 31412772Speter if (first == 2) { 31545744Speter (void) snprintf(fname, sizeof fname, "options.%s", raisestr(ident)); 31612772Speter first++; 31712772Speter fp = fopen(fname, "r"); 31812772Speter if (fp != 0) 31912772Speter goto next; 32012772Speter } 32112772Speter return; 32212772Speter } 32312772Speter if (wd == 0) 32412772Speter goto next; 32512772Speter /*************************************************\ 32612772Speter * If it's a comment ignore to the end of the line * 32712772Speter \*************************************************/ 32812772Speter if(wd[0] == '#') 32912772Speter { 33012772Speter while( ((wd = get_word(fp)) != (char *)EOF) && wd) 33112772Speter ; 33212772Speter goto next; 33312772Speter } 33412772Speter this = ns(wd); 33512772Speter val = get_word(fp); 33612772Speter if (val == (char *)EOF) 33712772Speter return; 33812772Speter if (val == 0) { 33912772Speter char *s = ns(this); 34020457Sjoerg (void) snprintf(genopt, sizeof genopt, "opt_%s.h", lower(s)); 34112772Speter val = genopt; 34212772Speter free(s); 34312772Speter } 34412772Speter val = ns(val); 34512772Speter 34612772Speter for (po = otab ; po != 0; po = po->o_next) { 34712772Speter if (eq(po->o_name, this)) { 34812772Speter printf("%s: Duplicate option %s.\n", 34912772Speter fname, this); 35012772Speter exit(1); 35112772Speter } 35212772Speter } 35312772Speter 35412772Speter po = (struct opt_list *) malloc(sizeof *po); 35512772Speter bzero(po, sizeof(*po)); 35612772Speter po->o_name = this; 35712772Speter po->o_file = val; 35812772Speter po->o_next = otab; 35912772Speter otab = po; 36012772Speter 36112772Speter goto next; 36212772Speter} 36312772Speter 36420458Sjoergstatic char * 36512772Speterlower(str) 36612772Speter register char *str; 36712772Speter{ 36812772Speter register char *cp = str; 36912772Speter 37012772Speter while (*str) { 37112772Speter if (isupper(*str)) 37212772Speter *str = tolower(*str); 37312772Speter str++; 37412772Speter } 37512772Speter return (cp); 37612772Speter} 37712772Speter 378