import from github

agbcc/libc/locale/locale.c

@@ -0,0 +1,198 @@
+/*
+FUNCTION
+<<setlocale>>, <<localeconv>>---select or query locale
+
+INDEX
+	setlocale
+INDEX
+	localeconv
+INDEX
+	_setlocale_r
+INDEX
+	_localeconv_r
+
+ANSI_SYNOPSIS
+	#include <locale.h>
+	char *setlocale(int <[category]>, const char *<[locale]>);
+	lconv *localeconv(void);
+
+	char *_setlocale_r(void *<[reent]>,
+                        int <[category]>, const char *<[locale]>);
+	lconv *_localeconv_r(void *<[reent]>);
+
+TRAD_SYNOPSIS
+	#include <locale.h>
+	char *setlocale(<[category]>, <[locale]>)
+	int <[category]>;
+	char *<[locale]>;
+
+	lconv *localeconv();
+
+	char *_setlocale_r(<[reent]>, <[category]>, <[locale]>)
+	char *<[reent]>;
+	int <[category]>;
+	char *<[locale]>;
+
+	lconv *_localeconv_r(<[reent]>);
+	char *<[reent]>;
+
+DESCRIPTION
+<<setlocale>> is the facility defined by ANSI C to condition the
+execution environment for international collating and formatting
+information; <<localeconv>> reports on the settings of the current
+locale.
+
+This is a minimal implementation, supporting only the required <<``C''>>
+value for <[locale]>; strings representing other locales are not
+honored unless MB_CAPABLE is defined in which case three new
+extensions are allowed for LC_CTYPE only: <<''C-JIS''>>, <<''C-EUCJP''>>,
+and <<''C-SJIS''>>.  (<<``''>> is also accepted; it represents the default locale
+for an implementation, here equivalent to <<``C''>>.)
+
+If you use <<NULL>> as the <[locale]> argument, <<setlocale>> returns
+a pointer to the string representing the current locale (always
+<<``C''>> in this implementation).  The acceptable values for
+<[category]> are defined in `<<locale.h>>' as macros beginning with
+<<"LC_">>, but this implementation does not check the values you pass
+in the <[category]> argument.
+
+<<localeconv>> returns a pointer to a structure (also defined in
+`<<locale.h>>') describing the locale-specific conventions currently
+in effect.  
+
+<<_localeconv_r>> and <<_setlocale_r>> are reentrant versions of
+<<localeconv>> and <<setlocale>> respectively.  The extra argument
+<[reent]> is a pointer to a reentrancy structure.
+
+RETURNS
+<<setlocale>> returns either a pointer to a string naming the locale
+currently in effect (always <<``C''>> for this implementation, or, if
+the locale request cannot be honored, <<NULL>>.
+
+<<localeconv>> returns a pointer to a structure of type <<lconv>>,
+which describes the formatting and collating conventions in effect (in
+this implementation, always those of the C locale).
+
+PORTABILITY
+ANSI C requires <<setlocale>>, but the only locale required across all
+implementations is the C locale.
+
+No supporting OS subroutines are required.
+*/
+
+/*
+ * setlocale, localeconv : internationalize your locale.
+ *                         (Only "C" or null supported).
+ */
+
+#include <locale.h>
+#include <string.h>
+#include <limits.h>
+#include <reent.h>
+
+#ifdef __CYGWIN__
+int __declspec(dllexport) __mb_cur_max = 1;
+#else
+int __mb_cur_max = 1;
+#endif
+
+static _CONST struct lconv lconv = 
+{
+  ".", "", "", "", "", "", "", "", "", "",
+  CHAR_MAX, CHAR_MAX, CHAR_MAX, CHAR_MAX,
+  CHAR_MAX, CHAR_MAX, CHAR_MAX, CHAR_MAX,
+};
+
+
+char *
+_DEFUN(_setlocale_r, (p, category, locale),
+       struct _reent *p _AND
+       int category _AND
+       _CONST char *locale)
+{
+  static char lc_ctype[8] = "C";
+  static char last_lc_ctype[8] = "C";
+
+#ifndef MB_CAPABLE
+  if (locale)
+    { 
+      if (strcmp (locale, "C") && strcmp (locale, ""))
+        return 0;
+      p->_current_category = category;  
+      p->_current_locale = locale;
+    }
+  return "C";
+#else
+  if (locale)
+    {
+      if (category != LC_CTYPE) 
+        { 
+          if (strcmp (locale, "C") && strcmp (locale, ""))
+            return 0;
+          if (category == LC_ALL)
+            {
+              strcpy (last_lc_ctype, lc_ctype);
+              strcpy (lc_ctype, locale);
+              __mb_cur_max = 1;
+            }
+        }
+      else
+        { 
+          if (strcmp (locale, "C") && strcmp (locale, "") &&
+              strcmp (locale, "C") && strcmp (locale, "C-JIS") && 
+              strcmp (locale, "C-EUCJP") && strcmp (locale, "C-SJIS"))
+            return 0;
+
+          strcpy (last_lc_ctype, lc_ctype);
+          strcpy (lc_ctype, locale);
+
+          if (!strcmp (locale, "C-JIS"))
+            __mb_cur_max = 8;
+          else if (strlen (locale) > 1)
+            __mb_cur_max = 2;
+          else
+            __mb_cur_max = 1; 
+        }
+      p->_current_category = category;  
+      p->_current_locale = locale;
+
+      if (category == LC_CTYPE)
+        return last_lc_ctype;
+    }
+  else
+    {
+      if (category == LC_CTYPE)
+        return lc_ctype;
+    }
+ 
+  return "C";
+#endif
+  
+}
+
+
+struct lconv *
+_DEFUN(_localeconv_r, (data), 
+      struct _reent *data)
+{
+  return (struct lconv *) &lconv;
+}
+
+#ifndef _REENT_ONLY
+
+char *
+_DEFUN(setlocale, (category, locale),
+       int category _AND
+       _CONST char *locale)
+{
+  return _setlocale_r (_REENT, category, locale);
+}
+
+
+struct lconv *
+_DEFUN_VOID(localeconv)
+{
+  return _localeconv_r (_REENT);
+}
+
+#endif