U/modified/Extract.U

   1 ?RCS: $Id: Extract.U,v 3.0.1.2 1997/02/28 14:58:52 ram Exp $
   2 ?RCS:
   3 ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
   4 ?RCS:
   5 ?RCS: You may redistribute only under the terms of the Artistic Licence,
   6 ?RCS: as specified in the README file that comes with the distribution.
   7 ?RCS: You may reuse parts of this distribution only within the terms of
   8 ?RCS: that same Artistic Licence; a copy of which may be found at the root
   9 ?RCS: of the source tree for dist 3.0.
  10 ?RCS:
  11 ?RCS: $Log: Extract.U,v $
  12 ?RCS: Revision 3.0.1.2  1997/02/28  14:58:52  ram
  13 ?RCS: patch61: added support for src.U
  14 ?RCS:
  15 ?RCS: Revision 3.0.1.1  1994/10/29  15:51:46  ram
  16 ?RCS: patch36: added ?F: line for metalint file checking
  17 ?RCS:
  18 ?RCS: Revision 3.0  1993/08/18  12:04:52  ram
  19 ?RCS: Baseline for dist 3.0 netwide release.
  20 ?RCS:
  21 ?X:
  22 ?X: This unit produces a shell script which can be doted in order to extract
  23 ?X: .SH files with variable substitutions.
  24 ?X:
  25 ?X: When running Configure from a remote directory ($src is not '.'),
  26 ?X: then the files will be created in that directory, so beware!
  27 ?X:
  28 ?MAKE:Extract: src
  29 ?MAKE:  -pick add $@ %<
  30 ?F:./extract
  31 ?T:PERL_CONFIG_SH dir file name create mkdir_p
  32 : script used to extract .SH files with variable substitutions
  33 cat >extract <<'EOS'
  34 PERL_CONFIG_SH=true
  35 echo "Doing variable substitutions on .SH files..."
  36 if test -f MANIFEST; then
  37         set x `awk '{print $1}' < MANIFEST | grep '\.SH$'`
  38 else
  39         echo "(Looking for .SH files under the source directory.)"
  40         set x `(cd "$src"; find . -name "*.SH" -print)`
  41 fi
  42 shift
  43 case $# in
  44 0) set x `(cd "$src"; echo *.SH)`; shift;;
  45 esac
  46 if test ! -f "$src/$1"; then
  47         shift
  48 fi
  49 ?X: script to emulate mkdir -p
  50 mkdir_p='
  51 name=$1;
  52 create="";
  53 while test $name; do
  54         if test ! -d "$name"; then
  55                 create="$name $create";
  56                 name=`echo $name | sed -e "s|^[^/]*$||"`;
  57                 name=`echo $name | sed -e "s|\(.*\)/.*|\1|"`;
  58         else
  59                 name="";
  60         fi;
  61 done;
  62 for file in $create; do
  63         mkdir $file;
  64 done
  65 '
  66 for file in $*; do
  67         case "$src" in
  68         ".")
  69                 case "$file" in
  70                 */*)
  71                         dir=`expr X$file : 'X\(.*\)/'`
  72                         file=`expr X$file : 'X.*/\(.*\)'`
  73                         (cd "$dir" && . ./$file)
  74                         ;;
  75                 *)
  76                         . ./$file
  77                         ;;
  78                 esac
  79                 ;;
  80         *)
  81 ?X:
  82 ?X: When running Configure remotely ($src is not '.'), we cannot source
  83 ?X: the files directly, since that would wrongly cause the extraction
  84 ?X: where the source lie instead of withing the current directory. Therefore,
  85 ?X: we need to 'sh <file' then, which is okay since they will source the
  86 ?X: existing config.sh file. It's not possible to use:
  87 ?X:             ../src/Configure -S -O -Dsomething
  88 ?X: unfortunately since no new config.sh with the -Dsomething override
  89 ?X: will be created before running the .SH files. A minor buglet.
  90 ?X:
  91 ?X: Note that we must create the directory hierarchy ourselves if it does
  92 ?X: not exist already, and that is done through a shell emulation of the
  93 ?X: 'mkdir -p' command. We don't want to use the $installdir metaconfig
  94 ?X: symbol here since that would require too much to be configured for
  95 ?X: this simple extraction task that may happen quickly with 'Configure -S'.
  96 ?X:             -- RAM, 18/03/96
  97 ?X:
  98                 case "$file" in
  99                 */*)
 100                         dir=`expr X$file : 'X\(.*\)/'`
 101                         file=`expr X$file : 'X.*/\(.*\)'`
 102                         (set x $dir; shift; eval $mkdir_p)
 103                         sh <"$src/$dir/$file"
 104                         ;;
 105                 *)
 106                         sh <"$src/$file"
 107                         ;;
 108                 esac
 109                 ;;
 110         esac
 111 done
 112 if test -f "$src/config_h.SH"; then
 113         if test ! -f config.h; then
 114         : oops, they left it out of MANIFEST, probably, so do it anyway.
 115         . "$src/config_h.SH"
 116         fi
 117 fi
 118 EOS
 119