1 /* This testcase is part of GDB, the GNU debugger. 2 3 Copyright 2001-2016 Free Software Foundation, Inc. 4 5 Contributed by Red Hat, originally written by Jim Blandy. 6 7 This program is free software; you can redistribute it and/or modify 8 it under the terms of the GNU General Public License as published by 9 the Free Software Foundation; either version 3 of the License, or 10 (at your option) any later version. 11 12 This program is distributed in the hope that it will be useful, 13 but WITHOUT ANY WARRANTY; without even the implied warranty of 14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 GNU General Public License for more details. 16 17 You should have received a copy of the GNU General Public License 18 along with this program. If not, see <http://www.gnu.org/licenses/>. 19 20 Please email any bugs, comments, and/or additions to this file to: 21 bug-gdb@gnu.org */ 22 23 /* X_string is a null-terminated string in the X charset whose 24 elements are as follows. X should be the name the `set charset' 25 command uses for the character set, in lower-case, with any 26 non-identifier characters replaced with underscores. Where a 27 character set doesn't have the given character, the string should 28 contain the character 'x'. 29 30 [0] --- the `alert' character, '\a' 31 [1] --- the `backspace' character, '\b' 32 [2] --- the `form feed' character, '\f' 33 [3] --- the `line feed' character, '\n' 34 [4] --- the `carriage return' character, '\r' 35 [5] --- the `horizontal tab' character, '\t' 36 [6] --- the `vertical tab' character, '\v' 37 [7 .. 32] --- the uppercase letters A-Z 38 [33 .. 58] --- the lowercase letters a-z 39 [59 .. 68] --- the digits 0-9 40 [69] --- the `cent' character 41 [70] --- a control character with no defined backslash escape 42 43 Feel free to extend these as you like. */ 44 45 #define NUM_CHARS (71) 46 47 char ascii_string[NUM_CHARS]; 48 char iso_8859_1_string[NUM_CHARS]; 49 char ebcdic_us_string[NUM_CHARS]; 50 char ibm1047_string[NUM_CHARS]; 51 52 /* We make a phony wchar_t and then pretend that this platform uses 53 UTF-32 (or UTF-16, depending on the size -- same difference for the 54 purposes of this test). */ 55 typedef unsigned int wchar_t; 56 wchar_t utf_32_string[NUM_CHARS]; 57 58 /* We also define a couple phony types for testing the u'' and U'' 59 support. It is ok if these have the wrong size on some platforms 60 -- the test case will skip the tests in that case. */ 61 typedef unsigned short char16_t; 62 typedef unsigned int char32_t; 63 64 /* Make sure to use the typedefs. */ 65 char16_t uvar; 66 char32_t Uvar; 67 68 char16_t *String16; 69 char32_t *String32; 70 71 /* A typedef to a typedef should also work. */ 72 typedef wchar_t my_wchar_t; 73 my_wchar_t myvar; 74 75 /* Some arrays for simple assignment tests. */ 76 short short_array[3]; 77 int int_array[3]; 78 long long_array[3]; 79 80 void 81 init_string (char string[], 82 char x, 83 char alert, char backspace, char form_feed, 84 char line_feed, char carriage_return, char horizontal_tab, 85 char vertical_tab, char cent, char misc_ctrl) 86 { 87 int i; 88 89 for (i = 0; i < NUM_CHARS; ++i) 90 string[i] = x; 91 string[0] = alert; 92 string[1] = backspace; 93 string[2] = form_feed; 94 string[3] = line_feed; 95 string[4] = carriage_return; 96 string[5] = horizontal_tab; 97 string[6] = vertical_tab; 98 string[69] = cent; 99 string[70] = misc_ctrl; 100 } 101 102 103 void 104 fill_run (char string[], int start, int len, int first) 105 { 106 int i; 107 108 for (i = 0; i < len; i++) 109 string[start + i] = first + i; 110 } 111 112 113 void 114 init_utf32 () 115 { 116 int i; 117 118 for (i = 0; i < NUM_CHARS; ++i) 119 utf_32_string[i] = iso_8859_1_string[i] & 0xff; 120 } 121 122 extern void malloc_stub (void); 123 124 int main () 125 { 126 127 malloc_stub (); 128 129 /* Initialize ascii_string. */ 130 init_string (ascii_string, 131 120, 132 7, 8, 12, 133 10, 13, 9, 134 11, 120, 17); 135 fill_run (ascii_string, 7, 26, 65); 136 fill_run (ascii_string, 33, 26, 97); 137 fill_run (ascii_string, 59, 10, 48); 138 139 /* Initialize iso_8859_1_string. */ 140 init_string (iso_8859_1_string, 141 120, 142 7, 8, 12, 143 10, 13, 9, 144 11, 162, 17); 145 fill_run (iso_8859_1_string, 7, 26, 65); 146 fill_run (iso_8859_1_string, 33, 26, 97); 147 fill_run (iso_8859_1_string, 59, 10, 48); 148 149 /* Initialize ebcdic_us_string. */ 150 init_string (ebcdic_us_string, 151 167, 152 47, 22, 12, 153 37, 13, 5, 154 11, 74, 17); 155 /* In EBCDIC, the upper-case letters are broken into three separate runs. */ 156 fill_run (ebcdic_us_string, 7, 9, 193); 157 fill_run (ebcdic_us_string, 16, 9, 209); 158 fill_run (ebcdic_us_string, 25, 8, 226); 159 /* The lower-case letters are, too. */ 160 fill_run (ebcdic_us_string, 33, 9, 129); 161 fill_run (ebcdic_us_string, 42, 9, 145); 162 fill_run (ebcdic_us_string, 51, 8, 162); 163 /* The digits, at least, are contiguous. */ 164 fill_run (ebcdic_us_string, 59, 10, 240); 165 166 /* Initialize ibm1047_string. */ 167 init_string (ibm1047_string, 168 167, 169 47, 22, 12, 170 37, 13, 5, 171 11, 74, 17); 172 /* In EBCDIC, the upper-case letters are broken into three separate runs. */ 173 fill_run (ibm1047_string, 7, 9, 193); 174 fill_run (ibm1047_string, 16, 9, 209); 175 fill_run (ibm1047_string, 25, 8, 226); 176 /* The lower-case letters are, too. */ 177 fill_run (ibm1047_string, 33, 9, 129); 178 fill_run (ibm1047_string, 42, 9, 145); 179 fill_run (ibm1047_string, 51, 8, 162); 180 /* The digits, at least, are contiguous. */ 181 fill_run (ibm1047_string, 59, 10, 240); 182 183 init_utf32 (); 184 185 myvar = utf_32_string[7]; 186 187 return 0; /* all strings initialized */ 188 } 189