source: mkinstalldirs @ e74e573

barnowl_perlaimdebianowlrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since e74e573 was 5471a98, checked in by James M. Kretchmar <kretch@mit.edu>, 20 years ago
Added mkinstalldirs
  • Property mode set to 100755
File size: 671 bytes
RevLine 
[5471a98]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$
8
9errstatus=0
10
11for file
12do
13   set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
14   shift
15
16   pathcomp=
17   for d
18   do
19     pathcomp="$pathcomp$d"
20     case "$pathcomp" in
21       -* ) pathcomp=./$pathcomp ;;
22     esac
23
24     if test ! -d "$pathcomp"; then
25        echo "mkdir $pathcomp"
26
27        mkdir "$pathcomp" || lasterr=$?
28
29        if test ! -d "$pathcomp"; then
30          errstatus=$lasterr
31        fi
32     fi
33
34     pathcomp="$pathcomp/"
35   done
36done
37
38exit $errstatus
39
40# mkinstalldirs ends here
Note: See TracBrowser for help on using the repository browser.