Blame mkinstalldirs

Packit Service ae04f2
#! /bin/sh
Packit Service ae04f2
# mkinstalldirs --- make directory hierarchy
Packit Service ae04f2
# Author: Noah Friedman <friedman@prep.ai.mit.edu>
Packit Service ae04f2
# Created: 1993-05-16
Packit Service ae04f2
# Public domain
Packit Service ae04f2
Packit Service ae04f2
errstatus=0
Packit Service ae04f2
Packit Service ae04f2
for file
Packit Service ae04f2
do
Packit Service ae04f2
   set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
Packit Service ae04f2
   shift
Packit Service ae04f2
Packit Service ae04f2
   pathcomp=
Packit Service ae04f2
   for d
Packit Service ae04f2
   do
Packit Service ae04f2
     pathcomp="$pathcomp$d"
Packit Service ae04f2
     case "$pathcomp" in
Packit Service ae04f2
       -* ) pathcomp=./$pathcomp ;;
Packit Service ae04f2
     esac
Packit Service ae04f2
Packit Service ae04f2
     if test ! -d "$pathcomp"; then
Packit Service ae04f2
        echo "mkdir $pathcomp" 1>&2
Packit Service ae04f2
Packit Service ae04f2
        mkdir "$pathcomp" || lasterr=$?
Packit Service ae04f2
Packit Service ae04f2
        if test ! -d "$pathcomp"; then
Packit Service ae04f2
  	  errstatus=$lasterr
Packit Service ae04f2
        fi
Packit Service ae04f2
     fi
Packit Service ae04f2
Packit Service ae04f2
     pathcomp="$pathcomp/"
Packit Service ae04f2
   done
Packit Service ae04f2
done
Packit Service ae04f2
Packit Service ae04f2
exit $errstatus
Packit Service ae04f2
Packit Service ae04f2
# mkinstalldirs ends here