(* 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.