1999-04-16 09:34:55 +08:00
|
|
|
/* nls.c -- skeletal internationalization code. */
|
|
|
|
|
|
|
|
/* Copyright (C) 1996 Free Software Foundation, Inc.
|
|
|
|
|
|
|
|
This file is part of the GNU Readline Library, a library for
|
|
|
|
reading lines of text with interactive input and history editing.
|
|
|
|
|
|
|
|
The GNU Readline Library is free software; you can redistribute it
|
|
|
|
and/or modify it under the terms of the GNU General Public License
|
readline:
2000-07-09 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* Import of readline 4.1.
Locally modified files: Makefile.in, configure.in, configure
(regenerated), config.h.in (regenerated), readline.h, rltty.c,
shell.c signals.c.
Locally added files: acconfig.h, config/*, config.h.bot,
cross-build/*, doc/inc-hit.texinfo.
New files: USAGE, rlprivate.h, rlshell.h, xmalloc.h.
examples:
2000-07-09 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* Import of readline 4.1.
New files: excallback.c, rlfe.c.
doc:
2000-07-09 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* Import of readline 4.1.
Regenerated inc-hist.texinfo as copy of hsuser.texinfo, for
inclusion in the gdb manual.
New file: rluserman.texinfo
2000-07-10 01:20:00 +08:00
|
|
|
as published by the Free Software Foundation; either version 2, or
|
1999-04-16 09:34:55 +08:00
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
The GNU Readline Library 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.
|
|
|
|
|
|
|
|
The GNU General Public License is often shipped with GNU software, and
|
|
|
|
is generally kept in a file called COPYING or LICENSE. If you do not
|
|
|
|
have a copy of the license, write to the Free Software Foundation,
|
readline:
2000-07-09 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* Import of readline 4.1.
Locally modified files: Makefile.in, configure.in, configure
(regenerated), config.h.in (regenerated), readline.h, rltty.c,
shell.c signals.c.
Locally added files: acconfig.h, config/*, config.h.bot,
cross-build/*, doc/inc-hit.texinfo.
New files: USAGE, rlprivate.h, rlshell.h, xmalloc.h.
examples:
2000-07-09 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* Import of readline 4.1.
New files: excallback.c, rlfe.c.
doc:
2000-07-09 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* Import of readline 4.1.
Regenerated inc-hist.texinfo as copy of hsuser.texinfo, for
inclusion in the gdb manual.
New file: rluserman.texinfo
2000-07-10 01:20:00 +08:00
|
|
|
59 Temple Place, Suite 330, Boston, MA 02111 USA. */
|
1999-04-16 09:34:55 +08:00
|
|
|
#define READLINE_LIBRARY
|
|
|
|
|
|
|
|
#if defined (HAVE_CONFIG_H)
|
|
|
|
# include <config.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include <sys/types.h>
|
|
|
|
|
readline:
2000-07-09 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* Import of readline 4.1.
Locally modified files: Makefile.in, configure.in, configure
(regenerated), config.h.in (regenerated), readline.h, rltty.c,
shell.c signals.c.
Locally added files: acconfig.h, config/*, config.h.bot,
cross-build/*, doc/inc-hit.texinfo.
New files: USAGE, rlprivate.h, rlshell.h, xmalloc.h.
examples:
2000-07-09 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* Import of readline 4.1.
New files: excallback.c, rlfe.c.
doc:
2000-07-09 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* Import of readline 4.1.
Regenerated inc-hist.texinfo as copy of hsuser.texinfo, for
inclusion in the gdb manual.
New file: rluserman.texinfo
2000-07-10 01:20:00 +08:00
|
|
|
#include <stdio.h>
|
|
|
|
|
1999-04-16 09:34:55 +08:00
|
|
|
#if defined (HAVE_UNISTD_H)
|
|
|
|
# include <unistd.h>
|
|
|
|
#endif /* HAVE_UNISTD_H */
|
|
|
|
|
|
|
|
#if defined (HAVE_STDLIB_H)
|
|
|
|
# include <stdlib.h>
|
|
|
|
#else
|
|
|
|
# include "ansi_stdlib.h"
|
|
|
|
#endif /* HAVE_STDLIB_H */
|
|
|
|
|
|
|
|
#if defined (HAVE_LOCALE_H)
|
|
|
|
# include <locale.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include <ctype.h>
|
|
|
|
|
|
|
|
#include "rldefs.h"
|
readline:
2000-07-09 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* Import of readline 4.1.
Locally modified files: Makefile.in, configure.in, configure
(regenerated), config.h.in (regenerated), readline.h, rltty.c,
shell.c signals.c.
Locally added files: acconfig.h, config/*, config.h.bot,
cross-build/*, doc/inc-hit.texinfo.
New files: USAGE, rlprivate.h, rlshell.h, xmalloc.h.
examples:
2000-07-09 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* Import of readline 4.1.
New files: excallback.c, rlfe.c.
doc:
2000-07-09 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* Import of readline 4.1.
Regenerated inc-hist.texinfo as copy of hsuser.texinfo, for
inclusion in the gdb manual.
New file: rluserman.texinfo
2000-07-10 01:20:00 +08:00
|
|
|
#include "readline.h"
|
|
|
|
#include "rlshell.h"
|
|
|
|
#include "rlprivate.h"
|
1999-04-16 09:34:55 +08:00
|
|
|
|
|
|
|
#if !defined (HAVE_SETLOCALE)
|
|
|
|
/* A list of legal values for the LANG or LC_CTYPE environment variables.
|
|
|
|
If a locale name in this list is the value for the LC_ALL, LC_CTYPE,
|
|
|
|
or LANG environment variable (using the first of those with a value),
|
|
|
|
readline eight-bit mode is enabled. */
|
|
|
|
static char *legal_lang_values[] =
|
|
|
|
{
|
|
|
|
"iso88591",
|
|
|
|
"iso88592",
|
|
|
|
"iso88593",
|
|
|
|
"iso88594",
|
|
|
|
"iso88595",
|
|
|
|
"iso88596",
|
|
|
|
"iso88597",
|
|
|
|
"iso88598",
|
|
|
|
"iso88599",
|
|
|
|
"iso885910",
|
|
|
|
"koi8r",
|
|
|
|
0
|
|
|
|
};
|
|
|
|
|
Import of readline 4.3.
Non-readline modified files:
src/gdb/ChangeLog src/gdb/defs.h src/gdb/cli/cli-cmds.c
src/gdb/cli/cli-setshow.c src/gdb/tui/ChangeLog
src/gdb/tui/tuiWin.c
In readline directory:
* compat.c, mbutil.c, misc.c, rlmbutil.h, rltypedefs.h,
text.c, doc/history.0, doc/history.3, support/wcwidth.c,
examples/readlinebuf.h, examples/rlcat.c: New files.
* CHANGELOG, CHANGES, INSTALL, MANIFEST, Makefile.in, README,
aclocal.m4, ansi_stdlib.h, bind.c, callback.c, chardefs.h,
complete.c, config.h.in, configure, configure.in, display.c,
emacs_keymap.c, funmap.c, histexpand.c, histfile.c, histlib.h,
history.c, history.h, histsearch.c, input.c, isearch.c,
keymaps.c, keymaps.h, kill.c, macro.c, nls.c, parens.c,
posixdir.h, readline.c, readline.h, rlconf.h, rldefs.h,
rlprivate.h, rlshell.h, rlstdc.h, rltty.c, savestring.c,
search.c, shell.c, signals.c, terminal.c, tilde.c, tilde.h,
undo.c, util.c, vi_keymap.c, vi_mode.c, xmalloc.c, xmalloc.h,
doc/Makefile.in, doc/hist.texinfo, doc/hstech.texinfo,
doc/hsuser.texinfo, doc/manvers.texinfo, doc/readline.3,
doc/rlman.texinfo, doc/rltech.texinfo, doc/rluser.texinfo
doc/rluserman.texinfo, doc/texi2dvi, doc/texi2html,
shlib/Makefile.in, support/install.sh, support/mkdirs,
support/mkdist, support/shlib-install, support/shobj-conf,
examples/Inputrc, examples/Makefile.in, examples/fileman.c,
examples/histexamp.c, examples/manexamp.c, examples/rl.c,
examples/rlfe.c, examples/rltest.c, examples/rlversion.c:
Modified files.
2002-12-09 06:31:39 +08:00
|
|
|
static char *normalize_codeset PARAMS((char *));
|
|
|
|
static char *find_codeset PARAMS((char *, size_t *));
|
1999-04-16 09:34:55 +08:00
|
|
|
#endif /* !HAVE_SETLOCALE */
|
|
|
|
|
|
|
|
/* Check for LC_ALL, LC_CTYPE, and LANG and use the first with a value
|
|
|
|
to decide the defaults for 8-bit character input and output. Returns
|
|
|
|
1 if we set eight-bit mode. */
|
|
|
|
int
|
|
|
|
_rl_init_eightbit ()
|
|
|
|
{
|
|
|
|
/* If we have setlocale(3), just check the current LC_CTYPE category
|
|
|
|
value, and go into eight-bit mode if it's not C or POSIX. */
|
|
|
|
#if defined (HAVE_SETLOCALE)
|
|
|
|
char *t;
|
|
|
|
|
|
|
|
/* Set the LC_CTYPE locale category from environment variables. */
|
|
|
|
t = setlocale (LC_CTYPE, "");
|
|
|
|
if (t && *t && (t[0] != 'C' || t[1]) && (STREQ (t, "POSIX") == 0))
|
|
|
|
{
|
|
|
|
_rl_meta_flag = 1;
|
|
|
|
_rl_convert_meta_chars_to_ascii = 0;
|
|
|
|
_rl_output_meta_chars = 1;
|
|
|
|
return (1);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
return (0);
|
|
|
|
|
|
|
|
#else /* !HAVE_SETLOCALE */
|
|
|
|
char *lspec, *t;
|
|
|
|
int i;
|
|
|
|
|
|
|
|
/* We don't have setlocale. Finesse it. Check the environment for the
|
|
|
|
appropriate variables and set eight-bit mode if they have the right
|
|
|
|
values. */
|
Import of readline 4.3.
Non-readline modified files:
src/gdb/ChangeLog src/gdb/defs.h src/gdb/cli/cli-cmds.c
src/gdb/cli/cli-setshow.c src/gdb/tui/ChangeLog
src/gdb/tui/tuiWin.c
In readline directory:
* compat.c, mbutil.c, misc.c, rlmbutil.h, rltypedefs.h,
text.c, doc/history.0, doc/history.3, support/wcwidth.c,
examples/readlinebuf.h, examples/rlcat.c: New files.
* CHANGELOG, CHANGES, INSTALL, MANIFEST, Makefile.in, README,
aclocal.m4, ansi_stdlib.h, bind.c, callback.c, chardefs.h,
complete.c, config.h.in, configure, configure.in, display.c,
emacs_keymap.c, funmap.c, histexpand.c, histfile.c, histlib.h,
history.c, history.h, histsearch.c, input.c, isearch.c,
keymaps.c, keymaps.h, kill.c, macro.c, nls.c, parens.c,
posixdir.h, readline.c, readline.h, rlconf.h, rldefs.h,
rlprivate.h, rlshell.h, rlstdc.h, rltty.c, savestring.c,
search.c, shell.c, signals.c, terminal.c, tilde.c, tilde.h,
undo.c, util.c, vi_keymap.c, vi_mode.c, xmalloc.c, xmalloc.h,
doc/Makefile.in, doc/hist.texinfo, doc/hstech.texinfo,
doc/hsuser.texinfo, doc/manvers.texinfo, doc/readline.3,
doc/rlman.texinfo, doc/rltech.texinfo, doc/rluser.texinfo
doc/rluserman.texinfo, doc/texi2dvi, doc/texi2html,
shlib/Makefile.in, support/install.sh, support/mkdirs,
support/mkdist, support/shlib-install, support/shobj-conf,
examples/Inputrc, examples/Makefile.in, examples/fileman.c,
examples/histexamp.c, examples/manexamp.c, examples/rl.c,
examples/rlfe.c, examples/rltest.c, examples/rlversion.c:
Modified files.
2002-12-09 06:31:39 +08:00
|
|
|
lspec = sh_get_env_value ("LC_ALL");
|
|
|
|
if (lspec == 0) lspec = sh_get_env_value ("LC_CTYPE");
|
|
|
|
if (lspec == 0) lspec = sh_get_env_value ("LANG");
|
1999-04-16 09:34:55 +08:00
|
|
|
if (lspec == 0 || (t = normalize_codeset (lspec)) == 0)
|
|
|
|
return (0);
|
|
|
|
for (i = 0; t && legal_lang_values[i]; i++)
|
|
|
|
if (STREQ (t, legal_lang_values[i]))
|
|
|
|
{
|
|
|
|
_rl_meta_flag = 1;
|
|
|
|
_rl_convert_meta_chars_to_ascii = 0;
|
|
|
|
_rl_output_meta_chars = 1;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
free (t);
|
|
|
|
return (legal_lang_values[i] ? 1 : 0);
|
|
|
|
|
|
|
|
#endif /* !HAVE_SETLOCALE */
|
|
|
|
}
|
|
|
|
|
|
|
|
#if !defined (HAVE_SETLOCALE)
|
|
|
|
static char *
|
|
|
|
normalize_codeset (codeset)
|
|
|
|
char *codeset;
|
|
|
|
{
|
|
|
|
size_t namelen, i;
|
|
|
|
int len, all_digits;
|
|
|
|
char *wp, *retval;
|
|
|
|
|
|
|
|
codeset = find_codeset (codeset, &namelen);
|
|
|
|
|
|
|
|
if (codeset == 0)
|
|
|
|
return (codeset);
|
|
|
|
|
|
|
|
all_digits = 1;
|
|
|
|
for (len = 0, i = 0; i < namelen; i++)
|
|
|
|
{
|
Import of readline 4.3.
Non-readline modified files:
src/gdb/ChangeLog src/gdb/defs.h src/gdb/cli/cli-cmds.c
src/gdb/cli/cli-setshow.c src/gdb/tui/ChangeLog
src/gdb/tui/tuiWin.c
In readline directory:
* compat.c, mbutil.c, misc.c, rlmbutil.h, rltypedefs.h,
text.c, doc/history.0, doc/history.3, support/wcwidth.c,
examples/readlinebuf.h, examples/rlcat.c: New files.
* CHANGELOG, CHANGES, INSTALL, MANIFEST, Makefile.in, README,
aclocal.m4, ansi_stdlib.h, bind.c, callback.c, chardefs.h,
complete.c, config.h.in, configure, configure.in, display.c,
emacs_keymap.c, funmap.c, histexpand.c, histfile.c, histlib.h,
history.c, history.h, histsearch.c, input.c, isearch.c,
keymaps.c, keymaps.h, kill.c, macro.c, nls.c, parens.c,
posixdir.h, readline.c, readline.h, rlconf.h, rldefs.h,
rlprivate.h, rlshell.h, rlstdc.h, rltty.c, savestring.c,
search.c, shell.c, signals.c, terminal.c, tilde.c, tilde.h,
undo.c, util.c, vi_keymap.c, vi_mode.c, xmalloc.c, xmalloc.h,
doc/Makefile.in, doc/hist.texinfo, doc/hstech.texinfo,
doc/hsuser.texinfo, doc/manvers.texinfo, doc/readline.3,
doc/rlman.texinfo, doc/rltech.texinfo, doc/rluser.texinfo
doc/rluserman.texinfo, doc/texi2dvi, doc/texi2html,
shlib/Makefile.in, support/install.sh, support/mkdirs,
support/mkdist, support/shlib-install, support/shobj-conf,
examples/Inputrc, examples/Makefile.in, examples/fileman.c,
examples/histexamp.c, examples/manexamp.c, examples/rl.c,
examples/rlfe.c, examples/rltest.c, examples/rlversion.c:
Modified files.
2002-12-09 06:31:39 +08:00
|
|
|
if (ISALNUM ((unsigned char)codeset[i]))
|
1999-04-16 09:34:55 +08:00
|
|
|
{
|
|
|
|
len++;
|
Import of readline 4.3.
Non-readline modified files:
src/gdb/ChangeLog src/gdb/defs.h src/gdb/cli/cli-cmds.c
src/gdb/cli/cli-setshow.c src/gdb/tui/ChangeLog
src/gdb/tui/tuiWin.c
In readline directory:
* compat.c, mbutil.c, misc.c, rlmbutil.h, rltypedefs.h,
text.c, doc/history.0, doc/history.3, support/wcwidth.c,
examples/readlinebuf.h, examples/rlcat.c: New files.
* CHANGELOG, CHANGES, INSTALL, MANIFEST, Makefile.in, README,
aclocal.m4, ansi_stdlib.h, bind.c, callback.c, chardefs.h,
complete.c, config.h.in, configure, configure.in, display.c,
emacs_keymap.c, funmap.c, histexpand.c, histfile.c, histlib.h,
history.c, history.h, histsearch.c, input.c, isearch.c,
keymaps.c, keymaps.h, kill.c, macro.c, nls.c, parens.c,
posixdir.h, readline.c, readline.h, rlconf.h, rldefs.h,
rlprivate.h, rlshell.h, rlstdc.h, rltty.c, savestring.c,
search.c, shell.c, signals.c, terminal.c, tilde.c, tilde.h,
undo.c, util.c, vi_keymap.c, vi_mode.c, xmalloc.c, xmalloc.h,
doc/Makefile.in, doc/hist.texinfo, doc/hstech.texinfo,
doc/hsuser.texinfo, doc/manvers.texinfo, doc/readline.3,
doc/rlman.texinfo, doc/rltech.texinfo, doc/rluser.texinfo
doc/rluserman.texinfo, doc/texi2dvi, doc/texi2html,
shlib/Makefile.in, support/install.sh, support/mkdirs,
support/mkdist, support/shlib-install, support/shobj-conf,
examples/Inputrc, examples/Makefile.in, examples/fileman.c,
examples/histexamp.c, examples/manexamp.c, examples/rl.c,
examples/rlfe.c, examples/rltest.c, examples/rlversion.c:
Modified files.
2002-12-09 06:31:39 +08:00
|
|
|
all_digits &= _rl_digit_p (codeset[i]);
|
1999-04-16 09:34:55 +08:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
retval = (char *)malloc ((all_digits ? 3 : 0) + len + 1);
|
|
|
|
if (retval == 0)
|
|
|
|
return ((char *)0);
|
|
|
|
|
|
|
|
wp = retval;
|
|
|
|
/* Add `iso' to beginning of an all-digit codeset */
|
|
|
|
if (all_digits)
|
|
|
|
{
|
|
|
|
*wp++ = 'i';
|
|
|
|
*wp++ = 's';
|
|
|
|
*wp++ = 'o';
|
|
|
|
}
|
|
|
|
|
|
|
|
for (i = 0; i < namelen; i++)
|
Import of readline 4.3.
Non-readline modified files:
src/gdb/ChangeLog src/gdb/defs.h src/gdb/cli/cli-cmds.c
src/gdb/cli/cli-setshow.c src/gdb/tui/ChangeLog
src/gdb/tui/tuiWin.c
In readline directory:
* compat.c, mbutil.c, misc.c, rlmbutil.h, rltypedefs.h,
text.c, doc/history.0, doc/history.3, support/wcwidth.c,
examples/readlinebuf.h, examples/rlcat.c: New files.
* CHANGELOG, CHANGES, INSTALL, MANIFEST, Makefile.in, README,
aclocal.m4, ansi_stdlib.h, bind.c, callback.c, chardefs.h,
complete.c, config.h.in, configure, configure.in, display.c,
emacs_keymap.c, funmap.c, histexpand.c, histfile.c, histlib.h,
history.c, history.h, histsearch.c, input.c, isearch.c,
keymaps.c, keymaps.h, kill.c, macro.c, nls.c, parens.c,
posixdir.h, readline.c, readline.h, rlconf.h, rldefs.h,
rlprivate.h, rlshell.h, rlstdc.h, rltty.c, savestring.c,
search.c, shell.c, signals.c, terminal.c, tilde.c, tilde.h,
undo.c, util.c, vi_keymap.c, vi_mode.c, xmalloc.c, xmalloc.h,
doc/Makefile.in, doc/hist.texinfo, doc/hstech.texinfo,
doc/hsuser.texinfo, doc/manvers.texinfo, doc/readline.3,
doc/rlman.texinfo, doc/rltech.texinfo, doc/rluser.texinfo
doc/rluserman.texinfo, doc/texi2dvi, doc/texi2html,
shlib/Makefile.in, support/install.sh, support/mkdirs,
support/mkdist, support/shlib-install, support/shobj-conf,
examples/Inputrc, examples/Makefile.in, examples/fileman.c,
examples/histexamp.c, examples/manexamp.c, examples/rl.c,
examples/rlfe.c, examples/rltest.c, examples/rlversion.c:
Modified files.
2002-12-09 06:31:39 +08:00
|
|
|
if (ISALPHA ((unsigned char)codeset[i]))
|
|
|
|
*wp++ = _rl_to_lower (codeset[i]);
|
|
|
|
else if (_rl_digit_p (codeset[i]))
|
1999-04-16 09:34:55 +08:00
|
|
|
*wp++ = codeset[i];
|
|
|
|
*wp = '\0';
|
|
|
|
|
|
|
|
return retval;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Isolate codeset portion of locale specification. */
|
|
|
|
static char *
|
|
|
|
find_codeset (name, lenp)
|
|
|
|
char *name;
|
|
|
|
size_t *lenp;
|
|
|
|
{
|
|
|
|
char *cp, *language, *result;
|
|
|
|
|
|
|
|
cp = language = name;
|
|
|
|
result = (char *)0;
|
|
|
|
|
|
|
|
while (*cp && *cp != '_' && *cp != '@' && *cp != '+' && *cp != ',')
|
|
|
|
cp++;
|
|
|
|
|
|
|
|
/* This does not make sense: language has to be specified. As
|
|
|
|
an exception we allow the variable to contain only the codeset
|
|
|
|
name. Perhaps there are funny codeset names. */
|
|
|
|
if (language == cp)
|
|
|
|
{
|
|
|
|
*lenp = strlen (language);
|
|
|
|
result = language;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
/* Next is the territory. */
|
|
|
|
if (*cp == '_')
|
|
|
|
do
|
|
|
|
++cp;
|
|
|
|
while (*cp && *cp != '.' && *cp != '@' && *cp != '+' && *cp != ',' && *cp != '_');
|
|
|
|
|
|
|
|
/* Now, finally, is the codeset. */
|
|
|
|
result = cp;
|
|
|
|
if (*cp == '.')
|
|
|
|
do
|
|
|
|
++cp;
|
|
|
|
while (*cp && *cp != '@');
|
|
|
|
|
|
|
|
if (cp - result > 2)
|
|
|
|
{
|
|
|
|
result++;
|
|
|
|
*lenp = cp - result;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
*lenp = strlen (language);
|
|
|
|
result = language;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
#endif /* !HAVE_SETLOCALE */
|