File: mkdirpth

package info (click to toggle)
kic 2.4c-4
  • links: PTS, VCS
  • area: non-free
  • in suites: forky, sid
  • size: 2,640 kB
  • sloc: ansic: 37,465; sh: 3,317; makefile: 407; lisp: 109
file content (37 lines) | stat: -rwxr-xr-x 706 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#!/bin/sh
# Make directory hierarchy. 
# Written by Noah Friedman <friedman@prep.ai.mit.edu>
# Public domain.
# $Id: mkdirpth,v 2.0 1996/12/11 03:06:20 stevew Exp $

defaultIFS=' 	
'
IFS="${IFS-${defaultIFS}}"

errstatus=0

for file in ${1+"$@"} ; do 
   oIFS="${IFS}"
   # Some sh's can't handle IFS=/ for some reason.
   IFS='%'
   set - `echo ${file} | sed -e 's@/@%@g' -e 's@^%@/@'`
   IFS="${oIFS}"

   pathcomp=''

   for d in ${1+"$@"} ; do
     pathcomp="${pathcomp}${d}"

     if test ! -d "${pathcomp}"; then
        echo "mkdir $pathcomp" 1>&2
        mkdir "${pathcomp}" || errstatus=$?
        chmod 755 "${pathcomp}"
     fi

     pathcomp="${pathcomp}/"
   done
done

exit $errstatus

# eof