Blame mkinstalldirs

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