Mercurial > hg > octave-lojdl > gnulib-hg
annotate lib/wctrans-impl.h @ 17476:6057744acd2c default tip master
autoupdate
| author | Karl Berry <karl@freefriends.org> |
|---|---|
| date | Fri, 16 Aug 2013 06:32:22 -0700 |
| parents | e542fd46ad6f |
| children |
| rev | line source |
|---|---|
| 14321 | 1 /* Get descriptor for a wide character case conversion. |
|
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. |
| 14321 | 3 Written by Bruno Haible <bruno@clisp.org>, 2011. |
| 4 | |
| 5 This program is free software: you can redistribute it and/or modify | |
| 6 it under the terms of the GNU General Public License as published by | |
| 7 the Free Software Foundation; either version 3 of the License, or | |
| 8 (at your option) any later version. | |
| 9 | |
| 10 This program is distributed in the hope that it will be useful, | |
| 11 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 13 GNU General Public License for more details. | |
| 14 | |
| 15 You should have received a copy of the GNU General Public License | |
| 16 along with this program. If not, see <http://www.gnu.org/licenses/>. */ | |
| 17 | |
| 18 wctrans_t | |
| 19 wctrans (const char *name) | |
| 20 { | |
| 21 if (name[0] == 't' | |
| 22 && name[1] == 'o') | |
| 23 switch (name[2]) | |
| 24 { | |
| 25 case 'l': | |
| 26 if (strcmp (name + 3, "ower") == 0) | |
| 27 return (wctrans_t) towlower; | |
| 28 break; | |
| 29 case 'u': | |
| 30 if (strcmp (name + 3, "pper") == 0) | |
| 31 return (wctrans_t) towupper; | |
| 32 break; | |
| 33 default: | |
| 34 break; | |
| 35 } | |
| 36 return NULL; | |
| 37 } |