-- $Source: /home/harp/1/proto/monoBANK/winnt/win32-crt-locale.ads,v $ 
-- $Revision: 1.1 $ $Date: 96/09/06 14:17:09 $ $Author: mg $ 
-- See end of file for Copyright (c) information.

with Win32;

package Win32.crt.Locale is

    LC_ALL                   : constant := 0;               -- locale.h:56
    LC_COLLATE               : constant := 1;               -- locale.h:57
    LC_CTYPE                 : constant := 2;               -- locale.h:58
    LC_MONETARY              : constant := 3;               -- locale.h:59
    LC_NUMERIC               : constant := 4;               -- locale.h:60
    LC_TIME                  : constant := 5;               -- locale.h:61
    LC_MIN                   : constant := 0;               -- locale.h:63
    LC_MAX                   : constant := 5;               -- locale.h:64

    type lconv is                                           -- locale.h:69
        record
            decimal_point    : Win32.PSTR;                  -- locale.h:70
            thousands_sep    : Win32.PSTR;                  -- locale.h:71
            grouping         : Win32.PSTR;                  -- locale.h:72
            int_curr_symbol  : Win32.PSTR;                  -- locale.h:73
            currency_symbol  : Win32.PSTR;                  -- locale.h:74
            mon_decimal_point: Win32.PSTR;                  -- locale.h:75
            mon_thousands_sep: Win32.PSTR;                  -- locale.h:76
            mon_grouping     : Win32.PSTR;                  -- locale.h:77
            positive_sign    : Win32.PSTR;                  -- locale.h:78
            negative_sign    : Win32.PSTR;                  -- locale.h:79
            int_frac_digits  : Win32.CHAR;                  -- locale.h:80
            frac_digits      : Win32.CHAR;                  -- locale.h:81
            p_cs_precedes    : Win32.CHAR;                  -- locale.h:82
            p_sep_by_space   : Win32.CHAR;                  -- locale.h:83
            n_cs_precedes    : Win32.CHAR;                  -- locale.h:84
            n_sep_by_space   : Win32.CHAR;                  -- locale.h:85
            p_sign_posn      : Win32.CHAR;                  -- locale.h:86
            n_sign_posn      : Win32.CHAR;                  -- locale.h:87
        end record;

    type a_lconv_t is access all lconv;                     -- locale.h:95

    function setlocale(category: Win32.INT;
                       locale  : Win32.PCSTR)
                                 return Win32.PSTR;         -- locale.h:94

    function localeconv return a_lconv_t;                   -- locale.h:95

private

    pragma Convention(C, lconv);                            -- locale.h:69

    pragma Import(C, setlocale, "setlocale");               -- locale.h:94
    pragma Import(C, localeconv, "localeconv");             -- locale.h:95

-------------------------------------------------------------------------------
--
-- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
-- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
-- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
-- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
-- the accuracy and the use of this file.  This file may be used, copied,
-- modified and distributed only by licensees of Microsoft Corporation's
-- WIN32 Software Development Kit in accordance with the terms of the 
-- licensee's End-User License Agreement for Microsoft Software for the
-- WIN32 Development Kit.
--
-- Copyright (c) Intermetrics, Inc. 1995
-- Portions (c) 1985-1994 Microsoft Corporation with permission.
-- Microsoft is a registered trademark and Windows and Windows NT are
-- trademarks of Microsoft Corporation.
--
-------------------------------------------------------------------------------

end Win32.crt.Locale;