view mkinstalldirs @ 70978:b7a7287f9052

(shell-mode): Call shell-dirtrack-mode after list-buffers-directory is made a local variable, to avoid setting the default value.

+
鐃緒申#! /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