Blame view

Giac_maj/giac-1.4.9/mkinstalldirs 724 Bytes
6663b6c9   adorian   projet complet av...
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
38
39
40
  #! /bin/sh
  # mkinstalldirs --- make directory hierarchy
  # Author: Noah Friedman <friedman@prep.ai.mit.edu>
  # Created: 1993-05-16
  # Public domain
  
  # $Id: mkinstalldirs,v 1.4 1999/11/10 16:34:29 cbauer Exp $
  
  errstatus=0
  
  for file
  do
     set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
     shift
  
     pathcomp=
     for d
     do
       pathcomp="$pathcomp$d"
       case "$pathcomp" in
         -* ) pathcomp=./$pathcomp ;;
       esac
  
       if test ! -d "$pathcomp"; then
          echo "mkdir $pathcomp"
  
          mkdir "$pathcomp" || lasterr=$?
  
          if test ! -d "$pathcomp"; then
    	  errstatus=$lasterr
          fi
       fi
  
       pathcomp="$pathcomp/"
     done
  done
  
  exit $errstatus
  
  # mkinstalldirs ends here