Súbor: [Platon] / libplaton / mkinstalldirs (stiahnutie)
Revízia 1.1, Thu Oct 18 16:13:23 2001 UTC (22 years, 11 months ago) by host8
Little improvements in .cvsignore. Added file mkinstalldirs -- will be
used in the future.
|
#! /bin/sh
# mkinstalldirs --- make directory hierarchy
# Author: Noah Friedman <friedman@prep.ai.mit.edu>
# Created: 1993-05-16
# Public domain
# $Log: mkinstalldirs,v $
# Revision 1.1 2001/10/18 16:13:23 host8
# Little improvements in .cvsignore. Added file mkinstalldirs -- will be
# used in the future.
#
# Revision 1.2 2001/09/20 14:41:31 host8
# Added $Log: mkinstalldirs,v $
# Added Revision 1.1 2001/10/18 16:13:23 host8
# Added Little improvements in .cvsignore. Added file mkinstalldirs -- will be
# Added used in the future.
# Added feature
#
errstatus=0
for file
do
set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
shift
pathcomp=
for d
do
pathcomp="$pathcomp$d"
case "$pathcomp" in
-* ) pathcomp=./$pathcomp ;;
esac
if test ! -d "$pathcomp"; then
echo "mkdir $pathcomp" 1>&2
mkdir "$pathcomp" || lasterr=$?
if test ! -d "$pathcomp"; then
errstatus=$lasterr
fi
fi
pathcomp="$pathcomp/"
done
done
exit $errstatus
# mkinstalldirs ends here
Platon Group <platon@platon.sk> http://platon.sk/
|