| 
                Last change
                  on this file since 14 was
                  14,
                  checked in by cecile, 14 years ago
           | 
        
        
          | 
               
vis2.3 
 
           | 
        
        
          
            
              - 
                  Property svn:executable set to
                  
*
               
             
           | 
        
        | 
            File size:
            1.9 KB
           | 
      
      
        
  | Rev | Line |   | 
|---|
| [14] | 1 | #! /bin/sh | 
|---|
 | 2 | # mkinstalldirs --- make directory hierarchy | 
|---|
 | 3 | # Author: Noah Friedman <friedman@prep.ai.mit.edu> | 
|---|
 | 4 | # Created: 1993-05-16 | 
|---|
 | 5 | # Public domain | 
|---|
 | 6 |  | 
|---|
 | 7 | errstatus=0 | 
|---|
 | 8 | dirmode="" | 
|---|
 | 9 |  | 
|---|
 | 10 | usage="\ | 
|---|
 | 11 | Usage: mkinstalldirs [-h] [--help] [-m mode] dir ..." | 
|---|
 | 12 |  | 
|---|
 | 13 | # process command line arguments | 
|---|
 | 14 | while test $# -gt 0 ; do | 
|---|
 | 15 |   case $1 in | 
|---|
 | 16 |     -h | --help | --h*)         # -h for help | 
|---|
 | 17 |       echo "$usage" 1>&2 | 
|---|
 | 18 |       exit 0 | 
|---|
 | 19 |       ;; | 
|---|
 | 20 |     -m)                         # -m PERM arg | 
|---|
 | 21 |       shift | 
|---|
 | 22 |       test $# -eq 0 && { echo "$usage" 1>&2; exit 1; } | 
|---|
 | 23 |       dirmode=$1 | 
|---|
 | 24 |       shift | 
|---|
 | 25 |       ;; | 
|---|
 | 26 |     --)                         # stop option processing | 
|---|
 | 27 |       shift | 
|---|
 | 28 |       break | 
|---|
 | 29 |       ;; | 
|---|
 | 30 |     -*)                         # unknown option | 
|---|
 | 31 |       echo "$usage" 1>&2 | 
|---|
 | 32 |       exit 1 | 
|---|
 | 33 |       ;; | 
|---|
 | 34 |     *)                          # first non-opt arg | 
|---|
 | 35 |       break | 
|---|
 | 36 |       ;; | 
|---|
 | 37 |   esac | 
|---|
 | 38 | done | 
|---|
 | 39 |  | 
|---|
 | 40 | for file | 
|---|
 | 41 | do | 
|---|
 | 42 |   if test -d "$file"; then | 
|---|
 | 43 |     shift | 
|---|
 | 44 |   else | 
|---|
 | 45 |     break | 
|---|
 | 46 |   fi | 
|---|
 | 47 | done | 
|---|
 | 48 |  | 
|---|
 | 49 | case $# in | 
|---|
 | 50 |   0) exit 0 ;; | 
|---|
 | 51 | esac | 
|---|
 | 52 |  | 
|---|
 | 53 | case $dirmode in | 
|---|
 | 54 |   '') | 
|---|
 | 55 |     if mkdir -p -- . 2>/dev/null; then | 
|---|
 | 56 |       echo "mkdir -p -- $*" | 
|---|
 | 57 |       exec mkdir -p -- "$@" | 
|---|
 | 58 |     fi | 
|---|
 | 59 |     ;; | 
|---|
 | 60 |   *) | 
|---|
 | 61 |     if mkdir -m "$dirmode" -p -- . 2>/dev/null; then | 
|---|
 | 62 |       echo "mkdir -m $dirmode -p -- $*" | 
|---|
 | 63 |       exec mkdir -m "$dirmode" -p -- "$@" | 
|---|
 | 64 |     fi | 
|---|
 | 65 |     ;; | 
|---|
 | 66 | esac | 
|---|
 | 67 |  | 
|---|
 | 68 | for file | 
|---|
 | 69 | do | 
|---|
 | 70 |   set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` | 
|---|
 | 71 |   shift | 
|---|
 | 72 |  | 
|---|
 | 73 |   pathcomp= | 
|---|
 | 74 |   for d | 
|---|
 | 75 |   do | 
|---|
 | 76 |     pathcomp="$pathcomp$d" | 
|---|
 | 77 |     case $pathcomp in | 
|---|
 | 78 |       -*) pathcomp=./$pathcomp ;; | 
|---|
 | 79 |     esac | 
|---|
 | 80 |  | 
|---|
 | 81 |     if test ! -d "$pathcomp"; then | 
|---|
 | 82 |       echo "mkdir $pathcomp" | 
|---|
 | 83 |  | 
|---|
 | 84 |       mkdir "$pathcomp" || lasterr=$? | 
|---|
 | 85 |  | 
|---|
 | 86 |       if test ! -d "$pathcomp"; then | 
|---|
 | 87 |         errstatus=$lasterr | 
|---|
 | 88 |       else | 
|---|
 | 89 |         if test ! -z "$dirmode"; then | 
|---|
 | 90 |           echo "chmod $dirmode $pathcomp" | 
|---|
 | 91 |           lasterr="" | 
|---|
 | 92 |           chmod "$dirmode" "$pathcomp" || lasterr=$? | 
|---|
 | 93 |  | 
|---|
 | 94 |           if test ! -z "$lasterr"; then | 
|---|
 | 95 |             errstatus=$lasterr | 
|---|
 | 96 |           fi | 
|---|
 | 97 |         fi | 
|---|
 | 98 |       fi | 
|---|
 | 99 |     fi | 
|---|
 | 100 |  | 
|---|
 | 101 |     pathcomp="$pathcomp/" | 
|---|
 | 102 |   done | 
|---|
 | 103 | done | 
|---|
 | 104 |  | 
|---|
 | 105 | exit $errstatus | 
|---|
 | 106 |  | 
|---|
 | 107 | # Local Variables: | 
|---|
 | 108 | # mode: shell-script | 
|---|
 | 109 | # sh-indentation: 2 | 
|---|
 | 110 | # End: | 
|---|
 | 111 | # mkinstalldirs ends here | 
|---|
       
      
      Note: See 
TracBrowser
        for help on using the repository browser.