mkinstalldirs
author Stephane Peter
Sat, 30 Oct 1999 22:57:49 +0000
changeset 11 3939a99bf422
parent 0 4ce2db4db959
permissions -rw-r--r--
Various bugfixes for music looping
     1 #! /bin/sh
     2 # mkinstalldirs --- make directory hierarchy
     3 # Author: Noah Friedman <friedman@prep.ai.mit.edu>
     4 # Created: 1993-05-16
     5 # Public domain
     6 
     7 # $Id$
     8 
     9 errstatus=0
    10 
    11 for file
    12 do
    13    set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
    14    shift
    15 
    16    pathcomp=
    17    for d
    18    do
    19      pathcomp="$pathcomp$d"
    20      case "$pathcomp" in
    21        -* ) pathcomp=./$pathcomp ;;
    22      esac
    23 
    24      if test ! -d "$pathcomp"; then
    25         echo "mkdir $pathcomp"
    26 
    27         mkdir "$pathcomp" || lasterr=$?
    28 
    29         if test ! -d "$pathcomp"; then
    30   	  errstatus=$lasterr
    31         fi
    32      fi
    33 
    34      pathcomp="$pathcomp/"
    35    done
    36 done
    37 
    38 exit $errstatus
    39 
    40 # mkinstalldirs ends here