1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License (the "License"). 6 * You may not use this file except in compliance with the License. 7 * 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9 * or http://www.opensolaris.org/os/licensing. 10 * See the License for the specific language governing permissions 11 * and limitations under the License. 12 * 13 * When distributing Covered Code, include this CDDL HEADER in each 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15 * If applicable, add the following below this CDDL HEADER, with the 16 * fields enclosed by brackets "[]" replaced with your own identifying 17 * information: Portions Copyright [yyyy] [name of copyright owner] 18 * 19 * CDDL HEADER END 20 */ 21 /* 22 * Copyright 2006 Sun Microsystems, Inc. All rights reserved. 23 * Use is subject to license terms. 24 * 25 * Copyright 2019, Joyent, Inc. 26 */ 27 28 /* 29 * main.cc 30 * 31 * make program main routine plus some helper routines 32 */ 33 34 /* 35 * Included files 36 */ 37 #include <bsd/bsd.h> /* bsd_signal() */ 38 39 40 #include <locale.h> /* setlocale() */ 41 #include <libgen.h> 42 #include <mk/defs.h> 43 #include <mksh/macro.h> /* getvar() */ 44 #include <mksh/misc.h> /* getmem(), setup_char_semantics() */ 45 46 #include <pwd.h> /* getpwnam() */ 47 #include <setjmp.h> 48 #include <signal.h> 49 #include <stdlib.h> 50 #include <sys/errno.h> /* ENOENT */ 51 #include <sys/stat.h> /* fstat() */ 52 #include <fcntl.h> /* open() */ 53 54 # include <sys/systeminfo.h> /* sysinfo() */ 55 56 #include <sys/types.h> /* stat() */ 57 #include <sys/wait.h> /* wait() */ 58 #include <unistd.h> /* execv(), unlink(), access() */ 59 #include <vroot/report.h> /* report_dependency(), get_report_file() */ 60 61 // From read2.cc 62 extern Name normalize_name(register wchar_t *name_string, register int length); 63 64 extern void job_adjust_fini(); 65 66 67 /* 68 * Defined macros 69 */ 70 #define LD_SUPPORT_ENV_VAR "SGS_SUPPORT_32" 71 #define LD_SUPPORT_ENV_VAR_32 "SGS_SUPPORT_32" 72 #define LD_SUPPORT_ENV_VAR_64 "SGS_SUPPORT_64" 73 #define LD_SUPPORT_MAKE_LIB "libmakestate.so.1" 74 #ifdef __x86 75 #define LD_SUPPORT_MAKE_ARCH "i386" 76 #elif __sparc 77 #define LD_SUPPORT_MAKE_ARCH "sparc" 78 #else 79 #error "Unsupported architecture" 80 #endif 81 82 /* 83 * typedefs & structs 84 */ 85 86 /* 87 * Static variables 88 */ 89 static char *argv_zero_string; 90 static Boolean build_failed_ever_seen; 91 static Boolean continue_after_error_ever_seen; /* `-k' */ 92 static Boolean dmake_group_specified; /* `-g' */ 93 static Boolean dmake_max_jobs_specified; /* `-j' */ 94 static Boolean dmake_mode_specified; /* `-m' */ 95 static Boolean dmake_add_mode_specified; /* `-x' */ 96 static Boolean dmake_output_mode_specified; /* `-x DMAKE_OUTPUT_MODE=' */ 97 static Boolean dmake_compat_mode_specified; /* `-x SUN_MAKE_COMPAT_MODE=' */ 98 static Boolean dmake_odir_specified; /* `-o' */ 99 static Boolean dmake_rcfile_specified; /* `-c' */ 100 static Boolean env_wins; /* `-e' */ 101 static Boolean ignore_default_mk; /* `-r' */ 102 static Boolean list_all_targets; /* `-T' */ 103 static int mf_argc; 104 static char **mf_argv; 105 static Dependency_rec not_auto_depen_struct; 106 static Dependency not_auto_depen = ¬_auto_depen_struct; 107 static Boolean pmake_cap_r_specified; /* `-R' */ 108 static Boolean pmake_machinesfile_specified; /* `-M' */ 109 static Boolean stop_after_error_ever_seen; /* `-S' */ 110 static Boolean trace_status; /* `-p' */ 111 112 #ifdef DMAKE_STATISTICS 113 static Boolean getname_stat = false; 114 #endif 115 116 static time_t start_time; 117 static int g_argc; 118 static char **g_argv; 119 120 /* 121 * File table of contents 122 */ 123 extern "C" void cleanup_after_exit(void); 124 125 extern "C" { 126 extern void dmake_exit_callback(void); 127 extern void dmake_message_callback(char *); 128 } 129 130 extern Name normalize_name(register wchar_t *name_string, register int length); 131 132 extern int main(int, char * []); 133 134 static void append_makeflags_string(Name, String); 135 static void doalarm(int); 136 static void enter_argv_values(int , char **, ASCII_Dyn_Array *); 137 static void make_targets(int, char **, Boolean); 138 static int parse_command_option(char); 139 static void read_command_options(int, char **); 140 static void read_environment(Boolean); 141 static void read_files_and_state(int, char **); 142 static Boolean read_makefile(Name, Boolean, Boolean, Boolean); 143 static void report_recursion(Name); 144 static void set_sgs_support(void); 145 static void setup_for_projectdir(void); 146 static void setup_makeflags_argv(void); 147 static void report_dir_enter_leave(Boolean entering); 148 149 extern void expand_value(Name, register String , Boolean); 150 151 static const char verstring[] = "illumos make"; 152 153 jmp_buf jmpbuffer; 154 155 /* 156 * main(argc, argv) 157 * 158 * Parameters: 159 * argc You know what this is 160 * argv You know what this is 161 * 162 * Static variables used: 163 * list_all_targets make -T seen 164 * trace_status make -p seen 165 * 166 * Global variables used: 167 * debug_level Should we trace make actions? 168 * keep_state Set if .KEEP_STATE seen 169 * makeflags The Name "MAKEFLAGS", used to get macro 170 * remote_command_name Name of remote invocation cmd ("on") 171 * running_list List of parallel running processes 172 * stdout_stderr_same true if stdout and stderr are the same 173 * auto_dependencies The Name "SUNPRO_DEPENDENCIES" 174 * temp_file_directory Set to the dir where we create tmp file 175 * trace_reader Set to reflect tracing status 176 * working_on_targets Set when building user targets 177 */ 178 int 179 main(int argc, char *argv[]) 180 { 181 /* 182 * cp is a -> to the value of the MAKEFLAGS env var, 183 * which has to be regular chars. 184 */ 185 register char *cp; 186 char make_state_dir[MAXPATHLEN]; 187 Boolean parallel_flag = false; 188 Boolean argv_zero_relative = false; 189 char *prognameptr; 190 char *slash_ptr; 191 mode_t um; 192 int i; 193 struct itimerval value; 194 char def_dmakerc_path[MAXPATHLEN]; 195 Name dmake_name, dmake_name2; 196 Name dmake_value, dmake_value2; 197 Property prop, prop2; 198 struct stat statbuf; 199 int statval; 200 201 struct stat out_stat, err_stat; 202 hostid = gethostid(); 203 bsd_signals(); 204 205 (void) setlocale(LC_ALL, ""); 206 207 208 #ifdef DMAKE_STATISTICS 209 if (getenv("DMAKE_STATISTICS")) { 210 getname_stat = true; 211 } 212 #endif 213 214 #ifndef TEXT_DOMAIN 215 #define TEXT_DOMAIN "SYS_TEST" 216 #endif 217 textdomain(TEXT_DOMAIN); 218 219 g_argc = argc; 220 g_argv = (char **) malloc((g_argc + 1) * sizeof(char *)); 221 for (i = 0; i < argc; i++) { 222 g_argv[i] = argv[i]; 223 } 224 g_argv[i] = NULL; 225 226 /* 227 * Set argv_zero_string to some form of argv[0] for 228 * recursive MAKE builds. 229 */ 230 231 if (*argv[0] == (int) slash_char) { 232 /* argv[0] starts with a slash */ 233 argv_zero_string = strdup(argv[0]); 234 } else if (strchr(argv[0], (int) slash_char) == NULL) { 235 /* argv[0] contains no slashes */ 236 argv_zero_string = strdup(argv[0]); 237 } else { 238 /* 239 * argv[0] contains at least one slash, 240 * but doesn't start with a slash 241 */ 242 char *tmp_current_path; 243 char *tmp_string; 244 245 tmp_current_path = get_current_path(); 246 tmp_string = getmem(strlen(tmp_current_path) + 1 + 247 strlen(argv[0]) + 1); 248 (void) sprintf(tmp_string, 249 "%s/%s", 250 tmp_current_path, 251 argv[0]); 252 argv_zero_string = strdup(tmp_string); 253 retmem_mb(tmp_string); 254 argv_zero_relative = true; 255 } 256 257 /* 258 * The following flags are reset if we don't have the 259 * (.nse_depinfo or .make.state) files locked and only set 260 * AFTER the file has been locked. This ensures that if the user 261 * interrupts the program while file_lock() is waiting to lock 262 * the file, the interrupt handler doesn't remove a lock 263 * that doesn't belong to us. 264 */ 265 make_state_lockfile = NULL; 266 make_state_locked = false; 267 268 269 /* 270 * look for last slash char in the path to look at the binary 271 * name. This is to resolve the hard link and invoke make 272 * in svr4 mode. 273 */ 274 275 /* Sun OS make standart */ 276 svr4 = false; 277 posix = false; 278 if(!strcmp(argv_zero_string, "/usr/xpg4/bin/make")) { 279 svr4 = false; 280 posix = true; 281 } else { 282 prognameptr = strrchr(argv[0], '/'); 283 if(prognameptr) { 284 prognameptr++; 285 } else { 286 prognameptr = argv[0]; 287 } 288 if(!strcmp(prognameptr, "svr4.make")) { 289 svr4 = true; 290 posix = false; 291 } 292 } 293 if (getenv(USE_SVR4_MAKE) || getenv("USE_SVID")){ 294 svr4 = true; 295 posix = false; 296 } 297 298 /* 299 * Find the dmake_compat_mode: posix, sun, svr4, or gnu_style, . 300 */ 301 char * dmake_compat_mode_var = getenv("SUN_MAKE_COMPAT_MODE"); 302 if (dmake_compat_mode_var != NULL) { 303 if (0 == strcasecmp(dmake_compat_mode_var, "GNU")) { 304 gnu_style = true; 305 } 306 //svr4 = false; 307 //posix = false; 308 } 309 310 /* 311 * Temporary directory set up. 312 */ 313 char * tmpdir_var = getenv("TMPDIR"); 314 if (tmpdir_var != NULL && *tmpdir_var == '/' && strlen(tmpdir_var) < MAXPATHLEN) { 315 strcpy(mbs_buffer, tmpdir_var); 316 for (tmpdir_var = mbs_buffer+strlen(mbs_buffer); 317 *(--tmpdir_var) == '/' && tmpdir_var > mbs_buffer; 318 *tmpdir_var = '\0'); 319 if (strlen(mbs_buffer) + 32 < MAXPATHLEN) { /* 32 = strlen("/dmake.stdout.%d.%d.XXXXXX") */ 320 sprintf(mbs_buffer2, "%s/dmake.tst.%d.XXXXXX", 321 mbs_buffer, getpid()); 322 int fd = mkstemp(mbs_buffer2); 323 if (fd >= 0) { 324 close(fd); 325 unlink(mbs_buffer2); 326 tmpdir = strdup(mbs_buffer); 327 } 328 } 329 } 330 331 /* find out if stdout and stderr point to the same place */ 332 if (fstat(1, &out_stat) < 0) { 333 fatal(gettext("fstat of standard out failed: %s"), errmsg(errno)); 334 } 335 if (fstat(2, &err_stat) < 0) { 336 fatal(gettext("fstat of standard error failed: %s"), errmsg(errno)); 337 } 338 if ((out_stat.st_dev == err_stat.st_dev) && 339 (out_stat.st_ino == err_stat.st_ino)) { 340 stdout_stderr_same = true; 341 } else { 342 stdout_stderr_same = false; 343 } 344 /* Make the vroot package scan the path using shell semantics */ 345 set_path_style(0); 346 347 setup_char_semantics(); 348 349 /* 350 * If running with .KEEP_STATE, curdir will be set with 351 * the connected directory. 352 */ 353 (void) atexit(cleanup_after_exit); 354 355 load_cached_names(); 356 357 /* 358 * Set command line flags 359 */ 360 setup_makeflags_argv(); 361 read_command_options(mf_argc, mf_argv); 362 read_command_options(argc, argv); 363 if (debug_level > 0) { 364 cp = getenv(makeflags->string_mb); 365 (void) printf(gettext("MAKEFLAGS value: %s\n"), cp == NULL ? "" : cp); 366 } 367 368 /* 369 * Reset argv_zero_string if it was built from a relative path and the 370 * -C option was specified. 371 */ 372 if (argv_zero_relative && rebuild_arg0) { 373 char *tmp_current_path; 374 char *tmp_string; 375 376 free(argv_zero_string); 377 tmp_current_path = get_current_path(); 378 tmp_string = getmem(strlen(tmp_current_path) + 1 + 379 strlen(argv[0]) + 1); 380 (void) sprintf(tmp_string, 381 "%s/%s", 382 tmp_current_path, 383 argv[0]); 384 argv_zero_string = strdup(tmp_string); 385 retmem_mb(tmp_string); 386 } 387 388 setup_for_projectdir(); 389 390 setup_interrupt(handle_interrupt); 391 392 read_files_and_state(argc, argv); 393 394 /* 395 * Find the dmake_output_mode: TXT1, TXT2 or HTML1. 396 */ 397 MBSTOWCS(wcs_buffer, "DMAKE_OUTPUT_MODE"); 398 dmake_name2 = GETNAME(wcs_buffer, FIND_LENGTH); 399 prop2 = get_prop(dmake_name2->prop, macro_prop); 400 if (prop2 == NULL) { 401 /* DMAKE_OUTPUT_MODE not defined, default to TXT1 mode */ 402 output_mode = txt1_mode; 403 } else { 404 dmake_value2 = prop2->body.macro.value; 405 if ((dmake_value2 == NULL) || 406 (IS_EQUAL(dmake_value2->string_mb, "TXT1"))) { 407 output_mode = txt1_mode; 408 } else if (IS_EQUAL(dmake_value2->string_mb, "TXT2")) { 409 output_mode = txt2_mode; 410 } else if (IS_EQUAL(dmake_value2->string_mb, "HTML1")) { 411 output_mode = html1_mode; 412 } else { 413 warning(gettext("Unsupported value `%s' for DMAKE_OUTPUT_MODE after -x flag (ignored)"), 414 dmake_value2->string_mb); 415 } 416 } 417 /* 418 * Find the dmake_mode: parallel, or serial. 419 */ 420 if ((!pmake_cap_r_specified) && 421 (!pmake_machinesfile_specified)) { 422 char *s, *b; 423 424 if ((s = strdup(argv[0])) == NULL) 425 fatal(gettext("Out of memory")); 426 427 b = basename(s); 428 429 MBSTOWCS(wcs_buffer, "DMAKE_MODE"); 430 dmake_name2 = GETNAME(wcs_buffer, FIND_LENGTH); 431 prop2 = get_prop(dmake_name2->prop, macro_prop); 432 // If we're invoked as 'make' run serially, regardless of DMAKE_MODE 433 // If we're invoked as 'make' but passed -j, run parallel 434 // If we're invoked as 'dmake', without DMAKE_MODE, default parallel 435 // If we're invoked as 'dmake' and DMAKE_MODE is set, honour it. 436 if ((strcmp(b, "make") == 0) && 437 !dmake_max_jobs_specified) { 438 dmake_mode_type = serial_mode; 439 no_parallel = true; 440 } else if (prop2 == NULL) { 441 /* DMAKE_MODE not defined, default based on our name */ 442 if (strcmp(b, "dmake") == 0) { 443 dmake_mode_type = parallel_mode; 444 no_parallel = false; 445 } 446 } else { 447 dmake_value2 = prop2->body.macro.value; 448 if (IS_EQUAL(dmake_value2->string_mb, "parallel")) { 449 dmake_mode_type = parallel_mode; 450 no_parallel = false; 451 } else if (IS_EQUAL(dmake_value2->string_mb, "serial")) { 452 dmake_mode_type = serial_mode; 453 no_parallel = true; 454 } else { 455 fatal(gettext("Unknown dmake mode argument `%s' after -m flag"), dmake_value2->string_mb); 456 } 457 } 458 free(s); 459 } 460 461 parallel_flag = true; 462 putenv(strdup("DMAKE_CHILD=TRUE")); 463 464 // 465 // If dmake is running with -t option, set dmake_mode_type to serial. 466 // This is done because doname() calls touch_command() that runs serially. 467 // If we do not do that, maketool will have problems. 468 // 469 if(touch) { 470 dmake_mode_type = serial_mode; 471 no_parallel = true; 472 } 473 474 /* 475 * Check whether stdout and stderr are physically same. 476 * This is in order to decide whether we need to redirect 477 * stderr separately from stdout. 478 * This check is performed only if __DMAKE_SEPARATE_STDERR 479 * is not set. This variable may be used in order to preserve 480 * the 'old' behaviour. 481 */ 482 out_err_same = true; 483 char * dmake_sep_var = getenv("__DMAKE_SEPARATE_STDERR"); 484 if (dmake_sep_var == NULL || (0 != strcasecmp(dmake_sep_var, "NO"))) { 485 struct stat stdout_stat; 486 struct stat stderr_stat; 487 if( (fstat(1, &stdout_stat) == 0) 488 && (fstat(2, &stderr_stat) == 0) ) 489 { 490 if( (stdout_stat.st_dev != stderr_stat.st_dev) 491 || (stdout_stat.st_ino != stderr_stat.st_ino) ) 492 { 493 out_err_same = false; 494 } 495 } 496 } 497 498 499 /* 500 * Enable interrupt handler for alarms 501 */ 502 (void) bsd_signal(SIGALRM, (SIG_PF)doalarm); 503 504 /* 505 * Check if make should report 506 */ 507 if (getenv(sunpro_dependencies->string_mb) != NULL) { 508 FILE *report_file; 509 510 report_dependency(""); 511 report_file = get_report_file(); 512 if ((report_file != NULL) && (report_file != (FILE*)-1)) { 513 (void) fprintf(report_file, "\n"); 514 } 515 } 516 517 /* 518 * Make sure SUNPRO_DEPENDENCIES is exported (or not) properly. 519 */ 520 if (keep_state) { 521 maybe_append_prop(sunpro_dependencies, macro_prop)-> 522 body.macro.exported = true; 523 } else { 524 maybe_append_prop(sunpro_dependencies, macro_prop)-> 525 body.macro.exported = false; 526 } 527 528 working_on_targets = true; 529 if (trace_status) { 530 dump_make_state(); 531 fclose(stdout); 532 fclose(stderr); 533 exit_status = 0; 534 exit(0); 535 } 536 if (list_all_targets) { 537 dump_target_list(); 538 fclose(stdout); 539 fclose(stderr); 540 exit_status = 0; 541 exit(0); 542 } 543 trace_reader = false; 544 545 /* 546 * Set temp_file_directory to the directory the .make.state 547 * file is written to. 548 */ 549 if ((slash_ptr = strrchr(make_state->string_mb, (int) slash_char)) == NULL) { 550 temp_file_directory = strdup(get_current_path()); 551 } else { 552 *slash_ptr = (int) nul_char; 553 (void) strcpy(make_state_dir, make_state->string_mb); 554 *slash_ptr = (int) slash_char; 555 /* when there is only one slash and it's the first 556 ** character, make_state_dir should point to '/'. 557 */ 558 if(make_state_dir[0] == '\0') { 559 make_state_dir[0] = '/'; 560 make_state_dir[1] = '\0'; 561 } 562 if (make_state_dir[0] == (int) slash_char) { 563 temp_file_directory = strdup(make_state_dir); 564 } else { 565 char tmp_current_path2[MAXPATHLEN]; 566 567 (void) sprintf(tmp_current_path2, 568 "%s/%s", 569 get_current_path(), 570 make_state_dir); 571 temp_file_directory = strdup(tmp_current_path2); 572 } 573 } 574 575 576 report_dir_enter_leave(true); 577 578 make_targets(argc, argv, parallel_flag); 579 580 report_dir_enter_leave(false); 581 582 if (build_failed_ever_seen) { 583 if (posix) { 584 exit_status = 1; 585 } 586 exit(1); 587 } 588 exit_status = 0; 589 exit(0); 590 /* NOTREACHED */ 591 } 592 593 /* 594 * cleanup_after_exit() 595 * 596 * Called from exit(), performs cleanup actions. 597 * 598 * Parameters: 599 * status The argument exit() was called with 600 * arg Address of an argument vector to 601 * cleanup_after_exit() 602 * 603 * Global variables used: 604 * command_changed Set if we think .make.state should be rewritten 605 * current_line Is set we set commands_changed 606 * do_not_exec_rule 607 * True if -n flag on 608 * done The Name ".DONE", rule we run 609 * keep_state Set if .KEEP_STATE seen 610 * parallel True if building in parallel 611 * quest If -q is on we do not run .DONE 612 * report_dependencies 613 * True if -P flag on 614 * running_list List of parallel running processes 615 * temp_file_name The temp file is removed, if any 616 */ 617 extern "C" void 618 cleanup_after_exit(void) 619 { 620 Running rp; 621 622 extern long getname_bytes_count; 623 extern long getname_names_count; 624 extern long getname_struct_count; 625 extern long freename_bytes_count; 626 extern long freename_names_count; 627 extern long freename_struct_count; 628 extern long other_alloc; 629 630 extern long env_alloc_num; 631 extern long env_alloc_bytes; 632 633 634 #ifdef DMAKE_STATISTICS 635 if(getname_stat) { 636 printf(">>> Getname statistics:\n"); 637 printf(" Allocated:\n"); 638 printf(" Names: %ld\n", getname_names_count); 639 printf(" Strings: %ld Kb (%ld bytes)\n", getname_bytes_count/1000, getname_bytes_count); 640 printf(" Structs: %ld Kb (%ld bytes)\n", getname_struct_count/1000, getname_struct_count); 641 printf(" Total bytes: %ld Kb (%ld bytes)\n", getname_struct_count/1000 + getname_bytes_count/1000, getname_struct_count + getname_bytes_count); 642 643 printf("\n Unallocated: %ld\n", freename_names_count); 644 printf(" Names: %ld\n", freename_names_count); 645 printf(" Strings: %ld Kb (%ld bytes)\n", freename_bytes_count/1000, freename_bytes_count); 646 printf(" Structs: %ld Kb (%ld bytes)\n", freename_struct_count/1000, freename_struct_count); 647 printf(" Total bytes: %ld Kb (%ld bytes)\n", freename_struct_count/1000 + freename_bytes_count/1000, freename_struct_count + freename_bytes_count); 648 649 printf("\n Total used: %ld Kb (%ld bytes)\n", (getname_struct_count/1000 + getname_bytes_count/1000) - (freename_struct_count/1000 + freename_bytes_count/1000), (getname_struct_count + getname_bytes_count) - (freename_struct_count + freename_bytes_count)); 650 651 printf("\n>>> Other:\n"); 652 printf( 653 " Env (%ld): %ld Kb (%ld bytes)\n", 654 env_alloc_num, 655 env_alloc_bytes/1000, 656 env_alloc_bytes 657 ); 658 659 } 660 #endif 661 662 parallel = false; 663 /* If we used the SVR4_MAKE, don't build .DONE or .FAILED */ 664 if (!getenv(USE_SVR4_MAKE)){ 665 /* Build the target .DONE or .FAILED if we caught an error */ 666 if (!quest && !list_all_targets) { 667 Name failed_name; 668 669 MBSTOWCS(wcs_buffer, ".FAILED"); 670 failed_name = GETNAME(wcs_buffer, FIND_LENGTH); 671 if ((exit_status != 0) && (failed_name->prop != NULL)) { 672 /* 673 * [tolik] switch DMake to serial mode 674 */ 675 dmake_mode_type = serial_mode; 676 no_parallel = true; 677 (void) doname(failed_name, false, true); 678 } else { 679 if (!trace_status) { 680 /* 681 * Switch DMake to serial mode 682 */ 683 dmake_mode_type = serial_mode; 684 no_parallel = true; 685 (void) doname(done, false, true); 686 } 687 } 688 } 689 } 690 /* 691 * Remove the temp file utilities report dependencies thru if it 692 * is still around 693 */ 694 if (temp_file_name != NULL) { 695 (void) unlink(temp_file_name->string_mb); 696 } 697 /* 698 * Do not save the current command in .make.state if make 699 * was interrupted. 700 */ 701 if (current_line != NULL) { 702 command_changed = true; 703 current_line->body.line.command_used = NULL; 704 } 705 /* 706 * For each parallel build process running, remove the temp files 707 * and zap the command line so it won't be put in .make.state 708 */ 709 for (rp = running_list; rp != NULL; rp = rp->next) { 710 if (rp->temp_file != NULL) { 711 (void) unlink(rp->temp_file->string_mb); 712 } 713 if (rp->stdout_file != NULL) { 714 (void) unlink(rp->stdout_file); 715 retmem_mb(rp->stdout_file); 716 rp->stdout_file = NULL; 717 } 718 if (rp->stderr_file != NULL) { 719 (void) unlink(rp->stderr_file); 720 retmem_mb(rp->stderr_file); 721 rp->stderr_file = NULL; 722 } 723 command_changed = true; 724 /* 725 line = get_prop(rp->target->prop, line_prop); 726 if (line != NULL) { 727 line->body.line.command_used = NULL; 728 } 729 */ 730 } 731 /* Remove the statefile lock file if the file has been locked */ 732 if ((make_state_lockfile != NULL) && (make_state_locked)) { 733 (void) unlink(make_state_lockfile); 734 make_state_lockfile = NULL; 735 make_state_locked = false; 736 } 737 /* Write .make.state */ 738 write_state_file(1, (Boolean) 1); 739 740 job_adjust_fini(); 741 } 742 743 /* 744 * handle_interrupt() 745 * 746 * This is where C-C traps are caught. 747 * 748 * Parameters: 749 * 750 * Global variables used (except DMake 1.0): 751 * current_target Sometimes the current target is removed 752 * do_not_exec_rule But not if -n is on 753 * quest or -q 754 * running_list List of parallel running processes 755 * touch Current target is not removed if -t on 756 */ 757 void 758 handle_interrupt(int) 759 { 760 Property member; 761 Running rp; 762 763 (void) fflush(stdout); 764 if (childPid > 0) { 765 kill(childPid, SIGTERM); 766 childPid = -1; 767 } 768 for (rp = running_list; rp != NULL; rp = rp->next) { 769 if (rp->state != build_running) { 770 continue; 771 } 772 if (rp->pid > 0) { 773 kill(rp->pid, SIGTERM); 774 rp->pid = -1; 775 } 776 } 777 if (getpid() == getpgrp()) { 778 bsd_signal(SIGTERM, SIG_IGN); 779 kill (-getpid(), SIGTERM); 780 } 781 /* Clean up all parallel children already finished */ 782 finish_children(false); 783 784 /* Make sure the processes running under us terminate first */ 785 786 while (wait((int *) NULL) != -1); 787 /* Delete the current targets unless they are precious */ 788 if ((current_target != NULL) && 789 current_target->is_member && 790 ((member = get_prop(current_target->prop, member_prop)) != NULL)) { 791 current_target = member->body.member.library; 792 } 793 if (!do_not_exec_rule && 794 !touch && 795 !quest && 796 (current_target != NULL) && 797 !(current_target->stat.is_precious || all_precious)) { 798 799 /* BID_1030811 */ 800 /* azv 16 Oct 95 */ 801 current_target->stat.time = file_no_time; 802 803 if (exists(current_target) != file_doesnt_exist) { 804 (void) fprintf(stderr, 805 "\n*** %s ", 806 current_target->string_mb); 807 if (current_target->stat.is_dir) { 808 (void) fprintf(stderr, 809 gettext("not removed.\n"), 810 current_target->string_mb); 811 } else if (unlink(current_target->string_mb) == 0) { 812 (void) fprintf(stderr, 813 gettext("removed.\n"), 814 current_target->string_mb); 815 } else { 816 (void) fprintf(stderr, 817 gettext("could not be removed: %s.\n"), 818 current_target->string_mb, 819 errmsg(errno)); 820 } 821 } 822 } 823 for (rp = running_list; rp != NULL; rp = rp->next) { 824 if (rp->state != build_running) { 825 continue; 826 } 827 if (rp->target->is_member && 828 ((member = get_prop(rp->target->prop, member_prop)) != 829 NULL)) { 830 rp->target = member->body.member.library; 831 } 832 if (!do_not_exec_rule && 833 !touch && 834 !quest && 835 !(rp->target->stat.is_precious || all_precious)) { 836 837 rp->target->stat.time = file_no_time; 838 if (exists(rp->target) != file_doesnt_exist) { 839 (void) fprintf(stderr, 840 "\n*** %s ", 841 rp->target->string_mb); 842 if (rp->target->stat.is_dir) { 843 (void) fprintf(stderr, 844 gettext("not removed.\n"), 845 rp->target->string_mb); 846 } else if (unlink(rp->target->string_mb) == 0) { 847 (void) fprintf(stderr, 848 gettext("removed.\n"), 849 rp->target->string_mb); 850 } else { 851 (void) fprintf(stderr, 852 gettext("could not be removed: %s.\n"), 853 rp->target->string_mb, 854 errmsg(errno)); 855 } 856 } 857 } 858 } 859 860 861 /* Have we locked .make.state or .nse_depinfo? */ 862 if ((make_state_lockfile != NULL) && (make_state_locked)) { 863 unlink(make_state_lockfile); 864 make_state_lockfile = NULL; 865 make_state_locked = false; 866 } 867 /* 868 * Re-read .make.state file (it might be changed by recursive make) 869 */ 870 check_state(NULL); 871 872 report_dir_enter_leave(false); 873 874 exit_status = 2; 875 exit(2); 876 } 877 878 /* 879 * doalarm(sig, ...) 880 * 881 * Handle the alarm interrupt but do nothing. Side effect is to 882 * cause return from wait3. 883 * 884 * Parameters: 885 * sig 886 * 887 * Global variables used: 888 */ 889 /*ARGSUSED*/ 890 static void 891 doalarm(int) 892 { 893 return; 894 } 895 896 897 /* 898 * read_command_options(argc, argv) 899 * 900 * Scan the cmd line options and process the ones that start with "-" 901 * 902 * Return value: 903 * -M argument, if any 904 * 905 * Parameters: 906 * argc You know what this is 907 * argv You know what this is 908 * 909 * Global variables used: 910 */ 911 static void 912 read_command_options(register int argc, register char **argv) 913 { 914 register int ch; 915 int current_optind = 1; 916 int last_optind_with_double_hyphen = 0; 917 int last_optind; 918 int last_current_optind; 919 register int i; 920 register int j; 921 register int k; 922 register int makefile_next = 0; /* 923 * flag to note options: 924 * -c, f, g, j, m, o 925 */ 926 const char *tptr; 927 const char *CMD_OPTS; 928 929 extern char *optarg; 930 extern int optind, opterr, optopt; 931 932 #define SUNPRO_CMD_OPTS "-~Bbc:C:Ddef:g:ij:K:kM:m:NnO:o:PpqRrSsTtuVvwx:" 933 934 # define SVR4_CMD_OPTS "-c:C:ef:g:ij:km:nO:o:pqrsTtVv" 935 936 /* 937 * Added V in SVR4_CMD_OPTS also, which is going to be a hidden 938 * option, just to make sure that the getopt doesn't fail when some 939 * users leave their USE_SVR4_MAKE set and try to use the makefiles 940 * that are designed to issue commands like $(MAKE) -V. Anyway it 941 * sets the same flag but ensures that getopt doesn't fail. 942 */ 943 944 opterr = 0; 945 optind = 1; 946 while (1) { 947 last_optind=optind; /* Save optind and current_optind values */ 948 last_current_optind=current_optind; /* in case we have to repeat this round. */ 949 if (svr4) { 950 CMD_OPTS=SVR4_CMD_OPTS; 951 ch = getopt(argc, argv, SVR4_CMD_OPTS); 952 } else { 953 CMD_OPTS=SUNPRO_CMD_OPTS; 954 ch = getopt(argc, argv, SUNPRO_CMD_OPTS); 955 } 956 if (ch == EOF) { 957 if(optind < argc) { 958 /* 959 * Fixing bug 4102537: 960 * Strange behaviour of command make using -- option. 961 * Not all argv have been processed 962 * Skip non-flag argv and continue processing. 963 */ 964 optind++; 965 current_optind++; 966 continue; 967 } else { 968 break; 969 } 970 971 } 972 if (ch == '?') { 973 if (optopt == '-') { 974 /* Bug 5060758: getopt() changed behavior (s10_60), 975 * and now we have to deal with cases when options 976 * with double hyphen appear here, from -$(MAKEFLAGS) 977 */ 978 i = current_optind; 979 if (argv[i][0] == '-') { 980 if (argv[i][1] == '-') { 981 if (argv[i][2] != '\0') { 982 /* Check if this option is allowed */ 983 tptr = strchr(CMD_OPTS, argv[i][2]); 984 if (tptr) { 985 if (last_optind_with_double_hyphen != current_optind) { 986 /* This is first time we are trying to fix "--" 987 * problem with this option. If we come here second 988 * time, we will go to fatal error. 989 */ 990 last_optind_with_double_hyphen = current_optind; 991 992 /* Eliminate first hyphen character */ 993 for (j=0; argv[i][j] != '\0'; j++) { 994 argv[i][j] = argv[i][j+1]; 995 } 996 997 /* Repeat the processing of this argument */ 998 optind=last_optind; 999 current_optind=last_current_optind; 1000 continue; 1001 } 1002 } 1003 } 1004 } 1005 } 1006 } 1007 } 1008 1009 if (ch == '?') { 1010 if (svr4) { 1011 fprintf(stderr, 1012 gettext("Usage : dmake [ -f makefile ][ -c dmake_rcfile ][ -g dmake_group ][-C directory]\n")); 1013 fprintf(stderr, 1014 gettext(" [ -j dmake_max_jobs ][ -m dmake_mode ][ -o dmake_odir ]...\n")); 1015 fprintf(stderr, 1016 gettext(" [ -e ][ -i ][ -k ][ -n ][ -p ][ -q ][ -r ][ -s ][ -t ][ -v ]\n")); 1017 tptr = strchr(SVR4_CMD_OPTS, optopt); 1018 } else { 1019 fprintf(stderr, 1020 gettext("Usage : dmake [ -f makefile ][ -c dmake_rcfile ][ -g dmake_group ][-C directory]\n")); 1021 fprintf(stderr, 1022 gettext(" [ -j dmake_max_jobs ][ -K statefile ][ -m dmake_mode ][ -x MODE_NAME=VALUE ][ -o dmake_odir ]...\n")); 1023 fprintf(stderr, 1024 gettext(" [ -d ][ -dd ][ -D ][ -DD ][ -e ][ -i ][ -k ][ -n ][ -p ][ -P ][ -u ][ -w ]\n")); 1025 fprintf(stderr, 1026 gettext(" [ -q ][ -r ][ -s ][ -S ][ -t ][ -v ][ -V ][ target... ][ macro=value... ][ \"macro +=value\"... ]\n")); 1027 tptr = strchr(SUNPRO_CMD_OPTS, optopt); 1028 } 1029 if (!tptr) { 1030 fatal(gettext("Unknown option `-%c'"), optopt); 1031 } else { 1032 fatal(gettext("Missing argument after `-%c'"), optopt); 1033 } 1034 } 1035 1036 1037 1038 makefile_next |= parse_command_option(ch); 1039 /* 1040 * If we're done processing all of the options of 1041 * ONE argument string... 1042 */ 1043 if (current_optind < optind) { 1044 i = current_optind; 1045 k = 0; 1046 /* If there's an argument for an option... */ 1047 if ((optind - current_optind) > 1) { 1048 k = i + 1; 1049 } 1050 switch (makefile_next) { 1051 case 0: 1052 argv[i] = NULL; 1053 /* This shouldn't happen */ 1054 if (k) { 1055 argv[k] = NULL; 1056 } 1057 break; 1058 case 1: /* -f seen */ 1059 argv[i] = (char *)"-f"; 1060 break; 1061 case 2: /* -c seen */ 1062 argv[i] = (char *)"-c"; 1063 break; 1064 case 4: /* -g seen */ 1065 argv[i] = (char *)"-g"; 1066 break; 1067 case 8: /* -j seen */ 1068 argv[i] = (char *)"-j"; 1069 break; 1070 case 16: /* -M seen */ 1071 argv[i] = (char *)"-M"; 1072 break; 1073 case 32: /* -m seen */ 1074 argv[i] = (char *)"-m"; 1075 break; 1076 case 128: /* -O seen */ 1077 argv[i] = (char *)"-O"; 1078 break; 1079 case 256: /* -K seen */ 1080 argv[i] = (char *)"-K"; 1081 break; 1082 case 512: /* -o seen */ 1083 argv[i] = (char *)"-o"; 1084 break; 1085 case 1024: /* -x seen */ 1086 argv[i] = (char *)"-x"; 1087 break; 1088 case 2048: 1089 argv[i] = (char *)"-C"; 1090 break; 1091 default: /* > 1 of -c, f, g, j, K, M, m, O, o, x seen */ 1092 fatal(gettext("Illegal command line. More than one option requiring\nan argument given in the same argument group")); 1093 } 1094 1095 makefile_next = 0; 1096 current_optind = optind; 1097 } 1098 } 1099 } 1100 1101 static void 1102 quote_str(char *str, char *qstr) 1103 { 1104 char *to; 1105 char *from; 1106 1107 to = qstr; 1108 for (from = str; *from; from++) { 1109 switch (*from) { 1110 case ';': /* End of command */ 1111 case '(': /* Start group */ 1112 case ')': /* End group */ 1113 case '{': /* Start group */ 1114 case '}': /* End group */ 1115 case '[': /* Reg expr - any of a set of chars */ 1116 case ']': /* End of set of chars */ 1117 case '|': /* Pipe or logical-or */ 1118 case '^': /* Old-fashioned pipe */ 1119 case '&': /* Background or logical-and */ 1120 case '<': /* Redirect stdin */ 1121 case '>': /* Redirect stdout */ 1122 case '*': /* Reg expr - any sequence of chars */ 1123 case '?': /* Reg expr - any single char */ 1124 case '$': /* Variable substitution */ 1125 case '\'': /* Singe quote - turn off all magic */ 1126 case '"': /* Double quote - span whitespace */ 1127 case '`': /* Backquote - run a command */ 1128 case '#': /* Comment */ 1129 case ' ': /* Space (for MACRO=value1 value2 */ 1130 case '\\': /* Escape char - turn off magic of next char */ 1131 *to++ = '\\'; 1132 break; 1133 1134 default: 1135 break; 1136 } 1137 *to++ = *from; 1138 } 1139 *to = '\0'; 1140 } 1141 1142 static void 1143 unquote_str(char *str, char *qstr) 1144 { 1145 char *to; 1146 char *from; 1147 1148 to = qstr; 1149 for (from = str; *from; from++) { 1150 if (*from == '\\') { 1151 from++; 1152 } 1153 *to++ = *from; 1154 } 1155 *to = '\0'; 1156 } 1157 1158 /* 1159 * Convert the MAKEFLAGS string value into a vector of char *, similar 1160 * to argv. 1161 */ 1162 static void 1163 setup_makeflags_argv() 1164 { 1165 char *cp; 1166 char *cp1; 1167 char *cp2; 1168 char *cp3; 1169 char *cp_orig; 1170 Boolean add_hyphen; 1171 int i; 1172 char tmp_char; 1173 1174 mf_argc = 1; 1175 cp = getenv(makeflags->string_mb); 1176 cp_orig = cp; 1177 1178 if (cp) { 1179 /* 1180 * If new MAKEFLAGS format, no need to add hyphen. 1181 * If old MAKEFLAGS format, add hyphen before flags. 1182 */ 1183 1184 if ((strchr(cp, (int) hyphen_char) != NULL) || 1185 (strchr(cp, (int) equal_char) != NULL)) { 1186 1187 /* New MAKEFLAGS format */ 1188 1189 add_hyphen = false; 1190 1191 /* Check if MAKEFLAGS value begins with multiple 1192 * hyphen characters, and remove all duplicates. 1193 * Usually it happens when the next command is 1194 * used: $(MAKE) -$(MAKEFLAGS) 1195 * 1196 * This was a workaround for BugID 5060758, but 1197 * appears to have survived as a fix in make. 1198 */ 1199 while (*cp) { 1200 if (*cp != (int) hyphen_char) { 1201 break; 1202 } 1203 cp++; 1204 if (*cp == (int) hyphen_char) { 1205 /* There are two hyphens. Skip one */ 1206 cp_orig = cp; 1207 cp++; 1208 } 1209 if (!(*cp)) { 1210 /* There are hyphens only. Skip all */ 1211 cp_orig = cp; 1212 break; 1213 } 1214 } 1215 } else { 1216 1217 /* Old MAKEFLAGS format */ 1218 1219 add_hyphen = true; 1220 } 1221 } 1222 1223 /* Find the number of arguments in MAKEFLAGS */ 1224 while (cp && *cp) { 1225 /* Skip white spaces */ 1226 while (cp && *cp && isspace(*cp)) { 1227 cp++; 1228 } 1229 if (cp && *cp) { 1230 /* Increment arg count */ 1231 mf_argc++; 1232 /* Go to next white space */ 1233 while (cp && *cp && !isspace(*cp)) { 1234 if(*cp == (int) backslash_char) { 1235 cp++; 1236 } 1237 cp++; 1238 } 1239 } 1240 } 1241 /* Allocate memory for the new MAKEFLAGS argv */ 1242 mf_argv = (char **) malloc((mf_argc + 1) * sizeof(char *)); 1243 mf_argv[0] = (char *)"MAKEFLAGS"; 1244 /* 1245 * Convert the MAKEFLAGS string value into a vector of char *, 1246 * similar to argv. 1247 */ 1248 cp = cp_orig; 1249 for (i = 1; i < mf_argc; i++) { 1250 /* Skip white spaces */ 1251 while (cp && *cp && isspace(*cp)) { 1252 cp++; 1253 } 1254 if (cp && *cp) { 1255 cp_orig = cp; 1256 /* Go to next white space */ 1257 while (cp && *cp && !isspace(*cp)) { 1258 if(*cp == (int) backslash_char) { 1259 cp++; 1260 } 1261 cp++; 1262 } 1263 tmp_char = *cp; 1264 *cp = (int) nul_char; 1265 if (add_hyphen) { 1266 mf_argv[i] = getmem(2 + strlen(cp_orig)); 1267 mf_argv[i][0] = '\0'; 1268 (void) strcat(mf_argv[i], "-"); 1269 // (void) strcat(mf_argv[i], cp_orig); 1270 unquote_str(cp_orig, mf_argv[i]+1); 1271 } else { 1272 mf_argv[i] = getmem(2 + strlen(cp_orig)); 1273 //mf_argv[i] = strdup(cp_orig); 1274 unquote_str(cp_orig, mf_argv[i]); 1275 } 1276 *cp = tmp_char; 1277 } 1278 } 1279 mf_argv[i] = NULL; 1280 } 1281 1282 /* 1283 * parse_command_option(ch) 1284 * 1285 * Parse make command line options. 1286 * 1287 * Return value: 1288 * Indicates if any -f -c or -M were seen 1289 * 1290 * Parameters: 1291 * ch The character to parse 1292 * 1293 * Static variables used: 1294 * dmake_group_specified Set for make -g 1295 * dmake_max_jobs_specified Set for make -j 1296 * dmake_mode_specified Set for make -m 1297 * dmake_add_mode_specified Set for make -x 1298 * dmake_compat_mode_specified Set for make -x SUN_MAKE_COMPAT_MODE= 1299 * dmake_output_mode_specified Set for make -x DMAKE_OUTPUT_MODE= 1300 * dmake_odir_specified Set for make -o 1301 * dmake_rcfile_specified Set for make -c 1302 * env_wins Set for make -e 1303 * ignore_default_mk Set for make -r 1304 * trace_status Set for make -p 1305 * 1306 * Global variables used: 1307 * .make.state path & name set for make -K 1308 * continue_after_error Set for make -k 1309 * debug_level Set for make -d 1310 * do_not_exec_rule Set for make -n 1311 * filter_stderr Set for make -X 1312 * ignore_errors_all Set for make -i 1313 * no_parallel Set for make -R 1314 * quest Set for make -q 1315 * read_trace_level Set for make -D 1316 * report_dependencies Set for make -P 1317 * silent_all Set for make -s 1318 * touch Set for make -t 1319 */ 1320 static int 1321 parse_command_option(register char ch) 1322 { 1323 static int invert_next = 0; 1324 int invert_this = invert_next; 1325 1326 invert_next = 0; 1327 switch (ch) { 1328 case '-': /* Ignore "--" */ 1329 return 0; 1330 case '~': /* Invert next option */ 1331 invert_next = 1; 1332 return 0; 1333 case 'B': /* Obsolete */ 1334 return 0; 1335 case 'b': /* Obsolete */ 1336 return 0; 1337 case 'c': /* Read alternative dmakerc file */ 1338 if (invert_this) { 1339 dmake_rcfile_specified = false; 1340 } else { 1341 dmake_rcfile_specified = true; 1342 } 1343 return 2; 1344 case 'C': /* Change directory */ 1345 return 2048; 1346 case 'D': /* Show lines read */ 1347 if (invert_this) { 1348 read_trace_level--; 1349 } else { 1350 read_trace_level++; 1351 } 1352 return 0; 1353 case 'd': /* Debug flag */ 1354 if (invert_this) { 1355 debug_level--; 1356 } else { 1357 debug_level++; 1358 } 1359 return 0; 1360 case 'e': /* Environment override flag */ 1361 if (invert_this) { 1362 env_wins = false; 1363 } else { 1364 env_wins = true; 1365 } 1366 return 0; 1367 case 'f': /* Read alternative makefile(s) */ 1368 return 1; 1369 case 'g': /* Use alternative DMake group */ 1370 if (invert_this) { 1371 dmake_group_specified = false; 1372 } else { 1373 dmake_group_specified = true; 1374 } 1375 return 4; 1376 case 'i': /* Ignore errors */ 1377 if (invert_this) { 1378 ignore_errors_all = false; 1379 } else { 1380 ignore_errors_all = true; 1381 } 1382 return 0; 1383 case 'j': /* Use alternative DMake max jobs */ 1384 if (invert_this) { 1385 dmake_max_jobs_specified = false; 1386 } else { 1387 dmake_mode_type = parallel_mode; 1388 no_parallel = false; 1389 dmake_max_jobs_specified = true; 1390 } 1391 return 8; 1392 case 'K': /* Read alternative .make.state */ 1393 return 256; 1394 case 'k': /* Keep making even after errors */ 1395 if (invert_this) { 1396 continue_after_error = false; 1397 } else { 1398 continue_after_error = true; 1399 continue_after_error_ever_seen = true; 1400 } 1401 return 0; 1402 case 'M': /* Read alternative make.machines file */ 1403 if (invert_this) { 1404 pmake_machinesfile_specified = false; 1405 } else { 1406 pmake_machinesfile_specified = true; 1407 dmake_mode_type = parallel_mode; 1408 no_parallel = false; 1409 } 1410 return 16; 1411 case 'm': /* Use alternative DMake build mode */ 1412 if (invert_this) { 1413 dmake_mode_specified = false; 1414 } else { 1415 dmake_mode_specified = true; 1416 } 1417 return 32; 1418 case 'x': /* Use alternative DMake mode */ 1419 if (invert_this) { 1420 dmake_add_mode_specified = false; 1421 } else { 1422 dmake_add_mode_specified = true; 1423 } 1424 return 1024; 1425 case 'N': /* Reverse -n */ 1426 if (invert_this) { 1427 do_not_exec_rule = true; 1428 } else { 1429 do_not_exec_rule = false; 1430 } 1431 return 0; 1432 case 'n': /* Print, not exec commands */ 1433 if (invert_this) { 1434 do_not_exec_rule = false; 1435 } else { 1436 do_not_exec_rule = true; 1437 } 1438 return 0; 1439 case 'O': /* Integrate with maketool, obsolete */ 1440 return 0; 1441 case 'o': /* Use alternative dmake output dir */ 1442 if (invert_this) { 1443 dmake_odir_specified = false; 1444 } else { 1445 dmake_odir_specified = true; 1446 } 1447 return 512; 1448 case 'P': /* Print for selected targets */ 1449 if (invert_this) { 1450 report_dependencies_level--; 1451 } else { 1452 report_dependencies_level++; 1453 } 1454 return 0; 1455 case 'p': /* Print description */ 1456 if (invert_this) { 1457 trace_status = false; 1458 do_not_exec_rule = false; 1459 } else { 1460 trace_status = true; 1461 do_not_exec_rule = true; 1462 } 1463 return 0; 1464 case 'q': /* Question flag */ 1465 if (invert_this) { 1466 quest = false; 1467 } else { 1468 quest = true; 1469 } 1470 return 0; 1471 case 'R': /* Don't run in parallel */ 1472 if (invert_this) { 1473 pmake_cap_r_specified = false; 1474 no_parallel = false; 1475 } else { 1476 pmake_cap_r_specified = true; 1477 dmake_mode_type = serial_mode; 1478 no_parallel = true; 1479 } 1480 return 0; 1481 case 'r': /* Turn off internal rules */ 1482 if (invert_this) { 1483 ignore_default_mk = false; 1484 } else { 1485 ignore_default_mk = true; 1486 } 1487 return 0; 1488 case 'S': /* Reverse -k */ 1489 if (invert_this) { 1490 continue_after_error = true; 1491 } else { 1492 continue_after_error = false; 1493 stop_after_error_ever_seen = true; 1494 } 1495 return 0; 1496 case 's': /* Silent flag */ 1497 if (invert_this) { 1498 silent_all = false; 1499 } else { 1500 silent_all = true; 1501 } 1502 return 0; 1503 case 'T': /* Print target list */ 1504 if (invert_this) { 1505 list_all_targets = false; 1506 do_not_exec_rule = false; 1507 } else { 1508 list_all_targets = true; 1509 do_not_exec_rule = true; 1510 } 1511 return 0; 1512 case 't': /* Touch flag */ 1513 if (invert_this) { 1514 touch = false; 1515 } else { 1516 touch = true; 1517 } 1518 return 0; 1519 case 'u': /* Unconditional flag */ 1520 if (invert_this) { 1521 build_unconditional = false; 1522 } else { 1523 build_unconditional = true; 1524 } 1525 return 0; 1526 case 'V': /* SVR4 mode */ 1527 svr4 = true; 1528 return 0; 1529 case 'v': /* Version flag */ 1530 if (invert_this) { 1531 } else { 1532 fprintf(stdout, "%s: %s\n", getprogname(), verstring); 1533 exit_status = 0; 1534 exit(0); 1535 } 1536 return 0; 1537 case 'w': /* Unconditional flag */ 1538 if (invert_this) { 1539 report_cwd = false; 1540 } else { 1541 report_cwd = true; 1542 } 1543 return 0; 1544 #if 0 1545 case 'X': /* Filter stdout */ 1546 if (invert_this) { 1547 filter_stderr = false; 1548 } else { 1549 filter_stderr = true; 1550 } 1551 return 0; 1552 #endif 1553 default: 1554 break; 1555 } 1556 return 0; 1557 } 1558 1559 /* 1560 * setup_for_projectdir() 1561 * 1562 * Read the PROJECTDIR variable, if defined, and set the sccs path 1563 * 1564 * Parameters: 1565 * 1566 * Global variables used: 1567 * sccs_dir_path Set to point to SCCS dir to use 1568 */ 1569 static void 1570 setup_for_projectdir(void) 1571 { 1572 static char path[MAXPATHLEN]; 1573 char cwdpath[MAXPATHLEN]; 1574 uid_t uid; 1575 int done=0; 1576 1577 /* Check if we should use PROJECTDIR when reading the SCCS dir. */ 1578 sccs_dir_path = getenv("PROJECTDIR"); 1579 if ((sccs_dir_path != NULL) && 1580 (sccs_dir_path[0] != (int) slash_char)) { 1581 struct passwd *pwent; 1582 1583 { 1584 uid = getuid(); 1585 pwent = getpwuid(uid); 1586 if (pwent == NULL) { 1587 fatal(gettext("Bogus USERID ")); 1588 } 1589 if ((pwent = getpwnam(sccs_dir_path)) == NULL) { 1590 /*empty block : it'll go & check cwd */ 1591 } 1592 else { 1593 (void) sprintf(path, "%s/src", pwent->pw_dir); 1594 if (access(path, F_OK) == 0) { 1595 sccs_dir_path = path; 1596 done = 1; 1597 } else { 1598 (void) sprintf(path, "%s/source", pwent->pw_dir); 1599 if (access(path, F_OK) == 0) { 1600 sccs_dir_path = path; 1601 done = 1; 1602 } 1603 } 1604 } 1605 if (!done) { 1606 if (getcwd(cwdpath, MAXPATHLEN - 1 )) { 1607 1608 (void) sprintf(path, "%s/%s", cwdpath,sccs_dir_path); 1609 if (access(path, F_OK) == 0) { 1610 sccs_dir_path = path; 1611 done = 1; 1612 } else { 1613 fatal(gettext("Bogus PROJECTDIR '%s'"), sccs_dir_path); 1614 } 1615 } 1616 } 1617 } 1618 } 1619 } 1620 1621 char * 1622 make_install_prefix(void) 1623 { 1624 int ret; 1625 char origin[PATH_MAX]; 1626 char *dir; 1627 1628 if ((ret = readlink("/proc/self/path/a.out", origin, 1629 PATH_MAX - 1)) < 0) 1630 fatal("failed to read origin from /proc\n"); 1631 1632 1633 origin[ret] = '\0'; 1634 return strdup(dirname(origin)); 1635 } 1636 1637 static char * 1638 add_to_env(const char *var, const char *value, const char *fallback) 1639 { 1640 const char *oldpath; 1641 char *newpath; 1642 1643 oldpath = getenv(var); 1644 if (oldpath == NULL) { 1645 if (value != NULL) { 1646 asprintf(&newpath, "%s=%s", 1647 var, value); 1648 } else { 1649 asprintf(&newpath, "%s=%s", 1650 var, fallback); 1651 } 1652 } else { 1653 if (value != NULL) { 1654 asprintf(&newpath, "%s=%s:%s", 1655 var, oldpath, value); 1656 } else { 1657 asprintf(&newpath, "%s=%s:%s", 1658 var, oldpath, fallback); 1659 } 1660 } 1661 1662 return (newpath); 1663 } 1664 1665 /* 1666 * set_sgs_support() 1667 * 1668 * Add the libmakestate.so.1 lib to the env var SGS_SUPPORT 1669 * if it's not already in there. 1670 * The SGS_SUPPORT env var and libmakestate.so.1 is used by 1671 * the linker ld to report .make.state info back to make. 1672 * 1673 * In the new world we always will set the 32-bit and 64-bit versions of this 1674 * variable explicitly so that we can take into account the correct isa and our 1675 * prefix. So say that the prefix was /opt/local. Then we would want to search 1676 * /opt/local/lib/libmakestate.so.1:libmakestate.so.1. We still want to search 1677 * the original location just as a safety measure. 1678 */ 1679 static void 1680 set_sgs_support() 1681 { 1682 int len; 1683 char *newpath, *newpath64; 1684 char *lib32, *lib64; 1685 static char *prev_path, *prev_path64; 1686 char *origin = make_install_prefix(); 1687 struct stat st; 1688 1689 asprintf(&lib32, "%s/%s/%s", origin, "../lib", 1690 LD_SUPPORT_MAKE_LIB); 1691 1692 if (stat(lib32, &st) != 0) { 1693 free(lib32); 1694 // Try the tools path 1695 asprintf(&lib32, "%s/%s/%s/%s", origin, "../../lib/", 1696 LD_SUPPORT_MAKE_ARCH, LD_SUPPORT_MAKE_LIB); 1697 1698 if (stat(lib32, &st) != 0) { 1699 free(lib32); 1700 lib32 = NULL; 1701 } 1702 } 1703 1704 asprintf(&lib64, "%s/%s/64/%s", origin, "../lib", 1705 LD_SUPPORT_MAKE_LIB); 1706 1707 if (stat(lib64, &st) != 0) { 1708 free(lib64); 1709 // Try the tools path 1710 asprintf(&lib64, "%s/%s/%s/64/%s", origin, "../../lib/", 1711 LD_SUPPORT_MAKE_ARCH, LD_SUPPORT_MAKE_LIB); 1712 1713 if (stat(lib64, &st) != 0) { 1714 free(lib64); 1715 lib64 = NULL; 1716 } 1717 } 1718 1719 newpath = add_to_env(LD_SUPPORT_ENV_VAR_32, lib32, LD_SUPPORT_MAKE_LIB); 1720 newpath64 = add_to_env(LD_SUPPORT_ENV_VAR_64, lib64, LD_SUPPORT_MAKE_LIB); 1721 1722 putenv(newpath); 1723 if (prev_path) { 1724 free(prev_path); 1725 } 1726 prev_path = newpath; 1727 1728 putenv(newpath64); 1729 if (prev_path64) { 1730 free(prev_path64); 1731 } 1732 prev_path64 = newpath64; 1733 free(lib32); 1734 free(lib64); 1735 free(origin); 1736 } 1737 1738 /* 1739 * read_files_and_state(argc, argv) 1740 * 1741 * Read the makefiles we care about and the environment 1742 * Also read the = style command line options 1743 * 1744 * Parameters: 1745 * argc You know what this is 1746 * argv You know what this is 1747 * 1748 * Static variables used: 1749 * env_wins make -e, determines if env vars are RO 1750 * ignore_default_mk make -r, determines if make.rules is read 1751 * not_auto_depen dwight 1752 * 1753 * Global variables used: 1754 * default_target_to_build Set to first proper target from file 1755 * do_not_exec_rule Set to false when makfile is made 1756 * dot The Name ".", used to read current dir 1757 * empty_name The Name "", use as macro value 1758 * keep_state Set if KEEP_STATE is in environment 1759 * make_state The Name ".make.state", used to read file 1760 * makefile_type Set to type of file being read 1761 * makeflags The Name "MAKEFLAGS", used to set macro value 1762 * not_auto dwight 1763 * read_trace_level Checked to se if the reader should trace 1764 * report_dependencies If -P is on we do not read .make.state 1765 * trace_reader Set if reader should trace 1766 * virtual_root The Name "VIRTUAL_ROOT", used to check value 1767 */ 1768 static void 1769 read_files_and_state(int argc, char **argv) 1770 { 1771 wchar_t buffer[1000]; 1772 wchar_t buffer_posix[1000]; 1773 register char ch; 1774 register char *cp; 1775 Property def_make_macro = NULL; 1776 Name def_make_name; 1777 Name default_makefile; 1778 String_rec dest; 1779 wchar_t destbuffer[STRING_BUFFER_LENGTH]; 1780 register int i; 1781 register int j; 1782 Name keep_state_name; 1783 int length; 1784 Name Makefile; 1785 register Property macro; 1786 struct stat make_state_stat; 1787 Name makefile_name; 1788 register int makefile_next = 0; 1789 register Boolean makefile_read = false; 1790 String_rec makeflags_string; 1791 String_rec makeflags_string_posix; 1792 String_rec * makeflags_string_current; 1793 Name makeflags_value_saved; 1794 register Name name; 1795 Name new_make_value; 1796 Boolean save_do_not_exec_rule; 1797 Name sdotMakefile; 1798 Name sdotmakefile_name; 1799 static wchar_t state_file_str; 1800 static char state_file_str_mb[MAXPATHLEN]; 1801 static struct _Name state_filename; 1802 Boolean temp; 1803 char tmp_char; 1804 wchar_t *tmp_wcs_buffer; 1805 register Name value; 1806 ASCII_Dyn_Array makeflags_and_macro; 1807 Boolean is_xpg4; 1808 1809 /* 1810 * Remember current mode. It may be changed after reading makefile 1811 * and we will have to correct MAKEFLAGS variable. 1812 */ 1813 is_xpg4 = posix; 1814 1815 MBSTOWCS(wcs_buffer, "KEEP_STATE"); 1816 keep_state_name = GETNAME(wcs_buffer, FIND_LENGTH); 1817 MBSTOWCS(wcs_buffer, "Makefile"); 1818 Makefile = GETNAME(wcs_buffer, FIND_LENGTH); 1819 MBSTOWCS(wcs_buffer, "makefile"); 1820 makefile_name = GETNAME(wcs_buffer, FIND_LENGTH); 1821 MBSTOWCS(wcs_buffer, "s.makefile"); 1822 sdotmakefile_name = GETNAME(wcs_buffer, FIND_LENGTH); 1823 MBSTOWCS(wcs_buffer, "s.Makefile"); 1824 sdotMakefile = GETNAME(wcs_buffer, FIND_LENGTH); 1825 1826 /* 1827 * initialize global dependency entry for .NOT_AUTO 1828 */ 1829 not_auto_depen->next = NULL; 1830 not_auto_depen->name = not_auto; 1831 not_auto_depen->automatic = not_auto_depen->stale = false; 1832 1833 /* 1834 * Read internal definitions and rules. 1835 */ 1836 if (read_trace_level > 1) { 1837 trace_reader = true; 1838 } 1839 if (!ignore_default_mk) { 1840 if (svr4) { 1841 MBSTOWCS(wcs_buffer, "svr4.make.rules"); 1842 default_makefile = GETNAME(wcs_buffer, FIND_LENGTH); 1843 } else { 1844 MBSTOWCS(wcs_buffer, "make.rules"); 1845 default_makefile = GETNAME(wcs_buffer, FIND_LENGTH); 1846 } 1847 default_makefile->stat.is_file = true; 1848 1849 (void) read_makefile(default_makefile, 1850 true, 1851 false, 1852 true); 1853 } 1854 1855 /* 1856 * If the user did not redefine the MAKE macro in the 1857 * default makefile (make.rules), then we'd like to 1858 * change the macro value of MAKE to be some form 1859 * of argv[0] for recursive MAKE builds. 1860 */ 1861 MBSTOWCS(wcs_buffer, "MAKE"); 1862 def_make_name = GETNAME(wcs_buffer, wcslen(wcs_buffer)); 1863 def_make_macro = get_prop(def_make_name->prop, macro_prop); 1864 if ((def_make_macro != NULL) && 1865 (IS_EQUAL(def_make_macro->body.macro.value->string_mb, 1866 "make"))) { 1867 MBSTOWCS(wcs_buffer, argv_zero_string); 1868 new_make_value = GETNAME(wcs_buffer, wcslen(wcs_buffer)); 1869 (void) SETVAR(def_make_name, 1870 new_make_value, 1871 false); 1872 } 1873 1874 default_target_to_build = NULL; 1875 trace_reader = false; 1876 1877 /* 1878 * Read environment args. Let file args which follow override unless 1879 * -e option seen. If -e option is not mentioned. 1880 */ 1881 read_environment(env_wins); 1882 if (getvar(virtual_root)->hash.length == 0) { 1883 maybe_append_prop(virtual_root, macro_prop) 1884 ->body.macro.exported = true; 1885 MBSTOWCS(wcs_buffer, "/"); 1886 (void) SETVAR(virtual_root, 1887 GETNAME(wcs_buffer, FIND_LENGTH), 1888 false); 1889 } 1890 1891 /* 1892 * We now scan mf_argv and argv to see if we need to set 1893 * any of the DMake-added options/variables in MAKEFLAGS. 1894 */ 1895 1896 makeflags_and_macro.start = 0; 1897 makeflags_and_macro.size = 0; 1898 enter_argv_values(mf_argc, mf_argv, &makeflags_and_macro); 1899 enter_argv_values(argc, argv, &makeflags_and_macro); 1900 1901 /* 1902 * Set MFLAGS and MAKEFLAGS 1903 * 1904 * Before reading makefile we do not know exactly which mode 1905 * (posix or not) is used. So prepare two MAKEFLAGS strings 1906 * for both posix and solaris modes because they are different. 1907 */ 1908 INIT_STRING_FROM_STACK(makeflags_string, buffer); 1909 INIT_STRING_FROM_STACK(makeflags_string_posix, buffer_posix); 1910 append_char((int) hyphen_char, &makeflags_string); 1911 append_char((int) hyphen_char, &makeflags_string_posix); 1912 1913 switch (read_trace_level) { 1914 case 2: 1915 append_char('D', &makeflags_string); 1916 append_char('D', &makeflags_string_posix); 1917 case 1: 1918 append_char('D', &makeflags_string); 1919 append_char('D', &makeflags_string_posix); 1920 } 1921 switch (debug_level) { 1922 case 2: 1923 append_char('d', &makeflags_string); 1924 append_char('d', &makeflags_string_posix); 1925 case 1: 1926 append_char('d', &makeflags_string); 1927 append_char('d', &makeflags_string_posix); 1928 } 1929 if (env_wins) { 1930 append_char('e', &makeflags_string); 1931 append_char('e', &makeflags_string_posix); 1932 } 1933 if (ignore_errors_all) { 1934 append_char('i', &makeflags_string); 1935 append_char('i', &makeflags_string_posix); 1936 } 1937 if (continue_after_error) { 1938 if (stop_after_error_ever_seen) { 1939 append_char('S', &makeflags_string_posix); 1940 append_char((int) space_char, &makeflags_string_posix); 1941 append_char((int) hyphen_char, &makeflags_string_posix); 1942 } 1943 append_char('k', &makeflags_string); 1944 append_char('k', &makeflags_string_posix); 1945 } else { 1946 if (stop_after_error_ever_seen 1947 && continue_after_error_ever_seen) { 1948 append_char('k', &makeflags_string_posix); 1949 append_char((int) space_char, &makeflags_string_posix); 1950 append_char((int) hyphen_char, &makeflags_string_posix); 1951 append_char('S', &makeflags_string_posix); 1952 } 1953 } 1954 if (do_not_exec_rule) { 1955 append_char('n', &makeflags_string); 1956 append_char('n', &makeflags_string_posix); 1957 } 1958 switch (report_dependencies_level) { 1959 case 4: 1960 append_char('P', &makeflags_string); 1961 append_char('P', &makeflags_string_posix); 1962 case 3: 1963 append_char('P', &makeflags_string); 1964 append_char('P', &makeflags_string_posix); 1965 case 2: 1966 append_char('P', &makeflags_string); 1967 append_char('P', &makeflags_string_posix); 1968 case 1: 1969 append_char('P', &makeflags_string); 1970 append_char('P', &makeflags_string_posix); 1971 } 1972 if (trace_status) { 1973 append_char('p', &makeflags_string); 1974 append_char('p', &makeflags_string_posix); 1975 } 1976 if (quest) { 1977 append_char('q', &makeflags_string); 1978 append_char('q', &makeflags_string_posix); 1979 } 1980 if (silent_all) { 1981 append_char('s', &makeflags_string); 1982 append_char('s', &makeflags_string_posix); 1983 } 1984 if (touch) { 1985 append_char('t', &makeflags_string); 1986 append_char('t', &makeflags_string_posix); 1987 } 1988 if (build_unconditional) { 1989 append_char('u', &makeflags_string); 1990 append_char('u', &makeflags_string_posix); 1991 } 1992 if (report_cwd) { 1993 append_char('w', &makeflags_string); 1994 append_char('w', &makeflags_string_posix); 1995 } 1996 /* -c dmake_rcfile */ 1997 if (dmake_rcfile_specified) { 1998 MBSTOWCS(wcs_buffer, "DMAKE_RCFILE"); 1999 dmake_rcfile = GETNAME(wcs_buffer, FIND_LENGTH); 2000 append_makeflags_string(dmake_rcfile, &makeflags_string); 2001 append_makeflags_string(dmake_rcfile, &makeflags_string_posix); 2002 } 2003 /* -g dmake_group */ 2004 if (dmake_group_specified) { 2005 MBSTOWCS(wcs_buffer, "DMAKE_GROUP"); 2006 dmake_group = GETNAME(wcs_buffer, FIND_LENGTH); 2007 append_makeflags_string(dmake_group, &makeflags_string); 2008 append_makeflags_string(dmake_group, &makeflags_string_posix); 2009 } 2010 /* -j dmake_max_jobs */ 2011 if (dmake_max_jobs_specified) { 2012 MBSTOWCS(wcs_buffer, "DMAKE_MAX_JOBS"); 2013 dmake_max_jobs = GETNAME(wcs_buffer, FIND_LENGTH); 2014 append_makeflags_string(dmake_max_jobs, &makeflags_string); 2015 append_makeflags_string(dmake_max_jobs, &makeflags_string_posix); 2016 } 2017 /* -m dmake_mode */ 2018 if (dmake_mode_specified) { 2019 MBSTOWCS(wcs_buffer, "DMAKE_MODE"); 2020 dmake_mode = GETNAME(wcs_buffer, FIND_LENGTH); 2021 append_makeflags_string(dmake_mode, &makeflags_string); 2022 append_makeflags_string(dmake_mode, &makeflags_string_posix); 2023 } 2024 /* -x dmake_compat_mode */ 2025 // if (dmake_compat_mode_specified) { 2026 // MBSTOWCS(wcs_buffer, "SUN_MAKE_COMPAT_MODE"); 2027 // dmake_compat_mode = GETNAME(wcs_buffer, FIND_LENGTH); 2028 // append_makeflags_string(dmake_compat_mode, &makeflags_string); 2029 // append_makeflags_string(dmake_compat_mode, &makeflags_string_posix); 2030 // } 2031 /* -x dmake_output_mode */ 2032 if (dmake_output_mode_specified) { 2033 MBSTOWCS(wcs_buffer, "DMAKE_OUTPUT_MODE"); 2034 dmake_output_mode = GETNAME(wcs_buffer, FIND_LENGTH); 2035 append_makeflags_string(dmake_output_mode, &makeflags_string); 2036 append_makeflags_string(dmake_output_mode, &makeflags_string_posix); 2037 } 2038 /* -o dmake_odir */ 2039 if (dmake_odir_specified) { 2040 MBSTOWCS(wcs_buffer, "DMAKE_ODIR"); 2041 dmake_odir = GETNAME(wcs_buffer, FIND_LENGTH); 2042 append_makeflags_string(dmake_odir, &makeflags_string); 2043 append_makeflags_string(dmake_odir, &makeflags_string_posix); 2044 } 2045 /* -M pmake_machinesfile */ 2046 if (pmake_machinesfile_specified) { 2047 MBSTOWCS(wcs_buffer, "PMAKE_MACHINESFILE"); 2048 pmake_machinesfile = GETNAME(wcs_buffer, FIND_LENGTH); 2049 append_makeflags_string(pmake_machinesfile, &makeflags_string); 2050 append_makeflags_string(pmake_machinesfile, &makeflags_string_posix); 2051 } 2052 /* -R */ 2053 if (pmake_cap_r_specified) { 2054 append_char((int) space_char, &makeflags_string); 2055 append_char((int) hyphen_char, &makeflags_string); 2056 append_char('R', &makeflags_string); 2057 append_char((int) space_char, &makeflags_string_posix); 2058 append_char((int) hyphen_char, &makeflags_string_posix); 2059 append_char('R', &makeflags_string_posix); 2060 } 2061 2062 /* 2063 * Make sure MAKEFLAGS is exported 2064 */ 2065 maybe_append_prop(makeflags, macro_prop)-> 2066 body.macro.exported = true; 2067 2068 if (makeflags_string.buffer.start[1] != (int) nul_char) { 2069 if (makeflags_string.buffer.start[1] != (int) space_char) { 2070 MBSTOWCS(wcs_buffer, "MFLAGS"); 2071 (void) SETVAR(GETNAME(wcs_buffer, FIND_LENGTH), 2072 GETNAME(makeflags_string.buffer.start, 2073 FIND_LENGTH), 2074 false); 2075 } else { 2076 MBSTOWCS(wcs_buffer, "MFLAGS"); 2077 (void) SETVAR(GETNAME(wcs_buffer, FIND_LENGTH), 2078 GETNAME(makeflags_string.buffer.start + 2, 2079 FIND_LENGTH), 2080 false); 2081 } 2082 } 2083 2084 /* 2085 * Add command line macro to POSIX makeflags_string 2086 */ 2087 if (makeflags_and_macro.start) { 2088 tmp_char = (char) space_char; 2089 cp = makeflags_and_macro.start; 2090 do { 2091 append_char(tmp_char, &makeflags_string_posix); 2092 } while ( tmp_char = *cp++ ); 2093 retmem_mb(makeflags_and_macro.start); 2094 } 2095 2096 /* 2097 * Now set the value of MAKEFLAGS macro in accordance 2098 * with current mode. 2099 */ 2100 macro = maybe_append_prop(makeflags, macro_prop); 2101 temp = (Boolean) macro->body.macro.read_only; 2102 macro->body.macro.read_only = false; 2103 if(posix || gnu_style) { 2104 makeflags_string_current = &makeflags_string_posix; 2105 } else { 2106 makeflags_string_current = &makeflags_string; 2107 } 2108 if (makeflags_string_current->buffer.start[1] == (int) nul_char) { 2109 makeflags_value_saved = 2110 GETNAME( makeflags_string_current->buffer.start + 1 2111 , FIND_LENGTH 2112 ); 2113 } else { 2114 if (makeflags_string_current->buffer.start[1] != (int) space_char) { 2115 makeflags_value_saved = 2116 GETNAME( makeflags_string_current->buffer.start 2117 , FIND_LENGTH 2118 ); 2119 } else { 2120 makeflags_value_saved = 2121 GETNAME( makeflags_string_current->buffer.start + 2 2122 , FIND_LENGTH 2123 ); 2124 } 2125 } 2126 (void) SETVAR( makeflags 2127 , makeflags_value_saved 2128 , false 2129 ); 2130 macro->body.macro.read_only = temp; 2131 2132 /* 2133 * Read command line "-f" arguments and ignore -c, g, j, K, M, m, O and o args. 2134 */ 2135 save_do_not_exec_rule = do_not_exec_rule; 2136 do_not_exec_rule = false; 2137 if (read_trace_level > 0) { 2138 trace_reader = true; 2139 } 2140 2141 for (i = 1; i < argc; i++) { 2142 if (argv[i] && 2143 (argv[i][0] == (int) hyphen_char) && 2144 (argv[i][1] == 'f') && 2145 (argv[i][2] == (int) nul_char)) { 2146 argv[i] = NULL; /* Remove -f */ 2147 if (i >= argc - 1) { 2148 fatal(gettext("No filename argument after -f flag")); 2149 } 2150 MBSTOWCS(wcs_buffer, argv[++i]); 2151 primary_makefile = GETNAME(wcs_buffer, FIND_LENGTH); 2152 (void) read_makefile(primary_makefile, true, true, true); 2153 argv[i] = NULL; /* Remove filename */ 2154 makefile_read = true; 2155 } else if (argv[i] && 2156 (argv[i][0] == (int) hyphen_char) && 2157 (argv[i][1] == 'c' || 2158 argv[i][1] == 'g' || 2159 argv[i][1] == 'j' || 2160 argv[i][1] == 'K' || 2161 argv[i][1] == 'M' || 2162 argv[i][1] == 'm' || 2163 argv[i][1] == 'O' || 2164 argv[i][1] == 'o') && 2165 (argv[i][2] == (int) nul_char)) { 2166 argv[i] = NULL; 2167 argv[++i] = NULL; 2168 } 2169 } 2170 2171 /* 2172 * If no command line "-f" args then look for "makefile", and then for 2173 * "Makefile" if "makefile" isn't found. 2174 */ 2175 if (!makefile_read) { 2176 (void) read_dir(dot, 2177 (wchar_t *) NULL, 2178 (Property) NULL, 2179 (wchar_t *) NULL); 2180 if (!posix) { 2181 if (makefile_name->stat.is_file) { 2182 if (Makefile->stat.is_file) { 2183 warning(gettext("Both `makefile' and `Makefile' exist")); 2184 } 2185 primary_makefile = makefile_name; 2186 makefile_read = read_makefile(makefile_name, 2187 false, 2188 false, 2189 true); 2190 } 2191 if (!makefile_read && 2192 Makefile->stat.is_file) { 2193 primary_makefile = Makefile; 2194 makefile_read = read_makefile(Makefile, 2195 false, 2196 false, 2197 true); 2198 } 2199 } else { 2200 2201 enum sccs_stat save_m_has_sccs = NO_SCCS; 2202 enum sccs_stat save_M_has_sccs = NO_SCCS; 2203 2204 if (makefile_name->stat.is_file) { 2205 if (Makefile->stat.is_file) { 2206 warning(gettext("Both `makefile' and `Makefile' exist")); 2207 } 2208 } 2209 if (makefile_name->stat.is_file) { 2210 if (makefile_name->stat.has_sccs == NO_SCCS) { 2211 primary_makefile = makefile_name; 2212 makefile_read = read_makefile(makefile_name, 2213 false, 2214 false, 2215 true); 2216 } else { 2217 save_m_has_sccs = makefile_name->stat.has_sccs; 2218 makefile_name->stat.has_sccs = NO_SCCS; 2219 primary_makefile = makefile_name; 2220 makefile_read = read_makefile(makefile_name, 2221 false, 2222 false, 2223 true); 2224 } 2225 } 2226 if (!makefile_read && 2227 Makefile->stat.is_file) { 2228 if (Makefile->stat.has_sccs == NO_SCCS) { 2229 primary_makefile = Makefile; 2230 makefile_read = read_makefile(Makefile, 2231 false, 2232 false, 2233 true); 2234 } else { 2235 save_M_has_sccs = Makefile->stat.has_sccs; 2236 Makefile->stat.has_sccs = NO_SCCS; 2237 primary_makefile = Makefile; 2238 makefile_read = read_makefile(Makefile, 2239 false, 2240 false, 2241 true); 2242 } 2243 } 2244 if (!makefile_read && 2245 makefile_name->stat.is_file) { 2246 makefile_name->stat.has_sccs = save_m_has_sccs; 2247 primary_makefile = makefile_name; 2248 makefile_read = read_makefile(makefile_name, 2249 false, 2250 false, 2251 true); 2252 } 2253 if (!makefile_read && 2254 Makefile->stat.is_file) { 2255 Makefile->stat.has_sccs = save_M_has_sccs; 2256 primary_makefile = Makefile; 2257 makefile_read = read_makefile(Makefile, 2258 false, 2259 false, 2260 true); 2261 } 2262 } 2263 } 2264 do_not_exec_rule = save_do_not_exec_rule; 2265 allrules_read = makefile_read; 2266 trace_reader = false; 2267 2268 /* 2269 * Now get current value of MAKEFLAGS and compare it with 2270 * the saved value we set before reading makefile. 2271 * If they are different then MAKEFLAGS is subsequently set by 2272 * makefile, just leave it there. Otherwise, if make mode 2273 * is changed by using .POSIX target in makefile we need 2274 * to correct MAKEFLAGS value. 2275 */ 2276 Name mf_val = getvar(makeflags); 2277 if( (posix != is_xpg4) 2278 && (!strcmp(mf_val->string_mb, makeflags_value_saved->string_mb))) 2279 { 2280 if (makeflags_string_posix.buffer.start[1] == (int) nul_char) { 2281 (void) SETVAR(makeflags, 2282 GETNAME(makeflags_string_posix.buffer.start + 1, 2283 FIND_LENGTH), 2284 false); 2285 } else { 2286 if (makeflags_string_posix.buffer.start[1] != (int) space_char) { 2287 (void) SETVAR(makeflags, 2288 GETNAME(makeflags_string_posix.buffer.start, 2289 FIND_LENGTH), 2290 false); 2291 } else { 2292 (void) SETVAR(makeflags, 2293 GETNAME(makeflags_string_posix.buffer.start + 2, 2294 FIND_LENGTH), 2295 false); 2296 } 2297 } 2298 } 2299 2300 if (makeflags_string.free_after_use) { 2301 retmem(makeflags_string.buffer.start); 2302 } 2303 if (makeflags_string_posix.free_after_use) { 2304 retmem(makeflags_string_posix.buffer.start); 2305 } 2306 makeflags_string.buffer.start = NULL; 2307 makeflags_string_posix.buffer.start = NULL; 2308 2309 if (posix) { 2310 /* 2311 * If the user did not redefine the ARFLAGS macro in the 2312 * default makefile (make.rules), then we'd like to 2313 * change the macro value of ARFLAGS to be in accordance 2314 * with "POSIX" requirements. 2315 */ 2316 MBSTOWCS(wcs_buffer, "ARFLAGS"); 2317 name = GETNAME(wcs_buffer, wcslen(wcs_buffer)); 2318 macro = get_prop(name->prop, macro_prop); 2319 if ((macro != NULL) && /* Maybe (macro == NULL) || ? */ 2320 (IS_EQUAL(macro->body.macro.value->string_mb, 2321 "rv"))) { 2322 MBSTOWCS(wcs_buffer, "-rv"); 2323 value = GETNAME(wcs_buffer, wcslen(wcs_buffer)); 2324 (void) SETVAR(name, 2325 value, 2326 false); 2327 } 2328 } 2329 2330 if (!posix && !svr4) { 2331 set_sgs_support(); 2332 } 2333 2334 2335 /* 2336 * Make sure KEEP_STATE is in the environment if KEEP_STATE is on. 2337 */ 2338 macro = get_prop(keep_state_name->prop, macro_prop); 2339 if ((macro != NULL) && 2340 macro->body.macro.exported) { 2341 keep_state = true; 2342 } 2343 if (keep_state) { 2344 if (macro == NULL) { 2345 macro = maybe_append_prop(keep_state_name, 2346 macro_prop); 2347 } 2348 macro->body.macro.exported = true; 2349 (void) SETVAR(keep_state_name, 2350 empty_name, 2351 false); 2352 2353 /* 2354 * Read state file 2355 */ 2356 2357 /* Before we read state, let's make sure we have 2358 ** right state file. 2359 */ 2360 /* just in case macro references are used in make_state file 2361 ** name, we better expand them at this stage using expand_value. 2362 */ 2363 INIT_STRING_FROM_STACK(dest, destbuffer); 2364 expand_value(make_state, &dest, false); 2365 2366 make_state = GETNAME(dest.buffer.start, FIND_LENGTH); 2367 2368 if(!stat(make_state->string_mb, &make_state_stat)) { 2369 if(!(make_state_stat.st_mode & S_IFREG) ) { 2370 /* copy the make_state structure to the other 2371 ** and then let make_state point to the new 2372 ** one. 2373 */ 2374 memcpy(&state_filename, make_state,sizeof(state_filename)); 2375 state_filename.string_mb = state_file_str_mb; 2376 /* Just a kludge to avoid two slashes back to back */ 2377 if((make_state->hash.length == 1)&& 2378 (make_state->string_mb[0] == '/')) { 2379 make_state->hash.length = 0; 2380 make_state->string_mb[0] = '\0'; 2381 } 2382 sprintf(state_file_str_mb,"%s%s", 2383 make_state->string_mb,"/.make.state"); 2384 make_state = &state_filename; 2385 /* adjust the length to reflect the appended string */ 2386 make_state->hash.length += 12; 2387 } 2388 } else { /* the file doesn't exist or no permission */ 2389 char tmp_path[MAXPATHLEN]; 2390 char *slashp; 2391 2392 if (slashp = strrchr(make_state->string_mb, '/')) { 2393 strncpy(tmp_path, make_state->string_mb, 2394 (slashp - make_state->string_mb)); 2395 tmp_path[slashp - make_state->string_mb]=0; 2396 if(strlen(tmp_path)) { 2397 if(stat(tmp_path, &make_state_stat)) { 2398 warning(gettext("directory %s for .KEEP_STATE_FILE does not exist"),tmp_path); 2399 } 2400 if (access(tmp_path, F_OK) != 0) { 2401 warning(gettext("can't access dir %s"),tmp_path); 2402 } 2403 } 2404 } 2405 } 2406 if (report_dependencies_level != 1) { 2407 Makefile_type makefile_type_temp = makefile_type; 2408 makefile_type = reading_statefile; 2409 if (read_trace_level > 1) { 2410 trace_reader = true; 2411 } 2412 (void) read_simple_file(make_state, 2413 false, 2414 false, 2415 false, 2416 false, 2417 false, 2418 true); 2419 trace_reader = false; 2420 makefile_type = makefile_type_temp; 2421 } 2422 } 2423 } 2424 2425 /* 2426 * Scan the argv for options and "=" type args and make them readonly. 2427 */ 2428 static void 2429 enter_argv_values(int argc, char *argv[], ASCII_Dyn_Array *makeflags_and_macro) 2430 { 2431 register char *cp; 2432 register int i; 2433 int length; 2434 register Name name; 2435 int opt_separator = argc; 2436 char tmp_char; 2437 wchar_t *tmp_wcs_buffer; 2438 register Name value; 2439 Boolean append = false; 2440 Property macro; 2441 struct stat statbuf; 2442 2443 2444 /* Read argv options and "=" type args and make them readonly. */ 2445 makefile_type = reading_nothing; 2446 for (i = 1; i < argc; ++i) { 2447 append = false; 2448 if (argv[i] == NULL) { 2449 continue; 2450 } else if (((argv[i][0] == '-') && (argv[i][1] == '-')) || 2451 ((argv[i][0] == (int) ' ') && 2452 (argv[i][1] == (int) '-') && 2453 (argv[i][2] == (int) ' ') && 2454 (argv[i][3] == (int) '-'))) { 2455 argv[i] = NULL; 2456 opt_separator = i; 2457 continue; 2458 } else if ((i < opt_separator) && (argv[i][0] == (int) hyphen_char)) { 2459 switch (parse_command_option(argv[i][1])) { 2460 case 1: /* -f seen */ 2461 ++i; 2462 continue; 2463 case 2: /* -c seen */ 2464 if (argv[i+1] == NULL) { 2465 fatal(gettext("No dmake rcfile argument after -c flag")); 2466 } 2467 MBSTOWCS(wcs_buffer, "DMAKE_RCFILE"); 2468 name = GETNAME(wcs_buffer, FIND_LENGTH); 2469 break; 2470 case 4: /* -g seen */ 2471 if (argv[i+1] == NULL) { 2472 fatal(gettext("No dmake group argument after -g flag")); 2473 } 2474 MBSTOWCS(wcs_buffer, "DMAKE_GROUP"); 2475 name = GETNAME(wcs_buffer, FIND_LENGTH); 2476 break; 2477 case 8: /* -j seen */ 2478 if (argv[i+1] == NULL) { 2479 fatal(gettext("No dmake max jobs argument after -j flag")); 2480 } 2481 MBSTOWCS(wcs_buffer, "DMAKE_MAX_JOBS"); 2482 name = GETNAME(wcs_buffer, FIND_LENGTH); 2483 break; 2484 case 16: /* -M seen */ 2485 if (argv[i+1] == NULL) { 2486 fatal(gettext("No pmake machinesfile argument after -M flag")); 2487 } 2488 MBSTOWCS(wcs_buffer, "PMAKE_MACHINESFILE"); 2489 name = GETNAME(wcs_buffer, FIND_LENGTH); 2490 break; 2491 case 32: /* -m seen */ 2492 if (argv[i+1] == NULL) { 2493 fatal(gettext("No dmake mode argument after -m flag")); 2494 } 2495 MBSTOWCS(wcs_buffer, "DMAKE_MODE"); 2496 name = GETNAME(wcs_buffer, FIND_LENGTH); 2497 break; 2498 case 256: /* -K seen */ 2499 if (argv[i+1] == NULL) { 2500 fatal(gettext("No makestate filename argument after -K flag")); 2501 } 2502 MBSTOWCS(wcs_buffer, argv[i+1]); 2503 make_state = GETNAME(wcs_buffer, FIND_LENGTH); 2504 keep_state = true; 2505 argv[i] = NULL; 2506 argv[i+1] = NULL; 2507 continue; 2508 case 512: /* -o seen */ 2509 if (argv[i+1] == NULL) { 2510 fatal(gettext("No dmake output dir argument after -o flag")); 2511 } 2512 MBSTOWCS(wcs_buffer, "DMAKE_ODIR"); 2513 name = GETNAME(wcs_buffer, FIND_LENGTH); 2514 break; 2515 case 1024: /* -x seen */ 2516 if (argv[i+1] == NULL) { 2517 fatal(gettext("No argument after -x flag")); 2518 } 2519 length = strlen( "SUN_MAKE_COMPAT_MODE="); 2520 if (strncmp(argv[i+1], "SUN_MAKE_COMPAT_MODE=", length) == 0) { 2521 argv[i+1] = &argv[i+1][length]; 2522 MBSTOWCS(wcs_buffer, "SUN_MAKE_COMPAT_MODE"); 2523 name = GETNAME(wcs_buffer, FIND_LENGTH); 2524 dmake_compat_mode_specified = dmake_add_mode_specified; 2525 break; 2526 } 2527 length = strlen( "DMAKE_OUTPUT_MODE="); 2528 if (strncmp(argv[i+1], "DMAKE_OUTPUT_MODE=", length) == 0) { 2529 argv[i+1] = &argv[i+1][length]; 2530 MBSTOWCS(wcs_buffer, "DMAKE_OUTPUT_MODE"); 2531 name = GETNAME(wcs_buffer, FIND_LENGTH); 2532 dmake_output_mode_specified = dmake_add_mode_specified; 2533 } else { 2534 warning(gettext("Unknown argument `%s' after -x flag (ignored)"), 2535 argv[i+1]); 2536 argv[i] = argv[i + 1] = NULL; 2537 continue; 2538 } 2539 break; 2540 case 2048: /* -C seen */ 2541 if (argv[i + 1] == NULL) { 2542 fatal(gettext("No argument after -C flag")); 2543 } 2544 if (chdir(argv[i + 1]) != 0) { 2545 fatal(gettext("failed to change to directory %s: %s"), 2546 argv[i + 1], strerror(errno)); 2547 } 2548 MBSTOWCS(wcs_buffer, "DMAKE_CDIR"); 2549 name = GETNAME(wcs_buffer, FIND_LENGTH); 2550 path_reset = true; 2551 rebuild_arg0 = true; 2552 (void) get_current_path(); 2553 break; 2554 default: /* Shouldn't reach here */ 2555 argv[i] = NULL; 2556 continue; 2557 } 2558 argv[i] = NULL; 2559 if (i == (argc - 1)) { 2560 break; 2561 } 2562 if ((length = strlen(argv[i+1])) >= MAXPATHLEN) { 2563 tmp_wcs_buffer = ALLOC_WC(length + 1); 2564 (void) mbstowcs(tmp_wcs_buffer, argv[i+1], length + 1); 2565 value = GETNAME(tmp_wcs_buffer, FIND_LENGTH); 2566 retmem(tmp_wcs_buffer); 2567 } else { 2568 MBSTOWCS(wcs_buffer, argv[i+1]); 2569 value = GETNAME(wcs_buffer, FIND_LENGTH); 2570 } 2571 argv[i+1] = NULL; 2572 } else if ((cp = strchr(argv[i], (int) equal_char)) != NULL) { 2573 /* 2574 * Combine all macro in dynamic array 2575 */ 2576 if(*(cp-1) == (int) plus_char) 2577 { 2578 if(isspace(*(cp-2))) { 2579 append = true; 2580 cp--; 2581 } 2582 } 2583 if(!append) 2584 append_or_replace_macro_in_dyn_array(makeflags_and_macro, argv[i]); 2585 2586 while (isspace(*(cp-1))) { 2587 cp--; 2588 } 2589 tmp_char = *cp; 2590 *cp = (int) nul_char; 2591 MBSTOWCS(wcs_buffer, argv[i]); 2592 *cp = tmp_char; 2593 name = GETNAME(wcs_buffer, wcslen(wcs_buffer)); 2594 while (*cp != (int) equal_char) { 2595 cp++; 2596 } 2597 cp++; 2598 while (isspace(*cp) && (*cp != (int) nul_char)) { 2599 cp++; 2600 } 2601 if ((length = strlen(cp)) >= MAXPATHLEN) { 2602 tmp_wcs_buffer = ALLOC_WC(length + 1); 2603 (void) mbstowcs(tmp_wcs_buffer, cp, length + 1); 2604 value = GETNAME(tmp_wcs_buffer, FIND_LENGTH); 2605 retmem(tmp_wcs_buffer); 2606 } else { 2607 MBSTOWCS(wcs_buffer, cp); 2608 value = GETNAME(wcs_buffer, FIND_LENGTH); 2609 } 2610 argv[i] = NULL; 2611 } else { 2612 /* Illegal MAKEFLAGS argument */ 2613 continue; 2614 } 2615 if(append) { 2616 setvar_append(name, value); 2617 append = false; 2618 } else { 2619 macro = maybe_append_prop(name, macro_prop); 2620 macro->body.macro.exported = true; 2621 SETVAR(name, value, false)->body.macro.read_only = true; 2622 } 2623 } 2624 } 2625 2626 /* 2627 * Append the DMake option and value to the MAKEFLAGS string. 2628 */ 2629 static void 2630 append_makeflags_string(Name name, register String makeflags_string) 2631 { 2632 const char *option; 2633 2634 if (strcmp(name->string_mb, "DMAKE_GROUP") == 0) { 2635 option = " -g "; 2636 } else if (strcmp(name->string_mb, "DMAKE_MAX_JOBS") == 0) { 2637 option = " -j "; 2638 } else if (strcmp(name->string_mb, "DMAKE_MODE") == 0) { 2639 option = " -m "; 2640 } else if (strcmp(name->string_mb, "DMAKE_ODIR") == 0) { 2641 option = " -o "; 2642 } else if (strcmp(name->string_mb, "DMAKE_RCFILE") == 0) { 2643 option = " -c "; 2644 } else if (strcmp(name->string_mb, "PMAKE_MACHINESFILE") == 0) { 2645 option = " -M "; 2646 } else if (strcmp(name->string_mb, "DMAKE_OUTPUT_MODE") == 0) { 2647 option = " -x DMAKE_OUTPUT_MODE="; 2648 } else if (strcmp(name->string_mb, "SUN_MAKE_COMPAT_MODE") == 0) { 2649 option = " -x SUN_MAKE_COMPAT_MODE="; 2650 } else { 2651 fatal(gettext("Internal error: name not recognized in append_makeflags_string()")); 2652 } 2653 Property prop = maybe_append_prop(name, macro_prop); 2654 if( prop == 0 || prop->body.macro.value == 0 || 2655 prop->body.macro.value->string_mb == 0 ) { 2656 return; 2657 } 2658 char mbs_value[MAXPATHLEN + 100]; 2659 strcpy(mbs_value, option); 2660 strcat(mbs_value, prop->body.macro.value->string_mb); 2661 MBSTOWCS(wcs_buffer, mbs_value); 2662 append_string(wcs_buffer, makeflags_string, FIND_LENGTH); 2663 } 2664 2665 /* 2666 * read_environment(read_only) 2667 * 2668 * This routine reads the process environment when make starts and enters 2669 * it as make macros. The environment variable SHELL is ignored. 2670 * 2671 * Parameters: 2672 * read_only Should we make env vars read only? 2673 * 2674 * Global variables used: 2675 * report_pwd Set if this make was started by other make 2676 */ 2677 static void 2678 read_environment(Boolean read_only) 2679 { 2680 register char **environment; 2681 int length; 2682 wchar_t *tmp_wcs_buffer; 2683 Boolean alloced_tmp_wcs_buffer = false; 2684 register wchar_t *name; 2685 register wchar_t *value; 2686 register Name macro; 2687 Property val; 2688 Boolean read_only_saved; 2689 2690 reading_environment = true; 2691 environment = environ; 2692 for (; *environment; environment++) { 2693 read_only_saved = read_only; 2694 if ((length = strlen(*environment)) >= MAXPATHLEN) { 2695 tmp_wcs_buffer = ALLOC_WC(length + 1); 2696 alloced_tmp_wcs_buffer = true; 2697 (void) mbstowcs(tmp_wcs_buffer, *environment, length + 1); 2698 name = tmp_wcs_buffer; 2699 } else { 2700 MBSTOWCS(wcs_buffer, *environment); 2701 name = wcs_buffer; 2702 } 2703 value = (wchar_t *) wcschr(name, (int) equal_char); 2704 2705 /* 2706 * Looks like there's a bug in the system, but sometimes 2707 * you can get blank lines in *environment. 2708 */ 2709 if (!value) { 2710 continue; 2711 } 2712 MBSTOWCS(wcs_buffer2, "SHELL="); 2713 if (IS_WEQUALN(name, wcs_buffer2, wcslen(wcs_buffer2))) { 2714 continue; 2715 } 2716 MBSTOWCS(wcs_buffer2, "MAKEFLAGS="); 2717 if (IS_WEQUALN(name, wcs_buffer2, wcslen(wcs_buffer2))) { 2718 report_pwd = true; 2719 /* 2720 * In POSIX mode we do not want MAKEFLAGS to be readonly. 2721 * If the MAKEFLAGS macro is subsequently set by the makefile, 2722 * it replaces the MAKEFLAGS variable currently found in the 2723 * environment. 2724 * See Assertion 50 in section 6.2.5.3 of standard P1003.3.2/D8. 2725 */ 2726 if(posix) { 2727 read_only_saved = false; 2728 } 2729 } 2730 2731 /* 2732 * We ignore SUNPRO_DEPENDENCIES. This environment variable is 2733 * set by make and read by cpp which then writes info to 2734 * .make.dependency.xxx. When make is invoked by another make 2735 * (recursive make), we don't want to read this because then 2736 * the child make will end up writing to the parent 2737 * directory's .make.state and clobbering them. 2738 */ 2739 MBSTOWCS(wcs_buffer2, "SUNPRO_DEPENDENCIES"); 2740 if (IS_WEQUALN(name, wcs_buffer2, wcslen(wcs_buffer2))) { 2741 continue; 2742 } 2743 2744 macro = GETNAME(name, value - name); 2745 maybe_append_prop(macro, macro_prop)->body.macro.exported = 2746 true; 2747 if ((value == NULL) || ((value + 1)[0] == (int) nul_char)) { 2748 val = setvar_daemon(macro, 2749 (Name) NULL, 2750 false, no_daemon, false, debug_level); 2751 } else { 2752 val = setvar_daemon(macro, 2753 GETNAME(value + 1, FIND_LENGTH), 2754 false, no_daemon, false, debug_level); 2755 } 2756 val->body.macro.read_only = read_only_saved; 2757 if (alloced_tmp_wcs_buffer) { 2758 retmem(tmp_wcs_buffer); 2759 alloced_tmp_wcs_buffer = false; 2760 } 2761 } 2762 reading_environment = false; 2763 } 2764 2765 /* 2766 * read_makefile(makefile, complain, must_exist, report_file) 2767 * 2768 * Read one makefile and check the result 2769 * 2770 * Return value: 2771 * false is the read failed 2772 * 2773 * Parameters: 2774 * makefile The file to read 2775 * complain Passed thru to read_simple_file() 2776 * must_exist Passed thru to read_simple_file() 2777 * report_file Passed thru to read_simple_file() 2778 * 2779 * Global variables used: 2780 * makefile_type Set to indicate we are reading main file 2781 * recursion_level Initialized 2782 */ 2783 static Boolean 2784 read_makefile(register Name makefile, Boolean complain, Boolean must_exist, Boolean report_file) 2785 { 2786 Boolean b; 2787 2788 makefile_type = reading_makefile; 2789 recursion_level = 0; 2790 reading_dependencies = true; 2791 b = read_simple_file(makefile, true, true, complain, 2792 must_exist, report_file, false); 2793 reading_dependencies = false; 2794 return b; 2795 } 2796 2797 /* 2798 * make_targets(argc, argv, parallel_flag) 2799 * 2800 * Call doname on the specified targets 2801 * 2802 * Parameters: 2803 * argc You know what this is 2804 * argv You know what this is 2805 * parallel_flag True if building in parallel 2806 * 2807 * Global variables used: 2808 * build_failed_seen Used to generated message after failed -k 2809 * commands_done Used to generate message "Up to date" 2810 * default_target_to_build First proper target in makefile 2811 * init The Name ".INIT", use to run command 2812 * parallel Global parallel building flag 2813 * quest make -q, suppresses messages 2814 * recursion_level Initialized, used for tracing 2815 * report_dependencies make -P, regroves whole process 2816 */ 2817 static void 2818 make_targets(int argc, char **argv, Boolean parallel_flag) 2819 { 2820 int i; 2821 char *cp; 2822 Doname result; 2823 register Boolean target_to_make_found = false; 2824 2825 (void) doname(init, true, true); 2826 recursion_level = 1; 2827 parallel = parallel_flag; 2828 /* 2829 * make remaining args 2830 */ 2831 /* 2832 if ((report_dependencies_level == 0) && parallel) { 2833 */ 2834 if (parallel) { 2835 /* 2836 * If building targets in parallel, start all of the 2837 * remaining args to build in parallel. 2838 */ 2839 for (i = 1; i < argc; i++) { 2840 if ((cp = argv[i]) != NULL) { 2841 commands_done = false; 2842 if ((cp[0] == (int) period_char) && 2843 (cp[1] == (int) slash_char)) { 2844 cp += 2; 2845 } 2846 if((cp[0] == (int) ' ') && 2847 (cp[1] == (int) '-') && 2848 (cp[2] == (int) ' ') && 2849 (cp[3] == (int) '-')) { 2850 argv[i] = NULL; 2851 continue; 2852 } 2853 MBSTOWCS(wcs_buffer, cp); 2854 //default_target_to_build = GETNAME(wcs_buffer, 2855 // FIND_LENGTH); 2856 default_target_to_build = normalize_name(wcs_buffer, 2857 wcslen(wcs_buffer)); 2858 if (default_target_to_build == wait_name) { 2859 if (parallel_process_cnt > 0) { 2860 finish_running(); 2861 } 2862 continue; 2863 } 2864 top_level_target = get_wstring(default_target_to_build->string_mb); 2865 /* 2866 * If we can't execute the current target in 2867 * parallel, hold off the target processing 2868 * to preserve the order of the targets as they appeared 2869 * in command line. 2870 */ 2871 if (!parallel_ok(default_target_to_build, false) 2872 && parallel_process_cnt > 0) { 2873 finish_running(); 2874 } 2875 result = doname_check(default_target_to_build, 2876 true, 2877 false, 2878 false); 2879 gather_recursive_deps(); 2880 if (/* !commands_done && */ 2881 (result == build_ok) && 2882 !quest && 2883 (report_dependencies_level == 0) /* && 2884 (exists(default_target_to_build) > file_doesnt_exist) */) { 2885 if (posix) { 2886 if (!commands_done) { 2887 (void) printf(gettext("`%s' is updated.\n"), 2888 default_target_to_build->string_mb); 2889 } else { 2890 if (no_action_was_taken) { 2891 (void) printf(gettext("`%s': no action was taken.\n"), 2892 default_target_to_build->string_mb); 2893 } 2894 } 2895 } else { 2896 default_target_to_build->stat.time = file_no_time; 2897 if (!commands_done && 2898 (exists(default_target_to_build) > file_doesnt_exist)) { 2899 (void) printf(gettext("`%s' is up to date.\n"), 2900 default_target_to_build->string_mb); 2901 } 2902 } 2903 } 2904 } 2905 } 2906 /* Now wait for all of the targets to finish running */ 2907 finish_running(); 2908 // setjmp(jmpbuffer); 2909 2910 } 2911 for (i = 1; i < argc; i++) { 2912 if ((cp = argv[i]) != NULL) { 2913 target_to_make_found = true; 2914 if ((cp[0] == (int) period_char) && 2915 (cp[1] == (int) slash_char)) { 2916 cp += 2; 2917 } 2918 if((cp[0] == (int) ' ') && 2919 (cp[1] == (int) '-') && 2920 (cp[2] == (int) ' ') && 2921 (cp[3] == (int) '-')) { 2922 argv[i] = NULL; 2923 continue; 2924 } 2925 MBSTOWCS(wcs_buffer, cp); 2926 default_target_to_build = normalize_name(wcs_buffer, wcslen(wcs_buffer)); 2927 top_level_target = get_wstring(default_target_to_build->string_mb); 2928 report_recursion(default_target_to_build); 2929 commands_done = false; 2930 if (parallel) { 2931 result = (Doname) default_target_to_build->state; 2932 } else { 2933 result = doname_check(default_target_to_build, 2934 true, 2935 false, 2936 false); 2937 } 2938 gather_recursive_deps(); 2939 if (build_failed_seen) { 2940 build_failed_ever_seen = true; 2941 warning(gettext("Target `%s' not remade because of errors"), 2942 default_target_to_build->string_mb); 2943 } 2944 build_failed_seen = false; 2945 if (report_dependencies_level > 0) { 2946 print_dependencies(default_target_to_build, 2947 get_prop(default_target_to_build->prop, 2948 line_prop)); 2949 } 2950 default_target_to_build->stat.time = 2951 file_no_time; 2952 if (default_target_to_build->colon_splits > 0) { 2953 default_target_to_build->state = 2954 build_dont_know; 2955 } 2956 if (!parallel && 2957 /* !commands_done && */ 2958 (result == build_ok) && 2959 !quest && 2960 (report_dependencies_level == 0) /* && 2961 (exists(default_target_to_build) > file_doesnt_exist) */) { 2962 if (posix) { 2963 if (!commands_done) { 2964 (void) printf(gettext("`%s' is updated.\n"), 2965 default_target_to_build->string_mb); 2966 } else { 2967 if (no_action_was_taken) { 2968 (void) printf(gettext("`%s': no action was taken.\n"), 2969 default_target_to_build->string_mb); 2970 } 2971 } 2972 } else { 2973 if (!commands_done && 2974 (exists(default_target_to_build) > file_doesnt_exist)) { 2975 (void) printf(gettext("`%s' is up to date.\n"), 2976 default_target_to_build->string_mb); 2977 } 2978 } 2979 } 2980 } 2981 } 2982 2983 /* 2984 * If no file arguments have been encountered, 2985 * make the first name encountered that doesnt start with a dot 2986 */ 2987 if (!target_to_make_found) { 2988 if (default_target_to_build == NULL) { 2989 fatal(gettext("No arguments to build")); 2990 } 2991 commands_done = false; 2992 top_level_target = get_wstring(default_target_to_build->string_mb); 2993 report_recursion(default_target_to_build); 2994 2995 2996 if (getenv("SPRO_EXPAND_ERRORS")){ 2997 (void) printf("::(%s)\n", 2998 default_target_to_build->string_mb); 2999 } 3000 3001 3002 result = doname_parallel(default_target_to_build, true, false); 3003 gather_recursive_deps(); 3004 if (build_failed_seen) { 3005 build_failed_ever_seen = true; 3006 warning(gettext("Target `%s' not remade because of errors"), 3007 default_target_to_build->string_mb); 3008 } 3009 build_failed_seen = false; 3010 if (report_dependencies_level > 0) { 3011 print_dependencies(default_target_to_build, 3012 get_prop(default_target_to_build-> 3013 prop, 3014 line_prop)); 3015 } 3016 default_target_to_build->stat.time = file_no_time; 3017 if (default_target_to_build->colon_splits > 0) { 3018 default_target_to_build->state = build_dont_know; 3019 } 3020 if (/* !commands_done && */ 3021 (result == build_ok) && 3022 !quest && 3023 (report_dependencies_level == 0) /* && 3024 (exists(default_target_to_build) > file_doesnt_exist) */) { 3025 if (posix) { 3026 if (!commands_done) { 3027 (void) printf(gettext("`%s' is updated.\n"), 3028 default_target_to_build->string_mb); 3029 } else { 3030 if (no_action_was_taken) { 3031 (void) printf(gettext("`%s': no action was taken.\n"), 3032 default_target_to_build->string_mb); 3033 } 3034 } 3035 } else { 3036 if (!commands_done && 3037 (exists(default_target_to_build) > file_doesnt_exist)) { 3038 (void) printf(gettext("`%s' is up to date.\n"), 3039 default_target_to_build->string_mb); 3040 } 3041 } 3042 } 3043 } 3044 } 3045 3046 /* 3047 * report_recursion(target) 3048 * 3049 * If this is a recursive make and the parent make has KEEP_STATE on 3050 * this routine reports the dependency to the parent make 3051 * 3052 * Parameters: 3053 * target Target to report 3054 * 3055 * Global variables used: 3056 * makefiles_used List of makefiles read 3057 * recursive_name The Name ".RECURSIVE", printed 3058 * report_dependency dwight 3059 */ 3060 static void 3061 report_recursion(register Name target) 3062 { 3063 register FILE *report_file = get_report_file(); 3064 3065 if ((report_file == NULL) || (report_file == (FILE*)-1)) { 3066 return; 3067 } 3068 if (primary_makefile == NULL) { 3069 /* 3070 * This can happen when there is no makefile and 3071 * only implicit rules are being used. 3072 */ 3073 return; 3074 } 3075 (void) fprintf(report_file, 3076 "%s: %s ", 3077 get_target_being_reported_for(), 3078 recursive_name->string_mb); 3079 report_dependency(get_current_path()); 3080 report_dependency(target->string_mb); 3081 report_dependency(primary_makefile->string_mb); 3082 (void) fprintf(report_file, "\n"); 3083 } 3084 3085 /* Next function "append_or_replace_macro_in_dyn_array" must be in "misc.cc". */ 3086 /* NIKMOL */ 3087 extern void 3088 append_or_replace_macro_in_dyn_array(ASCII_Dyn_Array *Ar, char *macro) 3089 { 3090 register char *cp0; /* work pointer in macro */ 3091 register char *cp1; /* work pointer in array */ 3092 register char *cp2; /* work pointer in array */ 3093 register char *cp3; /* work pointer in array */ 3094 register char *name; /* macro name */ 3095 register char *value; /* macro value */ 3096 register int len_array; 3097 register int len_macro; 3098 3099 char * esc_value = NULL; 3100 int esc_len; 3101 3102 if (!(len_macro = strlen(macro))) return; 3103 name = macro; 3104 while (isspace(*(name))) { 3105 name++; 3106 } 3107 if (!(value = strchr(name, (int) equal_char))) { 3108 /* no '=' in macro */ 3109 goto ERROR_MACRO; 3110 } 3111 cp0 = value; 3112 value++; 3113 while (isspace(*(value))) { 3114 value++; 3115 } 3116 while (isspace(*(cp0-1))) { 3117 cp0--; 3118 } 3119 if (cp0 <= name) goto ERROR_MACRO; /* no name */ 3120 if (!(Ar->size)) goto ALLOC_ARRAY; 3121 cp1 = Ar->start; 3122 3123 LOOK_FOR_NAME: 3124 if (!(cp1 = strchr(cp1, name[0]))) goto APPEND_MACRO; 3125 if (!(cp2 = strchr(cp1, (int) equal_char))) goto APPEND_MACRO; 3126 if (strncmp(cp1, name, (size_t)(cp0-name))) { 3127 /* another name */ 3128 cp1++; 3129 goto LOOK_FOR_NAME; 3130 } 3131 if (cp1 != Ar->start) { 3132 if (!isspace(*(cp1-1))) { 3133 /* another name */ 3134 cp1++; 3135 goto LOOK_FOR_NAME; 3136 } 3137 } 3138 for (cp3 = cp1 + (cp0-name); cp3 < cp2; cp3++) { 3139 if (isspace(*cp3)) continue; 3140 /* else: another name */ 3141 cp1++; 3142 goto LOOK_FOR_NAME; 3143 } 3144 /* Look for the next macro name in array */ 3145 cp3 = cp2+1; 3146 if (*cp3 != (int) doublequote_char) { 3147 /* internal error */ 3148 goto ERROR_MACRO; 3149 } 3150 if (!(cp3 = strchr(cp3+1, (int) doublequote_char))) { 3151 /* internal error */ 3152 goto ERROR_MACRO; 3153 } 3154 cp3++; 3155 while (isspace(*cp3)) { 3156 cp3++; 3157 } 3158 3159 cp2 = cp1; /* remove old macro */ 3160 if ((*cp3) && (cp3 < Ar->start + Ar->size)) { 3161 for (; cp3 < Ar->start + Ar->size; cp3++) { 3162 *cp2++ = *cp3; 3163 } 3164 } 3165 for (; cp2 < Ar->start + Ar->size; cp2++) { 3166 *cp2 = 0; 3167 } 3168 if (*cp1) { 3169 /* check next name */ 3170 goto LOOK_FOR_NAME; 3171 } 3172 goto APPEND_MACRO; 3173 3174 ALLOC_ARRAY: 3175 if (Ar->size) { 3176 cp1 = Ar->start; 3177 } else { 3178 cp1 = 0; 3179 } 3180 Ar->size += 128; 3181 Ar->start = getmem(Ar->size); 3182 for (len_array=0; len_array < Ar->size; len_array++) { 3183 Ar->start[len_array] = 0; 3184 } 3185 if (cp1) { 3186 strcpy(Ar->start, cp1); 3187 retmem((wchar_t *) cp1); 3188 } 3189 3190 APPEND_MACRO: 3191 len_array = strlen(Ar->start); 3192 esc_value = (char*)malloc(strlen(value)*2 + 1); 3193 quote_str(value, esc_value); 3194 esc_len = strlen(esc_value) - strlen(value); 3195 if (len_array + len_macro + esc_len + 5 >= Ar->size) goto ALLOC_ARRAY; 3196 strcat(Ar->start, " "); 3197 strncat(Ar->start, name, cp0-name); 3198 strcat(Ar->start, "="); 3199 strncat(Ar->start, esc_value, strlen(esc_value)); 3200 free(esc_value); 3201 return; 3202 ERROR_MACRO: 3203 /* Macro without '=' or with invalid left/right part */ 3204 return; 3205 } 3206 3207 static void 3208 report_dir_enter_leave(Boolean entering) 3209 { 3210 char rcwd[MAXPATHLEN]; 3211 static char * mlev = NULL; 3212 char * make_level_str = NULL; 3213 int make_level_val = 0; 3214 3215 make_level_str = getenv("MAKELEVEL"); 3216 if(make_level_str) { 3217 make_level_val = atoi(make_level_str); 3218 } 3219 if(mlev == NULL) { 3220 mlev = (char*) malloc(MAXPATHLEN); 3221 } 3222 if(entering) { 3223 sprintf(mlev, "MAKELEVEL=%d", make_level_val + 1); 3224 } else { 3225 make_level_val--; 3226 sprintf(mlev, "MAKELEVEL=%d", make_level_val); 3227 } 3228 putenv(mlev); 3229 3230 if(report_cwd) { 3231 if(make_level_val <= 0) { 3232 if(entering) { 3233 sprintf(rcwd, 3234 gettext("%s: Entering directory `%s'\n"), 3235 getprogname(), 3236 get_current_path()); 3237 } else { 3238 sprintf(rcwd, 3239 gettext("%s: Leaving directory `%s'\n"), 3240 getprogname(), 3241 get_current_path()); 3242 } 3243 } else { 3244 if(entering) { 3245 sprintf(rcwd, 3246 gettext("%s[%d]: Entering directory `%s'\n"), 3247 getprogname(), 3248 make_level_val, get_current_path()); 3249 } else { 3250 sprintf(rcwd, 3251 gettext("%s[%d]: Leaving directory `%s'\n"), 3252 getprogname(), 3253 make_level_val, get_current_path()); 3254 } 3255 } 3256 printf("%s", rcwd); 3257 } 3258 } 3259