1 /* $OpenBSD: main.c,v 1.34 2020/05/24 17:31:54 espie Exp $ */ 2 /* $NetBSD: main.c,v 1.5 1996/03/19 03:21:38 jtc Exp $ */ 3 4 /* 5 * Copyright (c) 1989 The Regents of the University of California. 6 * All rights reserved. 7 * 8 * This code is derived from software contributed to Berkeley by 9 * Robert Paul Corbett. 10 * 11 * Redistribution and use in source and binary forms, with or without 12 * modification, are permitted provided that the following conditions 13 * are met: 14 * 1. Redistributions of source code must retain the above copyright 15 * notice, this list of conditions and the following disclaimer. 16 * 2. Redistributions in binary form must reproduce the above copyright 17 * notice, this list of conditions and the following disclaimer in the 18 * documentation and/or other materials provided with the distribution. 19 * 3. Neither the name of the University nor the names of its contributors 20 * may be used to endorse or promote products derived from this software 21 * without specific prior written permission. 22 * 23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 33 * SUCH DAMAGE. 34 */ 35 36 #include <sys/types.h> 37 #include <fcntl.h> 38 #include <paths.h> 39 #include <stdlib.h> 40 #include <unistd.h> 41 #include "defs.h" 42 43 char dflag; 44 char lflag; 45 char rflag; 46 char tflag; 47 char vflag; 48 49 char *symbol_prefix; 50 char *file_prefix = "y"; 51 52 int lineno; 53 int outline; 54 55 int explicit_file_name; 56 57 char *code_file_name; 58 char *defines_file_name; 59 char *input_file_name = ""; 60 char *output_file_name; 61 char *verbose_file_name; 62 63 FILE *action_file; /* a temp file, used to save actions associated */ 64 /* with rules until the parser is written */ 65 FILE *code_file; /* y.code.c (used when the -r option is specified) */ 66 FILE *defines_file; /* y.tab.h */ 67 FILE *input_file; /* the input file */ 68 FILE *output_file; /* y.tab.c */ 69 FILE *text_file; /* a temp file, used to save text until all */ 70 /* symbols have been defined */ 71 FILE *union_file; /* a temp file, used to save the union */ 72 /* definition until all symbol have been */ 73 /* defined */ 74 FILE *verbose_file; /* y.output */ 75 76 int nitems; 77 int nrules; 78 int nsyms; 79 int ntokens; 80 int nvars; 81 82 int start_symbol; 83 char **symbol_name; 84 short *symbol_value; 85 short *symbol_prec; 86 char *symbol_assoc; 87 88 short *ritem; 89 short *rlhs; 90 short *rrhs; 91 short *rprec; 92 char *rassoc; 93 short **derives; 94 char *nullable; 95 96 void usage(void); 97 void getargs(int, char *[]); 98 void create_file_names(void); 99 void open_files(void); 100 101 void 102 usage(void) 103 { 104 fprintf(stderr, "usage: %s [-dlrtv] [-b file_prefix] [-o output_file] [-p symbol_prefix] file\n", __progname); 105 exit(1); 106 } 107 108 109 void 110 getargs(int argc, char *argv[]) 111 { 112 int ch; 113 114 while ((ch = getopt(argc, argv, "b:dlo:p:rtv")) != -1) { 115 switch (ch) { 116 case 'b': 117 file_prefix = optarg; 118 break; 119 120 case 'd': 121 dflag = 1; 122 break; 123 124 case 'l': 125 lflag = 1; 126 break; 127 128 case 'o': 129 output_file_name = optarg; 130 explicit_file_name = 1; 131 break; 132 133 case 'p': 134 symbol_prefix = optarg; 135 break; 136 137 case 'r': 138 rflag = 1; 139 break; 140 141 case 't': 142 tflag = 1; 143 break; 144 145 case 'v': 146 vflag = 1; 147 break; 148 149 default: 150 usage(); 151 } 152 } 153 argc -= optind; 154 argv += optind; 155 156 if (argc != 1) 157 usage(); 158 if (strcmp(*argv, "-") == 0) 159 input_file = stdin; 160 else 161 input_file_name = *argv; 162 } 163 164 165 void * 166 allocate(size_t n) 167 { 168 void *v; 169 170 v = NULL; 171 if (n) { 172 v = calloc(1, n); 173 if (!v) 174 no_space(); 175 } 176 return (v); 177 } 178 179 void 180 create_file_names(void) 181 { 182 if (output_file_name == NULL) { 183 if (asprintf(&output_file_name, "%s%s", file_prefix, OUTPUT_SUFFIX) 184 == -1) 185 no_space(); 186 } 187 if (rflag) { 188 if (asprintf(&code_file_name, "%s%s", file_prefix, CODE_SUFFIX) == -1) 189 no_space(); 190 } else 191 code_file_name = output_file_name; 192 193 if (dflag) { 194 if (explicit_file_name) { 195 char *suffix; 196 197 defines_file_name = strdup(output_file_name); 198 if (defines_file_name == 0) 199 no_space(); 200 201 /* does the output_file_name have a known suffix */ 202 if ((suffix = strrchr(output_file_name, '.')) != 0 && 203 (!strcmp(suffix, ".c") || /* good, old-fashioned C */ 204 !strcmp(suffix, ".C") || /* C++, or C on Windows */ 205 !strcmp(suffix, ".cc") || /* C++ */ 206 !strcmp(suffix, ".cxx") || /* C++ */ 207 !strcmp(suffix, ".cpp"))) {/* C++ (Windows) */ 208 strncpy(defines_file_name, output_file_name, 209 suffix - output_file_name + 1); 210 defines_file_name[suffix - output_file_name + 1] = 'h'; 211 defines_file_name[suffix - output_file_name + 2] = '\0'; 212 } else { 213 fprintf(stderr, "%s: suffix of output file name %s" 214 " not recognized, no -d file generated.\n", 215 __progname, output_file_name); 216 dflag = 0; 217 free(defines_file_name); 218 defines_file_name = 0; 219 } 220 } else { 221 if (asprintf(&defines_file_name, "%s%s", file_prefix, 222 DEFINES_SUFFIX) == -1) 223 no_space(); 224 } 225 } 226 if (vflag) { 227 if (asprintf(&verbose_file_name, "%s%s", file_prefix, 228 VERBOSE_SUFFIX) == -1) 229 no_space(); 230 } 231 } 232 233 234 FILE * 235 create_temp(void) 236 { 237 FILE *f; 238 239 f = tmpfile(); 240 if (f == NULL) 241 tempfile_error(); 242 return f; 243 } 244 245 void 246 open_files(void) 247 { 248 create_file_names(); 249 250 if (input_file == NULL) { 251 input_file = fopen(input_file_name, "r"); 252 if (input_file == NULL) 253 open_error(input_file_name); 254 } 255 action_file = create_temp(); 256 257 text_file = create_temp(); 258 259 if (vflag) { 260 verbose_file = fopen(verbose_file_name, "w"); 261 if (verbose_file == NULL) 262 open_error(verbose_file_name); 263 } 264 if (dflag) { 265 defines_file = fopen(defines_file_name, "w"); 266 if (defines_file == NULL) 267 open_write_error(defines_file_name); 268 union_file = create_temp(); 269 } 270 output_file = fopen(output_file_name, "w"); 271 if (output_file == NULL) 272 open_error(output_file_name); 273 274 if (rflag) { 275 code_file = fopen(code_file_name, "w"); 276 if (code_file == NULL) 277 open_error(code_file_name); 278 } else 279 code_file = output_file; 280 } 281 282 283 int 284 main(int argc, char *argv[]) 285 { 286 if (pledge("stdio rpath wpath cpath", NULL) == -1) 287 fatal("pledge: invalid arguments"); 288 289 getargs(argc, argv); 290 open_files(); 291 reader(); 292 lr0(); 293 lalr(); 294 make_parser(); 295 verbose(); 296 output(); 297 return (0); 298 } 299