Mercurial > emacs
view src/prefix-args.c @ 96385:01647003e227
* w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
(w32_to_x_weight, w32_to_all_x_charsets): Remove obsolete functions.
(w32_to_x_charset, x_to_w32_charset)
(Qw32_charset_ansi, Qw32_charset_symbol, Qw32_charset_default)
(Qw32_charset_shiftjis, Qw32_charset_hangeul, Qw32_charset_johab)
(Qw32_charset_chinesebig5, Qw32_charset_gb2312, Qw32_charset_oem)
(Qw32_charset_easteurope, Qw32_charset_turkish, Qw32_charset_baltic)
(Qw32_charset_russian, Qw32_charset_arabic, Qw32_charset_greek)
(Qw32_charset_hebrew, Qw32_charset_vietnamese, Qw32_charset_thai)
(Qw32_charset_mac, Vw32_charset_info_alist): Move to w32font.c.
(Qw32_charset_unicode): Remove.
(syms_of_w32fns): Update for above changes.
* w32font.c (w32_to_x_charset, x_to_w32_charset)
(Qw32_charset_ansi, Qw32_charset_symbol, Qw32_charset_default)
(Qw32_charset_shiftjis, Qw32_charset_hangeul, Qw32_charset_johab)
(Qw32_charset_chinesebig5, Qw32_charset_gb2312, Qw32_charset_oem)
(Qw32_charset_easteurope, Qw32_charset_turkish, Qw32_charset_baltic)
(Qw32_charset_russian, Qw32_charset_arabic, Qw32_charset_greek)
(Qw32_charset_hebrew, Qw32_charset_vietnamese, Qw32_charset_thai)
(Qw32_charset_mac, Vw32_charset_info_alist): Move from w32fns.c.
(syms_of_w32font): Update for above changes.
* w32-fns.el (top-level): Unconditionally define all charsets.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Fri, 27 Jun 2008 22:33:12 +0000 |
parents | 8971ddf55736 |
children | e038c1a8307c |
line wrap: on
line source
/* prefix-args.c - echo each argument, prefixed by a string. Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ /* Jim Blandy <jimb@occs.cs.oberlin.edu> - September 1992 When using GCC 2 as the linker in the build process, options intended for the linker need to be prefixed with the "-Xlinker" option. If an option takes an argument, we need to use -Xlinker twice - once for the option and once for its argument. For example, to run the linker with the options "-Bstatic" "-e" "_start", you'd need to pass the following options to GCC: -Xlinker -Bstatic -Xlinker -e -Xlinker _start. The Emacs makefile used to use a Bourne Shell `for' loop to prefix each linker option with "-Xlinker", but 1) the for loop was hairier than one might hope because it had to work when there were no arguments to pass to the linker - the shell barfs on a loop like this: for arg in ; do echo -Xlinker "$arg"; done and 2) the whole compilation command containing this loop seems to exit with a non-zero status and halt the build under Ultrix. If I can't write a completely portable program to do this in C, I'm quitting and taking up gardening. */ #ifdef HAVE_CONFIG_H # include <config.h> #endif #if STDC_HEADERS # include <stdlib.h> /* for proper declaration of `exit' */ #endif #include <stdio.h> #include <stdlib.h> int main (argc, argv) int argc; char **argv; { char *progname; char *prefix; progname = argv[0]; argc--, argv++; if (argc < 1) { fprintf (stderr, "Usage: %s PREFIX ARGS...\n\ Echo each ARG preceded by PREFIX and a space.\n", progname); exit (2); } prefix = argv[0]; argc--, argv++; for (; argc > 0; argc--, argv++) printf ("%s %s%c", prefix, argv[0], (argc > 1) ? ' ' : '\n'); exit (0); } /* arch-tag: 08136d70-e5c0-49c7-bcd8-b4850233977a (do not change this comment) */