1de566360SJordan K. Hubbard /* 2de566360SJordan K. Hubbard * Copyright (c) 1994 University of Maryland 3de566360SJordan K. Hubbard * All Rights Reserved. 4de566360SJordan K. Hubbard * 5de566360SJordan K. Hubbard * Permission to use, copy, modify, distribute, and sell this software and its 6de566360SJordan K. Hubbard * documentation for any purpose is hereby granted without fee, provided that 7de566360SJordan K. Hubbard * the above copyright notice appear in all copies and that both that 8de566360SJordan K. Hubbard * copyright notice and this permission notice appear in supporting 9de566360SJordan K. Hubbard * documentation, and that the name of U.M. not be used in advertising or 10de566360SJordan K. Hubbard * publicity pertaining to distribution of the software without specific, 11de566360SJordan K. Hubbard * written prior permission. U.M. makes no representations about the 12de566360SJordan K. Hubbard * suitability of this software for any purpose. It is provided "as is" 13de566360SJordan K. Hubbard * without express or implied warranty. 14de566360SJordan K. Hubbard * 15de566360SJordan K. Hubbard * U.M. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL 16de566360SJordan K. Hubbard * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL U.M. 17de566360SJordan K. Hubbard * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 18de566360SJordan K. Hubbard * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION 19de566360SJordan K. Hubbard * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN 20de566360SJordan K. Hubbard * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 21de566360SJordan K. Hubbard * 22de566360SJordan K. Hubbard * Author: James da Silva, Systems Design and Analysis Group 23de566360SJordan K. Hubbard * Computer Science Department 24de566360SJordan K. Hubbard * University of Maryland at College Park 25de566360SJordan K. Hubbard */ 26de566360SJordan K. Hubbard /* 27de566360SJordan K. Hubbard * ======================================================================== 28de566360SJordan K. Hubbard * crunchgen.c 29de566360SJordan K. Hubbard * 30de566360SJordan K. Hubbard * Generates a Makefile and main C file for a crunched executable, 31de566360SJordan K. Hubbard * from specs given in a .conf file. 32de566360SJordan K. Hubbard */ 3302c75192SDavid E. O'Brien 3402c75192SDavid E. O'Brien #include <sys/cdefs.h> 3502c75192SDavid E. O'Brien __FBSDID("$FreeBSD$"); 3602c75192SDavid E. O'Brien 3787eb4a42SJosef Karthauser #include <sys/param.h> 3802c75192SDavid E. O'Brien #include <sys/stat.h> 3987eb4a42SJosef Karthauser 40de566360SJordan K. Hubbard #include <ctype.h> 41b17e90a9SPhilippe Charnier #include <err.h> 42188d6f4bSAlex Richardson #include <fcntl.h> 4361ffadb1SJosef Karthauser #include <paths.h> 44188d6f4bSAlex Richardson #include <stdbool.h> 45b17e90a9SPhilippe Charnier #include <stdio.h> 46b17e90a9SPhilippe Charnier #include <stdlib.h> 47de566360SJordan K. Hubbard #include <string.h> 48188d6f4bSAlex Richardson #include <sysexits.h> 49b17e90a9SPhilippe Charnier #include <unistd.h> 50de566360SJordan K. Hubbard 51de566360SJordan K. Hubbard #define CRUNCH_VERSION "0.2" 52de566360SJordan K. Hubbard 53de566360SJordan K. Hubbard #define MAXLINELEN 16384 54de566360SJordan K. Hubbard #define MAXFIELDS 2048 55de566360SJordan K. Hubbard 56de566360SJordan K. Hubbard 57de566360SJordan K. Hubbard /* internal representation of conf file: */ 58de566360SJordan K. Hubbard 59de566360SJordan K. Hubbard /* simple lists of strings suffice for most parms */ 60de566360SJordan K. Hubbard 61de566360SJordan K. Hubbard typedef struct strlst { 62de566360SJordan K. Hubbard struct strlst *next; 63de566360SJordan K. Hubbard char *str; 64de566360SJordan K. Hubbard } strlst_t; 65de566360SJordan K. Hubbard 66de566360SJordan K. Hubbard /* progs have structure, each field can be set with "special" or calculated */ 67de566360SJordan K. Hubbard 68de566360SJordan K. Hubbard typedef struct prog { 6908826cadSLuigi Rizzo struct prog *next; /* link field */ 7008826cadSLuigi Rizzo char *name; /* program name */ 7108826cadSLuigi Rizzo char *ident; /* C identifier for the program name */ 7208826cadSLuigi Rizzo char *srcdir; 73843d8d51SJosef Karthauser char *realsrcdir; 7408826cadSLuigi Rizzo char *objdir; 7508826cadSLuigi Rizzo char *objvar; /* Makefile variable to replace OBJS */ 76de566360SJordan K. Hubbard strlst_t *objs, *objpaths; 7734944d48SJosef Karthauser strlst_t *buildopts; 7842ac3bf1SJoerg Wunsch strlst_t *keeplist; 79de566360SJordan K. Hubbard strlst_t *links; 80252f13abSLuigi Rizzo strlst_t *libs; 8155f92f64SCeri Davies strlst_t *libs_so; 82de566360SJordan K. Hubbard int goterror; 83de566360SJordan K. Hubbard } prog_t; 84de566360SJordan K. Hubbard 85de566360SJordan K. Hubbard 86de566360SJordan K. Hubbard /* global state */ 87de566360SJordan K. Hubbard 8808a15190SJosef Karthauser strlst_t *buildopts = NULL; 89de566360SJordan K. Hubbard strlst_t *srcdirs = NULL; 90de566360SJordan K. Hubbard strlst_t *libs = NULL; 9155f92f64SCeri Davies strlst_t *libs_so = NULL; 92de566360SJordan K. Hubbard prog_t *progs = NULL; 93de566360SJordan K. Hubbard 94de566360SJordan K. Hubbard char confname[MAXPATHLEN], infilename[MAXPATHLEN]; 95de566360SJordan K. Hubbard char outmkname[MAXPATHLEN], outcfname[MAXPATHLEN], execfname[MAXPATHLEN]; 96de566360SJordan K. Hubbard char tempfname[MAXPATHLEN], cachename[MAXPATHLEN], curfilename[MAXPATHLEN]; 97188d6f4bSAlex Richardson bool tempfname_initialized = false; 9808826cadSLuigi Rizzo char outhdrname[MAXPATHLEN] ; /* user-supplied header for *.mk */ 99019d04d1SLuigi Rizzo char *objprefix; /* where are the objects ? */ 10070840a51SDavid E. O'Brien char *path_make; 101de566360SJordan K. Hubbard int linenum = -1; 102de566360SJordan K. Hubbard int goterror = 0; 103de566360SJordan K. Hubbard 104de566360SJordan K. Hubbard int verbose, readcache; /* options */ 105de566360SJordan K. Hubbard int reading_cache; 106ba2250ddSJosef Karthauser int makeobj = 0; /* add 'make obj' rules to the makefile */ 107de566360SJordan K. Hubbard 108fb7f926eSPoul-Henning Kamp int list_mode; 109fb7f926eSPoul-Henning Kamp 110de566360SJordan K. Hubbard /* general library routines */ 111de566360SJordan K. Hubbard 11296acb2c4SPedro F. Giffuni void status(const char *str); 113de566360SJordan K. Hubbard void out_of_memory(void); 114de566360SJordan K. Hubbard void add_string(strlst_t **listp, char *str); 11596acb2c4SPedro F. Giffuni int is_dir(const char *pathname); 11696acb2c4SPedro F. Giffuni int is_nonempty_file(const char *pathname); 11755f92f64SCeri Davies int subtract_strlst(strlst_t **lista, strlst_t **listb); 11855f92f64SCeri Davies int in_list(strlst_t **listp, char *str); 119de566360SJordan K. Hubbard 120997d42d7SPedro F. Giffuni /* helper routines for main() */ 121de566360SJordan K. Hubbard 122de566360SJordan K. Hubbard void usage(void); 123de566360SJordan K. Hubbard void parse_conf_file(void); 124de566360SJordan K. Hubbard void gen_outputs(void); 125de566360SJordan K. Hubbard 126997d42d7SPedro F. Giffuni extern char *crunched_skel[]; 127997d42d7SPedro F. Giffuni 128de566360SJordan K. Hubbard 12902c75192SDavid E. O'Brien int 13002c75192SDavid E. O'Brien main(int argc, char **argv) 131de566360SJordan K. Hubbard { 132de566360SJordan K. Hubbard char *p; 133de566360SJordan K. Hubbard int optc; 134de566360SJordan K. Hubbard 135de566360SJordan K. Hubbard verbose = 1; 136de566360SJordan K. Hubbard readcache = 1; 137de566360SJordan K. Hubbard *outmkname = *outcfname = *execfname = '\0'; 138de566360SJordan K. Hubbard 13970840a51SDavid E. O'Brien path_make = getenv("MAKE"); 14070840a51SDavid E. O'Brien if (path_make == NULL || *path_make == '\0') 14170840a51SDavid E. O'Brien path_make = "make"; 14270840a51SDavid E. O'Brien 143019d04d1SLuigi Rizzo p = getenv("MAKEOBJDIRPREFIX"); 144019d04d1SLuigi Rizzo if (p == NULL || *p == '\0') 145019d04d1SLuigi Rizzo objprefix = "/usr/obj"; /* default */ 146019d04d1SLuigi Rizzo else 147f3c47f54SJosef Karthauser if ((objprefix = strdup(p)) == NULL) 148f3c47f54SJosef Karthauser out_of_memory(); 149019d04d1SLuigi Rizzo 150019d04d1SLuigi Rizzo while((optc = getopt(argc, argv, "lh:m:c:e:p:foq")) != -1) { 151de566360SJordan K. Hubbard switch(optc) { 15287eb4a42SJosef Karthauser case 'f': 15387eb4a42SJosef Karthauser readcache = 0; 15487eb4a42SJosef Karthauser break; 15587eb4a42SJosef Karthauser case 'o': 15687eb4a42SJosef Karthauser makeobj = 1; 15787eb4a42SJosef Karthauser break; 15887eb4a42SJosef Karthauser case 'q': 15987eb4a42SJosef Karthauser verbose = 0; 16087eb4a42SJosef Karthauser break; 161de566360SJordan K. Hubbard 16287eb4a42SJosef Karthauser case 'm': 16387eb4a42SJosef Karthauser strlcpy(outmkname, optarg, sizeof(outmkname)); 16487eb4a42SJosef Karthauser break; 16587eb4a42SJosef Karthauser case 'p': 16687eb4a42SJosef Karthauser if ((objprefix = strdup(optarg)) == NULL) 167f3c47f54SJosef Karthauser out_of_memory(); 168f3c47f54SJosef Karthauser break; 16987eb4a42SJosef Karthauser 17087eb4a42SJosef Karthauser case 'h': 17187eb4a42SJosef Karthauser strlcpy(outhdrname, optarg, sizeof(outhdrname)); 17287eb4a42SJosef Karthauser break; 17387eb4a42SJosef Karthauser case 'c': 17487eb4a42SJosef Karthauser strlcpy(outcfname, optarg, sizeof(outcfname)); 17587eb4a42SJosef Karthauser break; 17687eb4a42SJosef Karthauser case 'e': 17787eb4a42SJosef Karthauser strlcpy(execfname, optarg, sizeof(execfname)); 17887eb4a42SJosef Karthauser break; 17987eb4a42SJosef Karthauser 18087eb4a42SJosef Karthauser case 'l': 18187eb4a42SJosef Karthauser list_mode++; 18287eb4a42SJosef Karthauser verbose = 0; 18387eb4a42SJosef Karthauser break; 184de566360SJordan K. Hubbard 185de566360SJordan K. Hubbard case '?': 18687eb4a42SJosef Karthauser default: 18787eb4a42SJosef Karthauser usage(); 188de566360SJordan K. Hubbard } 189de566360SJordan K. Hubbard } 190de566360SJordan K. Hubbard 191de566360SJordan K. Hubbard argc -= optind; 192de566360SJordan K. Hubbard argv += optind; 193de566360SJordan K. Hubbard 19487eb4a42SJosef Karthauser if (argc != 1) 19587eb4a42SJosef Karthauser usage(); 196de566360SJordan K. Hubbard 197de566360SJordan K. Hubbard /* 198de566360SJordan K. Hubbard * generate filenames 199de566360SJordan K. Hubbard */ 200de566360SJordan K. Hubbard 201f3c47f54SJosef Karthauser strlcpy(infilename, argv[0], sizeof(infilename)); 202de566360SJordan K. Hubbard 203de566360SJordan K. Hubbard /* confname = `basename infilename .conf` */ 204de566360SJordan K. Hubbard 205f3c47f54SJosef Karthauser if ((p=strrchr(infilename, '/')) != NULL) 206f3c47f54SJosef Karthauser strlcpy(confname, p + 1, sizeof(confname)); 207f3c47f54SJosef Karthauser else 208f3c47f54SJosef Karthauser strlcpy(confname, infilename, sizeof(confname)); 209de566360SJordan K. Hubbard 21087eb4a42SJosef Karthauser if ((p=strrchr(confname, '.')) != NULL && !strcmp(p, ".conf")) 21187eb4a42SJosef Karthauser *p = '\0'; 21287eb4a42SJosef Karthauser 21387eb4a42SJosef Karthauser if (!*outmkname) 21487eb4a42SJosef Karthauser snprintf(outmkname, sizeof(outmkname), "%s.mk", confname); 21587eb4a42SJosef Karthauser if (!*outcfname) 21687eb4a42SJosef Karthauser snprintf(outcfname, sizeof(outcfname), "%s.c", confname); 21787eb4a42SJosef Karthauser if (!*execfname) 21887eb4a42SJosef Karthauser snprintf(execfname, sizeof(execfname), "%s", confname); 219de566360SJordan K. Hubbard 220019d04d1SLuigi Rizzo snprintf(cachename, sizeof(cachename), "%s.cache", confname); 22161ffadb1SJosef Karthauser snprintf(tempfname, sizeof(tempfname), "%s/crunchgen_%sXXXXXX", 22261ffadb1SJosef Karthauser getenv("TMPDIR") ? getenv("TMPDIR") : _PATH_TMP, confname); 223188d6f4bSAlex Richardson tempfname_initialized = false; 224de566360SJordan K. Hubbard 225de566360SJordan K. Hubbard parse_conf_file(); 226fb7f926eSPoul-Henning Kamp if (list_mode) 227fb7f926eSPoul-Henning Kamp exit(goterror); 228fb7f926eSPoul-Henning Kamp 229de566360SJordan K. Hubbard gen_outputs(); 230de566360SJordan K. Hubbard 231de566360SJordan K. Hubbard exit(goterror); 232de566360SJordan K. Hubbard } 233de566360SJordan K. Hubbard 234de566360SJordan K. Hubbard 23502c75192SDavid E. O'Brien void 23602c75192SDavid E. O'Brien usage(void) 237de566360SJordan K. Hubbard { 23887eb4a42SJosef Karthauser fprintf(stderr, "%s%s\n\t%s%s\n", "usage: crunchgen [-foq] ", 23987eb4a42SJosef Karthauser "[-h <makefile-header-name>] [-m <makefile>]", 24087eb4a42SJosef Karthauser "[-p <obj-prefix>] [-c <c-file-name>] [-e <exec-file>] ", 24187eb4a42SJosef Karthauser "<conffile>"); 242de566360SJordan K. Hubbard exit(1); 243de566360SJordan K. Hubbard } 244de566360SJordan K. Hubbard 245de566360SJordan K. Hubbard 246de566360SJordan K. Hubbard /* 247de566360SJordan K. Hubbard * ======================================================================== 248de566360SJordan K. Hubbard * parse_conf_file subsystem 249de566360SJordan K. Hubbard * 250de566360SJordan K. Hubbard */ 251de566360SJordan K. Hubbard 252de566360SJordan K. Hubbard /* helper routines for parse_conf_file */ 253de566360SJordan K. Hubbard 254de566360SJordan K. Hubbard void parse_one_file(char *filename); 25596acb2c4SPedro F. Giffuni void parse_line(char *pline, int *fc, char **fv, int nf); 256de566360SJordan K. Hubbard void add_srcdirs(int argc, char **argv); 257de566360SJordan K. Hubbard void add_progs(int argc, char **argv); 258de566360SJordan K. Hubbard void add_link(int argc, char **argv); 259de566360SJordan K. Hubbard void add_libs(int argc, char **argv); 26055f92f64SCeri Davies void add_libs_so(int argc, char **argv); 26108a15190SJosef Karthauser void add_buildopts(int argc, char **argv); 262de566360SJordan K. Hubbard void add_special(int argc, char **argv); 263de566360SJordan K. Hubbard 264de566360SJordan K. Hubbard prog_t *find_prog(char *str); 265de566360SJordan K. Hubbard void add_prog(char *progname); 266de566360SJordan K. Hubbard 267de566360SJordan K. Hubbard 26802c75192SDavid E. O'Brien void 26902c75192SDavid E. O'Brien parse_conf_file(void) 270de566360SJordan K. Hubbard { 271b17e90a9SPhilippe Charnier if (!is_nonempty_file(infilename)) 272b17e90a9SPhilippe Charnier errx(1, "fatal: input file \"%s\" not found", infilename); 27387eb4a42SJosef Karthauser 274de566360SJordan K. Hubbard parse_one_file(infilename); 275de566360SJordan K. Hubbard if (readcache && is_nonempty_file(cachename)) { 276de566360SJordan K. Hubbard reading_cache = 1; 277de566360SJordan K. Hubbard parse_one_file(cachename); 278de566360SJordan K. Hubbard } 279de566360SJordan K. Hubbard } 280de566360SJordan K. Hubbard 281de566360SJordan K. Hubbard 28202c75192SDavid E. O'Brien void 28302c75192SDavid E. O'Brien parse_one_file(char *filename) 284de566360SJordan K. Hubbard { 285de566360SJordan K. Hubbard char *fieldv[MAXFIELDS]; 286de566360SJordan K. Hubbard int fieldc; 287de566360SJordan K. Hubbard void (*f)(int c, char **v); 288de566360SJordan K. Hubbard FILE *cf; 289019d04d1SLuigi Rizzo char line[MAXLINELEN]; 290de566360SJordan K. Hubbard 291f3c47f54SJosef Karthauser snprintf(line, sizeof(line), "reading %s", filename); 292de566360SJordan K. Hubbard status(line); 293f3c47f54SJosef Karthauser strlcpy(curfilename, filename, sizeof(curfilename)); 294de566360SJordan K. Hubbard 295de566360SJordan K. Hubbard if ((cf = fopen(curfilename, "r")) == NULL) { 296b17e90a9SPhilippe Charnier warn("%s", curfilename); 297de566360SJordan K. Hubbard goterror = 1; 298de566360SJordan K. Hubbard return; 299de566360SJordan K. Hubbard } 300de566360SJordan K. Hubbard 301de566360SJordan K. Hubbard linenum = 0; 302de566360SJordan K. Hubbard while (fgets(line, MAXLINELEN, cf) != NULL) { 303de566360SJordan K. Hubbard linenum++; 304de566360SJordan K. Hubbard parse_line(line, &fieldc, fieldv, MAXFIELDS); 30587eb4a42SJosef Karthauser 30687eb4a42SJosef Karthauser if (fieldc < 1) 30787eb4a42SJosef Karthauser continue; 30887eb4a42SJosef Karthauser 30987eb4a42SJosef Karthauser if (!strcmp(fieldv[0], "srcdirs")) 31087eb4a42SJosef Karthauser f = add_srcdirs; 31187eb4a42SJosef Karthauser else if(!strcmp(fieldv[0], "progs")) 31287eb4a42SJosef Karthauser f = add_progs; 31387eb4a42SJosef Karthauser else if(!strcmp(fieldv[0], "ln")) 31487eb4a42SJosef Karthauser f = add_link; 31587eb4a42SJosef Karthauser else if(!strcmp(fieldv[0], "libs")) 31687eb4a42SJosef Karthauser f = add_libs; 31755f92f64SCeri Davies else if(!strcmp(fieldv[0], "libs_so")) 31855f92f64SCeri Davies f = add_libs_so; 31987eb4a42SJosef Karthauser else if(!strcmp(fieldv[0], "buildopts")) 32087eb4a42SJosef Karthauser f = add_buildopts; 32187eb4a42SJosef Karthauser else if(!strcmp(fieldv[0], "special")) 32287eb4a42SJosef Karthauser f = add_special; 323de566360SJordan K. Hubbard else { 324b17e90a9SPhilippe Charnier warnx("%s:%d: skipping unknown command `%s'", 325de566360SJordan K. Hubbard curfilename, linenum, fieldv[0]); 326de566360SJordan K. Hubbard goterror = 1; 327de566360SJordan K. Hubbard continue; 328de566360SJordan K. Hubbard } 32987eb4a42SJosef Karthauser 330de566360SJordan K. Hubbard if (fieldc < 2) { 33187eb4a42SJosef Karthauser warnx("%s:%d: %s %s", 33287eb4a42SJosef Karthauser curfilename, linenum, fieldv[0], 33387eb4a42SJosef Karthauser "command needs at least 1 argument, skipping"); 334de566360SJordan K. Hubbard goterror = 1; 335de566360SJordan K. Hubbard continue; 336de566360SJordan K. Hubbard } 33787eb4a42SJosef Karthauser 338de566360SJordan K. Hubbard f(fieldc, fieldv); 339de566360SJordan K. Hubbard } 340de566360SJordan K. Hubbard 341de566360SJordan K. Hubbard if (ferror(cf)) { 342b17e90a9SPhilippe Charnier warn("%s", curfilename); 343de566360SJordan K. Hubbard goterror = 1; 344de566360SJordan K. Hubbard } 345de566360SJordan K. Hubbard fclose(cf); 346de566360SJordan K. Hubbard } 347de566360SJordan K. Hubbard 348de566360SJordan K. Hubbard 34902c75192SDavid E. O'Brien void 35096acb2c4SPedro F. Giffuni parse_line(char *pline, int *fc, char **fv, int nf) 351de566360SJordan K. Hubbard { 352de566360SJordan K. Hubbard char *p; 353de566360SJordan K. Hubbard 35496acb2c4SPedro F. Giffuni p = pline; 355de566360SJordan K. Hubbard *fc = 0; 356de566360SJordan K. Hubbard 35787eb4a42SJosef Karthauser while (1) { 35896acb2c4SPedro F. Giffuni while (isspace((unsigned char)*p)) 35987eb4a42SJosef Karthauser p++; 36087eb4a42SJosef Karthauser 36187eb4a42SJosef Karthauser if (*p == '\0' || *p == '#') 36287eb4a42SJosef Karthauser break; 36387eb4a42SJosef Karthauser 36487eb4a42SJosef Karthauser if (*fc < nf) 36587eb4a42SJosef Karthauser fv[(*fc)++] = p; 36687eb4a42SJosef Karthauser 36796acb2c4SPedro F. Giffuni while (*p && !isspace((unsigned char)*p) && *p != '#') 36887eb4a42SJosef Karthauser p++; 36987eb4a42SJosef Karthauser 37087eb4a42SJosef Karthauser if (*p == '\0' || *p == '#') 37187eb4a42SJosef Karthauser break; 37287eb4a42SJosef Karthauser 373de566360SJordan K. Hubbard *p++ = '\0'; 374de566360SJordan K. Hubbard } 37587eb4a42SJosef Karthauser 37687eb4a42SJosef Karthauser if (*p) 37787eb4a42SJosef Karthauser *p = '\0'; /* needed for '#' case */ 378de566360SJordan K. Hubbard } 379de566360SJordan K. Hubbard 380de566360SJordan K. Hubbard 38102c75192SDavid E. O'Brien void 38202c75192SDavid E. O'Brien add_srcdirs(int argc, char **argv) 383de566360SJordan K. Hubbard { 384de566360SJordan K. Hubbard int i; 385de566360SJordan K. Hubbard 386de566360SJordan K. Hubbard for (i = 1; i < argc; i++) { 387de566360SJordan K. Hubbard if (is_dir(argv[i])) 388de566360SJordan K. Hubbard add_string(&srcdirs, argv[i]); 389de566360SJordan K. Hubbard else { 390b17e90a9SPhilippe Charnier warnx("%s:%d: `%s' is not a directory, skipping it", 391de566360SJordan K. Hubbard curfilename, linenum, argv[i]); 392de566360SJordan K. Hubbard goterror = 1; 393de566360SJordan K. Hubbard } 394de566360SJordan K. Hubbard } 395de566360SJordan K. Hubbard } 396de566360SJordan K. Hubbard 397de566360SJordan K. Hubbard 39802c75192SDavid E. O'Brien void 39902c75192SDavid E. O'Brien add_progs(int argc, char **argv) 400de566360SJordan K. Hubbard { 401de566360SJordan K. Hubbard int i; 402de566360SJordan K. Hubbard 403de566360SJordan K. Hubbard for (i = 1; i < argc; i++) 404de566360SJordan K. Hubbard add_prog(argv[i]); 405de566360SJordan K. Hubbard } 406de566360SJordan K. Hubbard 407de566360SJordan K. Hubbard 40802c75192SDavid E. O'Brien void 40902c75192SDavid E. O'Brien add_prog(char *progname) 410de566360SJordan K. Hubbard { 411de566360SJordan K. Hubbard prog_t *p1, *p2; 412de566360SJordan K. Hubbard 413de566360SJordan K. Hubbard /* add to end, but be smart about dups */ 414de566360SJordan K. Hubbard 415de566360SJordan K. Hubbard for (p1 = NULL, p2 = progs; p2 != NULL; p1 = p2, p2 = p2->next) 41687eb4a42SJosef Karthauser if (!strcmp(p2->name, progname)) 41787eb4a42SJosef Karthauser return; 418de566360SJordan K. Hubbard 419de566360SJordan K. Hubbard p2 = malloc(sizeof(prog_t)); 420eb148815SJoerg Wunsch if(p2) { 421eb148815SJoerg Wunsch memset(p2, 0, sizeof(prog_t)); 422eb148815SJoerg Wunsch p2->name = strdup(progname); 423eb148815SJoerg Wunsch } 424de566360SJordan K. Hubbard if (!p2 || !p2->name) 425de566360SJordan K. Hubbard out_of_memory(); 426de566360SJordan K. Hubbard 427de566360SJordan K. Hubbard p2->next = NULL; 42887eb4a42SJosef Karthauser if (p1 == NULL) 42987eb4a42SJosef Karthauser progs = p2; 43087eb4a42SJosef Karthauser else 43187eb4a42SJosef Karthauser p1->next = p2; 432de566360SJordan K. Hubbard 43387eb4a42SJosef Karthauser p2->ident = NULL; 43487eb4a42SJosef Karthauser p2->srcdir = NULL; 43587eb4a42SJosef Karthauser p2->realsrcdir = NULL; 43687eb4a42SJosef Karthauser p2->objdir = NULL; 43787eb4a42SJosef Karthauser p2->links = NULL; 438252f13abSLuigi Rizzo p2->libs = NULL; 43955f92f64SCeri Davies p2->libs_so = NULL; 44087eb4a42SJosef Karthauser p2->objs = NULL; 44187eb4a42SJosef Karthauser p2->keeplist = NULL; 44234944d48SJosef Karthauser p2->buildopts = NULL; 443de566360SJordan K. Hubbard p2->goterror = 0; 44487eb4a42SJosef Karthauser 445fb7f926eSPoul-Henning Kamp if (list_mode) 446fb7f926eSPoul-Henning Kamp printf("%s\n",progname); 447de566360SJordan K. Hubbard } 448de566360SJordan K. Hubbard 449de566360SJordan K. Hubbard 45002c75192SDavid E. O'Brien void 45102c75192SDavid E. O'Brien add_link(int argc, char **argv) 452de566360SJordan K. Hubbard { 453de566360SJordan K. Hubbard int i; 454de566360SJordan K. Hubbard prog_t *p = find_prog(argv[1]); 455de566360SJordan K. Hubbard 456de566360SJordan K. Hubbard if (p == NULL) { 457b17e90a9SPhilippe Charnier warnx("%s:%d: no prog %s previously declared, skipping link", 458de566360SJordan K. Hubbard curfilename, linenum, argv[1]); 459de566360SJordan K. Hubbard goterror = 1; 460de566360SJordan K. Hubbard return; 461de566360SJordan K. Hubbard } 46287eb4a42SJosef Karthauser 463fb7f926eSPoul-Henning Kamp for (i = 2; i < argc; i++) { 464fb7f926eSPoul-Henning Kamp if (list_mode) 465fb7f926eSPoul-Henning Kamp printf("%s\n",argv[i]); 46687eb4a42SJosef Karthauser 467de566360SJordan K. Hubbard add_string(&p->links, argv[i]); 468de566360SJordan K. Hubbard } 469fb7f926eSPoul-Henning Kamp } 470de566360SJordan K. Hubbard 471de566360SJordan K. Hubbard 47202c75192SDavid E. O'Brien void 47302c75192SDavid E. O'Brien add_libs(int argc, char **argv) 474de566360SJordan K. Hubbard { 475de566360SJordan K. Hubbard int i; 476de566360SJordan K. Hubbard 47755f92f64SCeri Davies for(i = 1; i < argc; i++) { 478de566360SJordan K. Hubbard add_string(&libs, argv[i]); 47955f92f64SCeri Davies if ( in_list(&libs_so, argv[i]) ) 48055f92f64SCeri Davies warnx("%s:%d: " 48155f92f64SCeri Davies "library `%s' specified as dynamic earlier", 48255f92f64SCeri Davies curfilename, linenum, argv[i]); 48355f92f64SCeri Davies } 48455f92f64SCeri Davies } 48555f92f64SCeri Davies 48655f92f64SCeri Davies 48702c75192SDavid E. O'Brien void 48802c75192SDavid E. O'Brien add_libs_so(int argc, char **argv) 48955f92f64SCeri Davies { 49055f92f64SCeri Davies int i; 49155f92f64SCeri Davies 49255f92f64SCeri Davies for(i = 1; i < argc; i++) { 49355f92f64SCeri Davies add_string(&libs_so, argv[i]); 49455f92f64SCeri Davies if ( in_list(&libs, argv[i]) ) 49555f92f64SCeri Davies warnx("%s:%d: " 49655f92f64SCeri Davies "library `%s' specified as static earlier", 49755f92f64SCeri Davies curfilename, linenum, argv[i]); 49855f92f64SCeri Davies } 499de566360SJordan K. Hubbard } 500de566360SJordan K. Hubbard 501de566360SJordan K. Hubbard 50202c75192SDavid E. O'Brien void 50302c75192SDavid E. O'Brien add_buildopts(int argc, char **argv) 50408a15190SJosef Karthauser { 50508a15190SJosef Karthauser int i; 50608a15190SJosef Karthauser 50708a15190SJosef Karthauser for (i = 1; i < argc; i++) 50808a15190SJosef Karthauser add_string(&buildopts, argv[i]); 50908a15190SJosef Karthauser } 51008a15190SJosef Karthauser 51108a15190SJosef Karthauser 51202c75192SDavid E. O'Brien void 51302c75192SDavid E. O'Brien add_special(int argc, char **argv) 514de566360SJordan K. Hubbard { 515de566360SJordan K. Hubbard int i; 516de566360SJordan K. Hubbard prog_t *p = find_prog(argv[1]); 517de566360SJordan K. Hubbard 518de566360SJordan K. Hubbard if (p == NULL) { 51987eb4a42SJosef Karthauser if (reading_cache) 52087eb4a42SJosef Karthauser return; 52187eb4a42SJosef Karthauser 522b17e90a9SPhilippe Charnier warnx("%s:%d: no prog %s previously declared, skipping special", 523de566360SJordan K. Hubbard curfilename, linenum, argv[1]); 524de566360SJordan K. Hubbard goterror = 1; 525de566360SJordan K. Hubbard return; 526de566360SJordan K. Hubbard } 527de566360SJordan K. Hubbard 528de566360SJordan K. Hubbard if (!strcmp(argv[2], "ident")) { 52987eb4a42SJosef Karthauser if (argc != 4) 53087eb4a42SJosef Karthauser goto argcount; 531de566360SJordan K. Hubbard if ((p->ident = strdup(argv[3])) == NULL) 532de566360SJordan K. Hubbard out_of_memory(); 53387eb4a42SJosef Karthauser } else if (!strcmp(argv[2], "srcdir")) { 53487eb4a42SJosef Karthauser if (argc != 4) 53587eb4a42SJosef Karthauser goto argcount; 536de566360SJordan K. Hubbard if ((p->srcdir = strdup(argv[3])) == NULL) 537de566360SJordan K. Hubbard out_of_memory(); 53887eb4a42SJosef Karthauser } else if (!strcmp(argv[2], "objdir")) { 53987eb4a42SJosef Karthauser if(argc != 4) 54087eb4a42SJosef Karthauser goto argcount; 541de566360SJordan K. Hubbard if((p->objdir = strdup(argv[3])) == NULL) 542de566360SJordan K. Hubbard out_of_memory(); 54387eb4a42SJosef Karthauser } else if (!strcmp(argv[2], "objs")) { 544de566360SJordan K. Hubbard p->objs = NULL; 545de566360SJordan K. Hubbard for (i = 3; i < argc; i++) 546de566360SJordan K. Hubbard add_string(&p->objs, argv[i]); 54787eb4a42SJosef Karthauser } else if (!strcmp(argv[2], "objpaths")) { 548de566360SJordan K. Hubbard p->objpaths = NULL; 549de566360SJordan K. Hubbard for (i = 3; i < argc; i++) 550de566360SJordan K. Hubbard add_string(&p->objpaths, argv[i]); 55187eb4a42SJosef Karthauser } else if (!strcmp(argv[2], "keep")) { 55242ac3bf1SJoerg Wunsch p->keeplist = NULL; 55342ac3bf1SJoerg Wunsch for(i = 3; i < argc; i++) 55442ac3bf1SJoerg Wunsch add_string(&p->keeplist, argv[i]); 55587eb4a42SJosef Karthauser } else if (!strcmp(argv[2], "objvar")) { 55608826cadSLuigi Rizzo if(argc != 4) 55708826cadSLuigi Rizzo goto argcount; 55808826cadSLuigi Rizzo if ((p->objvar = strdup(argv[3])) == NULL) 55908826cadSLuigi Rizzo out_of_memory(); 56087eb4a42SJosef Karthauser } else if (!strcmp(argv[2], "buildopts")) { 56134944d48SJosef Karthauser p->buildopts = NULL; 56234944d48SJosef Karthauser for (i = 3; i < argc; i++) 56334944d48SJosef Karthauser add_string(&p->buildopts, argv[i]); 564252f13abSLuigi Rizzo } else if (!strcmp(argv[2], "lib")) { 565252f13abSLuigi Rizzo for (i = 3; i < argc; i++) 566252f13abSLuigi Rizzo add_string(&p->libs, argv[i]); 56787eb4a42SJosef Karthauser } else { 568b17e90a9SPhilippe Charnier warnx("%s:%d: bad parameter name `%s', skipping line", 569de566360SJordan K. Hubbard curfilename, linenum, argv[2]); 570de566360SJordan K. Hubbard goterror = 1; 571de566360SJordan K. Hubbard } 572de566360SJordan K. Hubbard return; 573de566360SJordan K. Hubbard 574de566360SJordan K. Hubbard argcount: 575b17e90a9SPhilippe Charnier warnx("%s:%d: too %s arguments, expected \"special %s %s <string>\"", 576de566360SJordan K. Hubbard curfilename, linenum, argc < 4? "few" : "many", argv[1], argv[2]); 577de566360SJordan K. Hubbard goterror = 1; 578de566360SJordan K. Hubbard } 579de566360SJordan K. Hubbard 580de566360SJordan K. Hubbard 581de566360SJordan K. Hubbard prog_t *find_prog(char *str) 582de566360SJordan K. Hubbard { 583de566360SJordan K. Hubbard prog_t *p; 584de566360SJordan K. Hubbard 585de566360SJordan K. Hubbard for (p = progs; p != NULL; p = p->next) 58687eb4a42SJosef Karthauser if (!strcmp(p->name, str)) 58787eb4a42SJosef Karthauser return p; 588de566360SJordan K. Hubbard 589de566360SJordan K. Hubbard return NULL; 590de566360SJordan K. Hubbard } 591de566360SJordan K. Hubbard 592de566360SJordan K. Hubbard 593de566360SJordan K. Hubbard /* 594de566360SJordan K. Hubbard * ======================================================================== 595de566360SJordan K. Hubbard * gen_outputs subsystem 596de566360SJordan K. Hubbard * 597de566360SJordan K. Hubbard */ 598de566360SJordan K. Hubbard 599de566360SJordan K. Hubbard /* helper subroutines */ 600de566360SJordan K. Hubbard 601de566360SJordan K. Hubbard void remove_error_progs(void); 602de566360SJordan K. Hubbard void fillin_program(prog_t *p); 603de566360SJordan K. Hubbard void gen_specials_cache(void); 604de566360SJordan K. Hubbard void gen_output_makefile(void); 605de566360SJordan K. Hubbard void gen_output_cfile(void); 606de566360SJordan K. Hubbard 607de566360SJordan K. Hubbard void fillin_program_objs(prog_t *p, char *path); 608de566360SJordan K. Hubbard void top_makefile_rules(FILE *outmk); 609de566360SJordan K. Hubbard void prog_makefile_rules(FILE *outmk, prog_t *p); 610de566360SJordan K. Hubbard void output_strlst(FILE *outf, strlst_t *lst); 611de566360SJordan K. Hubbard char *genident(char *str); 612de566360SJordan K. Hubbard char *dir_search(char *progname); 613de566360SJordan K. Hubbard 614de566360SJordan K. Hubbard 61502c75192SDavid E. O'Brien void 61602c75192SDavid E. O'Brien gen_outputs(void) 617de566360SJordan K. Hubbard { 618de566360SJordan K. Hubbard prog_t *p; 619de566360SJordan K. Hubbard 620de566360SJordan K. Hubbard for (p = progs; p != NULL; p = p->next) 621de566360SJordan K. Hubbard fillin_program(p); 622de566360SJordan K. Hubbard 623de566360SJordan K. Hubbard remove_error_progs(); 624de566360SJordan K. Hubbard gen_specials_cache(); 625de566360SJordan K. Hubbard gen_output_cfile(); 626de566360SJordan K. Hubbard gen_output_makefile(); 627de566360SJordan K. Hubbard status(""); 628de566360SJordan K. Hubbard fprintf(stderr, 62970840a51SDavid E. O'Brien "Run \"%s -f %s\" to build crunched binary.\n", 63070840a51SDavid E. O'Brien path_make, outmkname); 631de566360SJordan K. Hubbard } 632de566360SJordan K. Hubbard 63308826cadSLuigi Rizzo /* 63408826cadSLuigi Rizzo * run the makefile for the program to find which objects are necessary 63508826cadSLuigi Rizzo */ 63602c75192SDavid E. O'Brien void 63702c75192SDavid E. O'Brien fillin_program(prog_t *p) 638de566360SJordan K. Hubbard { 639de566360SJordan K. Hubbard char path[MAXPATHLEN]; 640019d04d1SLuigi Rizzo char line[MAXLINELEN]; 641843d8d51SJosef Karthauser FILE *f; 642de566360SJordan K. Hubbard 643019d04d1SLuigi Rizzo snprintf(line, MAXLINELEN, "filling in parms for %s", p->name); 644de566360SJordan K. Hubbard status(line); 645de566360SJordan K. Hubbard 646de566360SJordan K. Hubbard if (!p->ident) 647de566360SJordan K. Hubbard p->ident = genident(p->name); 648e3b7d178SJosef Karthauser 649e3b7d178SJosef Karthauser /* look for the source directory if one wasn't specified by a special */ 650de566360SJordan K. Hubbard if (!p->srcdir) { 651e3b7d178SJosef Karthauser p->srcdir = dir_search(p->name); 652de566360SJordan K. Hubbard } 653843d8d51SJosef Karthauser 654843d8d51SJosef Karthauser /* Determine the actual srcdir (maybe symlinked). */ 655e3b7d178SJosef Karthauser if (p->srcdir) { 6560d5e6518SAlex Richardson snprintf(line, MAXLINELEN, "cd %s && pwd -P", p->srcdir); 657019d04d1SLuigi Rizzo f = popen(line,"r"); 658e3b7d178SJosef Karthauser if (!f) 659e3b7d178SJosef Karthauser errx(1, "Can't execute: %s\n", line); 660e3b7d178SJosef Karthauser 661019d04d1SLuigi Rizzo path[0] = '\0'; 662154fd6a9SPoul-Henning Kamp fgets(path, sizeof path, f); 663e3b7d178SJosef Karthauser if (pclose(f)) 664e3b7d178SJosef Karthauser errx(1, "Can't execute: %s\n", line); 665e3b7d178SJosef Karthauser 666e3b7d178SJosef Karthauser if (!*path) 667e3b7d178SJosef Karthauser errx(1, "Can't perform pwd on: %s\n", p->srcdir); 668e3b7d178SJosef Karthauser 669843d8d51SJosef Karthauser p->realsrcdir = strdup(path); 670154fd6a9SPoul-Henning Kamp } 671843d8d51SJosef Karthauser 672843d8d51SJosef Karthauser /* Unless the option to make object files was specified the 673843d8d51SJosef Karthauser * the objects will be built in the source directory unless 674843d8d51SJosef Karthauser * an object directory already exists. 675843d8d51SJosef Karthauser */ 676843d8d51SJosef Karthauser if (!makeobj && !p->objdir && p->srcdir) { 677eb9b07bbSBryan Drewery char *auto_obj; 678eb9b07bbSBryan Drewery 679eb9b07bbSBryan Drewery auto_obj = NULL; 680843d8d51SJosef Karthauser snprintf(line, sizeof line, "%s/%s", objprefix, p->realsrcdir); 681eb9b07bbSBryan Drewery if (is_dir(line) || 682eb9b07bbSBryan Drewery ((auto_obj = getenv("MK_AUTO_OBJ")) != NULL && 683eb9b07bbSBryan Drewery strcmp(auto_obj, "yes") == 0)) { 684f3c47f54SJosef Karthauser if ((p->objdir = strdup(line)) == NULL) 685f3c47f54SJosef Karthauser out_of_memory(); 6865e5f3826SJosef Karthauser } else 687843d8d51SJosef Karthauser p->objdir = p->realsrcdir; 688de566360SJordan K. Hubbard } 68987eb4a42SJosef Karthauser 69008826cadSLuigi Rizzo /* 69108826cadSLuigi Rizzo * XXX look for a Makefile.{name} in local directory first. 69208826cadSLuigi Rizzo * This lets us override the original Makefile. 69308826cadSLuigi Rizzo */ 694019d04d1SLuigi Rizzo snprintf(path, sizeof(path), "Makefile.%s", p->name); 69508826cadSLuigi Rizzo if (is_nonempty_file(path)) { 696019d04d1SLuigi Rizzo snprintf(line, MAXLINELEN, "Using %s for %s", path, p->name); 69708826cadSLuigi Rizzo status(line); 69808826cadSLuigi Rizzo } else 69987eb4a42SJosef Karthauser if (p->srcdir) 70087eb4a42SJosef Karthauser snprintf(path, sizeof(path), "%s/Makefile", p->srcdir); 701de566360SJordan K. Hubbard if (!p->objs && p->srcdir && is_nonempty_file(path)) 702de566360SJordan K. Hubbard fillin_program_objs(p, path); 703de566360SJordan K. Hubbard 70411384533SJosef Karthauser if (!p->srcdir && !p->objdir && verbose) 70587eb4a42SJosef Karthauser warnx("%s: %s: %s", 70687eb4a42SJosef Karthauser "warning: could not find source directory", 707de566360SJordan K. Hubbard infilename, p->name); 708de566360SJordan K. Hubbard if (!p->objs && verbose) 709b17e90a9SPhilippe Charnier warnx("%s: %s: warning: could not find any .o files", 710de566360SJordan K. Hubbard infilename, p->name); 711617b8180SJosef Karthauser 7121554755eSJosef Karthauser if ((!p->srcdir || !p->objdir) && !p->objs) 713617b8180SJosef Karthauser p->goterror = 1; 714de566360SJordan K. Hubbard } 715de566360SJordan K. Hubbard 71602c75192SDavid E. O'Brien void 71702c75192SDavid E. O'Brien fillin_program_objs(prog_t *p, char *path) 718de566360SJordan K. Hubbard { 719de566360SJordan K. Hubbard char *obj, *cp; 720f3c47f54SJosef Karthauser int fd, rc; 721de566360SJordan K. Hubbard FILE *f; 72208826cadSLuigi Rizzo char *objvar="OBJS"; 72334944d48SJosef Karthauser strlst_t *s; 724019d04d1SLuigi Rizzo char line[MAXLINELEN]; 725de566360SJordan K. Hubbard 726de566360SJordan K. Hubbard /* discover the objs from the srcdir Makefile */ 727de566360SJordan K. Hubbard 728188d6f4bSAlex Richardson /* 729188d6f4bSAlex Richardson * We reuse the same temporary file name for multiple objects. However, 730188d6f4bSAlex Richardson * some libc implementations (such as glibc) return EINVAL if there 731188d6f4bSAlex Richardson * are no XXXXX characters in the template. This happens after the 732188d6f4bSAlex Richardson * first call to mkstemp since the argument is modified in-place. 733188d6f4bSAlex Richardson * To avoid this error we use open() instead of mkstemp() after the 734188d6f4bSAlex Richardson * call to mkstemp(). 735188d6f4bSAlex Richardson */ 736188d6f4bSAlex Richardson if (tempfname_initialized) { 737188d6f4bSAlex Richardson if ((fd = open(tempfname, O_CREAT | O_EXCL | O_RDWR, 0600)) == -1) { 738188d6f4bSAlex Richardson err(EX_OSERR, "open(%s)", tempfname); 739f3c47f54SJosef Karthauser } 740188d6f4bSAlex Richardson } else if ((fd = mkstemp(tempfname)) == -1) { 741188d6f4bSAlex Richardson err(EX_OSERR, "mkstemp(%s)", tempfname); 742188d6f4bSAlex Richardson } 743188d6f4bSAlex Richardson tempfname_initialized = true; 744f3c47f54SJosef Karthauser if ((f = fdopen(fd, "w")) == NULL) { 745188d6f4bSAlex Richardson warn("fdopen(%s)", tempfname); 746de566360SJordan K. Hubbard goterror = 1; 747188d6f4bSAlex Richardson goto out; 748de566360SJordan K. Hubbard } 74908826cadSLuigi Rizzo if (p->objvar) 75008826cadSLuigi Rizzo objvar = p->objvar; 751de566360SJordan K. Hubbard 75208826cadSLuigi Rizzo /* 75308826cadSLuigi Rizzo * XXX include outhdrname (e.g. to contain Make variables) 75408826cadSLuigi Rizzo */ 75508826cadSLuigi Rizzo if (outhdrname[0] != '\0') 75608826cadSLuigi Rizzo fprintf(f, ".include \"%s\"\n", outhdrname); 757de566360SJordan K. Hubbard fprintf(f, ".include \"%s\"\n", path); 758b0889725SDavid E. O'Brien fprintf(f, ".POSIX:\n"); 75908a15190SJosef Karthauser if (buildopts) { 76008a15190SJosef Karthauser fprintf(f, "BUILDOPTS+="); 76108a15190SJosef Karthauser output_strlst(f, buildopts); 76208a15190SJosef Karthauser } 7637328f913SDavid E. O'Brien fprintf(f, ".if defined(PROG)\n"); 7647328f913SDavid E. O'Brien fprintf(f, "%s?=${PROG}.o\n", objvar); 765de566360SJordan K. Hubbard fprintf(f, ".endif\n"); 76665cb078fSJosef Karthauser fprintf(f, "loop:\n\t@echo 'OBJS= '${%s}\n", objvar); 76734944d48SJosef Karthauser 7682343a534SRuslan Ermilov fprintf(f, "crunchgen_objs:\n" 76970840a51SDavid E. O'Brien "\t@cd %s && %s -f %s $(BUILDOPTS) $(%s_OPTS)", 77070840a51SDavid E. O'Brien p->srcdir, path_make, tempfname, p->ident); 77134944d48SJosef Karthauser for (s = p->buildopts; s != NULL; s = s->next) 77234944d48SJosef Karthauser fprintf(f, " %s", s->str); 77334944d48SJosef Karthauser fprintf(f, " loop\n"); 77434944d48SJosef Karthauser 775de566360SJordan K. Hubbard fclose(f); 776de566360SJordan K. Hubbard 77770840a51SDavid E. O'Brien snprintf(line, MAXLINELEN, "cd %s && %s -f %s -B crunchgen_objs", 77870840a51SDavid E. O'Brien p->srcdir, path_make, tempfname); 779de566360SJordan K. Hubbard if ((f = popen(line, "r")) == NULL) { 780b17e90a9SPhilippe Charnier warn("submake pipe"); 781de566360SJordan K. Hubbard goterror = 1; 782188d6f4bSAlex Richardson goto out; 783de566360SJordan K. Hubbard } 784de566360SJordan K. Hubbard 785de566360SJordan K. Hubbard while(fgets(line, MAXLINELEN, f)) { 786de566360SJordan K. Hubbard if (strncmp(line, "OBJS= ", 6)) { 787b17e90a9SPhilippe Charnier warnx("make error: %s", line); 788de566360SJordan K. Hubbard goterror = 1; 789188d6f4bSAlex Richardson goto out; 790de566360SJordan K. Hubbard } 79187eb4a42SJosef Karthauser 792de566360SJordan K. Hubbard cp = line + 6; 79396acb2c4SPedro F. Giffuni while (isspace((unsigned char)*cp)) 79487eb4a42SJosef Karthauser cp++; 79587eb4a42SJosef Karthauser 796de566360SJordan K. Hubbard while(*cp) { 797de566360SJordan K. Hubbard obj = cp; 79896acb2c4SPedro F. Giffuni while (*cp && !isspace((unsigned char)*cp)) 79987eb4a42SJosef Karthauser cp++; 80087eb4a42SJosef Karthauser if (*cp) 80187eb4a42SJosef Karthauser *cp++ = '\0'; 802de566360SJordan K. Hubbard add_string(&p->objs, obj); 80396acb2c4SPedro F. Giffuni while (isspace((unsigned char)*cp)) 80487eb4a42SJosef Karthauser cp++; 805de566360SJordan K. Hubbard } 806de566360SJordan K. Hubbard } 80787eb4a42SJosef Karthauser 808de566360SJordan K. Hubbard if ((rc=pclose(f)) != 0) { 809b17e90a9SPhilippe Charnier warnx("make error: make returned %d", rc); 810de566360SJordan K. Hubbard goterror = 1; 811de566360SJordan K. Hubbard } 812188d6f4bSAlex Richardson out: 813de566360SJordan K. Hubbard unlink(tempfname); 814de566360SJordan K. Hubbard } 815de566360SJordan K. Hubbard 81602c75192SDavid E. O'Brien void 81702c75192SDavid E. O'Brien remove_error_progs(void) 818de566360SJordan K. Hubbard { 819de566360SJordan K. Hubbard prog_t *p1, *p2; 820de566360SJordan K. Hubbard 821de566360SJordan K. Hubbard p1 = NULL; p2 = progs; 822de566360SJordan K. Hubbard while (p2 != NULL) { 823de566360SJordan K. Hubbard if (!p2->goterror) 824de566360SJordan K. Hubbard p1 = p2, p2 = p2->next; 825de566360SJordan K. Hubbard else { 826de566360SJordan K. Hubbard /* delete it from linked list */ 827b17e90a9SPhilippe Charnier warnx("%s: %s: ignoring program because of errors", 828de566360SJordan K. Hubbard infilename, p2->name); 82987eb4a42SJosef Karthauser if (p1) 83087eb4a42SJosef Karthauser p1->next = p2->next; 83187eb4a42SJosef Karthauser else 83287eb4a42SJosef Karthauser progs = p2->next; 833de566360SJordan K. Hubbard p2 = p2->next; 834de566360SJordan K. Hubbard } 835de566360SJordan K. Hubbard } 836de566360SJordan K. Hubbard } 837de566360SJordan K. Hubbard 83802c75192SDavid E. O'Brien void 83902c75192SDavid E. O'Brien gen_specials_cache(void) 840de566360SJordan K. Hubbard { 841de566360SJordan K. Hubbard FILE *cachef; 842de566360SJordan K. Hubbard prog_t *p; 843019d04d1SLuigi Rizzo char line[MAXLINELEN]; 844de566360SJordan K. Hubbard 845019d04d1SLuigi Rizzo snprintf(line, MAXLINELEN, "generating %s", cachename); 846de566360SJordan K. Hubbard status(line); 847de566360SJordan K. Hubbard 848de566360SJordan K. Hubbard if ((cachef = fopen(cachename, "w")) == NULL) { 849b17e90a9SPhilippe Charnier warn("%s", cachename); 850de566360SJordan K. Hubbard goterror = 1; 851de566360SJordan K. Hubbard return; 852de566360SJordan K. Hubbard } 853de566360SJordan K. Hubbard 85487eb4a42SJosef Karthauser fprintf(cachef, "# %s - parm cache generated from %s by crunchgen " 85587eb4a42SJosef Karthauser " %s\n\n", 856de566360SJordan K. Hubbard cachename, infilename, CRUNCH_VERSION); 857de566360SJordan K. Hubbard 858de566360SJordan K. Hubbard for (p = progs; p != NULL; p = p->next) { 859de566360SJordan K. Hubbard fprintf(cachef, "\n"); 860de566360SJordan K. Hubbard if (p->srcdir) 86187eb4a42SJosef Karthauser fprintf(cachef, "special %s srcdir %s\n", 86287eb4a42SJosef Karthauser p->name, p->srcdir); 863de566360SJordan K. Hubbard if (p->objdir) 86487eb4a42SJosef Karthauser fprintf(cachef, "special %s objdir %s\n", 86587eb4a42SJosef Karthauser p->name, p->objdir); 866de566360SJordan K. Hubbard if (p->objs) { 867de566360SJordan K. Hubbard fprintf(cachef, "special %s objs", p->name); 868de566360SJordan K. Hubbard output_strlst(cachef, p->objs); 869de566360SJordan K. Hubbard } 870843d8d51SJosef Karthauser if (p->objpaths) { 871de566360SJordan K. Hubbard fprintf(cachef, "special %s objpaths", p->name); 872de566360SJordan K. Hubbard output_strlst(cachef, p->objpaths); 873de566360SJordan K. Hubbard } 874843d8d51SJosef Karthauser } 875de566360SJordan K. Hubbard fclose(cachef); 876de566360SJordan K. Hubbard } 877de566360SJordan K. Hubbard 878de566360SJordan K. Hubbard 87902c75192SDavid E. O'Brien void 88002c75192SDavid E. O'Brien gen_output_makefile(void) 881de566360SJordan K. Hubbard { 882de566360SJordan K. Hubbard prog_t *p; 883de566360SJordan K. Hubbard FILE *outmk; 884019d04d1SLuigi Rizzo char line[MAXLINELEN]; 885de566360SJordan K. Hubbard 886019d04d1SLuigi Rizzo snprintf(line, MAXLINELEN, "generating %s", outmkname); 887de566360SJordan K. Hubbard status(line); 888de566360SJordan K. Hubbard 889de566360SJordan K. Hubbard if ((outmk = fopen(outmkname, "w")) == NULL) { 890b17e90a9SPhilippe Charnier warn("%s", outmkname); 891de566360SJordan K. Hubbard goterror = 1; 892de566360SJordan K. Hubbard return; 893de566360SJordan K. Hubbard } 894de566360SJordan K. Hubbard 895de566360SJordan K. Hubbard fprintf(outmk, "# %s - generated from %s by crunchgen %s\n\n", 896de566360SJordan K. Hubbard outmkname, infilename, CRUNCH_VERSION); 89787eb4a42SJosef Karthauser 89808826cadSLuigi Rizzo if (outhdrname[0] != '\0') 89908826cadSLuigi Rizzo fprintf(outmk, ".include \"%s\"\n", outhdrname); 900de566360SJordan K. Hubbard 901de566360SJordan K. Hubbard top_makefile_rules(outmk); 902de566360SJordan K. Hubbard for (p = progs; p != NULL; p = p->next) 903de566360SJordan K. Hubbard prog_makefile_rules(outmk, p); 904de566360SJordan K. Hubbard 905de566360SJordan K. Hubbard fprintf(outmk, "\n# ========\n"); 906de566360SJordan K. Hubbard fclose(outmk); 907de566360SJordan K. Hubbard } 908de566360SJordan K. Hubbard 909de566360SJordan K. Hubbard 91002c75192SDavid E. O'Brien void 91102c75192SDavid E. O'Brien gen_output_cfile(void) 912de566360SJordan K. Hubbard { 913de566360SJordan K. Hubbard char **cp; 914de566360SJordan K. Hubbard FILE *outcf; 915de566360SJordan K. Hubbard prog_t *p; 916de566360SJordan K. Hubbard strlst_t *s; 917019d04d1SLuigi Rizzo char line[MAXLINELEN]; 918de566360SJordan K. Hubbard 919019d04d1SLuigi Rizzo snprintf(line, MAXLINELEN, "generating %s", outcfname); 920de566360SJordan K. Hubbard status(line); 921de566360SJordan K. Hubbard 922de566360SJordan K. Hubbard if((outcf = fopen(outcfname, "w")) == NULL) { 923b17e90a9SPhilippe Charnier warn("%s", outcfname); 924de566360SJordan K. Hubbard goterror = 1; 925de566360SJordan K. Hubbard return; 926de566360SJordan K. Hubbard } 927de566360SJordan K. Hubbard 928de566360SJordan K. Hubbard fprintf(outcf, 929de566360SJordan K. Hubbard "/* %s - generated from %s by crunchgen %s */\n", 930de566360SJordan K. Hubbard outcfname, infilename, CRUNCH_VERSION); 931de566360SJordan K. Hubbard 932de566360SJordan K. Hubbard fprintf(outcf, "#define EXECNAME \"%s\"\n", execfname); 933de566360SJordan K. Hubbard for (cp = crunched_skel; *cp != NULL; cp++) 934de566360SJordan K. Hubbard fprintf(outcf, "%s\n", *cp); 935de566360SJordan K. Hubbard 936de566360SJordan K. Hubbard for (p = progs; p != NULL; p = p->next) 937*fc905210SKyle Evans fprintf(outcf, 938*fc905210SKyle Evans "extern crunched_stub_t _crunched_%s_stub;\n", 939*fc905210SKyle Evans p->ident); 940de566360SJordan K. Hubbard 941de566360SJordan K. Hubbard fprintf(outcf, "\nstruct stub entry_points[] = {\n"); 942de566360SJordan K. Hubbard for (p = progs; p != NULL; p = p->next) { 943de566360SJordan K. Hubbard fprintf(outcf, "\t{ \"%s\", _crunched_%s_stub },\n", 944de566360SJordan K. Hubbard p->name, p->ident); 945de566360SJordan K. Hubbard for (s = p->links; s != NULL; s = s->next) 946de566360SJordan K. Hubbard fprintf(outcf, "\t{ \"%s\", _crunched_%s_stub },\n", 947de566360SJordan K. Hubbard s->str, p->ident); 948de566360SJordan K. Hubbard } 949de566360SJordan K. Hubbard 950de566360SJordan K. Hubbard fprintf(outcf, "\t{ EXECNAME, crunched_main },\n"); 951de566360SJordan K. Hubbard fprintf(outcf, "\t{ NULL, NULL }\n};\n"); 952de566360SJordan K. Hubbard fclose(outcf); 953de566360SJordan K. Hubbard } 954de566360SJordan K. Hubbard 955de566360SJordan K. Hubbard 956de566360SJordan K. Hubbard char *genident(char *str) 957de566360SJordan K. Hubbard { 958de566360SJordan K. Hubbard char *n, *s, *d; 959de566360SJordan K. Hubbard 960de566360SJordan K. Hubbard /* 96187eb4a42SJosef Karthauser * generates a Makefile/C identifier from a program name, 96287eb4a42SJosef Karthauser * mapping '-' to '_' and ignoring all other non-identifier 96387eb4a42SJosef Karthauser * characters. This leads to programs named "foo.bar" and 96487eb4a42SJosef Karthauser * "foobar" to map to the same identifier. 965de566360SJordan K. Hubbard */ 966de566360SJordan K. Hubbard 967de566360SJordan K. Hubbard if ((n = strdup(str)) == NULL) 968de566360SJordan K. Hubbard return NULL; 969de566360SJordan K. Hubbard for (d = s = n; *s != '\0'; s++) { 97087eb4a42SJosef Karthauser if (*s == '-') 97187eb4a42SJosef Karthauser *d++ = '_'; 97296acb2c4SPedro F. Giffuni else if (*s == '_' || isalnum((unsigned char)*s)) 97387eb4a42SJosef Karthauser *d++ = *s; 974de566360SJordan K. Hubbard } 975de566360SJordan K. Hubbard *d = '\0'; 976de566360SJordan K. Hubbard return n; 977de566360SJordan K. Hubbard } 978de566360SJordan K. Hubbard 979de566360SJordan K. Hubbard 980de566360SJordan K. Hubbard char *dir_search(char *progname) 981de566360SJordan K. Hubbard { 982de566360SJordan K. Hubbard char path[MAXPATHLEN]; 983de566360SJordan K. Hubbard strlst_t *dir; 984e3b7d178SJosef Karthauser char *srcdir; 985de566360SJordan K. Hubbard 986de566360SJordan K. Hubbard for (dir = srcdirs; dir != NULL; dir = dir->next) { 987019d04d1SLuigi Rizzo snprintf(path, MAXPATHLEN, "%s/%s", dir->str, progname); 98887eb4a42SJosef Karthauser if (!is_dir(path)) 989e3b7d178SJosef Karthauser continue; 990e3b7d178SJosef Karthauser 991e3b7d178SJosef Karthauser if ((srcdir = strdup(path)) == NULL) 992e3b7d178SJosef Karthauser out_of_memory(); 99387eb4a42SJosef Karthauser 994e3b7d178SJosef Karthauser return srcdir; 995de566360SJordan K. Hubbard } 996de566360SJordan K. Hubbard return NULL; 997de566360SJordan K. Hubbard } 998de566360SJordan K. Hubbard 999de566360SJordan K. Hubbard 100002c75192SDavid E. O'Brien void 100102c75192SDavid E. O'Brien top_makefile_rules(FILE *outmk) 1002de566360SJordan K. Hubbard { 1003de566360SJordan K. Hubbard prog_t *p; 1004de566360SJordan K. Hubbard 10052ebed5dbSPedro F. Giffuni fprintf(outmk, "LD?= ld\n"); 100655f92f64SCeri Davies if ( subtract_strlst(&libs, &libs_so) ) 100755f92f64SCeri Davies fprintf(outmk, "# NOTE: Some LIBS declarations below overridden by LIBS_SO\n"); 100855f92f64SCeri Davies 1009d1a97625SJosef Karthauser fprintf(outmk, "LIBS+="); 1010de566360SJordan K. Hubbard output_strlst(outmk, libs); 1011de566360SJordan K. Hubbard 101255f92f64SCeri Davies fprintf(outmk, "LIBS_SO+="); 101355f92f64SCeri Davies output_strlst(outmk, libs_so); 101455f92f64SCeri Davies 1015843d8d51SJosef Karthauser if (makeobj) { 1016843d8d51SJosef Karthauser fprintf(outmk, "MAKEOBJDIRPREFIX?=%s\n", objprefix); 1017a8595b66SHartmut Brandt fprintf(outmk, "MAKEENV=env MAKEOBJDIRPREFIX=$(MAKEOBJDIRPREFIX)\n"); 1018a8595b66SHartmut Brandt fprintf(outmk, "CRUNCHMAKE=$(MAKEENV) $(MAKE)\n"); 1019843d8d51SJosef Karthauser } else { 1020a8595b66SHartmut Brandt fprintf(outmk, "CRUNCHMAKE=$(MAKE)\n"); 1021843d8d51SJosef Karthauser } 1022843d8d51SJosef Karthauser 102308a15190SJosef Karthauser if (buildopts) { 102408a15190SJosef Karthauser fprintf(outmk, "BUILDOPTS+="); 102508a15190SJosef Karthauser output_strlst(outmk, buildopts); 102608a15190SJosef Karthauser } 102708a15190SJosef Karthauser 1028de566360SJordan K. Hubbard fprintf(outmk, "CRUNCHED_OBJS="); 1029de566360SJordan K. Hubbard for (p = progs; p != NULL; p = p->next) 1030de566360SJordan K. Hubbard fprintf(outmk, " %s.lo", p->name); 1031de566360SJordan K. Hubbard fprintf(outmk, "\n"); 1032de566360SJordan K. Hubbard 1033de566360SJordan K. Hubbard fprintf(outmk, "SUBMAKE_TARGETS="); 1034de566360SJordan K. Hubbard for (p = progs; p != NULL; p = p->next) 1035de566360SJordan K. Hubbard fprintf(outmk, " %s_make", p->ident); 1036ced716c3SBrian Somers fprintf(outmk, "\nSUBCLEAN_TARGETS="); 1037ced716c3SBrian Somers for (p = progs; p != NULL; p = p->next) 1038ced716c3SBrian Somers fprintf(outmk, " %s_clean", p->ident); 1039de566360SJordan K. Hubbard fprintf(outmk, "\n\n"); 1040de566360SJordan K. Hubbard 1041843d8d51SJosef Karthauser fprintf(outmk, "all: objs exe\nobjs: $(SUBMAKE_TARGETS)\n"); 1042843d8d51SJosef Karthauser fprintf(outmk, "exe: %s\n", execfname); 1043e8a1d46eSJohn Birrell fprintf(outmk, "%s: %s.o $(CRUNCHED_OBJS) $(SUBMAKE_TARGETS)\n", execfname, execfname); 104455f92f64SCeri Davies fprintf(outmk, ".if defined(LIBS_SO) && !empty(LIBS_SO)\n"); 104555f92f64SCeri Davies fprintf(outmk, "\t$(CC) -o %s %s.o $(CRUNCHED_OBJS) \\\n", 104655f92f64SCeri Davies execfname, execfname); 104755f92f64SCeri Davies fprintf(outmk, "\t\t-Xlinker -Bstatic $(LIBS) \\\n"); 104855f92f64SCeri Davies fprintf(outmk, "\t\t-Xlinker -Bdynamic $(LIBS_SO)\n"); 104955f92f64SCeri Davies fprintf(outmk, ".else\n"); 1050de566360SJordan K. Hubbard fprintf(outmk, "\t$(CC) -static -o %s %s.o $(CRUNCHED_OBJS) $(LIBS)\n", 1051de566360SJordan K. Hubbard execfname, execfname); 105255f92f64SCeri Davies fprintf(outmk, ".endif\n"); 1053ced716c3SBrian Somers fprintf(outmk, "realclean: clean subclean\n"); 105487eb4a42SJosef Karthauser fprintf(outmk, "clean:\n\trm -f %s *.lo *.o *_stub.c\n", execfname); 1055ced716c3SBrian Somers fprintf(outmk, "subclean: $(SUBCLEAN_TARGETS)\n"); 1056de566360SJordan K. Hubbard } 1057de566360SJordan K. Hubbard 1058de566360SJordan K. Hubbard 105902c75192SDavid E. O'Brien void 106002c75192SDavid E. O'Brien prog_makefile_rules(FILE *outmk, prog_t *p) 1061de566360SJordan K. Hubbard { 106242ac3bf1SJoerg Wunsch strlst_t *lst; 106342ac3bf1SJoerg Wunsch 1064de566360SJordan K. Hubbard fprintf(outmk, "\n# -------- %s\n\n", p->name); 1065de566360SJordan K. Hubbard 1066843d8d51SJosef Karthauser fprintf(outmk, "%s_OBJDIR=", p->ident); 1067843d8d51SJosef Karthauser if (p->objdir) 1068843d8d51SJosef Karthauser fprintf(outmk, "%s", p->objdir); 1069843d8d51SJosef Karthauser else 1070843d8d51SJosef Karthauser fprintf(outmk, "$(MAKEOBJDIRPREFIX)/$(%s_REALSRCDIR)\n", 1071843d8d51SJosef Karthauser p->ident); 1072843d8d51SJosef Karthauser fprintf(outmk, "\n"); 1073843d8d51SJosef Karthauser 107480f498e5SJohn Birrell fprintf(outmk, "%s_OBJPATHS=", p->ident); 107580f498e5SJohn Birrell if (p->objpaths) 107680f498e5SJohn Birrell output_strlst(outmk, p->objpaths); 107780f498e5SJohn Birrell else { 107880f498e5SJohn Birrell for (lst = p->objs; lst != NULL; lst = lst->next) { 107980f498e5SJohn Birrell fprintf(outmk, " $(%s_OBJDIR)/%s", p->ident, lst->str); 108080f498e5SJohn Birrell } 108180f498e5SJohn Birrell fprintf(outmk, "\n"); 108280f498e5SJohn Birrell } 10835017231aSBryan Drewery fprintf(outmk, "$(%s_OBJPATHS): .NOMETA\n", p->ident); 108480f498e5SJohn Birrell 108511384533SJosef Karthauser if (p->srcdir && p->objs) { 108611384533SJosef Karthauser fprintf(outmk, "%s_SRCDIR=%s\n", p->ident, p->srcdir); 108711384533SJosef Karthauser fprintf(outmk, "%s_REALSRCDIR=%s\n", p->ident, p->realsrcdir); 108811384533SJosef Karthauser 1089de566360SJordan K. Hubbard fprintf(outmk, "%s_OBJS=", p->ident); 1090de566360SJordan K. Hubbard output_strlst(outmk, p->objs); 109134944d48SJosef Karthauser if (p->buildopts != NULL) { 109234944d48SJosef Karthauser fprintf(outmk, "%s_OPTS+=", p->ident); 109334944d48SJosef Karthauser output_strlst(outmk, p->buildopts); 109434944d48SJosef Karthauser } 109551d9ddc6SJohn Birrell #if 0 109680f498e5SJohn Birrell fprintf(outmk, "$(%s_OBJPATHS): %s_make\n\n", p->ident, p->ident); 109751d9ddc6SJohn Birrell #endif 1098de566360SJordan K. Hubbard fprintf(outmk, "%s_make:\n", p->ident); 1099ba2250ddSJosef Karthauser fprintf(outmk, "\t(cd $(%s_SRCDIR) && ", p->ident); 1100ba2250ddSJosef Karthauser if (makeobj) 1101a8595b66SHartmut Brandt fprintf(outmk, "$(CRUNCHMAKE) obj && "); 1102ba2250ddSJosef Karthauser fprintf(outmk, "\\\n"); 1103a8595b66SHartmut Brandt fprintf(outmk, "\t\t$(CRUNCHMAKE) $(BUILDOPTS) $(%s_OPTS) depend &&", 110487eb4a42SJosef Karthauser p->ident); 110587eb4a42SJosef Karthauser fprintf(outmk, "\\\n"); 1106a8595b66SHartmut Brandt fprintf(outmk, "\t\t$(CRUNCHMAKE) $(BUILDOPTS) $(%s_OPTS) " 110787eb4a42SJosef Karthauser "$(%s_OBJS))", 110887eb4a42SJosef Karthauser p->ident, p->ident); 110987eb4a42SJosef Karthauser fprintf(outmk, "\n"); 1110ced716c3SBrian Somers fprintf(outmk, "%s_clean:\n", p->ident); 1111a8595b66SHartmut Brandt fprintf(outmk, "\t(cd $(%s_SRCDIR) && $(CRUNCHMAKE) $(BUILDOPTS) clean cleandepend)\n\n", 111287eb4a42SJosef Karthauser p->ident); 111387eb4a42SJosef Karthauser } else { 111487eb4a42SJosef Karthauser fprintf(outmk, "%s_make:\n", p->ident); 111587eb4a42SJosef Karthauser fprintf(outmk, "\t@echo \"** cannot make objs for %s\"\n\n", 1116a0bac7e0SRuslan Ermilov p->name); 111787eb4a42SJosef Karthauser } 1118de566360SJordan K. Hubbard 1119252f13abSLuigi Rizzo if (p->libs) { 1120252f13abSLuigi Rizzo fprintf(outmk, "%s_LIBS=", p->ident); 1121252f13abSLuigi Rizzo output_strlst(outmk, p->libs); 1122252f13abSLuigi Rizzo } 1123de566360SJordan K. Hubbard 1124de566360SJordan K. Hubbard fprintf(outmk, "%s_stub.c:\n", p->name); 1125de566360SJordan K. Hubbard fprintf(outmk, "\techo \"" 1126e881ec16SRyan Libby "extern int main(int argc, char **argv, char **envp); " 1127*fc905210SKyle Evans "int _crunched_%s_stub(int argc, char **argv, char **envp);" 1128de566360SJordan K. Hubbard "int _crunched_%s_stub(int argc, char **argv, char **envp)" 1129de566360SJordan K. Hubbard "{return main(argc,argv,envp);}\" >%s_stub.c\n", 1130*fc905210SKyle Evans p->ident, p->ident, p->name); 1131252f13abSLuigi Rizzo fprintf(outmk, "%s.lo: %s_stub.o $(%s_OBJPATHS)", 1132de566360SJordan K. Hubbard p->name, p->name, p->ident); 1133252f13abSLuigi Rizzo if (p->libs) 1134252f13abSLuigi Rizzo fprintf(outmk, " $(%s_LIBS)", p->ident); 113555f92f64SCeri Davies 1136252f13abSLuigi Rizzo fprintf(outmk, "\n"); 113719e58304STijl Coosemans fprintf(outmk, "\t$(CC) -nostdlib -Wl,-dc -r -o %s.lo %s_stub.o $(%s_OBJPATHS)", 1138de566360SJordan K. Hubbard p->name, p->name, p->ident); 1139252f13abSLuigi Rizzo if (p->libs) 1140252f13abSLuigi Rizzo fprintf(outmk, " $(%s_LIBS)", p->ident); 1141252f13abSLuigi Rizzo fprintf(outmk, "\n"); 11426cd35234SJordan K. Hubbard fprintf(outmk, "\tcrunchide -k _crunched_%s_stub ", p->ident); 114342ac3bf1SJoerg Wunsch for (lst = p->keeplist; lst != NULL; lst = lst->next) 114442ac3bf1SJoerg Wunsch fprintf(outmk, "-k _%s ", lst->str); 114542ac3bf1SJoerg Wunsch fprintf(outmk, "%s.lo\n", p->name); 1146de566360SJordan K. Hubbard } 1147de566360SJordan K. Hubbard 114802c75192SDavid E. O'Brien void 114902c75192SDavid E. O'Brien output_strlst(FILE *outf, strlst_t *lst) 1150de566360SJordan K. Hubbard { 1151de566360SJordan K. Hubbard for (; lst != NULL; lst = lst->next) 115255f92f64SCeri Davies if ( strlen(lst->str) ) 1153de566360SJordan K. Hubbard fprintf(outf, " %s", lst->str); 1154de566360SJordan K. Hubbard fprintf(outf, "\n"); 1155de566360SJordan K. Hubbard } 1156de566360SJordan K. Hubbard 1157de566360SJordan K. Hubbard 1158de566360SJordan K. Hubbard /* 1159de566360SJordan K. Hubbard * ======================================================================== 1160de566360SJordan K. Hubbard * general library routines 1161de566360SJordan K. Hubbard * 1162de566360SJordan K. Hubbard */ 1163de566360SJordan K. Hubbard 116402c75192SDavid E. O'Brien void 116596acb2c4SPedro F. Giffuni status(const char *str) 1166de566360SJordan K. Hubbard { 1167de566360SJordan K. Hubbard static int lastlen = 0; 1168de566360SJordan K. Hubbard int len, spaces; 1169de566360SJordan K. Hubbard 117087eb4a42SJosef Karthauser if (!verbose) 117187eb4a42SJosef Karthauser return; 1172de566360SJordan K. Hubbard 1173de566360SJordan K. Hubbard len = strlen(str); 1174de566360SJordan K. Hubbard spaces = lastlen - len; 117587eb4a42SJosef Karthauser if (spaces < 1) 117687eb4a42SJosef Karthauser spaces = 1; 1177de566360SJordan K. Hubbard 1178de566360SJordan K. Hubbard fprintf(stderr, " [%s]%*.*s\r", str, spaces, spaces, " "); 1179de566360SJordan K. Hubbard fflush(stderr); 1180de566360SJordan K. Hubbard lastlen = len; 1181de566360SJordan K. Hubbard } 1182de566360SJordan K. Hubbard 1183de566360SJordan K. Hubbard 118402c75192SDavid E. O'Brien void 118502c75192SDavid E. O'Brien out_of_memory(void) 1186de566360SJordan K. Hubbard { 1187f3c47f54SJosef Karthauser err(1, "%s: %d: out of memory, stopping", infilename, linenum); 1188de566360SJordan K. Hubbard } 1189de566360SJordan K. Hubbard 1190de566360SJordan K. Hubbard 119102c75192SDavid E. O'Brien void 119202c75192SDavid E. O'Brien add_string(strlst_t **listp, char *str) 1193de566360SJordan K. Hubbard { 1194de566360SJordan K. Hubbard strlst_t *p1, *p2; 1195de566360SJordan K. Hubbard 1196de566360SJordan K. Hubbard /* add to end, but be smart about dups */ 1197de566360SJordan K. Hubbard 1198de566360SJordan K. Hubbard for (p1 = NULL, p2 = *listp; p2 != NULL; p1 = p2, p2 = p2->next) 119987eb4a42SJosef Karthauser if (!strcmp(p2->str, str)) 120087eb4a42SJosef Karthauser return; 1201de566360SJordan K. Hubbard 1202de566360SJordan K. Hubbard p2 = malloc(sizeof(strlst_t)); 1203eb148815SJoerg Wunsch if (p2) { 1204019d04d1SLuigi Rizzo p2->next = NULL; 1205eb148815SJoerg Wunsch p2->str = strdup(str); 1206eb148815SJoerg Wunsch } 1207de566360SJordan K. Hubbard if (!p2 || !p2->str) 1208de566360SJordan K. Hubbard out_of_memory(); 1209de566360SJordan K. Hubbard 121087eb4a42SJosef Karthauser if (p1 == NULL) 121187eb4a42SJosef Karthauser *listp = p2; 121287eb4a42SJosef Karthauser else 121387eb4a42SJosef Karthauser p1->next = p2; 1214de566360SJordan K. Hubbard } 1215de566360SJordan K. Hubbard 121602c75192SDavid E. O'Brien int 121702c75192SDavid E. O'Brien subtract_strlst(strlst_t **lista, strlst_t **listb) 121855f92f64SCeri Davies { 121955f92f64SCeri Davies int subtract_count = 0; 122055f92f64SCeri Davies strlst_t *p1; 122155f92f64SCeri Davies for (p1 = *listb; p1 != NULL; p1 = p1->next) 122255f92f64SCeri Davies if ( in_list(lista, p1->str) ) { 122355f92f64SCeri Davies warnx("Will compile library `%s' dynamically", p1->str); 122455f92f64SCeri Davies strcat(p1->str, ""); 122555f92f64SCeri Davies subtract_count++; 122655f92f64SCeri Davies } 122755f92f64SCeri Davies return subtract_count; 122855f92f64SCeri Davies } 122955f92f64SCeri Davies 123002c75192SDavid E. O'Brien int 123102c75192SDavid E. O'Brien in_list(strlst_t **listp, char *str) 123255f92f64SCeri Davies { 123355f92f64SCeri Davies strlst_t *p1; 123455f92f64SCeri Davies for (p1 = *listp; p1 != NULL; p1 = p1->next) 123555f92f64SCeri Davies if (!strcmp(p1->str, str)) 123655f92f64SCeri Davies return 1; 123755f92f64SCeri Davies return 0; 123855f92f64SCeri Davies } 1239de566360SJordan K. Hubbard 124002c75192SDavid E. O'Brien int 124196acb2c4SPedro F. Giffuni is_dir(const char *pathname) 1242de566360SJordan K. Hubbard { 1243de566360SJordan K. Hubbard struct stat buf; 1244de566360SJordan K. Hubbard 1245de566360SJordan K. Hubbard if (stat(pathname, &buf) == -1) 1246de566360SJordan K. Hubbard return 0; 124787eb4a42SJosef Karthauser 1248de566360SJordan K. Hubbard return S_ISDIR(buf.st_mode); 1249de566360SJordan K. Hubbard } 1250de566360SJordan K. Hubbard 125102c75192SDavid E. O'Brien int 125296acb2c4SPedro F. Giffuni is_nonempty_file(const char *pathname) 1253de566360SJordan K. Hubbard { 1254de566360SJordan K. Hubbard struct stat buf; 1255de566360SJordan K. Hubbard 1256de566360SJordan K. Hubbard if (stat(pathname, &buf) == -1) 1257de566360SJordan K. Hubbard return 0; 1258de566360SJordan K. Hubbard 1259de566360SJordan K. Hubbard return S_ISREG(buf.st_mode) && buf.st_size > 0; 1260de566360SJordan K. Hubbard } 1261