view mkinstalldirs @ 66800:baa95d93b4e0

Remove spurious or unnecessary leading stars in docstrings. (tar-header-block-tokenize): Also obey default-file-name-coding-system. (tar-parse-octal-integer-safe): Use mapc. (tar-header-block-summarize): Remove unused var `ck'. (tar-summarize-buffer): Don't clear the modified-p bit if it wasn't cleared before. Obey default-enable-multibyte-characters. Use mapconcat. Simplify setting of tar-header-offset. (tar-mode-map): Move initialization inside delcaration. (tar-flag-deleted): Use `abs'. (tar-expunge-internal): Remove unused var `line'. (tar-expunge-internal): Don't hardcode point-min==1. (tar-expunge): Widen while doing set-buffer-multibyte. (tar-rename-entry): Use file-name-coding-system. (tar-alter-one-field): Don't hardcode point-min==1. (tar-subfile-save-buffer): string-as-unibyte works on unibyte strings. (tar-pad-to-blocksize): Don't hardcode point-min==1. Clarify the code.

#! /bin/sh
# mkinstalldirs --- make directory hierarchy
# Author: Noah Friedman <[e-mail]>
# 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