annotate lispref/mkinstalldirs @ 71054:1a9194ab1577

(term-if-xemacs, term-ifnot-xemacs): Delete, replace uses with a simple test. (term-set-escape-char, term-mode, term-check-kill-echo-list) (term-send-raw-string, term-send-raw, term-mouse-paste) (term-char-mode, term-line-mode, term-exec, term-sentinel) (term-handle-exit, term-read-input-ring) (term-previous-matching-input-string) (term-previous-matching-input-string-position) (term-previous-matching-input-from-input) (term-replace-by-expanded-history, term-send-input) (term-skip-prompt, term-bol, term-send-invisible) (term-kill-input, term-delchar-or-maybe-eof) (term-backward-matching-input, term-check-source) (term-proc-query, term-emulate-terminal) (term-handle-colors-array, term-process-pager, term-pager-line) (term-pager-bob, term-unwrap-line, term-word) (term-dynamic-complete-filename) (term-dynamic-complete-as-filename) (term-dynamic-simple-complete): Replace one arm ifs with whens or unlesses.
author Dan Nicolaescu <dann@ics.uci.edu>
date Mon, 29 May 2006 06:11:33 +0000
parents 746c40973d25
children eb7e8d483840
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
30517
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 #! /bin/sh
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2 # mkinstalldirs --- make directory hierarchy
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3 # Author: Noah Friedman <friedman@prep.ai.mit.edu>
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4 # Created: 1993-05-16
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5 # Public domain
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
6
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
7 errstatus=0
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
8
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
9 for file
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
10 do
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
12 shift
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
14 pathcomp=
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
15 for d
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16 do
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
17 pathcomp="$pathcomp$d"
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 case "$pathcomp" in
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
19 -* ) pathcomp=./$pathcomp ;;
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
20 esac
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22 if test ! -d "$pathcomp"; then
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
23 echo "mkdir $pathcomp" 1>&2
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
24
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
25 mkdir "$pathcomp" || lasterr=$?
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
26
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
27 if test ! -d "$pathcomp"; then
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28 errstatus=$lasterr
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29 fi
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30 fi
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
31
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
32 pathcomp="$pathcomp/"
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33 done
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34 done
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
35
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36 exit $errstatus
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38 # mkinstalldirs ends here