Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Suppression du cas particulier Win32, on peut utiliser setlocale() 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4930 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2002-06-18 13:00:13 +00:00
parent a3c76a6264
commit dde21583f7
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
byterun/str.c
View File

@ -102,17 +102,6 @@ CAMLprim value is_printable(value chr)
{
int c;
#ifdef _WIN32
/* FIXME: is this necessary? Wouldn't isprint() do what we want? */
static unsigned char printable_chars_iso[] = { /* 0x20-0x7E 0xA1-0xFF */
0, 0, 0, 0, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x7F,
0, 0, 0, 0, 0xFE, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF
};
c = Int_val(chr);
return Val_bool(printable_chars_iso[c >> 3] & (1 << (c & 7)));
#else
#ifdef HAS_LOCALE
static int locale_is_set = 0;
if (! locale_is_set) {
@ -122,7 +111,6 @@ CAMLprim value is_printable(value chr)
#endif
c = Int_val(chr);
return Val_bool(isprint(c));
#endif
}
CAMLprim value bitvect_test(value bv, value n)