annotate lib/wctype-impl.h @ 17363:5a51fb7777a9

sys_select, sys_time: port 2013-01-30 Solaris 2.6 fix to Cygwin Problem reported by Marco Atzeri in <http://lists.gnu.org/archive/html/bug-gnulib/2013-03/msg00000.html>. * lib/sys_select.in.h [HAVE_SYS_SELECT_H && _CYGWIN_SYS_TIME_H]: Simply delegate to the system <sys/select.h> in this case too. Also, pay attention to _GL_SYS_SELECT_H_REDIRECT_FROM_SYS_TIME_H only if OSF/1, since otherwise Cygwin breaks, and it doesn't seem to be needed on Solaris either. * lib/sys_time.in.h [_CYGWIN_SYS_TIME_H]: Simply delgate to the system <sys/time.h> in this case.
author Paul Eggert <eggert@cs.ucla.edu>
date Tue, 19 Mar 2013 09:08:47 -0700
parents e542fd46ad6f
children 344018b6e5d7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
14319
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
1 /* Get descriptor for a wide character property.
17249
e542fd46ad6f maint: update all copyright year number ranges
Eric Blake <eblake@redhat.com>
parents: 16201
diff changeset
2 Copyright (C) 2011-2013 Free Software Foundation, Inc.
14319
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
3 Written by Bruno Haible <bruno@clisp.org>, 2011.
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
4
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
5 This program is free software: you can redistribute it and/or modify
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
6 it under the terms of the GNU General Public License as published by
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
7 the Free Software Foundation; either version 3 of the License, or
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
8 (at your option) any later version.
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
9
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
10 This program is distributed in the hope that it will be useful,
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
13 GNU General Public License for more details.
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
14
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
15 You should have received a copy of the GNU General Public License
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
17
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
18 wctype_t
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
19 wctype (const char* name)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
20 {
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
21 switch (name[0])
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
22 {
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
23 case 'a':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
24 switch (name[1])
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
25 {
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
26 case 'l':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
27 switch (name[2])
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
28 {
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
29 case 'n':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
30 if (strcmp (name + 3, "um") == 0)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
31 return (wctype_t) iswalnum;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
32 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
33 case 'p':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
34 if (strcmp (name + 3, "ha") == 0)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
35 return (wctype_t) iswalpha;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
36 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
37 default:
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
38 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
39 }
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
40 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
41 default:
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
42 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
43 }
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
44 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
45 case 'b':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
46 if (strcmp (name + 1, "lank") == 0)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
47 return (wctype_t) iswblank;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
48 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
49 case 'c':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
50 if (strcmp (name + 1, "ntrl") == 0)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
51 return (wctype_t) iswcntrl;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
52 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
53 case 'd':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
54 if (strcmp (name + 1, "igit") == 0)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
55 return (wctype_t) iswdigit;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
56 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
57 case 'g':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
58 if (strcmp (name + 1, "raph") == 0)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
59 return (wctype_t) iswgraph;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
60 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
61 case 'l':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
62 if (strcmp (name + 1, "ower") == 0)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
63 return (wctype_t) iswlower;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
64 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
65 case 'p':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
66 switch (name[1])
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
67 {
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
68 case 'r':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
69 if (strcmp (name + 2, "int") == 0)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
70 return (wctype_t) iswprint;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
71 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
72 case 'u':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
73 if (strcmp (name + 2, "nct") == 0)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
74 return (wctype_t) iswpunct;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
75 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
76 default:
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
77 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
78 }
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
79 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
80 case 's':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
81 if (strcmp (name + 1, "pace") == 0)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
82 return (wctype_t) iswspace;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
83 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
84 case 'u':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
85 if (strcmp (name + 1, "pper") == 0)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
86 return (wctype_t) iswupper;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
87 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
88 case 'x':
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
89 if (strcmp (name + 1, "digit") == 0)
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
90 return (wctype_t) iswxdigit;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
91 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
92 default:
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
93 break;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
94 }
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
95 return NULL;
aef6efcc4045 New module 'wctype'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
96 }