home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bsd / src / make / make-amiga / make.c < prev    next >
C/C++ Source or Header  |  1993-09-23  |  27KB  |  848 lines
  1. /*
  2.  * Copyright (c) 1988, 1989, 1990 The Regents of the University of California.
  3.  * Copyright (c) 1988, 1989 by Adam de Boor
  4.  * Copyright (c) 1989 by Berkeley Softworks
  5.  * All rights reserved.
  6.  *
  7.  * This code is derived from software contributed to Berkeley by
  8.  * Adam de Boor.
  9.  *
  10.  * Redistribution and use in source and binary forms, with or without
  11.  * modification, are permitted provided that the following conditions
  12.  * are met:
  13.  * 1. Redistributions of source code must retain the above copyright
  14.  *    notice, this list of conditions and the following disclaimer.
  15.  * 2. Redistributions in binary form must reproduce the above copyright
  16.  *    notice, this list of conditions and the following disclaimer in the
  17.  *    documentation and/or other materials provided with the distribution.
  18.  * 3. All advertising materials mentioning features or use of this software
  19.  *    must display the following acknowledgement:
  20.  *    This product includes software developed by the University of
  21.  *    California, Berkeley and its contributors.
  22.  * 4. Neither the name of the University nor the names of its contributors
  23.  *    may be used to endorse or promote products derived from this software
  24.  *    without specific prior written permission.
  25.  *
  26.  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  27.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  28.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  29.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  30.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  31.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  32.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  33.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  34.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  35.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  36.  * SUCH DAMAGE.
  37.  */
  38.  
  39. #ifndef lint
  40. static char sccsid[] = "@(#)make.c    5.3 (Berkeley) 6/1/90";
  41. #endif /* not lint */
  42.  
  43. /*-
  44.  * make.c --
  45.  *    The functions which perform the examination of targets and
  46.  *    their suitability for creation
  47.  *
  48.  * Interface:
  49.  *    Make_Run             Initialize things for the module and recreate
  50.  *                          whatever needs recreating. Returns TRUE if
  51.  *                            work was (or would have been) done and FALSE
  52.  *                          otherwise.
  53.  *
  54.  *    Make_Update            Update all parents of a given child. Performs
  55.  *                          various bookkeeping chores like the updating
  56.  *                          of the cmtime field of the parent, filling
  57.  *                          of the IMPSRC context variable, etc. It will
  58.  *                          place the parent on the toBeMade queue if it
  59.  *                          should be.
  60.  *
  61.  *    Make_TimeStamp            Function to set the parent's cmtime field
  62.  *                          based on a child's modification time.
  63.  *
  64.  *    Make_DoAllVar            Set up the various local variables for a
  65.  *                          target, including the .ALLSRC variable, making
  66.  *                          sure that any variable that needs to exist
  67.  *                          at the very least has the empty value.
  68.  *
  69.  *    Make_OODate             Determine if a target is out-of-date.
  70.  *
  71.  *    Make_HandleUse            See if a child is a .USE node for a parent
  72.  *                and perform the .USE actions if so.
  73.  */
  74.  
  75. #include    "make.h"
  76.  
  77. static Lst         toBeMade;    /* The current fringe of the graph. These
  78.                  * are nodes which await examination by
  79.                  * MakeOODate. It is added to by
  80.                  * Make_Update and subtracted from by
  81.                  * MakeStartJobs */
  82. static int      numNodes;       /* Number of nodes to be processed. If this
  83.                  * is non-zero when Job_Empty() returns
  84.                  * TRUE, there's a cycle in the graph */
  85.  
  86. /*-
  87.  *-----------------------------------------------------------------------
  88.  * Make_TimeStamp --
  89.  *    Set the cmtime field of a parent node based on the mtime stamp in its
  90.  *    child. Called from MakeOODate via Lst_ForEach. 
  91.  *
  92.  * Results:
  93.  *    Always returns 0. 
  94.  *
  95.  * Side Effects:
  96.  *    The cmtime of the parent node will be changed if the mtime
  97.  *    field of the child is greater than it.
  98.  *-----------------------------------------------------------------------
  99.  */
  100. int
  101. Make_TimeStamp (pgn, cgn)
  102.     register GNode *pgn;    /* the current parent */
  103.     register GNode *cgn;    /* the child we've just examined */
  104. {
  105.     if (cgn->mtime > pgn->cmtime) {
  106.     pgn->cmtime = cgn->mtime;
  107.     }
  108.     return (0);
  109. }
  110.  
  111. /*-
  112.  *-----------------------------------------------------------------------
  113.  * Make_OODate --
  114.  *    See if a given node is out of date with respect to its sources.
  115.  *    Used by Make_Run when deciding which nodes to place on the
  116.  *    toBeMade queue initially and by Make_Update to screen out USE and
  117.  *    EXEC nodes. In the latter case, however, any other sort of node
  118.  *    must be considered out-of-date since at least one of its children
  119.  *    will have been recreated.
  120.  *
  121.  * Results:
  122.  *    TRUE if the node is out of date. FALSE otherwise. 
  123.  *
  124.  * Side Effects:
  125.  *    The mtime field of the node and the cmtime field of its parents
  126.  *    will/may be changed.
  127.  *-----------------------------------------------------------------------
  128.  */
  129. Boolean
  130. Make_OODate (gn)
  131.     register GNode *gn;          /* the node to check */
  132. {
  133.     Boolean         oodate;
  134.  
  135.     /*
  136.      * Certain types of targets needn't even be sought as their datedness
  137.      * doesn't depend on their modification time...
  138.      */
  139.     if ((gn->type & (OP_JOIN|OP_USE|OP_EXEC)) == 0) {
  140.     (void) Dir_MTime (gn);
  141.     if (DEBUG(MAKE)) {
  142.         if (gn->mtime != 0) {
  143.         printf ("modified %s...", Targ_FmtTime(gn->mtime));
  144.         } else {
  145.         printf ("non-existent...");
  146.         }
  147.     }
  148.     }
  149.  
  150.     /*
  151.      * A target is remade in one of the following circumstances:
  152.      *    its modification time is smaller than that of its youngest child
  153.      *        and it would actually be run (has commands or type OP_NOP)
  154.      *    it's the object of a force operator
  155.      *    it has no children, was on the lhs of an operator and doesn't exist
  156.      *        already.
  157.      *
  158.      * Libraries are only considered out-of-date if the archive module says
  159.      * they are.
  160.      *
  161.      * These weird rules are brought to you by Backward-Compatability and
  162.      * the strange people who wrote 'Make'.
  163.      */
  164.     if (gn->type & OP_USE) {
  165.     /*
  166.      * If the node is a USE node it is *never* out of date
  167.      * no matter *what*.
  168.      */
  169.     if (DEBUG(MAKE)) {
  170.         printf(".USE node...");
  171.     }
  172.     oodate = FALSE;
  173.     } else if (gn->type & OP_LIB) {
  174.     if (DEBUG(MAKE)) {
  175.         printf("library...");
  176.     }
  177.     oodate = Arch_LibOODate (gn);
  178.     } else if (gn->type & OP_JOIN) {
  179.     /*
  180.      * A target with the .JOIN attribute is only considered
  181.      * out-of-date if any of its children was out-of-date.
  182.      */
  183.     if (DEBUG(MAKE)) {
  184.         printf(".JOIN node...");
  185.     }
  186.     oodate = gn->childMade;
  187.     } else if (gn->type & (OP_FORCE|OP_EXEC)) {
  188.     /*
  189.      * A node which is the object of the force (!) operator or which has
  190.      * the .EXEC attribute is always considered out-of-date.
  191.      */
  192.     if (DEBUG(MAKE)) {
  193.         if (gn->type & OP_FORCE) {
  194.         printf("! operator...");
  195.         } else {
  196.         printf(".EXEC node...");
  197.         }
  198.     }
  199.     oodate = TRUE;
  200.     } else if ((gn->mtime < gn->cmtime) ||
  201.            ((gn->cmtime == 0) &&
  202.         ((gn->mtime==0) || (gn->type & OP_DOUBLEDEP))))
  203.     {
  204.     /*
  205.      * A node whose modification time is less than that of its
  206.      * youngest child or that has no children (cmtime == 0) and
  207.      * either doesn't exist (mtime == 0) or was the object of a
  208.      * :: operator is out-of-date. Why? Because that's the way Make does
  209.      * it.
  210.      */
  211.     if (DEBUG(MAKE)) {
  212.         if (gn->mtime < gn->cmtime) {
  213.         printf("modified before source...");
  214.         } else if (gn->mtime == 0) {
  215.         printf("non-existent and no sources...");
  216.         } else {
  217.         printf(":: operator and no sources...");
  218.         }
  219.     }
  220.     oodate = TRUE;
  221.     } else {
  222. #if 0
  223.     /* WHY? */
  224.     if (DEBUG(MAKE)) {
  225.         printf("source %smade...", gn->childMade ? "" : "not ");
  226.     }
  227.     oodate = gn->childMade;
  228. #else
  229.     oodate = FALSE;
  230. #endif /* 0 */
  231.     }
  232.  
  233.     /*
  234.      * If the target isn't out-of-date, the parents need to know its
  235.      * modification time. Note that targets that appear to be out-of-date
  236.      * but aren't, because they have no commands and aren't of type OP_NOP,
  237.      * have their mtime stay below their chi