view mkinstalldirs @ 63228:1cde198ddda6

Revision: [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-392 Remove "-face" suffix from tex-mode faces 2005-06-10 Miles Bader <[e-mail]> * lisp/textmodes/tex-mode.el (tex-math, tex-verbatim): Remove "-face" suffix from face names. (tex-math-face, tex-verbatim-face): New backward-compatibility aliases for renamed faces. (tex-math-face, tex-verbatim-face): Use renamed tex-mode faces. (tex-insert-quote): Use `tex-verbatim-face' variable instead of literal face name.

+
鐃緒申#! /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" && chmod a+rx "$pathcomp") || lasterr=$?
+
鐃緒申
+
鐃緒申        if test ! -d "$pathcomp"; then
+
鐃緒申  	  errstatus=$lasterr
+
鐃緒申        fi
+
鐃緒申     fi
+
鐃緒申
+
鐃緒申     pathcomp="$pathcomp/"
+
鐃緒申   done
+
鐃緒申done
+
鐃緒申
+
鐃緒申exit $errstatus
+
鐃緒申
+
鐃緒申# mkinstalldirs ends here