Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume19/shape/part25

Internet Message Format | 1989-05-31 | 29.8 KB

Subject:  v19i038:  A software configuration management system, Part25/33
Newsgroups: comp.sources.unix
Sender: sources
Approved: [e-mail]

Submitted-by: Axel Mahler <unido!coma!axel>
Posting-number: Volume 19, Issue 38
Archive-name: shape/part25



#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#        "End of archive 25 (of 33)."
# Contents:  src/shape/produce.c
# Wrapped by [e-mail] on Thu Jun  1 19:27:16 1989
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'src/shape/produce.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'src/shape/produce.c'\"
else
echo shar: Extracting \"'src/shape/produce.c'\" \(27571 characters\)
sed "s/^X//" >'src/shape/produce.c' <<'END_OF_FILE'
X/*
X * Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
X *  and U. Pralle
X *
X * This software is published on an as-is basis. There is ABSOLUTELY NO
X * WARRANTY for any part of this software to work correctly or as described
X * in the manuals. We do not accept any liability for any kind of damage
X * caused by use of this software, such as loss of data, time, money, or
X * effort.
X *
X * Permission is granted to use, copy, modify, or distribute any part of
X * this software as long as this is done without asking for charge, and
X * provided that this copyright notice is retained as part of the source
X * files. You may charge a distribution fee for the physical act of
X * transferring a copy, and you may at your option offer warranty
X * protection in exchange for a fee.
X *
X * Direct questions to: Tech. Univ. Berlin
X *              Wilfried Koch
X *              Sekr. FR 5-6
X *              Franklinstr. 28/29
X *              D-1000 Berlin 10, West Germany
X *
X *              Tel: [phone]
X *              E-mail: [e-mail] or [e-mail]
X */
X#ifndef lint
Xstatic char *RCSid = "$Header: produce.c,v 3.4 89/02/21 17:11:28 wolfgang Exp $";
X#endif
X#ifndef lint
Xstatic char *ConfFlg = CFFLGS;    /* should be defined from within Makefile */
X#endif
X/*
X * $Log:    produce.c,v $
X * Revision 3.4  89/02/21  17:11:28  wolfgang
X * bug fixed
X *
X * Revision 3.3  89/02/20  16:26:17  wolfgang
X * NET-RELEASE
X *
X * Revision 3.2  89/02/14  21:20:51  wolfgang
X * bug fixed.
X *
X * Revision 3.1  89/02/08  12:45:15  wolfgang
X * performance improved.
X *
X * Revision 3.0  89/01/24  11:36:19  wolfgang
X * New System Generation
X *
X * Revision 2.39  89/01/19  12:37:14  wolfgang
X * .DEFAULT added.
X *
X * Revision 2.38  89/01/18  13:40:59  wolfgang
X * bug fixed: if -n specified the message 'target is up to date' was printed out
X *
X * Revision 2.37  89/01/13  12:38:37  wolfgang
X * bug fixed. -k option doesn't work correct.
X *
X * Revision 2.36  89/01/03  13:12:35  wolfgang
X * changes done for lint
X *
X * Revision 2.35  88/12/22  13:23:38  wolfgang
X * error_occ added.
X *
X * Revision 2.34  88/12/22  12:33:40  wolfgang
X * bug fixed. handling of -k option has not been correct.
X * call of cleanup_links added.
X *
X * Revision 2.33  88/12/21  15:11:21  wolfgang
X * changes done for lint
X *
X * Revision 2.32  88/12/12  13:15:07  wolfgang
X * bug fixed. single suffix rules didn't work
X *
X * Revision 2.31  88/11/24  12:08:05  wolfgang
X * Argument for -confid *must* now be a target name.
X *
X * Revision 2.30  88/11/21  20:54:56  wolfgang
X * changes done for sun
X *
X * Revision 2.29  88/11/21  15:50:07  wolfgang
X * return code of all malloc's checked
X *
X * Revision 2.28  88/11/09  16:27:05  wolfgang
X * inheritage changed.
X *
X * Revision 2.27  88/10/27  16:37:04  wolfgang
X * bugs fixed (new variant handling).
X *
X * Revision 2.26  88/10/26  13:12:45  wolfgang
X * changes done for new syntax of variant deps.
X *
X * Revision 2.25  88/10/24  16:20:25  wolfgang
X * calls of reduce_path_and_flags() deleted
X *
X * Revision 2.24  88/10/21  14:56:42  wolfgang
X * calls of attrvar added.
X *
X * Revision 2.23  88/10/18  17:40:24  wolfgang
X * changes done for new variant handling
X *
X * Revision 2.22  88/10/10  16:53:24  wolfgang
X * changes for option -t
X *
X * Revision 2.21  88/10/03  12:54:19  wolfgang
X * if via the -R option an unknown selection rule name is passed to shape, shape
X * now stops (correctly!!).
X *
X * Revision 2.20  88/09/26  14:15:40  wolfgang
X * strange bug fixed in reduce_vpath_and_vflags (perhaps a malloc problem).
X *
X * Revision 2.19  88/09/22  18:57:09  wolfgang
X * bug fixed. activ selection rule is now correct (hopefully).
X *
X * Revision 2.18  88/09/22  16:13:35  wolfgang
X * bugs fixed.
X *
X * Revision 2.17  88/09/22  10:04:04  wolfgang
X * bugs fixed. ruleset & reset vflags.
X *
X * Revision 2.16  88/09/20  10:24:53  wolfgang
X * bug fixed. segmentation violation in set_pathi due to non-initialization
X * of i.
X *
X * Revision 2.15  88/09/20  10:03:21  wolfgang
X * set_pathi() added.
X *
X * Revision 2.14  88/09/19  15:23:32  wolfgang
X * This version is part of a release
X *
X * Revision 2.13  88/09/19  14:41:42  wolfgang
X * Bugs fixed. Single suffix rules weren't evaluated corectly
X *
X * Revision 2.12  88/09/15  18:41:40  wolfgang
X * calls of set_path_and_flags deleted.
X *
X * Revision 2.11  88/09/14  14:00:26  wolfgang
X * bug fixed. variant path & flags have not been reset correctly.
X *
X * Revision 2.10  88/09/14  12:15:27  wolfgang
X * minor bug fixed.
X *
X * Revision 2.9  88/09/14  10:52:46  wolfgang
X * undone last changes
X *
X * Revision 2.8  88/09/13  09:56:29  wolfgang
X * Changes done to allow overloading of imlpicit standard rules.
X *
X * Revision 2.7  88/09/07  11:25:29  wolfgang
X * This version is part of a release
X *
X * Revision 2.6  88/08/31  12:04:00  wolfgang
X * Bugs fixed.
X *
X * Revision 2.5  88/08/25  16:03:37  wolfgang
X * Little but effectful change (the procedure select gets more and more
X * unnecessary).
X *
X * Revision 2.4  88/08/23  16:39:02  wolfgang
X * Rebuild feature added (to rebuild something from a confid).
X *
X * Revision 2.3  88/08/22  10:14:15  wolfgang
X * Changed produce(), so that it is no longer necessary to have a descrition
X * file. It's enaugh to have the name of a target to produce on the command
X * line.
X *
X * Revision 2.2  88/08/19  17:02:31  wolfgang
X * little bug fix.
X *
X * Revision 2.1  88/08/19  10:17:42  wolfgang
X * This version is part of a release
X *
X */
X
X/* $? neu machen !!!! ????? */
X
X
X#include "shape.h"
X#define MAXCMDLENGTH 1024
Xextern char *rindex();
X
XBool error_happened = FALSE;
XBool error_occ = FALSE;
X
Xextern int cleanup_links();
Xextern struct linkreg *link_reg;
Xextern int free_linklist();
Xextern void warning();
Xextern int errexit();
Xextern int hashval();
Xextern char *expandmacro();
Xextern char *repl_string();
Xextern char *get_src_name();
Xextern char *build_attrstring();
Xextern Bool compare_attrstring();
Xextern Bool exists_file();
Xextern Bool Sselect();
Xextern Bool evtl_set_busy();
Xextern Bool is_selrule_name();
Xextern Bool is_varname();
Xextern Bool attrvar();
Xextern int save_targets();
Xextern char cfname[];
Xextern struct rules *ruletab[];
Xextern int implicit_suffs[];
Xextern int pathi;
Xextern char *cmdtargets[];
Xextern char *firsttarget;
Xextern char actpath[];
Xextern char cursr[];
Xextern char *curvar[];
Xextern char *longattrs[];
Xextern char *stdselrule;
Xextern struct selection_rules *std_selrule;
Xextern struct selection_rules *currule;
Xextern int variants_active;
X
Xchar rbrule[64];
Xchar rbtarg[64];
Xchar ruleset[32];
Xchar lastcurdep[MAXNAMLEN];
X
Xchar current_dep[MAXNAMLEN];
XBool busy_done = FALSE;
XBool reallydone = FALSE;
Xint depth;
Xchar *default_targets = ".DEFAULT";
X
X
Xchar *expand_command (cmd, cur, rel_dep)
X     char *cmd;
X     struct rules *cur;
X     char *rel_dep;
X{
X  char *curdep;
X  char *comm;
X  int i = 0;
X  int j = 0;
X  int k = 0;
X  char *common_prefix;
X  char *p;
X  char *hhhp, *hhh2p;
X  char hhh[64];
X  char hhh2[64];
X  Bool ttt = FALSE;
X  char path1[MAXNAMLEN];
X  if((comm = malloc(MAXCMDLENGTH * sizeof(char))) == NIL)
X    errexit(10,"malloc");
X
X  while(cmd[i] != '\0')
X    {
X      if((cmd[i] != '$') && (cmd[i] != '%'))
X    {
X      comm[j] =  cmd[i];
X      i++;
X      j++;
X    }
X      else
X    {
X      switch (cmd[i+1])
X        {
X        case '@':
X          if (cur->name[0] != '%')
X        {
X          comm[j] = '\0';
X          (void) strcat(comm, cur->name);
X          (void) strcat(comm," ");
X          j = j + strlen(cur->name) + 1;
X          i = i + 2;
X        }
X          else
X        {
X          comm[j] = '\0';
X          (void) strcpy(hhh,rel_dep);
X          hhhp = rindex(hhh,'.');
X          if (hhhp != NIL)
X            {
X              hhhp[0] = '\0';
X            }
X          (void) strcpy(hhh2, cur->name);
X          hhh2p = rindex(hhh2,'.');
X          (void) strcat(hhh,hhh2p);
X          (void) strcat(comm, hhh);
X          (void) strcat(comm, " ");
X          j = j + strlen(hhh) + 1;
X          i = i + 2;
X        }
X
X          break;
X        case '?':
X          if (cur->deplist[0] != NIL)
X        {
X          k = 1;
X          curdep = cur->deplist[0];
X          ttt = exists_file(cur->name,0);
X          (void) strcpy(path1,actpath);
X          /*          strcpy(actpath,"");  */
X          while(curdep != NIL)
X            {
X              if (Sselect(cur->name, path1, ttt, cur->deplist[0],curdep))
X            /* if (cur->date < curdep->date)  ????? */
X            {
X              comm[j] = '\0';
X              (void) strcat(comm, curdep);
X              (void) strcat(comm," ");
X              j = j + strlen(curdep) + 1;
X            }
X              k++;
X              curdep = cur->deplist[k];
X            }
X        }
X          i = i + 2;
X          break;
X        case '<':
X          comm[j] = '\0';
X          if (strcmp(actpath,"") != 0)
X        {
X          (void) strcat(comm,actpath);
X          (void) strcat(comm,"/");
X          j = j + strlen(actpath) + 1;
X        }
X          (void) strcat(comm, rel_dep);
X          (void) strcat(comm, " ");
X          j = j + strlen(rel_dep) + 1;
X          i = i + 2;
X          break;
X        case '*':
X        case '.':
X        case ' ':
X          if (cur->name[0] != '%')
X        {
X          if ((common_prefix = malloc((unsigned) (strlen(cur->name) + 1))) == NIL)
X            errexit(10,"malloc");
X          (void) strcpy(common_prefix, cur->name);
X          if ((p = rindex(common_prefix,'.')) != NIL)
X            {
X              p[0] = '\0';
X            }
X          comm[j] = '\0';
X          (void) strcat(comm, common_prefix);
X          j = j + strlen(common_prefix);
X          if (cmd[i+1] == '*')
X            i = i + 2;
X          else
X            i++;
X        }
X          else
X        {
X          comm[j] = '\0';
X          (void) strcpy(hhh,rel_dep);
X          hhhp = rindex(hhh,'.');
X          if(hhhp != NIL)
X            {
X              hhhp[1] = '\0';
X            }
X          (void) strcat(comm, hhh);
X          j = j + strlen(hhh);
X          if (cur->name[1] == '.')
X            i = i + 2;
X          else
X            i = i+1;
X        }
X
X          break;
X        case '(':
X          errexit(99,"output tarnslation $(name:str1=str2)");
X          /* ???? output translation, not yet implemented */
X          break;
X        case '$':
X          comm[j] = '$';
X          j++;
X          i = i+2;
X          break;
X        default:
X          if(cmd[i] == '%')
X        /* single suffix rule */
X        {
X          comm[j] = '\0';
X          (void) strcpy(hhh,rel_dep);
X          hhhp = rindex(hhh,'.');
X          if(hhhp != NIL)
X            {
X              hhhp[1] = '\0';
X            }
X          (void) strcat(comm, hhh);
X          j = j + strlen(hhh);
X          i = i+1;
X        }
X          else
X        {
X          comm[j] = cmd[i];
X          j++;
X          i++;
X        }
X          break;
X        }
X    }
X    }
X  comm[j] = '\0';
X  if (comm[0] == '\0')
X    (void) strcpy(comm,cmd);
X  return(comm);
X}
X
X
Xstruct rules *get_target(targ)
X     char *targ;
X{
X  int hasht;
X  struct rules *current = (struct rules *) NIL;
X  char *p = NIL;
X  char fname[MAXNAMLEN];
X  char fnames[10][MAXNAMLEN];
X  char targrulename[MAXNAMLEN];
X  int i;
X  int j;
X  Bool ttt = FALSE;
X  Bool tttt = TRUE;
X  Bool xxx = TRUE;
X  char path1[MAXNAMLEN];
X
X  if (targ == NIL)
X    return((struct rules *) NIL);
X
X  hasht = hashval(targ);
X
X  if ( ruletab[hasht] != (struct rules *) NIL)
X    {
X      current = ruletab[hasht];
X      while((current != (struct rules *) NIL ) && (strcmp(targ, current->name) != 0))
X    {
X      current = current->nextrule;
X    }
X    }
X  if (current != (struct rules *) NIL)
X    {
X      if (strcmp(targ, current->name) == 0)
X    return(current);
X    }
X  if ((ruletab[hasht] == (struct rules *) NIL) || ((current == (struct rules *) NIL)) || (strcmp(targ,current->name) != 0))
X    {
X      /* look for std rule */
X
X      if (TRUE)
X    {
X      p = rindex(fname,'.');
X      ttt = exists_file(targ,0);
X      (void) strcpy(path1, actpath);
X      (void) strcpy(actpath,"");
X      for(i = 0; implicit_suffs[i] != -1; i++)
X        {
X          (void) strcpy(fname,targ);
X          p = rindex(fname,'.');
X
X          tttt = TRUE;
X          /* build source name */
X          if (p != NIL)
X        *p = '\0';   /* p = suffix of target */
X          if (p != NIL)
X        (void) strcpy(targrulename,"%.");
X          else
X        (void) strcpy(targrulename,"%");
X          if (p != NIL)
X        (void) strcat(targrulename,p + 1);
X          if (strcmp(targrulename, stdruletab[implicit_suffs[i]]->name) == 0)
X        {
X          /* several dependents may be necessary */
X
X          for (j = 0; j < 10; j++)
X            {
X              fnames[j][0] = '\0';
X            }
X
X          for (j = 0; stdruletab[implicit_suffs[i]]->deplist[j] != NIL; j++)
X            {
X              (void) strcat(fname,stdruletab[implicit_suffs[i]]->deplist[j]+1);
X              tttt = tttt && exists_file(fname,0);
X              if (tttt)
X            (void) strcpy(fnames[j],fname);
X              if (p != NIL)
X            *p = '\0';
X              else
X            (void) strcpy(fname,targ);
X            }
X          if(tttt)
X            {
X
X              if (TRUE)
X            {
X              j = 0;
X              xxx = TRUE;
X              while((fnames[j][0] != '\0') && (xxx))
X                {
X                  xxx = xxx && evtl_set_busy(fnames[j], FALSE);
X                  if (!xxx)
X                break;
X                  j++;
X                }
X              if (xxx)
X                {
X                  for (j = 0; fnames[j][0] != '\0'; j++)
X                (void) evtl_set_busy(fnames[j], TRUE);
X                  (void) strcpy(current_dep,targ);
X                  return(stdruletab[implicit_suffs[i]]);
X                }
X            }
X
X              if(!ttt)
X            {
X              /* to get the attrs .... */
X              (void) Sselect(targ, path1, ttt, NIL, fnames[0]);/* ???? */
X
X              (void) strcpy(current_dep,targ);
X              return(stdruletab[implicit_suffs[i]]);
X            }
X
X              if(Sselect(targ, path1, ttt, NIL, fnames[0])) /* ??? */
X            {
X              (void) strcpy(current_dep,targ);
X              return(stdruletab[implicit_suffs[i]]);
X            }
X              else
X            return (struct rules *) NIL;
X            }
X        }
X        }
X      if(implicit_suffs[i] == -1)
X        return (struct rules *) NIL;
X    }
X    }
X  /*NOTREACHED*/
X  return (struct rules *) NIL;
X}
X
X
Xproduce()
X{
X  int k = 0;
X  char *comm;
X
X  if(confid)
X    {
X      if((get_target(cfname) == (struct rules *) NIL))
X    errexit(35,cfname);
X    }
X
X  set_pathi();
X
X  (void) strcpy(cursr,"-STD-");
X
X  if (cmdtargets[0] == NIL) /* no targets on commandline */
X    {
X      if((get_target(".DEFAULT") != (struct rules *) NIL))
X    comm = default_targets;
X      else
X    comm = firsttarget;
X    }
X  else
X    comm = cmdtargets[k++];
X
X  if((nostdfile == TRUE) && (fileflg == FALSE) && (cmdtargets[0] == NIL))
X    errexit(11,NIL);
X
X  if (!rebuildflg)
X    {
X      if (ruleflg)
X    {
X      if (is_selrule_name(ruleset))
X        (void) strcpy(cursr,ruleset);
X      else
X        errexit(32,ruleset);
X    }
X      else
X    (void) strcpy(cursr,"-STD-");
X    }
X  else
X    (void) strcpy(cursr,rbrule);
X
X  if (!rebuildflg)
X    {
X      while (comm != NIL)
X    {
X      depth = 0;
X      (void) make_target(comm,cursr,curvar[0]);
X
X      if (!reallydone)
X        printf("shape - `%s' is up to date\n", comm);
X
X      if (comm != firsttarget)
X        comm = cmdtargets[k++];
X      else
X        comm = NIL;
X    }
X    }
X  else
X    {
X      depth = 0;
X      (void) make_target(rbtarg,cursr,curvar[0]);
X      if (!reallydone)
X    printf("shape - `%s' is up to date\n");
X    }
X}
X
X
X
XBool make_target(targ, sr, vname)
X     char *targ;
X     char *sr;
X     /*ARGSUSED*/
X     char *vname;
X{
X  struct rules *current;
X  char *curdep;
X  char *point = NIL;
X  char *srcname;
X  char dep2[MAXNAMLEN];
X  Bool err_happ = FALSE;
X  Bool todo = FALSE;
X  Bool test = FALSE;
X  Bool t1 = FALSE;
X  char lselrule[64];
X  char lvar[64];
X  char lvarname[64];
X  char *xxx;
X  Bool lbusy_done = FALSE;
X  char path1[MAXNAMLEN];
X  int dep = 0;
X  int curi = 0;
X
X  depth++;
X
X  (void) is_selrule_name(sr);
X
X  (void) strcpy(lselrule,sr);
X
X  if ((current = get_target(targ)) == (struct rules *) NIL)
X    {
X      if (!exists_file(targ,0))
X    errexit(3,targ);
X      else
X    {
X      if(strcmp(targ,lastcurdep))
X        {
X          if(evtl_set_busy(targ,TRUE))
X        {
X          (void) strcpy(lastcurdep,targ);
X          (void) strcpy(sr,lselrule);
X          return(TRUE);
X        }
X        }
X      else
X        return (FALSE);
X    }
X    }
X
X  if (current->done)
X    {
X      (void) strcpy(sr,lselrule);
X      return(FALSE);
X    }
X
X  if ((current->deplist[dep] == NIL) && (exists_file(current->name,0)))
X    {
X      (void) strcpy(sr,lselrule);
X      return(FALSE);
X    }
X
X  lbusy_done = busy_done;
X
X  if (current->deplist[dep] != NIL)
X    {
X      if (is_selrule_name(current->deplist[dep]))
X    {
X      (void) strcpy(lselrule,current->deplist[dep]);
X      if ((xxx = index(lselrule,'+')) != NIL)
X        *xxx = '\0';
X      (void) strcpy(sr,lselrule);
X      (void) strcpy(cursr,sr);
X      dep++;
X    }
X      while(is_varname(current->deplist[dep]))
X    {
X      (void) strcpy(lvarname,current->deplist[dep]);
X      if ((xxx = index(lvarname,'+')) != NIL)
X        {
X          xxx++;
X          (void) strcpy(lvarname,xxx);
X        }
X      (void) strcpy(lvar,lvarname);
X      curi = 0;
X      while(strcmp(curvar[curi],""))
X        curi++;
X      if(curi == 32)
X        errexit(37,NIL);
X      if ((curvar[curi] = malloc((unsigned) (strlen(lvarname)+sizeof(char)))) == NIL)
X        errexit(10,"malloc");
X      variants_active = curi;
X      (void) strcpy(curvar[curi],lvarname);
X      (void) attrvar(lvar, NIL, (Af_set *) NIL);
X      dep++;
X    }
X    }
X  else
X    todo = TRUE;
X
X  curdep = current->deplist[dep++];
X
X  if(curdep != NIL)
X    {
X      if(!strcmp(curdep,"+"))
X    curdep = current->deplist[dep++];
X    }
X
X  if (current->name[0] != '%')
X    {
X      if (curdep == NIL)
X    todo = TRUE;
X
X      while (curdep != NIL)
X    {
X      t1 = exists_file(curdep,0);
X
X      if ((t1) && (strcmp(curdep,lastcurdep)))
X        {
X          (void) strcpy(lastcurdep,curdep);
X          (void) evtl_set_busy(curdep,TRUE);
X        }
X
X      test = make_target(curdep,sr,NIL);
X      if (error_happened)
X        {
X          err_happ = TRUE;
X          error_happened = FALSE;
X        }
X      depth--;
X      (void) strcat(longattrs[depth], longattrs[depth+1]);
X      (void) strcpy(longattrs[depth+1],"");
X
X      if (is_selrule_name(current->firstdep))
X        {
X          (void) strcpy(lselrule,current->firstdep);
X          (void) strcpy(cursr,lselrule);
X          (void) strcpy(sr,lselrule);
X        }
X      while(is_varname(current->deplist[dep]))
X        {
X          (void) strcpy(lvarname,current->deplist[dep]);
X          if ((xxx = index(lvarname,'+')) != NIL)
X        {
X          xxx++;
X          (void) strcpy(lvarname,xxx);
X        }
X          (void) strcpy(lvar,lvarname);
X          curi = 0;
X          while(strcmp(curvar[curi],""))
X        curi++;
X          if(curi == 32)
X        errexit(37,NIL);
X          if ((curvar[curi] = malloc((unsigned) (strlen(lvarname)+sizeof(char)))) == NIL)
X        errexit(10,"malloc");
X          variants_active = curi;
X          (void) strcpy(curvar[curi],lvarname);
X          (void) attrvar(lvarname, NIL, (Af_set *) NIL);
X        }
X
X      if (test)
X        todo = TRUE;
X      t1 = exists_file(current->name,0);
X      (void) strcpy(path1,actpath);
X      (void) strcpy(actpath,"");
X      if (!t1)
X        todo = TRUE;
X      if (!todo)
X        {
X          (void) strcpy(lselrule,cursr);
X          (void) strcpy(cursr,"-STD-");
X/*          if (Sselect(current->name, path1, t1, current->deplist[0],curdep))
X        todo = TRUE; */
X          todo = TRUE;
X          (void) is_selrule_name(lselrule);
X          (void) strcpy(cursr,lselrule);
X        }
X      curdep = current->deplist[dep++];
X
X    }
X      current->done = TRUE;
X
X      if ((!todo) && (current->cmdlist == (struct cmds *) NIL))
X    {
X      srcname = get_src_name(current->name);
X      if (srcname != NIL)
X        {
X/*          if (Sselect(current->name, path1, t1, current->deplist[0],srcname)) */
X        todo = TRUE;
X          if (TRUE) /* (strcmp(sr,"-STD-")) */
X        {
X          if (evtl_set_busy(srcname,TRUE))
X            {
X              todo = TRUE;
X              lbusy_done = busy_done;
X            }
X        }
X        }
X    }
X    }
X
X  if(current->name[0] == '%')
X    {
X/*      if(strcmp(cursr,"-STD-"))
X    {
X    (void) strcpy(dep2,current_dep);
X      if((evtl_set_busy(dep2) != TRUE))
X        ;
X      else
X        errexit(17,current_dep);
X    } */
X
X      (void) strcpy(dep2, current_dep);
X      point = rindex(dep2,'.');
X      if(point != NIL)
X    *point = '\0';
X      (void) strcat(dep2,current->deplist[0]+1);
X
X      t1 = exists_file(current_dep,0);
X      if(t1)
X    {
X      if(lbusy_done) /* ((strcmp(cursr,"-STD-")) && (lbusy_done)) */
X        {
X          if (exists_file(dep2,0))
X        {
X          if (err_happ)
X            {
X              warning(2,current->name);
X              err_happ = FALSE;
X            }
X          else
X            test = execute_commands(current, current_dep, todo);
X        }
X          busy_done = FALSE;
X        }
X      else
X        {
X/*          if (Sselect(current_dep, actpath, t1, NIL, dep2)) */
X          if (TRUE)
X        {
X          if (exists_file(dep2,0))
X            {
X              if (err_happ)
X            {
X              warning(2, current->name);
X              err_happ = FALSE;
X            }
X              else
X            test = execute_commands(current, current_dep, todo);
X            }
X        }
X        }
X    }
X      else
X    {
X      if (exists_file(dep2,0))
X        {
X          if (err_happ)
X        {
X          warning(2, current->name);
X          err_happ = FALSE;
X        }
X          else
X        test = execute_commands(current, current_dep, todo);
X        }
X    }
X      (void) strcpy(current_dep,"");
X    }
X
X  if (todo)
X    {
X      if (err_happ)
X    {
X      warning(2, current->name);
X      err_happ = FALSE;
X    }
X      else
X    test = execute_commands(current, NIL, todo);
X      /* if((!test) && (!noexflg) && (!exists_file(current->name,1)))
X    errexit(3,current->name);
X
X      if((!test) && (noexflg) && (current->cmdlist == (struct cmds *) NIL))
X    errexit(3,current->name); */
X
X      if(strcmp(lselrule,""))
X    (void) strcpy(sr,lselrule);
X      return(TRUE);
X    }
X
X  if (test || todo)
X    {
X      if(strcmp(lselrule,""))
X    (void) strcpy(sr,lselrule);
X      return(TRUE);
X    }
X  else
X    {
X      if(strcmp(lselrule,""))
X    (void) strcpy(sr,lselrule);
X      return(FALSE);
X    }
X}
X
X
X
XBool execute_commands(current, rel_dep, doit)
X     struct rules *current;
X     char *rel_dep;
X     Bool doit;
X{
X  struct cmds *curcmd;
X  char *expcmd;
X  char *p;
X  char *pp;
X  char targrulename[MAXNAMLEN];
X  char file[MAXNAMLEN];
X  struct rules *cursuf;
X  Bool exists = FALSE;
X  Bool tx;
X  int retcode;
X  char *mist;
X  char fname[MAXNAMLEN];
X  int i;
X  char attr[MAXATTRLENGTH];
X
X  attr[0] = '\0';
X  fname[0] = '\0';
X
X  if (rel_dep != NIL)
X    (void) strcpy(file, rel_dep);
X  else
X    (void) strcpy(file, current->name);
X
X  if (current->name[0] == '%')
X    {
X      (void) strcpy(fname, rel_dep);
X      if ((p = rindex(fname,'.')) != NIL)
X    {
X      *p = '\0';
X      (void) strcat(fname,current->deplist[0]+1);
X    }
X    }
X
X  if ((current != (struct rules *) NIL) && (current->cmdlist != (struct cmds *) NIL))
X    {
X      /* figure out if derived object already exists */
X#ifndef NOBPOOL
X      tx = exists_file(rel_dep,0);
X      if (!tx)
X    tx = exists_file(current->name,0);
X      if (tx)
X    {
X      if (rel_dep == NIL)
X        rel_dep = current->name;
X      (void) strcpy(attr,build_attrstring(current,rel_dep,(struct rules *) NIL));
X      retcode = compare_attrstring(attr, current, rel_dep, (struct rules *) NIL);
X      if ((retcode == 0)) /*  && (!doit)) */
X        {
X/*          if(Sselect(rel_dep,actpath,tx,current->deplist[0],fname)) */
X          return(TRUE); /* FALSE */
X        }
X      if ((retcode == 1) && (!doit))
X        {
X          return (TRUE);
X        }
X    }
X#endif NOBPOOL
X      curcmd = current->cmdlist;
X      while (curcmd != (struct cmds *) NIL)
X    {
X      if (curcmd->command != NIL)
X        {
X          if ((mist = malloc(2048)) == NIL)
X        errexit(10,"malloc");
X          (void) strcpy(mist,expandmacro(curcmd->command));
X          if ((expcmd = malloc(2048)) == NIL)
X        errexit(10,"malloc");
X          (void) strcpy(expcmd,expand_command(mist, current, fname));
X          execute(expcmd);
X          free(expcmd);
X          free(mist);
X        }
X      else
X        break;
X      curcmd = curcmd->nextcmd;
X    }
X      if (current->cmdlist != (struct cmds *) NIL)
X    {
X      cleanup_links(link_reg);
X      free_linklist();
X      link_reg = (struct linkreg *) NIL;
X    }
X
X      if (current->name[0] == '%')
X    {
X      (void) strcpy(fname, rel_dep);
X      if ((p = rindex(fname,'.')) != NIL)
X        {
X          *p = '\0';
X          (void) strcat(fname,current->deplist[0]+1);
X        }
X      save_targets(current,fname,(struct rules *) NIL,attr);  /* rel_dep */
X    }
X      else
X    {
X      if (exists_file(current->name,0))
X        save_targets(current,current->name, (struct rules *) NIL,attr);
X    }
X    }
X  else
X    { /* execute stdrule or default commands */
X      if ((pp = rindex(current->name,'.')) != NIL)
X    {
X      (void) strcpy(fname, current->name);
X      pp = rindex(fname,'.');
X      *pp = '\0';   /* pp = suffix of target */
X      (void) strcpy(targrulename,"%.");
X      (void) strcat(targrulename,pp + 1);
X      for(i = 0; implicit_suffs[i] != -1; i++)
X        {
X          (void) strcpy(fname,current->name);
X          if ((pp = rindex(fname,'.')) != NIL)
X        *pp = '\0';
X          /* build source name */
X          if (strcmp(targrulename, stdruletab[implicit_suffs[i]]->name) == 0)
X        {
X          /* several dependents may be necessary ???? */
X          (void) strcat(fname,stdruletab[implicit_suffs[i]]->deplist[0]+1);
X
X          /* source file exists ? */
X          if(exists_file(fname,0))
X            {
X              exists = TRUE;
X              cursuf = stdruletab[implicit_suffs[i]];
X              break;
X            }
X          else
X            cursuf = (struct rules *) NIL;
X        }
X        }
X      if (exists)
X        {
X          /* but first figure out if derived object(s) already exist */
X#ifndef NOBPOOL
X          tx = exists_file(current->name,0);
X          if (tx)
X        {
X          (void) strcpy(attr,build_attrstring(cursuf,fname,current));
X/*          retcode = compare_attrstring(attr, cursuf, fname, current); */
X          retcode = compare_attrstring(attr, cursuf, current->name, current);
X          if((retcode == 0)) /* && (!doit)) */
X            {
X              /* if (Sselect(rel_dep,actpath,tx,current->deplist[0],fname)) */
X            return (TRUE); /* FALSE */
X            }
X          if ((retcode == 1) && (!doit))
X            return(TRUE);
X        }
X#endif NOBPOOL
X
X/*          if (strcmp(cursr,"-STD-"))
X          (void) evtl_set_busy(fname,TRUE); */
X
X          (void) strcpy(attr,build_attrstring(cursuf,fname,current));
X          retcode = compare_attrstring(attr, cursuf, current->name, current);
X          if (retcode == 0)
X        return(TRUE); /*FALSE */
X
X          curcmd = cursuf->cmdlist;
X          while(curcmd != (struct cmds *) NIL)
X        {
X          if (curcmd->command != NIL)
X            {
X              if ((expcmd = malloc(2048)) == NIL)
X            errexit(10,"malloc");
X              (void) strcpy(expcmd,expandmacro(curcmd->command));
X              (void) strcpy(expcmd,expand_command(expcmd, current, fname)); /* file */
X              execute(expcmd);
X              free(expcmd);
X            }
X          else
X            break;
X          curcmd = curcmd->nextcmd;
X        }
X          if (cursuf->cmdlist != (struct cmds *) NIL)
X        {
X          cleanup_links(link_reg);
X          free_linklist();
X          link_reg = (struct linkreg *) NIL;
X        }
X          save_targets(cursuf,fname,current,attr);
X
X          /* put derived objects into bpool */
X          /* and save special attributes */
X
X        }
X    }
X    }
X  if (cursuf != (struct rules *) NIL)
X    return(TRUE);
X  else
X    return (FALSE);
X}
X
X
X
Xint execute(cmd)
X     char *cmd;
X{
X  int retcode = 0;
X  Bool ignflg = FALSE;
X  char *rc;
X  Bool silflg;
X
X  cmd = repl_string(cmd);
X
X  silflg = silentflg;
X
X  while((cmd[0] == '\t') || (cmd[0] == ' ') || (cmd[0] == '\n'))
X    *cmd++;
X
X  if (noexflg)
X    {
X      printf("%s\n", cmd);
X      (void) fflush(stdout);
X      reallydone = TRUE;
X    }
X  else
X    {
X      if (cmd[0] == '@')
X    {
X      cmd[0] = ' ';
X      silflg = TRUE;
X      if (cmd[1] == '-')
X        {
X          cmd[1] = ' ';
X          ignflg = TRUE;
X        }
X    }
X      if (!silflg)
X    {
X      printf("shape - executing: %s\n", cmd);
X      (void) fflush(stdout);
X    }
X      if (!touchflg)
X    {
X      reallydone = TRUE;
X      retcode = system(cmd);
X/*      cleanup_links(link_reg);
X      free_linklist();
X      link_reg = (struct linkreg *) NIL; */
X      if (retcode != 0)
X        {
X          error_happened = TRUE;
X          error_occ = TRUE;
X          if ((rc = malloc(10 * sizeof(char))) == NIL)
X        errexit(10,"malloc");
X          (void) sprintf(rc, "%d", retcode);
X          if ((ignflg == FALSE) && (goflg == FALSE))
X        errexit(13,rc);
X          if (goflg == FALSE)
X        errexit(13,rc);
X        }
X    }
X    }
X  free(cmd);
X}
X
X
Xchar *get_src_name(name)
X     char *name;
X{
X  int i;
X  char fname[MAXNAMLEN];
X  char *p;
X  (void) strcpy(fname,name);
X  if ((p = rindex(fname,'.')) != NIL)
X    {
X      for (i = 0; implicit_suffs[i] != -1; i++)
X    {
X      *p = '\0';
X      if (!strcmp(stdruletab[implicit_suffs[i]]->name+2,p+1))
X        {
X          (void) strcat(fname,stdruletab[implicit_suffs[i]]->deplist[0]+1);
X          if (exists_file(fname,0))
X        return(fname);
X        }
X    }
X      if(implicit_suffs[i] == -1)
X    return(NIL);
X    }
X  /*NOTREACHED*/
X  return(NIL);
X}
X
X
Xset_pathi()
X{
X  int i = 0;
X  while(curvpath[i] != NIL)
X    i++;
X  pathi = i;
X}
END_OF_FILE
if test 27571 -ne `wc -c <'src/shape/produce.c'`; then
    echo shar: \"'src/shape/produce.c'\" unpacked with wrong size!
fi
# end of 'src/shape/produce.c'
fi
echo shar: End of archive 25 \(of 33\).
cp /dev/null ark25isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 33 archives.
    rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0