1 /* $NetBSD: main.c,v 1.580 2022/04/18 15:06:27 rillig Exp $ */ 2 3 /* 4 * Copyright (c) 1988, 1989, 1990, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * This code is derived from software contributed to Berkeley by 8 * Adam de Boor. 9 * 10 * Redistribution and use in source and binary forms, with or without 11 * modification, are permitted provided that the following conditions 12 * are met: 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 2. Redistributions in binary form must reproduce the above copyright 16 * notice, this list of conditions and the following disclaimer in the 17 * documentation and/or other materials provided with the distribution. 18 * 3. Neither the name of the University nor the names of its contributors 19 * may be used to endorse or promote products derived from this software 20 * without specific prior written permission. 21 * 22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 25 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 32 * SUCH DAMAGE. 33 */ 34 35 /* 36 * Copyright (c) 1989 by Berkeley Softworks 37 * All rights reserved. 38 * 39 * This code is derived from software contributed to Berkeley by 40 * Adam de Boor. 41 * 42 * Redistribution and use in source and binary forms, with or without 43 * modification, are permitted provided that the following conditions 44 * are met: 45 * 1. Redistributions of source code must retain the above copyright 46 * notice, this list of conditions and the following disclaimer. 47 * 2. Redistributions in binary form must reproduce the above copyright 48 * notice, this list of conditions and the following disclaimer in the 49 * documentation and/or other materials provided with the distribution. 50 * 3. All advertising materials mentioning features or use of this software 51 * must display the following acknowledgement: 52 * This product includes software developed by the University of 53 * California, Berkeley and its contributors. 54 * 4. Neither the name of the University nor the names of its contributors 55 * may be used to endorse or promote products derived from this software 56 * without specific prior written permission. 57 * 58 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 59 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 60 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 61 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 62 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 63 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 64 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 65 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 66 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 67 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 68 * SUCH DAMAGE. 69 */ 70 71 /* 72 * The main file for this entire program. Exit routines etc. reside here. 73 * 74 * Utility functions defined in this file: 75 * 76 * Main_ParseArgLine 77 * Parse and process command line arguments from a 78 * single string. Used to implement the special targets 79 * .MFLAGS and .MAKEFLAGS. 80 * 81 * Error Print a tagged error message. 82 * 83 * Fatal Print an error message and exit. 84 * 85 * Punt Abort all jobs and exit with a message. 86 * 87 * Finish Finish things up by printing the number of errors 88 * that occurred, and exit. 89 */ 90 91 #include <sys/types.h> 92 #include <sys/time.h> 93 #include <sys/param.h> 94 #include <sys/resource.h> 95 #include <sys/stat.h> 96 #if defined(MAKE_NATIVE) && defined(HAVE_SYSCTL) 97 #include <sys/sysctl.h> 98 #endif 99 #include <sys/utsname.h> 100 #include "wait.h" 101 102 #include <errno.h> 103 #include <signal.h> 104 #include <stdarg.h> 105 #include <time.h> 106 107 #include "make.h" 108 #include "dir.h" 109 #include "job.h" 110 #include "pathnames.h" 111 #include "trace.h" 112 113 /* "@(#)main.c 8.3 (Berkeley) 3/19/94" */ 114 MAKE_RCSID("$NetBSD: main.c,v 1.580 2022/04/18 15:06:27 rillig Exp $"); 115 #if defined(MAKE_NATIVE) && !defined(lint) 116 __COPYRIGHT("@(#) Copyright (c) 1988, 1989, 1990, 1993 " 117 "The Regents of the University of California. " 118 "All rights reserved."); 119 #endif 120 121 #ifndef __arraycount 122 # define __arraycount(__x) (sizeof(__x) / sizeof(__x[0])) 123 #endif 124 125 CmdOpts opts; 126 time_t now; /* Time at start of make */ 127 GNode *defaultNode; /* .DEFAULT node */ 128 bool allPrecious; /* .PRECIOUS given on line by itself */ 129 bool deleteOnError; /* .DELETE_ON_ERROR: set */ 130 131 static int maxJobTokens; /* -j argument */ 132 bool enterFlagObj; /* -w and objdir != srcdir */ 133 134 static int jp_0 = -1, jp_1 = -1; /* ends of parent job pipe */ 135 bool doing_depend; /* Set while reading .depend */ 136 static bool jobsRunning; /* true if the jobs might be running */ 137 static const char *tracefile; 138 static bool ReadMakefile(const char *); 139 static void purge_relative_cached_realpaths(void); 140 141 static bool ignorePWD; /* if we use -C, PWD is meaningless */ 142 static char objdir[MAXPATHLEN + 1]; /* where we chdir'ed to */ 143 char curdir[MAXPATHLEN + 1]; /* Startup directory */ 144 const char *progname; 145 char *makeDependfile; 146 pid_t myPid; 147 int makelevel; 148 149 bool forceJobs = false; 150 static int main_errors = 0; 151 static HashTable cached_realpaths; 152 153 /* 154 * For compatibility with the POSIX version of MAKEFLAGS that includes 155 * all the options without '-', convert 'flags' to '-f -l -a -g -s'. 156 */ 157 static char * 158 explode(const char *flags) 159 { 160 char *exploded, *ep; 161 const char *p; 162 163 if (flags == NULL) 164 return NULL; 165 166 for (p = flags; *p != '\0'; p++) 167 if (!ch_isalpha(*p)) 168 return bmake_strdup(flags); 169 170 exploded = bmake_malloc((size_t)(p - flags) * 3 + 1); 171 for (p = flags, ep = exploded; *p != '\0'; p++) { 172 *ep++ = '-'; 173 *ep++ = *p; 174 *ep++ = ' '; 175 } 176 *ep = '\0'; 177 return exploded; 178 } 179 180 MAKE_ATTR_DEAD static void 181 usage(void) 182 { 183 size_t prognameLen = strcspn(progname, "["); 184 185 (void)fprintf(stderr, 186 "usage: %.*s [-BeikNnqrSstWwX]\n" 187 " [-C directory] [-D variable] [-d flags] [-f makefile]\n" 188 " [-I directory] [-J private] [-j max_jobs] [-m directory] [-T file]\n" 189 " [-V variable] [-v variable] [variable=value] [target ...]\n", 190 (int)prognameLen, progname); 191 exit(2); 192 } 193 194 static void 195 MainParseArgDebugFile(const char *arg) 196 { 197 const char *mode; 198 size_t len; 199 char *fname; 200 201 if (opts.debug_file != stdout && opts.debug_file != stderr) 202 fclose(opts.debug_file); 203 204 if (*arg == '+') { 205 arg++; 206 mode = "a"; 207 } else 208 mode = "w"; 209 210 if (strcmp(arg, "stdout") == 0) { 211 opts.debug_file = stdout; 212 return; 213 } 214 if (strcmp(arg, "stderr") == 0) { 215 opts.debug_file = stderr; 216 return; 217 } 218 219 len = strlen(arg); 220 fname = bmake_malloc(len + 20); 221 memcpy(fname, arg, len + 1); 222 223 /* Replace the trailing '%d' after '.%d' with the pid. */ 224 if (len >= 3 && memcmp(fname + len - 3, ".%d", 3) == 0) 225 snprintf(fname + len - 2, 20, "%d", getpid()); 226 227 opts.debug_file = fopen(fname, mode); 228 if (opts.debug_file == NULL) { 229 fprintf(stderr, "Cannot open debug file \"%s\"\n", 230 fname); 231 exit(2); 232 } 233 free(fname); 234 } 235 236 static void 237 MainParseArgDebug(const char *argvalue) 238 { 239 const char *modules; 240 DebugFlags debug = opts.debug; 241 242 for (modules = argvalue; *modules != '\0'; modules++) { 243 switch (*modules) { 244 case '0': /* undocumented, only intended for tests */ 245 memset(&debug, 0, sizeof(debug)); 246 break; 247 case 'A': 248 memset(&debug, ~0, sizeof(debug)); 249 break; 250 case 'a': 251 debug.DEBUG_ARCH = true; 252 break; 253 case 'C': 254 debug.DEBUG_CWD = true; 255 break; 256 case 'c': 257 debug.DEBUG_COND = true; 258 break; 259 case 'd': 260 debug.DEBUG_DIR = true; 261 break; 262 case 'e': 263 debug.DEBUG_ERROR = true; 264 break; 265 case 'f': 266 debug.DEBUG_FOR = true; 267 break; 268 case 'g': 269 if (modules[1] == '1') { 270 debug.DEBUG_GRAPH1 = true; 271 modules++; 272 } else if (modules[1] == '2') { 273 debug.DEBUG_GRAPH2 = true; 274 modules++; 275 } else if (modules[1] == '3') { 276 debug.DEBUG_GRAPH3 = true; 277 modules++; 278 } 279 break; 280 case 'h': 281 debug.DEBUG_HASH = true; 282 break; 283 case 'j': 284 debug.DEBUG_JOB = true; 285 break; 286 case 'L': 287 opts.strict = true; 288 break; 289 case 'l': 290 debug.DEBUG_LOUD = true; 291 break; 292 case 'M': 293 debug.DEBUG_META = true; 294 break; 295 case 'm': 296 debug.DEBUG_MAKE = true; 297 break; 298 case 'n': 299 debug.DEBUG_SCRIPT = true; 300 break; 301 case 'p': 302 debug.DEBUG_PARSE = true; 303 break; 304 case 's': 305 debug.DEBUG_SUFF = true; 306 break; 307 case 't': 308 debug.DEBUG_TARG = true; 309 break; 310 case 'V': 311 opts.debugVflag = true; 312 break; 313 case 'v': 314 debug.DEBUG_VAR = true; 315 break; 316 case 'x': 317 debug.DEBUG_SHELL = true; 318 break; 319 case 'F': 320 MainParseArgDebugFile(modules + 1); 321 goto finish; 322 default: 323 (void)fprintf(stderr, 324 "%s: illegal argument to d option -- %c\n", 325 progname, *modules); 326 usage(); 327 } 328 } 329 330 finish: 331 opts.debug = debug; 332 333 setvbuf(opts.debug_file, NULL, _IONBF, 0); 334 if (opts.debug_file != stdout) 335 setvbuf(stdout, NULL, _IOLBF, 0); 336 } 337 338 /* Is path relative or does it contain any relative component "." or ".."? */ 339 static bool 340 IsRelativePath(const char *path) 341 { 342 const char *p; 343 344 if (path[0] != '/') 345 return true; 346 p = path; 347 while ((p = strstr(p, "/.")) != NULL) { 348 p += 2; 349 if (*p == '.') 350 p++; 351 if (*p == '/' || *p == '\0') 352 return true; 353 } 354 return false; 355 } 356 357 static void 358 MainParseArgChdir(const char *argvalue) 359 { 360 struct stat sa, sb; 361 362 if (chdir(argvalue) == -1) { 363 (void)fprintf(stderr, "%s: chdir %s: %s\n", 364 progname, argvalue, strerror(errno)); 365 exit(2); /* Not 1 so -q can distinguish error */ 366 } 367 if (getcwd(curdir, MAXPATHLEN) == NULL) { 368 (void)fprintf(stderr, "%s: %s.\n", progname, strerror(errno)); 369 exit(2); 370 } 371 if (!IsRelativePath(argvalue) && 372 stat(argvalue, &sa) != -1 && 373 stat(curdir, &sb) != -1 && 374 sa.st_ino == sb.st_ino && 375 sa.st_dev == sb.st_dev) 376 strncpy(curdir, argvalue, MAXPATHLEN); 377 ignorePWD = true; 378 } 379 380 static void 381 MainParseArgJobsInternal(const char *argvalue) 382 { 383 char end; 384 if (sscanf(argvalue, "%d,%d%c", &jp_0, &jp_1, &end) != 2) { 385 (void)fprintf(stderr, 386 "%s: internal error -- J option malformed (%s)\n", 387 progname, argvalue); 388 usage(); 389 } 390 if ((fcntl(jp_0, F_GETFD, 0) < 0) || 391 (fcntl(jp_1, F_GETFD, 0) < 0)) { 392 jp_0 = -1; 393 jp_1 = -1; 394 opts.compatMake = true; 395 } else { 396 Global_Append(MAKEFLAGS, "-J"); 397 Global_Append(MAKEFLAGS, argvalue); 398 } 399 } 400 401 static void 402 MainParseArgJobs(const char *argvalue) 403 { 404 char *p; 405 406 forceJobs = true; 407 opts.maxJobs = (int)strtol(argvalue, &p, 0); 408 if (*p != '\0' || opts.maxJobs < 1) { 409 (void)fprintf(stderr, 410 "%s: illegal argument to -j -- must be positive integer!\n", 411 progname); 412 exit(2); /* Not 1 so -q can distinguish error */ 413 } 414 Global_Append(MAKEFLAGS, "-j"); 415 Global_Append(MAKEFLAGS, argvalue); 416 Global_Set(".MAKE.JOBS", argvalue); 417 maxJobTokens = opts.maxJobs; 418 } 419 420 static void 421 MainParseArgSysInc(const char *argvalue) 422 { 423 /* look for magic parent directory search string */ 424 if (strncmp(".../", argvalue, 4) == 0) { 425 char *found_path = Dir_FindHereOrAbove(curdir, argvalue + 4); 426 if (found_path == NULL) 427 return; 428 (void)SearchPath_Add(sysIncPath, found_path); 429 free(found_path); 430 } else { 431 (void)SearchPath_Add(sysIncPath, argvalue); 432 } 433 Global_Append(MAKEFLAGS, "-m"); 434 Global_Append(MAKEFLAGS, argvalue); 435 } 436 437 static bool 438 MainParseArg(char c, const char *argvalue) 439 { 440 switch (c) { 441 case '\0': 442 break; 443 case 'B': 444 opts.compatMake = true; 445 Global_Append(MAKEFLAGS, "-B"); 446 Global_Set(MAKE_MODE, "compat"); 447 break; 448 case 'C': 449 MainParseArgChdir(argvalue); 450 break; 451 case 'D': 452 if (argvalue[0] == '\0') 453 return false; 454 Var_SetExpand(SCOPE_GLOBAL, argvalue, "1"); 455 Global_Append(MAKEFLAGS, "-D"); 456 Global_Append(MAKEFLAGS, argvalue); 457 break; 458 case 'I': 459 Parse_AddIncludeDir(argvalue); 460 Global_Append(MAKEFLAGS, "-I"); 461 Global_Append(MAKEFLAGS, argvalue); 462 break; 463 case 'J': 464 MainParseArgJobsInternal(argvalue); 465 break; 466 case 'N': 467 opts.noExecute = true; 468 opts.noRecursiveExecute = true; 469 Global_Append(MAKEFLAGS, "-N"); 470 break; 471 case 'S': 472 opts.keepgoing = false; 473 Global_Append(MAKEFLAGS, "-S"); 474 break; 475 case 'T': 476 tracefile = bmake_strdup(argvalue); 477 Global_Append(MAKEFLAGS, "-T"); 478 Global_Append(MAKEFLAGS, argvalue); 479 break; 480 case 'V': 481 case 'v': 482 opts.printVars = c == 'v' ? PVM_EXPANDED : PVM_UNEXPANDED; 483 Lst_Append(&opts.variables, bmake_strdup(argvalue)); 484 /* XXX: Why always -V? */ 485 Global_Append(MAKEFLAGS, "-V"); 486 Global_Append(MAKEFLAGS, argvalue); 487 break; 488 case 'W': 489 opts.parseWarnFatal = true; 490 /* XXX: why no Global_Append? */ 491 break; 492 case 'X': 493 opts.varNoExportEnv = true; 494 Global_Append(MAKEFLAGS, "-X"); 495 break; 496 case 'd': 497 /* If '-d-opts' don't pass to children */ 498 if (argvalue[0] == '-') 499 argvalue++; 500 else { 501 Global_Append(MAKEFLAGS, "-d"); 502 Global_Append(MAKEFLAGS, argvalue); 503 } 504 MainParseArgDebug(argvalue); 505 break; 506 case 'e': 507 opts.checkEnvFirst = true; 508 Global_Append(MAKEFLAGS, "-e"); 509 break; 510 case 'f': 511 Lst_Append(&opts.makefiles, bmake_strdup(argvalue)); 512 break; 513 case 'i': 514 opts.ignoreErrors = true; 515 Global_Append(MAKEFLAGS, "-i"); 516 break; 517 case 'j': 518 MainParseArgJobs(argvalue); 519 break; 520 case 'k': 521 opts.keepgoing = true; 522 Global_Append(MAKEFLAGS, "-k"); 523 break; 524 case 'm': 525 MainParseArgSysInc(argvalue); 526 /* XXX: why no Var_Append? */ 527 break; 528 case 'n': 529 opts.noExecute = true; 530 Global_Append(MAKEFLAGS, "-n"); 531 break; 532 case 'q': 533 opts.query = true; 534 /* Kind of nonsensical, wot? */ 535 Global_Append(MAKEFLAGS, "-q"); 536 break; 537 case 'r': 538 opts.noBuiltins = true; 539 Global_Append(MAKEFLAGS, "-r"); 540 break; 541 case 's': 542 opts.silent = true; 543 Global_Append(MAKEFLAGS, "-s"); 544 break; 545 case 't': 546 opts.touch = true; 547 Global_Append(MAKEFLAGS, "-t"); 548 break; 549 case 'w': 550 opts.enterFlag = true; 551 Global_Append(MAKEFLAGS, "-w"); 552 break; 553 default: 554 usage(); 555 } 556 return true; 557 } 558 559 /* 560 * Parse the given arguments. Called from main() and from 561 * Main_ParseArgLine() when the .MAKEFLAGS target is used. 562 * 563 * The arguments must be treated as read-only and will be freed after the 564 * call. 565 * 566 * XXX: Deal with command line overriding .MAKEFLAGS in makefile 567 */ 568 static void 569 MainParseArgs(int argc, char **argv) 570 { 571 char c; 572 int arginc; 573 char *argvalue; 574 char *optscan; 575 bool inOption, dashDash = false; 576 577 const char *optspecs = "BC:D:I:J:NST:V:WXd:ef:ij:km:nqrstv:w"; 578 /* Can't actually use getopt(3) because rescanning is not portable */ 579 580 rearg: 581 inOption = false; 582 optscan = NULL; 583 while (argc > 1) { 584 const char *optspec; 585 if (!inOption) 586 optscan = argv[1]; 587 c = *optscan++; 588 arginc = 0; 589 if (inOption) { 590 if (c == '\0') { 591 argv++; 592 argc--; 593 inOption = false; 594 continue; 595 } 596 } else { 597 if (c != '-' || dashDash) 598 break; 599 inOption = true; 600 c = *optscan++; 601 } 602 /* '-' found at some earlier point */ 603 optspec = strchr(optspecs, c); 604 if (c != '\0' && optspec != NULL && optspec[1] == ':') { 605 /* 606 * -<something> found, and <something> should have an 607 * argument 608 */ 609 inOption = false; 610 arginc = 1; 611 argvalue = optscan; 612 if (*argvalue == '\0') { 613 if (argc < 3) 614 goto noarg; 615 argvalue = argv[2]; 616 arginc = 2; 617 } 618 } else { 619 argvalue = NULL; 620 } 621 switch (c) { 622 case '\0': 623 arginc = 1; 624 inOption = false; 625 break; 626 case '-': 627 dashDash = true; 628 break; 629 default: 630 if (!MainParseArg(c, argvalue)) 631 goto noarg; 632 } 633 argv += arginc; 634 argc -= arginc; 635 } 636 637 /* 638 * See if the rest of the arguments are variable assignments and 639 * perform them if so. Else take them to be targets and stuff them 640 * on the end of the "create" list. 641 */ 642 for (; argc > 1; argv++, argc--) { 643 if (!Parse_VarAssign(argv[1], false, SCOPE_CMDLINE)) { 644 if (argv[1][0] == '\0') 645 Punt("illegal (null) argument."); 646 if (argv[1][0] == '-' && !dashDash) 647 goto rearg; 648 Lst_Append(&opts.create, bmake_strdup(argv[1])); 649 } 650 } 651 652 return; 653 noarg: 654 (void)fprintf(stderr, "%s: option requires an argument -- %c\n", 655 progname, c); 656 usage(); 657 } 658 659 /* 660 * Break a line of arguments into words and parse them. 661 * 662 * Used when a .MFLAGS or .MAKEFLAGS target is encountered during parsing and 663 * by main() when reading the MAKEFLAGS environment variable. 664 */ 665 void 666 Main_ParseArgLine(const char *line) 667 { 668 Words words; 669 char *buf; 670 671 if (line == NULL) 672 return; 673 /* XXX: don't use line as an iterator variable */ 674 for (; *line == ' '; line++) 675 continue; 676 if (line[0] == '\0') 677 return; 678 679 #ifndef POSIX 680 { 681 /* 682 * $MAKE may simply be naming the make(1) binary 683 */ 684 char *cp; 685 686 if (!(cp = strrchr(line, '/'))) 687 cp = line; 688 if ((cp = strstr(cp, "make")) && 689 strcmp(cp, "make") == 0) 690 return; 691 } 692 #endif 693 { 694 FStr argv0 = Var_Value(SCOPE_GLOBAL, ".MAKE"); 695 buf = str_concat3(argv0.str, " ", line); 696 FStr_Done(&argv0); 697 } 698 699 words = Str_Words(buf, true); 700 if (words.words == NULL) { 701 Error("Unterminated quoted string [%s]", buf); 702 free(buf); 703 return; 704 } 705 free(buf); 706 MainParseArgs((int)words.len, words.words); 707 708 Words_Free(words); 709 } 710 711 bool 712 Main_SetObjdir(bool writable, const char *fmt, ...) 713 { 714 struct stat sb; 715 char *path; 716 char buf[MAXPATHLEN + 1]; 717 char buf2[MAXPATHLEN + 1]; 718 va_list ap; 719 720 va_start(ap, fmt); 721 vsnprintf(path = buf, MAXPATHLEN, fmt, ap); 722 va_end(ap); 723 724 if (path[0] != '/') { 725 snprintf(buf2, MAXPATHLEN, "%s/%s", curdir, path); 726 path = buf2; 727 } 728 729 /* look for the directory and try to chdir there */ 730 if (stat(path, &sb) != 0 || !S_ISDIR(sb.st_mode)) 731 return false; 732 733 if ((writable && access(path, W_OK) != 0) || chdir(path) != 0) { 734 (void)fprintf(stderr, "%s: warning: %s: %s.\n", 735 progname, path, strerror(errno)); 736 return false; 737 } 738 739 snprintf(objdir, sizeof objdir, "%s", path); 740 Global_Set(".OBJDIR", objdir); 741 setenv("PWD", objdir, 1); 742 Dir_InitDot(); 743 purge_relative_cached_realpaths(); 744 if (opts.enterFlag && strcmp(objdir, curdir) != 0) 745 enterFlagObj = true; 746 return true; 747 } 748 749 static bool 750 SetVarObjdir(bool writable, const char *var, const char *suffix) 751 { 752 FStr path = Var_Value(SCOPE_CMDLINE, var); 753 754 if (path.str == NULL || path.str[0] == '\0') { 755 FStr_Done(&path); 756 return false; 757 } 758 759 Var_Expand(&path, SCOPE_GLOBAL, VARE_WANTRES); 760 761 (void)Main_SetObjdir(writable, "%s%s", path.str, suffix); 762 763 FStr_Done(&path); 764 return true; 765 } 766 767 /* 768 * Splits str into words, adding them to the list. 769 * The string must be kept alive as long as the list. 770 */ 771 int 772 str2Lst_Append(StringList *lp, char *str) 773 { 774 char *cp; 775 int n; 776 777 const char *sep = " \t"; 778 779 for (n = 0, cp = strtok(str, sep); cp != NULL; cp = strtok(NULL, sep)) { 780 Lst_Append(lp, cp); 781 n++; 782 } 783 return n; 784 } 785 786 #ifdef SIGINFO 787 /*ARGSUSED*/ 788 static void 789 siginfo(int signo MAKE_ATTR_UNUSED) 790 { 791 char dir[MAXPATHLEN]; 792 char str[2 * MAXPATHLEN]; 793 int len; 794 if (getcwd(dir, sizeof dir) == NULL) 795 return; 796 len = snprintf(str, sizeof str, "%s: Working in: %s\n", progname, dir); 797 if (len > 0) 798 (void)write(STDERR_FILENO, str, (size_t)len); 799 } 800 #endif 801 802 /* Allow makefiles some control over the mode we run in. */ 803 static void 804 MakeMode(void) 805 { 806 char *mode; 807 808 (void)Var_Subst("${" MAKE_MODE ":tl}", SCOPE_GLOBAL, VARE_WANTRES, &mode); 809 /* TODO: handle errors */ 810 811 if (mode[0] != '\0') { 812 if (strstr(mode, "compat") != NULL) { 813 opts.compatMake = true; 814 forceJobs = false; 815 } 816 #if USE_META 817 if (strstr(mode, "meta") != NULL) 818 meta_mode_init(mode); 819 #endif 820 } 821 822 free(mode); 823 } 824 825 static void 826 PrintVar(const char *varname, bool expandVars) 827 { 828 if (strchr(varname, '$') != NULL) { 829 char *evalue; 830 (void)Var_Subst(varname, SCOPE_GLOBAL, VARE_WANTRES, &evalue); 831 /* TODO: handle errors */ 832 printf("%s\n", evalue); 833 free(evalue); 834 835 } else if (expandVars) { 836 char *expr = str_concat3("${", varname, "}"); 837 char *evalue; 838 (void)Var_Subst(expr, SCOPE_GLOBAL, VARE_WANTRES, &evalue); 839 /* TODO: handle errors */ 840 free(expr); 841 printf("%s\n", evalue); 842 free(evalue); 843 844 } else { 845 FStr value = Var_Value(SCOPE_GLOBAL, varname); 846 printf("%s\n", value.str != NULL ? value.str : ""); 847 FStr_Done(&value); 848 } 849 } 850 851 /* 852 * Return a bool based on a variable. 853 * 854 * If the knob is not set, return the fallback. 855 * If set, anything that looks or smells like "No", "False", "Off", "0", etc. 856 * is false, otherwise true. 857 */ 858 bool 859 GetBooleanExpr(const char *expr, bool fallback) 860 { 861 char *value; 862 bool res; 863 864 (void)Var_Subst(expr, SCOPE_GLOBAL, VARE_WANTRES, &value); 865 /* TODO: handle errors */ 866 res = ParseBoolean(value, fallback); 867 free(value); 868 return res; 869 } 870 871 static void 872 doPrintVars(void) 873 { 874 StringListNode *ln; 875 bool expandVars; 876 877 if (opts.printVars == PVM_EXPANDED) 878 expandVars = true; 879 else if (opts.debugVflag) 880 expandVars = false; 881 else 882 expandVars = GetBooleanExpr("${.MAKE.EXPAND_VARIABLES}", 883 false); 884 885 for (ln = opts.variables.first; ln != NULL; ln = ln->next) { 886 const char *varname = ln->datum; 887 PrintVar(varname, expandVars); 888 } 889 } 890 891 static bool 892 runTargets(void) 893 { 894 GNodeList targs = LST_INIT; /* target nodes to create */ 895 bool outOfDate; /* false if all targets up to date */ 896 897 /* 898 * Have now read the entire graph and need to make a list of 899 * targets to create. If none was given on the command line, 900 * we consult the parsing module to find the main target(s) 901 * to create. 902 */ 903 if (Lst_IsEmpty(&opts.create)) 904 Parse_MainName(&targs); 905 else 906 Targ_FindList(&targs, &opts.create); 907 908 if (!opts.compatMake) { 909 /* 910 * Initialize job module before traversing the graph 911 * now that any .BEGIN and .END targets have been read. 912 * This is done only if the -q flag wasn't given 913 * (to prevent the .BEGIN from being executed should 914 * it exist). 915 */ 916 if (!opts.query) { 917 Job_Init(); 918 jobsRunning = true; 919 } 920 921 /* Traverse the graph, checking on all the targets */ 922 outOfDate = Make_Run(&targs); 923 } else { 924 /* 925 * Compat_Init will take care of creating all the 926 * targets as well as initializing the module. 927 */ 928 Compat_Run(&targs); 929 outOfDate = false; 930 } 931 Lst_Done(&targs); /* Don't free the targets themselves. */ 932 return outOfDate; 933 } 934 935 /* 936 * Set up the .TARGETS variable to contain the list of targets to be created. 937 * If none specified, make the variable empty for now, the parser will fill 938 * in the default or .MAIN target later. 939 */ 940 static void 941 InitVarTargets(void) 942 { 943 StringListNode *ln; 944 945 if (Lst_IsEmpty(&opts.create)) { 946 Global_Set(".TARGETS", ""); 947 return; 948 } 949 950 for (ln = opts.create.first; ln != NULL; ln = ln->next) { 951 const char *name = ln->datum; 952 Global_Append(".TARGETS", name); 953 } 954 } 955 956 static void 957 InitRandom(void) 958 { 959 struct timeval tv; 960 961 gettimeofday(&tv, NULL); 962 srandom((unsigned int)(tv.tv_sec + tv.tv_usec)); 963 } 964 965 static const char * 966 InitVarMachine(const struct utsname *utsname MAKE_ATTR_UNUSED) 967 { 968 #ifdef FORCE_MACHINE 969 return FORCE_MACHINE; 970 #else 971 const char *machine = getenv("MACHINE"); 972 973 if (machine != NULL) 974 return machine; 975 976 #if defined(MAKE_NATIVE) 977 return utsname->machine; 978 #elif defined(MAKE_MACHINE) 979 return MAKE_MACHINE; 980 #else 981 return "unknown"; 982 #endif 983 #endif 984 } 985 986 static const char * 987 InitVarMachineArch(void) 988 { 989 #ifdef FORCE_MACHINE_ARCH 990 return FORCE_MACHINE_ARCH; 991 #else 992 const char *env = getenv("MACHINE_ARCH"); 993 if (env != NULL) 994 return env; 995 996 #if defined(MAKE_NATIVE) && defined(CTL_HW) 997 { 998 struct utsname utsname; 999 static char machine_arch_buf[sizeof utsname.machine]; 1000 const int mib[2] = { CTL_HW, HW_MACHINE_ARCH }; 1001 size_t len = sizeof machine_arch_buf; 1002 1003 if (sysctl(mib, (unsigned int)__arraycount(mib), 1004 machine_arch_buf, &len, NULL, 0) < 0) { 1005 (void)fprintf(stderr, "%s: sysctl failed (%s).\n", 1006 progname, strerror(errno)); 1007 exit(2); 1008 } 1009 1010 return machine_arch_buf; 1011 } 1012 #elif defined(MACHINE_ARCH) 1013 return MACHINE_ARCH; 1014 #elif defined(MAKE_MACHINE_ARCH) 1015 return MAKE_MACHINE_ARCH; 1016 #else 1017 return "unknown"; 1018 #endif 1019 #endif 1020 } 1021 1022 #ifndef NO_PWD_OVERRIDE 1023 /* 1024 * All this code is so that we know where we are when we start up 1025 * on a different machine with pmake. 1026 * 1027 * XXX: Make no longer has "local" and "remote" mode. Is this code still 1028 * necessary? 1029 * 1030 * Overriding getcwd() with $PWD totally breaks MAKEOBJDIRPREFIX 1031 * since the value of curdir can vary depending on how we got 1032 * here. Ie sitting at a shell prompt (shell that provides $PWD) 1033 * or via subdir.mk in which case its likely a shell which does 1034 * not provide it. 1035 * 1036 * So, to stop it breaking this case only, we ignore PWD if 1037 * MAKEOBJDIRPREFIX is set or MAKEOBJDIR contains a variable expression. 1038 */ 1039 static void 1040 HandlePWD(const struct stat *curdir_st) 1041 { 1042 char *pwd; 1043 FStr makeobjdir; 1044 struct stat pwd_st; 1045 1046 if (ignorePWD || (pwd = getenv("PWD")) == NULL) 1047 return; 1048 1049 if (Var_Exists(SCOPE_CMDLINE, "MAKEOBJDIRPREFIX")) 1050 return; 1051 1052 makeobjdir = Var_Value(SCOPE_CMDLINE, "MAKEOBJDIR"); 1053 if (makeobjdir.str != NULL && strchr(makeobjdir.str, '$') != NULL) 1054 goto ignore_pwd; 1055 1056 if (stat(pwd, &pwd_st) == 0 && 1057 curdir_st->st_ino == pwd_st.st_ino && 1058 curdir_st->st_dev == pwd_st.st_dev) 1059 (void)strncpy(curdir, pwd, MAXPATHLEN); 1060 1061 ignore_pwd: 1062 FStr_Done(&makeobjdir); 1063 } 1064 #endif 1065 1066 /* 1067 * Find the .OBJDIR. If MAKEOBJDIRPREFIX, or failing that, MAKEOBJDIR is set 1068 * in the environment, try only that value and fall back to .CURDIR if it 1069 * does not exist. 1070 * 1071 * Otherwise, try _PATH_OBJDIR.MACHINE-MACHINE_ARCH, _PATH_OBJDIR.MACHINE, 1072 * and finally _PATH_OBJDIRPREFIX`pwd`, in that order. If none of these 1073 * paths exist, just use .CURDIR. 1074 */ 1075 static void 1076 InitObjdir(const char *machine, const char *machine_arch) 1077 { 1078 bool writable; 1079 1080 Dir_InitCur(curdir); 1081 writable = GetBooleanExpr("${MAKE_OBJDIR_CHECK_WRITABLE}", true); 1082 (void)Main_SetObjdir(false, "%s", curdir); 1083 1084 if (!SetVarObjdir(writable, "MAKEOBJDIRPREFIX", curdir) && 1085 !SetVarObjdir(writable, "MAKEOBJDIR", "") && 1086 !Main_SetObjdir(writable, "%s.%s-%s", _PATH_OBJDIR, machine, machine_arch) && 1087 !Main_SetObjdir(writable, "%s.%s", _PATH_OBJDIR, machine) && 1088 !Main_SetObjdir(writable, "%s", _PATH_OBJDIR)) 1089 (void)Main_SetObjdir(writable, "%s%s", _PATH_OBJDIRPREFIX, curdir); 1090 } 1091 1092 /* get rid of resource limit on file descriptors */ 1093 static void 1094 UnlimitFiles(void) 1095 { 1096 #if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE) 1097 struct rlimit rl; 1098 if (getrlimit(RLIMIT_NOFILE, &rl) != -1 && 1099 rl.rlim_cur != rl.rlim_max) { 1100 rl.rlim_cur = rl.rlim_max; 1101 (void)setrlimit(RLIMIT_NOFILE, &rl); 1102 } 1103 #endif 1104 } 1105 1106 static void 1107 CmdOpts_Init(void) 1108 { 1109 opts.compatMake = false; 1110 memset(&opts.debug, 0, sizeof(opts.debug)); 1111 /* opts.debug_file has already been initialized earlier */ 1112 opts.strict = false; 1113 opts.debugVflag = false; 1114 opts.checkEnvFirst = false; 1115 Lst_Init(&opts.makefiles); 1116 opts.ignoreErrors = false; /* Pay attention to non-zero returns */ 1117 opts.maxJobs = 1; 1118 opts.keepgoing = false; /* Stop on error */ 1119 opts.noRecursiveExecute = false; /* Execute all .MAKE targets */ 1120 opts.noExecute = false; /* Execute all commands */ 1121 opts.query = false; 1122 opts.noBuiltins = false; /* Read the built-in rules */ 1123 opts.silent = false; /* Print commands as executed */ 1124 opts.touch = false; 1125 opts.printVars = PVM_NONE; 1126 Lst_Init(&opts.variables); 1127 opts.parseWarnFatal = false; 1128 opts.enterFlag = false; 1129 opts.varNoExportEnv = false; 1130 Lst_Init(&opts.create); 1131 } 1132 1133 /* 1134 * Initialize MAKE and .MAKE to the path of the executable, so that it can be 1135 * found by execvp(3) and the shells, even after a chdir. 1136 * 1137 * If it's a relative path and contains a '/', resolve it to an absolute path. 1138 * Otherwise keep it as is, assuming it will be found in the PATH. 1139 */ 1140 static void 1141 InitVarMake(const char *argv0) 1142 { 1143 const char *make = argv0; 1144 1145 if (argv0[0] != '/' && strchr(argv0, '/') != NULL) { 1146 char pathbuf[MAXPATHLEN]; 1147 const char *abspath = cached_realpath(argv0, pathbuf); 1148 struct stat st; 1149 if (abspath != NULL && abspath[0] == '/' && 1150 stat(make, &st) == 0) 1151 make = abspath; 1152 } 1153 1154 Global_Set("MAKE", make); 1155 Global_Set(".MAKE", make); 1156 } 1157 1158 /* 1159 * Add the directories from the colon-separated syspath to defSysIncPath. 1160 * After returning, the contents of syspath is unspecified. 1161 */ 1162 static void 1163 InitDefSysIncPath(char *syspath) 1164 { 1165 static char defsyspath[] = _PATH_DEFSYSPATH; 1166 char *start, *cp; 1167 1168 /* 1169 * If no user-supplied system path was given (through the -m option) 1170 * add the directories from the DEFSYSPATH (more than one may be given 1171 * as dir1:...:dirn) to the system include path. 1172 */ 1173 if (syspath == NULL || syspath[0] == '\0') 1174 syspath = defsyspath; 1175 else 1176 syspath = bmake_strdup(syspath); 1177 1178 for (start = syspath; *start != '\0'; start = cp) { 1179 for (cp = start; *cp != '\0' && *cp != ':'; cp++) 1180 continue; 1181 if (*cp == ':') 1182 *cp++ = '\0'; 1183 1184 /* look for magic parent directory search string */ 1185 if (strncmp(start, ".../", 4) == 0) { 1186 char *dir = Dir_FindHereOrAbove(curdir, start + 4); 1187 if (dir != NULL) { 1188 (void)SearchPath_Add(defSysIncPath, dir); 1189 free(dir); 1190 } 1191 } else { 1192 (void)SearchPath_Add(defSysIncPath, start); 1193 } 1194 } 1195 1196 if (syspath != defsyspath) 1197 free(syspath); 1198 } 1199 1200 static void 1201 ReadBuiltinRules(void) 1202 { 1203 StringListNode *ln; 1204 StringList sysMkFiles = LST_INIT; 1205 1206 SearchPath_Expand( 1207 Lst_IsEmpty(&sysIncPath->dirs) ? defSysIncPath : sysIncPath, 1208 _PATH_DEFSYSMK, 1209 &sysMkFiles); 1210 if (Lst_IsEmpty(&sysMkFiles)) 1211 Fatal("%s: no system rules (%s).", progname, _PATH_DEFSYSMK); 1212 1213 for (ln = sysMkFiles.first; ln != NULL; ln = ln->next) 1214 if (ReadMakefile(ln->datum)) 1215 break; 1216 1217 if (ln == NULL) 1218 Fatal("%s: cannot open %s.", 1219 progname, (const char *)sysMkFiles.first->datum); 1220 1221 Lst_DoneCall(&sysMkFiles, free); 1222 } 1223 1224 static void 1225 InitMaxJobs(void) 1226 { 1227 char *value; 1228 int n; 1229 1230 if (forceJobs || opts.compatMake || 1231 !Var_Exists(SCOPE_GLOBAL, ".MAKE.JOBS")) 1232 return; 1233 1234 (void)Var_Subst("${.MAKE.JOBS}", SCOPE_GLOBAL, VARE_WANTRES, &value); 1235 /* TODO: handle errors */ 1236 n = (int)strtol(value, NULL, 0); 1237 if (n < 1) { 1238 (void)fprintf(stderr, 1239 "%s: illegal value for .MAKE.JOBS " 1240 "-- must be positive integer!\n", 1241 progname); 1242 exit(2); /* Not 1 so -q can distinguish error */ 1243 } 1244 1245 if (n != opts.maxJobs) { 1246 Global_Append(MAKEFLAGS, "-j"); 1247 Global_Append(MAKEFLAGS, value); 1248 } 1249 1250 opts.maxJobs = n; 1251 maxJobTokens = opts.maxJobs; 1252 forceJobs = true; 1253 free(value); 1254 } 1255 1256 /* 1257 * For compatibility, look at the directories in the VPATH variable 1258 * and add them to the search path, if the variable is defined. The 1259 * variable's value is in the same format as the PATH environment 1260 * variable, i.e. <directory>:<directory>:<directory>... 1261 */ 1262 static void 1263 InitVpath(void) 1264 { 1265 char *vpath, savec, *path; 1266 if (!Var_Exists(SCOPE_CMDLINE, "VPATH")) 1267 return; 1268 1269 (void)Var_Subst("${VPATH}", SCOPE_CMDLINE, VARE_WANTRES, &vpath); 1270 /* TODO: handle errors */ 1271 path = vpath; 1272 do { 1273 char *cp; 1274 /* skip to end of directory */ 1275 for (cp = path; *cp != ':' && *cp != '\0'; cp++) 1276 continue; 1277 /* Save terminator character so know when to stop */ 1278 savec = *cp; 1279 *cp = '\0'; 1280 /* Add directory to search path */ 1281 (void)SearchPath_Add(&dirSearchPath, path); 1282 *cp = savec; 1283 path = cp + 1; 1284 } while (savec == ':'); 1285 free(vpath); 1286 } 1287 1288 static void 1289 ReadAllMakefiles(const StringList *makefiles) 1290 { 1291 StringListNode *ln; 1292 1293 for (ln = makefiles->first; ln != NULL; ln = ln->next) { 1294 const char *fname = ln->datum; 1295 if (!ReadMakefile(fname)) 1296 Fatal("%s: cannot open %s.", progname, fname); 1297 } 1298 } 1299 1300 static void 1301 ReadFirstDefaultMakefile(void) 1302 { 1303 StringList makefiles = LST_INIT; 1304 StringListNode *ln; 1305 char *prefs; 1306 1307 (void)Var_Subst("${" MAKE_MAKEFILE_PREFERENCE "}", 1308 SCOPE_CMDLINE, VARE_WANTRES, &prefs); 1309 /* TODO: handle errors */ 1310 1311 (void)str2Lst_Append(&makefiles, prefs); 1312 1313 for (ln = makefiles.first; ln != NULL; ln = ln->next) 1314 if (ReadMakefile(ln->datum)) 1315 break; 1316 1317 Lst_Done(&makefiles); 1318 free(prefs); 1319 } 1320 1321 /* 1322 * Initialize variables such as MAKE, MACHINE, .MAKEFLAGS. 1323 * Initialize a few modules. 1324 * Parse the arguments from MAKEFLAGS and the command line. 1325 */ 1326 static void 1327 main_Init(int argc, char **argv) 1328 { 1329 struct stat sa; 1330 const char *machine; 1331 const char *machine_arch; 1332 char *syspath = getenv("MAKESYSPATH"); 1333 struct utsname utsname; 1334 1335 /* default to writing debug to stderr */ 1336 opts.debug_file = stderr; 1337 1338 Str_Intern_Init(); 1339 HashTable_Init(&cached_realpaths); 1340 1341 #ifdef SIGINFO 1342 (void)bmake_signal(SIGINFO, siginfo); 1343 #endif 1344 1345 InitRandom(); 1346 1347 progname = str_basename(argv[0]); 1348 1349 UnlimitFiles(); 1350 1351 if (uname(&utsname) == -1) { 1352 (void)fprintf(stderr, "%s: uname failed (%s).\n", progname, 1353 strerror(errno)); 1354 exit(2); 1355 } 1356 1357 /* 1358 * Get the name of this type of MACHINE from utsname 1359 * so we can share an executable for similar machines. 1360 * (i.e. m68k: amiga hp300, mac68k, sun3, ...) 1361 * 1362 * Note that both MACHINE and MACHINE_ARCH are decided at 1363 * run-time. 1364 */ 1365 machine = InitVarMachine(&utsname); 1366 machine_arch = InitVarMachineArch(); 1367 1368 myPid = getpid(); /* remember this for vFork() */ 1369 1370 /* 1371 * Just in case MAKEOBJDIR wants us to do something tricky. 1372 */ 1373 Targ_Init(); 1374 Var_Init(); 1375 Global_Set(".MAKE.OS", utsname.sysname); 1376 Global_Set("MACHINE", machine); 1377 Global_Set("MACHINE_ARCH", machine_arch); 1378 #ifdef MAKE_VERSION 1379 Global_Set("MAKE_VERSION", MAKE_VERSION); 1380 #endif 1381 Global_Set(".newline", "\n"); /* handy for :@ loops */ 1382 #ifndef MAKEFILE_PREFERENCE_LIST 1383 /* This is the traditional preference for makefiles. */ 1384 # define MAKEFILE_PREFERENCE_LIST "makefile Makefile" 1385 #endif 1386 Global_Set(MAKE_MAKEFILE_PREFERENCE, MAKEFILE_PREFERENCE_LIST); 1387 Global_Set(MAKE_DEPENDFILE, ".depend"); 1388 1389 CmdOpts_Init(); 1390 allPrecious = false; /* Remove targets when interrupted */ 1391 deleteOnError = false; /* Historical default behavior */ 1392 jobsRunning = false; 1393 1394 maxJobTokens = opts.maxJobs; 1395 ignorePWD = false; 1396 1397 /* 1398 * Initialize the parsing, directory and variable modules to prepare 1399 * for the reading of inclusion paths and variable settings on the 1400 * command line 1401 */ 1402 1403 /* 1404 * Initialize various variables. 1405 * MAKE also gets this name, for compatibility 1406 * .MAKEFLAGS gets set to the empty string just in case. 1407 * MFLAGS also gets initialized empty, for compatibility. 1408 */ 1409 Parse_Init(); 1410 InitVarMake(argv[0]); 1411 Global_Set(MAKEFLAGS, ""); 1412 Global_Set(MAKEOVERRIDES, ""); 1413 Global_Set("MFLAGS", ""); 1414 Global_Set(".ALLTARGETS", ""); 1415 Var_Set(SCOPE_CMDLINE, MAKE_LEVEL ".ENV", MAKE_LEVEL_ENV); 1416 1417 /* Set some other useful variables. */ 1418 { 1419 char buf[64], *ep = getenv(MAKE_LEVEL_ENV); 1420 1421 makelevel = ep != NULL && ep[0] != '\0' ? atoi(ep) : 0; 1422 if (makelevel < 0) 1423 makelevel = 0; 1424 snprintf(buf, sizeof buf, "%d", makelevel); 1425 Global_Set(MAKE_LEVEL, buf); 1426 snprintf(buf, sizeof buf, "%u", myPid); 1427 Global_Set(".MAKE.PID", buf); 1428 snprintf(buf, sizeof buf, "%u", getppid()); 1429 Global_Set(".MAKE.PPID", buf); 1430 snprintf(buf, sizeof buf, "%u", getuid()); 1431 Global_Set(".MAKE.UID", buf); 1432 snprintf(buf, sizeof buf, "%u", getgid()); 1433 Global_Set(".MAKE.GID", buf); 1434 } 1435 if (makelevel > 0) { 1436 char pn[1024]; 1437 snprintf(pn, sizeof pn, "%s[%d]", progname, makelevel); 1438 progname = bmake_strdup(pn); 1439 } 1440 1441 #ifdef USE_META 1442 meta_init(); 1443 #endif 1444 Dir_Init(); 1445 1446 #ifdef POSIX 1447 { 1448 char *makeflags = explode(getenv("MAKEFLAGS")); 1449 Main_ParseArgLine(makeflags); 1450 free(makeflags); 1451 } 1452 #else 1453 /* 1454 * First snag any flags out of the MAKE environment variable. 1455 * (Note this is *not* MAKEFLAGS since /bin/make uses that and it's 1456 * in a different format). 1457 */ 1458 Main_ParseArgLine(getenv("MAKE")); 1459 #endif 1460 1461 if (getcwd(curdir, MAXPATHLEN) == NULL) { 1462 (void)fprintf(stderr, "%s: getcwd: %s.\n", 1463 progname, strerror(errno)); 1464 exit(2); 1465 } 1466 1467 MainParseArgs(argc, argv); 1468 1469 if (opts.enterFlag) 1470 printf("%s: Entering directory `%s'\n", progname, curdir); 1471 1472 if (stat(curdir, &sa) == -1) { 1473 (void)fprintf(stderr, "%s: %s: %s.\n", 1474 progname, curdir, strerror(errno)); 1475 exit(2); 1476 } 1477 1478 #ifndef NO_PWD_OVERRIDE 1479 HandlePWD(&sa); 1480 #endif 1481 Global_Set(".CURDIR", curdir); 1482 1483 InitObjdir(machine, machine_arch); 1484 1485 Arch_Init(); 1486 Suff_Init(); 1487 Trace_Init(tracefile); 1488 1489 defaultNode = NULL; 1490 (void)time(&now); 1491 1492 Trace_Log(MAKESTART, NULL); 1493 1494 InitVarTargets(); 1495 1496 InitDefSysIncPath(syspath); 1497 } 1498 1499 /* 1500 * Read the system makefile followed by either makefile, Makefile or the 1501 * files given by the -f option. Exit on parse errors. 1502 */ 1503 static void 1504 main_ReadFiles(void) 1505 { 1506 1507 if (!opts.noBuiltins) 1508 ReadBuiltinRules(); 1509 1510 posix_state = PS_MAYBE_NEXT_LINE; 1511 if (!Lst_IsEmpty(&opts.makefiles)) 1512 ReadAllMakefiles(&opts.makefiles); 1513 else 1514 ReadFirstDefaultMakefile(); 1515 } 1516 1517 /* Compute the dependency graph. */ 1518 static void 1519 main_PrepareMaking(void) 1520 { 1521 /* In particular suppress .depend for '-r -V .OBJDIR -f /dev/null' */ 1522 if (!opts.noBuiltins || opts.printVars == PVM_NONE) { 1523 (void)Var_Subst("${.MAKE.DEPENDFILE}", 1524 SCOPE_CMDLINE, VARE_WANTRES, &makeDependfile); 1525 if (makeDependfile[0] != '\0') { 1526 /* TODO: handle errors */ 1527 doing_depend = true; 1528 (void)ReadMakefile(makeDependfile); 1529 doing_depend = false; 1530 } 1531 } 1532 1533 if (enterFlagObj) 1534 printf("%s: Entering directory `%s'\n", progname, objdir); 1535 1536 MakeMode(); 1537 1538 { 1539 FStr makeflags = Var_Value(SCOPE_GLOBAL, MAKEFLAGS); 1540 Global_Append("MFLAGS", makeflags.str); 1541 FStr_Done(&makeflags); 1542 } 1543 1544 InitMaxJobs(); 1545 1546 if (!opts.compatMake && !forceJobs) 1547 opts.compatMake = true; 1548 1549 if (!opts.compatMake) 1550 Job_ServerStart(maxJobTokens, jp_0, jp_1); 1551 DEBUG5(JOB, "job_pipe %d %d, maxjobs %d, tokens %d, compat %d\n", 1552 jp_0, jp_1, opts.maxJobs, maxJobTokens, opts.compatMake ? 1 : 0); 1553 1554 if (opts.printVars == PVM_NONE) 1555 Main_ExportMAKEFLAGS(true); /* initial export */ 1556 1557 InitVpath(); 1558 1559 /* 1560 * Now that all search paths have been read for suffixes et al, it's 1561 * time to add the default search path to their lists... 1562 */ 1563 Suff_ExtendPaths(); 1564 1565 /* 1566 * Propagate attributes through :: dependency lists. 1567 */ 1568 Targ_Propagate(); 1569 1570 /* print the initial graph, if the user requested it */ 1571 if (DEBUG(GRAPH1)) 1572 Targ_PrintGraph(1); 1573 } 1574 1575 /* 1576 * Make the targets. 1577 * If the -v or -V options are given, print variables instead. 1578 * Return whether any of the targets is out-of-date. 1579 */ 1580 static bool 1581 main_Run(void) 1582 { 1583 if (opts.printVars != PVM_NONE) { 1584 /* print the values of any variables requested by the user */ 1585 doPrintVars(); 1586 return false; 1587 } else { 1588 return runTargets(); 1589 } 1590 } 1591 1592 /* Clean up after making the targets. */ 1593 static void 1594 main_CleanUp(void) 1595 { 1596 #ifdef CLEANUP 1597 Lst_DoneCall(&opts.variables, free); 1598 Lst_DoneCall(&opts.makefiles, free); 1599 Lst_DoneCall(&opts.create, free); 1600 #endif 1601 1602 if (DEBUG(GRAPH2)) 1603 Targ_PrintGraph(2); 1604 1605 Trace_Log(MAKEEND, NULL); 1606 1607 if (enterFlagObj) 1608 printf("%s: Leaving directory `%s'\n", progname, objdir); 1609 if (opts.enterFlag) 1610 printf("%s: Leaving directory `%s'\n", progname, curdir); 1611 1612 #ifdef USE_META 1613 meta_finish(); 1614 #endif 1615 Suff_End(); 1616 Targ_End(); 1617 Arch_End(); 1618 Var_End(); 1619 Parse_End(); 1620 Dir_End(); 1621 Job_End(); 1622 Trace_End(); 1623 Str_Intern_End(); 1624 } 1625 1626 /* Determine the exit code. */ 1627 static int 1628 main_Exit(bool outOfDate) 1629 { 1630 if (opts.strict && (main_errors > 0 || Parse_NumErrors() > 0)) 1631 return 2; /* Not 1 so -q can distinguish error */ 1632 return outOfDate ? 1 : 0; 1633 } 1634 1635 int 1636 main(int argc, char **argv) 1637 { 1638 bool outOfDate; 1639 1640 main_Init(argc, argv); 1641 main_ReadFiles(); 1642 main_PrepareMaking(); 1643 outOfDate = main_Run(); 1644 main_CleanUp(); 1645 return main_Exit(outOfDate); 1646 } 1647 1648 /* 1649 * Open and parse the given makefile, with all its side effects. 1650 * Return false if the file could not be opened. 1651 */ 1652 static bool 1653 ReadMakefile(const char *fname) 1654 { 1655 int fd; 1656 char *name, *path = NULL; 1657 1658 if (strcmp(fname, "-") == 0) { 1659 Parse_File("(stdin)", -1); 1660 Var_Set(SCOPE_INTERNAL, "MAKEFILE", ""); 1661 } else { 1662 /* if we've chdir'd, rebuild the path name */ 1663 if (strcmp(curdir, objdir) != 0 && *fname != '/') { 1664 path = str_concat3(curdir, "/", fname); 1665 fd = open(path, O_RDONLY); 1666 if (fd != -1) { 1667 fname = path; 1668 goto found; 1669 } 1670 free(path); 1671 1672 /* If curdir failed, try objdir (ala .depend) */ 1673 path = str_concat3(objdir, "/", fname); 1674 fd = open(path, O_RDONLY); 1675 if (fd != -1) { 1676 fname = path; 1677 goto found; 1678 } 1679 } else { 1680 fd = open(fname, O_RDONLY); 1681 if (fd != -1) 1682 goto found; 1683 } 1684 /* look in -I and system include directories. */ 1685 name = Dir_FindFile(fname, parseIncPath); 1686 if (name == NULL) { 1687 SearchPath *sysInc = Lst_IsEmpty(&sysIncPath->dirs) 1688 ? defSysIncPath : sysIncPath; 1689 name = Dir_FindFile(fname, sysInc); 1690 } 1691 if (name == NULL || (fd = open(name, O_RDONLY)) == -1) { 1692 free(name); 1693 free(path); 1694 return false; 1695 } 1696 fname = name; 1697 /* 1698 * set the MAKEFILE variable desired by System V fans -- the 1699 * placement of the setting here means it gets set to the last 1700 * makefile specified, as it is set by SysV make. 1701 */ 1702 found: 1703 if (!doing_depend) 1704 Var_Set(SCOPE_INTERNAL, "MAKEFILE", fname); 1705 Parse_File(fname, fd); 1706 } 1707 free(path); 1708 return true; 1709 } 1710 1711 /* 1712 * Execute the command in cmd, and return its output (only stdout, not 1713 * stderr, possibly empty). In the output, replace newlines with spaces. 1714 */ 1715 char * 1716 Cmd_Exec(const char *cmd, char **error) 1717 { 1718 const char *args[4]; /* Arguments for invoking the shell */ 1719 int pipefds[2]; 1720 int cpid; /* Child PID */ 1721 int pid; /* PID from wait() */ 1722 int status; /* command exit status */ 1723 Buffer buf; /* buffer to store the result */ 1724 ssize_t bytes_read; 1725 char *output; 1726 char *cp; 1727 int saved_errno; 1728 1729 if (shellName == NULL) 1730 Shell_Init(); 1731 1732 args[0] = shellName; 1733 args[1] = "-c"; 1734 args[2] = cmd; 1735 args[3] = NULL; 1736 DEBUG1(VAR, "Capturing the output of command \"%s\"\n", cmd); 1737 1738 if (pipe(pipefds) == -1) { 1739 *error = str_concat3( 1740 "Couldn't create pipe for \"", cmd, "\""); 1741 return bmake_strdup(""); 1742 } 1743 1744 Var_ReexportVars(); 1745 1746 switch (cpid = vfork()) { 1747 case 0: 1748 (void)close(pipefds[0]); 1749 (void)dup2(pipefds[1], STDOUT_FILENO); 1750 (void)close(pipefds[1]); 1751 1752 (void)execv(shellPath, UNCONST(args)); 1753 _exit(1); 1754 /* NOTREACHED */ 1755 1756 case -1: 1757 *error = str_concat3("Couldn't exec \"", cmd, "\""); 1758 return bmake_strdup(""); 1759 } 1760 1761 (void)close(pipefds[1]); /* No need for the writing half */ 1762 1763 saved_errno = 0; 1764 Buf_Init(&buf); 1765 1766 do { 1767 char result[BUFSIZ]; 1768 bytes_read = read(pipefds[0], result, sizeof result); 1769 if (bytes_read > 0) 1770 Buf_AddBytes(&buf, result, (size_t)bytes_read); 1771 } while (bytes_read > 0 || (bytes_read == -1 && errno == EINTR)); 1772 if (bytes_read == -1) 1773 saved_errno = errno; 1774 1775 (void)close(pipefds[0]); /* Close the input side of the pipe. */ 1776 1777 while ((pid = waitpid(cpid, &status, 0)) != cpid && pid >= 0) 1778 JobReapChild(pid, status, false); 1779 1780 if (Buf_EndsWith(&buf, '\n')) 1781 buf.data[buf.len - 1] = '\0'; 1782 1783 output = Buf_DoneData(&buf); 1784 for (cp = output; *cp != '\0'; cp++) 1785 if (*cp == '\n') 1786 *cp = ' '; 1787 1788 if (WIFSIGNALED(status)) 1789 *error = str_concat3("\"", cmd, "\" exited on a signal"); 1790 else if (WEXITSTATUS(status) != 0) 1791 *error = str_concat3( 1792 "\"", cmd, "\" returned non-zero status"); 1793 else if (saved_errno != 0) 1794 *error = str_concat3( 1795 "Couldn't read shell's output for \"", cmd, "\""); 1796 else 1797 *error = NULL; 1798 return output; 1799 } 1800 1801 /* 1802 * Print a printf-style error message. 1803 * 1804 * In default mode, this error message has no consequences, for compatibility 1805 * reasons, in particular it does not affect the exit status. Only in lint 1806 * mode (-dL) it does. 1807 */ 1808 void 1809 Error(const char *fmt, ...) 1810 { 1811 va_list ap; 1812 FILE *f; 1813 1814 f = opts.debug_file; 1815 if (f == stdout) 1816 f = stderr; 1817 (void)fflush(stdout); 1818 1819 for (;;) { 1820 fprintf(f, "%s: ", progname); 1821 va_start(ap, fmt); 1822 (void)vfprintf(f, fmt, ap); 1823 va_end(ap); 1824 (void)fprintf(f, "\n"); 1825 (void)fflush(f); 1826 if (f == stderr) 1827 break; 1828 f = stderr; 1829 } 1830 main_errors++; 1831 } 1832 1833 /* 1834 * Wait for any running jobs to finish, then produce an error message, 1835 * finally exit immediately. 1836 * 1837 * Exiting immediately differs from Parse_Error, which exits only after the 1838 * current top-level makefile has been parsed completely. 1839 */ 1840 void 1841 Fatal(const char *fmt, ...) 1842 { 1843 va_list ap; 1844 1845 if (jobsRunning) 1846 Job_Wait(); 1847 1848 (void)fflush(stdout); 1849 va_start(ap, fmt); 1850 (void)vfprintf(stderr, fmt, ap); 1851 va_end(ap); 1852 (void)fprintf(stderr, "\n"); 1853 (void)fflush(stderr); 1854 PrintStackTrace(true); 1855 1856 PrintOnError(NULL, "\n"); 1857 1858 if (DEBUG(GRAPH2) || DEBUG(GRAPH3)) 1859 Targ_PrintGraph(2); 1860 Trace_Log(MAKEERROR, NULL); 1861 exit(2); /* Not 1 so -q can distinguish error */ 1862 } 1863 1864 /* 1865 * Major exception once jobs are being created. 1866 * Kills all jobs, prints a message and exits. 1867 */ 1868 void 1869 Punt(const char *fmt, ...) 1870 { 1871 va_list ap; 1872 1873 (void)fflush(stdout); 1874 (void)fprintf(stderr, "%s: ", progname); 1875 va_start(ap, fmt); 1876 (void)vfprintf(stderr, fmt, ap); 1877 va_end(ap); 1878 (void)fprintf(stderr, "\n"); 1879 (void)fflush(stderr); 1880 1881 PrintOnError(NULL, "\n"); 1882 1883 DieHorribly(); 1884 } 1885 1886 /* Exit without giving a message. */ 1887 void 1888 DieHorribly(void) 1889 { 1890 if (jobsRunning) 1891 Job_AbortAll(); 1892 if (DEBUG(GRAPH2)) 1893 Targ_PrintGraph(2); 1894 Trace_Log(MAKEERROR, NULL); 1895 exit(2); /* Not 1 so -q can distinguish error */ 1896 } 1897 1898 /* 1899 * Called when aborting due to errors in child shell to signal abnormal exit. 1900 * The program exits. 1901 * Errors is the number of errors encountered in Make_Make. 1902 */ 1903 void 1904 Finish(int errs) 1905 { 1906 if (shouldDieQuietly(NULL, -1)) 1907 exit(2); 1908 Fatal("%d error%s", errs, errs == 1 ? "" : "s"); 1909 } 1910 1911 bool 1912 unlink_file(const char *file) 1913 { 1914 struct stat st; 1915 1916 if (lstat(file, &st) == -1) 1917 return false; 1918 1919 if (S_ISDIR(st.st_mode)) { 1920 errno = EISDIR; 1921 return false; 1922 } 1923 return unlink(file) == 0; 1924 } 1925 1926 static void 1927 write_all(int fd, const void *data, size_t n) 1928 { 1929 const char *mem = data; 1930 1931 while (n > 0) { 1932 ssize_t written = write(fd, mem, n); 1933 /* XXX: Should this EAGAIN be EINTR? */ 1934 if (written == -1 && errno == EAGAIN) 1935 continue; 1936 if (written == -1) 1937 break; 1938 mem += written; 1939 n -= (size_t)written; 1940 } 1941 } 1942 1943 /* Print why exec failed, avoiding stdio. */ 1944 void MAKE_ATTR_DEAD 1945 execDie(const char *af, const char *av) 1946 { 1947 Buffer buf; 1948 1949 Buf_Init(&buf); 1950 Buf_AddStr(&buf, progname); 1951 Buf_AddStr(&buf, ": "); 1952 Buf_AddStr(&buf, af); 1953 Buf_AddStr(&buf, "("); 1954 Buf_AddStr(&buf, av); 1955 Buf_AddStr(&buf, ") failed ("); 1956 Buf_AddStr(&buf, strerror(errno)); 1957 Buf_AddStr(&buf, ")\n"); 1958 1959 write_all(STDERR_FILENO, buf.data, buf.len); 1960 1961 Buf_Done(&buf); 1962 _exit(1); 1963 } 1964 1965 static void 1966 purge_relative_cached_realpaths(void) 1967 { 1968 HashEntry *he, *nhe; 1969 HashIter hi; 1970 1971 HashIter_Init(&hi, &cached_realpaths); 1972 he = HashIter_Next(&hi); 1973 while (he != NULL) { 1974 nhe = HashIter_Next(&hi); 1975 if (he->key[0] != '/') { 1976 DEBUG1(DIR, "cached_realpath: purging %s\n", he->key); 1977 HashTable_DeleteEntry(&cached_realpaths, he); 1978 /* 1979 * XXX: What about the allocated he->value? Either 1980 * free them or document why they cannot be freed. 1981 */ 1982 } 1983 he = nhe; 1984 } 1985 } 1986 1987 const char * 1988 cached_realpath(const char *pathname, char *resolved) 1989 { 1990 const char *rp; 1991 1992 if (pathname == NULL || pathname[0] == '\0') 1993 return NULL; 1994 1995 rp = HashTable_FindValue(&cached_realpaths, pathname); 1996 if (rp != NULL) { 1997 /* a hit */ 1998 strncpy(resolved, rp, MAXPATHLEN); 1999 resolved[MAXPATHLEN - 1] = '\0'; 2000 return resolved; 2001 } 2002 2003 rp = realpath(pathname, resolved); 2004 if (rp != NULL) { 2005 HashTable_Set(&cached_realpaths, pathname, bmake_strdup(rp)); 2006 DEBUG2(DIR, "cached_realpath: %s -> %s\n", pathname, rp); 2007 return resolved; 2008 } 2009 2010 /* should we negative-cache? */ 2011 return NULL; 2012 } 2013 2014 /* 2015 * Return true if we should die without noise. 2016 * For example our failing child was a sub-make or failure happened elsewhere. 2017 */ 2018 bool 2019 shouldDieQuietly(GNode *gn, int bf) 2020 { 2021 static int quietly = -1; 2022 2023 if (quietly < 0) { 2024 if (DEBUG(JOB) || 2025 !GetBooleanExpr("${.MAKE.DIE_QUIETLY}", true)) 2026 quietly = 0; 2027 else if (bf >= 0) 2028 quietly = bf; 2029 else 2030 quietly = (gn != NULL && (gn->type & OP_MAKE)) ? 1 : 0; 2031 } 2032 return quietly != 0; 2033 } 2034 2035 static void 2036 SetErrorVars(GNode *gn) 2037 { 2038 StringListNode *ln; 2039 2040 /* 2041 * We can print this even if there is no .ERROR target. 2042 */ 2043 Global_Set(".ERROR_TARGET", gn->name); 2044 Global_Delete(".ERROR_CMD"); 2045 2046 for (ln = gn->commands.first; ln != NULL; ln = ln->next) { 2047 const char *cmd = ln->datum; 2048 2049 if (cmd == NULL) 2050 break; 2051 Global_Append(".ERROR_CMD", cmd); 2052 } 2053 } 2054 2055 /* 2056 * Print some helpful information in case of an error. 2057 * The caller should exit soon after calling this function. 2058 */ 2059 void 2060 PrintOnError(GNode *gn, const char *msg) 2061 { 2062 static GNode *errorNode = NULL; 2063 2064 if (DEBUG(HASH)) { 2065 Targ_Stats(); 2066 Var_Stats(); 2067 } 2068 2069 if (errorNode != NULL) 2070 return; /* we've been here! */ 2071 2072 printf("%s%s: stopped in %s\n", msg, progname, curdir); 2073 2074 /* we generally want to keep quiet if a sub-make died */ 2075 if (shouldDieQuietly(gn, -1)) 2076 return; 2077 2078 if (gn != NULL) 2079 SetErrorVars(gn); 2080 2081 { 2082 char *errorVarsValues; 2083 (void)Var_Subst("${MAKE_PRINT_VAR_ON_ERROR:@v@$v='${$v}'\n@}", 2084 SCOPE_GLOBAL, VARE_WANTRES, &errorVarsValues); 2085 /* TODO: handle errors */ 2086 printf("%s", errorVarsValues); 2087 free(errorVarsValues); 2088 } 2089 2090 fflush(stdout); 2091 2092 /* 2093 * Finally, see if there is a .ERROR target, and run it if so. 2094 */ 2095 errorNode = Targ_FindNode(".ERROR"); 2096 if (errorNode != NULL) { 2097 errorNode->type |= OP_SPECIAL; 2098 Compat_Make(errorNode, errorNode); 2099 } 2100 } 2101 2102 void 2103 Main_ExportMAKEFLAGS(bool first) 2104 { 2105 static bool once = true; 2106 char *flags; 2107 2108 if (once != first) 2109 return; 2110 once = false; 2111 2112 (void)Var_Subst( 2113 "${.MAKEFLAGS} ${.MAKEOVERRIDES:O:u:@v@$v=${$v:Q}@}", 2114 SCOPE_CMDLINE, VARE_WANTRES, &flags); 2115 /* TODO: handle errors */ 2116 if (flags[0] != '\0') { 2117 #ifdef POSIX 2118 setenv("MAKEFLAGS", flags, 1); 2119 #else 2120 setenv("MAKE", flags, 1); 2121 #endif 2122 } 2123 } 2124 2125 char * 2126 getTmpdir(void) 2127 { 2128 static char *tmpdir = NULL; 2129 struct stat st; 2130 2131 if (tmpdir != NULL) 2132 return tmpdir; 2133 2134 /* Honor $TMPDIR if it is valid, strip a trailing '/'. */ 2135 (void)Var_Subst("${TMPDIR:tA:U" _PATH_TMP ":S,/$,,W}/", 2136 SCOPE_GLOBAL, VARE_WANTRES, &tmpdir); 2137 /* TODO: handle errors */ 2138 2139 if (stat(tmpdir, &st) < 0 || !S_ISDIR(st.st_mode)) { 2140 free(tmpdir); 2141 tmpdir = bmake_strdup(_PATH_TMP); 2142 } 2143 return tmpdir; 2144 } 2145 2146 /* 2147 * Create and open a temp file using "pattern". 2148 * If out_fname is provided, set it to a copy of the filename created. 2149 * Otherwise unlink the file once open. 2150 */ 2151 int 2152 mkTempFile(const char *pattern, char *tfile, size_t tfile_sz) 2153 { 2154 static char *tmpdir = NULL; 2155 char tbuf[MAXPATHLEN]; 2156 int fd; 2157 2158 if (pattern == NULL) 2159 pattern = TMPPAT; 2160 if (tmpdir == NULL) 2161 tmpdir = getTmpdir(); 2162 if (tfile == NULL) { 2163 tfile = tbuf; 2164 tfile_sz = sizeof tbuf; 2165 } 2166 2167 if (pattern[0] == '/') 2168 snprintf(tfile, tfile_sz, "%s", pattern); 2169 else 2170 snprintf(tfile, tfile_sz, "%s%s", tmpdir, pattern); 2171 2172 if ((fd = mkstemp(tfile)) < 0) 2173 Punt("Could not create temporary file %s: %s", tfile, 2174 strerror(errno)); 2175 if (tfile == tbuf) 2176 unlink(tfile); /* we just want the descriptor */ 2177 2178 return fd; 2179 } 2180 2181 /* 2182 * Convert a string representation of a boolean into a boolean value. 2183 * Anything that looks like "No", "False", "Off", "0" etc. is false, 2184 * the empty string is the fallback, everything else is true. 2185 */ 2186 bool 2187 ParseBoolean(const char *s, bool fallback) 2188 { 2189 char ch = ch_tolower(s[0]); 2190 if (ch == '\0') 2191 return fallback; 2192 if (ch == '0' || ch == 'f' || ch == 'n') 2193 return false; 2194 if (ch == 'o') 2195 return ch_tolower(s[1]) != 'f'; 2196 return true; 2197 } 2198