Jean-Baptiste Queru | ac04d0b | 2009-07-17 17:11:19 -0700 | [diff] [blame] | 1 | #! /bin/sh |
Fredrik Roubert | 64339d3 | 2016-10-21 19:43:16 +0200 | [diff] [blame] | 2 | # Copyright (C) 2016 and later: Unicode, Inc. and others. |
| 3 | # License & terms of use: http://www.unicode.org/copyright.html |
Jean-Baptiste Queru | ac04d0b | 2009-07-17 17:11:19 -0700 | [diff] [blame] | 4 | # ******************************************************************** |
| 5 | # * COPYRIGHT: |
| 6 | # * Copyright (c) 2002-2004, International Business Machines Corporation and |
| 7 | # * others. All Rights Reserved. |
| 8 | # ******************************************************************** |
| 9 | # mkinstalldirs --- make directory hierarchy |
| 10 | # Author: Noah Friedman <friedman@prep.ai.mit.edu> |
| 11 | # Created: 1993-05-16 |
| 12 | # Public domain |
| 13 | |
| 14 | errstatus=0 |
| 15 | |
| 16 | for file |
| 17 | do |
| 18 | set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` |
| 19 | shift |
| 20 | |
| 21 | pathcomp= |
| 22 | for d |
| 23 | do |
| 24 | pathcomp="$pathcomp$d" |
| 25 | case "$pathcomp" in |
| 26 | -* ) pathcomp=./$pathcomp ;; |
| 27 | esac |
| 28 | |
| 29 | if test ! -d "$pathcomp"; then |
| 30 | echo "mkdir $pathcomp" |
| 31 | |
| 32 | mkdir "$pathcomp" || lasterr=$? |
| 33 | |
| 34 | if test ! -d "$pathcomp"; then |
| 35 | errstatus=$lasterr |
| 36 | fi |
| 37 | fi |
| 38 | |
| 39 | pathcomp="$pathcomp/" |
| 40 | done |
| 41 | done |
| 42 | |
| 43 | exit $errstatus |
| 44 | |
| 45 | # mkinstalldirs ends here |