masqmail
annotate mkinstalldirs @ 273:00724782b6c9
parse.c: comments, better debugging, tiny refactoring
| author | markus schnalke <meillo@marmaro.de> |
|---|---|
| date | Fri, 03 Dec 2010 19:25:43 -0300 |
| 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 |