masqmail

annotate mkinstalldirs @ 210:e0938c511243

we need at least 32 bits, so let's take a long Solar Designer explained to me that it was int for better performance
author meillo@marmaro.de
date Sun, 18 Jul 2010 22:02:54 +0200
parents
children
rev   line source
meillo@0 1 #! /bin/sh
meillo@0 2 # mkinstalldirs --- make directory hierarchy
meillo@0 3 # Author: Noah Friedman <friedman@prep.ai.mit.edu>
meillo@0 4 # Created: 1993-05-16
meillo@0 5 # Public domain
meillo@0 6
meillo@0 7 # $Id: mkinstalldirs,v 1.1.1.1 2001/03/19 15:45:28 okurth Exp $
meillo@0 8
meillo@0 9 errstatus=0
meillo@0 10
meillo@0 11 for file
meillo@0 12 do
meillo@0 13 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
meillo@0 14 shift
meillo@0 15
meillo@0 16 pathcomp=
meillo@0 17 for d
meillo@0 18 do
meillo@0 19 pathcomp="$pathcomp$d"
meillo@0 20 case "$pathcomp" in
meillo@0 21 -* ) pathcomp=./$pathcomp ;;
meillo@0 22 esac
meillo@0 23
meillo@0 24 if test ! -d "$pathcomp"; then
meillo@0 25 echo "mkdir $pathcomp"
meillo@0 26
meillo@0 27 mkdir "$pathcomp" || lasterr=$?
meillo@0 28
meillo@0 29 if test ! -d "$pathcomp"; then
meillo@0 30 errstatus=$lasterr
meillo@0 31 fi
meillo@0 32 fi
meillo@0 33
meillo@0 34 pathcomp="$pathcomp/"
meillo@0 35 done
meillo@0 36 done
meillo@0 37
meillo@0 38 exit $errstatus
meillo@0 39
meillo@0 40 # mkinstalldirs ends here