lib/configuration/locale.c


1
2
3
4
5
6
7
8
9
10
11
12

#include <stdio.h>
#include <locale.h>
#include <caml/memory.h>
#include <caml/alloc.h>

CAMLprim value set_locale( value param )
{
    const char *s;
    s = String_val(param);
    setlocale(LC_NUMERIC, s);
    return Val_unit;
}