view mkinstalldirs @ 39754:6a46751c85df

Change maintainer to FSF and remove loads of compatibility cruft. (tcl-using-emacs-19, tcl-using-emacs-19-23, tcl-using-xemacs-19) (tcl-version, tcl-maintainer, tcl-use-hairy-comment-detector): Remove. (tcl-mode-map): Remove bindings for tcl-beginning-of-defun, tcl-end-of-defun, tcl-mark-defun, tcl-indent-for-comment, tcl-submit-bug-report. (tcl-mode-syntax-table): Leave \f alone. (inferior-tcl-mode-map): Remove bindings for tcl-beginning-of-defun, tcl-end-of-defun, tcl-submit-bug-report. (tcl-xemacs-menu): Fix up and pass it directly to easymenu. (tcl-add-emacs-menu): Remove. (tcl-fill-mode-map, tcl-fill-inferior-map): Moved into the defvar. (tcl-keyword-list): Add `chain'. (tcl-font-lock-syntactic-keywords): New variable. (tcl-pps-has-arg-6): Remove. (tcl-internal-beginning-of-defun, tcl-internal-end-of-defun) (tcl-internal-mark-defun): Remove. (tcl-set-proc-regexp, tcl-set-font-lock-keywords): Use regexp-opt. (tcl-mode): Use define-derived-mode. Simplify. Set comment-indent-function. (tcl-indent-command): Use line-beginning-position and comment-indent. (tcl-calculate-indent): Renamed from calculate-tcl-indent. (tcl-indent-line): Use tcl-calculate-indent. (tcl-indent-exp): Renamed from indent-tcl-exp. Use new names. (tcl-add-log-defun): Renamed from add-log-tcl-defun. Use match-string. (tcl-filter): Use with-current-buffer, simplify. (inferior-tcl-mode): Use define-derived-mode. (tcl-hairy-in-comment): Renamed tcl-in-comment. (tcl-simple-in-comment, tcl-in-comment): Removed. (tcl-files-alist): New function. (tcl-help-snarf-commands): Use it and return the result directly rather than through a global variable. (tcl-reread-help-files): Fix up the call to tcl-help-snarf-commands. (tcl-help-on-word): Provide the default value to completing-read. (tcl-hilit): Remove. (tcl-hashify-buffer, tcl-popup-menu): Simplify. (tcl-comment-indent): New function. (tcl-submit-bug-report): Remove. (tcl-uncomment-region, tcl-indent-for-comment, add-log-tcl-defun) (indent-tcl-exp, calculate-tcl-indent, tcl-beginning-of-defun) (tcl-end-of-defun, tcl-mark-defun, tcl-mark): Redefine as aliases.

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

# $Id: mkinstalldirs,v 1.1 2001/02/02 13:04:53 gerd 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" && chmod a+rx "$pathcomp") || lasterr=$?

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

     pathcomp="$pathcomp/"
   done
done

exit $errstatus

# mkinstalldirs ends here