Re: Text collation

[Kevin Ryde <user42@zip.com.au>]

[-- Attachment #1: Type: text/plain, Size: 833 bytes --]

ludovic.courtes@laas.fr (Ludovic Courtès) writes:
>
> I've written a wrapper for `nl_langinfo ()' as part of the `i18n' module

What do other schemes or lisps do?  I had an idea one of the srfis had
some bits but they weren't great.  I started a localeconv bit (below)
using a vector for all info, though I'm now inclined to think a
function with a symbol arg would be friendlier than a big object
return.

	(langinfo 'thousands-sep) => ","

Or "localeinfo" or "localeconv" or something.

In my charting program I made a separate function for each of the few
bits I wanted,

	(locale-decimal-point) => "."
	(locale-d-fmt)         => "%d/%m/%y"

One cute thing about that is that the user can override to personal
preferences by `set!'ing in a new function, like having "%b" for the
month in the date format.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: localeconv.c --]
[-- Type: text/x-csrc, Size: 2416 bytes --]

#define _GNU_SOURCE  /* ask glibc for C99 lconv fields */

#include <locale.h>




SCM_DEFINE (scm_localeconv, "localeconv", 0, 0, 0,
            (),
	    "Return an ``lconv'' object representing current locale specific\n"
	    "information.")
#define FUNC_NAME s_scm_localtime
{
  SCM result;
  const struct lconv *l;

#define LCONV_STR(idx, field)                                   \
  SCM_VECTOR_SET (result, idx, scm_makfrom0str (l->field))

#define LCONV_INT(idx, field)                           \
  SCM_VECTOR_SET (result, idx, SCM_MAKINUM (l->field))

  /* group array ends with either 0 or CHAR_MAX */
#define LCONV_GRP(idx, field)                                           \
  do {                                                                  \
    SCM  vec;                                                           \
    int  n, i;                                                          \
    for (i = 0; l->field[i] != 0 && l->field[i] != CHAR_MAX; i++)       \
      ;                                                                 \
    n = i + 1;  /* number of elements */                                \
    vec = scm_c_make_vector (n, SCM_BOOL_F);                            \
    for (i = 0; i < n; i++)                                             \
      SCM_VECTOR_SET (result, idx, SCM_MAKINUM (l->field[i]));          \
    SCM_VECTOR_SET (result, idx, vec);                                  \
  } while (0)

  result = scm_c_make_vector (11, SCM_BOOL_F);

  SCM_DEFER_INTS;
  LCONV_STR ( 0, decimal_point);
  LCONV_STR ( 1, thousands_sep);
  LCONV_GRP ( 2, grouping);
  LCONV_STR ( 3, int_curr_symbol);
  LCONV_STR ( 4, currency_symbol);
  LCONV_STR ( 5, mon_decimal_point);
  LCONV_STR ( 6, mon_thousands_sep);
  LCONV_GRP ( 7, mon_grouping);
  LCONV_STR ( 8, positive_sign);
  LCONV_STR ( 9, negative_sign);
  LCONV_INT (10, int_frac_digits);
  LCONV_INT (11, frac_digits);
  LCONV_INT (12, p_cs_precedes);
  LCONV_INT (13, p_sep_by_space);
  LCONV_INT (14, n_cs_precedes);
  LCONV_INT (15, n_sep_by_space);
  LCONV_INT (16, p_sign_posn);
  LCONV_INT (17, n_sign_posn);

  /* C99 extras, apparently */
#if HAVE_LCONV_INT_P_CS_PRECEDES
  LCONV_INT (18, int_p_cs_precedes);
  LCONV_INT (19, int_p_sep_by_space);
  LCONV_INT (20, int_n_cs_precedes);
  LCONV_INT (21, int_n_sep_by_space);
  LCONV_INT (22, int_p_sign_posn);
  LCONV_INT (23, int_n_sign_posn);
#endif

  return result;
}

[-- Attachment #3: Type: text/plain, Size: 143 bytes --]

_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel