(linenum→info "unix/slp.c:2238")

emacs/22.1/mkinstalldirs

    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: errstatus=0
    8: 
    9: for file
   10: do
   11:    set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
   12:    shift
   13: 
   14:    pathcomp=
   15:    for d
   16:    do
   17:      pathcomp="$pathcomp$d"
   18:      case "$pathcomp" in
   19:        -* ) pathcomp=./$pathcomp ;;
   20:      esac
   21: 
   22:      if test ! -d "$pathcomp"; then
   23:         echo "mkdir $pathcomp" 1>&2
   24: 
   25:         (mkdir "$pathcomp" && chmod a+rx "$pathcomp") || lasterr=$?
   26: 
   27:         if test ! -d "$pathcomp"; then
   28:           errstatus=$lasterr
   29:         fi
   30:      fi
   31: 
   32:      pathcomp="$pathcomp/"
   33:    done
   34: done
   35: 
   36: exit $errstatus
   37: 
   38: # mkinstalldirs ends here
Syntax (Markdown)