Mercurial > emacs
annotate src/prefix-args.c @ 81447:697178a8197c
* thingatpt.el: Add support for email addresses (`email').
(thing-at-point, bounds-of-thing-at-point): Document `email' support.
(thing-at-point-email-regexp): New variable.
(`email'): Put `bounds-of-thing-at-point' and `thing-at-point'
properties on this symbol, with lambda forms for values.
author | Karl Fogel <kfogel@red-bean.com> |
---|---|
date | Sat, 16 Jun 2007 01:03:35 +0000 |
parents | e90d04cd455a |
children | 922696f363b0 b8d9a391daf3 95d0cdf160ea |
rev | line source |
---|---|
20572 | 1 /* prefix-args.c - echo each argument, prefixed by a string. |
75227
e90d04cd455a
Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents:
74658
diff
changeset
|
2 Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, |
e90d04cd455a
Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents:
74658
diff
changeset
|
3 2006, 2007 Free Software Foundation, Inc. |
36273
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
4 |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
5 This file is part of GNU Emacs. |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
6 |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
7 GNU Emacs is free software; you can redistribute it and/or modify |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
8 it under the terms of the GNU General Public License as published by |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
9 the Free Software Foundation; either version 2, or (at your option) |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
10 any later version. |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
11 |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
12 GNU Emacs is distributed in the hope that it will be useful, |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
15 GNU General Public License for more details. |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
16 |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
17 You should have received a copy of the GNU General Public License |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
18 along with GNU Emacs; see the file COPYING. If not, write to |
64084 | 19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
20 Boston, MA 02110-1301, USA. */ | |
36273
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
21 |
0c4cb98fb3f4
Add copyright and permissions.
Richard M. Stallman <rms@gnu.org>
parents:
21514
diff
changeset
|
22 /* Jim Blandy <jimb@occs.cs.oberlin.edu> - September 1992 |
20572 | 23 |
24 When using GCC 2 as the linker in the build process, options | |
25 intended for the linker need to be prefixed with the "-Xlinker" | |
26 option. If an option takes an argument, we need to use -Xlinker | |
27 twice - once for the option and once for its argument. For | |
28 example, to run the linker with the options "-Bstatic" "-e" | |
29 "_start", you'd need to pass the following options to GCC: | |
30 | |
31 -Xlinker -Bstatic -Xlinker -e -Xlinker _start. | |
32 | |
33 The Emacs makefile used to use a Bourne Shell `for' loop to prefix | |
34 each linker option with "-Xlinker", but 1) the for loop was hairier | |
35 than one might hope because it had to work when there were no | |
36 arguments to pass to the linker - the shell barfs on a loop like | |
37 this: | |
38 | |
39 for arg in ; do echo -Xlinker "$arg"; done | |
40 | |
41 and 2) the whole compilation command containing this loop seems to | |
42 exit with a non-zero status and halt the build under Ultrix. | |
43 | |
44 If I can't write a completely portable program to do this in C, | |
45 I'm quitting and taking up gardening. */ | |
46 | |
74658
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
47 #ifdef HAVE_CONFIG_H |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
48 # include <config.h> |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
49 #endif |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
50 |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
51 #if STDC_HEADERS |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
52 # include <stdlib.h> /* for proper declaration of `exit' */ |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
53 #endif |
416faa663fc5
[STDC_HEADERS]: Include stdlib.h.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
54 |
20572 | 55 #include <stdio.h> |
56 | |
21514 | 57 int |
20572 | 58 main (argc, argv) |
59 int argc; | |
60 char **argv; | |
61 { | |
62 char *progname; | |
63 char *prefix; | |
64 | |
65 progname = argv[0]; | |
66 argc--, argv++; | |
67 | |
68 if (argc < 1) | |
69 { | |
70 fprintf (stderr, "Usage: %s PREFIX ARGS...\n\ | |
71 Echo each ARG preceded by PREFIX and a space.\n", progname); | |
72 exit (2); | |
73 } | |
74 | |
75 prefix = argv[0]; | |
76 argc--, argv++; | |
77 | |
78 for (; argc > 0; argc--, argv++) | |
79 printf ("%s %s%c", prefix, argv[0], (argc > 1) ? ' ' : '\n'); | |
80 | |
81 exit (0); | |
82 } | |
52401 | 83 |
84 /* arch-tag: 08136d70-e5c0-49c7-bcd8-b4850233977a | |
85 (do not change this comment) */ |