source: tags/0.00.11/j/mkinstalldirs

Last change on this file was 2, checked in by piso, 22 years ago

Initial checkin.

File size: 726 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# Public domain
6
7# $Id: mkinstalldirs,v 1.1.1.1 2002-09-24 16:06:34 piso Exp $
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.