DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T d

⟦a6bbaa76e⟧ TextFile

    Length: 684 (0x2ac)
    Types: TextFile
    Names: »doSH«

Derivation

└─⟦4f9d7c866⟧ Bits:30007245 EUUGD6: Sikkerheds distributionen
    └─⟦b5330643c⟧ »./cops/perl-4.019/perl.tar.Z« 
        └─⟦2b9a58213⟧ 
            └─⟦this⟧ »perl-4.019/doSH« 

TextFile

#!/bin/sh

: if this fails, just run all the .SH files by hand
. ./config.sh

rm -f x2p/config.sh
cp cppstdin x2p

echo " "
echo "Doing variable substitutions on .SH files..."
set x `awk '{print $1}' <MANIFEST | grep '\.SH'`
shift
case $# in
0) set x *.SH; shift;;
esac
if test ! -f $1; then
    shift
fi
for file in $*; do
    set X
    shift
    chmod +x $file
    case "$file" in
    */*)
	dir=`expr X$file : 'X\(.*\)/'`
	file=`expr X$file : 'X.*/\(.*\)'`
	(cd $dir && . ./$file)
	;;
    *)
	. ./$file
	;;
    esac
done
if test -f config.h.SH; then
    if test ! -f config.h; then
	: oops, they left it out of MANIFEST, probably, so do it anyway.
	. ./config.h.SH
    fi
fi
exit 0