| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556 |
- (* Release 3.10 *)
- (*-------------------------------------------------------------------------*
- * *
- * LOCALE.DEF - Modula-2 interface to LOCALE.H *
- * *
- * COPYRIGHT (C) 1989..1992 Clarion Software Corporation. *
- * All Rights Reserved *
- * *
- *--------------------------------------------------------------------------*)
- (*# project("#set tsc='on'") *)
- (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
- (*# module(implementation=>off, init_code=>off) *)
- (*# name(prefix=>c) *)
- DEFINITION MODULE locale;
- CONST
- LC_ALL = 0;
- LC_COLLATE = 1;
- LC_CTYPE = 2;
- LC_NUMERIC = 3;
- LC_TIME = 4;
- LC_MONETARY = 5;
- TYPE
- CharArray = ARRAY[0..9] OF CHAR;
- lconv_p = POINTER TO lconv;
- lconv = RECORD
- decimal_point : CharArray;
- thousands_sep : CharArray;
- grouping : CharArray;
- int_curr_symbol : CharArray;
- currency_symbol : CharArray;
- mon_decimal_point:CharArray;
- mon_thousands_sep:CharArray;
- mon_grouping : CharArray;
- positive_sign : CharArray;
- negative_sign : CharArray;
- int_frac_digits : SHORTCARD;
- frac_digits : SHORTCARD;
- p_cs_precedes : SHORTCARD;
- p_sep_by_space : SHORTCARD;
- n_cs_precedes : SHORTCARD;
- n_sep_by_space : SHORTCARD;
- p_sign_posn : SHORTCARD;
- n_sign_posn : SHORTCARD;
- END;
- PROCEDURE localeconv():lconv_p;
- (* **** this procedure returns an open array of char *)
- PROCEDURE setlocale(category:CARDINAL;locale:ARRAY OF CHAR):ADDRESS;
- END locale.
|
