interp_backslash.c revision 1.2.16.2
1 1.2.16.2 rpaulo /* $NetBSD: interp_backslash.c,v 1.2.16.2 2006/09/09 02:40:39 rpaulo Exp $ */ 2 1.2.16.2 rpaulo 3 1.2.16.2 rpaulo /*- 4 1.2.16.2 rpaulo * Redistribution and use in source and binary forms, with or without 5 1.2.16.2 rpaulo * modification, are permitted provided that the following conditions 6 1.2.16.2 rpaulo * are met: 7 1.2.16.2 rpaulo * 1. Redistributions of source code must retain the above copyright 8 1.2.16.2 rpaulo * notice, this list of conditions and the following disclaimer. 9 1.2.16.2 rpaulo * 2. Redistributions in binary form must reproduce the above copyright 10 1.2.16.2 rpaulo * notice, this list of conditions and the following disclaimer in the 11 1.2.16.2 rpaulo * documentation and/or other materials provided with the distribution. 12 1.2.16.2 rpaulo * 13 1.2.16.2 rpaulo * Jordan K. Hubbard 14 1.2.16.2 rpaulo * 29 August 1998 15 1.2.16.2 rpaulo * 16 1.2.16.2 rpaulo * Routine for doing backslash elimination. 17 1.2.16.2 rpaulo */ 18 1.2.16.2 rpaulo 19 1.2.16.2 rpaulo #include <sys/cdefs.h> 20 1.2.16.2 rpaulo /* __FBSDID("$FreeBSD: src/sys/boot/common/interp_backslash.c,v 1.6 2003/08/25 23:30:41 obrien Exp $"); */ 21 1.2.16.2 rpaulo 22 1.2.16.2 rpaulo #include <lib/libsa/stand.h> 23 1.2.16.2 rpaulo #include <lib/libkern/libkern.h> 24 1.2.16.2 rpaulo 25 1.2.16.2 rpaulo #include "bootstrap.h" 26 1.2.16.2 rpaulo 27 1.2.16.2 rpaulo #define DIGIT(x) (isdigit(x) ? (x) - '0' : islower(x) ? (x) + 10 - 'a' : (x) + 10 - 'A') 28 1.2.16.2 rpaulo 29 1.2.16.2 rpaulo /* 30 1.2.16.2 rpaulo * backslash: Return malloc'd copy of str with all standard "backslash 31 1.2.16.2 rpaulo * processing" done on it. Original can be free'd if desired. 32 1.2.16.2 rpaulo */ 33 1.2.16.2 rpaulo char * 34 1.2.16.2 rpaulo backslash(char *str) 35 1.2.16.2 rpaulo { 36 1.2.16.2 rpaulo /* 37 1.2.16.2 rpaulo * Remove backslashes from the strings. Turn \040 etc. into a single 38 1.2.16.2 rpaulo * character (we allow eight bit values). Currently NUL is not 39 1.2.16.2 rpaulo * allowed. 40 1.2.16.2 rpaulo * 41 1.2.16.2 rpaulo * Turn "\n" and "\t" into '\n' and '\t' characters. Etc. 42 1.2.16.2 rpaulo * 43 1.2.16.2 rpaulo */ 44 1.2.16.2 rpaulo char *new_str; 45 1.2.16.2 rpaulo int seenbs = 0; 46 1.2.16.2 rpaulo int i = 0; 47 1.2.16.2 rpaulo 48 1.2.16.2 rpaulo if ((new_str = strdup(str)) == NULL) 49 1.2.16.2 rpaulo return NULL; 50 1.2.16.2 rpaulo 51 1.2.16.2 rpaulo while (*str) { 52 1.2.16.2 rpaulo if (seenbs) { 53 1.2.16.2 rpaulo seenbs = 0; 54 1.2.16.2 rpaulo switch (*str) { 55 1.2.16.2 rpaulo case '\\': 56 1.2.16.2 rpaulo new_str[i++] = '\\'; 57 1.2.16.2 rpaulo str++; 58 1.2.16.2 rpaulo break; 59 1.2.16.2 rpaulo 60 1.2.16.2 rpaulo /* preserve backslashed quotes, dollar signs */ 61 1.2.16.2 rpaulo case '\'': 62 1.2.16.2 rpaulo case '"': 63 1.2.16.2 rpaulo case '$': 64 1.2.16.2 rpaulo new_str[i++] = '\\'; 65 1.2.16.2 rpaulo new_str[i++] = *str++; 66 1.2.16.2 rpaulo break; 67 1.2.16.2 rpaulo 68 1.2.16.2 rpaulo case 'b': 69 1.2.16.2 rpaulo new_str[i++] = '\b'; 70 1.2.16.2 rpaulo str++; 71 1.2.16.2 rpaulo break; 72 1.2.16.2 rpaulo 73 1.2.16.2 rpaulo case 'f': 74 1.2.16.2 rpaulo new_str[i++] = '\f'; 75 1.2.16.2 rpaulo str++; 76 1.2.16.2 rpaulo break; 77 1.2.16.2 rpaulo 78 1.2.16.2 rpaulo case 'r': 79 1.2.16.2 rpaulo new_str[i++] = '\r'; 80 1.2.16.2 rpaulo str++; 81 1.2.16.2 rpaulo break; 82 1.2.16.2 rpaulo 83 1.2.16.2 rpaulo case 'n': 84 1.2.16.2 rpaulo new_str[i++] = '\n'; 85 1.2.16.2 rpaulo str++; 86 1.2.16.2 rpaulo break; 87 1.2.16.2 rpaulo 88 1.2.16.2 rpaulo case 's': 89 1.2.16.2 rpaulo new_str[i++] = ' '; 90 1.2.16.2 rpaulo str++; 91 1.2.16.2 rpaulo break; 92 1.2.16.2 rpaulo 93 1.2.16.2 rpaulo case 't': 94 1.2.16.2 rpaulo new_str[i++] = '\t'; 95 1.2.16.2 rpaulo str++; 96 1.2.16.2 rpaulo break; 97 1.2.16.2 rpaulo 98 1.2.16.2 rpaulo case 'v': 99 1.2.16.2 rpaulo new_str[i++] = '\13'; 100 1.2.16.2 rpaulo str++; 101 1.2.16.2 rpaulo break; 102 1.2.16.2 rpaulo 103 1.2.16.2 rpaulo case 'z': 104 1.2.16.2 rpaulo str++; 105 1.2.16.2 rpaulo break; 106 1.2.16.2 rpaulo 107 1.2.16.2 rpaulo case '0': case '1': case '2': case '3': case '4': 108 1.2.16.2 rpaulo case '5': case '6': case '7': case '8': case '9': { 109 1.2.16.2 rpaulo char val; 110 1.2.16.2 rpaulo 111 1.2.16.2 rpaulo /* Three digit octal constant? */ 112 1.2.16.2 rpaulo if (*str >= '0' && *str <= '3' && 113 1.2.16.2 rpaulo *(str + 1) >= '0' && *(str + 1) <= '7' && 114 1.2.16.2 rpaulo *(str + 2) >= '0' && *(str + 2) <= '7') { 115 1.2.16.2 rpaulo 116 1.2.16.2 rpaulo val = (DIGIT(*str) << 6) + (DIGIT(*(str + 1)) << 3) + 117 1.2.16.2 rpaulo DIGIT(*(str + 2)); 118 1.2.16.2 rpaulo 119 1.2.16.2 rpaulo /* Allow null value if user really wants to shoot 120 1.2.16.2 rpaulo at feet, but beware! */ 121 1.2.16.2 rpaulo new_str[i++] = val; 122 1.2.16.2 rpaulo str += 3; 123 1.2.16.2 rpaulo break; 124 1.2.16.2 rpaulo } 125 1.2.16.2 rpaulo 126 1.2.16.2 rpaulo /* One or two digit hex constant? 127 1.2.16.2 rpaulo * If two are there they will both be taken. 128 1.2.16.2 rpaulo * Use \z to split them up if this is not wanted. 129 1.2.16.2 rpaulo */ 130 1.2.16.2 rpaulo if (*str == '0' && 131 1.2.16.2 rpaulo (*(str + 1) == 'x' || *(str + 1) == 'X') && 132 1.2.16.2 rpaulo isxdigit(*(str + 2))) { 133 1.2.16.2 rpaulo val = DIGIT(*(str + 2)); 134 1.2.16.2 rpaulo if (isxdigit(*(str + 3))) { 135 1.2.16.2 rpaulo val = (val << 4) + DIGIT(*(str + 3)); 136 1.2.16.2 rpaulo str += 4; 137 1.2.16.2 rpaulo } 138 1.2.16.2 rpaulo else 139 1.2.16.2 rpaulo str += 3; 140 1.2.16.2 rpaulo /* Yep, allow null value here too */ 141 1.2.16.2 rpaulo new_str[i++] = val; 142 1.2.16.2 rpaulo break; 143 1.2.16.2 rpaulo } 144 1.2.16.2 rpaulo } 145 1.2.16.2 rpaulo break; 146 1.2.16.2 rpaulo 147 1.2.16.2 rpaulo default: 148 1.2.16.2 rpaulo new_str[i++] = *str++; 149 1.2.16.2 rpaulo break; 150 1.2.16.2 rpaulo } 151 1.2.16.2 rpaulo } 152 1.2.16.2 rpaulo else { 153 1.2.16.2 rpaulo if (*str == '\\') { 154 1.2.16.2 rpaulo seenbs = 1; 155 1.2.16.2 rpaulo str++; 156 1.2.16.2 rpaulo } 157 1.2.16.2 rpaulo else 158 1.2.16.2 rpaulo new_str[i++] = *str++; 159 1.2.16.2 rpaulo } 160 1.2.16.2 rpaulo } 161 1.2.16.2 rpaulo 162 1.2.16.2 rpaulo if (seenbs) { 163 1.2.16.2 rpaulo /* 164 1.2.16.2 rpaulo * The final character was a '\'. Put it in as a single backslash. 165 1.2.16.2 rpaulo */ 166 1.2.16.2 rpaulo new_str[i++] = '\\'; 167 1.2.16.2 rpaulo } 168 1.2.16.2 rpaulo new_str[i] = '\0'; 169 1.2.16.2 rpaulo return new_str; 170 1.2.16.2 rpaulo } 171
Indexes created Fri Oct 03 02:09:57 GMT 2025