pd.if.org Git - pdclib.old/blob - platform/posix/functions/_PDCLIB/_PDCLIB_stdinit.c

   1 /* $Id$ */
   2
   3 /* _PDCLIB_stdinit
   4
   5    This file is part of the Public Domain C Library (PDCLib).
   6    Permission is granted to use, modify, and / or redistribute at will.
   7 */
   8
   9 /* This is an example initialization of stdin, stdout and stderr to the integer
  10    file descriptors 0, 1, and 2, respectively. This applies for a great variety
  11    of operating systems, including POSIX compliant ones.
  12 */
  13
  14 #include <stdio.h>
  15 #include <locale.h>
  16 #include <limits.h>
  17
  18 #ifndef REGTEST
  19 #include <_PDCLIB_io.h>
  20 #include <_PDCLIB_locale.h>
  21 #include <threads.h>
  22
  23 /* In a POSIX system, stdin / stdout / stderr are equivalent to the (int) file
  24    descriptors 0, 1, and 2 respectively.
  25 */
  26 /* TODO: This is proof-of-concept, requires finetuning. */
  27 static char _PDCLIB_sin_buffer[BUFSIZ];
  28 static char _PDCLIB_sout_buffer[BUFSIZ];
  29 static char _PDCLIB_serr_buffer[BUFSIZ];
  30
  31 static unsigned char _PDCLIB_sin_ungetbuf[_PDCLIB_UNGETCBUFSIZE];
  32 static unsigned char _PDCLIB_sout_ungetbuf[_PDCLIB_UNGETCBUFSIZE];
  33 static unsigned char _PDCLIB_serr_ungetbuf[_PDCLIB_UNGETCBUFSIZE];
  34
  35 extern _PDCLIB_fileops_t _PDCLIB_fileops;
  36
  37 static FILE _PDCLIB_serr = {
  38     .ops        = &_PDCLIB_fileops,
  39     .handle     = { .sval = 2 },
  40     .buffer     = _PDCLIB_serr_buffer,
  41     .bufsize    = BUFSIZ,
  42     .bufidx     = 0,
  43     .bufend     = 0,
  44     .ungetidx   = 0,
  45     .ungetbuf   = _PDCLIB_serr_ungetbuf,
  46     .status     = _IONBF | _PDCLIB_FWRITE | _PDCLIB_STATIC,
  47     .filename   = NULL,
  48     .next       = NULL,
  49 };
  50 static FILE _PDCLIB_sout = {
  51     .ops        = &_PDCLIB_fileops,
  52     .handle     = { .sval = 1 },
  53     .buffer     = _PDCLIB_sout_buffer,
  54     .bufsize    = BUFSIZ,
  55     .bufidx     = 0,
  56     .bufend     = 0,
  57     .ungetidx   = 0,
  58     .ungetbuf   = _PDCLIB_sout_ungetbuf,
  59     .status     = _IOLBF | _PDCLIB_FWRITE | _PDCLIB_STATIC,
  60     .filename   = NULL,
  61     .next       = &_PDCLIB_serr
  62 };
  63 static FILE _PDCLIB_sin  = {
  64     .ops        = &_PDCLIB_fileops,
  65     .handle     = { .sval = 0 },
  66     .buffer     = _PDCLIB_sin_buffer,
  67     .bufsize    = BUFSIZ,
  68     .bufidx     = 0,
  69     .bufend     = 0,
  70     .ungetidx   = 0,
  71     .ungetbuf   = _PDCLIB_sin_ungetbuf,
  72     .status     = _IOLBF | _PDCLIB_FREAD | _PDCLIB_STATIC,
  73     .filename   = NULL,
  74     .next       = &_PDCLIB_sout
  75 };
  76
  77 FILE * stdin  = &_PDCLIB_sin;
  78 FILE * stdout = &_PDCLIB_sout;
  79 FILE * stderr = &_PDCLIB_serr;
  80
  81 tss_t _PDCLIB_locale_tss;
  82 /* Todo: Better solution than this! */
  83 __attribute__((constructor)) void init_stdio(void)
  84 {
  85     tss_create(&_PDCLIB_locale_tss, (tss_dtor_t) freelocale);
  86     mtx_init(&stdin->lock,  mtx_recursive);
  87     mtx_init(&stdout->lock, mtx_recursive);
  88     mtx_init(&stderr->lock, mtx_recursive);
  89 }
  90
  91 /* FIXME: This approach is a possible attack vector. */
  92 FILE * _PDCLIB_filelist = &_PDCLIB_sin;
  93
  94 /* "C" locale - defaulting to ASCII-7.
  95    1 kByte (+ 4 byte) of <ctype.h> data.
  96    Each line: flags, lowercase, uppercase, collation.
  97 */
  98 static
  99 _PDCLIB_ctype_t global_ctype[] = {
 100     { /* EOF */    0,    0,    0,    0 },
 101     { /* NUL */ _PDCLIB_CTYPE_CNTRL,                                             0x00, 0x00, 0x00 },
 102     { /* SOH */ _PDCLIB_CTYPE_CNTRL,                                             0x01, 0x01, 0x01 },
 103     { /* STX */ _PDCLIB_CTYPE_CNTRL,                                             0x02, 0x02, 0x02 },
 104     { /* ETX */ _PDCLIB_CTYPE_CNTRL,                                             0x03, 0x03, 0x03 },
 105     { /* EOT */ _PDCLIB_CTYPE_CNTRL,                                             0x04, 0x04, 0x04 },
 106     { /* ENQ */ _PDCLIB_CTYPE_CNTRL,                                             0x05, 0x05, 0x05 },
 107     { /* ACK */ _PDCLIB_CTYPE_CNTRL,                                             0x06, 0x06, 0x06 },
 108     { /* BEL */ _PDCLIB_CTYPE_CNTRL,                                             0x07, 0x07, 0x07 },
 109     { /*  BS */ _PDCLIB_CTYPE_CNTRL,                                             0x08, 0x08, 0x08 },
 110     { /*  HT */ _PDCLIB_CTYPE_CNTRL | _PDCLIB_CTYPE_BLANK | _PDCLIB_CTYPE_SPACE, 0x09, 0x09, 0x09 },
 111     { /*  LF */ _PDCLIB_CTYPE_CNTRL | _PDCLIB_CTYPE_SPACE,                       0x0A, 0x0A, 0x0A },
 112     { /*  VT */ _PDCLIB_CTYPE_CNTRL | _PDCLIB_CTYPE_SPACE,                       0x0B, 0x0B, 0x0B },
 113     { /*  FF */ _PDCLIB_CTYPE_CNTRL | _PDCLIB_CTYPE_SPACE,                       0x0C, 0x0C, 0x0C },
 114     { /*  CR */ _PDCLIB_CTYPE_CNTRL | _PDCLIB_CTYPE_SPACE,                       0x0D, 0x0D, 0x0D },
 115     { /*  SO */ _PDCLIB_CTYPE_CNTRL,                                             0x0E, 0x0E, 0x0E },
 116     { /*  SI */ _PDCLIB_CTYPE_CNTRL,                                             0x0F, 0x0F, 0x0F },
 117     { /* DLE */ _PDCLIB_CTYPE_CNTRL,                                             0x10, 0x10, 0x10 },
 118     { /* DC1 */ _PDCLIB_CTYPE_CNTRL,                                             0x11, 0x11, 0x11 },
 119     { /* DC2 */ _PDCLIB_CTYPE_CNTRL,                                             0x12, 0x12, 0x12 },
 120     { /* DC3 */ _PDCLIB_CTYPE_CNTRL,                                             0x13, 0x13, 0x13 },
 121     { /* DC4 */ _PDCLIB_CTYPE_CNTRL,                                             0x14, 0x14, 0x14 },
 122     { /* NAK */ _PDCLIB_CTYPE_CNTRL,                                             0x15, 0x15, 0x15 },
 123     { /* SYN */ _PDCLIB_CTYPE_CNTRL,                                             0x16, 0x16, 0x16 },
 124     { /* ETB */ _PDCLIB_CTYPE_CNTRL,                                             0x17, 0x17, 0x17 },
 125     { /* CAN */ _PDCLIB_CTYPE_CNTRL,                                             0x18, 0x18, 0x18 },
 126     { /*  EM */ _PDCLIB_CTYPE_CNTRL,                                             0x19, 0x19, 0x19 },
 127     { /* SUB */ _PDCLIB_CTYPE_CNTRL,                                             0x1A, 0x1A, 0x1A },
 128     { /* ESC */ _PDCLIB_CTYPE_CNTRL,                                             0x1B, 0x1B, 0x1B },
 129     { /*  FS */ _PDCLIB_CTYPE_CNTRL,                                             0x1C, 0x1C, 0x1C },
 130     { /*  GS */ _PDCLIB_CTYPE_CNTRL,                                             0x1D, 0x1D, 0x1D },
 131     { /*  RS */ _PDCLIB_CTYPE_CNTRL,                                             0x1E, 0x1E, 0x1E },
 132     { /*  US */ _PDCLIB_CTYPE_CNTRL,                                             0x1F, 0x1F, 0x1F },
 133     { /*  SP */ _PDCLIB_CTYPE_BLANK | _PDCLIB_CTYPE_SPACE,                       0x20, 0x20, 0x20 },
 134     { /* '!' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x21, 0x21, 0x21 },
 135     { /* '"' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x22, 0x22, 0x22 },
 136     { /* '#' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x23, 0x23, 0x23 },
 137     { /* '$' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x24, 0x24, 0x24 },
 138     { /* '%' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x25, 0x25, 0x25 },
 139     { /* '&' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x26, 0x26, 0x26 },
 140     { /* ''' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x27, 0x27, 0x27 },
 141     { /* '(' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x28, 0x28, 0x28 },
 142     { /* ')' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x29, 0x29, 0x29 },
 143     { /* '*' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x2A, 0x2A, 0x2A },
 144     { /* '+' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x2B, 0x2B, 0x2B },
 145     { /* ',' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x2C, 0x2C, 0x2C },
 146     { /* '-' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x2D, 0x2D, 0x2D },
 147     { /* '.' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x2E, 0x2E, 0x2E },
 148     { /* '/' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x2F, 0x2F, 0x2F },
 149     { /* '0' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x30, 0x30, 0x30 },
 150     { /* '1' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x31, 0x31, 0x31 },
 151     { /* '2' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x32, 0x32, 0x32 },
 152     { /* '3' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x33, 0x33, 0x33 },
 153     { /* '4' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x34, 0x34, 0x34 },
 154     { /* '5' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x35, 0x35, 0x35 },
 155     { /* '6' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x36, 0x36, 0x36 },
 156     { /* '7' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x37, 0x37, 0x37 },
 157     { /* '8' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x38, 0x38, 0x38 },
 158     { /* '9' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x39, 0x39, 0x39 },
 159     { /* ':' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x3A, 0x3A, 0x3A },
 160     { /* ';' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x3B, 0x3B, 0x3B },
 161     { /* '<' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x3C, 0x3C, 0x3C },
 162     { /* '=' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x3D, 0x3D, 0x3D },
 163     { /* '>' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x3E, 0x3E, 0x3E },
 164     { /* '?' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x3F, 0x3F, 0x3F },
 165     { /* '@' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x40, 0x40, 0x40 },
 166     { /* 'A' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER | _PDCLIB_CTYPE_XDIGT, 0x41, 0x61, 0x41 },
 167     { /* 'B' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER | _PDCLIB_CTYPE_XDIGT, 0x42, 0x62, 0x42 },
 168     { /* 'C' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER | _PDCLIB_CTYPE_XDIGT, 0x43, 0x63, 0x43 },
 169     { /* 'D' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER | _PDCLIB_CTYPE_XDIGT, 0x44, 0x64, 0x44 },
 170     { /* 'E' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER | _PDCLIB_CTYPE_XDIGT, 0x45, 0x65, 0x45 },
 171     { /* 'F' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER | _PDCLIB_CTYPE_XDIGT, 0x46, 0x66, 0x46 },
 172     { /* 'G' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x47, 0x67, 0x47 },
 173     { /* 'H' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x48, 0x68, 0x48 },
 174     { /* 'I' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x49, 0x69, 0x49 },
 175     { /* 'J' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x4A, 0x6A, 0x4A },
 176     { /* 'K' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x4B, 0x6B, 0x4B },
 177     { /* 'L' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x4C, 0x6C, 0x4C },
 178     { /* 'M' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x4D, 0x6D, 0x4D },
 179     { /* 'N' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x4E, 0x6E, 0x4E },
 180     { /* 'O' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x4F, 0x6F, 0x4F },
 181     { /* 'P' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x50, 0x70, 0x50 },
 182     { /* 'Q' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x51, 0x71, 0x51 },
 183     { /* 'R' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x52, 0x72, 0x52 },
 184     { /* 'S' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x53, 0x73, 0x53 },
 185     { /* 'T' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x54, 0x74, 0x54 },
 186     { /* 'U' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x55, 0x75, 0x55 },
 187     { /* 'V' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x56, 0x76, 0x56 },
 188     { /* 'W' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x57, 0x77, 0x57 },
 189     { /* 'X' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x58, 0x78, 0x58 },
 190     { /* 'Y' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x59, 0x79, 0x59 },
 191     { /* 'Z' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x5A, 0x7A, 0x5A },
 192     { /* '[' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x5B, 0x5B, 0x5B },
 193     { /* '\' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x5C, 0x5C, 0x5C },
 194     { /* ']' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x5D, 0x5D, 0x5D },
 195     { /* '^' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x5E, 0x5E, 0x5E },
 196     { /* '_' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x5F, 0x5F, 0x5F },
 197     { /* '`' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x60, 0x60, 0x60 },
 198     { /* 'a' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER | _PDCLIB_CTYPE_XDIGT, 0x41, 0x61, 0x61 },
 199     { /* 'b' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER | _PDCLIB_CTYPE_XDIGT, 0x42, 0x62, 0x62 },
 200     { /* 'c' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER | _PDCLIB_CTYPE_XDIGT, 0x43, 0x63, 0x63 },
 201     { /* 'd' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER | _PDCLIB_CTYPE_XDIGT, 0x44, 0x64, 0x64 },
 202     { /* 'e' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER | _PDCLIB_CTYPE_XDIGT, 0x45, 0x65, 0x65 },
 203     { /* 'f' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER | _PDCLIB_CTYPE_XDIGT, 0x46, 0x66, 0x66 },
 204     { /* 'g' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x47, 0x67, 0x67 },
 205     { /* 'h' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x48, 0x68, 0x68 },
 206     { /* 'i' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x49, 0x69, 0x69 },
 207     { /* 'j' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x4A, 0x6A, 0x6A },
 208     { /* 'k' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x4B, 0x6B, 0x6B },
 209     { /* 'l' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x4C, 0x6C, 0x6C },
 210     { /* 'm' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x4D, 0x6D, 0x6D },
 211     { /* 'n' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x4E, 0x6E, 0x6E },
 212     { /* 'o' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x4F, 0x6F, 0x6F },
 213     { /* 'p' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x50, 0x70, 0x70 },
 214     { /* 'q' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x51, 0x71, 0x71 },
 215     { /* 'r' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x52, 0x72, 0x72 },
 216     { /* 's' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x53, 0x73, 0x73 },
 217     { /* 't' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x54, 0x74, 0x74 },
 218     { /* 'u' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x55, 0x75, 0x75 },
 219     { /* 'v' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x56, 0x76, 0x76 },
 220     { /* 'w' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x57, 0x77, 0x77 },
 221     { /* 'x' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x58, 0x78, 0x78 },
 222     { /* 'y' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x59, 0x79, 0x79 },
 223     { /* 'z' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x5A, 0x7A, 0x7A },
 224     { /* '{' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x7B, 0x7B, 0x7B },
 225     { /* '|' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x7C, 0x7C, 0x7C },
 226     { /* '}' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x7D, 0x7D, 0x7D },
 227     { /* '~' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x7E, 0x7E, 0x7E },
 228     { /* DEL */ _PDCLIB_CTYPE_CNTRL,                                             0x7F, 0x7F, 0x7F },
 229     { 0x00, 0x80, 0x80, 0x80 },
 230     { 0x00, 0x81, 0x81, 0x81 },
 231     { 0x00, 0x82, 0x82, 0x82 },
 232     { 0x00, 0x83, 0x83, 0x83 },
 233     { 0x00, 0x84, 0x84, 0x84 },
 234     { 0x00, 0x85, 0x85, 0x85 },
 235     { 0x00, 0x86, 0x86, 0x86 },
 236     { 0x00, 0x87, 0x87, 0x87 },
 237     { 0x00, 0x88, 0x88, 0x88 },
 238     { 0x00, 0x89, 0x89, 0x89 },
 239     { 0x00, 0x8A, 0x8A, 0x8A },
 240     { 0x00, 0x8B, 0x8B, 0x8B },
 241     { 0x00, 0x8C, 0x8C, 0x8C },
 242     { 0x00, 0x8D, 0x8D, 0x8D },
 243     { 0x00, 0x8E, 0x8E, 0x8E },
 244     { 0x00, 0x8F, 0x8F, 0x8F },
 245     { 0x00, 0x90, 0x90, 0x90 },
 246     { 0x00, 0x91, 0x91, 0x91 },
 247     { 0x00, 0x92, 0x92, 0x92 },
 248     { 0x00, 0x93, 0x93, 0x93 },
 249     { 0x00, 0x94, 0x94, 0x94 },
 250     { 0x00, 0x95, 0x95, 0x95 },
 251     { 0x00, 0x96, 0x96, 0x96 },
 252     { 0x00, 0x97, 0x97, 0x97 },
 253     { 0x00, 0x98, 0x98, 0x98 },
 254     { 0x00, 0x99, 0x99, 0x99 },
 255     { 0x00, 0x9A, 0x9A, 0x9A },
 256     { 0x00, 0x9B, 0x9B, 0x9B },
 257     { 0x00, 0x9C, 0x9C, 0x9C },
 258     { 0x00, 0x9D, 0x9D, 0x9D },
 259     { 0x00, 0x9E, 0x9E, 0x9E },
 260     { 0x00, 0x9F, 0x9F, 0x9F },
 261     { 0x00, 0xA0, 0xA0, 0xA0 },
 262     { 0x00, 0xA1, 0xA1, 0xA1 },
 263     { 0x00, 0xA2, 0xA2, 0xA2 },
 264     { 0x00, 0xA3, 0xA3, 0xA3 },
 265     { 0x00, 0xA4, 0xA4, 0xA4 },
 266     { 0x00, 0xA5, 0xA5, 0xA5 },
 267     { 0x00, 0xA6, 0xA6, 0xA6 },
 268     { 0x00, 0xA7, 0xA7, 0xA7 },
 269     { 0x00, 0xA8, 0xA8, 0xA8 },
 270     { 0x00, 0xA9, 0xA9, 0xA9 },
 271     { 0x00, 0xAA, 0xAA, 0xAA },
 272     { 0x00, 0xAB, 0xAB, 0xAB },
 273     { 0x00, 0xAC, 0xAC, 0xAC },
 274     { 0x00, 0xAD, 0xAD, 0xAD },
 275     { 0x00, 0xAE, 0xAE, 0xAE },
 276     { 0x00, 0xAF, 0xAF, 0xAF },
 277     { 0x00, 0xB0, 0xB0, 0xB0 },
 278     { 0x00, 0xB1, 0xB1, 0xB1 },
 279     { 0x00, 0xB2, 0xB2, 0xB2 },
 280     { 0x00, 0xB3, 0xB3, 0xB3 },
 281     { 0x00, 0xB4, 0xB4, 0xB4 },
 282     { 0x00, 0xB5, 0xB5, 0xB5 },
 283     { 0x00, 0xB6, 0xB6, 0xB6 },
 284     { 0x00, 0xB7, 0xB7, 0xB7 },
 285     { 0x00, 0xB8, 0xB8, 0xB8 },
 286     { 0x00, 0xB9, 0xB9, 0xB9 },
 287     { 0x00, 0xBA, 0xBA, 0xBA },
 288     { 0x00, 0xBB, 0xBB, 0xBB },
 289     { 0x00, 0xBC, 0xBC, 0xBC },
 290     { 0x00, 0xBD, 0xBD, 0xBD },
 291     { 0x00, 0xBE, 0xBE, 0xBE },
 292     { 0x00, 0xBF, 0xBF, 0xBF },
 293     { 0x00, 0xC0, 0xC0, 0xC0 },
 294     { 0x00, 0xC1, 0xC1, 0xC1 },
 295     { 0x00, 0xC2, 0xC2, 0xC2 },
 296     { 0x00, 0xC3, 0xC3, 0xC3 },
 297     { 0x00, 0xC4, 0xC4, 0xC4 },
 298     { 0x00, 0xC5, 0xC5, 0xC5 },
 299     { 0x00, 0xC6, 0xC6, 0xC6 },
 300     { 0x00, 0xC7, 0xC7, 0xC7 },
 301     { 0x00, 0xC8, 0xC8, 0xC8 },
 302     { 0x00, 0xC9, 0xC9, 0xC9 },
 303     { 0x00, 0xCA, 0xCA, 0xCA },
 304     { 0x00, 0xCB, 0xCB, 0xCB },
 305     { 0x00, 0xCC, 0xCC, 0xCC },
 306     { 0x00, 0xCD, 0xCD, 0xCD },
 307     { 0x00, 0xCE, 0xCE, 0xCE },
 308     { 0x00, 0xCF, 0xCF, 0xCF },
 309     { 0x00, 0xD0, 0xD0, 0xD0 },
 310     { 0x00, 0xD1, 0xD1, 0xD1 },
 311     { 0x00, 0xD2, 0xD2, 0xD2 },
 312     { 0x00, 0xD3, 0xD3, 0xD3 },
 313     { 0x00, 0xD4, 0xD4, 0xD4 },
 314     { 0x00, 0xD5, 0xD5, 0xD5 },
 315     { 0x00, 0xD6, 0xD6, 0xD6 },
 316     { 0x00, 0xD7, 0xD7, 0xD7 },
 317     { 0x00, 0xD8, 0xD8, 0xD8 },
 318     { 0x00, 0xD9, 0xD9, 0xD9 },
 319     { 0x00, 0xDA, 0xDA, 0xDA },
 320     { 0x00, 0xDB, 0xDB, 0xDB },
 321     { 0x00, 0xDC, 0xDC, 0xDC },
 322     { 0x00, 0xDD, 0xDD, 0xDD },
 323     { 0x00, 0xDE, 0xDE, 0xDE },
 324     { 0x00, 0xDF, 0xDF, 0xDF },
 325     { 0x00, 0xE0, 0xE0, 0xE0 },
 326     { 0x00, 0xE1, 0xE1, 0xE1 },
 327     { 0x00, 0xE2, 0xE2, 0xE2 },
 328     { 0x00, 0xE3, 0xE3, 0xE3 },
 329     { 0x00, 0xE4, 0xE4, 0xE4 },
 330     { 0x00, 0xE5, 0xE5, 0xE5 },
 331     { 0x00, 0xE6, 0xE6, 0xE6 },
 332     { 0x00, 0xE7, 0xE7, 0xE7 },
 333     { 0x00, 0xE8, 0xE8, 0xE8 },
 334     { 0x00, 0xE9, 0xE9, 0xE9 },
 335     { 0x00, 0xEA, 0xEA, 0xEA },
 336     { 0x00, 0xEB, 0xEB, 0xEB },
 337     { 0x00, 0xEC, 0xEC, 0xEC },
 338     { 0x00, 0xED, 0xED, 0xED },
 339     { 0x00, 0xEE, 0xEE, 0xEE },
 340     { 0x00, 0xEF, 0xEF, 0xEF },
 341     { 0x00, 0xF0, 0xF0, 0xF0 },
 342     { 0x00, 0xF1, 0xF1, 0xF1 },
 343     { 0x00, 0xF2, 0xF2, 0xF2 },
 344     { 0x00, 0xF3, 0xF3, 0xF3 },
 345     { 0x00, 0xF4, 0xF4, 0xF4 },
 346     { 0x00, 0xF5, 0xF5, 0xF5 },
 347     { 0x00, 0xF6, 0xF6, 0xF6 },
 348     { 0x00, 0xF7, 0xF7, 0xF7 },
 349     { 0x00, 0xF8, 0xF8, 0xF8 },
 350     { 0x00, 0xF9, 0xF9, 0xF9 },
 351     { 0x00, 0xFA, 0xFA, 0xFA },
 352     { 0x00, 0xFB, 0xFB, 0xFB },
 353     { 0x00, 0xFC, 0xFC, 0xFC },
 354     { 0x00, 0xFD, 0xFD, 0xFD },
 355     { 0x00, 0xFE, 0xFE, 0xFE },
 356     { 0x00, 0xFF, 0xFF, 0xFF }
 357 };
 358
 359 static struct lconv global_lconv = {
 360     /* decimal_point      */ (char *)".",
 361     /* thousands_sep      */ (char *)"",
 362     /* grouping           */ (char *)"",
 363     /* mon_decimal_point  */ (char *)"",
 364     /* mon_thousands_sep  */ (char *)"",
 365     /* mon_grouping       */ (char *)"",
 366     /* positive_sign      */ (char *)"",
 367     /* negative_sign      */ (char *)"",
 368     /* currency_symbol    */ (char *)"",
 369     /* int_curr_symbol    */ (char *)"",
 370     /* frac_digits        */ CHAR_MAX,
 371     /* p_cs_precedes      */ CHAR_MAX,
 372     /* n_cs_precedes      */ CHAR_MAX,
 373     /* p_sep_by_space     */ CHAR_MAX,
 374     /* n_sep_by_space     */ CHAR_MAX,
 375     /* p_sign_posn        */ CHAR_MAX,
 376     /* n_sign_posn        */ CHAR_MAX,
 377     /* int_frac_digits    */ CHAR_MAX,
 378     /* int_p_cs_precedes  */ CHAR_MAX,
 379     /* int_n_cs_precedes  */ CHAR_MAX,
 380     /* int_p_sep_by_space */ CHAR_MAX,
 381     /* int_n_sep_by_space */ CHAR_MAX,
 382     /* int_p_sign_posn    */ CHAR_MAX,
 383     /* int_n_sign_posn    */ CHAR_MAX,
 384 };
 385
 386 extern struct _PDCLIB_charcodec _PDCLIB_ascii_codec;
 387 struct _PDCLIB_locale _PDCLIB_global_locale
 388 = {
 389     ._Codec = &_PDCLIB_ascii_codec,
 390     ._Conv  = &global_lconv,
 391     ._CType = &global_ctype[1],
 392     ._ErrnoStr = {
 393         /* no error */ (char *)"",
 394         /* ERANGE   */ (char *)"ERANGE (Range error)",
 395         /* EDOM     */ (char *)"EDOM (Domain error)",
 396         /* EILSEQ   */ (char *)"EILSEQ (Illegal sequence)"
 397     },
 398 };
 399
 400 #endif
 401
 402 #ifdef TEST
 403 #include <_PDCLIB_test.h>
 404
 405 int main( void )
 406 {
 407     /* Testing covered by several other testdrivers using stdin / stdout /
 408        stderr.
 409     */
 410     return TEST_RESULTS;
 411 }
 412
 413 #endif