view lispref/mkinstalldirs @ 55827:c5c73c8c2b3e

Don't include cl. Don't bother with old Emacs versions. (thumbs-subst-char-in-string): Deleted. (thumbs-thumbname): Use subst-char-in-string. (thumbs-resize-image): Use condition-case, not ignore-errors. (thumbs-kill-buffer): Likewise. (thumbs-mode): Make buffer read-only. (thumbs-make-thumb): Unconditionally accept an existing file. (thumbs-insert-thumb): Add thumb-image-file property to the image. (thumbs-do-thumbs-insertion): Be smarter about where to put newlines. (thumbs-show-thumbs-list): Error if images not supported. (thumbs-save-current-image): Improve prompt string. (thumbs-mode-map): Define u, R, x. (thumbs-unmark): New command. (thumbs-emboss-image): Minor cleanup. (thumbs-forward-char, thumbs-backward-char): Skip chars with no image. (thumbs-rename-images): New command. (thumbs-show-image-num): Rewrite. Don't rename the buffer. (thumbs-current-image): New function. (thumbs-file-list, thumbs-file-alist): New functions. (thumbs-find-image): Delete arg L. Don't set up thumbs-fileL as buffer-local global var. (thumbs-find-image-at-point): Use thumbs-current-image. (thumbs-set-image-at-point-to-root-window): Likewise. (thumbs-delete-images): Use thumbs-current-image, thumbs-file-alist. Record and warn about errors. Update thumbs-markedL for deletions. (thumbs-next-image, thumbs-previous-image): Use thumbs-file-alist. (thumbs-redraw-buffer): Use thumbs-file-list. (thumbs-mark): Use thumbs-current-image. (thumbs-show-name): Use thumbs-current-image. (thumbs-show-name): Do nothing if no image at point. (thumbs-mouse-find-image): New command. (thumbs-mode-map): Bind it to mouse-2. (thumbs-mode): Make mode-class special. (thumbs-view-image-mode): Likewise.

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

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