/*
 * This is a minimal nl_langinfo replacement that only handles CODESET.
 * By default, it returns UTF-8.  It checks if LC_CTYPE or LANG are set, and
 * uses LATIN-1 if it finds one set to C, or UTF-8 if it finds one set to
 * anything else.
 */

/*
 * This software is part of the SBCL system. See the README file for
 * more information.
 *
 * This software is derived from the CMU CL system, which was
 * written at Carnegie Mellon University and released into the
 * public domain. The software is in the public domain and is
 * provided with absolutely no warranty. See the COPYING and CREDITS
 * files for more information.
 */

#include <stdlib.h>
#include <string.h>
#include "darwin-langinfo.h"

char *nl_langinfo(nl_item item)
{
  char *nada = "", *utf8 = "UTF-8", *latin1 = "LATIN-1";

  if (item != CODESET) {
    return nada;
  } else {
    char *ctype = getenv ("LC_CTYPE");

    if ((ctype != NULL) && (!strcmp(ctype, "C"))) {
      return latin1;
    } else if (ctype != NULL) {
      return utf8;
    } else {
      char *lang = getenv ("LANG");

      if ((lang != NULL) && (!strcmp(lang, "C"))) {
        return latin1;
      } else {
        return utf8;
      }
    }
  }
}