Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 1 | /*********************************************************** |
Guido van Rossum | 524b588 | 1995-01-04 19:10:35 +0000 | [diff] [blame] | 2 | Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam, |
| 3 | The Netherlands. |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 4 | |
| 5 | All Rights Reserved |
| 6 | |
| 7 | Permission to use, copy, modify, and distribute this software and its |
| 8 | documentation for any purpose and without fee is hereby granted, |
| 9 | provided that the above copyright notice appear in all copies and that |
| 10 | both that copyright notice and this permission notice appear in |
| 11 | supporting documentation, and that the names of Stichting Mathematisch |
| 12 | Centrum or CWI not be used in advertising or publicity pertaining to |
| 13 | distribution of the software without specific, written prior permission. |
| 14 | |
| 15 | STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO |
| 16 | THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND |
| 17 | FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE |
| 18 | FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES |
| 19 | WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN |
| 20 | ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT |
| 21 | OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
| 22 | |
| 23 | ******************************************************************/ |
| 24 | |
| 25 | /* strop module */ |
| 26 | |
| 27 | #include "allobjects.h" |
| 28 | #include "modsupport.h" |
| 29 | |
Guido van Rossum | d05eb8b | 1993-07-08 11:12:36 +0000 | [diff] [blame] | 30 | #include <ctype.h> |
Guido van Rossum | e22e644 | 1993-07-09 10:51:31 +0000 | [diff] [blame] | 31 | /* XXX This file assumes that the <ctype.h> is*() functions |
| 32 | XXX are defined for all 8-bit characters! */ |
Guido van Rossum | d05eb8b | 1993-07-08 11:12:36 +0000 | [diff] [blame] | 33 | |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 34 | #include <errno.h> |
| 35 | |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 36 | /* The lstrip(), rstrip() and strip() functions are implemented |
| 37 | in do_strip(), which uses an additional parameter to indicate what |
| 38 | type of strip should occur. */ |
| 39 | |
| 40 | #define LEFTSTRIP 0 |
| 41 | #define RIGHTSTRIP 1 |
| 42 | #define BOTHSTRIP 2 |
| 43 | |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 44 | |
| 45 | static object * |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 46 | split_whitespace(s, len, maxsplit) |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 47 | char *s; |
Guido van Rossum | 009e79b | 1995-05-03 17:40:23 +0000 | [diff] [blame] | 48 | int len; |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 49 | int maxsplit; |
Guido van Rossum | 009e79b | 1995-05-03 17:40:23 +0000 | [diff] [blame] | 50 | { |
| 51 | int i, j, err; |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 52 | int countsplit; |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 53 | object *list, *item; |
| 54 | |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 55 | list = newlistobject(0); |
| 56 | if (list == NULL) |
| 57 | return NULL; |
| 58 | |
| 59 | i = 0; |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 60 | countsplit = 0; |
| 61 | |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 62 | while (i < len) { |
Guido van Rossum | 7f7f274 | 1995-02-10 17:01:56 +0000 | [diff] [blame] | 63 | while (i < len && isspace(Py_CHARMASK(s[i]))) { |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 64 | i = i+1; |
| 65 | } |
| 66 | j = i; |
Guido van Rossum | ee1813d | 1995-02-14 00:58:59 +0000 | [diff] [blame] | 67 | while (i < len && !isspace(Py_CHARMASK(s[i]))) { |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 68 | i = i+1; |
| 69 | } |
| 70 | if (j < i) { |
| 71 | item = newsizedstringobject(s+j, (int)(i-j)); |
Guido van Rossum | 572d2d9 | 1993-11-05 10:14:49 +0000 | [diff] [blame] | 72 | if (item == NULL) { |
| 73 | DECREF(list); |
| 74 | return NULL; |
| 75 | } |
| 76 | err = addlistitem(list, item); |
| 77 | DECREF(item); |
| 78 | if (err < 0) { |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 79 | DECREF(list); |
| 80 | return NULL; |
| 81 | } |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 82 | |
| 83 | countsplit++; |
| 84 | if (maxsplit && (countsplit >= maxsplit)) { |
| 85 | item = newsizedstringobject(s+i, (int)(len - i)); |
| 86 | if (item == NULL) { |
| 87 | DECREF(list); |
| 88 | return NULL; |
| 89 | } |
| 90 | err = addlistitem(list, item); |
| 91 | DECREF(item); |
| 92 | if (err < 0) { |
| 93 | DECREF(list); |
| 94 | return NULL; |
| 95 | } |
| 96 | i = len; |
| 97 | } |
| 98 | |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 99 | } |
| 100 | } |
| 101 | |
| 102 | return list; |
| 103 | } |
| 104 | |
| 105 | |
| 106 | static object * |
| 107 | strop_splitfields(self, args) |
| 108 | object *self; /* Not used */ |
| 109 | object *args; |
| 110 | { |
Guido van Rossum | 572d2d9 | 1993-11-05 10:14:49 +0000 | [diff] [blame] | 111 | int len, n, i, j, err; |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 112 | int splitcount, maxsplit; |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 113 | char *s, *sub; |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 114 | object *list, *item; |
| 115 | |
Guido van Rossum | 009e79b | 1995-05-03 17:40:23 +0000 | [diff] [blame] | 116 | sub = NULL; |
| 117 | n = 0; |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 118 | splitcount = 0; |
| 119 | maxsplit = 0; |
| 120 | if (!newgetargs(args, "s#|z#i", &s, &len, &sub, &n, &maxsplit)) |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 121 | return NULL; |
Guido van Rossum | 009e79b | 1995-05-03 17:40:23 +0000 | [diff] [blame] | 122 | if (sub == NULL) |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 123 | return split_whitespace(s, len, maxsplit); |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 124 | if (n == 0) { |
| 125 | err_setstr(ValueError, "empty separator"); |
| 126 | return NULL; |
| 127 | } |
| 128 | |
| 129 | list = newlistobject(0); |
| 130 | if (list == NULL) |
| 131 | return NULL; |
| 132 | |
| 133 | i = j = 0; |
| 134 | while (i+n <= len) { |
| 135 | if (s[i] == sub[0] && (n == 1 || strncmp(s+i, sub, n) == 0)) { |
| 136 | item = newsizedstringobject(s+j, (int)(i-j)); |
Guido van Rossum | 572d2d9 | 1993-11-05 10:14:49 +0000 | [diff] [blame] | 137 | if (item == NULL) |
| 138 | goto fail; |
| 139 | err = addlistitem(list, item); |
| 140 | DECREF(item); |
| 141 | if (err < 0) |
| 142 | goto fail; |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 143 | i = j = i + n; |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 144 | splitcount++; |
| 145 | if (maxsplit && (splitcount >= maxsplit)) |
| 146 | break; |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 147 | } |
| 148 | else |
| 149 | i++; |
| 150 | } |
| 151 | item = newsizedstringobject(s+j, (int)(len-j)); |
Guido van Rossum | 572d2d9 | 1993-11-05 10:14:49 +0000 | [diff] [blame] | 152 | if (item == NULL) |
| 153 | goto fail; |
| 154 | err = addlistitem(list, item); |
| 155 | DECREF(item); |
| 156 | if (err < 0) |
| 157 | goto fail; |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 158 | |
| 159 | return list; |
Guido van Rossum | 572d2d9 | 1993-11-05 10:14:49 +0000 | [diff] [blame] | 160 | |
| 161 | fail: |
| 162 | DECREF(list); |
| 163 | return NULL; |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 164 | } |
| 165 | |
| 166 | |
| 167 | static object * |
Guido van Rossum | c89705d | 1992-11-26 08:54:07 +0000 | [diff] [blame] | 168 | strop_joinfields(self, args) |
| 169 | object *self; /* Not used */ |
| 170 | object *args; |
| 171 | { |
| 172 | object *seq, *item, *res; |
| 173 | object * (*getitem) FPROTO((object *, int)); |
| 174 | char *sep, *p; |
| 175 | int seplen, seqlen, reslen, itemlen, i; |
| 176 | |
Guido van Rossum | 009e79b | 1995-05-03 17:40:23 +0000 | [diff] [blame] | 177 | sep = NULL; |
| 178 | seplen = 0; |
| 179 | if (!newgetargs(args, "O|s#", &seq, &sep, &seplen)) |
Guido van Rossum | c89705d | 1992-11-26 08:54:07 +0000 | [diff] [blame] | 180 | return NULL; |
Guido van Rossum | 009e79b | 1995-05-03 17:40:23 +0000 | [diff] [blame] | 181 | if (sep == NULL) { |
| 182 | sep = " "; |
| 183 | seplen = 1; |
| 184 | } |
Guido van Rossum | c89705d | 1992-11-26 08:54:07 +0000 | [diff] [blame] | 185 | if (is_listobject(seq)) { |
| 186 | getitem = getlistitem; |
| 187 | seqlen = getlistsize(seq); |
| 188 | } |
| 189 | else if (is_tupleobject(seq)) { |
| 190 | getitem = gettupleitem; |
| 191 | seqlen = gettuplesize(seq); |
| 192 | } |
| 193 | else { |
| 194 | err_setstr(TypeError, "first argument must be list/tuple"); |
| 195 | return NULL; |
| 196 | } |
| 197 | reslen = 0; |
| 198 | for (i = 0; i < seqlen; i++) { |
| 199 | item = getitem(seq, i); |
| 200 | if (!is_stringobject(item)) { |
| 201 | err_setstr(TypeError, |
| 202 | "first argument must be list/tuple of strings"); |
| 203 | return NULL; |
| 204 | } |
| 205 | if (i > 0) |
| 206 | reslen = reslen + seplen; |
| 207 | reslen = reslen + getstringsize(item); |
| 208 | } |
| 209 | if (seqlen == 1) { |
| 210 | /* Optimization if there's only one item */ |
| 211 | item = getitem(seq, 0); |
| 212 | INCREF(item); |
| 213 | return item; |
| 214 | } |
| 215 | res = newsizedstringobject((char *)NULL, reslen); |
| 216 | if (res == NULL) |
| 217 | return NULL; |
| 218 | p = getstringvalue(res); |
| 219 | for (i = 0; i < seqlen; i++) { |
| 220 | item = getitem(seq, i); |
| 221 | if (i > 0) { |
| 222 | memcpy(p, sep, seplen); |
| 223 | p += seplen; |
| 224 | } |
| 225 | itemlen = getstringsize(item); |
| 226 | memcpy(p, getstringvalue(item), itemlen); |
| 227 | p += itemlen; |
| 228 | } |
| 229 | if (p != getstringvalue(res) + reslen) { |
| 230 | err_setstr(SystemError, "strop.joinfields: assertion failed"); |
| 231 | return NULL; |
| 232 | } |
| 233 | return res; |
| 234 | } |
| 235 | |
| 236 | |
| 237 | static object * |
Guido van Rossum | 5806a4f | 1994-08-17 13:15:46 +0000 | [diff] [blame] | 238 | strop_find(self, args) |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 239 | object *self; /* Not used */ |
| 240 | object *args; |
| 241 | { |
| 242 | char *s, *sub; |
| 243 | int len, n, i; |
| 244 | |
| 245 | if (getargs(args, "(s#s#i)", &s, &len, &sub, &n, &i)) { |
Guido van Rossum | ee9012f | 1993-10-26 15:23:55 +0000 | [diff] [blame] | 246 | if (i < 0) |
| 247 | i += len; |
Guido van Rossum | 602099a | 1994-09-14 13:32:22 +0000 | [diff] [blame] | 248 | if (i < 0) |
| 249 | i = 0; |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 250 | } |
| 251 | else { |
| 252 | err_clear(); |
| 253 | if (!getargs(args, "(s#s#)", &s, &len, &sub, &n)) |
| 254 | return NULL; |
| 255 | i = 0; |
| 256 | } |
| 257 | |
| 258 | if (n == 0) |
| 259 | return newintobject((long)i); |
| 260 | |
| 261 | len -= n; |
Guido van Rossum | ee9012f | 1993-10-26 15:23:55 +0000 | [diff] [blame] | 262 | for (; i <= len; ++i) |
| 263 | if (s[i] == sub[0] && |
| 264 | (n == 1 || strncmp(&s[i+1], &sub[1], n-1) == 0)) |
| 265 | return newintobject((long)i); |
| 266 | |
Guido van Rossum | 5806a4f | 1994-08-17 13:15:46 +0000 | [diff] [blame] | 267 | return newintobject(-1L); |
Guido van Rossum | ee9012f | 1993-10-26 15:23:55 +0000 | [diff] [blame] | 268 | } |
| 269 | |
| 270 | |
| 271 | static object * |
Guido van Rossum | 5806a4f | 1994-08-17 13:15:46 +0000 | [diff] [blame] | 272 | strop_rfind(self, args) |
Guido van Rossum | ee9012f | 1993-10-26 15:23:55 +0000 | [diff] [blame] | 273 | object *self; /* Not used */ |
| 274 | object *args; |
| 275 | { |
| 276 | char *s, *sub; |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 277 | int len, n, i, j; |
Guido van Rossum | ee9012f | 1993-10-26 15:23:55 +0000 | [diff] [blame] | 278 | |
| 279 | if (getargs(args, "(s#s#i)", &s, &len, &sub, &n, &i)) { |
| 280 | if (i < 0) |
| 281 | i += len; |
Guido van Rossum | 602099a | 1994-09-14 13:32:22 +0000 | [diff] [blame] | 282 | if (i < 0) |
| 283 | i = 0; |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 284 | } |
Guido van Rossum | ee9012f | 1993-10-26 15:23:55 +0000 | [diff] [blame] | 285 | else { |
| 286 | err_clear(); |
| 287 | if (!getargs(args, "(s#s#)", &s, &len, &sub, &n)) |
| 288 | return NULL; |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 289 | i = 0; |
Guido van Rossum | ee9012f | 1993-10-26 15:23:55 +0000 | [diff] [blame] | 290 | } |
| 291 | |
| 292 | if (n == 0) |
Guido van Rossum | c65a525 | 1994-08-05 13:44:50 +0000 | [diff] [blame] | 293 | return newintobject((long)len); |
Guido van Rossum | ee9012f | 1993-10-26 15:23:55 +0000 | [diff] [blame] | 294 | |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 295 | for (j = len-n; j >= i; --j) |
| 296 | if (s[j] == sub[0] && |
| 297 | (n == 1 || strncmp(&s[j+1], &sub[1], n-1) == 0)) |
| 298 | return newintobject((long)j); |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 299 | |
Guido van Rossum | 5806a4f | 1994-08-17 13:15:46 +0000 | [diff] [blame] | 300 | return newintobject(-1L); |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 301 | } |
| 302 | |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 303 | static object * |
| 304 | do_strip(args, striptype) |
| 305 | object *args; |
| 306 | int striptype; |
| 307 | { |
| 308 | char *s; |
| 309 | int len, i, j; |
| 310 | |
| 311 | |
| 312 | if (!getargs(args, "s#", &s, &len)) |
| 313 | return NULL; |
| 314 | |
| 315 | i = 0; |
| 316 | if (striptype != RIGHTSTRIP) { |
| 317 | while (i < len && isspace(Py_CHARMASK(s[i]))) { |
| 318 | i++; |
| 319 | } |
| 320 | } |
| 321 | |
| 322 | |
| 323 | j = len; |
| 324 | if (striptype != LEFTSTRIP) { |
| 325 | do { |
| 326 | j--; |
| 327 | } while (j >= i && isspace(Py_CHARMASK(s[j]))); |
| 328 | j++; |
| 329 | } |
| 330 | |
| 331 | if (i == 0 && j == len) { |
| 332 | INCREF(args); |
| 333 | return args; |
| 334 | } |
| 335 | else |
| 336 | return newsizedstringobject(s+i, j-i); |
| 337 | } |
| 338 | |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 339 | |
| 340 | static object * |
| 341 | strop_strip(self, args) |
| 342 | object *self; /* Not used */ |
| 343 | object *args; |
| 344 | { |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 345 | return do_strip(args, BOTHSTRIP); |
| 346 | } |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 347 | |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 348 | static object * |
| 349 | strop_lstrip(self, args) |
| 350 | object *self; /* Not used */ |
| 351 | object *args; |
| 352 | { |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 353 | return do_strip(args, LEFTSTRIP); |
| 354 | } |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 355 | |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 356 | static object * |
| 357 | strop_rstrip(self, args) |
| 358 | object *self; /* Not used */ |
| 359 | object *args; |
| 360 | { |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 361 | return do_strip(args, RIGHTSTRIP); |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 362 | } |
| 363 | |
| 364 | |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 365 | static object * |
| 366 | strop_lower(self, args) |
| 367 | object *self; /* Not used */ |
| 368 | object *args; |
| 369 | { |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 370 | char *s, *s_new; |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 371 | int i, n; |
| 372 | object *new; |
| 373 | int changed; |
| 374 | |
| 375 | if (!getargs(args, "s#", &s, &n)) |
| 376 | return NULL; |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 377 | new = newsizedstringobject(NULL, n); |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 378 | if (new == NULL) |
| 379 | return NULL; |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 380 | s_new = getstringvalue(new); |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 381 | changed = 0; |
| 382 | for (i = 0; i < n; i++) { |
Guido van Rossum | 7f7f274 | 1995-02-10 17:01:56 +0000 | [diff] [blame] | 383 | int c = Py_CHARMASK(*s++); |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 384 | if (isupper(c)) { |
| 385 | changed = 1; |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 386 | *s_new = tolower(c); |
| 387 | } else |
| 388 | *s_new = c; |
| 389 | s_new++; |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 390 | } |
| 391 | if (!changed) { |
| 392 | DECREF(new); |
| 393 | INCREF(args); |
| 394 | return args; |
| 395 | } |
| 396 | return new; |
| 397 | } |
| 398 | |
| 399 | |
| 400 | static object * |
| 401 | strop_upper(self, args) |
| 402 | object *self; /* Not used */ |
| 403 | object *args; |
| 404 | { |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 405 | char *s, *s_new; |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 406 | int i, n; |
| 407 | object *new; |
| 408 | int changed; |
| 409 | |
| 410 | if (!getargs(args, "s#", &s, &n)) |
| 411 | return NULL; |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 412 | new = newsizedstringobject(NULL, n); |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 413 | if (new == NULL) |
| 414 | return NULL; |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 415 | s_new = getstringvalue(new); |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 416 | changed = 0; |
| 417 | for (i = 0; i < n; i++) { |
Guido van Rossum | 7f7f274 | 1995-02-10 17:01:56 +0000 | [diff] [blame] | 418 | int c = Py_CHARMASK(*s++); |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 419 | if (islower(c)) { |
| 420 | changed = 1; |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 421 | *s_new = toupper(c); |
| 422 | } else |
| 423 | *s_new = c; |
| 424 | s_new++; |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 425 | } |
| 426 | if (!changed) { |
| 427 | DECREF(new); |
| 428 | INCREF(args); |
| 429 | return args; |
| 430 | } |
| 431 | return new; |
| 432 | } |
| 433 | |
| 434 | |
| 435 | static object * |
Guido van Rossum | 2745753 | 1996-06-12 04:24:52 +0000 | [diff] [blame] | 436 | strop_capitalize(self, args) |
| 437 | object *self; /* Not used */ |
| 438 | object *args; |
| 439 | { |
| 440 | char *s, *s_new; |
| 441 | int i, n; |
| 442 | object *new; |
| 443 | int changed; |
| 444 | |
| 445 | if (!getargs(args, "s#", &s, &n)) |
| 446 | return NULL; |
| 447 | new = newsizedstringobject(NULL, n); |
| 448 | if (new == NULL) |
| 449 | return NULL; |
| 450 | s_new = getstringvalue(new); |
| 451 | changed = 0; |
Guido van Rossum | 529c963 | 1996-06-17 16:59:33 +0000 | [diff] [blame] | 452 | if (0 < n) { |
Guido van Rossum | 2745753 | 1996-06-12 04:24:52 +0000 | [diff] [blame] | 453 | int c = Py_CHARMASK(*s++); |
| 454 | if (islower(c)) { |
| 455 | changed = 1; |
| 456 | *s_new = toupper(c); |
| 457 | } else |
| 458 | *s_new = c; |
| 459 | s_new++; |
| 460 | } |
| 461 | for (i = 1; i < n; i++) { |
| 462 | int c = Py_CHARMASK(*s++); |
| 463 | if (isupper(c)) { |
| 464 | changed = 1; |
| 465 | *s_new = tolower(c); |
| 466 | } else |
| 467 | *s_new = c; |
| 468 | s_new++; |
| 469 | } |
| 470 | if (!changed) { |
| 471 | DECREF(new); |
| 472 | INCREF(args); |
| 473 | return args; |
| 474 | } |
| 475 | return new; |
| 476 | } |
| 477 | |
| 478 | |
| 479 | static object * |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 480 | strop_swapcase(self, args) |
| 481 | object *self; /* Not used */ |
| 482 | object *args; |
| 483 | { |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 484 | char *s, *s_new; |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 485 | int i, n; |
| 486 | object *new; |
| 487 | int changed; |
| 488 | |
| 489 | if (!getargs(args, "s#", &s, &n)) |
| 490 | return NULL; |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 491 | new = newsizedstringobject(NULL, n); |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 492 | if (new == NULL) |
| 493 | return NULL; |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 494 | s_new = getstringvalue(new); |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 495 | changed = 0; |
| 496 | for (i = 0; i < n; i++) { |
Guido van Rossum | 7f7f274 | 1995-02-10 17:01:56 +0000 | [diff] [blame] | 497 | int c = Py_CHARMASK(*s++); |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 498 | if (islower(c)) { |
| 499 | changed = 1; |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 500 | *s_new = toupper(c); |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 501 | } |
| 502 | else if (isupper(c)) { |
| 503 | changed = 1; |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 504 | *s_new = tolower(c); |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 505 | } |
Sjoerd Mullender | 3bb8a05 | 1993-10-22 12:04:32 +0000 | [diff] [blame] | 506 | else |
| 507 | *s_new = c; |
| 508 | s_new++; |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 509 | } |
| 510 | if (!changed) { |
| 511 | DECREF(new); |
| 512 | INCREF(args); |
| 513 | return args; |
| 514 | } |
| 515 | return new; |
| 516 | } |
| 517 | |
| 518 | |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 519 | static object * |
| 520 | strop_atoi(self, args) |
| 521 | object *self; /* Not used */ |
| 522 | object *args; |
| 523 | { |
| 524 | extern long mystrtol PROTO((const char *, char **, int)); |
| 525 | extern unsigned long mystrtoul PROTO((const char *, char **, int)); |
| 526 | char *s, *end; |
| 527 | int base = 10; |
| 528 | long x; |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 529 | char buffer[256]; /* For errors */ |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 530 | |
| 531 | if (args != NULL && is_tupleobject(args)) { |
| 532 | if (!getargs(args, "(si)", &s, &base)) |
| 533 | return NULL; |
| 534 | if (base != 0 && base < 2 || base > 36) { |
| 535 | err_setstr(ValueError, "invalid base for atoi()"); |
| 536 | return NULL; |
| 537 | } |
| 538 | } |
| 539 | else if (!getargs(args, "s", &s)) |
| 540 | return NULL; |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 541 | while (*s && isspace(Py_CHARMASK(*s))) |
| 542 | s++; |
Guido van Rossum | 171191e | 1996-08-21 20:02:25 +0000 | [diff] [blame] | 543 | if (s[0] == '\0') { |
| 544 | err_setstr(ValueError, "empty string for atoi()"); |
| 545 | return NULL; |
| 546 | } |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 547 | errno = 0; |
| 548 | if (base == 0 && s[0] == '0') |
| 549 | x = (long) mystrtoul(s, &end, base); |
| 550 | else |
| 551 | x = mystrtol(s, &end, base); |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 552 | while (*end && isspace(Py_CHARMASK(*end))) |
| 553 | end++; |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 554 | if (*end != '\0') { |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 555 | sprintf(buffer, "invalid literal for atoi(): %.200s", s); |
| 556 | err_setstr(ValueError, buffer); |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 557 | return NULL; |
| 558 | } |
| 559 | else if (errno != 0) { |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 560 | sprintf(buffer, "atoi() literal too large: %.200s", s); |
| 561 | err_setstr(ValueError, buffer); |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 562 | return NULL; |
| 563 | } |
| 564 | return newintobject(x); |
| 565 | } |
| 566 | |
| 567 | |
| 568 | static object * |
| 569 | strop_atol(self, args) |
| 570 | object *self; /* Not used */ |
| 571 | object *args; |
| 572 | { |
| 573 | char *s, *end; |
| 574 | int base = 10; |
| 575 | object *x; |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 576 | char buffer[256]; /* For errors */ |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 577 | |
| 578 | if (args != NULL && is_tupleobject(args)) { |
| 579 | if (!getargs(args, "(si)", &s, &base)) |
| 580 | return NULL; |
| 581 | if (base != 0 && base < 2 || base > 36) { |
| 582 | err_setstr(ValueError, "invalid base for atol()"); |
| 583 | return NULL; |
| 584 | } |
| 585 | } |
| 586 | else if (!getargs(args, "s", &s)) |
| 587 | return NULL; |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 588 | while (*s && isspace(Py_CHARMASK(*s))) |
| 589 | s++; |
Guido van Rossum | 171191e | 1996-08-21 20:02:25 +0000 | [diff] [blame] | 590 | if (s[0] == '\0') { |
| 591 | err_setstr(ValueError, "empty string for atol()"); |
| 592 | return NULL; |
| 593 | } |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 594 | x = long_escan(s, &end, base); |
| 595 | if (x == NULL) |
| 596 | return NULL; |
| 597 | if (base == 0 && (*end == 'l' || *end == 'L')) |
| 598 | end++; |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 599 | while (*end && isspace(Py_CHARMASK(*end))) |
| 600 | end++; |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 601 | if (*end != '\0') { |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 602 | sprintf(buffer, "invalid literal for atol(): %.200s", s); |
| 603 | err_setstr(ValueError, buffer); |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 604 | DECREF(x); |
| 605 | return NULL; |
| 606 | } |
| 607 | return x; |
| 608 | } |
| 609 | |
| 610 | |
| 611 | static object * |
| 612 | strop_atof(self, args) |
| 613 | object *self; /* Not used */ |
| 614 | object *args; |
| 615 | { |
| 616 | extern double strtod PROTO((const char *, char **)); |
| 617 | char *s, *end; |
| 618 | double x; |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 619 | char buffer[256]; /* For errors */ |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 620 | |
| 621 | if (!getargs(args, "s", &s)) |
| 622 | return NULL; |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 623 | while (*s && isspace(Py_CHARMASK(*s))) |
| 624 | s++; |
Guido van Rossum | 171191e | 1996-08-21 20:02:25 +0000 | [diff] [blame] | 625 | if (s[0] == '\0') { |
| 626 | err_setstr(ValueError, "empty string for atof()"); |
| 627 | return NULL; |
| 628 | } |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 629 | errno = 0; |
| 630 | x = strtod(s, &end); |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 631 | while (*end && isspace(Py_CHARMASK(*end))) |
| 632 | end++; |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 633 | if (*end != '\0') { |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 634 | sprintf(buffer, "invalid literal for atof(): %.200s", s); |
| 635 | err_setstr(ValueError, buffer); |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 636 | return NULL; |
| 637 | } |
| 638 | else if (errno != 0) { |
Guido van Rossum | c35f933 | 1996-09-11 23:30:42 +0000 | [diff] [blame^] | 639 | sprintf(buffer, "atof() literal too large: %.200s", s); |
| 640 | err_setstr(ValueError, buffer); |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 641 | return NULL; |
| 642 | } |
| 643 | return newfloatobject(x); |
| 644 | } |
| 645 | |
| 646 | |
Guido van Rossum | ed7253c | 1996-07-23 18:12:39 +0000 | [diff] [blame] | 647 | static PyObject * |
| 648 | strop_maketrans(self, args) |
| 649 | PyObject *self; /* Not used */ |
| 650 | PyObject *args; |
| 651 | { |
| 652 | unsigned char c[256], *from=NULL, *to=NULL; |
| 653 | int i, fromlen=0, tolen=0; |
| 654 | |
| 655 | if (PyTuple_Size(args)!=0) { |
| 656 | if (!PyArg_ParseTuple(args, "s#s#", &from, &fromlen, |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 657 | &to, &tolen)) |
Guido van Rossum | ed7253c | 1996-07-23 18:12:39 +0000 | [diff] [blame] | 658 | return NULL; |
| 659 | } |
| 660 | |
| 661 | if (fromlen!=tolen) { |
| 662 | PyErr_SetString(ValueError, |
| 663 | "maketrans arguments must have same length"); |
| 664 | return NULL; |
| 665 | } |
| 666 | for(i=0; i<256; i++) |
| 667 | c[i]=(unsigned char)i; |
| 668 | for(i=0; i<fromlen; i++) { |
| 669 | c[from[i]]=to[i]; |
| 670 | } |
| 671 | return PyString_FromStringAndSize((char *)c, 256); |
| 672 | } |
| 673 | |
| 674 | |
Guido van Rossum | a3127e8 | 1995-09-13 17:39:06 +0000 | [diff] [blame] | 675 | static object * |
| 676 | strop_translate(self, args) |
| 677 | object *self; |
| 678 | object *args; |
| 679 | { |
Guido van Rossum | ed7253c | 1996-07-23 18:12:39 +0000 | [diff] [blame] | 680 | char *input, *table, *output, *output_start, *delete=NULL; |
| 681 | int inlen, tablen, dellen; |
| 682 | PyObject *result; |
| 683 | int i, trans_table[256]; |
Guido van Rossum | a3127e8 | 1995-09-13 17:39:06 +0000 | [diff] [blame] | 684 | |
Guido van Rossum | ed7253c | 1996-07-23 18:12:39 +0000 | [diff] [blame] | 685 | if (!PyArg_ParseTuple(args, "s#s#|s#", &input, &inlen, |
| 686 | &table, &tablen, &delete, &dellen)) |
Guido van Rossum | a3127e8 | 1995-09-13 17:39:06 +0000 | [diff] [blame] | 687 | return NULL; |
| 688 | if (tablen != 256) { |
Guido van Rossum | ed7253c | 1996-07-23 18:12:39 +0000 | [diff] [blame] | 689 | PyErr_SetString(ValueError, |
Guido van Rossum | a3127e8 | 1995-09-13 17:39:06 +0000 | [diff] [blame] | 690 | "translation table must be 256 characters long"); |
| 691 | return NULL; |
| 692 | } |
Guido van Rossum | ed7253c | 1996-07-23 18:12:39 +0000 | [diff] [blame] | 693 | for(i=0; i<256; i++) |
| 694 | trans_table[i]=Py_CHARMASK(table[i]); |
| 695 | if (delete!=NULL) { |
| 696 | for(i=0; i<dellen; i++) |
| 697 | trans_table[delete[i]]=-1; |
| 698 | } |
| 699 | |
| 700 | result = PyString_FromStringAndSize((char *)NULL, inlen); |
Guido van Rossum | a3127e8 | 1995-09-13 17:39:06 +0000 | [diff] [blame] | 701 | if (result == NULL) |
| 702 | return NULL; |
Guido van Rossum | ed7253c | 1996-07-23 18:12:39 +0000 | [diff] [blame] | 703 | output_start = output = PyString_AsString(result); |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 704 | if (delete!=NULL && dellen!=0) { |
Guido van Rossum | ed7253c | 1996-07-23 18:12:39 +0000 | [diff] [blame] | 705 | for (i = 0; i < inlen; i++) { |
| 706 | int c = Py_CHARMASK(*input++); |
| 707 | if (trans_table[c]!=-1) |
| 708 | *output++ = (char)trans_table[c]; |
| 709 | } |
| 710 | /* Fix the size of the resulting string */ |
| 711 | if (inlen > 0 &&_PyString_Resize(&result, output-output_start)) |
| 712 | return NULL; |
| 713 | } else { |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 714 | /* If no deletions are required, use a faster loop */ |
Guido van Rossum | ed7253c | 1996-07-23 18:12:39 +0000 | [diff] [blame] | 715 | for (i = 0; i < inlen; i++) { |
| 716 | int c = Py_CHARMASK(*input++); |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 717 | *output++ = (char)trans_table[c]; |
| 718 | } |
Guido van Rossum | a3127e8 | 1995-09-13 17:39:06 +0000 | [diff] [blame] | 719 | } |
| 720 | return result; |
| 721 | } |
| 722 | |
| 723 | |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 724 | /* List of functions defined in the module */ |
| 725 | |
| 726 | static struct methodlist strop_methods[] = { |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 727 | {"atof", strop_atof}, |
| 728 | {"atoi", strop_atoi}, |
| 729 | {"atol", strop_atol}, |
Guido van Rossum | 2745753 | 1996-06-12 04:24:52 +0000 | [diff] [blame] | 730 | {"capitalize", strop_capitalize}, |
Guido van Rossum | 5806a4f | 1994-08-17 13:15:46 +0000 | [diff] [blame] | 731 | {"find", strop_find}, |
Guido van Rossum | 009e79b | 1995-05-03 17:40:23 +0000 | [diff] [blame] | 732 | {"join", strop_joinfields, 1}, |
| 733 | {"joinfields", strop_joinfields, 1}, |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 734 | {"lstrip", strop_lstrip}, |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 735 | {"lower", strop_lower}, |
Guido van Rossum | 5806a4f | 1994-08-17 13:15:46 +0000 | [diff] [blame] | 736 | {"rfind", strop_rfind}, |
Guido van Rossum | 7999a5c | 1996-08-08 19:16:15 +0000 | [diff] [blame] | 737 | {"rstrip", strop_rstrip}, |
Guido van Rossum | 009e79b | 1995-05-03 17:40:23 +0000 | [diff] [blame] | 738 | {"split", strop_splitfields, 1}, |
| 739 | {"splitfields", strop_splitfields, 1}, |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 740 | {"strip", strop_strip}, |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 741 | {"swapcase", strop_swapcase}, |
Guido van Rossum | ed7253c | 1996-07-23 18:12:39 +0000 | [diff] [blame] | 742 | {"maketrans", strop_maketrans, 1}, |
Guido van Rossum | a3127e8 | 1995-09-13 17:39:06 +0000 | [diff] [blame] | 743 | {"translate", strop_translate, 1}, |
Guido van Rossum | 5c85062 | 1992-09-11 23:55:51 +0000 | [diff] [blame] | 744 | {"upper", strop_upper}, |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 745 | {NULL, NULL} /* sentinel */ |
| 746 | }; |
| 747 | |
| 748 | |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 749 | void |
| 750 | initstrop() |
| 751 | { |
Guido van Rossum | d05eb8b | 1993-07-08 11:12:36 +0000 | [diff] [blame] | 752 | object *m, *d, *s; |
| 753 | char buf[256]; |
| 754 | int c, n; |
| 755 | m = initmodule("strop", strop_methods); |
| 756 | d = getmoduledict(m); |
Guido van Rossum | e22e644 | 1993-07-09 10:51:31 +0000 | [diff] [blame] | 757 | |
| 758 | /* Create 'whitespace' object */ |
Guido van Rossum | d05eb8b | 1993-07-08 11:12:36 +0000 | [diff] [blame] | 759 | n = 0; |
Guido van Rossum | 7f7f274 | 1995-02-10 17:01:56 +0000 | [diff] [blame] | 760 | for (c = 0; c < 256; c++) { |
Guido van Rossum | d05eb8b | 1993-07-08 11:12:36 +0000 | [diff] [blame] | 761 | if (isspace(c)) |
| 762 | buf[n++] = c; |
| 763 | } |
Sjoerd Mullender | d96ec44 | 1993-09-14 08:37:39 +0000 | [diff] [blame] | 764 | s = newsizedstringobject(buf, n); |
Guido van Rossum | e22e644 | 1993-07-09 10:51:31 +0000 | [diff] [blame] | 765 | if (s) { |
Guido van Rossum | e22e644 | 1993-07-09 10:51:31 +0000 | [diff] [blame] | 766 | dictinsert(d, "whitespace", s); |
| 767 | DECREF(s); |
| 768 | } |
| 769 | /* Create 'lowercase' object */ |
| 770 | n = 0; |
Guido van Rossum | 7f7f274 | 1995-02-10 17:01:56 +0000 | [diff] [blame] | 771 | for (c = 0; c < 256; c++) { |
Guido van Rossum | e22e644 | 1993-07-09 10:51:31 +0000 | [diff] [blame] | 772 | if (islower(c)) |
| 773 | buf[n++] = c; |
| 774 | } |
Guido van Rossum | d05eb8b | 1993-07-08 11:12:36 +0000 | [diff] [blame] | 775 | s = newsizedstringobject(buf, n); |
Guido van Rossum | e22e644 | 1993-07-09 10:51:31 +0000 | [diff] [blame] | 776 | if (s) { |
| 777 | dictinsert(d, "lowercase", s); |
| 778 | DECREF(s); |
| 779 | } |
| 780 | |
| 781 | /* Create 'uppercase' object */ |
| 782 | n = 0; |
Guido van Rossum | 7f7f274 | 1995-02-10 17:01:56 +0000 | [diff] [blame] | 783 | for (c = 0; c < 256; c++) { |
Guido van Rossum | e22e644 | 1993-07-09 10:51:31 +0000 | [diff] [blame] | 784 | if (isupper(c)) |
| 785 | buf[n++] = c; |
| 786 | } |
| 787 | s = newsizedstringobject(buf, n); |
| 788 | if (s) { |
| 789 | dictinsert(d, "uppercase", s); |
| 790 | DECREF(s); |
| 791 | } |
| 792 | |
| 793 | if (err_occurred()) |
| 794 | fatal("can't initialize module strop"); |
Guido van Rossum | e270b43 | 1992-09-03 20:21:07 +0000 | [diff] [blame] | 795 | } |