| Last change
 on this file since 3377 was             2, checked in by bird, 23 years ago | 
        
          | 
Initial revision
 | 
        
          | 
              
Property                 cvs2svn:cvs-rev
 set to                 1.1
Property                 svn:eol-style
 set to                 native
Property                 svn:executable
 set to                 * | 
        
          | File size:
            730 bytes | 
      
      
| Line |  | 
|---|
| 1 | #! /bin/sh | 
|---|
| 2 | # mkinstalldirs --- make directory hierarchy | 
|---|
| 3 | # Author: Noah Friedman <friedman@prep.ai.mit.edu> | 
|---|
| 4 | # Created: 1993-05-16 | 
|---|
| 5 | # Last modified: 1994-03-25 | 
|---|
| 6 | # Public domain | 
|---|
| 7 |  | 
|---|
| 8 | errstatus=0 | 
|---|
| 9 |  | 
|---|
| 10 | for file in ${1+"$@"} ; do | 
|---|
| 11 | set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` | 
|---|
| 12 | shift | 
|---|
| 13 |  | 
|---|
| 14 | pathcomp= | 
|---|
| 15 | for d in ${1+"$@"} ; do | 
|---|
| 16 | pathcomp="$pathcomp$d" | 
|---|
| 17 | case "$pathcomp" in | 
|---|
| 18 | -* ) pathcomp=./$pathcomp ;; | 
|---|
| 19 | esac | 
|---|
| 20 |  | 
|---|
| 21 | if test ! -d "$pathcomp"; then | 
|---|
| 22 | echo "mkdir $pathcomp" 1>&2 | 
|---|
| 23 | mkdir "$pathcomp" > /dev/null 2>&1 || lasterr=$? | 
|---|
| 24 | fi | 
|---|
| 25 |  | 
|---|
| 26 | if test ! -d "$pathcomp"; then | 
|---|
| 27 | errstatus=$lasterr | 
|---|
| 28 | fi | 
|---|
| 29 |  | 
|---|
| 30 | pathcomp="$pathcomp/" | 
|---|
| 31 | done | 
|---|
| 32 | done | 
|---|
| 33 |  | 
|---|
| 34 | exit $errstatus | 
|---|
| 35 |  | 
|---|
| 36 | # mkinstalldirs ends here | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.