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 }