Mercurial > emacs

view mkinstalldirs @ 60428:2e103c7354f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Glossary): Rename "Balance Parentheses" to "Balancing...". Add "Byte Compilation". Correct "Copyleft". New xref in "Customization". Clarify "Current Line", "Echoing", "Fringe", "Frame", "Speedbar". Add "Graphical Terminal" "Keybinding", "Margin", "Window System". Rename "Registers" to "Register". Replace "Selecting" with "Selected Frame", "Selected Window", and "Selecting a Buffer".
author Richard M. Stallman <rms@gnu.org>
date Sun, 06 Mar 2005 17:24:24 +0000
parents 746c40973d25
children 730155197b96 eb7e8d483840
line wrap: on
line source

#! /bin/sh
# mkinstalldirs --- make directory hierarchy
# Author: Noah Friedman <friedman@prep.ai.mit.edu>
# Created: 1993-05-16
# Public domain

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" && chmod a+rx "$pathcomp") || lasterr=$?

        if test ! -d "$pathcomp"; then
  	  errstatus=$lasterr
        fi
     fi

     pathcomp="$pathcomp/"
   done
done

exit $errstatus

# mkinstalldirs ends here