1 /* Native functions for locale handling. 2 3 Copyright (C) 2016 Paul Boddie <paul@boddie.org.uk> 4 5 This program is free software; you can redistribute it and/or modify it under 6 the terms of the GNU General Public License as published by the Free Software 7 Foundation; either version 3 of the License, or (at your option) any later 8 version. 9 10 This program is distributed in the hope that it will be useful, but WITHOUT 11 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS 12 FOR A PARTICULAR PURPOSE. See the GNU General Public License for more 13 details. 14 15 You should have received a copy of the GNU General Public License along with 16 this program. If not, see <http://www.gnu.org/licenses/>. 17 */ 18 19 #include <locale.h> /* setlocale */ 20 #include "native/common.h" 21 #include "types.h" 22 #include "exceptions.h" 23 #include "ops.h" 24 #include "progconsts.h" 25 #include "progops.h" 26 #include "progtypes.h" 27 #include "main.h" 28 29 /* Locales. */ 30 31 __attr __fn_native_locale_getlocale(__attr __args[]) 32 { 33 __attr * const category = &__args[1]; 34 /* category interpreted as int */ 35 int cat = __load_via_object(category->value, __pos___data__).intvalue; 36 char *result; 37 38 result = setlocale(cat, NULL); 39 40 if (result == NULL) 41 return __builtins___none_None; 42 else 43 return __new_str(result); 44 } 45 46 __attr __fn_native_locale_setlocale(__attr __args[]) 47 { 48 __attr * const category = &__args[1]; 49 __attr * const value = &__args[2]; 50 /* category interpreted as int */ 51 int cat = __load_via_object(category->value, __pos___data__).intvalue; 52 /* value interpreted as string */ 53 char *s = __load_via_object(value->value, __pos___data__).strvalue, *result; 54 55 result = setlocale(cat, s); 56 57 if (result == NULL) 58 return __builtins___none_None; 59 else 60 return __new_str(result); 61 } 62 63 /* Module initialisation. */ 64 65 void __main_native_locale() 66 { 67 }