0.9.5.20:
[sbcl.git] / src / runtime / ppc-darwin-langinfo.c
1 /*
2  * This is a minimal nl_langinfo replacement that only handles CODESET.
3  * By default, it returns UTF-8.  It checks if LC_CTYPE or LANG are set, and
4  * uses LATIN-1 if it finds one set to C, or UTF-8 if it finds one set to
5  * anything else.
6  */
7
8 /*
9  * This software is part of the SBCL system. See the README file for
10  * more information.
11  *
12  * This software is derived from the CMU CL system, which was
13  * written at Carnegie Mellon University and released into the
14  * public domain. The software is in the public domain and is
15  * provided with absolutely no warranty. See the COPYING and CREDITS
16  * files for more information.
17  */
18
19 #include <stdlib.h>
20 #include "ppc-darwin-langinfo.h"
21
22 char *nl_langinfo(nl_item item)
23 {
24   char *nada = "", *utf8 = "UTF-8", *latin1 = "LATIN-1";
25
26   if (item != CODESET) {
27     return nada;
28   } else {
29     char *ctype = getenv ("LC_CTYPE");
30
31     if ((ctype != NULL) && (!strcmp(ctype, "C"))) {
32       return latin1;
33     } else if (ctype != NULL) {
34       return utf8;
35     } else {
36       char *lang = getenv ("LANG");
37
38       if ((lang != NULL) && (!strcmp(lang, "C"))) {
39         return latin1;
40       } else {
41         return utf8;
42       }
43     }
44   }
45 }