dmake/stat.c

   1 /* RCS  $Id: stat.c,v 1.3 2007-10-15 15:41:38 ihi Exp $
   2 --
   3 -- SYNOPSIS
   4 --      Bind a target name to a file.
   5 --
   6 -- DESCRIPTION
   7 --  This file contains the code to go and stat a target.  The stat rules
   8 --  follow a predefined order defined in the comment for Stat_target.
   9 --
  10 -- AUTHOR
  11 --      Dennis Vadura, dvadura@dmake.wticorp.com
  12 --
  13 -- WWW
  14 --      http://dmake.wticorp.com/
  15 --
  16 -- COPYRIGHT
  17 --      Copyright (c) 1996,1997 by WTI Corp.  All rights reserved.
  18 --
  19 --      This program is NOT free software; you can redistribute it and/or
  20 --      modify it under the terms of the Software License Agreement Provided
  21 --      in the file <distribution-root>/readme/license.txt.
  22 --
  23 -- LOG
  24 --      Use cvs log to obtain detailed change logs.
  25 */
  26
  27 #include "extern.h"
  28
  29
  30 static  int _check_dir_list ANSI((CELLPTR, CELLPTR, int, int));
  31
  32 #ifdef DBUG
  33    /* Just a little ditty for debugging this thing */
  34    static time_t
  35    _do_stat( name, lib, sym, force )
  36    char *name;
  37    char *lib;
  38    char **sym;
  39    int  force;
  40    {
  41       time_t res;
  42       DB_ENTER( "_do_stat" );
  43
  44       res = Do_stat(name, lib, sym, force);
  45       DB_PRINT( "stat", ("Statted [%s,%s,%d,%ld]", name, lib, sym, res) );
  46
  47       DB_RETURN( res );
  48    }
  49 #define DO_STAT(A,B,C,D)  _do_stat(A,B,C,D)
  50 #else
  51 #define DO_STAT(A,B,C,D)  Do_stat(A,B,C,D)
  52 #endif
  53
  54 static char *_first;    /* If set this variable saves the first pathname that was
  55              * used to stat the target in, if subsequently a match is
  56              * found it is overridden by the matched path name. */
  57
  58 PUBLIC void
  59 Stat_target( cp, setfname, force )/*
  60 ====================================
  61     Stat a target.  When doing so follow the following rules, suppose
  62     that cp->CE_NAME points at a target called fred.o:
  63     (See also man page: BINDING TARGETS)
  64
  65         0.      If A_SYMBOL attribute set look into the library
  66             then do the steps 1 thru 4 on the resulting name.
  67         1.  Try path's obtained by prepending any dirs found as
  68             prerequisites for .SOURCE.o.
  69         2.  If not found, do same as 2 but use .SOURCE
  70             The predefined '.SOURCE  : .NULL' targets takes care
  71             of local/absolute paths.
  72         3.  If not found and .LIBRARYM attribute for the target is
  73             set then look for it in the corresponding library.
  74             4.  If found in step 0 thru 3, then ce_fname points at
  75             file name associate with target, else ce_fname points
  76             at a file name built by the first .SOURCE* dir that
  77             applied.
  78     If setfname is != 0 this tells _check_dir_list() to set the static
  79     _first variable. setfname also controls the use of _first.
  80     If it is -1 ce_fname (the file name associated with target) is only
  81     set if a matching file was found and statted, if it is 1 ce_fname
  82     is set to _first even if target doesn't exist yet.
  83
  84     If force is TRUE really stat the target. Do not use the directory
  85     cache but update the files entry if it's enabled. */
  86
  87 CELLPTR cp;
  88 int     setfname;
  89 int     force;
  90 {
  91    register HASHPTR hp;
  92    static   HASHPTR srchp = NIL(HASH);
  93    char         *name;
  94    char         *tmp;
  95    int          res = 0;
  96
  97    DB_ENTER( "Stat_target" );
  98
  99    name = cp->CE_NAME;
 100    DB_PRINT( "stat", ("called on [%s]", name) );
 101
 102    if( srchp == NIL(HASH) ) srchp = Get_name(".SOURCE",Defs,FALSE);
 103
 104    /* Look for a symbol of the form lib((symbol)) the name of the symbol
 105     * as entered in the hash table is (symbol) so pull out symbol and try
 106     * to find it's module.  If successful DO_STAT will return the module
 107     * as well as the archive member name (pointed at by tmp).  We then
 108     * replace the symbol name with the archive member name so that we
 109     * have the proper name for any future refrences. */
 110
 111    if( cp->ce_attr & A_SYMBOL ) {
 112       DB_PRINT( "stat", ("Binding lib symbol [%s]", name) );
 113
 114       cp->ce_time = DO_STAT( name, cp->ce_lib, &tmp, force );
 115
 116       if( cp->ce_time != (time_t) 0L ) {
 117      /* stat the new member name below  note tmp must point at a string
 118       * returned by MALLOC... ie. the Do_stat code should use DmStrDup */
 119
 120      if( Verbose & V_MAKE )
 121         printf( "%s:  Mapped ((%s)) to %s(%s)\n", Pname,
 122              name, cp->ce_lib, tmp );
 123
 124          FREE( name );
 125      name = cp->CE_NAME = tmp;
 126      cp->ce_attr &= ~(A_FFNAME | A_SYMBOL);
 127       }
 128       else
 129          { DB_VOID_RETURN; }
 130    }
 131
 132    _first = NIL(char);
 133    tmp = DmStrJoin( ".SOURCE", Get_suffix(name), -1, FALSE);
 134
 135    /* Check .SOURCE.xxx target */
 136    if( (hp = Get_name(tmp, Defs, FALSE)) != NIL(HASH) )
 137       res = _check_dir_list( cp, hp->CP_OWNR, setfname, force );
 138
 139    /* Check just .SOURCE */
 140    if( !res && (srchp != NIL(HASH)) )
 141       res = _check_dir_list( cp, srchp->CP_OWNR, setfname, force );
 142
 143    /* If libmember and we haven't found it check the library */
 144    if( !res && (cp->ce_attr & A_LIBRARYM) ) {
 145       cp->ce_time = DO_STAT(name, cp->ce_lib, NIL(char *), force);
 146
 147       if( !cp->ce_time && Tmd && *Tmd && cp->ce_lib ) {
 148      char *tmplib;
 149      tmplib=DmStrDup(Build_path(Tmd,cp->ce_lib));
 150
 151      if ((cp->ce_time = DO_STAT(name, tmplib, NIL(char *),force)) != (time_t)0L){
 152         cp->ce_lib=DmStrDup(tmplib);
 153      }
 154       }
 155
 156       if( Verbose & V_MAKE )
 157      printf( "%s:  Checking library '%s' for member [%s], time %ld\n",
 158          Pname, cp->ce_lib, name, cp->ce_time );
 159    }
 160
 161    FREE( tmp );
 162
 163    if( setfname == 1 || (setfname == -1 && cp->ce_time != (time_t)0L) ) {
 164       int setlib = (cp->ce_lib == cp->ce_fname);
 165
 166       if( (cp->ce_attr & A_FFNAME) && (cp->ce_fname != NIL(char)) )
 167      FREE( cp->ce_fname );
 168
 169       if( _first != NIL(char) ) {
 170      cp->ce_fname = _first;
 171      cp->ce_attr |= A_FFNAME;
 172       }
 173       else {
 174      cp->ce_fname = cp->CE_NAME;
 175      cp->ce_attr &= ~A_FFNAME;
 176       }
 177
 178       if ( setlib ) cp->ce_lib = cp->ce_fname;
 179    }
 180    else if( _first )
 181       FREE( _first );
 182
 183    /* set it as stated only if successful, this way, we shall try again
 184     * later. */
 185    if( cp->ce_time != (time_t)0L ) {
 186       cp->ce_flag |= F_STAT;
 187
 188       /* If it is a whatif this changed scenario then return the current
 189        * time, but do so only if the stat was successful. */
 190       if ( (cp->ce_attr & A_WHATIF) && !(cp->ce_flag & F_MADE) ) {
 191      cp->ce_time = Do_time();
 192       }
 193    }
 194
 195    DB_VOID_RETURN;
 196 }
 197
 198
 199 static int
 200 _check_dir_list( cp, sp, setfname, force )/*
 201 ============================================
 202     Check the list of dir's given by the prerequisite list of sp, for a
 203     file pointed at by cp.  Returns 0 if path not bound, else returns
 204     1 and replaces old name for cell with new cell name. */
 205
 206 CELLPTR cp;
 207 CELLPTR sp;
 208 int     setfname;
 209 int     force;
 210 {
 211    /* FIXME: BCC 5.0 BUG??? If lp is assigned to a register variable then
 212     *        BCC 5.0 corrupts a field of the member structure when DO_STAT
 213     *        calls the native win95 stat system call. Blech!!!
 214     *
 215     *        Making this a static variable forces it out of a register and
 216     *        seems to avoid the problem. */
 217    static LINKPTR lp;
 218    char *dir;
 219    char *path;
 220    char *name;
 221    int  res  = 0;
 222    int  fset = 0;
 223
 224    DB_ENTER( "_check_dir_list" );
 225    DB_PRINT( "mem", ("%s:-> mem %ld", cp->CE_NAME, (long) coreleft()) );
 226
 227    if( sp->ce_prq != NIL(LINK) )    /* check prerequisites if any */
 228    {
 229       /* Use the real name instead of basename, this prevents silly
 230        * loops in inference code, and is consistent with man page */
 231       name = cp->CE_NAME;
 232
 233       /* Here we loop through each directory on the list, and try to stat
 234        * the target.  We always save the first pathname we try to stat in
 235        * _first.  If we subsequently get a match we then replace the value of
 236        * _first by the matched path name.  */
 237
 238       for( lp=sp->CE_PRQ; lp != NIL(LINK) && !res; lp=lp->cl_next ) {
 239      int  nodup = 0;
 240      dir  = lp->cl_prq->CE_NAME;
 241
 242      if( strchr( dir, '$' ) ) dir = Expand(dir);
 243      if( strcmp( dir, ".NULL" ) == 0 ) {
 244         nodup = 1;
 245         path = cp->CE_NAME;
 246      }   else {
 247         path = DmStrDup(Build_path(dir,name));
 248      }
 249
 250      res = ((cp->ce_time=DO_STAT(path,NIL(char),NIL(char *),force))!=(time_t)0L);
 251
 252      /* Have to use DmStrDup to set _first since Build_path, builds it's
 253       * path names inside a static buffer. */
 254      if( setfname )
 255         if( (_first == NIL(char) && !fset) || res ) {
 256            if( _first != NIL(char) ) FREE( _first );
 257            if (nodup)
 258           _first = NIL(char);
 259            else {
 260           _first = path;
 261           path = NIL(char);
 262            }
 263            fset = 1;
 264         }
 265
 266      DB_PRINT( "stat", ("_first [%s], path [%s]", _first, path) );
 267      if( dir != lp->cl_prq->CE_NAME )  FREE(dir);
 268      if( path && path != cp->CE_NAME ) FREE(path);
 269       }
 270    }
 271
 272    DB_PRINT( "mem", ("%s:-< mem %ld", cp->CE_NAME, (long) coreleft()) );
 273    DB_RETURN( res );
 274 }
 275
 276
 277
 278