annotate mkinstalldirs @ 30982:7e7ba448ad10
(widget-choose, widget-choice-mouse-down-action):
Don't test x-popup-menu.
(function) <complete-function>: Complete only fbound symbols.
<validate, value>: New.
(variable) <complete-function>: Complete only bound symbols.
(coding-system): Add :base-only, :complete-function, :validate,
:value, :prompt-match.
(widget-coding-system-prompt-value): Use read-coding-system and
act on :base-only.
(editable-field): Add :help-echo.
(widget-push-button-gui, widget-push-button-cache)
(widget-gui-action, widget-editable-list-gui): COmment out, along
with uses.
(widget-at): Make arg optional.
(widget-echo-help): Adjust for current help-echo calling sequence.
(widget-specify-field, widget-specify-button)
(widget-specify-insert, widget-get-sibling, widget-image-find)
(widget-convert, widget-insert, widget-leave-text)
(widget-beginning-of-line, widget-end-of-line, widget-kill-line)
(widget-setup, widget-field-find, widget-before-change)
(widget-after-change, widget-default-complete)
(widget-default-create, widget-default-delete)
(widget-push-button-value-create, editable-field)
(widget-field-prompt-value, widget-field-validate)
(widget-choice-value-create, widget-choice-action)
(widget-choice-validate, widget-checklist-add-item)
(widget-radio-add-item, widget-radio-chosen)
(widget-radio-value-inline, widget-editable-list-value-create)
(widget-editable-list-entry-create)
(widget-documentation-link-add)
(widget-documentation-string-value-create)
(widget-regexp-validate, widget-file-complete)
(widget-sexp-validate, widget-plist-convert-widget)
(widget-plist-convert-widget, widget-alist-convert-widget)
(widget-alist-convert-widget, widget-color-complete): Simplify,
particularly to avoid bindings which aren't optimized out.
| author |
Dave Love <fx@gnu.org> |
| date |
Sun, 20 Aug 2000 18:34:24 +0000 |
| parents |
4fe4a165a116 |
| children |
774df19dd335 |
| rev |
line source |
|
25880
|
1 #! /bin/sh
|
|
|
2 # mkinstalldirs --- make directory hierarchy
|
|
|
3 # Author: Noah Friedman <friedman@prep.ai.mit.edu>
|
|
|
4 # Created: 1993-05-16
|
|
|
5 # Public domain
|
|
|
6
|
|
|
7 # $Id: mkinstalldirs,v 1.11 1998/05/19 07:05:25 drepper dead $
|
|
|
8
|
|
|
9 errstatus=0
|
|
|
10
|
|
|
11 for file
|
|
|
12 do
|
|
|
13 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
|
|
|
14 shift
|
|
|
15
|
|
|
16 pathcomp=
|
|
|
17 for d
|
|
|
18 do
|
|
|
19 pathcomp="$pathcomp$d"
|
|
|
20 case "$pathcomp" in
|
|
|
21 -* ) pathcomp=./$pathcomp ;;
|
|
|
22 esac
|
|
|
23
|
|
|
24 if test ! -d "$pathcomp"; then
|
|
|
25 echo "mkdir $pathcomp" 1>&2
|
|
|
26
|
|
|
27 mkdir "$pathcomp" || lasterr=$?
|
|
|
28
|
|
|
29 if test ! -d "$pathcomp"; then
|
|
|
30 errstatus=$lasterr
|
|
|
31 fi
|
|
|
32 fi
|
|
|
33
|
|
|
34 pathcomp="$pathcomp/"
|
|
|
35 done
|
|
|
36 done
|
|
|
37
|
|
|
38 exit $errstatus
|
|
|
39
|
|
|
40 # mkinstalldirs ends here
|
