From 5711287dc01133195297cd2309aaca0191c01473 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 16 Jul 2018 11:52:12 +0200 Subject: Update compilation for windows --- stub/locale.c | 62 ----------------------------------------------------------- 1 file changed, 62 deletions(-) delete mode 100755 stub/locale.c (limited to 'stub/locale.c') diff --git a/stub/locale.c b/stub/locale.c deleted file mode 100755 index 19a4e39..0000000 --- a/stub/locale.c +++ /dev/null @@ -1,62 +0,0 @@ -/* -This file is part of licht. - -licht is free software: you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation, either version 3 of the License, or -(at your option) any later version. - -licht is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with licht. If not, see . -*/ - -#include -#include -#include -#include - -#include "ocaml.h" - -CAMLprim value -c_set_locale(value v, value str) { - - int param = 0; - char* defined_locale; - switch (Int_val(v)) { - case 0: param = LC_ALL; break; - case 1: param = LC_COLLATE; break; - case 2: param = LC_CTYPE; break; - case 3: param = LC_MONETARY; break; - case 4: param = LC_NUMERIC; break; - case 5: param = LC_TIME; break; - case 6: param = LC_MESSAGES; break; - } - - const char *locale_name = String_val(str); - setlocale(param,locale_name); - defined_locale = setlocale(param,NULL); - return caml_copy_string(defined_locale); - -} - -CAMLprim value -c_length( value v ) { - - char *s; - int len = 0; - int i = 0, sum = 0; - s = String_val(v); - - while ( ( len = mbtowc (NULL, &s[i], MB_CUR_MAX )) != 0) { - i += len; - sum++; - } - - return Val_int(sum); - -} -- cgit v1.2.3