ascase.c revision 1.1.1.2.4.2
1 1.1.1.2.4.2 rmind 2 1.1.1.2.4.2 rmind /****************************************************************************** 3 1.1.1.2.4.2 rmind * 4 1.1.1.2.4.2 rmind * Module Name: ascase - Source conversion - lower/upper case utilities 5 1.1.1.2.4.2 rmind * 6 1.1.1.2.4.2 rmind *****************************************************************************/ 7 1.1.1.2.4.2 rmind 8 1.1.1.2.4.2 rmind /* 9 1.1.1.2.4.2 rmind * Copyright (C) 2000 - 2011, Intel Corp. 10 1.1.1.2.4.2 rmind * All rights reserved. 11 1.1.1.2.4.2 rmind * 12 1.1.1.2.4.2 rmind * Redistribution and use in source and binary forms, with or without 13 1.1.1.2.4.2 rmind * modification, are permitted provided that the following conditions 14 1.1.1.2.4.2 rmind * are met: 15 1.1.1.2.4.2 rmind * 1. Redistributions of source code must retain the above copyright 16 1.1.1.2.4.2 rmind * notice, this list of conditions, and the following disclaimer, 17 1.1.1.2.4.2 rmind * without modification. 18 1.1.1.2.4.2 rmind * 2. Redistributions in binary form must reproduce at minimum a disclaimer 19 1.1.1.2.4.2 rmind * substantially similar to the "NO WARRANTY" disclaimer below 20 1.1.1.2.4.2 rmind * ("Disclaimer") and any redistribution must be conditioned upon 21 1.1.1.2.4.2 rmind * including a substantially similar Disclaimer requirement for further 22 1.1.1.2.4.2 rmind * binary redistribution. 23 1.1.1.2.4.2 rmind * 3. Neither the names of the above-listed copyright holders nor the names 24 1.1.1.2.4.2 rmind * of any contributors may be used to endorse or promote products derived 25 1.1.1.2.4.2 rmind * from this software without specific prior written permission. 26 1.1.1.2.4.2 rmind * 27 1.1.1.2.4.2 rmind * Alternatively, this software may be distributed under the terms of the 28 1.1.1.2.4.2 rmind * GNU General Public License ("GPL") version 2 as published by the Free 29 1.1.1.2.4.2 rmind * Software Foundation. 30 1.1.1.2.4.2 rmind * 31 1.1.1.2.4.2 rmind * NO WARRANTY 32 1.1.1.2.4.2 rmind * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 33 1.1.1.2.4.2 rmind * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 34 1.1.1.2.4.2 rmind * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR 35 1.1.1.2.4.2 rmind * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 36 1.1.1.2.4.2 rmind * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 37 1.1.1.2.4.2 rmind * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 38 1.1.1.2.4.2 rmind * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 39 1.1.1.2.4.2 rmind * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 40 1.1.1.2.4.2 rmind * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 41 1.1.1.2.4.2 rmind * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 42 1.1.1.2.4.2 rmind * POSSIBILITY OF SUCH DAMAGES. 43 1.1.1.2.4.2 rmind */ 44 1.1.1.2.4.2 rmind 45 1.1.1.2.4.2 rmind #include "acpisrc.h" 46 1.1.1.2.4.2 rmind 47 1.1.1.2.4.2 rmind /* Local prototypes */ 48 1.1.1.2.4.2 rmind 49 1.1.1.2.4.2 rmind void 50 1.1.1.2.4.2 rmind AsUppercaseTokens ( 51 1.1.1.2.4.2 rmind char *Buffer, 52 1.1.1.2.4.2 rmind char *PrefixString); 53 1.1.1.2.4.2 rmind 54 1.1.1.2.4.2 rmind 55 1.1.1.2.4.2 rmind /****************************************************************************** 56 1.1.1.2.4.2 rmind * 57 1.1.1.2.4.2 rmind * FUNCTION: AsLowerCaseString 58 1.1.1.2.4.2 rmind * 59 1.1.1.2.4.2 rmind * DESCRIPTION: LowerCase all instances of a target string with a replacement 60 1.1.1.2.4.2 rmind * string. Returns count of the strings replaced. 61 1.1.1.2.4.2 rmind * 62 1.1.1.2.4.2 rmind ******************************************************************************/ 63 1.1.1.2.4.2 rmind 64 1.1.1.2.4.2 rmind int 65 1.1.1.2.4.2 rmind AsLowerCaseString ( 66 1.1.1.2.4.2 rmind char *Target, 67 1.1.1.2.4.2 rmind char *Buffer) 68 1.1.1.2.4.2 rmind { 69 1.1.1.2.4.2 rmind char *SubString1; 70 1.1.1.2.4.2 rmind char *SubString2; 71 1.1.1.2.4.2 rmind char *SubBuffer; 72 1.1.1.2.4.2 rmind int TargetLength; 73 1.1.1.2.4.2 rmind int LowerCaseCount = 0; 74 1.1.1.2.4.2 rmind int i; 75 1.1.1.2.4.2 rmind 76 1.1.1.2.4.2 rmind 77 1.1.1.2.4.2 rmind TargetLength = strlen (Target); 78 1.1.1.2.4.2 rmind 79 1.1.1.2.4.2 rmind SubBuffer = Buffer; 80 1.1.1.2.4.2 rmind SubString1 = Buffer; 81 1.1.1.2.4.2 rmind 82 1.1.1.2.4.2 rmind while (SubString1) 83 1.1.1.2.4.2 rmind { 84 1.1.1.2.4.2 rmind /* Find the target string */ 85 1.1.1.2.4.2 rmind 86 1.1.1.2.4.2 rmind SubString1 = strstr (SubBuffer, Target); 87 1.1.1.2.4.2 rmind if (!SubString1) 88 1.1.1.2.4.2 rmind { 89 1.1.1.2.4.2 rmind return LowerCaseCount; 90 1.1.1.2.4.2 rmind } 91 1.1.1.2.4.2 rmind 92 1.1.1.2.4.2 rmind /* 93 1.1.1.2.4.2 rmind * Check for translation escape string -- means to ignore 94 1.1.1.2.4.2 rmind * blocks of code while replacing 95 1.1.1.2.4.2 rmind */ 96 1.1.1.2.4.2 rmind SubString2 = strstr (SubBuffer, AS_START_IGNORE); 97 1.1.1.2.4.2 rmind 98 1.1.1.2.4.2 rmind if ((SubString2) && 99 1.1.1.2.4.2 rmind (SubString2 < SubString1)) 100 1.1.1.2.4.2 rmind { 101 1.1.1.2.4.2 rmind /* Find end of the escape block starting at "Substring2" */ 102 1.1.1.2.4.2 rmind 103 1.1.1.2.4.2 rmind SubString2 = strstr (SubString2, AS_STOP_IGNORE); 104 1.1.1.2.4.2 rmind if (!SubString2) 105 1.1.1.2.4.2 rmind { 106 1.1.1.2.4.2 rmind /* Didn't find terminator */ 107 1.1.1.2.4.2 rmind 108 1.1.1.2.4.2 rmind return LowerCaseCount; 109 1.1.1.2.4.2 rmind } 110 1.1.1.2.4.2 rmind 111 1.1.1.2.4.2 rmind /* Move buffer to end of escape block and continue */ 112 1.1.1.2.4.2 rmind 113 1.1.1.2.4.2 rmind SubBuffer = SubString2; 114 1.1.1.2.4.2 rmind } 115 1.1.1.2.4.2 rmind 116 1.1.1.2.4.2 rmind /* Do the actual replace if the target was found */ 117 1.1.1.2.4.2 rmind 118 1.1.1.2.4.2 rmind else 119 1.1.1.2.4.2 rmind { 120 1.1.1.2.4.2 rmind if (!AsMatchExactWord (SubString1, TargetLength)) 121 1.1.1.2.4.2 rmind { 122 1.1.1.2.4.2 rmind SubBuffer = SubString1 + 1; 123 1.1.1.2.4.2 rmind continue; 124 1.1.1.2.4.2 rmind } 125 1.1.1.2.4.2 rmind 126 1.1.1.2.4.2 rmind for (i = 0; i < TargetLength; i++) 127 1.1.1.2.4.2 rmind { 128 1.1.1.2.4.2 rmind SubString1[i] = (char) tolower ((int) SubString1[i]); 129 1.1.1.2.4.2 rmind } 130 1.1.1.2.4.2 rmind 131 1.1.1.2.4.2 rmind SubBuffer = SubString1 + TargetLength; 132 1.1.1.2.4.2 rmind 133 1.1.1.2.4.2 rmind if ((Gbl_WidenDeclarations) && (!Gbl_StructDefs)) 134 1.1.1.2.4.2 rmind { 135 1.1.1.2.4.2 rmind if ((SubBuffer[0] == ' ') && (SubBuffer[1] == ' ')) 136 1.1.1.2.4.2 rmind { 137 1.1.1.2.4.2 rmind AsInsertData (SubBuffer, " ", 8); 138 1.1.1.2.4.2 rmind } 139 1.1.1.2.4.2 rmind } 140 1.1.1.2.4.2 rmind 141 1.1.1.2.4.2 rmind LowerCaseCount++; 142 1.1.1.2.4.2 rmind } 143 1.1.1.2.4.2 rmind } 144 1.1.1.2.4.2 rmind 145 1.1.1.2.4.2 rmind return LowerCaseCount; 146 1.1.1.2.4.2 rmind } 147 1.1.1.2.4.2 rmind 148 1.1.1.2.4.2 rmind 149 1.1.1.2.4.2 rmind /****************************************************************************** 150 1.1.1.2.4.2 rmind * 151 1.1.1.2.4.2 rmind * FUNCTION: AsMixedCaseToUnderscores 152 1.1.1.2.4.2 rmind * 153 1.1.1.2.4.2 rmind * DESCRIPTION: Converts mixed case identifiers to underscored identifiers. 154 1.1.1.2.4.2 rmind * for example, 155 1.1.1.2.4.2 rmind * 156 1.1.1.2.4.2 rmind * ThisUsefullyNamedIdentifier becomes: 157 1.1.1.2.4.2 rmind * 158 1.1.1.2.4.2 rmind * this_usefully_named_identifier 159 1.1.1.2.4.2 rmind * 160 1.1.1.2.4.2 rmind ******************************************************************************/ 161 1.1.1.2.4.2 rmind 162 1.1.1.2.4.2 rmind void 163 1.1.1.2.4.2 rmind AsMixedCaseToUnderscores ( 164 1.1.1.2.4.2 rmind char *Buffer) 165 1.1.1.2.4.2 rmind { 166 1.1.1.2.4.2 rmind UINT32 Length; 167 1.1.1.2.4.2 rmind char *SubBuffer = Buffer; 168 1.1.1.2.4.2 rmind char *TokenEnd; 169 1.1.1.2.4.2 rmind char *TokenStart = NULL; 170 1.1.1.2.4.2 rmind char *SubString; 171 1.1.1.2.4.2 rmind BOOLEAN HasLowerCase = FALSE; 172 1.1.1.2.4.2 rmind 173 1.1.1.2.4.2 rmind 174 1.1.1.2.4.2 rmind while (*SubBuffer) 175 1.1.1.2.4.2 rmind { 176 1.1.1.2.4.2 rmind /* Ignore whitespace */ 177 1.1.1.2.4.2 rmind 178 1.1.1.2.4.2 rmind if (*SubBuffer == ' ') 179 1.1.1.2.4.2 rmind { 180 1.1.1.2.4.2 rmind while (*SubBuffer == ' ') 181 1.1.1.2.4.2 rmind { 182 1.1.1.2.4.2 rmind SubBuffer++; 183 1.1.1.2.4.2 rmind } 184 1.1.1.2.4.2 rmind TokenStart = NULL; 185 1.1.1.2.4.2 rmind HasLowerCase = FALSE; 186 1.1.1.2.4.2 rmind continue; 187 1.1.1.2.4.2 rmind } 188 1.1.1.2.4.2 rmind 189 1.1.1.2.4.2 rmind /* Ignore commas */ 190 1.1.1.2.4.2 rmind 191 1.1.1.2.4.2 rmind if ((*SubBuffer == ',') || 192 1.1.1.2.4.2 rmind (*SubBuffer == '>') || 193 1.1.1.2.4.2 rmind (*SubBuffer == ')')) 194 1.1.1.2.4.2 rmind { 195 1.1.1.2.4.2 rmind SubBuffer++; 196 1.1.1.2.4.2 rmind TokenStart = NULL; 197 1.1.1.2.4.2 rmind HasLowerCase = FALSE; 198 1.1.1.2.4.2 rmind continue; 199 1.1.1.2.4.2 rmind } 200 1.1.1.2.4.2 rmind 201 1.1.1.2.4.2 rmind /* Check for quoted string -- ignore */ 202 1.1.1.2.4.2 rmind 203 1.1.1.2.4.2 rmind if (*SubBuffer == '"') 204 1.1.1.2.4.2 rmind { 205 1.1.1.2.4.2 rmind SubBuffer++; 206 1.1.1.2.4.2 rmind while (*SubBuffer != '"') 207 1.1.1.2.4.2 rmind { 208 1.1.1.2.4.2 rmind if (!*SubBuffer) 209 1.1.1.2.4.2 rmind { 210 1.1.1.2.4.2 rmind return; 211 1.1.1.2.4.2 rmind } 212 1.1.1.2.4.2 rmind 213 1.1.1.2.4.2 rmind /* Handle embedded escape sequences */ 214 1.1.1.2.4.2 rmind 215 1.1.1.2.4.2 rmind if (*SubBuffer == '\\') 216 1.1.1.2.4.2 rmind { 217 1.1.1.2.4.2 rmind SubBuffer++; 218 1.1.1.2.4.2 rmind } 219 1.1.1.2.4.2 rmind SubBuffer++; 220 1.1.1.2.4.2 rmind } 221 1.1.1.2.4.2 rmind SubBuffer++; 222 1.1.1.2.4.2 rmind continue; 223 1.1.1.2.4.2 rmind } 224 1.1.1.2.4.2 rmind 225 1.1.1.2.4.2 rmind if (islower ((int) *SubBuffer)) 226 1.1.1.2.4.2 rmind { 227 1.1.1.2.4.2 rmind HasLowerCase = TRUE; 228 1.1.1.2.4.2 rmind } 229 1.1.1.2.4.2 rmind 230 1.1.1.2.4.2 rmind /* 231 1.1.1.2.4.2 rmind * Check for translation escape string -- means to ignore 232 1.1.1.2.4.2 rmind * blocks of code while replacing 233 1.1.1.2.4.2 rmind */ 234 1.1.1.2.4.2 rmind if ((SubBuffer[0] == '/') && 235 1.1.1.2.4.2 rmind (SubBuffer[1] == '*') && 236 1.1.1.2.4.2 rmind (SubBuffer[2] == '!')) 237 1.1.1.2.4.2 rmind { 238 1.1.1.2.4.2 rmind SubBuffer = strstr (SubBuffer, "!*/"); 239 1.1.1.2.4.2 rmind if (!SubBuffer) 240 1.1.1.2.4.2 rmind { 241 1.1.1.2.4.2 rmind return; 242 1.1.1.2.4.2 rmind } 243 1.1.1.2.4.2 rmind continue; 244 1.1.1.2.4.2 rmind } 245 1.1.1.2.4.2 rmind 246 1.1.1.2.4.2 rmind /* Ignore hex constants */ 247 1.1.1.2.4.2 rmind 248 1.1.1.2.4.2 rmind if (SubBuffer[0] == '0') 249 1.1.1.2.4.2 rmind { 250 1.1.1.2.4.2 rmind if ((SubBuffer[1] == 'x') || 251 1.1.1.2.4.2 rmind (SubBuffer[1] == 'X')) 252 1.1.1.2.4.2 rmind { 253 1.1.1.2.4.2 rmind SubBuffer += 2; 254 1.1.1.2.4.2 rmind while (isxdigit ((int) *SubBuffer)) 255 1.1.1.2.4.2 rmind { 256 1.1.1.2.4.2 rmind SubBuffer++; 257 1.1.1.2.4.2 rmind } 258 1.1.1.2.4.2 rmind continue; 259 1.1.1.2.4.2 rmind } 260 1.1.1.2.4.2 rmind } 261 1.1.1.2.4.2 rmind 262 1.1.1.2.4.2 rmind /* OBSOLETE CODE, all quoted strings now completely ignored. */ 263 1.1.1.2.4.2 rmind #if 0 264 1.1.1.2.4.2 rmind /* Ignore format specification fields */ 265 1.1.1.2.4.2 rmind 266 1.1.1.2.4.2 rmind if (SubBuffer[0] == '%') 267 1.1.1.2.4.2 rmind { 268 1.1.1.2.4.2 rmind SubBuffer++; 269 1.1.1.2.4.2 rmind 270 1.1.1.2.4.2 rmind while ((isalnum (*SubBuffer)) || (*SubBuffer == '.')) 271 1.1.1.2.4.2 rmind { 272 1.1.1.2.4.2 rmind SubBuffer++; 273 1.1.1.2.4.2 rmind } 274 1.1.1.2.4.2 rmind 275 1.1.1.2.4.2 rmind continue; 276 1.1.1.2.4.2 rmind } 277 1.1.1.2.4.2 rmind #endif 278 1.1.1.2.4.2 rmind 279 1.1.1.2.4.2 rmind /* Ignore standard escape sequences (\n, \r, etc.) Not Hex or Octal escapes */ 280 1.1.1.2.4.2 rmind 281 1.1.1.2.4.2 rmind if (SubBuffer[0] == '\\') 282 1.1.1.2.4.2 rmind { 283 1.1.1.2.4.2 rmind SubBuffer += 2; 284 1.1.1.2.4.2 rmind continue; 285 1.1.1.2.4.2 rmind } 286 1.1.1.2.4.2 rmind 287 1.1.1.2.4.2 rmind /* 288 1.1.1.2.4.2 rmind * Ignore identifiers that already contain embedded underscores 289 1.1.1.2.4.2 rmind * These are typically C macros or defines (all upper case) 290 1.1.1.2.4.2 rmind * Note: there are some cases where identifiers have underscores 291 1.1.1.2.4.2 rmind * AcpiGbl_* for example. HasLowerCase flag handles these. 292 1.1.1.2.4.2 rmind */ 293 1.1.1.2.4.2 rmind if ((*SubBuffer == '_') && (!HasLowerCase) && (TokenStart)) 294 1.1.1.2.4.2 rmind { 295 1.1.1.2.4.2 rmind /* Check the rest of the identifier for any lower case letters */ 296 1.1.1.2.4.2 rmind 297 1.1.1.2.4.2 rmind SubString = SubBuffer; 298 1.1.1.2.4.2 rmind while ((isalnum ((int) *SubString)) || (*SubString == '_')) 299 1.1.1.2.4.2 rmind { 300 1.1.1.2.4.2 rmind if (islower ((int) *SubString)) 301 1.1.1.2.4.2 rmind { 302 1.1.1.2.4.2 rmind HasLowerCase = TRUE; 303 1.1.1.2.4.2 rmind } 304 1.1.1.2.4.2 rmind SubString++; 305 1.1.1.2.4.2 rmind } 306 1.1.1.2.4.2 rmind 307 1.1.1.2.4.2 rmind /* If no lower case letters, we can safely ignore the entire token */ 308 1.1.1.2.4.2 rmind 309 1.1.1.2.4.2 rmind if (!HasLowerCase) 310 1.1.1.2.4.2 rmind { 311 1.1.1.2.4.2 rmind SubBuffer = SubString; 312 1.1.1.2.4.2 rmind continue; 313 1.1.1.2.4.2 rmind } 314 1.1.1.2.4.2 rmind } 315 1.1.1.2.4.2 rmind 316 1.1.1.2.4.2 rmind /* A capital letter may indicate the start of a token; save it */ 317 1.1.1.2.4.2 rmind 318 1.1.1.2.4.2 rmind if (isupper ((int) SubBuffer[0])) 319 1.1.1.2.4.2 rmind { 320 1.1.1.2.4.2 rmind TokenStart = SubBuffer; 321 1.1.1.2.4.2 rmind } 322 1.1.1.2.4.2 rmind 323 1.1.1.2.4.2 rmind /* 324 1.1.1.2.4.2 rmind * Convert each pair of letters that matches the form: 325 1.1.1.2.4.2 rmind * 326 1.1.1.2.4.2 rmind * <LowerCase><UpperCase> 327 1.1.1.2.4.2 rmind * to 328 1.1.1.2.4.2 rmind * <LowerCase><Underscore><LowerCase> 329 1.1.1.2.4.2 rmind */ 330 1.1.1.2.4.2 rmind else if ((islower ((int) SubBuffer[0]) || isdigit ((int) SubBuffer[0])) && 331 1.1.1.2.4.2 rmind (isupper ((int) SubBuffer[1]))) 332 1.1.1.2.4.2 rmind { 333 1.1.1.2.4.2 rmind if (isdigit ((int) SubBuffer[0])) 334 1.1.1.2.4.2 rmind { 335 1.1.1.2.4.2 rmind /* Ignore <UpperCase><Digit><UpperCase> */ 336 1.1.1.2.4.2 rmind /* Ignore <Underscore><Digit><UpperCase> */ 337 1.1.1.2.4.2 rmind 338 1.1.1.2.4.2 rmind if (isupper ((int) *(SubBuffer-1)) || 339 1.1.1.2.4.2 rmind *(SubBuffer-1) == '_') 340 1.1.1.2.4.2 rmind { 341 1.1.1.2.4.2 rmind SubBuffer++; 342 1.1.1.2.4.2 rmind continue; 343 1.1.1.2.4.2 rmind } 344 1.1.1.2.4.2 rmind } 345 1.1.1.2.4.2 rmind 346 1.1.1.2.4.2 rmind /* 347 1.1.1.2.4.2 rmind * Matched the pattern. 348 1.1.1.2.4.2 rmind * Find the end of this identifier (token) 349 1.1.1.2.4.2 rmind */ 350 1.1.1.2.4.2 rmind TokenEnd = SubBuffer; 351 1.1.1.2.4.2 rmind while ((isalnum ((int) *TokenEnd)) || (*TokenEnd == '_')) 352 1.1.1.2.4.2 rmind { 353 1.1.1.2.4.2 rmind TokenEnd++; 354 1.1.1.2.4.2 rmind } 355 1.1.1.2.4.2 rmind 356 1.1.1.2.4.2 rmind /* Force the UpperCase letter (#2) to lower case */ 357 1.1.1.2.4.2 rmind 358 1.1.1.2.4.2 rmind Gbl_MadeChanges = TRUE; 359 1.1.1.2.4.2 rmind SubBuffer[1] = (char) tolower ((int) SubBuffer[1]); 360 1.1.1.2.4.2 rmind 361 1.1.1.2.4.2 rmind SubString = TokenEnd; 362 1.1.1.2.4.2 rmind Length = 0; 363 1.1.1.2.4.2 rmind 364 1.1.1.2.4.2 rmind while (*SubString != '\n') 365 1.1.1.2.4.2 rmind { 366 1.1.1.2.4.2 rmind /* 367 1.1.1.2.4.2 rmind * If we have at least two trailing spaces, we can get rid of 368 1.1.1.2.4.2 rmind * one to make up for the newly inserted underscore. This will 369 1.1.1.2.4.2 rmind * help preserve the alignment of the text 370 1.1.1.2.4.2 rmind */ 371 1.1.1.2.4.2 rmind if ((SubString[0] == ' ') && 372 1.1.1.2.4.2 rmind (SubString[1] == ' ')) 373 1.1.1.2.4.2 rmind { 374 1.1.1.2.4.2 rmind Length = SubString - SubBuffer - 2; 375 1.1.1.2.4.2 rmind break; 376 1.1.1.2.4.2 rmind } 377 1.1.1.2.4.2 rmind 378 1.1.1.2.4.2 rmind SubString++; 379 1.1.1.2.4.2 rmind } 380 1.1.1.2.4.2 rmind 381 1.1.1.2.4.2 rmind if (!Length) 382 1.1.1.2.4.2 rmind { 383 1.1.1.2.4.2 rmind Length = strlen (&SubBuffer[1]); 384 1.1.1.2.4.2 rmind } 385 1.1.1.2.4.2 rmind 386 1.1.1.2.4.2 rmind memmove (&SubBuffer[2], &SubBuffer[1], Length + 1); 387 1.1.1.2.4.2 rmind SubBuffer[1] = '_'; 388 1.1.1.2.4.2 rmind SubBuffer +=2; 389 1.1.1.2.4.2 rmind 390 1.1.1.2.4.2 rmind /* Lower case the leading character of the token */ 391 1.1.1.2.4.2 rmind 392 1.1.1.2.4.2 rmind if (TokenStart) 393 1.1.1.2.4.2 rmind { 394 1.1.1.2.4.2 rmind *TokenStart = (char) tolower ((int) *TokenStart); 395 1.1.1.2.4.2 rmind TokenStart = NULL; 396 1.1.1.2.4.2 rmind } 397 1.1.1.2.4.2 rmind } 398 1.1.1.2.4.2 rmind 399 1.1.1.2.4.2 rmind SubBuffer++; 400 1.1.1.2.4.2 rmind } 401 1.1.1.2.4.2 rmind } 402 1.1.1.2.4.2 rmind 403 1.1.1.2.4.2 rmind 404 1.1.1.2.4.2 rmind /****************************************************************************** 405 1.1.1.2.4.2 rmind * 406 1.1.1.2.4.2 rmind * FUNCTION: AsLowerCaseIdentifiers 407 1.1.1.2.4.2 rmind * 408 1.1.1.2.4.2 rmind * DESCRIPTION: Converts mixed case identifiers to lower case. Leaves comments, 409 1.1.1.2.4.2 rmind * quoted strings, and all-upper-case macros alone. 410 1.1.1.2.4.2 rmind * 411 1.1.1.2.4.2 rmind ******************************************************************************/ 412 1.1.1.2.4.2 rmind 413 1.1.1.2.4.2 rmind void 414 1.1.1.2.4.2 rmind AsLowerCaseIdentifiers ( 415 1.1.1.2.4.2 rmind char *Buffer) 416 1.1.1.2.4.2 rmind { 417 1.1.1.2.4.2 rmind char *SubBuffer = Buffer; 418 1.1.1.2.4.2 rmind 419 1.1.1.2.4.2 rmind 420 1.1.1.2.4.2 rmind while (*SubBuffer) 421 1.1.1.2.4.2 rmind { 422 1.1.1.2.4.2 rmind /* 423 1.1.1.2.4.2 rmind * Check for translation escape string -- means to ignore 424 1.1.1.2.4.2 rmind * blocks of code while replacing 425 1.1.1.2.4.2 rmind */ 426 1.1.1.2.4.2 rmind if ((SubBuffer[0] == '/') && 427 1.1.1.2.4.2 rmind (SubBuffer[1] == '*') && 428 1.1.1.2.4.2 rmind (SubBuffer[2] == '!')) 429 1.1.1.2.4.2 rmind { 430 1.1.1.2.4.2 rmind SubBuffer = strstr (SubBuffer, "!*/"); 431 1.1.1.2.4.2 rmind if (!SubBuffer) 432 1.1.1.2.4.2 rmind { 433 1.1.1.2.4.2 rmind return; 434 1.1.1.2.4.2 rmind } 435 1.1.1.2.4.2 rmind } 436 1.1.1.2.4.2 rmind 437 1.1.1.2.4.2 rmind /* Ignore comments */ 438 1.1.1.2.4.2 rmind 439 1.1.1.2.4.2 rmind if ((SubBuffer[0] == '/') && 440 1.1.1.2.4.2 rmind (SubBuffer[1] == '*')) 441 1.1.1.2.4.2 rmind { 442 1.1.1.2.4.2 rmind SubBuffer = strstr (SubBuffer, "*/"); 443 1.1.1.2.4.2 rmind if (!SubBuffer) 444 1.1.1.2.4.2 rmind { 445 1.1.1.2.4.2 rmind return; 446 1.1.1.2.4.2 rmind } 447 1.1.1.2.4.2 rmind 448 1.1.1.2.4.2 rmind SubBuffer += 2; 449 1.1.1.2.4.2 rmind } 450 1.1.1.2.4.2 rmind 451 1.1.1.2.4.2 rmind /* Ignore quoted strings */ 452 1.1.1.2.4.2 rmind 453 1.1.1.2.4.2 rmind if ((SubBuffer[0] == '\"') && (SubBuffer[1] != '\'')) 454 1.1.1.2.4.2 rmind { 455 1.1.1.2.4.2 rmind SubBuffer++; 456 1.1.1.2.4.2 rmind 457 1.1.1.2.4.2 rmind /* Find the closing quote */ 458 1.1.1.2.4.2 rmind 459 1.1.1.2.4.2 rmind while (SubBuffer[0]) 460 1.1.1.2.4.2 rmind { 461 1.1.1.2.4.2 rmind /* Ignore escaped quote characters */ 462 1.1.1.2.4.2 rmind 463 1.1.1.2.4.2 rmind if (SubBuffer[0] == '\\') 464 1.1.1.2.4.2 rmind { 465 1.1.1.2.4.2 rmind SubBuffer++; 466 1.1.1.2.4.2 rmind } 467 1.1.1.2.4.2 rmind else if (SubBuffer[0] == '\"') 468 1.1.1.2.4.2 rmind { 469 1.1.1.2.4.2 rmind SubBuffer++; 470 1.1.1.2.4.2 rmind break; 471 1.1.1.2.4.2 rmind } 472 1.1.1.2.4.2 rmind SubBuffer++; 473 1.1.1.2.4.2 rmind } 474 1.1.1.2.4.2 rmind } 475 1.1.1.2.4.2 rmind 476 1.1.1.2.4.2 rmind if (!SubBuffer[0]) 477 1.1.1.2.4.2 rmind { 478 1.1.1.2.4.2 rmind return; 479 1.1.1.2.4.2 rmind } 480 1.1.1.2.4.2 rmind 481 1.1.1.2.4.2 rmind /* 482 1.1.1.2.4.2 rmind * Only lower case if we have an upper followed by a lower 483 1.1.1.2.4.2 rmind * This leaves the all-uppercase things (macros, etc.) intact 484 1.1.1.2.4.2 rmind */ 485 1.1.1.2.4.2 rmind if ((isupper ((int) SubBuffer[0])) && 486 1.1.1.2.4.2 rmind (islower ((int) SubBuffer[1]))) 487 1.1.1.2.4.2 rmind { 488 1.1.1.2.4.2 rmind Gbl_MadeChanges = TRUE; 489 1.1.1.2.4.2 rmind *SubBuffer = (char) tolower ((int) *SubBuffer); 490 1.1.1.2.4.2 rmind } 491 1.1.1.2.4.2 rmind 492 1.1.1.2.4.2 rmind SubBuffer++; 493 1.1.1.2.4.2 rmind } 494 1.1.1.2.4.2 rmind } 495 1.1.1.2.4.2 rmind 496 1.1.1.2.4.2 rmind 497 1.1.1.2.4.2 rmind /****************************************************************************** 498 1.1.1.2.4.2 rmind * 499 1.1.1.2.4.2 rmind * FUNCTION: AsUppercaseTokens 500 1.1.1.2.4.2 rmind * 501 1.1.1.2.4.2 rmind * DESCRIPTION: Force to uppercase all tokens that begin with the prefix string. 502 1.1.1.2.4.2 rmind * used to convert mixed-case macros and constants to uppercase. 503 1.1.1.2.4.2 rmind * 504 1.1.1.2.4.2 rmind ******************************************************************************/ 505 1.1.1.2.4.2 rmind 506 1.1.1.2.4.2 rmind void 507 1.1.1.2.4.2 rmind AsUppercaseTokens ( 508 1.1.1.2.4.2 rmind char *Buffer, 509 1.1.1.2.4.2 rmind char *PrefixString) 510 1.1.1.2.4.2 rmind { 511 1.1.1.2.4.2 rmind char *SubBuffer; 512 1.1.1.2.4.2 rmind char *TokenEnd; 513 1.1.1.2.4.2 rmind char *SubString; 514 1.1.1.2.4.2 rmind int i; 515 1.1.1.2.4.2 rmind UINT32 Length; 516 1.1.1.2.4.2 rmind 517 1.1.1.2.4.2 rmind 518 1.1.1.2.4.2 rmind SubBuffer = Buffer; 519 1.1.1.2.4.2 rmind 520 1.1.1.2.4.2 rmind while (SubBuffer) 521 1.1.1.2.4.2 rmind { 522 1.1.1.2.4.2 rmind SubBuffer = strstr (SubBuffer, PrefixString); 523 1.1.1.2.4.2 rmind if (SubBuffer) 524 1.1.1.2.4.2 rmind { 525 1.1.1.2.4.2 rmind TokenEnd = SubBuffer; 526 1.1.1.2.4.2 rmind while ((isalnum ((int) *TokenEnd)) || (*TokenEnd == '_')) 527 1.1.1.2.4.2 rmind { 528 1.1.1.2.4.2 rmind TokenEnd++; 529 1.1.1.2.4.2 rmind } 530 1.1.1.2.4.2 rmind 531 1.1.1.2.4.2 rmind for (i = 0; i < (TokenEnd - SubBuffer); i++) 532 1.1.1.2.4.2 rmind { 533 1.1.1.2.4.2 rmind if ((islower ((int) SubBuffer[i])) && 534 1.1.1.2.4.2 rmind (isupper ((int) SubBuffer[i+1]))) 535 1.1.1.2.4.2 rmind { 536 1.1.1.2.4.2 rmind 537 1.1.1.2.4.2 rmind SubString = TokenEnd; 538 1.1.1.2.4.2 rmind Length = 0; 539 1.1.1.2.4.2 rmind 540 1.1.1.2.4.2 rmind while (*SubString != '\n') 541 1.1.1.2.4.2 rmind { 542 1.1.1.2.4.2 rmind if ((SubString[0] == ' ') && 543 1.1.1.2.4.2 rmind (SubString[1] == ' ')) 544 1.1.1.2.4.2 rmind { 545 1.1.1.2.4.2 rmind Length = SubString - &SubBuffer[i] - 2; 546 1.1.1.2.4.2 rmind break; 547 1.1.1.2.4.2 rmind } 548 1.1.1.2.4.2 rmind 549 1.1.1.2.4.2 rmind SubString++; 550 1.1.1.2.4.2 rmind } 551 1.1.1.2.4.2 rmind 552 1.1.1.2.4.2 rmind if (!Length) 553 1.1.1.2.4.2 rmind { 554 1.1.1.2.4.2 rmind Length = strlen (&SubBuffer[i+1]); 555 1.1.1.2.4.2 rmind } 556 1.1.1.2.4.2 rmind 557 1.1.1.2.4.2 rmind memmove (&SubBuffer[i+2], &SubBuffer[i+1], (Length+1)); 558 1.1.1.2.4.2 rmind SubBuffer[i+1] = '_'; 559 1.1.1.2.4.2 rmind i +=2; 560 1.1.1.2.4.2 rmind TokenEnd++; 561 1.1.1.2.4.2 rmind } 562 1.1.1.2.4.2 rmind } 563 1.1.1.2.4.2 rmind 564 1.1.1.2.4.2 rmind for (i = 0; i < (TokenEnd - SubBuffer); i++) 565 1.1.1.2.4.2 rmind { 566 1.1.1.2.4.2 rmind SubBuffer[i] = (char) toupper ((int) SubBuffer[i]); 567 1.1.1.2.4.2 rmind } 568 1.1.1.2.4.2 rmind 569 1.1.1.2.4.2 rmind SubBuffer = TokenEnd; 570 1.1.1.2.4.2 rmind } 571 1.1.1.2.4.2 rmind } 572 1.1.1.2.4.2 rmind } 573 1.1.1.2.4.2 rmind 574 1.1.1.2.4.2 rmind 575
Indexes created Mon Oct 27 08:10:08 GMT 2025