]> pd.if.org Git - pdclib/blob - platform/example/functions/_PDCLIB/_PDCLIB_stdinit.c
Cosmetic comment fixes.
[pdclib] / platform / example / functions / _PDCLIB / _PDCLIB_stdinit.c
1 /* _PDCLIB_stdinit
2
3    This file is part of the Public Domain C Library (PDCLib).
4    Permission is granted to use, modify, and / or redistribute at will.
5 */
6
7 /* This is an example initialization of stdin, stdout and stderr to the integer
8    file descriptors 0, 1, and 2, respectively. This applies for a great variety
9    of operating systems, including POSIX compliant ones.
10 */
11
12 #include <stdio.h>
13 #include <locale.h>
14 #include <limits.h>
15
16 #ifndef REGTEST
17 #include "_PDCLIB_io.h"
18 #include "_PDCLIB_locale.h"
19 #include "_PDCLIB_encoding.h"
20
21 extern const _PDCLIB_fileops_t _PDCLIB_fileops;
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
36 static FILE _PDCLIB_serr = { 
37     .ops        = &_PDCLIB_fileops, 
38     .buffer     = _PDCLIB_serr_buffer, 
39     .bufsize    = BUFSIZ, 
40     .bufidx     = 0, 
41     .bufend     = 0, 
42     .ungetidx   = 0, 
43     .ungetbuf   = _PDCLIB_serr_ungetbuf, 
44     .status     = _IONBF | _PDCLIB_FWRITE | _PDCLIB_STATIC, 
45     .filename   = NULL, 
46     .next       = NULL,
47 };
48 static FILE _PDCLIB_sout = { 
49     .ops        = &_PDCLIB_fileops, 
50     .buffer     = _PDCLIB_sout_buffer, 
51     .bufsize    = BUFSIZ, 
52     .bufidx     = 0, 
53     .bufend     = 0, 
54     .ungetidx   = 0, 
55     .ungetbuf   = _PDCLIB_sout_ungetbuf, 
56     .status     = _IOLBF | _PDCLIB_FWRITE | _PDCLIB_STATIC, 
57     .filename   = NULL, 
58     .next       = &_PDCLIB_serr 
59 };
60 static FILE _PDCLIB_sin  = { 
61     .ops        = &_PDCLIB_fileops, 
62     .buffer     = _PDCLIB_sin_buffer, 
63     .bufsize    = BUFSIZ, 
64     .bufidx     = 0, 
65     .bufend     = 0, 
66     .ungetidx   = 0, 
67     .ungetbuf   = _PDCLIB_sin_ungetbuf, 
68     .status     = _IOLBF | _PDCLIB_FREAD | _PDCLIB_STATIC, 
69     .filename   = NULL, 
70     .next       = &_PDCLIB_sout 
71 };
72
73 FILE *stdin  = &_PDCLIB_sin;
74 FILE *stdout = &_PDCLIB_sout;
75 FILE *stderr = &_PDCLIB_serr;
76
77 FILE *_PDCLIB_filelist = &_PDCLIB_sin;
78
79 /* "C" locale - defaulting to ASCII-7.
80    1 kByte (+ 4 byte) of <ctype.h> data.
81    Each line: flags, lowercase, uppercase, collation.
82 */
83 static const _PDCLIB_ctype_t global_ctype[] = {
84     { /* EOF */    0,    0,    0,    0 },
85     { /* NUL */ _PDCLIB_CTYPE_CNTRL,                                             0x00, 0x00, 0x00 },
86     { /* SOH */ _PDCLIB_CTYPE_CNTRL,                                             0x01, 0x01, 0x01 },
87     { /* STX */ _PDCLIB_CTYPE_CNTRL,                                             0x02, 0x02, 0x02 },
88     { /* ETX */ _PDCLIB_CTYPE_CNTRL,                                             0x03, 0x03, 0x03 },
89     { /* EOT */ _PDCLIB_CTYPE_CNTRL,                                             0x04, 0x04, 0x04 },
90     { /* ENQ */ _PDCLIB_CTYPE_CNTRL,                                             0x05, 0x05, 0x05 },
91     { /* ACK */ _PDCLIB_CTYPE_CNTRL,                                             0x06, 0x06, 0x06 },
92     { /* BEL */ _PDCLIB_CTYPE_CNTRL,                                             0x07, 0x07, 0x07 },
93     { /*  BS */ _PDCLIB_CTYPE_CNTRL,                                             0x08, 0x08, 0x08 },
94     { /*  HT */ _PDCLIB_CTYPE_CNTRL | _PDCLIB_CTYPE_BLANK | _PDCLIB_CTYPE_SPACE, 0x09, 0x09, 0x09 },
95     { /*  LF */ _PDCLIB_CTYPE_CNTRL | _PDCLIB_CTYPE_SPACE,                       0x0A, 0x0A, 0x0A },
96     { /*  VT */ _PDCLIB_CTYPE_CNTRL | _PDCLIB_CTYPE_SPACE,                       0x0B, 0x0B, 0x0B },
97     { /*  FF */ _PDCLIB_CTYPE_CNTRL | _PDCLIB_CTYPE_SPACE,                       0x0C, 0x0C, 0x0C },
98     { /*  CR */ _PDCLIB_CTYPE_CNTRL | _PDCLIB_CTYPE_SPACE,                       0x0D, 0x0D, 0x0D },
99     { /*  SO */ _PDCLIB_CTYPE_CNTRL,                                             0x0E, 0x0E, 0x0E },
100     { /*  SI */ _PDCLIB_CTYPE_CNTRL,                                             0x0F, 0x0F, 0x0F },
101     { /* DLE */ _PDCLIB_CTYPE_CNTRL,                                             0x10, 0x10, 0x10 },
102     { /* DC1 */ _PDCLIB_CTYPE_CNTRL,                                             0x11, 0x11, 0x11 },
103     { /* DC2 */ _PDCLIB_CTYPE_CNTRL,                                             0x12, 0x12, 0x12 },
104     { /* DC3 */ _PDCLIB_CTYPE_CNTRL,                                             0x13, 0x13, 0x13 },
105     { /* DC4 */ _PDCLIB_CTYPE_CNTRL,                                             0x14, 0x14, 0x14 },
106     { /* NAK */ _PDCLIB_CTYPE_CNTRL,                                             0x15, 0x15, 0x15 },
107     { /* SYN */ _PDCLIB_CTYPE_CNTRL,                                             0x16, 0x16, 0x16 },
108     { /* ETB */ _PDCLIB_CTYPE_CNTRL,                                             0x17, 0x17, 0x17 },
109     { /* CAN */ _PDCLIB_CTYPE_CNTRL,                                             0x18, 0x18, 0x18 },
110     { /*  EM */ _PDCLIB_CTYPE_CNTRL,                                             0x19, 0x19, 0x19 },
111     { /* SUB */ _PDCLIB_CTYPE_CNTRL,                                             0x1A, 0x1A, 0x1A },
112     { /* ESC */ _PDCLIB_CTYPE_CNTRL,                                             0x1B, 0x1B, 0x1B },
113     { /*  FS */ _PDCLIB_CTYPE_CNTRL,                                             0x1C, 0x1C, 0x1C },
114     { /*  GS */ _PDCLIB_CTYPE_CNTRL,                                             0x1D, 0x1D, 0x1D },
115     { /*  RS */ _PDCLIB_CTYPE_CNTRL,                                             0x1E, 0x1E, 0x1E },
116     { /*  US */ _PDCLIB_CTYPE_CNTRL,                                             0x1F, 0x1F, 0x1F },
117     { /*  SP */ _PDCLIB_CTYPE_BLANK | _PDCLIB_CTYPE_SPACE,                       0x20, 0x20, 0x20 },
118     { /* '!' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x21, 0x21, 0x21 },
119     { /* '"' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x22, 0x22, 0x22 },
120     { /* '#' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x23, 0x23, 0x23 },
121     { /* '$' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x24, 0x24, 0x24 },
122     { /* '%' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x25, 0x25, 0x25 },
123     { /* '&' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x26, 0x26, 0x26 },
124     { /* ''' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x27, 0x27, 0x27 },
125     { /* '(' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x28, 0x28, 0x28 },
126     { /* ')' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x29, 0x29, 0x29 },
127     { /* '*' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x2A, 0x2A, 0x2A },
128     { /* '+' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x2B, 0x2B, 0x2B },
129     { /* ',' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x2C, 0x2C, 0x2C },
130     { /* '-' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x2D, 0x2D, 0x2D },
131     { /* '.' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x2E, 0x2E, 0x2E },
132     { /* '/' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x2F, 0x2F, 0x2F },
133     { /* '0' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x30, 0x30, 0x30 },
134     { /* '1' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x31, 0x31, 0x31 },
135     { /* '2' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x32, 0x32, 0x32 },
136     { /* '3' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x33, 0x33, 0x33 },
137     { /* '4' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x34, 0x34, 0x34 },
138     { /* '5' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x35, 0x35, 0x35 },
139     { /* '6' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x36, 0x36, 0x36 },
140     { /* '7' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x37, 0x37, 0x37 },
141     { /* '8' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x38, 0x38, 0x38 },
142     { /* '9' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_DIGIT | _PDCLIB_CTYPE_XDIGT, 0x39, 0x39, 0x39 },
143     { /* ':' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x3A, 0x3A, 0x3A },
144     { /* ';' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x3B, 0x3B, 0x3B },
145     { /* '<' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x3C, 0x3C, 0x3C },
146     { /* '=' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x3D, 0x3D, 0x3D },
147     { /* '>' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x3E, 0x3E, 0x3E },
148     { /* '?' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x3F, 0x3F, 0x3F },
149     { /* '@' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x40, 0x40, 0x40 },
150     { /* 'A' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER | _PDCLIB_CTYPE_XDIGT, 0x41, 0x61, 0x41 },
151     { /* 'B' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER | _PDCLIB_CTYPE_XDIGT, 0x42, 0x62, 0x42 },
152     { /* 'C' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER | _PDCLIB_CTYPE_XDIGT, 0x43, 0x63, 0x43 },
153     { /* 'D' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER | _PDCLIB_CTYPE_XDIGT, 0x44, 0x64, 0x44 },
154     { /* 'E' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER | _PDCLIB_CTYPE_XDIGT, 0x45, 0x65, 0x45 },
155     { /* 'F' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER | _PDCLIB_CTYPE_XDIGT, 0x46, 0x66, 0x46 },
156     { /* 'G' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x47, 0x67, 0x47 },
157     { /* 'H' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x48, 0x68, 0x48 },
158     { /* 'I' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x49, 0x69, 0x49 },
159     { /* 'J' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x4A, 0x6A, 0x4A },
160     { /* 'K' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x4B, 0x6B, 0x4B },
161     { /* 'L' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x4C, 0x6C, 0x4C },
162     { /* 'M' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x4D, 0x6D, 0x4D },
163     { /* 'N' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x4E, 0x6E, 0x4E },
164     { /* 'O' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x4F, 0x6F, 0x4F },
165     { /* 'P' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x50, 0x70, 0x50 },
166     { /* 'Q' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x51, 0x71, 0x51 },
167     { /* 'R' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x52, 0x72, 0x52 },
168     { /* 'S' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x53, 0x73, 0x53 },
169     { /* 'T' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x54, 0x74, 0x54 },
170     { /* 'U' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x55, 0x75, 0x55 },
171     { /* 'V' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x56, 0x76, 0x56 },
172     { /* 'W' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x57, 0x77, 0x57 },
173     { /* 'X' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x58, 0x78, 0x58 },
174     { /* 'Y' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x59, 0x79, 0x59 },
175     { /* 'Z' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_UPPER, 0x5A, 0x7A, 0x5A },
176     { /* '[' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x5B, 0x5B, 0x5B },
177     { /* '\' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x5C, 0x5C, 0x5C },
178     { /* ']' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x5D, 0x5D, 0x5D },
179     { /* '^' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x5E, 0x5E, 0x5E },
180     { /* '_' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x5F, 0x5F, 0x5F },
181     { /* '`' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x60, 0x60, 0x60 },
182     { /* 'a' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER | _PDCLIB_CTYPE_XDIGT, 0x41, 0x61, 0x61 },
183     { /* 'b' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER | _PDCLIB_CTYPE_XDIGT, 0x42, 0x62, 0x62 },
184     { /* 'c' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER | _PDCLIB_CTYPE_XDIGT, 0x43, 0x63, 0x63 },
185     { /* 'd' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER | _PDCLIB_CTYPE_XDIGT, 0x44, 0x64, 0x64 },
186     { /* 'e' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER | _PDCLIB_CTYPE_XDIGT, 0x45, 0x65, 0x65 },
187     { /* 'f' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER | _PDCLIB_CTYPE_XDIGT, 0x46, 0x66, 0x66 },
188     { /* 'g' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x47, 0x67, 0x67 },
189     { /* 'h' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x48, 0x68, 0x68 },
190     { /* 'i' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x49, 0x69, 0x69 },
191     { /* 'j' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x4A, 0x6A, 0x6A },
192     { /* 'k' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x4B, 0x6B, 0x6B },
193     { /* 'l' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x4C, 0x6C, 0x6C },
194     { /* 'm' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x4D, 0x6D, 0x6D },
195     { /* 'n' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x4E, 0x6E, 0x6E },
196     { /* 'o' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x4F, 0x6F, 0x6F },
197     { /* 'p' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x50, 0x70, 0x70 },
198     { /* 'q' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x51, 0x71, 0x71 },
199     { /* 'r' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x52, 0x72, 0x72 },
200     { /* 's' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x53, 0x73, 0x73 },
201     { /* 't' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x54, 0x74, 0x74 },
202     { /* 'u' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x55, 0x75, 0x75 },
203     { /* 'v' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x56, 0x76, 0x76 },
204     { /* 'w' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x57, 0x77, 0x77 },
205     { /* 'x' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x58, 0x78, 0x78 },
206     { /* 'y' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x59, 0x79, 0x79 },
207     { /* 'z' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_LOWER, 0x5A, 0x7A, 0x7A },
208     { /* '{' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x7B, 0x7B, 0x7B },
209     { /* '|' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x7C, 0x7C, 0x7C },
210     { /* '}' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x7D, 0x7D, 0x7D },
211     { /* '~' */ _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_PUNCT,                       0x7E, 0x7E, 0x7E },
212     { /* DEL */ _PDCLIB_CTYPE_CNTRL,                                             0x7F, 0x7F, 0x7F },
213     { 0x00, 0x80, 0x80, 0x80 },
214     { 0x00, 0x81, 0x81, 0x81 },
215     { 0x00, 0x82, 0x82, 0x82 },
216     { 0x00, 0x83, 0x83, 0x83 },
217     { 0x00, 0x84, 0x84, 0x84 },
218     { 0x00, 0x85, 0x85, 0x85 },
219     { 0x00, 0x86, 0x86, 0x86 },
220     { 0x00, 0x87, 0x87, 0x87 },
221     { 0x00, 0x88, 0x88, 0x88 },
222     { 0x00, 0x89, 0x89, 0x89 },
223     { 0x00, 0x8A, 0x8A, 0x8A },
224     { 0x00, 0x8B, 0x8B, 0x8B },
225     { 0x00, 0x8C, 0x8C, 0x8C },
226     { 0x00, 0x8D, 0x8D, 0x8D },
227     { 0x00, 0x8E, 0x8E, 0x8E },
228     { 0x00, 0x8F, 0x8F, 0x8F },
229     { 0x00, 0x90, 0x90, 0x90 },
230     { 0x00, 0x91, 0x91, 0x91 },
231     { 0x00, 0x92, 0x92, 0x92 },
232     { 0x00, 0x93, 0x93, 0x93 },
233     { 0x00, 0x94, 0x94, 0x94 },
234     { 0x00, 0x95, 0x95, 0x95 },
235     { 0x00, 0x96, 0x96, 0x96 },
236     { 0x00, 0x97, 0x97, 0x97 },
237     { 0x00, 0x98, 0x98, 0x98 },
238     { 0x00, 0x99, 0x99, 0x99 },
239     { 0x00, 0x9A, 0x9A, 0x9A },
240     { 0x00, 0x9B, 0x9B, 0x9B },
241     { 0x00, 0x9C, 0x9C, 0x9C },
242     { 0x00, 0x9D, 0x9D, 0x9D },
243     { 0x00, 0x9E, 0x9E, 0x9E },
244     { 0x00, 0x9F, 0x9F, 0x9F },
245     { 0x00, 0xA0, 0xA0, 0xA0 },
246     { 0x00, 0xA1, 0xA1, 0xA1 },
247     { 0x00, 0xA2, 0xA2, 0xA2 },
248     { 0x00, 0xA3, 0xA3, 0xA3 },
249     { 0x00, 0xA4, 0xA4, 0xA4 },
250     { 0x00, 0xA5, 0xA5, 0xA5 },
251     { 0x00, 0xA6, 0xA6, 0xA6 },
252     { 0x00, 0xA7, 0xA7, 0xA7 },
253     { 0x00, 0xA8, 0xA8, 0xA8 },
254     { 0x00, 0xA9, 0xA9, 0xA9 },
255     { 0x00, 0xAA, 0xAA, 0xAA },
256     { 0x00, 0xAB, 0xAB, 0xAB },
257     { 0x00, 0xAC, 0xAC, 0xAC },
258     { 0x00, 0xAD, 0xAD, 0xAD },
259     { 0x00, 0xAE, 0xAE, 0xAE },
260     { 0x00, 0xAF, 0xAF, 0xAF },
261     { 0x00, 0xB0, 0xB0, 0xB0 },
262     { 0x00, 0xB1, 0xB1, 0xB1 },
263     { 0x00, 0xB2, 0xB2, 0xB2 },
264     { 0x00, 0xB3, 0xB3, 0xB3 },
265     { 0x00, 0xB4, 0xB4, 0xB4 },
266     { 0x00, 0xB5, 0xB5, 0xB5 },
267     { 0x00, 0xB6, 0xB6, 0xB6 },
268     { 0x00, 0xB7, 0xB7, 0xB7 },
269     { 0x00, 0xB8, 0xB8, 0xB8 },
270     { 0x00, 0xB9, 0xB9, 0xB9 },
271     { 0x00, 0xBA, 0xBA, 0xBA },
272     { 0x00, 0xBB, 0xBB, 0xBB },
273     { 0x00, 0xBC, 0xBC, 0xBC },
274     { 0x00, 0xBD, 0xBD, 0xBD },
275     { 0x00, 0xBE, 0xBE, 0xBE },
276     { 0x00, 0xBF, 0xBF, 0xBF },
277     { 0x00, 0xC0, 0xC0, 0xC0 },
278     { 0x00, 0xC1, 0xC1, 0xC1 },
279     { 0x00, 0xC2, 0xC2, 0xC2 },
280     { 0x00, 0xC3, 0xC3, 0xC3 },
281     { 0x00, 0xC4, 0xC4, 0xC4 },
282     { 0x00, 0xC5, 0xC5, 0xC5 },
283     { 0x00, 0xC6, 0xC6, 0xC6 },
284     { 0x00, 0xC7, 0xC7, 0xC7 },
285     { 0x00, 0xC8, 0xC8, 0xC8 },
286     { 0x00, 0xC9, 0xC9, 0xC9 },
287     { 0x00, 0xCA, 0xCA, 0xCA },
288     { 0x00, 0xCB, 0xCB, 0xCB },
289     { 0x00, 0xCC, 0xCC, 0xCC },
290     { 0x00, 0xCD, 0xCD, 0xCD },
291     { 0x00, 0xCE, 0xCE, 0xCE },
292     { 0x00, 0xCF, 0xCF, 0xCF },
293     { 0x00, 0xD0, 0xD0, 0xD0 },
294     { 0x00, 0xD1, 0xD1, 0xD1 },
295     { 0x00, 0xD2, 0xD2, 0xD2 },
296     { 0x00, 0xD3, 0xD3, 0xD3 },
297     { 0x00, 0xD4, 0xD4, 0xD4 },
298     { 0x00, 0xD5, 0xD5, 0xD5 },
299     { 0x00, 0xD6, 0xD6, 0xD6 },
300     { 0x00, 0xD7, 0xD7, 0xD7 },
301     { 0x00, 0xD8, 0xD8, 0xD8 },
302     { 0x00, 0xD9, 0xD9, 0xD9 },
303     { 0x00, 0xDA, 0xDA, 0xDA },
304     { 0x00, 0xDB, 0xDB, 0xDB },
305     { 0x00, 0xDC, 0xDC, 0xDC },
306     { 0x00, 0xDD, 0xDD, 0xDD },
307     { 0x00, 0xDE, 0xDE, 0xDE },
308     { 0x00, 0xDF, 0xDF, 0xDF },
309     { 0x00, 0xE0, 0xE0, 0xE0 },
310     { 0x00, 0xE1, 0xE1, 0xE1 },
311     { 0x00, 0xE2, 0xE2, 0xE2 },
312     { 0x00, 0xE3, 0xE3, 0xE3 },
313     { 0x00, 0xE4, 0xE4, 0xE4 },
314     { 0x00, 0xE5, 0xE5, 0xE5 },
315     { 0x00, 0xE6, 0xE6, 0xE6 },
316     { 0x00, 0xE7, 0xE7, 0xE7 },
317     { 0x00, 0xE8, 0xE8, 0xE8 },
318     { 0x00, 0xE9, 0xE9, 0xE9 },
319     { 0x00, 0xEA, 0xEA, 0xEA },
320     { 0x00, 0xEB, 0xEB, 0xEB },
321     { 0x00, 0xEC, 0xEC, 0xEC },
322     { 0x00, 0xED, 0xED, 0xED },
323     { 0x00, 0xEE, 0xEE, 0xEE },
324     { 0x00, 0xEF, 0xEF, 0xEF },
325     { 0x00, 0xF0, 0xF0, 0xF0 },
326     { 0x00, 0xF1, 0xF1, 0xF1 },
327     { 0x00, 0xF2, 0xF2, 0xF2 },
328     { 0x00, 0xF3, 0xF3, 0xF3 },
329     { 0x00, 0xF4, 0xF4, 0xF4 },
330     { 0x00, 0xF5, 0xF5, 0xF5 },
331     { 0x00, 0xF6, 0xF6, 0xF6 },
332     { 0x00, 0xF7, 0xF7, 0xF7 },
333     { 0x00, 0xF8, 0xF8, 0xF8 },
334     { 0x00, 0xF9, 0xF9, 0xF9 },
335     { 0x00, 0xFA, 0xFA, 0xFA },
336     { 0x00, 0xFB, 0xFB, 0xFB },
337     { 0x00, 0xFC, 0xFC, 0xFC },
338     { 0x00, 0xFD, 0xFD, 0xFD },
339     { 0x00, 0xFE, 0xFE, 0xFE },
340     { 0x00, 0xFF, 0xFF, 0xFF }
341 };
342
343 extern const struct _PDCLIB_charcodec_t _PDCLIB_ascii_codec;
344 struct _PDCLIB_locale _PDCLIB_global_locale = {
345     ._Codec = &_PDCLIB_ascii_codec,
346     ._Conv  = { 
347         /* decimal_point      */ (char *)".",
348         /* thousands_sep      */ (char *)"",
349         /* grouping           */ (char *)"",
350         /* mon_decimal_point  */ (char *)"",
351         /* mon_thousands_sep  */ (char *)"",
352         /* mon_grouping       */ (char *)"",
353         /* positive_sign      */ (char *)"",
354         /* negative_sign      */ (char *)"",
355         /* currency_symbol    */ (char *)"",
356         /* int_curr_symbol    */ (char *)"",
357         /* frac_digits        */ CHAR_MAX,
358         /* p_cs_precedes      */ CHAR_MAX,
359         /* n_cs_precedes      */ CHAR_MAX,
360         /* p_sep_by_space     */ CHAR_MAX,
361         /* n_sep_by_space     */ CHAR_MAX,
362         /* p_sign_posn        */ CHAR_MAX,
363         /* n_sign_posn        */ CHAR_MAX,
364         /* int_frac_digits    */ CHAR_MAX,
365         /* int_p_cs_precedes  */ CHAR_MAX,
366         /* int_n_cs_precedes  */ CHAR_MAX,
367         /* int_p_sep_by_space */ CHAR_MAX,
368         /* int_n_sep_by_space */ CHAR_MAX,
369         /* int_p_sign_posn    */ CHAR_MAX,
370         /* int_n_sign_posn    */ CHAR_MAX,
371     },
372     ._CType = &global_ctype[1],
373     ._ErrnoStr = {
374         "Success",
375         "EPERM (operation not permitted)",
376         "ENOENT (no such file or directory)",
377         "ESRCH (no such process)",
378         "EINTR (interrupted)",
379         "EIO (io error)",
380         "ENXIO (no such device or address)",
381         "E2BIG (argument list too long)",
382         "ENOEXEC (executable format error)",
383         "EBADF (bad file descriptor)",
384         "ECHILD (no child process)",
385         "EAGAIN (resource unavailable try again)",
386         "ENOMEM (not enough memory)",
387         "EACCES (permission denied)",
388         "EFAULT (bad address)",
389         "Unknown error",
390         "EBUSY (device or resource busy)",
391         "EEXIST (file exists)",
392         "EXDEV (cross device link)",
393         "ENODEV (no such device)",
394         "ENOTDIR (not a directory)",
395         "EISDIR (is a directory)",
396         "EINVAL (invalid argument)",
397         "ENFILE (too many files open in system)",
398         "EMFILE (too many files open)",
399         "ENOTTY (inappropriate io control operation)",
400         "ETXTBSY (text file busy)",
401         "EFBIG (file too large)",
402         "ENOSPC (no space on device)",
403         "ESPIPE (invalid seek)",
404         "EROFS (read only file system)",
405         "EMLINK (too many links)",
406         "EPIPE (broken pipe)",
407         "EDOM (argument out of domain)",
408         "ERANGE (result out of range)",
409         "EDEADLK (resource deadlock would occur)",
410         "ENAMETOOLONG (filename too long)",
411         "ENOLCK (no lock available)",
412         "ENOSYS (function not supported)",
413         "ENOTEMPTY (directory not empty)",
414         "ELOOP (too many symbolic link levels)",
415         "Unknown error",
416         "ENOMSG (no message)",
417         "EIDRM (identifier removed)",
418         "Unknown error",
419         "Unknown error",
420         "Unknown error",
421         "Unknown error",
422         "Unknown error",
423         "Unknown error",
424         "Unknown error",
425         "Unknown error",
426         "Unknown error",
427         "Unknown error",
428         "Unknown error",
429         "Unknown error",
430         "Unknown error",
431         "Unknown error",
432         "Unknown error",
433         "Unknown error",
434         "ENOSTR (not a stream)",
435         "ENODATA (no message available)",
436         "ETIME (stream timeout)",
437         "ENOSR (no stream resources)",
438         "Unknown error",
439         "Unknown error",
440         "Unknown error",
441         "ENOLINK (no link)",
442         "Unknown error",
443         "Unknown error",
444         "Unknown error",
445         "EPROTO (protocol error)",
446         "Unknown error",
447         "Unknown error",
448         "EBADMSG (bad message)",
449         "EOVERFLOW (value too large)",
450         "Unknown error",
451         "Unknown error",
452         "Unknown error",
453         "Unknown error",
454         "Unknown error",
455         "Unknown error",
456         "Unknown error",
457         "Unknown error",
458         "EILSEQ (illegal byte sequence)",
459         "Unknown error",
460         "Unknown error",
461         "Unknown error",
462         "ENOTSOCK (not a socket)",
463         "EDESTADDRREQ (destination address required)",
464         "EMSGSIZE (message size)",
465         "EPROTOTYPE (wrong protocol type)",
466         "ENOPROTOOPT (no protocol option)",
467         "EPROTONOSUPPORT (protocol not supported)",
468         "Unknown error",
469         "ENOTSUP (not supported)",
470         "Unknown error",
471         "EAFNOSUPPORT (address family not supported)",
472         "EADDRINUSE (address in use)",
473         "EADDRNOTAVAIL (address not available)",
474         "ENETDOWN (network down)",
475         "ENETUNREACH (network unreachable)",
476         "ENETRESET (network reset)",
477         "ECONNABORTED (connection aborted)",
478         "ECONNRESET (connection reset)",
479         "ENOBUFS (no buffer space)",
480         "EISCONN (already connected)",
481         "ENOTCONN (not connected)",
482         "Unknown error",
483         "Unknown error",
484         "ETIMEDOUT (timed out)",
485         "ECONNREFUSED (connection refused)",
486         "Unknown error",
487         "EHOSTUNREACH (host unreachable)",
488         "EALREADY (connection already in progress)",
489         "EINPROGRESS (operation in progress)",
490         "Unknown error",
491         "Unknown error",
492         "Unknown error",
493         "Unknown error",
494         "Unknown error",
495         "Unknown error",
496         "Unknown error",
497         "Unknown error",
498         "Unknown error",
499         "ECANCELED (operation canceled)",
500         "Unknown error",
501         "Unknown error",
502         "Unknown error",
503         "Unknown error",
504         "EOWNERDEAD (owner dead)",
505         "ENOTRECOVERABLE (state not recoverable)",
506     },
507 };
508
509 #endif
510
511 #ifdef TEST
512 #include "_PDCLIB_test.h"
513
514 int main( void )
515 {
516     /* Testing covered by several other testdrivers using stdin / stdout / 
517        stderr.
518     */
519     return TEST_RESULTS;
520 }
521
522 #endif