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 |