MODULE PosixClocale ['locale.h'];

  (* generated by genposix.sh, do not modify *)

  IMPORT SYSTEM, PosixCtypes;

  TYPE
    char* = PosixCtypes.char;
    signed_char* = PosixCtypes.signed_char;
    unsigned_char* = PosixCtypes.unsigned_char;
    short* = PosixCtypes.short;
    short_int* = PosixCtypes.short_int;
    signed_short* = PosixCtypes.signed_short;
    signed_short_int* = PosixCtypes.signed_short_int;
    unsigned_short* = PosixCtypes.unsigned_short;
    unsigned_short_int* = PosixCtypes.unsigned_short_int;
    int* = PosixCtypes.int;
    signed* = PosixCtypes.signed;
    signed_int* = PosixCtypes.signed_int;
    unsigned* = PosixCtypes.unsigned;
    unsigned_int* = PosixCtypes.unsigned_int;
    long* = PosixCtypes.long;
    long_int* = PosixCtypes.long_int;
    signed_long* = PosixCtypes.signed_long;
    signed_long_int* = PosixCtypes.signed_long_int;
    unsigned_long* = PosixCtypes.unsigned_long;
    unsigned_long_int* = PosixCtypes.unsigned_long_int;
    long_long* = PosixCtypes.long_long;
    long_long_int* = PosixCtypes.long_long_int;
    signed_long_long* = PosixCtypes.signed_long_long;
    signed_long_long_int* = PosixCtypes.signed_long_long_int;
    unsigned_long_long* = PosixCtypes.unsigned_long_long;
    unsigned_long_long_int* = PosixCtypes.unsigned_long_long_int;
    float* = PosixCtypes.float;
    double* = PosixCtypes.double;
    long_double* = PosixCtypes.long_double;

  TYPE
    Pstruct_lconv* = POINTER TO struct_lconv;
    struct_lconv ['struct lconv'] = LIMITED RECORD [untagged] END;

  CONST
    LC_ALL* = 6;
    LC_COLLATE* = 3;
    LC_CTYPE* = 0;
    LC_MESSAGES* = 5;
    LC_MONETARY* = 4;
    LC_NUMERIC* = 1;
    LC_TIME* = 2;

  CONST
    LC_COLLATE_MASK* = 8;
    LC_CTYPE_MASK* = 1;
    LC_MESSAGES_MASK* = 32;
    LC_MONETARY_MASK* = 16;
    LC_NUMERIC_MASK* = 2;
    LC_TIME_MASK* = 4;

  CONST
    LC_ALL_MASK* = 8127;

  CONST
    LC_GLOBAL_LOCALE* = -1;

  TYPE
    locale_t* = INTEGER;

  PROCEDURE [ccall] duplocale* (locobj: locale_t): locale_t;
  PROCEDURE [ccall] freelocale* (locobj: locale_t);
  PROCEDURE [ccall] localeconv* (): Pstruct_lconv;
  PROCEDURE [ccall] newlocale* (category_mask: int; IN locale: ARRAY [untagged] OF SHORTCHAR; base: locale_t): locale_t;
  PROCEDURE [ccall] setlocale* (category: int; IN [nil] locale: ARRAY [untagged] OF SHORTCHAR): POINTER TO ARRAY [untagged] OF SHORTCHAR;
  PROCEDURE [ccall] uselocale* (newloc: locale_t): locale_t;

END PosixClocale.