annotate lispref/mkinstalldirs @ 59437:4cd1791518c2
(defcalcmodevar): New macro.
(calc-mode-var-list-restore-default-values,
calc-mode-var-list-restore-saved-values): New functions.
(calc-mode-var-list): Use defcalcmodevar to define it.
(calc-always-load-extensions, calc-line-numbering)
(calc-line-breaking, calc-display-just, calc-display-origin)
(calc-number-radix, calc-leading-zeros, calc-group-digits)
(calc-group-char, calc-point-char, calc-frac-format)
(calc-prefer-frac, calc-hms-format, calc-date-format)
(calc-float-format, calc-full-float-format, calc-complex-format)
(calc-complex-mode, calc-infinite-mode, calc-display-strings)
(calc-matrix-just, calc-break-vectors, calc-full-vectors)
(calc-full-trail-vectors, calc-vector-commas, calc-vector-brackets)
(calc-matrix-brackets, calc-language, calc-language-option)
(calc-left-label, calc-right-label, calc-word-size)
(calc-previous-modulo, calc-simplify-mode, calc-auto-recompute)
(calc-display-raw, calc-internal-prec, calc-angle-mode)
(calc-algebraic-mode, calc-incomplete-algebraic-mode)
(calc-symbolic-mode, calc-matrix-mode, calc-shift-prefix)
(calc-window-height, calc-display-trail, calc-show-selections)
(calc-use-selections, calc-assoc-selections, calc-display-working-message)
(calc-auto-why, calc-timing, calc-mode-save-mode)
(calc-standard-date-formats, calc-autorange-units, calc-was-keypad-mode)
(calc-full-mode, calc-user-parse-tables, calc-gnuplot-default-device)
(calc-gnuplot-default-output, calc-gnuplot-print-device)
(calc-gnuplot-print-output, calc-gnuplot-geometry)
(calc-graph-default-resolution, calc-graph-default-resolution-3d)
(calc-invocation-macro, calc-show-banner): Use defcalcmodevar to
declare them and set their default values.
| author |
Jay Belanger <jay.p.belanger@gmail.com> |
| date |
Sun, 09 Jan 2005 15:48:20 +0000 |
| parents |
746c40973d25 |
| children |
eb7e8d483840 |
| rev |
line source |
|
30517
|
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 errstatus=0
|
|
|
8
|
|
|
9 for file
|
|
|
10 do
|
|
|
11 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
|
|
|
12 shift
|
|
|
13
|
|
|
14 pathcomp=
|
|
|
15 for d
|
|
|
16 do
|
|
|
17 pathcomp="$pathcomp$d"
|
|
|
18 case "$pathcomp" in
|
|
|
19 -* ) pathcomp=./$pathcomp ;;
|
|
|
20 esac
|
|
|
21
|
|
|
22 if test ! -d "$pathcomp"; then
|
|
|
23 echo "mkdir $pathcomp" 1>&2
|
|
|
24
|
|
|
25 mkdir "$pathcomp" || lasterr=$?
|
|
|
26
|
|
|
27 if test ! -d "$pathcomp"; then
|
|
|
28 errstatus=$lasterr
|
|
|
29 fi
|
|
|
30 fi
|
|
|
31
|
|
|
32 pathcomp="$pathcomp/"
|
|
|
33 done
|
|
|
34 done
|
|
|
35
|
|
|
36 exit $errstatus
|
|
|
37
|
|
|
38 # mkinstalldirs ends here
|
