Mercurial > emacs
annotate install-sh @ 51743:f63c242330b2
2003-06-30 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
* textmodes/bibtex.el (bibtex-sort-entry-class): new entry
catch-all.
(bibtex-sort-ignore-string-entries): default value t.
(bibtex-entry-kill-ring-max): Reintroduced as it was removed
erroneously in previous version.
(bibtex-string-files): Docstring reflects new parsing scheme.
(bibtex-autokey-transcriptions): Merge some rewrite entries, fix
docstring, add # as one of the chars to crush
(bibtex-autokey-prefix-string, bibtex-autokey-names)
(bibtex-autokey-names-stretch, bibtex-autokey-additional-names)
(bibtex-autokey-name-change-strings)
(bibtex-autokey-name-case-convert, bibtex-autokey-name-length)
(bibtex-autokey-name-separator, bibtex-autokey-year-length)
(bibtex-autokey-use-crossref, bibtex-autokey-titlewords)
(bibtex-autokey-title-terminators)
(bibtex-autokey-titlewords-stretch)
(bibtex-autokey-titleword-ignore)
(bibtex-autokey-titleword-case-convert)
(bibtex-autokey-titleword-abbrevs)
(bibtex-autokey-titleword-abbrevs)
(bibtex-autokey-titleword-change-strings)
(bibtex-autokey-titleword-length)
(bibtex-autokey-titleword-separator)
(bibtex-autokey-name-year-separator)
(bibtex-autokey-year-title-separator)
(bibtex-autokey-before-presentation-function)
(bibtex-entry-type-history, bibtex-entry-maybe-empty-head): Fix
docstring.
(bibtex-strings, bibtex-reference-keys): Use
lazy-completion-table and make-variable-buffer-local.
(bibtex-sort-entry-class-alist): Use downcase, account for
catch-all.
(bibtex-braced-string-syntax-table)
(bibtex-quoted-string-syntax-table): New variables.
(bibtex-parse-nested-braces): Remove.
(bibtex-parse-field-string): Use syntax table and forward-sexp.
(bibtex-parse-association): Simplify.
(bibtex-parse-field-name): Obey bibtex-autoadd-commas.
(bibtex-parse-field-text): Simplify.
(bibtex-search-forward-field, bibtex-search-backward-field):
argument BOUND can take value t.
(bibtex-start-of-field, bibtex-start-of-name-in-field)
(bibtex-end-of-name-in-field, bibtex-end-of-field)
(bibtex-start-of-text-in-field, bibtex-end-of-text-in-field)
(bibtex-start-of-text-in-string, bibtex-end-of-text-in-string)
(bibtex-end-of-string, bibtex-type-in-head): Use defsubst.
(bibtex-skip-to-valid-entry): Return buffer position of beginning
and ending of entry. Update for changes of bibtex-search-entry.
Simplify.
(bibtex-map-entries): FUN is called with three arguments.
(bibtex-search-entry): Return a cons pair with buffer positions of
beginning and end of entry.
(bibtex-enclosing-field): Simplify.
(bibtex-format-entry): Use booktitle to set a missing title.
(bibtex-autokey-get-names): Fiddle with regexps.
(bibtex-generate-autokey): Use identity.
(bibtex-parse-keys): Use simplified parsing algorithm if
bibtex-parse-keys-fast is non-nil. Simplify. Change order of
arguments. Return alist of keys.
(bibtex-parse-strings): Simplify. Return alist of strings.
(bibtex-complete-string-cleanup): Fix docstring.
(bibtex-read-key): New function.
(bibtex-mode): Fix docstring. Do not parse for keys and
strings when the mode is entered. Set fill-paragraph-function to
bibtex-fill-field. Setup font-lock-mark-block-function the way
font-lock intended.
(bibtex-entry): Use bibtex-read-key. Obey bibtex-autofill-types.
(bibtex-parse-entry, bibtex-autofill-entry): New functions.
(bibtex-print-help-message, bibtex-remove-OPT-or-ALT)
(bibtex-Preamble): Avoid hard coded constants.
(bibtex-make-field): Fix docstring. Simplify.
(bibtex-beginning-of-entry): Always return new position of point.
(bibtex-end-of-entry): Rearrange cond clauses.
(bibtex-count-entries, bibtex-validate, bibtex-reformat): Update
for changes of bibtex-map-entries.
(bibtex-ispell-abstract): Do not move point.
(bibtex-entry-index): Use downcase. Simplify.
(bibtex-lessp): Handle catch-all.
(bibtex-find-crossref): Turned into a command.
(bibtex-find-entry): Simplify. Use bibtex-read-key. Fix regexp.
(bibtex-clean-entry): Use bibtex-read-key. Handle string and
preamble entries.
(bibtex-fill-field-bounds): New function.
(bibtex-fill-field): New command. Bound to
fill-paragraph-function.
(bibtex-fill-entry): Use bibtex-fill-field-bounds
(bibtex-String): Use bibtex-strings. Always obey
bibtex-sort-ignore-string-entries.
author | Kai Großjohann <kgrossjo@eu.uu.net> |
---|---|
date | Sat, 05 Jul 2003 12:41:24 +0000 |
parents | 23a1cea22d13 |
children |
rev | line source |
---|---|
25978 | 1 #! /bin/sh |
2 # | |
3 # install - install a program, script, or datafile | |
4 # This comes from X11R5 (mit/util/scripts/install.sh). | |
5 # | |
6 # Copyright 1991 by the Massachusetts Institute of Technology | |
7 # | |
8 # Permission to use, copy, modify, distribute, and sell this software and its | |
9 # documentation for any purpose is hereby granted without fee, provided that | |
10 # the above copyright notice appear in all copies and that both that | |
11 # copyright notice and this permission notice appear in supporting | |
12 # documentation, and that the name of M.I.T. not be used in advertising or | |
13 # publicity pertaining to distribution of the software without specific, | |
14 # written prior permission. M.I.T. makes no representations about the | |
15 # suitability of this software for any purpose. It is provided "as is" | |
16 # without express or implied warranty. | |
17 # | |
18 # Calling this script install-sh is preferred over install.sh, to prevent | |
19 # `make' implicit rules from creating a file called install from it | |
20 # when there is no Makefile. | |
21 # | |
22 # This script is compatible with the BSD install script, but was written | |
23 # from scratch. It can only install one file at a time, a restriction | |
24 # shared with many OS's install programs. | |
25 | |
26 | |
27 # set DOITPROG to echo to test this script | |
28 | |
29 # Don't use :- since 4.3BSD and earlier shells don't like it. | |
30 doit="${DOITPROG-}" | |
31 | |
32 | |
33 # put in absolute paths if you don't have them in your path; or use env. vars. | |
34 | |
35 mvprog="${MVPROG-mv}" | |
36 cpprog="${CPPROG-cp}" | |
37 chmodprog="${CHMODPROG-chmod}" | |
38 chownprog="${CHOWNPROG-chown}" | |
39 chgrpprog="${CHGRPPROG-chgrp}" | |
40 stripprog="${STRIPPROG-strip}" | |
41 rmprog="${RMPROG-rm}" | |
42 mkdirprog="${MKDIRPROG-mkdir}" | |
43 | |
44 transformbasename="" | |
45 transform_arg="" | |
46 instcmd="$mvprog" | |
47 chmodcmd="$chmodprog 0755" | |
48 chowncmd="" | |
49 chgrpcmd="" | |
50 stripcmd="" | |
51 rmcmd="$rmprog -f" | |
52 mvcmd="$mvprog" | |
53 src="" | |
54 dst="" | |
55 dir_arg="" | |
56 | |
57 while [ x"$1" != x ]; do | |
58 case $1 in | |
59 -c) instcmd="$cpprog" | |
60 shift | |
61 continue;; | |
62 | |
63 -d) dir_arg=true | |
64 shift | |
65 continue;; | |
66 | |
67 -m) chmodcmd="$chmodprog $2" | |
68 shift | |
69 shift | |
70 continue;; | |
71 | |
72 -o) chowncmd="$chownprog $2" | |
73 shift | |
74 shift | |
75 continue;; | |
76 | |
77 -g) chgrpcmd="$chgrpprog $2" | |
78 shift | |
79 shift | |
80 continue;; | |
81 | |
82 -s) stripcmd="$stripprog" | |
83 shift | |
84 continue;; | |
85 | |
86 -t=*) transformarg=`echo $1 | sed 's/-t=//'` | |
87 shift | |
88 continue;; | |
89 | |
90 -b=*) transformbasename=`echo $1 | sed 's/-b=//'` | |
91 shift | |
92 continue;; | |
93 | |
94 *) if [ x"$src" = x ] | |
95 then | |
96 src=$1 | |
97 else | |
98 # this colon is to work around a 386BSD /bin/sh bug | |
99 : | |
100 dst=$1 | |
101 fi | |
102 shift | |
103 continue;; | |
104 esac | |
105 done | |
106 | |
107 if [ x"$src" = x ] | |
108 then | |
109 echo "install: no input file specified" | |
110 exit 1 | |
111 else | |
112 true | |
113 fi | |
114 | |
115 if [ x"$dir_arg" != x ]; then | |
116 dst=$src | |
117 src="" | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25978
diff
changeset
|
118 |
25978 | 119 if [ -d $dst ]; then |
120 instcmd=: | |
121 else | |
122 instcmd=mkdir | |
123 fi | |
124 else | |
125 | |
126 # Waiting for this to be detected by the "$instcmd $src $dsttmp" command | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25978
diff
changeset
|
127 # might cause directories to be created, which would be especially bad |
25978 | 128 # if $src (and thus $dsttmp) contains '*'. |
129 | |
130 if [ -f $src -o -d $src ] | |
131 then | |
132 true | |
133 else | |
134 echo "install: $src does not exist" | |
135 exit 1 | |
136 fi | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25978
diff
changeset
|
137 |
25978 | 138 if [ x"$dst" = x ] |
139 then | |
140 echo "install: no destination specified" | |
141 exit 1 | |
142 else | |
143 true | |
144 fi | |
145 | |
146 # If destination is a directory, append the input filename; if your system | |
147 # does not like double slashes in filenames, you may need to add some logic | |
148 | |
149 if [ -d $dst ] | |
150 then | |
151 dst="$dst"/`basename $src` | |
152 else | |
153 true | |
154 fi | |
155 fi | |
156 | |
157 ## this sed command emulates the dirname command | |
158 dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'` | |
159 | |
160 # Make sure that the destination directory exists. | |
161 # this part is taken from Noah Friedman's mkinstalldirs script | |
162 | |
163 # Skip lots of stat calls in the usual case. | |
164 if [ ! -d "$dstdir" ]; then | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25978
diff
changeset
|
165 defaultIFS=' |
25978 | 166 ' |
167 IFS="${IFS-${defaultIFS}}" | |
168 | |
169 oIFS="${IFS}" | |
170 # Some sh's can't handle IFS=/ for some reason. | |
171 IFS='%' | |
172 set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'` | |
173 IFS="${oIFS}" | |
174 | |
175 pathcomp='' | |
176 | |
177 while [ $# -ne 0 ] ; do | |
178 pathcomp="${pathcomp}${1}" | |
179 shift | |
180 | |
181 if [ ! -d "${pathcomp}" ] ; | |
182 then | |
183 $mkdirprog "${pathcomp}" | |
184 else | |
185 true | |
186 fi | |
187 | |
188 pathcomp="${pathcomp}/" | |
189 done | |
190 fi | |
191 | |
192 if [ x"$dir_arg" != x ] | |
193 then | |
194 $doit $instcmd $dst && | |
195 | |
196 if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi && | |
197 if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi && | |
198 if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi && | |
199 if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi | |
200 else | |
201 | |
202 # If we're going to rename the final executable, determine the name now. | |
203 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25978
diff
changeset
|
204 if [ x"$transformarg" = x ] |
25978 | 205 then |
206 dstfile=`basename $dst` | |
207 else | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25978
diff
changeset
|
208 dstfile=`basename $dst $transformbasename | |
25978 | 209 sed $transformarg`$transformbasename |
210 fi | |
211 | |
212 # don't allow the sed command to completely eliminate the filename | |
213 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25978
diff
changeset
|
214 if [ x"$dstfile" = x ] |
25978 | 215 then |
216 dstfile=`basename $dst` | |
217 else | |
218 true | |
219 fi | |
220 | |
221 # Make a temp file name in the proper directory. | |
222 | |
223 dsttmp=$dstdir/#inst.$$# | |
224 | |
225 # Move or copy the file name to the temp name | |
226 | |
227 $doit $instcmd $src $dsttmp && | |
228 | |
229 trap "rm -f ${dsttmp}" 0 && | |
230 | |
231 # and set any options; do chmod last to preserve setuid bits | |
232 | |
233 # If any of these fail, we abort the whole thing. If we want to | |
234 # ignore errors from any of these, just make sure not to ignore | |
235 # errors from the above "$doit $instcmd $src $dsttmp" command. | |
236 | |
237 if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi && | |
238 if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi && | |
239 if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi && | |
240 if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi && | |
241 | |
242 # Now rename the file to the real destination. | |
243 | |
244 $doit $rmcmd -f $dstdir/$dstfile && | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25978
diff
changeset
|
245 $doit $mvcmd $dsttmp $dstdir/$dstfile |
25978 | 246 |
247 fi && | |
248 | |
249 | |
250 exit 0 |