Changeset 51 in kBuild for trunk/src/kmk/compat.c

Timestamp:

Apr 7, 2003 1:30:32 AM (22 years ago)

Author:

bird

Message:

kMk and porting to kLib.

File:

• trunk/src/kmk/compat.c (modified) (22 diffs)

trunk/src/kmk/compat.c

@@ -18 +18 @@
  * 3. All advertising materials mentioning features or use of this software
  *    must display the following acknowledgement:
- *      This product includes software developed by the University of
- *      California, Berkeley and its contributors.
+ *      This product includes software developed by the University of
+ *      California, Berkeley and its contributors.
  * 4. Neither the name of the University nor the names of its contributors
  *    may be used to endorse or promote products derived from this software
@@ -39 +39 @@
 #ifndef lint
 #if 0
-static char sccsid[] = "@(#)compat.c    8.2 (Berkeley) 3/19/94";
+static char sccsid[] = "@(#)compat.c    8.2 (Berkeley) 3/19/94";
 #else
 static const char rcsid[] =
   "$FreeBSD: src/usr.bin/make/compat.c,v 1.16.2.2 2000/07/01 12:24:21 ps Exp $";
 #endif
+#define KLIBFILEDEF rcsid
 #endif /* not lint */
 
 /*-
  * compat.c --
- *      The routines in this file implement the full-compatibility
- *      mode of PMake. Most of the special functionality of PMake
- *      is available in this mode. Things not supported:
- *          - different shells.
- *          - friendly variable substitution.
+ *      The routines in this file implement the full-compatibility
+ *      mode of PMake. Most of the special functionality of PMake
+ *      is available in this mode. Things not supported:
+ *          - different shells.
+ *          - friendly variable substitution.
  *
  * Interface:
- *      Compat_Run          Initialize things for this module and recreate
- *                          thems as need creatin'
+ *      Compat_Run          Initialize things for this module and recreate
+ *                          thems as need creatin'
  */
 
@@ -87 +88 @@
  */
 
-static char         meta[256];
-
-static GNode        *curTarg = NILGNODE;
-static GNode        *ENDNode;
+static char         meta[256];
+
+static GNode        *curTarg = NILGNODE;
+static GNode        *ENDNode;
 static void CompatInterrupt __P((int));
 static int CompatRunCommand __P((ClientData, ClientData));
@@ -96 +97 @@
 
 static char *sh_builtin[] = {
-        "alias", "cd", "eval", "exec", "exit", "read", "set", "ulimit",
-        "unalias", "umask", "unset", "wait", ":", 0};
+        "alias", "cd", "eval", "exec", "exit", "read", "set", "ulimit",
+        "unalias", "umask", "unset", "wait", ":", 0};
 
 /*-
  *-----------------------------------------------------------------------
  * CompatInterrupt --
- *      Interrupt the creation of the current target and remove it if
- *      it ain't precious.
+ *      Interrupt the creation of the current target and remove it if
+ *      it ain't precious.
  *
  * Results:
- *      None.
+ *      None.
  *
  * Side Effects:
- *      The target is removed and the process exits. If .INTERRUPT exists,
- *      its commands are run first WITH INTERRUPTS IGNORED..
+ *      The target is removed and the process exits. If .INTERRUPT exists,
+ *      its commands are run first WITH INTERRUPTS IGNORED..
  *
  *-----------------------------------------------------------------------
@@ -116 +117 @@
 static void
 CompatInterrupt (signo)
-    int     signo;
+    int     signo;
 {
     GNode   *gn;
 
     if ((curTarg != NILGNODE) && !Targ_Precious (curTarg)) {
-        char      *p1;
-        char      *file = Var_Value (TARGET, curTarg, &p1);
-
-        if (!noExecute && eunlink(file) != -1) {
-            printf ("*** %s removed\n", file);
-        }
-        efree(p1);
-
-        /*
-         * Run .INTERRUPT only if hit with interrupt signal
-         */
-        if (signo == SIGINT) {
-            gn = Targ_FindNode(".INTERRUPT", TARG_NOCREATE);
-            if (gn != NILGNODE) {
-                Lst_ForEach(gn->commands, CompatRunCommand, (ClientData)gn);
-            }
-        }
+        char      *p1;
+        char      *file = Var_Value (TARGET, curTarg, &p1);
+
+        if (!noExecute && eunlink(file) != -1) {
+            printf ("*** %s removed\n", file);
+        }
+        efree(p1);
+
+        /*
+         * Run .INTERRUPT only if hit with interrupt signal
+         */
+        if (signo == SIGINT) {
+            gn = Targ_FindNode(".INTERRUPT", TARG_NOCREATE);
+            if (gn != NILGNODE) {
+                Lst_ForEach(gn->commands, CompatRunCommand, (ClientData)gn);
+            }
+        }
 
     }
     #if !(defined(OS2) && defined(__IBMC__))
     if (signo == SIGQUIT)
-        exit(signo);
+        exit(signo);
     #endif
     (void) signal(signo, SIG_DFL);
@@ -152 +153 @@
  *-----------------------------------------------------------------------
  * shellneed --
- *      
+ *
  * Results:
- *      Returns 1 if a specified line must be executed by the shell,
- *      0 if it can be run via execve, and -1 if the command is a no-op.
+ *      Returns 1 if a specified line must be executed by the shell,
+ *      0 if it can be run via execve, and -1 if the command is a no-op.
  *
  * Side Effects:
- *      None.
- *      
+ *      None.
+ *
  *-----------------------------------------------------------------------
  */
 static int
 shellneed (cmd)
-        char *cmd;
+        char *cmd;
 {
-        char **av, **p;
-        int ac;
-
-        av = brk_string(cmd, &ac, TRUE);
-        for(p = sh_builtin; *p != 0; p++)
-                if (strcmp(av[1], *p) == 0)
-                        return (1);
-        return (0);
+        char **av, **p;
+        int ac;
+
+        av = brk_string(cmd, &ac, TRUE);
+        for(p = sh_builtin; *p != 0; p++)
+                if (strcmp(av[1], *p) == 0)
+                        return (1);
+        return (0);
 }
 
@@ -180 +181 @@
  *-----------------------------------------------------------------------
  * CompatRunCommand --
- *      Execute the next command for a target. If the command returns an
- *      error, the node's made field is set to ERROR and creation stops.
+ *      Execute the next command for a target. If the command returns an
+ *      error, the node's made field is set to ERROR and creation stops.
  *
  * Results:
- *      0 if the command succeeded, 1 if an error occurred.
+ *      0 if the command succeeded, 1 if an error occurred.
  *
  * Side Effects:
- *      The node's 'made' field may be set to ERROR.
+ *      The node's 'made' field may be set to ERROR.
  *
  *-----------------------------------------------------------------------
@@ -193 +194 @@
 static int
 CompatRunCommand (cmdp, gnp)
-    ClientData    cmdp;         /* Command to execute */
-    ClientData    gnp;          /* Node from which the command came */
+    ClientData    cmdp;         /* Command to execute */
+    ClientData    gnp;          /* Node from which the command came */
 {
-    char          *cmdStart;    /* Start of expanded command */
+    char          *cmdStart;    /* Start of expanded command */
     register char *cp;
-    Boolean       silent,       /* Don't print command */
-                  errCheck;     /* Check errors */
-    int           reason;       /* Reason for child's death */
-    int           status;       /* Description of child's death */
-    int           cpid;         /* Child actually found */
-    ReturnStatus  stat;         /* Status of fork */
-    LstNode       cmdNode;      /* Node where current command is located */
-    char          **av;         /* Argument vector for thing to exec */
-    int           argc;         /* Number of arguments in av or 0 if not
-                                 * dynamically allocated */
-    Boolean       local;        /* TRUE if command should be executed
-                                 * locally */
-    int           internal;     /* Various values.. */
-    char          *cmd = (char *) cmdp;
-    GNode         *gn = (GNode *) gnp;
+    Boolean       silent,       /* Don't print command */
+                  errCheck;     /* Check errors */
+    int           reason;       /* Reason for child's death */
+    int           status;       /* Description of child's death */
+    int           cpid;         /* Child actually found */
+    ReturnStatus  stat;         /* Status of fork */
+    LstNode       cmdNode;      /* Node where current command is located */
+    char          **av;         /* Argument vector for thing to exec */
+    int           argc;         /* Number of arguments in av or 0 if not
+                                 * dynamically allocated */
+    Boolean       local;        /* TRUE if command should be executed
+                                 * locally */
+    int           internal;     /* Various values.. */
+    char          *cmd = (char *) cmdp;
+    GNode         *gn = (GNode *) gnp;
 
     /*
@@ -236 +237 @@
 
     if (*cmdStart == '\0') {
-        efree(cmdStart);
-        Error("%s expands to empty string", cmd);
-        return(0);
+        efree(cmdStart);
+        Error("%s expands to empty string", cmd);
+        return(0);
     } else {
-        cmd = cmdStart;
+        cmd = cmdStart;
     }
     Lst_Replace (cmdNode, (ClientData)cmdStart);
 
     if ((gn->type & OP_SAVE_CMDS) && (gn != ENDNode)) {
-        (void)Lst_AtEnd(ENDNode->commands, (ClientData)cmdStart);
-        return(0);
+        (void)Lst_AtEnd(ENDNode->commands, (ClientData)cmdStart);
+        return(0);
     } else if (strcmp(cmdStart, "...") == 0) {
-        gn->type |= OP_SAVE_CMDS;
-        return(0);
+        gn->type |= OP_SAVE_CMDS;
+        return(0);
     }
 
     while ((*cmd == '@') || (*cmd == '-')) {
-        if (*cmd == '@') {
-            silent = DEBUG(LOUD) ? FALSE : TRUE;
-        } else {
-            errCheck = FALSE;
-        }
-        cmd++;
+        if (*cmd == '@') {
+            silent = DEBUG(LOUD) ? FALSE : TRUE;
+        } else {
+            errCheck = FALSE;
+        }
+        cmd++;
     }
 
     while (isspace((unsigned char)*cmd))
-        cmd++;
+        cmd++;
 
     /*
@@ -270 +271 @@
      */
     for (cp = cmd; !meta[(unsigned char)*cp]; cp++) {
-        continue;
+        continue;
     }
 
@@ -278 +279 @@
      */
     if (!silent || noExecute) {
-        printf ("%s\n", cmd);
-        fflush(stdout);
+        printf ("%s\n", cmd);
+        fflush(stdout);
     }
 
@@ -287 +288 @@
      */
     if (noExecute) {
-        return (0);
+        return (0);
     }
 
     if (*cp != '\0') {
-        /*
-         * If *cp isn't the null character, we hit a "meta" character and
-         * need to pass the command off to the shell. We give the shell the
-         * -e flag as well as -c if it's supposed to exit when it hits an
-         * error.
-         */
-        static char     *shargv[4] = { "/bin/sh" };
-
-        shargv[1] = (errCheck ? "-ec" : "-c");
-        shargv[2] = cmd;
-        shargv[3] = (char *)NULL;
-        av = shargv;
-        argc = 0;
+        /*
+         * If *cp isn't the null character, we hit a "meta" character and
+         * need to pass the command off to the shell. We give the shell the
+         * -e flag as well as -c if it's supposed to exit when it hits an
+         * error.
+         */
+        static char     *shargv[4] = { "/bin/sh" };
+
+        shargv[1] = (errCheck ? "-ec" : "-c");
+        shargv[2] = cmd;
+        shargv[3] = (char *)NULL;
+        av = shargv;
+        argc = 0;
     } else if ((internal = shellneed(cmd))) {
-        /*
-         * This command must be passed by the shell for other reasons..
-         * or.. possibly not at all.
-         */
-        static char     *shargv[4] = { "/bin/sh" };
-
-        if (internal == -1) {
-                /* Command does not need to be executed */
-                return (0);
-        }
-
-        shargv[1] = (errCheck ? "-ec" : "-c");
-        shargv[2] = cmd;
-        shargv[3] = (char *)NULL;
-        av = shargv;
-        argc = 0;
+        /*
+         * This command must be passed by the shell for other reasons..
+         * or.. possibly not at all.
+         */
+        static char     *shargv[4] = { "/bin/sh" };
+
+        if (internal == -1) {
+                /* Command does not need to be executed */
+                return (0);
+        }
+
+        shargv[1] = (errCheck ? "-ec" : "-c");
+        shargv[2] = cmd;
+        shargv[3] = (char *)NULL;
+        av = shargv;
+        argc = 0;
     } else {
-        /*
-         * No meta-characters, so no need to exec a shell. Break the command
-         * into words to form an argument vector we can execute.
-         * brk_string sticks our name in av[0], so we have to
-         * skip over it...
-         */
-        av = brk_string(cmd, &argc, TRUE);
-        av += 1;
+        /*
+         * No meta-characters, so no need to exec a shell. Break the command
+         * into words to form an argument vector we can execute.
+         * brk_string sticks our name in av[0], so we have to
+         * skip over it...
+         */
+        av = brk_string(cmd, &argc, TRUE);
+        av += 1;
     }
 
@@ -342 +343 @@
     cpid = vfork();
     if (cpid < 0) {
-        Fatal("Could not fork");
+        Fatal("Could not fork");
     }
     if (cpid == 0) {
-        if (local) {
-            execvp(av[0], av);
-            (void) write (2, av[0], strlen (av[0]));
-            (void) write (2, ":", 1);
-            (void) write (2, strerror(errno), strlen(strerror(errno)));
-            (void) write (2, "\n", 1);
-        } else {
-            (void)execv(av[0], av);
-        }
-        exit(1);
+        if (local) {
+            execvp(av[0], av);
+            (void) write (2, av[0], strlen (av[0]));
+            (void) write (2, ":", 1);
+            (void) write (2, strerror(errno), strlen(strerror(errno)));
+            (void) write (2, "\n", 1);
+        } else {
+            (void)execv(av[0], av);
+        }
+        exit(1);
     }
 #endif
@@ -365 +366 @@
      */
     if (!DEBUG(GRAPH2)) {
-        efree(cmdStart);
-        Lst_Replace (cmdNode, cmdp);
+        efree(cmdStart);
+        Lst_Replace (cmdNode, cmdp);
     }
 
@@ -374 +375 @@
     while (1) {
 
-        while ((stat = wait(&reason)) != cpid) {
-            if (stat == -1 && errno != EINTR) {
-                break;
-            }
-        }
-
-        if (stat > -1) {
-            if (WIFSTOPPED(reason)) {
-                status = WSTOPSIG(reason);              /* stopped */
-            } else if (WIFEXITED(reason)) {
-                status = WEXITSTATUS(reason);           /* exited */
-                if (status != 0) {
-                    printf ("*** Error code %d", status);
-                }
-            } else {
-                status = WTERMSIG(reason);              /* signaled */
-                printf ("*** Signal %d", status);
-            }
-
-
-            if (!WIFEXITED(reason) || (status != 0)) {
-                if (errCheck) {
-                    gn->made = ERROR;
-                    if (keepgoing) {
-                        /*
-                         * Abort the current target, but let others
-                         * continue.
-                         */
-                        printf (" (continuing)\n");
-                    }
-                } else {
-                    /*
-                     * Continue executing commands for this target.
-                     * If we return 0, this will happen...
-                     */
-                    printf (" (ignored)\n");
-                    status = 0;
-                }
-            }
-            break;
-        } else {
-            Fatal ("error in wait: %d", stat);
-            /*NOTREACHED*/
-        }
+        while ((stat = wait(&reason)) != cpid) {
+            if (stat == -1 && errno != EINTR) {
+                break;
+            }
+        }
+
+        if (stat > -1) {
+            if (WIFSTOPPED(reason)) {
+                status = WSTOPSIG(reason);              /* stopped */
+            } else if (WIFEXITED(reason)) {
+                status = WEXITSTATUS(reason);           /* exited */
+                if (status != 0) {
+                    printf ("*** Error code %d", status);
+                }
+            } else {
+                status = WTERMSIG(reason);              /* signaled */
+                printf ("*** Signal %d", status);
+            }
+
+
+            if (!WIFEXITED(reason) || (status != 0)) {
+                if (errCheck) {
+                    gn->made = ERROR;
+                    if (keepgoing) {
+                        /*
+                         * Abort the current target, but let others
+                         * continue.
+                         */
+                        printf (" (continuing)\n");
+                    }
+                } else {
+                    /*
+                     * Continue executing commands for this target.
+                     * If we return 0, this will happen...
+                     */
+                    printf (" (ignored)\n");
+                    status = 0;
+                }
+            }
+            break;
+        } else {
+            Fatal ("error in wait: %d", stat);
+            /*NOTREACHED*/
+        }
     }
 
@@ -427 +428 @@
  *-----------------------------------------------------------------------
  * CompatMake --
- *      Make a target.
+ *      Make a target.
  *
  * Results:
- *      0
+ *      0
  *
  * Side Effects:
- *      If an error is detected and not being ignored, the process exits.
+ *      If an error is detected and not being ignored, the process exits.
  *
  *-----------------------------------------------------------------------
@@ -439 +440 @@
 static int
 CompatMake (gnp, pgnp)
-    ClientData  gnp;        /* The node to make */
-    ClientData  pgnp;       /* Parent to abort if necessary */
+    ClientData  gnp;        /* The node to make */
+    ClientData  pgnp;       /* Parent to abort if necessary */
 {
     GNode *gn = (GNode *) gnp;
     GNode *pgn = (GNode *) pgnp;
     if (gn->type & OP_USE) {
-        Make_HandleUse(gn, pgn);
+        Make_HandleUse(gn, pgn);
     } else if (gn->made == UNMADE) {
-        /*
-         * First mark ourselves to be made, then apply whatever transformations
-         * the suffix module thinks are necessary. Once that's done, we can
-         * descend and make all our children. If any of them has an error
-         * but the -k flag was given, our 'make' field will be set FALSE again.
-         * This is our signal to not attempt to do anything but abort our
-         * parent as well.
-         */
-        gn->make = TRUE;
-        gn->made = BEINGMADE;
-        Suff_FindDeps (gn);
-        Lst_ForEach (gn->children, CompatMake, (ClientData)gn);
-        if (!gn->make) {
-            gn->made = ABORTED;
-            pgn->make = FALSE;
-            return (0);
-        }
-
-        if (Lst_Member (gn->iParents, pgn) != NILLNODE) {
-            char *p1;
-            Var_Set (IMPSRC, Var_Value(TARGET, gn, &p1), pgn);
-            efree(p1);
-        }
-
-        /*
-         * All the children were made ok. Now cmtime contains the modification
-         * time of the newest child, we need to find out if we exist and when
-         * we were modified last. The criteria for datedness are defined by the
-         * Make_OODate function.
-         */
-        if (DEBUG(MAKE)) {
-            printf("Examining %s...", gn->name);
-        }
-        if (! Make_OODate(gn)) {
-            gn->made = UPTODATE;
-            if (DEBUG(MAKE)) {
-                printf("up-to-date.\n");
-            }
-            return (0);
-        } else if (DEBUG(MAKE)) {
-            printf("out-of-date.\n");
-        }
-
-        /*
-         * If the user is just seeing if something is out-of-date, exit now
-         * to tell him/her "yes".
-         */
-        if (queryFlag) {
-            exit (-1);
-        }
-
-        /*
-         * We need to be re-made. We also have to make sure we've got a $?
-         * variable. To be nice, we also define the $> variable using
-         * Make_DoAllVar().
-         */
-        Make_DoAllVar(gn);
-
-        /*
-         * Alter our type to tell if errors should be ignored or things
-         * should not be printed so CompatRunCommand knows what to do.
-         */
-        if (Targ_Ignore (gn)) {
-            gn->type |= OP_IGNORE;
-        }
-        if (Targ_Silent (gn)) {
-            gn->type |= OP_SILENT;
-        }
-
-        if (Job_CheckCommands (gn, Fatal)) {
-            /*
-             * Our commands are ok, but we still have to worry about the -t
-             * flag...
-             */
-            if (!touchFlag) {
-                curTarg = gn;
-                Lst_ForEach (gn->commands, CompatRunCommand, (ClientData)gn);
-                curTarg = NILGNODE;
-            } else {
-                Job_Touch (gn, gn->type & OP_SILENT);
-            }
-        } else {
-            gn->made = ERROR;
-        }
-
-        if (gn->made != ERROR) {
-            /*
-             * If the node was made successfully, mark it so, update
-             * its modification time and timestamp all its parents. Note
-             * that for .ZEROTIME targets, the timestamping isn't done.
-             * This is to keep its state from affecting that of its parent.
-             */
-            gn->made = MADE;
+        /*
+         * First mark ourselves to be made, then apply whatever transformations
+         * the suffix module thinks are necessary. Once that's done, we can
+         * descend and make all our children. If any of them has an error
+         * but the -k flag was given, our 'make' field will be set FALSE again.
+         * This is our signal to not attempt to do anything but abort our
+         * parent as well.
+         */
+        gn->make = TRUE;
+        gn->made = BEINGMADE;
+        Suff_FindDeps (gn);
+        Lst_ForEach (gn->children, CompatMake, (ClientData)gn);
+        if (!gn->make) {
+            gn->made = ABORTED;
+            pgn->make = FALSE;
+            return (0);
+        }
+
+        if (Lst_Member (gn->iParents, pgn) != NILLNODE) {
+            char *p1;
+            Var_Set (IMPSRC, Var_Value(TARGET, gn, &p1), pgn);
+            efree(p1);
+        }
+
+        /*
+         * All the children were made ok. Now cmtime contains the modification
+         * time of the newest child, we need to find out if we exist and when
+         * we were modified last. The criteria for datedness are defined by the
+         * Make_OODate function.
+         */
+        if (DEBUG(MAKE)) {
+            printf("Examining %s...", gn->name);
+        }
+        if (! Make_OODate(gn)) {
+            gn->made = UPTODATE;
+            if (DEBUG(MAKE)) {
+                printf("up-to-date.\n");
+            }
+            return (0);
+        } else if (DEBUG(MAKE)) {
+            printf("out-of-date.\n");
+        }
+
+        /*
+         * If the user is just seeing if something is out-of-date, exit now
+         * to tell him/her "yes".
+         */
+        if (queryFlag) {
+            exit (-1);
+        }
+
+        /*
+         * We need to be re-made. We also have to make sure we've got a $?
+         * variable. To be nice, we also define the $> variable using
+         * Make_DoAllVar().
+         */
+        Make_DoAllVar(gn);
+
+        /*
+         * Alter our type to tell if errors should be ignored or things
+         * should not be printed so CompatRunCommand knows what to do.
+         */
+        if (Targ_Ignore (gn)) {
+            gn->type |= OP_IGNORE;
+        }
+        if (Targ_Silent (gn)) {
+            gn->type |= OP_SILENT;
+        }
+
+        if (Job_CheckCommands (gn, Fatal)) {
+            /*
+             * Our commands are ok, but we still have to worry about the -t
+             * flag...
+             */
+            if (!touchFlag) {
+                curTarg = gn;
+                Lst_ForEach (gn->commands, CompatRunCommand, (ClientData)gn);
+                curTarg = NILGNODE;
+            } else {
+                Job_Touch (gn, gn->type & OP_SILENT);
+            }
+        } else {
+            gn->made = ERROR;
+        }
+
+        if (gn->made != ERROR) {
+            /*
+             * If the node was made successfully, mark it so, update
+             * its modification time and timestamp all its parents. Note
+             * that for .ZEROTIME targets, the timestamping isn't done.
+             * This is to keep its state from affecting that of its parent.
+             */
+            gn->made = MADE;
 #ifndef RECHECK
-            /*
-             * We can't re-stat the thing, but we can at least take care of
-             * rules where a target depends on a source that actually creates
-             * the target, but only if it has changed, e.g.
-             *
-             * parse.h : parse.o
-             *
-             * parse.o : parse.y
-             *          yacc -d parse.y
-             *          cc -c y.tab.c
-             *          mv y.tab.o parse.o
-             *          cmp -s y.tab.h parse.h || mv y.tab.h parse.h
-             *
-             * In this case, if the definitions produced by yacc haven't
-             * changed from before, parse.h won't have been updated and
-             * gn->mtime will reflect the current modification time for
-             * parse.h. This is something of a kludge, I admit, but it's a
-             * useful one..
-             *
-             * XXX: People like to use a rule like
-             *
-             * FRC:
-             *
-             * To force things that depend on FRC to be made, so we have to
-             * check for gn->children being empty as well...
-             */
-            if (!Lst_IsEmpty(gn->commands) || Lst_IsEmpty(gn->children)) {
-                gn->mtime = now;
-            }
+            /*
+             * We can't re-stat the thing, but we can at least take care of
+             * rules where a target depends on a source that actually creates
+             * the target, but only if it has changed, e.g.
+             *
+             * parse.h : parse.o
+             *
+             * parse.o : parse.y
+             *          yacc -d parse.y
+             *          cc -c y.tab.c
+             *          mv y.tab.o parse.o
+             *          cmp -s y.tab.h parse.h || mv y.tab.h parse.h
+             *
+             * In this case, if the definitions produced by yacc haven't
+             * changed from before, parse.h won't have been updated and
+             * gn->mtime will reflect the current modification time for
+             * parse.h. This is something of a kludge, I admit, but it's a
+             * useful one..
+             *
+             * XXX: People like to use a rule like
+             *
+             * FRC:
+             *
+             * To force things that depend on FRC to be made, so we have to
+             * check for gn->children being empty as well...
+             */
+            if (!Lst_IsEmpty(gn->commands) || Lst_IsEmpty(gn->children)) {
+                gn->mtime = now;
+            }
 #else
-            /*
-             * This is what Make does and it's actually a good thing, as it
-             * allows rules like
-             *
-             *  cmp -s y.tab.h parse.h || cp y.tab.h parse.h
-             *
-             * to function as intended. Unfortunately, thanks to the stateless
-             * nature of NFS (and the speed of this program), there are times
-             * when the modification time of a file created on a remote
-             * machine will not be modified before the stat() implied by
-             * the Dir_MTime occurs, thus leading us to believe that the file
-             * is unchanged, wreaking havoc with files that depend on this one.
-             *
-             * I have decided it is better to make too much than to make too
-             * little, so this stuff is commented out unless you're sure it's
-             * ok.
-             * -- ardeb 1/12/88
-             */
-            if (noExecute || Dir_MTime(gn) == 0) {
-                gn->mtime = now;
-            }
-            if (gn->cmtime > gn->mtime)
-                gn->mtime = gn->cmtime;
-            if (DEBUG(MAKE)) {
-                printf("update time: %s\n", Targ_FmtTime(gn->mtime));
-            }
+            /*
+             * This is what Make does and it's actually a good thing, as it
+             * allows rules like
+             *
+             *  cmp -s y.tab.h parse.h || cp y.tab.h parse.h
+             *
+             * to function as intended. Unfortunately, thanks to the stateless
+             * nature of NFS (and the speed of this program), there are times
+             * when the modification time of a file created on a remote
+             * machine will not be modified before the stat() implied by
+             * the Dir_MTime occurs, thus leading us to believe that the file
+             * is unchanged, wreaking havoc with files that depend on this one.
+             *
+             * I have decided it is better to make too much than to make too
+             * little, so this stuff is commented out unless you're sure it's
+             * ok.
+             * -- ardeb 1/12/88
+             */
+            if (noExecute || Dir_MTime(gn) == 0) {
+                gn->mtime = now;
+            }
+            if (gn->cmtime > gn->mtime)
+                gn->mtime = gn->cmtime;
+            if (DEBUG(MAKE)) {
+                printf("update time: %s\n", Targ_FmtTime(gn->mtime));
+            }
 #endif
-            if (!(gn->type & OP_EXEC)) {
-                pgn->childMade = TRUE;
-                Make_TimeStamp(pgn, gn);
-            }
-        } else if (keepgoing) {
-            pgn->make = FALSE;
-        } else {
-            char *p1;
-
-            printf ("\n\nStop in %s.\n", Var_Value(".CURDIR", gn, &p1));
-            efree(p1);
-            exit (1);
-        }
+            if (!(gn->type & OP_EXEC)) {
+                pgn->childMade = TRUE;
+                Make_TimeStamp(pgn, gn);
+            }
+        } else if (keepgoing) {
+            pgn->make = FALSE;
+        } else {
+            char *p1;
+
+            printf ("\n\nStop in %s.\n", Var_Value(".CURDIR", gn, &p1));
+            efree(p1);
+            exit (1);
+        }
     } else if (gn->made == ERROR) {
-        /*
-         * Already had an error when making this beastie. Tell the parent
-         * to abort.
-         */
-        pgn->make = FALSE;
+        /*
+         * Already had an error when making this beastie. Tell the parent
+         * to abort.
+         */
+        pgn->make = FALSE;
     } else {
-        if (Lst_Member (gn->iParents, pgn) != NILLNODE) {
-            char *p1;
-            Var_Set (IMPSRC, Var_Value(TARGET, gn, &p1), pgn);
-            efree(p1);
-        }
-        switch(gn->made) {
-            case BEINGMADE:
-                Error("Graph cycles through %s\n", gn->name);
-                gn->made = ERROR;
-                pgn->make = FALSE;
-                break;
-            case MADE:
-                if ((gn->type & OP_EXEC) == 0) {
-                    pgn->childMade = TRUE;
-                    Make_TimeStamp(pgn, gn);
-                }
-                break;
-            case UPTODATE:
-                if ((gn->type & OP_EXEC) == 0) {
-                    Make_TimeStamp(pgn, gn);
-                }
-                break;
-            default:
-                break;
-        }
+        if (Lst_Member (gn->iParents, pgn) != NILLNODE) {
+            char *p1;
+            Var_Set (IMPSRC, Var_Value(TARGET, gn, &p1), pgn);
+            efree(p1);
+        }
+        switch(gn->made) {
+            case BEINGMADE:
+                Error("Graph cycles through %s\n", gn->name);
+                gn->made = ERROR;
+                pgn->make = FALSE;
+                break;
+            case MADE:
+                if ((gn->type & OP_EXEC) == 0) {
+                    pgn->childMade = TRUE;
+                    Make_TimeStamp(pgn, gn);
+                }
+                break;
+            case UPTODATE:
+                if ((gn->type & OP_EXEC) == 0) {
+                    Make_TimeStamp(pgn, gn);
+                }
+                break;
+            default:
+                break;
+        }
     }
 
@@ -652 +653 @@
  *-----------------------------------------------------------------------
  * Compat_Run --
- *      Initialize this mode and start making.
+ *      Initialize this mode and start making.
  *
  * Results:
- *      None.
+ *      None.
  *
  * Side Effects:
- *      Guess what?
+ *      Guess what?
  *
  *-----------------------------------------------------------------------
@@ -664 +665 @@
 void
 Compat_Run(targs)
-    Lst           targs;    /* List of target nodes to re-create */
+    Lst           targs;    /* List of target nodes to re-create */
 {
-    char          *cp;      /* Pointer to string of shell meta-characters */
-    GNode         *gn = NULL;/* Current root target */
-    int           errors;   /* Number of targets not remade due to errors */
+    char          *cp;      /* Pointer to string of shell meta-characters */
+    GNode         *gn = NULL;/* Current root target */
+    int           errors;   /* Number of targets not remade due to errors */
 
     if (signal(SIGINT, SIG_IGN) != SIG_IGN) {
-        signal(SIGINT, CompatInterrupt);
+        signal(SIGINT, CompatInterrupt);
     }
     if (signal(SIGTERM, SIG_IGN) != SIG_IGN) {
-        signal(SIGTERM, CompatInterrupt);
+        signal(SIGTERM, CompatInterrupt);
     }
     #if !(defined(OS2) && defined(__IBMC__))
     if (signal(SIGHUP, SIG_IGN) != SIG_IGN) {
-        signal(SIGHUP, CompatInterrupt);
+        signal(SIGHUP, CompatInterrupt);
     }
     #endif
     #if !(defined(OS2) && defined(__IBMC__))
     if (signal(SIGQUIT, SIG_IGN) != SIG_IGN) {
-        signal(SIGQUIT, CompatInterrupt);
+        signal(SIGQUIT, CompatInterrupt);
     }
     #endif
 
     for (cp = "#=|^(){};&<>*?[]:$`\\\n"; *cp != '\0'; cp++) {
-        meta[(unsigned char) *cp] = 1;
+        meta[(unsigned char) *cp] = 1;
     }
     /*
@@ -701 +702 @@
      */
     if (!queryFlag) {
-        gn = Targ_FindNode(".BEGIN", TARG_NOCREATE);
-        if (gn != NILGNODE) {
-            Lst_ForEach(gn->commands, CompatRunCommand, (ClientData)gn);
+        gn = Targ_FindNode(".BEGIN", TARG_NOCREATE);
+        if (gn != NILGNODE) {
+            Lst_ForEach(gn->commands, CompatRunCommand, (ClientData)gn);
             if (gn->made == ERROR) {
                 printf("\n\nStop.\n");
                 exit(1);
             }
-        }
+        }
     }
 
@@ -715 +716 @@
      * it to create the thing. CompatMake will leave the 'made' field of gn
      * in one of several states:
-     *      UPTODATE        gn was already up-to-date
-     *      MADE            gn was recreated successfully
-     *      ERROR           An error occurred while gn was being created
-     *      ABORTED         gn was not remade because one of its inferiors
-     *                      could not be made due to errors.
+     *      UPTODATE        gn was already up-to-date
+     *      MADE            gn was recreated successfully
+     *      ERROR           An error occurred while gn was being created
+     *      ABORTED         gn was not remade because one of its inferiors
+     *                      could not be made due to errors.
      */
     errors = 0;
     while (!Lst_IsEmpty (targs)) {
-        gn = (GNode *) Lst_DeQueue (targs);
-        CompatMake (gn, gn);
-
-        if (gn->made == UPTODATE) {
-            printf ("`%s' is up to date.\n", gn->name);
-        } else if (gn->made == ABORTED) {
-            printf ("`%s' not remade because of errors.\n", gn->name);
-            errors += 1;
-        }
+        gn = (GNode *) Lst_DeQueue (targs);
+        CompatMake (gn, gn);
+
+        if (gn->made == UPTODATE) {
+            printf ("`%s' is up to date.\n", gn->name);
+        } else if (gn->made == ABORTED) {
+            printf ("`%s' not remade because of errors.\n", gn->name);
+            errors += 1;
+        }
     }
 
@@ -738 +739 @@
      */
     if (errors == 0) {
-        Lst_ForEach(ENDNode->commands, CompatRunCommand, (ClientData)gn);
+        Lst_ForEach(ENDNode->commands, CompatRunCommand, (ClientData)gn);
     }
 }