| 1 | /* ctype.c */
|
|---|
| 2 |
|
|---|
| 3 | /* This file contains the tables and initialization function for elvis'
|
|---|
| 4 | * version of <ctype.h>. It should be portable.
|
|---|
| 5 | */
|
|---|
| 6 |
|
|---|
| 7 | #include "config.h"
|
|---|
| 8 | #include "ctype.h"
|
|---|
| 9 |
|
|---|
| 10 | uchar _ct_toupper[256];
|
|---|
| 11 | uchar _ct_tolower[256];
|
|---|
| 12 | uchar _ct_ctypes[256];
|
|---|
| 13 |
|
|---|
| 14 | /* This function initializes the tables used by the ctype macros. It should
|
|---|
| 15 | * be called at the start of the program. It can be called again anytime you
|
|---|
| 16 | * wish to change the non-standard "flipcase" list. The "flipcase" list is
|
|---|
| 17 | * a string of characters which are taken to be lowercase/uppercase pairs.
|
|---|
| 18 | * If you don't want to use any special flipcase characters, then pass an
|
|---|
| 19 | * empty string.
|
|---|
| 20 | */
|
|---|
| 21 | void _ct_init(flipcase)
|
|---|
| 22 | uchar *flipcase; /* list of non-standard lower/upper letter pairs */
|
|---|
| 23 | {
|
|---|
| 24 | int i;
|
|---|
| 25 | uchar *scan;
|
|---|
| 26 |
|
|---|
| 27 | /* reset all of the tables */
|
|---|
| 28 | for (i = 0; i < 256; i++)
|
|---|
| 29 | {
|
|---|
| 30 | _ct_toupper[i] = _ct_tolower[i] = i;
|
|---|
| 31 | _ct_ctypes[i] = 0;
|
|---|
| 32 | }
|
|---|
| 33 |
|
|---|
| 34 | /* add the digits */
|
|---|
| 35 | for (scan = (uchar *)"0123456789"; *scan; scan++)
|
|---|
| 36 | {
|
|---|
| 37 | _ct_ctypes[*scan] |= _CT_DIGIT | _CT_ALNUM;
|
|---|
| 38 | }
|
|---|
| 39 |
|
|---|
| 40 | /* add the whitespace */
|
|---|
| 41 | for (scan = (uchar *)" \t\n\r\f"; *scan; scan++)
|
|---|
| 42 | {
|
|---|
| 43 | _ct_ctypes[*scan] |= _CT_SPACE;
|
|---|
| 44 | }
|
|---|
| 45 |
|
|---|
| 46 | /* add the standard ASCII letters */
|
|---|
| 47 | for (scan = (uchar *)"aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ"; *scan; scan += 2)
|
|---|
| 48 | {
|
|---|
| 49 | _ct_ctypes[scan[0]] |= _CT_LOWER | _CT_ALNUM;
|
|---|
| 50 | _ct_ctypes[scan[1]] |= _CT_UPPER | _CT_ALNUM;
|
|---|
| 51 | _ct_toupper[scan[0]] = scan[1];
|
|---|
| 52 | _ct_tolower[scan[1]] = scan[0];
|
|---|
| 53 | }
|
|---|
| 54 |
|
|---|
| 55 | /* add the flipcase letters */
|
|---|
| 56 | for (scan = flipcase; scan[0] && scan[1]; scan += 2)
|
|---|
| 57 | {
|
|---|
| 58 | _ct_ctypes[scan[0]] |= _CT_LOWER | _CT_ALNUM;
|
|---|
| 59 | _ct_ctypes[scan[1]] |= _CT_UPPER | _CT_ALNUM;
|
|---|
| 60 | _ct_toupper[scan[0]] = scan[1];
|
|---|
| 61 | _ct_tolower[scan[1]] = scan[0];
|
|---|
| 62 | }
|
|---|
| 63 |
|
|---|
| 64 | /* include '_' in the isalnum() list */
|
|---|
| 65 | _ct_ctypes[UCHAR('_')] |= _CT_ALNUM;
|
|---|
| 66 |
|
|---|
| 67 | /* !!! find the control characters in an ASCII-dependent way */
|
|---|
| 68 | for (i = 0; i < ' '; i++)
|
|---|
| 69 | {
|
|---|
| 70 | _ct_ctypes[i] |= _CT_CNTRL;
|
|---|
| 71 | }
|
|---|
| 72 | _ct_ctypes[127] |= _CT_CNTRL;
|
|---|
| 73 | _ct_ctypes[255] |= _CT_CNTRL;
|
|---|
| 74 | }
|
|---|
