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