Mercurial > emacs
comparison gc/mkinstalldirs @ 51488:5de98dce4bd1
*** empty log message ***
author | Dave Love <fx@gnu.org> |
---|---|
date | Thu, 05 Jun 2003 17:49:22 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
51487:01d68b199093 | 51488:5de98dce4bd1 |
---|---|
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 # $Id: mkinstalldirs,v 1.13 1999/01/05 03:18:55 bje Exp $ | |
8 | |
9 errstatus=0 | |
10 dirmode="" | |
11 | |
12 usage="\ | |
13 Usage: mkinstalldirs [-h] [--help] [-m mode] dir ..." | |
14 | |
15 # process command line arguments | |
16 while test $# -gt 0 ; do | |
17 case "${1}" in | |
18 -h | --help | --h* ) # -h for help | |
19 echo "${usage}" 1>&2; exit 0 ;; | |
20 -m ) # -m PERM arg | |
21 shift | |
22 test $# -eq 0 && { echo "${usage}" 1>&2; exit 1; } | |
23 dirmode="${1}" | |
24 shift ;; | |
25 -- ) shift; break ;; # stop option processing | |
26 -* ) echo "${usage}" 1>&2; exit 1 ;; # unknown option | |
27 * ) break ;; # first non-opt arg | |
28 esac | |
29 done | |
30 | |
31 for file | |
32 do | |
33 if test -d "$file"; then | |
34 shift | |
35 else | |
36 break | |
37 fi | |
38 done | |
39 | |
40 case $# in | |
41 0) exit 0 ;; | |
42 esac | |
43 | |
44 case $dirmode in | |
45 '') | |
46 if mkdir -p -- . 2>/dev/null; then | |
47 echo "mkdir -p -- $*" | |
48 exec mkdir -p -- "$@" | |
49 fi ;; | |
50 *) | |
51 if mkdir -m "$dirmode" -p -- . 2>/dev/null; then | |
52 echo "mkdir -m $dirmode -p -- $*" | |
53 exec mkdir -m "$dirmode" -p -- "$@" | |
54 fi ;; | |
55 esac | |
56 | |
57 for file | |
58 do | |
59 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` | |
60 shift | |
61 | |
62 pathcomp= | |
63 for d | |
64 do | |
65 pathcomp="$pathcomp$d" | |
66 case "$pathcomp" in | |
67 -* ) pathcomp=./$pathcomp ;; | |
68 esac | |
69 | |
70 if test ! -d "$pathcomp"; then | |
71 echo "mkdir $pathcomp" | |
72 | |
73 mkdir "$pathcomp" || lasterr=$? | |
74 | |
75 if test ! -d "$pathcomp"; then | |
76 errstatus=$lasterr | |
77 else | |
78 if test ! -z "$dirmode"; then | |
79 echo "chmod $dirmode $pathcomp" | |
80 | |
81 lasterr="" | |
82 chmod "$dirmode" "$pathcomp" || lasterr=$? | |
83 | |
84 if test ! -z "$lasterr"; then | |
85 errstatus=$lasterr | |
86 fi | |
87 fi | |
88 fi | |
89 fi | |
90 | |
91 pathcomp="$pathcomp/" | |
92 done | |
93 done | |
94 | |
95 exit $errstatus | |
96 | |
97 # Local Variables: | |
98 # mode: shell-script | |
99 # sh-indentation: 3 | |
100 # End: | |
101 # mkinstalldirs ends here |