← Back to branch summary

~ubuntu-branches/ubuntu/natty/ecasound2.2/natty

« back to all changes in this revision

Viewing changes to readline-4.0/nls.c

  • Committer: Bazaar Package Importer
  • Author(s): Junichi Uekawa
  • Date: 2008-09-26 09:58:52 UTC
  • mfrom: (1.1.6 upstream)
  • Revision ID: james.westby@ubuntu.com-20080926095852-k3v9ewhmxpaltusw
Tags: 2.5.2-3
yodl 2.13.1 removed --unique-output option. Remove --unique-output
accordingly.

Show diffs side-by-side

added added

removed removed

Lines of Context:
readline-4.0/nls.c
 
1
/* nls.c -- skeletal internationalization code. */
 
2
 
 
3
/* Copyright (C) 1996 Free Software Foundation, Inc.
 
4
 
 
5
   This file is part of the GNU Readline Library, a library for
 
6
   reading lines of text with interactive input and history editing.
 
7
 
 
8
   The GNU Readline Library is free software; you can redistribute it
 
9
   and/or modify it under the terms of the GNU General Public License
 
10
   as published by the Free Software Foundation; either version 1, or
 
11
   (at your option) any later version.
 
12
 
 
13
   The GNU Readline Library is distributed in the hope that it will be
 
14
   useful, but WITHOUT ANY WARRANTY; without even the implied warranty
 
15
   of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
16
   GNU General Public License for more details.
 
17
 
 
18
   The GNU General Public License is often shipped with GNU software, and
 
19
   is generally kept in a file called COPYING or LICENSE.  If you do not
 
20
   have a copy of the license, write to the Free Software Foundation,
 
21
   675 Mass Ave, Cambridge, MA 02139, USA. */
 
22
#define READLINE_LIBRARY
 
23
 
 
24
#if defined (HAVE_CONFIG_H)
 
25
#  include <config.h>
 
26
#endif
 
27
 
 
28
#include <sys/types.h>
 
29
 
 
30
#if defined (HAVE_UNISTD_H)
 
31
#  include <unistd.h>
 
32
#endif /* HAVE_UNISTD_H */
 
33
 
 
34
#if defined (HAVE_STDLIB_H)
 
35
#  include <stdlib.h>
 
36
#else
 
37
#  include "ansi_stdlib.h"
 
38
#endif /* HAVE_STDLIB_H */
 
39
 
 
40
#if defined (HAVE_LOCALE_H)
 
41
#  include <locale.h>
 
42
#endif
 
43
 
 
44
#include <ctype.h>
 
45
 
 
46
#include "rldefs.h"
 
47
 
 
48
extern int _rl_convert_meta_chars_to_ascii;
 
49
extern int _rl_output_meta_chars;
 
50
extern int _rl_meta_flag;
 
51
 
 
52
/* Functions imported from shell.c */
 
53
extern char *get_env_value ();
 
54
 
 
55
#if !defined (HAVE_SETLOCALE)    
 
56
/* A list of legal values for the LANG or LC_CTYPE environment variables.
 
57
   If a locale name in this list is the value for the LC_ALL, LC_CTYPE,
 
58
   or LANG environment variable (using the first of those with a value),
 
59
   readline eight-bit mode is enabled. */
 
60
static char *legal_lang_values[] =
 
61
{
 
62
 "iso88591",
 
63
 "iso88592",
 
64
 "iso88593",
 
65
 "iso88594",
 
66
 "iso88595",
 
67
 "iso88596",
 
68
 "iso88597",
 
69
 "iso88598",
 
70
 "iso88599",
 
71
 "iso885910",
 
72
 "koi8r",
 
73
 "koi8-r", 
 
74
  0
 
75
};
 
76
 
 
77
static char *normalize_codeset ();
 
78
static char *find_codeset ();
 
79
#endif /* !HAVE_SETLOCALE */
 
80
 
 
81
/* Check for LC_ALL, LC_CTYPE, and LANG and use the first with a value
 
82
   to decide the defaults for 8-bit character input and output.  Returns
 
83
   1 if we set eight-bit mode. */
 
84
int
 
85
_rl_init_eightbit ()
 
86
{
 
87
/* If we have setlocale(3), just check the current LC_CTYPE category
 
88
   value, and go into eight-bit mode if it's not C or POSIX. */
 
89
#if defined (HAVE_SETLOCALE)
 
90
  char *t;
 
91
 
 
92
  /* Set the LC_CTYPE locale category from environment variables. */
 
93
  t = setlocale (LC_CTYPE, "");
 
94
  if (t && *t && (t[0] != 'C' || t[1]) && (STREQ (t, "POSIX") == 0))
 
95
    {
 
96
      _rl_meta_flag = 1;
 
97
      _rl_convert_meta_chars_to_ascii = 0;
 
98
      _rl_output_meta_chars = 1;
 
99
      return (1);
 
100
    }
 
101
  else
 
102
    return (0);
 
103
 
 
104
#else /* !HAVE_SETLOCALE */
 
105
  char *lspec, *t;
 
106
  int i;
 
107
 
 
108
  /* We don't have setlocale.  Finesse it.  Check the environment for the
 
109
     appropriate variables and set eight-bit mode if they have the right
 
110
     values. */
 
111
  lspec = get_env_value ("LC_ALL");
 
112
  if (lspec == 0) lspec = get_env_value ("LC_CTYPE");
 
113
  if (lspec == 0) lspec = get_env_value ("LANG");
 
114
  if (lspec == 0 || (t = normalize_codeset (lspec)) == 0)
 
115
    return (0);
 
116
  for (i = 0; t && legal_lang_values[i]; i++)
 
117
    if (STREQ (t, legal_lang_values[i]))
 
118
      {
 
119
        _rl_meta_flag = 1;
 
120
        _rl_convert_meta_chars_to_ascii = 0;
 
121
        _rl_output_meta_chars = 1;
 
122
        break;
 
123
      }
 
124
  free (t);
 
125
  return (legal_lang_values[i] ? 1 : 0);
 
126
 
 
127
#endif /* !HAVE_SETLOCALE */
 
128
}
 
129
 
 
130
#if !defined (HAVE_SETLOCALE)
 
131
static char *
 
132
normalize_codeset (codeset)
 
133
     char *codeset;
 
134
{
 
135
  size_t namelen, i;
 
136
  int len, all_digits;
 
137
  char *wp, *retval;
 
138
 
 
139
  codeset = find_codeset (codeset, &namelen);
 
140
 
 
141
  if (codeset == 0)
 
142
    return (codeset);
 
143
 
 
144
  all_digits = 1;
 
145
  for (len = 0, i = 0; i < namelen; i++)
 
146
    {
 
147
      if (isalnum (codeset[i]))
 
148
        {
 
149
          len++;
 
150
          all_digits &= isdigit (codeset[i]);
 
151
        }
 
152
    }
 
153
 
 
154
  retval = (char *)malloc ((all_digits ? 3 : 0) + len + 1);
 
155
  if (retval == 0)
 
156
    return ((char *)0);
 
157
 
 
158
  wp = retval;
 
159
  /* Add `iso' to beginning of an all-digit codeset */
 
160
  if (all_digits)
 
161
    {
 
162
      *wp++ = 'i';
 
163
      *wp++ = 's';
 
164
      *wp++ = 'o';
 
165
    }
 
166
 
 
167
  for (i = 0; i < namelen; i++)
 
168
    if (isalpha (codeset[i]))
 
169
      *wp++ = (isupper (codeset[i])) ? tolower (codeset[i]) : codeset[i];
 
170
    else if (isdigit (codeset[i]))
 
171
      *wp++ = codeset[i];
 
172
  *wp = '\0';
 
173
 
 
174
  return retval;
 
175
}
 
176
 
 
177
/* Isolate codeset portion of locale specification. */
 
178
static char *
 
179
find_codeset (name, lenp)
 
180
     char *name;
 
181
     size_t *lenp;
 
182
{
 
183
  char *cp, *language, *result;
 
184
 
 
185
  cp = language = name;
 
186
  result = (char *)0;
 
187
 
 
188
  while (*cp && *cp != '_' && *cp != '@' && *cp != '+' && *cp != ',')
 
189
    cp++;
 
190
 
 
191
  /* This does not make sense: language has to be specified.  As
 
192
     an exception we allow the variable to contain only the codeset
 
193
     name.  Perhaps there are funny codeset names.  */
 
194
  if (language == cp) 
 
195
    {
 
196
      *lenp = strlen (language);
 
197
      result = language;
 
198
    }
 
199
  else
 
200
    {
 
201
      /* Next is the territory. */
 
202
      if (*cp == '_')
 
203
        do
 
204
          ++cp;
 
205
        while (*cp && *cp != '.' && *cp != '@' && *cp != '+' && *cp != ',' && *cp != '_');
 
206
 
 
207
      /* Now, finally, is the codeset. */
 
208
      result = cp;
 
209
      if (*cp == '.')
 
210
        do
 
211
          ++cp;
 
212
        while (*cp && *cp != '@');
 
213
 
 
214
      if (cp - result > 2)
 
215
        {
 
216
          result++;
 
217
          *lenp = cp - result;
 
218
        }
 
219
      else
 
220
        {
 
221
          *lenp = strlen (language);
 
222
          result = language;
 
223
        }
 
224
    }
 
225
 
 
226
  return result;
 
227
}
 
228
#endif /* !HAVE_SETLOCALE */