view lispintro/mkinstalldirs @ 50598:5f26cbba48ba

Whitespace changes, some re-ordering of code, trivial commentary change. (fortran, fortran-indent, fortran-comment) (fortran-tab-mode-default, fortran-continuation-indent) (fortran-comment-indent-style, fortran-blink-matching-if) (fortran-continuation-string, fortran-electric-line-number) (fortran-break-before-delimiters, fortran-mode-hook) (fortran-end-prog-re, fortran-imenu-generic-expression): Minor doc changes. (fortran-tab-mode-minor-mode-string): New variable. (fortran-tab-mode-string): Now customization is meaningful. (fortran-column-ruler-fixed, fortran-column-ruler-tab) (fortran-analyze-depth): Use defcustom. (fortran-if-start-re, fortran-end-prog-re1, fortran-fill) (fortran-break-line, fortran-prepare-abbrev-list-buffer) (fortran-auto-fill): Add doc string. (fortran-type-types): New constant (was local to let binding). (fortran-font-lock-keywords-1, fortran-font-lock-keywords-2) (fortran-font-lock-syntactic-keywords): Initialize in defvar. (fortran-font-lock-keywords-3): Initialize in defvar. Use 1+ now depth of fortran-type-types has changed. Remove extra and. (fortran-mode-menu): Minor re-organization. Use lookup-key. (fortran-mode): Doc changes. Some re-organization. Use fortran-tab-mode-minor-mode-string. (fortran-comment-indent): Add doc string. Move save-excursion. Use 1+. (fortran-indent-comment, fortran-fill-statement): Change interactive spec. Use unless. (fortran-comment-region): Doc change. Reverse logic of arg test. Use zerop. (fortran-abbrev-start, fortran-split-line) (fortran-electric-line-number, fortran-indent-subprogram) (fortran-strip-sequence-nos): Change interactive spec. (fortran-remove-continuation): Add doc string. Use when. (fortran-numerical-continuation-char): Doc change. Use 1+. (fortran-previous-statement, fortran-next-statement) (fortran-beginning-do, fortran-calculate-indent) (fortran-end-do, fortran-end-if, fortran-beginning-if): Use zerop, 1+, 1-. (fortran-blink-match, fortran-check-for-matching-do): Use when. (fortran-indent-line): Change interactive spec. Remove un-needed if. Use when. (fortran-indent-to-column): Doc change. Use when, unless. (fortran-find-comment-start-skip): No longer interactive. (fortran-analyze-file-format): Minor doc change. Remove un-needed setq. (minor-mode-alist): Use add-to-list. (fortran-fill-paragraph): Change interactive spec, doc string.

#! /bin/sh
# mkinstalldirs --- make directory hierarchy
# Author: Noah Friedman <[e-mail]>
# Created: 1993-05-16
# Public domain

# $Id: mkinstalldirs,v 1.10 1996/05/03 07:37:52 friedman 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" 1>&2

        mkdir "$pathcomp" || lasterr=$?

        if test ! -d "$pathcomp"; then
  	  errstatus=$lasterr
        fi
     fi

     pathcomp="$pathcomp/"
   done
done

exit $errstatus

# mkinstalldirs ends here