/* | |
Unicode implementation based on original code by Fredrik Lundh, | |
modified by Marc-Andre Lemburg <mal@lemburg.com> according to the | |
Unicode Integration Proposal (see file Misc/unicode.txt). | |
Major speed upgrades to the method implementations at the Reykjavik | |
NeedForSpeed sprint, by Fredrik Lundh and Andrew Dalke. | |
Copyright (c) Corporation for National Research Initiatives. | |
-------------------------------------------------------------------- | |
The original string type implementation is: | |
Copyright (c) 1999 by Secret Labs AB | |
Copyright (c) 1999 by Fredrik Lundh | |
By obtaining, using, and/or copying this software and/or its | |
associated documentation, you agree that you have read, understood, | |
and will comply with the following terms and conditions: | |
Permission to use, copy, modify, and distribute this software and its | |
associated documentation for any purpose and without fee is hereby | |
granted, provided that the above copyright notice appears in all | |
copies, and that both that copyright notice and this permission notice | |
appear in supporting documentation, and that the name of Secret Labs | |
AB or the author not be used in advertising or publicity pertaining to | |
distribution of the software without specific, written prior | |
permission. | |
SECRET LABS AB AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO | |
THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND | |
FITNESS. IN NO EVENT SHALL SECRET LABS AB OR THE AUTHOR BE LIABLE FOR | |
ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | |
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | |
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT | |
OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | |
-------------------------------------------------------------------- | |
*/ | |
#define PY_SSIZE_T_CLEAN | |
#include "Python.h" | |
#include "unicodeobject.h" | |
#include "ucnhash.h" | |
#ifdef MS_WINDOWS | |
#include <windows.h> | |
#endif | |
/* Limit for the Unicode object free list */ | |
#define PyUnicode_MAXFREELIST 1024 | |
/* Limit for the Unicode object free list stay alive optimization. | |
The implementation will keep allocated Unicode memory intact for | |
all objects on the free list having a size less than this | |
limit. This reduces malloc() overhead for small Unicode objects. | |
At worst this will result in PyUnicode_MAXFREELIST * | |
(sizeof(PyUnicodeObject) + KEEPALIVE_SIZE_LIMIT + | |
malloc()-overhead) bytes of unused garbage. | |
Setting the limit to 0 effectively turns the feature off. | |
Note: This is an experimental feature ! If you get core dumps when | |
using Unicode objects, turn this feature off. | |
*/ | |
#define KEEPALIVE_SIZE_LIMIT 9 | |
/* Endianness switches; defaults to little endian */ | |
#ifdef WORDS_BIGENDIAN | |
# define BYTEORDER_IS_BIG_ENDIAN | |
#else | |
# define BYTEORDER_IS_LITTLE_ENDIAN | |
#endif | |
/* --- Globals ------------------------------------------------------------ | |
The globals are initialized by the _PyUnicode_Init() API and should | |
not be used before calling that API. | |
*/ | |
#ifdef __cplusplus | |
extern "C" { | |
#endif | |
/* Free list for Unicode objects */ | |
static PyUnicodeObject *free_list; | |
static int numfree; | |
/* The empty Unicode object is shared to improve performance. */ | |
static PyUnicodeObject *unicode_empty; | |
/* Single character Unicode strings in the Latin-1 range are being | |
shared as well. */ | |
static PyUnicodeObject *unicode_latin1[256]; | |
/* Default encoding to use and assume when NULL is passed as encoding | |
parameter; it is initialized by _PyUnicode_Init(). | |
Always use the PyUnicode_SetDefaultEncoding() and | |
PyUnicode_GetDefaultEncoding() APIs to access this global. | |
*/ | |
static char unicode_default_encoding[100]; | |
/* Fast detection of the most frequent whitespace characters */ | |
const unsigned char _Py_ascii_whitespace[] = { | |
0, 0, 0, 0, 0, 0, 0, 0, | |
/* case 0x0009: * CHARACTER TABULATION */ | |
/* case 0x000A: * LINE FEED */ | |
/* case 0x000B: * LINE TABULATION */ | |
/* case 0x000C: * FORM FEED */ | |
/* case 0x000D: * CARRIAGE RETURN */ | |
0, 1, 1, 1, 1, 1, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
/* case 0x001C: * FILE SEPARATOR */ | |
/* case 0x001D: * GROUP SEPARATOR */ | |
/* case 0x001E: * RECORD SEPARATOR */ | |
/* case 0x001F: * UNIT SEPARATOR */ | |
0, 0, 0, 0, 1, 1, 1, 1, | |
/* case 0x0020: * SPACE */ | |
1, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0 | |
}; | |
/* Same for linebreaks */ | |
static unsigned char ascii_linebreak[] = { | |
0, 0, 0, 0, 0, 0, 0, 0, | |
/* 0x000A, * LINE FEED */ | |
/* 0x000B, * LINE TABULATION */ | |
/* 0x000C, * FORM FEED */ | |
/* 0x000D, * CARRIAGE RETURN */ | |
0, 0, 1, 1, 1, 1, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
/* 0x001C, * FILE SEPARATOR */ | |
/* 0x001D, * GROUP SEPARATOR */ | |
/* 0x001E, * RECORD SEPARATOR */ | |
0, 0, 0, 0, 1, 1, 1, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0 | |
}; | |
Py_UNICODE | |
PyUnicode_GetMax(void) | |
{ | |
#ifdef Py_UNICODE_WIDE | |
return 0x10FFFF; | |
#else | |
/* This is actually an illegal character, so it should | |
not be passed to unichr. */ | |
return 0xFFFF; | |
#endif | |
} | |
/* --- Bloom Filters ----------------------------------------------------- */ | |
/* stuff to implement simple "bloom filters" for Unicode characters. | |
to keep things simple, we use a single bitmask, using the least 5 | |
bits from each unicode characters as the bit index. */ | |
/* the linebreak mask is set up by Unicode_Init below */ | |
#if LONG_BIT >= 128 | |
#define BLOOM_WIDTH 128 | |
#elif LONG_BIT >= 64 | |
#define BLOOM_WIDTH 64 | |
#elif LONG_BIT >= 32 | |
#define BLOOM_WIDTH 32 | |
#else | |
#error "LONG_BIT is smaller than 32" | |
#endif | |
#define BLOOM_MASK unsigned long | |
static BLOOM_MASK bloom_linebreak; | |
#define BLOOM_ADD(mask, ch) ((mask |= (1UL << ((ch) & (BLOOM_WIDTH - 1))))) | |
#define BLOOM(mask, ch) ((mask & (1UL << ((ch) & (BLOOM_WIDTH - 1))))) | |
#define BLOOM_LINEBREAK(ch) \ | |
((ch) < 128U ? ascii_linebreak[(ch)] : \ | |
(BLOOM(bloom_linebreak, (ch)) && Py_UNICODE_ISLINEBREAK(ch))) | |
Py_LOCAL_INLINE(BLOOM_MASK) make_bloom_mask(Py_UNICODE* ptr, Py_ssize_t len) | |
{ | |
/* calculate simple bloom-style bitmask for a given unicode string */ | |
BLOOM_MASK mask; | |
Py_ssize_t i; | |
mask = 0; | |
for (i = 0; i < len; i++) | |
BLOOM_ADD(mask, ptr[i]); | |
return mask; | |
} | |
Py_LOCAL_INLINE(int) unicode_member(Py_UNICODE chr, Py_UNICODE* set, Py_ssize_t setlen) | |
{ | |
Py_ssize_t i; | |
for (i = 0; i < setlen; i++) | |
if (set[i] == chr) | |
return 1; | |
return 0; | |
} | |
#define BLOOM_MEMBER(mask, chr, set, setlen) \ | |
BLOOM(mask, chr) && unicode_member(chr, set, setlen) | |
/* --- Unicode Object ----------------------------------------------------- */ | |
static | |
int unicode_resize(register PyUnicodeObject *unicode, | |
Py_ssize_t length) | |
{ | |
void *oldstr; | |
/* Shortcut if there's nothing much to do. */ | |
if (unicode->length == length) | |
goto reset; | |
/* Resizing shared object (unicode_empty or single character | |
objects) in-place is not allowed. Use PyUnicode_Resize() | |
instead ! */ | |
if (unicode == unicode_empty || | |
(unicode->length == 1 && | |
unicode->str[0] < 256U && | |
unicode_latin1[unicode->str[0]] == unicode)) { | |
PyErr_SetString(PyExc_SystemError, | |
"can't resize shared unicode objects"); | |
return -1; | |
} | |
/* We allocate one more byte to make sure the string is Ux0000 terminated. | |
The overallocation is also used by fastsearch, which assumes that it's | |
safe to look at str[length] (without making any assumptions about what | |
it contains). */ | |
oldstr = unicode->str; | |
unicode->str = PyObject_REALLOC(unicode->str, | |
sizeof(Py_UNICODE) * (length + 1)); | |
if (!unicode->str) { | |
unicode->str = (Py_UNICODE *)oldstr; | |
PyErr_NoMemory(); | |
return -1; | |
} | |
unicode->str[length] = 0; | |
unicode->length = length; | |
reset: | |
/* Reset the object caches */ | |
if (unicode->defenc) { | |
Py_CLEAR(unicode->defenc); | |
} | |
unicode->hash = -1; | |
return 0; | |
} | |
/* We allocate one more byte to make sure the string is | |
Ux0000 terminated; some code relies on that. | |
XXX This allocator could further be enhanced by assuring that the | |
free list never reduces its size below 1. | |
*/ | |
static | |
PyUnicodeObject *_PyUnicode_New(Py_ssize_t length) | |
{ | |
register PyUnicodeObject *unicode; | |
/* Optimization for empty strings */ | |
if (length == 0 && unicode_empty != NULL) { | |
Py_INCREF(unicode_empty); | |
return unicode_empty; | |
} | |
/* Ensure we won't overflow the size. */ | |
if (length > ((PY_SSIZE_T_MAX / sizeof(Py_UNICODE)) - 1)) { | |
return (PyUnicodeObject *)PyErr_NoMemory(); | |
} | |
/* Unicode freelist & memory allocation */ | |
if (free_list) { | |
unicode = free_list; | |
free_list = *(PyUnicodeObject **)unicode; | |
numfree--; | |
if (unicode->str) { | |
/* Keep-Alive optimization: we only upsize the buffer, | |
never downsize it. */ | |
if ((unicode->length < length) && | |
unicode_resize(unicode, length) < 0) { | |
PyObject_DEL(unicode->str); | |
unicode->str = NULL; | |
} | |
} | |
else { | |
size_t new_size = sizeof(Py_UNICODE) * ((size_t)length + 1); | |
unicode->str = (Py_UNICODE*) PyObject_MALLOC(new_size); | |
} | |
PyObject_INIT(unicode, &PyUnicode_Type); | |
} | |
else { | |
size_t new_size; | |
unicode = PyObject_New(PyUnicodeObject, &PyUnicode_Type); | |
if (unicode == NULL) | |
return NULL; | |
new_size = sizeof(Py_UNICODE) * ((size_t)length + 1); | |
unicode->str = (Py_UNICODE*) PyObject_MALLOC(new_size); | |
} | |
if (!unicode->str) { | |
PyErr_NoMemory(); | |
goto onError; | |
} | |
/* Initialize the first element to guard against cases where | |
* the caller fails before initializing str -- unicode_resize() | |
* reads str[0], and the Keep-Alive optimization can keep memory | |
* allocated for str alive across a call to unicode_dealloc(unicode). | |
* We don't want unicode_resize to read uninitialized memory in | |
* that case. | |
*/ | |
unicode->str[0] = 0; | |
unicode->str[length] = 0; | |
unicode->length = length; | |
unicode->hash = -1; | |
unicode->defenc = NULL; | |
return unicode; | |
onError: | |
/* XXX UNREF/NEWREF interface should be more symmetrical */ | |
_Py_DEC_REFTOTAL; | |
_Py_ForgetReference((PyObject *)unicode); | |
PyObject_Del(unicode); | |
return NULL; | |
} | |
static | |
void unicode_dealloc(register PyUnicodeObject *unicode) | |
{ | |
if (PyUnicode_CheckExact(unicode) && | |
numfree < PyUnicode_MAXFREELIST) { | |
/* Keep-Alive optimization */ | |
if (unicode->length >= KEEPALIVE_SIZE_LIMIT) { | |
PyObject_DEL(unicode->str); | |
unicode->str = NULL; | |
unicode->length = 0; | |
} | |
if (unicode->defenc) { | |
Py_CLEAR(unicode->defenc); | |
} | |
/* Add to free list */ | |
*(PyUnicodeObject **)unicode = free_list; | |
free_list = unicode; | |
numfree++; | |
} | |
else { | |
PyObject_DEL(unicode->str); | |
Py_XDECREF(unicode->defenc); | |
Py_TYPE(unicode)->tp_free((PyObject *)unicode); | |
} | |
} | |
static | |
int _PyUnicode_Resize(PyUnicodeObject **unicode, Py_ssize_t length) | |
{ | |
register PyUnicodeObject *v; | |
/* Argument checks */ | |
if (unicode == NULL) { | |
PyErr_BadInternalCall(); | |
return -1; | |
} | |
v = *unicode; | |
if (v == NULL || !PyUnicode_Check(v) || Py_REFCNT(v) != 1 || length < 0) { | |
PyErr_BadInternalCall(); | |
return -1; | |
} | |
/* Resizing unicode_empty and single character objects is not | |
possible since these are being shared. We simply return a fresh | |
copy with the same Unicode content. */ | |
if (v->length != length && | |
(v == unicode_empty || v->length == 1)) { | |
PyUnicodeObject *w = _PyUnicode_New(length); | |
if (w == NULL) | |
return -1; | |
Py_UNICODE_COPY(w->str, v->str, | |
length < v->length ? length : v->length); | |
Py_DECREF(*unicode); | |
*unicode = w; | |
return 0; | |
} | |
/* Note that we don't have to modify *unicode for unshared Unicode | |
objects, since we can modify them in-place. */ | |
return unicode_resize(v, length); | |
} | |
int PyUnicode_Resize(PyObject **unicode, Py_ssize_t length) | |
{ | |
return _PyUnicode_Resize((PyUnicodeObject **)unicode, length); | |
} | |
PyObject *PyUnicode_FromUnicode(const Py_UNICODE *u, | |
Py_ssize_t size) | |
{ | |
PyUnicodeObject *unicode; | |
/* If the Unicode data is known at construction time, we can apply | |
some optimizations which share commonly used objects. */ | |
if (u != NULL) { | |
/* Optimization for empty strings */ | |
if (size == 0 && unicode_empty != NULL) { | |
Py_INCREF(unicode_empty); | |
return (PyObject *)unicode_empty; | |
} | |
/* Single character Unicode objects in the Latin-1 range are | |
shared when using this constructor */ | |
if (size == 1 && *u < 256) { | |
unicode = unicode_latin1[*u]; | |
if (!unicode) { | |
unicode = _PyUnicode_New(1); | |
if (!unicode) | |
return NULL; | |
unicode->str[0] = *u; | |
unicode_latin1[*u] = unicode; | |
} | |
Py_INCREF(unicode); | |
return (PyObject *)unicode; | |
} | |
} | |
unicode = _PyUnicode_New(size); | |
if (!unicode) | |
return NULL; | |
/* Copy the Unicode data into the new object */ | |
if (u != NULL) | |
Py_UNICODE_COPY(unicode->str, u, size); | |
return (PyObject *)unicode; | |
} | |
PyObject *PyUnicode_FromStringAndSize(const char *u, Py_ssize_t size) | |
{ | |
PyUnicodeObject *unicode; | |
if (size < 0) { | |
PyErr_SetString(PyExc_SystemError, | |
"Negative size passed to PyUnicode_FromStringAndSize"); | |
return NULL; | |
} | |
/* If the Unicode data is known at construction time, we can apply | |
some optimizations which share commonly used objects. | |
Also, this means the input must be UTF-8, so fall back to the | |
UTF-8 decoder at the end. */ | |
if (u != NULL) { | |
/* Optimization for empty strings */ | |
if (size == 0 && unicode_empty != NULL) { | |
Py_INCREF(unicode_empty); | |
return (PyObject *)unicode_empty; | |
} | |
/* Single characters are shared when using this constructor. | |
Restrict to ASCII, since the input must be UTF-8. */ | |
if (size == 1 && Py_CHARMASK(*u) < 128) { | |
unicode = unicode_latin1[Py_CHARMASK(*u)]; | |
if (!unicode) { | |
unicode = _PyUnicode_New(1); | |
if (!unicode) | |
return NULL; | |
unicode->str[0] = Py_CHARMASK(*u); | |
unicode_latin1[Py_CHARMASK(*u)] = unicode; | |
} | |
Py_INCREF(unicode); | |
return (PyObject *)unicode; | |
} | |
return PyUnicode_DecodeUTF8(u, size, NULL); | |
} | |
unicode = _PyUnicode_New(size); | |
if (!unicode) | |
return NULL; | |
return (PyObject *)unicode; | |
} | |
PyObject *PyUnicode_FromString(const char *u) | |
{ | |
size_t size = strlen(u); | |
if (size > PY_SSIZE_T_MAX) { | |
PyErr_SetString(PyExc_OverflowError, "input too long"); | |
return NULL; | |
} | |
return PyUnicode_FromStringAndSize(u, size); | |
} | |
#ifdef HAVE_WCHAR_H | |
#if (Py_UNICODE_SIZE == 2) && defined(SIZEOF_WCHAR_T) && (SIZEOF_WCHAR_T == 4) | |
# define CONVERT_WCHAR_TO_SURROGATES | |
#endif | |
#ifdef CONVERT_WCHAR_TO_SURROGATES | |
/* Here sizeof(wchar_t) is 4 but Py_UNICODE_SIZE == 2, so we need | |
to convert from UTF32 to UTF16. */ | |
PyObject *PyUnicode_FromWideChar(register const wchar_t *w, | |
Py_ssize_t size) | |
{ | |
PyUnicodeObject *unicode; | |
register Py_ssize_t i; | |
Py_ssize_t alloc; | |
const wchar_t *orig_w; | |
if (w == NULL) { | |
PyErr_BadInternalCall(); | |
return NULL; | |
} | |
alloc = size; | |
orig_w = w; | |
for (i = size; i > 0; i--) { | |
if (*w > 0xFFFF) | |
alloc++; | |
w++; | |
} | |
w = orig_w; | |
unicode = _PyUnicode_New(alloc); | |
if (!unicode) | |
return NULL; | |
/* Copy the wchar_t data into the new object */ | |
{ | |
register Py_UNICODE *u; | |
u = PyUnicode_AS_UNICODE(unicode); | |
for (i = size; i > 0; i--) { | |
if (*w > 0xFFFF) { | |
wchar_t ordinal = *w++; | |
ordinal -= 0x10000; | |
*u++ = 0xD800 | (ordinal >> 10); | |
*u++ = 0xDC00 | (ordinal & 0x3FF); | |
} | |
else | |
*u++ = *w++; | |
} | |
} | |
return (PyObject *)unicode; | |
} | |
#else | |
PyObject *PyUnicode_FromWideChar(register const wchar_t *w, | |
Py_ssize_t size) | |
{ | |
PyUnicodeObject *unicode; | |
if (w == NULL) { | |
PyErr_BadInternalCall(); | |
return NULL; | |
} | |
unicode = _PyUnicode_New(size); | |
if (!unicode) | |
return NULL; | |
/* Copy the wchar_t data into the new object */ | |
#ifdef HAVE_USABLE_WCHAR_T | |
memcpy(unicode->str, w, size * sizeof(wchar_t)); | |
#else | |
{ | |
register Py_UNICODE *u; | |
register Py_ssize_t i; | |
u = PyUnicode_AS_UNICODE(unicode); | |
for (i = size; i > 0; i--) | |
*u++ = *w++; | |
} | |
#endif | |
return (PyObject *)unicode; | |
} | |
#endif /* CONVERT_WCHAR_TO_SURROGATES */ | |
#undef CONVERT_WCHAR_TO_SURROGATES | |
static void | |
makefmt(char *fmt, int longflag, int size_tflag, int zeropad, int width, int precision, char c) | |
{ | |
*fmt++ = '%'; | |
if (width) { | |
if (zeropad) | |
*fmt++ = '0'; | |
fmt += sprintf(fmt, "%d", width); | |
} | |
if (precision) | |
fmt += sprintf(fmt, ".%d", precision); | |
if (longflag) | |
*fmt++ = 'l'; | |
else if (size_tflag) { | |
char *f = PY_FORMAT_SIZE_T; | |
while (*f) | |
*fmt++ = *f++; | |
} | |
*fmt++ = c; | |
*fmt = '\0'; | |
} | |
#define appendstring(string) {for (copy = string;*copy;) *s++ = *copy++;} | |
PyObject * | |
PyUnicode_FromFormatV(const char *format, va_list vargs) | |
{ | |
va_list count; | |
Py_ssize_t callcount = 0; | |
PyObject **callresults = NULL; | |
PyObject **callresult = NULL; | |
Py_ssize_t n = 0; | |
int width = 0; | |
int precision = 0; | |
int zeropad; | |
const char* f; | |
Py_UNICODE *s; | |
PyObject *string; | |
/* used by sprintf */ | |
char buffer[21]; | |
/* use abuffer instead of buffer, if we need more space | |
* (which can happen if there's a format specifier with width). */ | |
char *abuffer = NULL; | |
char *realbuffer; | |
Py_ssize_t abuffersize = 0; | |
char fmt[60]; /* should be enough for %0width.precisionld */ | |
const char *copy; | |
#ifdef VA_LIST_IS_ARRAY | |
Py_MEMCPY(count, vargs, sizeof(va_list)); | |
#else | |
#ifdef __va_copy | |
__va_copy(count, vargs); | |
#else | |
count = vargs; | |
#endif | |
#endif | |
/* step 1: count the number of %S/%R/%s format specifications | |
* (we call PyObject_Str()/PyObject_Repr()/PyUnicode_DecodeUTF8() for these | |
* objects once during step 3 and put the result in an array) */ | |
for (f = format; *f; f++) { | |
if (*f == '%') { | |
if (*(f+1)=='%') | |
continue; | |
if (*(f+1)=='S' || *(f+1)=='R') | |
++callcount; | |
while (isdigit((unsigned)*f)) | |
width = (width*10) + *f++ - '0'; | |
while (*++f && *f != '%' && !isalpha((unsigned)*f)) | |
; | |
if (*f == 's') | |
++callcount; | |
} | |
} | |
/* step 2: allocate memory for the results of | |
* PyObject_Str()/PyObject_Repr()/PyUnicode_DecodeUTF8() calls */ | |
if (callcount) { | |
callresults = PyObject_Malloc(sizeof(PyObject *)*callcount); | |
if (!callresults) { | |
PyErr_NoMemory(); | |
return NULL; | |
} | |
callresult = callresults; | |
} | |
/* step 3: figure out how large a buffer we need */ | |
for (f = format; *f; f++) { | |
if (*f == '%') { | |
const char* p = f; | |
width = 0; | |
while (isdigit((unsigned)*f)) | |
width = (width*10) + *f++ - '0'; | |
while (*++f && *f != '%' && !isalpha((unsigned)*f)) | |
; | |
/* skip the 'l' or 'z' in {%ld, %zd, %lu, %zu} since | |
* they don't affect the amount of space we reserve. | |
*/ | |
if ((*f == 'l' || *f == 'z') && | |
(f[1] == 'd' || f[1] == 'u')) | |
++f; | |
switch (*f) { | |
case 'c': | |
(void)va_arg(count, int); | |
/* fall through... */ | |
case '%': | |
n++; | |
break; | |
case 'd': case 'u': case 'i': case 'x': | |
(void) va_arg(count, int); | |
/* 20 bytes is enough to hold a 64-bit | |
integer. Decimal takes the most space. | |
This isn't enough for octal. | |
If a width is specified we need more | |
(which we allocate later). */ | |
if (width < 20) | |
width = 20; | |
n += width; | |
if (abuffersize < width) | |
abuffersize = width; | |
break; | |
case 's': | |
{ | |
/* UTF-8 */ | |
const char *s = va_arg(count, const char*); | |
PyObject *str = PyUnicode_DecodeUTF8(s, strlen(s), "replace"); | |
if (!str) | |
goto fail; | |
n += PyUnicode_GET_SIZE(str); | |
/* Remember the str and switch to the next slot */ | |
*callresult++ = str; | |
break; | |
} | |
case 'U': | |
{ | |
PyObject *obj = va_arg(count, PyObject *); | |
assert(obj && PyUnicode_Check(obj)); | |
n += PyUnicode_GET_SIZE(obj); | |
break; | |
} | |
case 'V': | |
{ | |
PyObject *obj = va_arg(count, PyObject *); | |
const char *str = va_arg(count, const char *); | |
assert(obj || str); | |
assert(!obj || PyUnicode_Check(obj)); | |
if (obj) | |
n += PyUnicode_GET_SIZE(obj); | |
else | |
n += strlen(str); | |
break; | |
} | |
case 'S': | |
{ | |
PyObject *obj = va_arg(count, PyObject *); | |
PyObject *str; | |
assert(obj); | |
str = PyObject_Str(obj); | |
if (!str) | |
goto fail; | |
n += PyUnicode_GET_SIZE(str); | |
/* Remember the str and switch to the next slot */ | |
*callresult++ = str; | |
break; | |
} | |
case 'R': | |
{ | |
PyObject *obj = va_arg(count, PyObject *); | |
PyObject *repr; | |
assert(obj); | |
repr = PyObject_Repr(obj); | |
if (!repr) | |
goto fail; | |
n += PyUnicode_GET_SIZE(repr); | |
/* Remember the repr and switch to the next slot */ | |
*callresult++ = repr; | |
break; | |
} | |
case 'p': | |
(void) va_arg(count, int); | |
/* maximum 64-bit pointer representation: | |
* 0xffffffffffffffff | |
* so 19 characters is enough. | |
* XXX I count 18 -- what's the extra for? | |
*/ | |
n += 19; | |
break; | |
default: | |
/* if we stumble upon an unknown | |
formatting code, copy the rest of | |
the format string to the output | |
string. (we cannot just skip the | |
code, since there's no way to know | |
what's in the argument list) */ | |
n += strlen(p); | |
goto expand; | |
} | |
} else | |
n++; | |
} | |
expand: | |
if (abuffersize > 20) { | |
abuffer = PyObject_Malloc(abuffersize); | |
if (!abuffer) { | |
PyErr_NoMemory(); | |
goto fail; | |
} | |
realbuffer = abuffer; | |
} | |
else | |
realbuffer = buffer; | |
/* step 4: fill the buffer */ | |
/* Since we've analyzed how much space we need for the worst case, | |
we don't have to resize the string. | |
There can be no errors beyond this point. */ | |
string = PyUnicode_FromUnicode(NULL, n); | |
if (!string) | |
goto fail; | |
s = PyUnicode_AS_UNICODE(string); | |
callresult = callresults; | |
for (f = format; *f; f++) { | |
if (*f == '%') { | |
const char* p = f++; | |
int longflag = 0; | |
int size_tflag = 0; | |
zeropad = (*f == '0'); | |
/* parse the width.precision part */ | |
width = 0; | |
while (isdigit((unsigned)*f)) | |
width = (width*10) + *f++ - '0'; | |
precision = 0; | |
if (*f == '.') { | |
f++; | |
while (isdigit((unsigned)*f)) | |
precision = (precision*10) + *f++ - '0'; | |
} | |
/* handle the long flag, but only for %ld and %lu. | |
others can be added when necessary. */ | |
if (*f == 'l' && (f[1] == 'd' || f[1] == 'u')) { | |
longflag = 1; | |
++f; | |
} | |
/* handle the size_t flag. */ | |
if (*f == 'z' && (f[1] == 'd' || f[1] == 'u')) { | |
size_tflag = 1; | |
++f; | |
} | |
switch (*f) { | |
case 'c': | |
*s++ = va_arg(vargs, int); | |
break; | |
case 'd': | |
makefmt(fmt, longflag, size_tflag, zeropad, width, precision, 'd'); | |
if (longflag) | |
sprintf(realbuffer, fmt, va_arg(vargs, long)); | |
else if (size_tflag) | |
sprintf(realbuffer, fmt, va_arg(vargs, Py_ssize_t)); | |
else | |
sprintf(realbuffer, fmt, va_arg(vargs, int)); | |
appendstring(realbuffer); | |
break; | |
case 'u': | |
makefmt(fmt, longflag, size_tflag, zeropad, width, precision, 'u'); | |
if (longflag) | |
sprintf(realbuffer, fmt, va_arg(vargs, unsigned long)); | |
else if (size_tflag) | |
sprintf(realbuffer, fmt, va_arg(vargs, size_t)); | |
else | |
sprintf(realbuffer, fmt, va_arg(vargs, unsigned int)); | |
appendstring(realbuffer); | |
break; | |
case 'i': | |
makefmt(fmt, 0, 0, zeropad, width, precision, 'i'); | |
sprintf(realbuffer, fmt, va_arg(vargs, int)); | |
appendstring(realbuffer); | |
break; | |
case 'x': | |
makefmt(fmt, 0, 0, zeropad, width, precision, 'x'); | |
sprintf(realbuffer, fmt, va_arg(vargs, int)); | |
appendstring(realbuffer); | |
break; | |
case 's': | |
{ | |
/* unused, since we already have the result */ | |
(void) va_arg(vargs, char *); | |
Py_UNICODE_COPY(s, PyUnicode_AS_UNICODE(*callresult), | |
PyUnicode_GET_SIZE(*callresult)); | |
s += PyUnicode_GET_SIZE(*callresult); | |
/* We're done with the unicode()/repr() => forget it */ | |
Py_DECREF(*callresult); | |
/* switch to next unicode()/repr() result */ | |
++callresult; | |
break; | |
} | |
case 'U': | |
{ | |
PyObject *obj = va_arg(vargs, PyObject *); | |
Py_ssize_t size = PyUnicode_GET_SIZE(obj); | |
Py_UNICODE_COPY(s, PyUnicode_AS_UNICODE(obj), size); | |
s += size; | |
break; | |
} | |
case 'V': | |
{ | |
PyObject *obj = va_arg(vargs, PyObject *); | |
const char *str = va_arg(vargs, const char *); | |
if (obj) { | |
Py_ssize_t size = PyUnicode_GET_SIZE(obj); | |
Py_UNICODE_COPY(s, PyUnicode_AS_UNICODE(obj), size); | |
s += size; | |
} else { | |
appendstring(str); | |
} | |
break; | |
} | |
case 'S': | |
case 'R': | |
{ | |
Py_UNICODE *ucopy; | |
Py_ssize_t usize; | |
Py_ssize_t upos; | |
/* unused, since we already have the result */ | |
(void) va_arg(vargs, PyObject *); | |
ucopy = PyUnicode_AS_UNICODE(*callresult); | |
usize = PyUnicode_GET_SIZE(*callresult); | |
for (upos = 0; upos<usize;) | |
*s++ = ucopy[upos++]; | |
/* We're done with the unicode()/repr() => forget it */ | |
Py_DECREF(*callresult); | |
/* switch to next unicode()/repr() result */ | |
++callresult; | |
break; | |
} | |
case 'p': | |
sprintf(buffer, "%p", va_arg(vargs, void*)); | |
/* %p is ill-defined: ensure leading 0x. */ | |
if (buffer[1] == 'X') | |
buffer[1] = 'x'; | |
else if (buffer[1] != 'x') { | |
memmove(buffer+2, buffer, strlen(buffer)+1); | |
buffer[0] = '0'; | |
buffer[1] = 'x'; | |
} | |
appendstring(buffer); | |
break; | |
case '%': | |
*s++ = '%'; | |
break; | |
default: | |
appendstring(p); | |
goto end; | |
} | |
} else | |
*s++ = *f; | |
} | |
end: | |
if (callresults) | |
PyObject_Free(callresults); | |
if (abuffer) | |
PyObject_Free(abuffer); | |
PyUnicode_Resize(&string, s - PyUnicode_AS_UNICODE(string)); | |
return string; | |
fail: | |
if (callresults) { | |
PyObject **callresult2 = callresults; | |
while (callresult2 < callresult) { | |
Py_DECREF(*callresult2); | |
++callresult2; | |
} | |
PyObject_Free(callresults); | |
} | |
if (abuffer) | |
PyObject_Free(abuffer); | |
return NULL; | |
} | |
#undef appendstring | |
PyObject * | |
PyUnicode_FromFormat(const char *format, ...) | |
{ | |
PyObject* ret; | |
va_list vargs; | |
#ifdef HAVE_STDARG_PROTOTYPES | |
va_start(vargs, format); | |
#else | |
va_start(vargs); | |
#endif | |
ret = PyUnicode_FromFormatV(format, vargs); | |
va_end(vargs); | |
return ret; | |
} | |
Py_ssize_t PyUnicode_AsWideChar(PyUnicodeObject *unicode, | |
wchar_t *w, | |
Py_ssize_t size) | |
{ | |
if (unicode == NULL) { | |
PyErr_BadInternalCall(); | |
return -1; | |
} | |
/* If possible, try to copy the 0-termination as well */ | |
if (size > PyUnicode_GET_SIZE(unicode)) | |
size = PyUnicode_GET_SIZE(unicode) + 1; | |
#ifdef HAVE_USABLE_WCHAR_T | |
memcpy(w, unicode->str, size * sizeof(wchar_t)); | |
#else | |
{ | |
register Py_UNICODE *u; | |
register Py_ssize_t i; | |
u = PyUnicode_AS_UNICODE(unicode); | |
for (i = size; i > 0; i--) | |
*w++ = *u++; | |
} | |
#endif | |
if (size > PyUnicode_GET_SIZE(unicode)) | |
return PyUnicode_GET_SIZE(unicode); | |
else | |
return size; | |
} | |
#endif | |
PyObject *PyUnicode_FromOrdinal(int ordinal) | |
{ | |
Py_UNICODE s[1]; | |
#ifdef Py_UNICODE_WIDE | |
if (ordinal < 0 || ordinal > 0x10ffff) { | |
PyErr_SetString(PyExc_ValueError, | |
"unichr() arg not in range(0x110000) " | |
"(wide Python build)"); | |
return NULL; | |
} | |
#else | |
if (ordinal < 0 || ordinal > 0xffff) { | |
PyErr_SetString(PyExc_ValueError, | |
"unichr() arg not in range(0x10000) " | |
"(narrow Python build)"); | |
return NULL; | |
} | |
#endif | |
s[0] = (Py_UNICODE)ordinal; | |
return PyUnicode_FromUnicode(s, 1); | |
} | |
PyObject *PyUnicode_FromObject(register PyObject *obj) | |
{ | |
/* XXX Perhaps we should make this API an alias of | |
PyObject_Unicode() instead ?! */ | |
if (PyUnicode_CheckExact(obj)) { | |
Py_INCREF(obj); | |
return obj; | |
} | |
if (PyUnicode_Check(obj)) { | |
/* For a Unicode subtype that's not a Unicode object, | |
return a true Unicode object with the same data. */ | |
return PyUnicode_FromUnicode(PyUnicode_AS_UNICODE(obj), | |
PyUnicode_GET_SIZE(obj)); | |
} | |
return PyUnicode_FromEncodedObject(obj, NULL, "strict"); | |
} | |
PyObject *PyUnicode_FromEncodedObject(register PyObject *obj, | |
const char *encoding, | |
const char *errors) | |
{ | |
const char *s = NULL; | |
Py_ssize_t len; | |
PyObject *v; | |
if (obj == NULL) { | |
PyErr_BadInternalCall(); | |
return NULL; | |
} | |
#if 0 | |
/* For b/w compatibility we also accept Unicode objects provided | |
that no encodings is given and then redirect to | |
PyObject_Unicode() which then applies the additional logic for | |
Unicode subclasses. | |
NOTE: This API should really only be used for object which | |
represent *encoded* Unicode ! | |
*/ | |
if (PyUnicode_Check(obj)) { | |
if (encoding) { | |
PyErr_SetString(PyExc_TypeError, | |
"decoding Unicode is not supported"); | |
return NULL; | |
} | |
return PyObject_Unicode(obj); | |
} | |
#else | |
if (PyUnicode_Check(obj)) { | |
PyErr_SetString(PyExc_TypeError, | |
"decoding Unicode is not supported"); | |
return NULL; | |
} | |
#endif | |
/* Coerce object */ | |
if (PyString_Check(obj)) { | |
s = PyString_AS_STRING(obj); | |
len = PyString_GET_SIZE(obj); | |
} | |
else if (PyByteArray_Check(obj)) { | |
/* Python 2.x specific */ | |
PyErr_Format(PyExc_TypeError, | |
"decoding bytearray is not supported"); | |
return NULL; | |
} | |
else if (PyObject_AsCharBuffer(obj, &s, &len)) { | |
/* Overwrite the error message with something more useful in | |
case of a TypeError. */ | |
if (PyErr_ExceptionMatches(PyExc_TypeError)) | |
PyErr_Format(PyExc_TypeError, | |
"coercing to Unicode: need string or buffer, " | |
"%.80s found", | |
Py_TYPE(obj)->tp_name); | |
goto onError; | |
} | |
/* Convert to Unicode */ | |
if (len == 0) { | |
Py_INCREF(unicode_empty); | |
v = (PyObject *)unicode_empty; | |
} | |
else | |
v = PyUnicode_Decode(s, len, encoding, errors); | |
return v; | |
onError: | |
return NULL; | |
} | |
PyObject *PyUnicode_Decode(const char *s, | |
Py_ssize_t size, | |
const char *encoding, | |
const char *errors) | |
{ | |
PyObject *buffer = NULL, *unicode; | |
if (encoding == NULL) | |
encoding = PyUnicode_GetDefaultEncoding(); | |
/* Shortcuts for common default encodings */ | |
if (strcmp(encoding, "utf-8") == 0) | |
return PyUnicode_DecodeUTF8(s, size, errors); | |
else if (strcmp(encoding, "latin-1") == 0) | |
return PyUnicode_DecodeLatin1(s, size, errors); | |
#if defined(MS_WINDOWS) && defined(HAVE_USABLE_WCHAR_T) | |
else if (strcmp(encoding, "mbcs") == 0) | |
return PyUnicode_DecodeMBCS(s, size, errors); | |
#endif | |
else if (strcmp(encoding, "ascii") == 0) | |
return PyUnicode_DecodeASCII(s, size, errors); | |
/* Decode via the codec registry */ | |
buffer = PyBuffer_FromMemory((void *)s, size); | |
if (buffer == NULL) | |
goto onError; | |
unicode = PyCodec_Decode(buffer, encoding, errors); | |
if (unicode == NULL) | |
goto onError; | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_Format(PyExc_TypeError, | |
"decoder did not return an unicode object (type=%.400s)", | |
Py_TYPE(unicode)->tp_name); | |
Py_DECREF(unicode); | |
goto onError; | |
} | |
Py_DECREF(buffer); | |
return unicode; | |
onError: | |
Py_XDECREF(buffer); | |
return NULL; | |
} | |
PyObject *PyUnicode_AsDecodedObject(PyObject *unicode, | |
const char *encoding, | |
const char *errors) | |
{ | |
PyObject *v; | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
goto onError; | |
} | |
if (encoding == NULL) | |
encoding = PyUnicode_GetDefaultEncoding(); | |
/* Decode via the codec registry */ | |
v = PyCodec_Decode(unicode, encoding, errors); | |
if (v == NULL) | |
goto onError; | |
return v; | |
onError: | |
return NULL; | |
} | |
PyObject *PyUnicode_Encode(const Py_UNICODE *s, | |
Py_ssize_t size, | |
const char *encoding, | |
const char *errors) | |
{ | |
PyObject *v, *unicode; | |
unicode = PyUnicode_FromUnicode(s, size); | |
if (unicode == NULL) | |
return NULL; | |
v = PyUnicode_AsEncodedString(unicode, encoding, errors); | |
Py_DECREF(unicode); | |
return v; | |
} | |
PyObject *PyUnicode_AsEncodedObject(PyObject *unicode, | |
const char *encoding, | |
const char *errors) | |
{ | |
PyObject *v; | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
goto onError; | |
} | |
if (encoding == NULL) | |
encoding = PyUnicode_GetDefaultEncoding(); | |
/* Encode via the codec registry */ | |
v = PyCodec_Encode(unicode, encoding, errors); | |
if (v == NULL) | |
goto onError; | |
return v; | |
onError: | |
return NULL; | |
} | |
PyObject *PyUnicode_AsEncodedString(PyObject *unicode, | |
const char *encoding, | |
const char *errors) | |
{ | |
PyObject *v; | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
goto onError; | |
} | |
if (encoding == NULL) | |
encoding = PyUnicode_GetDefaultEncoding(); | |
/* Shortcuts for common default encodings */ | |
if (errors == NULL) { | |
if (strcmp(encoding, "utf-8") == 0) | |
return PyUnicode_AsUTF8String(unicode); | |
else if (strcmp(encoding, "latin-1") == 0) | |
return PyUnicode_AsLatin1String(unicode); | |
#if defined(MS_WINDOWS) && defined(HAVE_USABLE_WCHAR_T) | |
else if (strcmp(encoding, "mbcs") == 0) | |
return PyUnicode_AsMBCSString(unicode); | |
#endif | |
else if (strcmp(encoding, "ascii") == 0) | |
return PyUnicode_AsASCIIString(unicode); | |
} | |
/* Encode via the codec registry */ | |
v = PyCodec_Encode(unicode, encoding, errors); | |
if (v == NULL) | |
goto onError; | |
if (!PyString_Check(v)) { | |
PyErr_Format(PyExc_TypeError, | |
"encoder did not return a string object (type=%.400s)", | |
Py_TYPE(v)->tp_name); | |
Py_DECREF(v); | |
goto onError; | |
} | |
return v; | |
onError: | |
return NULL; | |
} | |
PyObject *_PyUnicode_AsDefaultEncodedString(PyObject *unicode, | |
const char *errors) | |
{ | |
PyObject *v = ((PyUnicodeObject *)unicode)->defenc; | |
if (v) | |
return v; | |
v = PyUnicode_AsEncodedString(unicode, NULL, errors); | |
if (v && errors == NULL) | |
((PyUnicodeObject *)unicode)->defenc = v; | |
return v; | |
} | |
Py_UNICODE *PyUnicode_AsUnicode(PyObject *unicode) | |
{ | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
goto onError; | |
} | |
return PyUnicode_AS_UNICODE(unicode); | |
onError: | |
return NULL; | |
} | |
Py_ssize_t PyUnicode_GetSize(PyObject *unicode) | |
{ | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
goto onError; | |
} | |
return PyUnicode_GET_SIZE(unicode); | |
onError: | |
return -1; | |
} | |
const char *PyUnicode_GetDefaultEncoding(void) | |
{ | |
return unicode_default_encoding; | |
} | |
int PyUnicode_SetDefaultEncoding(const char *encoding) | |
{ | |
PyObject *v; | |
/* Make sure the encoding is valid. As side effect, this also | |
loads the encoding into the codec registry cache. */ | |
v = _PyCodec_Lookup(encoding); | |
if (v == NULL) | |
goto onError; | |
Py_DECREF(v); | |
strncpy(unicode_default_encoding, | |
encoding, | |
sizeof(unicode_default_encoding)); | |
return 0; | |
onError: | |
return -1; | |
} | |
/* error handling callback helper: | |
build arguments, call the callback and check the arguments, | |
if no exception occurred, copy the replacement to the output | |
and adjust various state variables. | |
return 0 on success, -1 on error | |
*/ | |
static | |
int unicode_decode_call_errorhandler(const char *errors, PyObject **errorHandler, | |
const char *encoding, const char *reason, | |
const char *input, Py_ssize_t insize, Py_ssize_t *startinpos, | |
Py_ssize_t *endinpos, PyObject **exceptionObject, const char **inptr, | |
PyUnicodeObject **output, Py_ssize_t *outpos, Py_UNICODE **outptr) | |
{ | |
static char *argparse = "O!n;decoding error handler must return (unicode, int) tuple"; | |
PyObject *restuple = NULL; | |
PyObject *repunicode = NULL; | |
Py_ssize_t outsize = PyUnicode_GET_SIZE(*output); | |
Py_ssize_t requiredsize; | |
Py_ssize_t newpos; | |
Py_UNICODE *repptr; | |
Py_ssize_t repsize; | |
int res = -1; | |
if (*errorHandler == NULL) { | |
*errorHandler = PyCodec_LookupError(errors); | |
if (*errorHandler == NULL) | |
goto onError; | |
} | |
if (*exceptionObject == NULL) { | |
*exceptionObject = PyUnicodeDecodeError_Create( | |
encoding, input, insize, *startinpos, *endinpos, reason); | |
if (*exceptionObject == NULL) | |
goto onError; | |
} | |
else { | |
if (PyUnicodeDecodeError_SetStart(*exceptionObject, *startinpos)) | |
goto onError; | |
if (PyUnicodeDecodeError_SetEnd(*exceptionObject, *endinpos)) | |
goto onError; | |
if (PyUnicodeDecodeError_SetReason(*exceptionObject, reason)) | |
goto onError; | |
} | |
restuple = PyObject_CallFunctionObjArgs(*errorHandler, *exceptionObject, NULL); | |
if (restuple == NULL) | |
goto onError; | |
if (!PyTuple_Check(restuple)) { | |
PyErr_SetString(PyExc_TypeError, &argparse[4]); | |
goto onError; | |
} | |
if (!PyArg_ParseTuple(restuple, argparse, &PyUnicode_Type, &repunicode, &newpos)) | |
goto onError; | |
if (newpos<0) | |
newpos = insize+newpos; | |
if (newpos<0 || newpos>insize) { | |
PyErr_Format(PyExc_IndexError, "position %zd from error handler out of bounds", newpos); | |
goto onError; | |
} | |
/* need more space? (at least enough for what we | |
have+the replacement+the rest of the string (starting | |
at the new input position), so we won't have to check space | |
when there are no errors in the rest of the string) */ | |
repptr = PyUnicode_AS_UNICODE(repunicode); | |
repsize = PyUnicode_GET_SIZE(repunicode); | |
requiredsize = *outpos + repsize + insize-newpos; | |
if (requiredsize > outsize) { | |
if (requiredsize<2*outsize) | |
requiredsize = 2*outsize; | |
if (_PyUnicode_Resize(output, requiredsize) < 0) | |
goto onError; | |
*outptr = PyUnicode_AS_UNICODE(*output) + *outpos; | |
} | |
*endinpos = newpos; | |
*inptr = input + newpos; | |
Py_UNICODE_COPY(*outptr, repptr, repsize); | |
*outptr += repsize; | |
*outpos += repsize; | |
/* we made it! */ | |
res = 0; | |
onError: | |
Py_XDECREF(restuple); | |
return res; | |
} | |
/* --- UTF-7 Codec -------------------------------------------------------- */ | |
/* See RFC2152 for details. We encode conservatively and decode liberally. */ | |
/* Three simple macros defining base-64. */ | |
/* Is c a base-64 character? */ | |
#define IS_BASE64(c) \ | |
(isalnum(c) || (c) == '+' || (c) == '/') | |
/* given that c is a base-64 character, what is its base-64 value? */ | |
#define FROM_BASE64(c) \ | |
(((c) >= 'A' && (c) <= 'Z') ? (c) - 'A' : \ | |
((c) >= 'a' && (c) <= 'z') ? (c) - 'a' + 26 : \ | |
((c) >= '0' && (c) <= '9') ? (c) - '0' + 52 : \ | |
(c) == '+' ? 62 : 63) | |
/* What is the base-64 character of the bottom 6 bits of n? */ | |
#define TO_BASE64(n) \ | |
("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"[(n) & 0x3f]) | |
/* DECODE_DIRECT: this byte encountered in a UTF-7 string should be | |
* decoded as itself. We are permissive on decoding; the only ASCII | |
* byte not decoding to itself is the + which begins a base64 | |
* string. */ | |
#define DECODE_DIRECT(c) \ | |
((c) <= 127 && (c) != '+') | |
/* The UTF-7 encoder treats ASCII characters differently according to | |
* whether they are Set D, Set O, Whitespace, or special (i.e. none of | |
* the above). See RFC2152. This array identifies these different | |
* sets: | |
* 0 : "Set D" | |
* alphanumeric and '(),-./:? | |
* 1 : "Set O" | |
* !"#$%&*;<=>@[]^_`{|} | |
* 2 : "whitespace" | |
* ht nl cr sp | |
* 3 : special (must be base64 encoded) | |
* everything else (i.e. +\~ and non-printing codes 0-8 11-12 14-31 127) | |
*/ | |
static | |
char utf7_category[128] = { | |
/* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ | |
3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 3, 3, 2, 3, 3, | |
/* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ | |
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, | |
/* sp ! " # $ % & ' ( ) * + , - . / */ | |
2, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 3, 0, 0, 0, 0, | |
/* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ | |
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, | |
/* @ A B C D E F G H I J K L M N O */ | |
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |
/* P Q R S T U V W X Y Z [ \ ] ^ _ */ | |
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 3, 1, 1, 1, | |
/* ` a b c d e f g h i j k l m n o */ | |
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |
/* p q r s t u v w x y z { | } ~ del */ | |
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 3, 3, | |
}; | |
/* ENCODE_DIRECT: this character should be encoded as itself. The | |
* answer depends on whether we are encoding set O as itself, and also | |
* on whether we are encoding whitespace as itself. RFC2152 makes it | |
* clear that the answers to these questions vary between | |
* applications, so this code needs to be flexible. */ | |
#define ENCODE_DIRECT(c, directO, directWS) \ | |
((c) < 128 && (c) > 0 && \ | |
((utf7_category[(c)] == 0) || \ | |
(directWS && (utf7_category[(c)] == 2)) || \ | |
(directO && (utf7_category[(c)] == 1)))) | |
PyObject *PyUnicode_DecodeUTF7(const char *s, | |
Py_ssize_t size, | |
const char *errors) | |
{ | |
return PyUnicode_DecodeUTF7Stateful(s, size, errors, NULL); | |
} | |
/* The decoder. The only state we preserve is our read position, | |
* i.e. how many characters we have consumed. So if we end in the | |
* middle of a shift sequence we have to back off the read position | |
* and the output to the beginning of the sequence, otherwise we lose | |
* all the shift state (seen bits, number of bits seen, high | |
* surrogate). */ | |
PyObject *PyUnicode_DecodeUTF7Stateful(const char *s, | |
Py_ssize_t size, | |
const char *errors, | |
Py_ssize_t *consumed) | |
{ | |
const char *starts = s; | |
Py_ssize_t startinpos; | |
Py_ssize_t endinpos; | |
Py_ssize_t outpos; | |
const char *e; | |
PyUnicodeObject *unicode; | |
Py_UNICODE *p; | |
const char *errmsg = ""; | |
int inShift = 0; | |
Py_UNICODE *shiftOutStart; | |
unsigned int base64bits = 0; | |
unsigned long base64buffer = 0; | |
Py_UNICODE surrogate = 0; | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
unicode = _PyUnicode_New(size); | |
if (!unicode) | |
return NULL; | |
if (size == 0) { | |
if (consumed) | |
*consumed = 0; | |
return (PyObject *)unicode; | |
} | |
p = unicode->str; | |
shiftOutStart = p; | |
e = s + size; | |
while (s < e) { | |
Py_UNICODE ch = (unsigned char) *s; | |
if (inShift) { /* in a base-64 section */ | |
if (IS_BASE64(ch)) { /* consume a base-64 character */ | |
base64buffer = (base64buffer << 6) | FROM_BASE64(ch); | |
base64bits += 6; | |
s++; | |
if (base64bits >= 16) { | |
/* we have enough bits for a UTF-16 value */ | |
Py_UNICODE outCh = (Py_UNICODE) | |
(base64buffer >> (base64bits-16)); | |
base64bits -= 16; | |
base64buffer &= (1 << base64bits) - 1; /* clear high bits */ | |
if (surrogate) { | |
/* expecting a second surrogate */ | |
if (outCh >= 0xDC00 && outCh <= 0xDFFF) { | |
#ifdef Py_UNICODE_WIDE | |
*p++ = (((surrogate & 0x3FF)<<10) | |
| (outCh & 0x3FF)) + 0x10000; | |
#else | |
*p++ = surrogate; | |
*p++ = outCh; | |
#endif | |
surrogate = 0; | |
} | |
else { | |
surrogate = 0; | |
errmsg = "second surrogate missing"; | |
goto utf7Error; | |
} | |
} | |
else if (outCh >= 0xD800 && outCh <= 0xDBFF) { | |
/* first surrogate */ | |
surrogate = outCh; | |
} | |
else if (outCh >= 0xDC00 && outCh <= 0xDFFF) { | |
errmsg = "unexpected second surrogate"; | |
goto utf7Error; | |
} | |
else { | |
*p++ = outCh; | |
} | |
} | |
} | |
else { /* now leaving a base-64 section */ | |
inShift = 0; | |
s++; | |
if (surrogate) { | |
errmsg = "second surrogate missing at end of shift sequence"; | |
goto utf7Error; | |
} | |
if (base64bits > 0) { /* left-over bits */ | |
if (base64bits >= 6) { | |
/* We've seen at least one base-64 character */ | |
errmsg = "partial character in shift sequence"; | |
goto utf7Error; | |
} | |
else { | |
/* Some bits remain; they should be zero */ | |
if (base64buffer != 0) { | |
errmsg = "non-zero padding bits in shift sequence"; | |
goto utf7Error; | |
} | |
} | |
} | |
if (ch != '-') { | |
/* '-' is absorbed; other terminating | |
characters are preserved */ | |
*p++ = ch; | |
} | |
} | |
} | |
else if ( ch == '+' ) { | |
startinpos = s-starts; | |
s++; /* consume '+' */ | |
if (s < e && *s == '-') { /* '+-' encodes '+' */ | |
s++; | |
*p++ = '+'; | |
} | |
else { /* begin base64-encoded section */ | |
inShift = 1; | |
shiftOutStart = p; | |
base64bits = 0; | |
} | |
} | |
else if (DECODE_DIRECT(ch)) { /* character decodes as itself */ | |
*p++ = ch; | |
s++; | |
} | |
else { | |
startinpos = s-starts; | |
s++; | |
errmsg = "unexpected special character"; | |
goto utf7Error; | |
} | |
continue; | |
utf7Error: | |
outpos = p-PyUnicode_AS_UNICODE(unicode); | |
endinpos = s-starts; | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"utf7", errmsg, | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&unicode, &outpos, &p)) | |
goto onError; | |
} | |
/* end of string */ | |
if (inShift && !consumed) { /* in shift sequence, no more to follow */ | |
/* if we're in an inconsistent state, that's an error */ | |
if (surrogate || | |
(base64bits >= 6) || | |
(base64bits > 0 && base64buffer != 0)) { | |
outpos = p-PyUnicode_AS_UNICODE(unicode); | |
endinpos = size; | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"utf7", "unterminated shift sequence", | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&unicode, &outpos, &p)) | |
goto onError; | |
} | |
} | |
/* return state */ | |
if (consumed) { | |
if (inShift) { | |
p = shiftOutStart; /* back off output */ | |
*consumed = startinpos; | |
} | |
else { | |
*consumed = s-starts; | |
} | |
} | |
if (_PyUnicode_Resize(&unicode, p - PyUnicode_AS_UNICODE(unicode)) < 0) | |
goto onError; | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return (PyObject *)unicode; | |
onError: | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
Py_DECREF(unicode); | |
return NULL; | |
} | |
PyObject *PyUnicode_EncodeUTF7(const Py_UNICODE *s, | |
Py_ssize_t size, | |
int base64SetO, | |
int base64WhiteSpace, | |
const char *errors) | |
{ | |
PyObject *v; | |
/* It might be possible to tighten this worst case */ | |
Py_ssize_t allocated = 8 * size; | |
int inShift = 0; | |
Py_ssize_t i = 0; | |
unsigned int base64bits = 0; | |
unsigned long base64buffer = 0; | |
char * out; | |
char * start; | |
if (allocated / 8 != size) | |
return PyErr_NoMemory(); | |
if (size == 0) | |
return PyString_FromStringAndSize(NULL, 0); | |
v = PyString_FromStringAndSize(NULL, allocated); | |
if (v == NULL) | |
return NULL; | |
start = out = PyString_AS_STRING(v); | |
for (;i < size; ++i) { | |
Py_UNICODE ch = s[i]; | |
if (inShift) { | |
if (ENCODE_DIRECT(ch, !base64SetO, !base64WhiteSpace)) { | |
/* shifting out */ | |
if (base64bits) { /* output remaining bits */ | |
*out++ = TO_BASE64(base64buffer << (6-base64bits)); | |
base64buffer = 0; | |
base64bits = 0; | |
} | |
inShift = 0; | |
/* Characters not in the BASE64 set implicitly unshift the sequence | |
so no '-' is required, except if the character is itself a '-' */ | |
if (IS_BASE64(ch) || ch == '-') { | |
*out++ = '-'; | |
} | |
*out++ = (char) ch; | |
} | |
else { | |
goto encode_char; | |
} | |
} | |
else { /* not in a shift sequence */ | |
if (ch == '+') { | |
*out++ = '+'; | |
*out++ = '-'; | |
} | |
else if (ENCODE_DIRECT(ch, !base64SetO, !base64WhiteSpace)) { | |
*out++ = (char) ch; | |
} | |
else { | |
*out++ = '+'; | |
inShift = 1; | |
goto encode_char; | |
} | |
} | |
continue; | |
encode_char: | |
#ifdef Py_UNICODE_WIDE | |
if (ch >= 0x10000) { | |
/* code first surrogate */ | |
base64bits += 16; | |
base64buffer = (base64buffer << 16) | 0xd800 | ((ch-0x10000) >> 10); | |
while (base64bits >= 6) { | |
*out++ = TO_BASE64(base64buffer >> (base64bits-6)); | |
base64bits -= 6; | |
} | |
/* prepare second surrogate */ | |
ch = 0xDC00 | ((ch-0x10000) & 0x3FF); | |
} | |
#endif | |
base64bits += 16; | |
base64buffer = (base64buffer << 16) | ch; | |
while (base64bits >= 6) { | |
*out++ = TO_BASE64(base64buffer >> (base64bits-6)); | |
base64bits -= 6; | |
} | |
} | |
if (base64bits) | |
*out++= TO_BASE64(base64buffer << (6-base64bits) ); | |
if (inShift) | |
*out++ = '-'; | |
if (_PyString_Resize(&v, out - start)) | |
return NULL; | |
return v; | |
} | |
#undef IS_BASE64 | |
#undef FROM_BASE64 | |
#undef TO_BASE64 | |
#undef DECODE_DIRECT | |
#undef ENCODE_DIRECT | |
/* --- UTF-8 Codec -------------------------------------------------------- */ | |
static | |
char utf8_code_length[256] = { | |
/* Map UTF-8 encoded prefix byte to sequence length. Zero means | |
illegal prefix. See RFC 3629 for details */ | |
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 00-0F */ | |
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, | |
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, | |
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, | |
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, | |
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, | |
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, | |
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 70-7F */ | |
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 80-8F */ | |
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* B0-BF */ | |
0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, /* C0-C1 + C2-CF */ | |
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, /* D0-DF */ | |
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, /* E0-EF */ | |
4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /* F0-F4 + F5-FF */ | |
}; | |
PyObject *PyUnicode_DecodeUTF8(const char *s, | |
Py_ssize_t size, | |
const char *errors) | |
{ | |
return PyUnicode_DecodeUTF8Stateful(s, size, errors, NULL); | |
} | |
PyObject *PyUnicode_DecodeUTF8Stateful(const char *s, | |
Py_ssize_t size, | |
const char *errors, | |
Py_ssize_t *consumed) | |
{ | |
const char *starts = s; | |
int n; | |
int k; | |
Py_ssize_t startinpos; | |
Py_ssize_t endinpos; | |
Py_ssize_t outpos; | |
const char *e; | |
PyUnicodeObject *unicode; | |
Py_UNICODE *p; | |
const char *errmsg = ""; | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
/* Note: size will always be longer than the resulting Unicode | |
character count */ | |
unicode = _PyUnicode_New(size); | |
if (!unicode) | |
return NULL; | |
if (size == 0) { | |
if (consumed) | |
*consumed = 0; | |
return (PyObject *)unicode; | |
} | |
/* Unpack UTF-8 encoded data */ | |
p = unicode->str; | |
e = s + size; | |
while (s < e) { | |
Py_UCS4 ch = (unsigned char)*s; | |
if (ch < 0x80) { | |
*p++ = (Py_UNICODE)ch; | |
s++; | |
continue; | |
} | |
n = utf8_code_length[ch]; | |
if (s + n > e) { | |
if (consumed) | |
break; | |
else { | |
errmsg = "unexpected end of data"; | |
startinpos = s-starts; | |
endinpos = startinpos+1; | |
for (k=1; (k < size-startinpos) && ((s[k]&0xC0) == 0x80); k++) | |
endinpos++; | |
goto utf8Error; | |
} | |
} | |
switch (n) { | |
case 0: | |
errmsg = "invalid start byte"; | |
startinpos = s-starts; | |
endinpos = startinpos+1; | |
goto utf8Error; | |
case 1: | |
errmsg = "internal error"; | |
startinpos = s-starts; | |
endinpos = startinpos+1; | |
goto utf8Error; | |
case 2: | |
if ((s[1] & 0xc0) != 0x80) { | |
errmsg = "invalid continuation byte"; | |
startinpos = s-starts; | |
endinpos = startinpos + 1; | |
goto utf8Error; | |
} | |
ch = ((s[0] & 0x1f) << 6) + (s[1] & 0x3f); | |
assert ((ch > 0x007F) && (ch <= 0x07FF)); | |
*p++ = (Py_UNICODE)ch; | |
break; | |
case 3: | |
/* XXX: surrogates shouldn't be valid UTF-8! | |
see http://www.unicode.org/versions/Unicode5.2.0/ch03.pdf | |
(table 3-7) and http://www.rfc-editor.org/rfc/rfc3629.txt | |
Uncomment the 2 lines below to make them invalid, | |
codepoints: d800-dfff; UTF-8: \xed\xa0\x80-\xed\xbf\xbf. */ | |
if ((s[1] & 0xc0) != 0x80 || | |
(s[2] & 0xc0) != 0x80 || | |
((unsigned char)s[0] == 0xE0 && | |
(unsigned char)s[1] < 0xA0)/* || | |
((unsigned char)s[0] == 0xED && | |
(unsigned char)s[1] > 0x9F)*/) { | |
errmsg = "invalid continuation byte"; | |
startinpos = s-starts; | |
endinpos = startinpos + 1; | |
/* if s[1] first two bits are 1 and 0, then the invalid | |
continuation byte is s[2], so increment endinpos by 1, | |
if not, s[1] is invalid and endinpos doesn't need to | |
be incremented. */ | |
if ((s[1] & 0xC0) == 0x80) | |
endinpos++; | |
goto utf8Error; | |
} | |
ch = ((s[0] & 0x0f) << 12) + ((s[1] & 0x3f) << 6) + (s[2] & 0x3f); | |
assert ((ch > 0x07FF) && (ch <= 0xFFFF)); | |
*p++ = (Py_UNICODE)ch; | |
break; | |
case 4: | |
if ((s[1] & 0xc0) != 0x80 || | |
(s[2] & 0xc0) != 0x80 || | |
(s[3] & 0xc0) != 0x80 || | |
((unsigned char)s[0] == 0xF0 && | |
(unsigned char)s[1] < 0x90) || | |
((unsigned char)s[0] == 0xF4 && | |
(unsigned char)s[1] > 0x8F)) { | |
errmsg = "invalid continuation byte"; | |
startinpos = s-starts; | |
endinpos = startinpos + 1; | |
if ((s[1] & 0xC0) == 0x80) { | |
endinpos++; | |
if ((s[2] & 0xC0) == 0x80) | |
endinpos++; | |
} | |
goto utf8Error; | |
} | |
ch = ((s[0] & 0x7) << 18) + ((s[1] & 0x3f) << 12) + | |
((s[2] & 0x3f) << 6) + (s[3] & 0x3f); | |
assert ((ch > 0xFFFF) && (ch <= 0x10ffff)); | |
#ifdef Py_UNICODE_WIDE | |
*p++ = (Py_UNICODE)ch; | |
#else | |
/* compute and append the two surrogates: */ | |
/* translate from 10000..10FFFF to 0..FFFF */ | |
ch -= 0x10000; | |
/* high surrogate = top 10 bits added to D800 */ | |
*p++ = (Py_UNICODE)(0xD800 + (ch >> 10)); | |
/* low surrogate = bottom 10 bits added to DC00 */ | |
*p++ = (Py_UNICODE)(0xDC00 + (ch & 0x03FF)); | |
#endif | |
break; | |
} | |
s += n; | |
continue; | |
utf8Error: | |
outpos = p-PyUnicode_AS_UNICODE(unicode); | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"utf8", errmsg, | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&unicode, &outpos, &p)) | |
goto onError; | |
} | |
if (consumed) | |
*consumed = s-starts; | |
/* Adjust length */ | |
if (_PyUnicode_Resize(&unicode, p - unicode->str) < 0) | |
goto onError; | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return (PyObject *)unicode; | |
onError: | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
Py_DECREF(unicode); | |
return NULL; | |
} | |
/* Allocation strategy: if the string is short, convert into a stack buffer | |
and allocate exactly as much space needed at the end. Else allocate the | |
maximum possible needed (4 result bytes per Unicode character), and return | |
the excess memory at the end. | |
*/ | |
PyObject * | |
PyUnicode_EncodeUTF8(const Py_UNICODE *s, | |
Py_ssize_t size, | |
const char *errors) | |
{ | |
#define MAX_SHORT_UNICHARS 300 /* largest size we'll do on the stack */ | |
Py_ssize_t i; /* index into s of next input byte */ | |
PyObject *v; /* result string object */ | |
char *p; /* next free byte in output buffer */ | |
Py_ssize_t nallocated; /* number of result bytes allocated */ | |
Py_ssize_t nneeded; /* number of result bytes needed */ | |
char stackbuf[MAX_SHORT_UNICHARS * 4]; | |
assert(s != NULL); | |
assert(size >= 0); | |
if (size <= MAX_SHORT_UNICHARS) { | |
/* Write into the stack buffer; nallocated can't overflow. | |
* At the end, we'll allocate exactly as much heap space as it | |
* turns out we need. | |
*/ | |
nallocated = Py_SAFE_DOWNCAST(sizeof(stackbuf), size_t, int); | |
v = NULL; /* will allocate after we're done */ | |
p = stackbuf; | |
} | |
else { | |
/* Overallocate on the heap, and give the excess back at the end. */ | |
nallocated = size * 4; | |
if (nallocated / 4 != size) /* overflow! */ | |
return PyErr_NoMemory(); | |
v = PyString_FromStringAndSize(NULL, nallocated); | |
if (v == NULL) | |
return NULL; | |
p = PyString_AS_STRING(v); | |
} | |
for (i = 0; i < size;) { | |
Py_UCS4 ch = s[i++]; | |
if (ch < 0x80) | |
/* Encode ASCII */ | |
*p++ = (char) ch; | |
else if (ch < 0x0800) { | |
/* Encode Latin-1 */ | |
*p++ = (char)(0xc0 | (ch >> 6)); | |
*p++ = (char)(0x80 | (ch & 0x3f)); | |
} | |
else { | |
/* Encode UCS2 Unicode ordinals */ | |
if (ch < 0x10000) { | |
/* Special case: check for high surrogate */ | |
if (0xD800 <= ch && ch <= 0xDBFF && i != size) { | |
Py_UCS4 ch2 = s[i]; | |
/* Check for low surrogate and combine the two to | |
form a UCS4 value */ | |
if (0xDC00 <= ch2 && ch2 <= 0xDFFF) { | |
ch = ((ch - 0xD800) << 10 | (ch2 - 0xDC00)) + 0x10000; | |
i++; | |
goto encodeUCS4; | |
} | |
/* Fall through: handles isolated high surrogates */ | |
} | |
*p++ = (char)(0xe0 | (ch >> 12)); | |
*p++ = (char)(0x80 | ((ch >> 6) & 0x3f)); | |
*p++ = (char)(0x80 | (ch & 0x3f)); | |
continue; | |
} | |
encodeUCS4: | |
/* Encode UCS4 Unicode ordinals */ | |
*p++ = (char)(0xf0 | (ch >> 18)); | |
*p++ = (char)(0x80 | ((ch >> 12) & 0x3f)); | |
*p++ = (char)(0x80 | ((ch >> 6) & 0x3f)); | |
*p++ = (char)(0x80 | (ch & 0x3f)); | |
} | |
} | |
if (v == NULL) { | |
/* This was stack allocated. */ | |
nneeded = p - stackbuf; | |
assert(nneeded <= nallocated); | |
v = PyString_FromStringAndSize(stackbuf, nneeded); | |
} | |
else { | |
/* Cut back to size actually needed. */ | |
nneeded = p - PyString_AS_STRING(v); | |
assert(nneeded <= nallocated); | |
if (_PyString_Resize(&v, nneeded)) | |
return NULL; | |
} | |
return v; | |
#undef MAX_SHORT_UNICHARS | |
} | |
PyObject *PyUnicode_AsUTF8String(PyObject *unicode) | |
{ | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
return NULL; | |
} | |
return PyUnicode_EncodeUTF8(PyUnicode_AS_UNICODE(unicode), | |
PyUnicode_GET_SIZE(unicode), | |
NULL); | |
} | |
/* --- UTF-32 Codec ------------------------------------------------------- */ | |
PyObject * | |
PyUnicode_DecodeUTF32(const char *s, | |
Py_ssize_t size, | |
const char *errors, | |
int *byteorder) | |
{ | |
return PyUnicode_DecodeUTF32Stateful(s, size, errors, byteorder, NULL); | |
} | |
PyObject * | |
PyUnicode_DecodeUTF32Stateful(const char *s, | |
Py_ssize_t size, | |
const char *errors, | |
int *byteorder, | |
Py_ssize_t *consumed) | |
{ | |
const char *starts = s; | |
Py_ssize_t startinpos; | |
Py_ssize_t endinpos; | |
Py_ssize_t outpos; | |
PyUnicodeObject *unicode; | |
Py_UNICODE *p; | |
#ifndef Py_UNICODE_WIDE | |
int pairs = 0; | |
const unsigned char *qq; | |
#else | |
const int pairs = 0; | |
#endif | |
const unsigned char *q, *e; | |
int bo = 0; /* assume native ordering by default */ | |
const char *errmsg = ""; | |
/* Offsets from q for retrieving bytes in the right order. */ | |
#ifdef BYTEORDER_IS_LITTLE_ENDIAN | |
int iorder[] = {0, 1, 2, 3}; | |
#else | |
int iorder[] = {3, 2, 1, 0}; | |
#endif | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
q = (unsigned char *)s; | |
e = q + size; | |
if (byteorder) | |
bo = *byteorder; | |
/* Check for BOM marks (U+FEFF) in the input and adjust current | |
byte order setting accordingly. In native mode, the leading BOM | |
mark is skipped, in all other modes, it is copied to the output | |
stream as-is (giving a ZWNBSP character). */ | |
if (bo == 0) { | |
if (size >= 4) { | |
const Py_UCS4 bom = (q[iorder[3]] << 24) | (q[iorder[2]] << 16) | | |
(q[iorder[1]] << 8) | q[iorder[0]]; | |
#ifdef BYTEORDER_IS_LITTLE_ENDIAN | |
if (bom == 0x0000FEFF) { | |
q += 4; | |
bo = -1; | |
} | |
else if (bom == 0xFFFE0000) { | |
q += 4; | |
bo = 1; | |
} | |
#else | |
if (bom == 0x0000FEFF) { | |
q += 4; | |
bo = 1; | |
} | |
else if (bom == 0xFFFE0000) { | |
q += 4; | |
bo = -1; | |
} | |
#endif | |
} | |
} | |
if (bo == -1) { | |
/* force LE */ | |
iorder[0] = 0; | |
iorder[1] = 1; | |
iorder[2] = 2; | |
iorder[3] = 3; | |
} | |
else if (bo == 1) { | |
/* force BE */ | |
iorder[0] = 3; | |
iorder[1] = 2; | |
iorder[2] = 1; | |
iorder[3] = 0; | |
} | |
/* On narrow builds we split characters outside the BMP into two | |
codepoints => count how much extra space we need. */ | |
#ifndef Py_UNICODE_WIDE | |
for (qq = q; qq < e; qq += 4) | |
if (qq[iorder[2]] != 0 || qq[iorder[3]] != 0) | |
pairs++; | |
#endif | |
/* This might be one to much, because of a BOM */ | |
unicode = _PyUnicode_New((size+3)/4+pairs); | |
if (!unicode) | |
return NULL; | |
if (size == 0) | |
return (PyObject *)unicode; | |
/* Unpack UTF-32 encoded data */ | |
p = unicode->str; | |
while (q < e) { | |
Py_UCS4 ch; | |
/* remaining bytes at the end? (size should be divisible by 4) */ | |
if (e-q<4) { | |
if (consumed) | |
break; | |
errmsg = "truncated data"; | |
startinpos = ((const char *)q)-starts; | |
endinpos = ((const char *)e)-starts; | |
goto utf32Error; | |
/* The remaining input chars are ignored if the callback | |
chooses to skip the input */ | |
} | |
ch = (q[iorder[3]] << 24) | (q[iorder[2]] << 16) | | |
(q[iorder[1]] << 8) | q[iorder[0]]; | |
if (ch >= 0x110000) | |
{ | |
errmsg = "codepoint not in range(0x110000)"; | |
startinpos = ((const char *)q)-starts; | |
endinpos = startinpos+4; | |
goto utf32Error; | |
} | |
#ifndef Py_UNICODE_WIDE | |
if (ch >= 0x10000) | |
{ | |
*p++ = 0xD800 | ((ch-0x10000) >> 10); | |
*p++ = 0xDC00 | ((ch-0x10000) & 0x3FF); | |
} | |
else | |
#endif | |
*p++ = ch; | |
q += 4; | |
continue; | |
utf32Error: | |
outpos = p-PyUnicode_AS_UNICODE(unicode); | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"utf32", errmsg, | |
starts, size, &startinpos, &endinpos, &exc, (const char **)&q, | |
&unicode, &outpos, &p)) | |
goto onError; | |
} | |
if (byteorder) | |
*byteorder = bo; | |
if (consumed) | |
*consumed = (const char *)q-starts; | |
/* Adjust length */ | |
if (_PyUnicode_Resize(&unicode, p - unicode->str) < 0) | |
goto onError; | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return (PyObject *)unicode; | |
onError: | |
Py_DECREF(unicode); | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return NULL; | |
} | |
PyObject * | |
PyUnicode_EncodeUTF32(const Py_UNICODE *s, | |
Py_ssize_t size, | |
const char *errors, | |
int byteorder) | |
{ | |
PyObject *v; | |
unsigned char *p; | |
Py_ssize_t nsize, bytesize; | |
#ifndef Py_UNICODE_WIDE | |
Py_ssize_t i, pairs; | |
#else | |
const int pairs = 0; | |
#endif | |
/* Offsets from p for storing byte pairs in the right order. */ | |
#ifdef BYTEORDER_IS_LITTLE_ENDIAN | |
int iorder[] = {0, 1, 2, 3}; | |
#else | |
int iorder[] = {3, 2, 1, 0}; | |
#endif | |
#define STORECHAR(CH) \ | |
do { \ | |
p[iorder[3]] = ((CH) >> 24) & 0xff; \ | |
p[iorder[2]] = ((CH) >> 16) & 0xff; \ | |
p[iorder[1]] = ((CH) >> 8) & 0xff; \ | |
p[iorder[0]] = (CH) & 0xff; \ | |
p += 4; \ | |
} while(0) | |
/* In narrow builds we can output surrogate pairs as one codepoint, | |
so we need less space. */ | |
#ifndef Py_UNICODE_WIDE | |
for (i = pairs = 0; i < size-1; i++) | |
if (0xD800 <= s[i] && s[i] <= 0xDBFF && | |
0xDC00 <= s[i+1] && s[i+1] <= 0xDFFF) | |
pairs++; | |
#endif | |
nsize = (size - pairs + (byteorder == 0)); | |
bytesize = nsize * 4; | |
if (bytesize / 4 != nsize) | |
return PyErr_NoMemory(); | |
v = PyString_FromStringAndSize(NULL, bytesize); | |
if (v == NULL) | |
return NULL; | |
p = (unsigned char *)PyString_AS_STRING(v); | |
if (byteorder == 0) | |
STORECHAR(0xFEFF); | |
if (size == 0) | |
return v; | |
if (byteorder == -1) { | |
/* force LE */ | |
iorder[0] = 0; | |
iorder[1] = 1; | |
iorder[2] = 2; | |
iorder[3] = 3; | |
} | |
else if (byteorder == 1) { | |
/* force BE */ | |
iorder[0] = 3; | |
iorder[1] = 2; | |
iorder[2] = 1; | |
iorder[3] = 0; | |
} | |
while (size-- > 0) { | |
Py_UCS4 ch = *s++; | |
#ifndef Py_UNICODE_WIDE | |
if (0xD800 <= ch && ch <= 0xDBFF && size > 0) { | |
Py_UCS4 ch2 = *s; | |
if (0xDC00 <= ch2 && ch2 <= 0xDFFF) { | |
ch = (((ch & 0x3FF)<<10) | (ch2 & 0x3FF)) + 0x10000; | |
s++; | |
size--; | |
} | |
} | |
#endif | |
STORECHAR(ch); | |
} | |
return v; | |
#undef STORECHAR | |
} | |
PyObject *PyUnicode_AsUTF32String(PyObject *unicode) | |
{ | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
return NULL; | |
} | |
return PyUnicode_EncodeUTF32(PyUnicode_AS_UNICODE(unicode), | |
PyUnicode_GET_SIZE(unicode), | |
NULL, | |
0); | |
} | |
/* --- UTF-16 Codec ------------------------------------------------------- */ | |
PyObject * | |
PyUnicode_DecodeUTF16(const char *s, | |
Py_ssize_t size, | |
const char *errors, | |
int *byteorder) | |
{ | |
return PyUnicode_DecodeUTF16Stateful(s, size, errors, byteorder, NULL); | |
} | |
PyObject * | |
PyUnicode_DecodeUTF16Stateful(const char *s, | |
Py_ssize_t size, | |
const char *errors, | |
int *byteorder, | |
Py_ssize_t *consumed) | |
{ | |
const char *starts = s; | |
Py_ssize_t startinpos; | |
Py_ssize_t endinpos; | |
Py_ssize_t outpos; | |
PyUnicodeObject *unicode; | |
Py_UNICODE *p; | |
const unsigned char *q, *e; | |
int bo = 0; /* assume native ordering by default */ | |
const char *errmsg = ""; | |
/* Offsets from q for retrieving byte pairs in the right order. */ | |
#ifdef BYTEORDER_IS_LITTLE_ENDIAN | |
int ihi = 1, ilo = 0; | |
#else | |
int ihi = 0, ilo = 1; | |
#endif | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
/* Note: size will always be longer than the resulting Unicode | |
character count */ | |
unicode = _PyUnicode_New(size); | |
if (!unicode) | |
return NULL; | |
if (size == 0) | |
return (PyObject *)unicode; | |
/* Unpack UTF-16 encoded data */ | |
p = unicode->str; | |
q = (unsigned char *)s; | |
e = q + size; | |
if (byteorder) | |
bo = *byteorder; | |
/* Check for BOM marks (U+FEFF) in the input and adjust current | |
byte order setting accordingly. In native mode, the leading BOM | |
mark is skipped, in all other modes, it is copied to the output | |
stream as-is (giving a ZWNBSP character). */ | |
if (bo == 0) { | |
if (size >= 2) { | |
const Py_UNICODE bom = (q[ihi] << 8) | q[ilo]; | |
#ifdef BYTEORDER_IS_LITTLE_ENDIAN | |
if (bom == 0xFEFF) { | |
q += 2; | |
bo = -1; | |
} | |
else if (bom == 0xFFFE) { | |
q += 2; | |
bo = 1; | |
} | |
#else | |
if (bom == 0xFEFF) { | |
q += 2; | |
bo = 1; | |
} | |
else if (bom == 0xFFFE) { | |
q += 2; | |
bo = -1; | |
} | |
#endif | |
} | |
} | |
if (bo == -1) { | |
/* force LE */ | |
ihi = 1; | |
ilo = 0; | |
} | |
else if (bo == 1) { | |
/* force BE */ | |
ihi = 0; | |
ilo = 1; | |
} | |
while (q < e) { | |
Py_UNICODE ch; | |
/* remaining bytes at the end? (size should be even) */ | |
if (e-q<2) { | |
if (consumed) | |
break; | |
errmsg = "truncated data"; | |
startinpos = ((const char *)q)-starts; | |
endinpos = ((const char *)e)-starts; | |
goto utf16Error; | |
/* The remaining input chars are ignored if the callback | |
chooses to skip the input */ | |
} | |
ch = (q[ihi] << 8) | q[ilo]; | |
q += 2; | |
if (ch < 0xD800 || ch > 0xDFFF) { | |
*p++ = ch; | |
continue; | |
} | |
/* UTF-16 code pair: */ | |
if (q >= e) { | |
errmsg = "unexpected end of data"; | |
startinpos = (((const char *)q)-2)-starts; | |
endinpos = ((const char *)e)-starts; | |
goto utf16Error; | |
} | |
if (0xD800 <= ch && ch <= 0xDBFF) { | |
Py_UNICODE ch2 = (q[ihi] << 8) | q[ilo]; | |
q += 2; | |
if (0xDC00 <= ch2 && ch2 <= 0xDFFF) { | |
#ifndef Py_UNICODE_WIDE | |
*p++ = ch; | |
*p++ = ch2; | |
#else | |
*p++ = (((ch & 0x3FF)<<10) | (ch2 & 0x3FF)) + 0x10000; | |
#endif | |
continue; | |
} | |
else { | |
errmsg = "illegal UTF-16 surrogate"; | |
startinpos = (((const char *)q)-4)-starts; | |
endinpos = startinpos+2; | |
goto utf16Error; | |
} | |
} | |
errmsg = "illegal encoding"; | |
startinpos = (((const char *)q)-2)-starts; | |
endinpos = startinpos+2; | |
/* Fall through to report the error */ | |
utf16Error: | |
outpos = p-PyUnicode_AS_UNICODE(unicode); | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"utf16", errmsg, | |
starts, size, &startinpos, &endinpos, &exc, (const char **)&q, | |
&unicode, &outpos, &p)) | |
goto onError; | |
} | |
if (byteorder) | |
*byteorder = bo; | |
if (consumed) | |
*consumed = (const char *)q-starts; | |
/* Adjust length */ | |
if (_PyUnicode_Resize(&unicode, p - unicode->str) < 0) | |
goto onError; | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return (PyObject *)unicode; | |
onError: | |
Py_DECREF(unicode); | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return NULL; | |
} | |
PyObject * | |
PyUnicode_EncodeUTF16(const Py_UNICODE *s, | |
Py_ssize_t size, | |
const char *errors, | |
int byteorder) | |
{ | |
PyObject *v; | |
unsigned char *p; | |
Py_ssize_t nsize, bytesize; | |
#ifdef Py_UNICODE_WIDE | |
Py_ssize_t i, pairs; | |
#else | |
const int pairs = 0; | |
#endif | |
/* Offsets from p for storing byte pairs in the right order. */ | |
#ifdef BYTEORDER_IS_LITTLE_ENDIAN | |
int ihi = 1, ilo = 0; | |
#else | |
int ihi = 0, ilo = 1; | |
#endif | |
#define STORECHAR(CH) \ | |
do { \ | |
p[ihi] = ((CH) >> 8) & 0xff; \ | |
p[ilo] = (CH) & 0xff; \ | |
p += 2; \ | |
} while(0) | |
#ifdef Py_UNICODE_WIDE | |
for (i = pairs = 0; i < size; i++) | |
if (s[i] >= 0x10000) | |
pairs++; | |
#endif | |
/* 2 * (size + pairs + (byteorder == 0)) */ | |
if (size > PY_SSIZE_T_MAX || | |
size > PY_SSIZE_T_MAX - pairs - (byteorder == 0)) | |
return PyErr_NoMemory(); | |
nsize = size + pairs + (byteorder == 0); | |
bytesize = nsize * 2; | |
if (bytesize / 2 != nsize) | |
return PyErr_NoMemory(); | |
v = PyString_FromStringAndSize(NULL, bytesize); | |
if (v == NULL) | |
return NULL; | |
p = (unsigned char *)PyString_AS_STRING(v); | |
if (byteorder == 0) | |
STORECHAR(0xFEFF); | |
if (size == 0) | |
return v; | |
if (byteorder == -1) { | |
/* force LE */ | |
ihi = 1; | |
ilo = 0; | |
} | |
else if (byteorder == 1) { | |
/* force BE */ | |
ihi = 0; | |
ilo = 1; | |
} | |
while (size-- > 0) { | |
Py_UNICODE ch = *s++; | |
Py_UNICODE ch2 = 0; | |
#ifdef Py_UNICODE_WIDE | |
if (ch >= 0x10000) { | |
ch2 = 0xDC00 | ((ch-0x10000) & 0x3FF); | |
ch = 0xD800 | ((ch-0x10000) >> 10); | |
} | |
#endif | |
STORECHAR(ch); | |
if (ch2) | |
STORECHAR(ch2); | |
} | |
return v; | |
#undef STORECHAR | |
} | |
PyObject *PyUnicode_AsUTF16String(PyObject *unicode) | |
{ | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
return NULL; | |
} | |
return PyUnicode_EncodeUTF16(PyUnicode_AS_UNICODE(unicode), | |
PyUnicode_GET_SIZE(unicode), | |
NULL, | |
0); | |
} | |
/* --- Unicode Escape Codec ----------------------------------------------- */ | |
static _PyUnicode_Name_CAPI *ucnhash_CAPI = NULL; | |
PyObject *PyUnicode_DecodeUnicodeEscape(const char *s, | |
Py_ssize_t size, | |
const char *errors) | |
{ | |
const char *starts = s; | |
Py_ssize_t startinpos; | |
Py_ssize_t endinpos; | |
Py_ssize_t outpos; | |
int i; | |
PyUnicodeObject *v; | |
Py_UNICODE *p; | |
const char *end; | |
char* message; | |
Py_UCS4 chr = 0xffffffff; /* in case 'getcode' messes up */ | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
/* Escaped strings will always be longer than the resulting | |
Unicode string, so we start with size here and then reduce the | |
length after conversion to the true value. | |
(but if the error callback returns a long replacement string | |
we'll have to allocate more space) */ | |
v = _PyUnicode_New(size); | |
if (v == NULL) | |
goto onError; | |
if (size == 0) | |
return (PyObject *)v; | |
p = PyUnicode_AS_UNICODE(v); | |
end = s + size; | |
while (s < end) { | |
unsigned char c; | |
Py_UNICODE x; | |
int digits; | |
/* Non-escape characters are interpreted as Unicode ordinals */ | |
if (*s != '\\') { | |
*p++ = (unsigned char) *s++; | |
continue; | |
} | |
startinpos = s-starts; | |
/* \ - Escapes */ | |
s++; | |
c = *s++; | |
if (s > end) | |
c = '\0'; /* Invalid after \ */ | |
switch (c) { | |
/* \x escapes */ | |
case '\n': break; | |
case '\\': *p++ = '\\'; break; | |
case '\'': *p++ = '\''; break; | |
case '\"': *p++ = '\"'; break; | |
case 'b': *p++ = '\b'; break; | |
case 'f': *p++ = '\014'; break; /* FF */ | |
case 't': *p++ = '\t'; break; | |
case 'n': *p++ = '\n'; break; | |
case 'r': *p++ = '\r'; break; | |
case 'v': *p++ = '\013'; break; /* VT */ | |
case 'a': *p++ = '\007'; break; /* BEL, not classic C */ | |
/* \OOO (octal) escapes */ | |
case '0': case '1': case '2': case '3': | |
case '4': case '5': case '6': case '7': | |
x = s[-1] - '0'; | |
if (s < end && '0' <= *s && *s <= '7') { | |
x = (x<<3) + *s++ - '0'; | |
if (s < end && '0' <= *s && *s <= '7') | |
x = (x<<3) + *s++ - '0'; | |
} | |
*p++ = x; | |
break; | |
/* hex escapes */ | |
/* \xXX */ | |
case 'x': | |
digits = 2; | |
message = "truncated \\xXX escape"; | |
goto hexescape; | |
/* \uXXXX */ | |
case 'u': | |
digits = 4; | |
message = "truncated \\uXXXX escape"; | |
goto hexescape; | |
/* \UXXXXXXXX */ | |
case 'U': | |
digits = 8; | |
message = "truncated \\UXXXXXXXX escape"; | |
hexescape: | |
chr = 0; | |
outpos = p-PyUnicode_AS_UNICODE(v); | |
if (s+digits>end) { | |
endinpos = size; | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"unicodeescape", "end of string in escape sequence", | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&v, &outpos, &p)) | |
goto onError; | |
goto nextByte; | |
} | |
for (i = 0; i < digits; ++i) { | |
c = (unsigned char) s[i]; | |
if (!isxdigit(c)) { | |
endinpos = (s+i+1)-starts; | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"unicodeescape", message, | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&v, &outpos, &p)) | |
goto onError; | |
goto nextByte; | |
} | |
chr = (chr<<4) & ~0xF; | |
if (c >= '0' && c <= '9') | |
chr += c - '0'; | |
else if (c >= 'a' && c <= 'f') | |
chr += 10 + c - 'a'; | |
else | |
chr += 10 + c - 'A'; | |
} | |
s += i; | |
if (chr == 0xffffffff && PyErr_Occurred()) | |
/* _decoding_error will have already written into the | |
target buffer. */ | |
break; | |
store: | |
/* when we get here, chr is a 32-bit unicode character */ | |
if (chr <= 0xffff) | |
/* UCS-2 character */ | |
*p++ = (Py_UNICODE) chr; | |
else if (chr <= 0x10ffff) { | |
/* UCS-4 character. Either store directly, or as | |
surrogate pair. */ | |
#ifdef Py_UNICODE_WIDE | |
*p++ = chr; | |
#else | |
chr -= 0x10000L; | |
*p++ = 0xD800 + (Py_UNICODE) (chr >> 10); | |
*p++ = 0xDC00 + (Py_UNICODE) (chr & 0x03FF); | |
#endif | |
} else { | |
endinpos = s-starts; | |
outpos = p-PyUnicode_AS_UNICODE(v); | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"unicodeescape", "illegal Unicode character", | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&v, &outpos, &p)) | |
goto onError; | |
} | |
break; | |
/* \N{name} */ | |
case 'N': | |
message = "malformed \\N character escape"; | |
if (ucnhash_CAPI == NULL) { | |
/* load the unicode data module */ | |
ucnhash_CAPI = (_PyUnicode_Name_CAPI *)PyCapsule_Import(PyUnicodeData_CAPSULE_NAME, 1); | |
if (ucnhash_CAPI == NULL) | |
goto ucnhashError; | |
} | |
if (*s == '{') { | |
const char *start = s+1; | |
/* look for the closing brace */ | |
while (*s != '}' && s < end) | |
s++; | |
if (s > start && s < end && *s == '}') { | |
/* found a name. look it up in the unicode database */ | |
message = "unknown Unicode character name"; | |
s++; | |
if (ucnhash_CAPI->getcode(NULL, start, (int)(s-start-1), &chr)) | |
goto store; | |
} | |
} | |
endinpos = s-starts; | |
outpos = p-PyUnicode_AS_UNICODE(v); | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"unicodeescape", message, | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&v, &outpos, &p)) | |
goto onError; | |
break; | |
default: | |
if (s > end) { | |
message = "\\ at end of string"; | |
s--; | |
endinpos = s-starts; | |
outpos = p-PyUnicode_AS_UNICODE(v); | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"unicodeescape", message, | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&v, &outpos, &p)) | |
goto onError; | |
} | |
else { | |
*p++ = '\\'; | |
*p++ = (unsigned char)s[-1]; | |
} | |
break; | |
} | |
nextByte: | |
; | |
} | |
if (_PyUnicode_Resize(&v, p - PyUnicode_AS_UNICODE(v)) < 0) | |
goto onError; | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return (PyObject *)v; | |
ucnhashError: | |
PyErr_SetString( | |
PyExc_UnicodeError, | |
"\\N escapes not supported (can't load unicodedata module)" | |
); | |
Py_XDECREF(v); | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return NULL; | |
onError: | |
Py_XDECREF(v); | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return NULL; | |
} | |
/* Return a Unicode-Escape string version of the Unicode object. | |
If quotes is true, the string is enclosed in u"" or u'' quotes as | |
appropriate. | |
*/ | |
Py_LOCAL_INLINE(const Py_UNICODE *) findchar(const Py_UNICODE *s, | |
Py_ssize_t size, | |
Py_UNICODE ch) | |
{ | |
/* like wcschr, but doesn't stop at NULL characters */ | |
while (size-- > 0) { | |
if (*s == ch) | |
return s; | |
s++; | |
} | |
return NULL; | |
} | |
static | |
PyObject *unicodeescape_string(const Py_UNICODE *s, | |
Py_ssize_t size, | |
int quotes) | |
{ | |
PyObject *repr; | |
char *p; | |
static const char *hexdigit = "0123456789abcdef"; | |
#ifdef Py_UNICODE_WIDE | |
const Py_ssize_t expandsize = 10; | |
#else | |
const Py_ssize_t expandsize = 6; | |
#endif | |
/* XXX(nnorwitz): rather than over-allocating, it would be | |
better to choose a different scheme. Perhaps scan the | |
first N-chars of the string and allocate based on that size. | |
*/ | |
/* Initial allocation is based on the longest-possible unichr | |
escape. | |
In wide (UTF-32) builds '\U00xxxxxx' is 10 chars per source | |
unichr, so in this case it's the longest unichr escape. In | |
narrow (UTF-16) builds this is five chars per source unichr | |
since there are two unichrs in the surrogate pair, so in narrow | |
(UTF-16) builds it's not the longest unichr escape. | |
In wide or narrow builds '\uxxxx' is 6 chars per source unichr, | |
so in the narrow (UTF-16) build case it's the longest unichr | |
escape. | |
*/ | |
if (size > (PY_SSIZE_T_MAX - 2 - 1) / expandsize) | |
return PyErr_NoMemory(); | |
repr = PyString_FromStringAndSize(NULL, | |
2 | |
+ expandsize*size | |
+ 1); | |
if (repr == NULL) | |
return NULL; | |
p = PyString_AS_STRING(repr); | |
if (quotes) { | |
*p++ = 'u'; | |
*p++ = (findchar(s, size, '\'') && | |
!findchar(s, size, '"')) ? '"' : '\''; | |
} | |
while (size-- > 0) { | |
Py_UNICODE ch = *s++; | |
/* Escape quotes and backslashes */ | |
if ((quotes && | |
ch == (Py_UNICODE) PyString_AS_STRING(repr)[1]) || ch == '\\') { | |
*p++ = '\\'; | |
*p++ = (char) ch; | |
continue; | |
} | |
#ifdef Py_UNICODE_WIDE | |
/* Map 21-bit characters to '\U00xxxxxx' */ | |
else if (ch >= 0x10000) { | |
*p++ = '\\'; | |
*p++ = 'U'; | |
*p++ = hexdigit[(ch >> 28) & 0x0000000F]; | |
*p++ = hexdigit[(ch >> 24) & 0x0000000F]; | |
*p++ = hexdigit[(ch >> 20) & 0x0000000F]; | |
*p++ = hexdigit[(ch >> 16) & 0x0000000F]; | |
*p++ = hexdigit[(ch >> 12) & 0x0000000F]; | |
*p++ = hexdigit[(ch >> 8) & 0x0000000F]; | |
*p++ = hexdigit[(ch >> 4) & 0x0000000F]; | |
*p++ = hexdigit[ch & 0x0000000F]; | |
continue; | |
} | |
#else | |
/* Map UTF-16 surrogate pairs to '\U00xxxxxx' */ | |
else if (ch >= 0xD800 && ch < 0xDC00) { | |
Py_UNICODE ch2; | |
Py_UCS4 ucs; | |
ch2 = *s++; | |
size--; | |
if (ch2 >= 0xDC00 && ch2 <= 0xDFFF) { | |
ucs = (((ch & 0x03FF) << 10) | (ch2 & 0x03FF)) + 0x00010000; | |
*p++ = '\\'; | |
*p++ = 'U'; | |
*p++ = hexdigit[(ucs >> 28) & 0x0000000F]; | |
*p++ = hexdigit[(ucs >> 24) & 0x0000000F]; | |
*p++ = hexdigit[(ucs >> 20) & 0x0000000F]; | |
*p++ = hexdigit[(ucs >> 16) & 0x0000000F]; | |
*p++ = hexdigit[(ucs >> 12) & 0x0000000F]; | |
*p++ = hexdigit[(ucs >> 8) & 0x0000000F]; | |
*p++ = hexdigit[(ucs >> 4) & 0x0000000F]; | |
*p++ = hexdigit[ucs & 0x0000000F]; | |
continue; | |
} | |
/* Fall through: isolated surrogates are copied as-is */ | |
s--; | |
size++; | |
} | |
#endif | |
/* Map 16-bit characters to '\uxxxx' */ | |
if (ch >= 256) { | |
*p++ = '\\'; | |
*p++ = 'u'; | |
*p++ = hexdigit[(ch >> 12) & 0x000F]; | |
*p++ = hexdigit[(ch >> 8) & 0x000F]; | |
*p++ = hexdigit[(ch >> 4) & 0x000F]; | |
*p++ = hexdigit[ch & 0x000F]; | |
} | |
/* Map special whitespace to '\t', \n', '\r' */ | |
else if (ch == '\t') { | |
*p++ = '\\'; | |
*p++ = 't'; | |
} | |
else if (ch == '\n') { | |
*p++ = '\\'; | |
*p++ = 'n'; | |
} | |
else if (ch == '\r') { | |
*p++ = '\\'; | |
*p++ = 'r'; | |
} | |
/* Map non-printable US ASCII to '\xhh' */ | |
else if (ch < ' ' || ch >= 0x7F) { | |
*p++ = '\\'; | |
*p++ = 'x'; | |
*p++ = hexdigit[(ch >> 4) & 0x000F]; | |
*p++ = hexdigit[ch & 0x000F]; | |
} | |
/* Copy everything else as-is */ | |
else | |
*p++ = (char) ch; | |
} | |
if (quotes) | |
*p++ = PyString_AS_STRING(repr)[1]; | |
*p = '\0'; | |
if (_PyString_Resize(&repr, p - PyString_AS_STRING(repr))) | |
return NULL; | |
return repr; | |
} | |
PyObject *PyUnicode_EncodeUnicodeEscape(const Py_UNICODE *s, | |
Py_ssize_t size) | |
{ | |
return unicodeescape_string(s, size, 0); | |
} | |
PyObject *PyUnicode_AsUnicodeEscapeString(PyObject *unicode) | |
{ | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
return NULL; | |
} | |
return PyUnicode_EncodeUnicodeEscape(PyUnicode_AS_UNICODE(unicode), | |
PyUnicode_GET_SIZE(unicode)); | |
} | |
/* --- Raw Unicode Escape Codec ------------------------------------------- */ | |
PyObject *PyUnicode_DecodeRawUnicodeEscape(const char *s, | |
Py_ssize_t size, | |
const char *errors) | |
{ | |
const char *starts = s; | |
Py_ssize_t startinpos; | |
Py_ssize_t endinpos; | |
Py_ssize_t outpos; | |
PyUnicodeObject *v; | |
Py_UNICODE *p; | |
const char *end; | |
const char *bs; | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
/* Escaped strings will always be longer than the resulting | |
Unicode string, so we start with size here and then reduce the | |
length after conversion to the true value. (But decoding error | |
handler might have to resize the string) */ | |
v = _PyUnicode_New(size); | |
if (v == NULL) | |
goto onError; | |
if (size == 0) | |
return (PyObject *)v; | |
p = PyUnicode_AS_UNICODE(v); | |
end = s + size; | |
while (s < end) { | |
unsigned char c; | |
Py_UCS4 x; | |
int i; | |
int count; | |
/* Non-escape characters are interpreted as Unicode ordinals */ | |
if (*s != '\\') { | |
*p++ = (unsigned char)*s++; | |
continue; | |
} | |
startinpos = s-starts; | |
/* \u-escapes are only interpreted iff the number of leading | |
backslashes if odd */ | |
bs = s; | |
for (;s < end;) { | |
if (*s != '\\') | |
break; | |
*p++ = (unsigned char)*s++; | |
} | |
if (((s - bs) & 1) == 0 || | |
s >= end || | |
(*s != 'u' && *s != 'U')) { | |
continue; | |
} | |
p--; | |
count = *s=='u' ? 4 : 8; | |
s++; | |
/* \uXXXX with 4 hex digits, \Uxxxxxxxx with 8 */ | |
outpos = p-PyUnicode_AS_UNICODE(v); | |
for (x = 0, i = 0; i < count; ++i, ++s) { | |
c = (unsigned char)*s; | |
if (!isxdigit(c)) { | |
endinpos = s-starts; | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"rawunicodeescape", "truncated \\uXXXX", | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&v, &outpos, &p)) | |
goto onError; | |
goto nextByte; | |
} | |
x = (x<<4) & ~0xF; | |
if (c >= '0' && c <= '9') | |
x += c - '0'; | |
else if (c >= 'a' && c <= 'f') | |
x += 10 + c - 'a'; | |
else | |
x += 10 + c - 'A'; | |
} | |
if (x <= 0xffff) | |
/* UCS-2 character */ | |
*p++ = (Py_UNICODE) x; | |
else if (x <= 0x10ffff) { | |
/* UCS-4 character. Either store directly, or as | |
surrogate pair. */ | |
#ifdef Py_UNICODE_WIDE | |
*p++ = (Py_UNICODE) x; | |
#else | |
x -= 0x10000L; | |
*p++ = 0xD800 + (Py_UNICODE) (x >> 10); | |
*p++ = 0xDC00 + (Py_UNICODE) (x & 0x03FF); | |
#endif | |
} else { | |
endinpos = s-starts; | |
outpos = p-PyUnicode_AS_UNICODE(v); | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"rawunicodeescape", "\\Uxxxxxxxx out of range", | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&v, &outpos, &p)) | |
goto onError; | |
} | |
nextByte: | |
; | |
} | |
if (_PyUnicode_Resize(&v, p - PyUnicode_AS_UNICODE(v)) < 0) | |
goto onError; | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return (PyObject *)v; | |
onError: | |
Py_XDECREF(v); | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return NULL; | |
} | |
PyObject *PyUnicode_EncodeRawUnicodeEscape(const Py_UNICODE *s, | |
Py_ssize_t size) | |
{ | |
PyObject *repr; | |
char *p; | |
char *q; | |
static const char *hexdigit = "0123456789abcdef"; | |
#ifdef Py_UNICODE_WIDE | |
const Py_ssize_t expandsize = 10; | |
#else | |
const Py_ssize_t expandsize = 6; | |
#endif | |
if (size > PY_SSIZE_T_MAX / expandsize) | |
return PyErr_NoMemory(); | |
repr = PyString_FromStringAndSize(NULL, expandsize * size); | |
if (repr == NULL) | |
return NULL; | |
if (size == 0) | |
return repr; | |
p = q = PyString_AS_STRING(repr); | |
while (size-- > 0) { | |
Py_UNICODE ch = *s++; | |
#ifdef Py_UNICODE_WIDE | |
/* Map 32-bit characters to '\Uxxxxxxxx' */ | |
if (ch >= 0x10000) { | |
*p++ = '\\'; | |
*p++ = 'U'; | |
*p++ = hexdigit[(ch >> 28) & 0xf]; | |
*p++ = hexdigit[(ch >> 24) & 0xf]; | |
*p++ = hexdigit[(ch >> 20) & 0xf]; | |
*p++ = hexdigit[(ch >> 16) & 0xf]; | |
*p++ = hexdigit[(ch >> 12) & 0xf]; | |
*p++ = hexdigit[(ch >> 8) & 0xf]; | |
*p++ = hexdigit[(ch >> 4) & 0xf]; | |
*p++ = hexdigit[ch & 15]; | |
} | |
else | |
#else | |
/* Map UTF-16 surrogate pairs to '\U00xxxxxx' */ | |
if (ch >= 0xD800 && ch < 0xDC00) { | |
Py_UNICODE ch2; | |
Py_UCS4 ucs; | |
ch2 = *s++; | |
size--; | |
if (ch2 >= 0xDC00 && ch2 <= 0xDFFF) { | |
ucs = (((ch & 0x03FF) << 10) | (ch2 & 0x03FF)) + 0x00010000; | |
*p++ = '\\'; | |
*p++ = 'U'; | |
*p++ = hexdigit[(ucs >> 28) & 0xf]; | |
*p++ = hexdigit[(ucs >> 24) & 0xf]; | |
*p++ = hexdigit[(ucs >> 20) & 0xf]; | |
*p++ = hexdigit[(ucs >> 16) & 0xf]; | |
*p++ = hexdigit[(ucs >> 12) & 0xf]; | |
*p++ = hexdigit[(ucs >> 8) & 0xf]; | |
*p++ = hexdigit[(ucs >> 4) & 0xf]; | |
*p++ = hexdigit[ucs & 0xf]; | |
continue; | |
} | |
/* Fall through: isolated surrogates are copied as-is */ | |
s--; | |
size++; | |
} | |
#endif | |
/* Map 16-bit characters to '\uxxxx' */ | |
if (ch >= 256) { | |
*p++ = '\\'; | |
*p++ = 'u'; | |
*p++ = hexdigit[(ch >> 12) & 0xf]; | |
*p++ = hexdigit[(ch >> 8) & 0xf]; | |
*p++ = hexdigit[(ch >> 4) & 0xf]; | |
*p++ = hexdigit[ch & 15]; | |
} | |
/* Copy everything else as-is */ | |
else | |
*p++ = (char) ch; | |
} | |
*p = '\0'; | |
if (_PyString_Resize(&repr, p - q)) | |
return NULL; | |
return repr; | |
} | |
PyObject *PyUnicode_AsRawUnicodeEscapeString(PyObject *unicode) | |
{ | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
return NULL; | |
} | |
return PyUnicode_EncodeRawUnicodeEscape(PyUnicode_AS_UNICODE(unicode), | |
PyUnicode_GET_SIZE(unicode)); | |
} | |
/* --- Unicode Internal Codec ------------------------------------------- */ | |
PyObject *_PyUnicode_DecodeUnicodeInternal(const char *s, | |
Py_ssize_t size, | |
const char *errors) | |
{ | |
const char *starts = s; | |
Py_ssize_t startinpos; | |
Py_ssize_t endinpos; | |
Py_ssize_t outpos; | |
PyUnicodeObject *v; | |
Py_UNICODE *p; | |
const char *end; | |
const char *reason; | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
#ifdef Py_UNICODE_WIDE | |
Py_UNICODE unimax = PyUnicode_GetMax(); | |
#endif | |
/* XXX overflow detection missing */ | |
v = _PyUnicode_New((size+Py_UNICODE_SIZE-1)/ Py_UNICODE_SIZE); | |
if (v == NULL) | |
goto onError; | |
if (PyUnicode_GetSize((PyObject *)v) == 0) | |
return (PyObject *)v; | |
p = PyUnicode_AS_UNICODE(v); | |
end = s + size; | |
while (s < end) { | |
memcpy(p, s, sizeof(Py_UNICODE)); | |
/* We have to sanity check the raw data, otherwise doom looms for | |
some malformed UCS-4 data. */ | |
if ( | |
#ifdef Py_UNICODE_WIDE | |
*p > unimax || *p < 0 || | |
#endif | |
end-s < Py_UNICODE_SIZE | |
) | |
{ | |
startinpos = s - starts; | |
if (end-s < Py_UNICODE_SIZE) { | |
endinpos = end-starts; | |
reason = "truncated input"; | |
} | |
else { | |
endinpos = s - starts + Py_UNICODE_SIZE; | |
reason = "illegal code point (> 0x10FFFF)"; | |
} | |
outpos = p - PyUnicode_AS_UNICODE(v); | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"unicode_internal", reason, | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&v, &outpos, &p)) { | |
goto onError; | |
} | |
} | |
else { | |
p++; | |
s += Py_UNICODE_SIZE; | |
} | |
} | |
if (_PyUnicode_Resize(&v, p - PyUnicode_AS_UNICODE(v)) < 0) | |
goto onError; | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return (PyObject *)v; | |
onError: | |
Py_XDECREF(v); | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return NULL; | |
} | |
/* --- Latin-1 Codec ------------------------------------------------------ */ | |
PyObject *PyUnicode_DecodeLatin1(const char *s, | |
Py_ssize_t size, | |
const char *errors) | |
{ | |
PyUnicodeObject *v; | |
Py_UNICODE *p; | |
/* Latin-1 is equivalent to the first 256 ordinals in Unicode. */ | |
if (size == 1) { | |
Py_UNICODE r = *(unsigned char*)s; | |
return PyUnicode_FromUnicode(&r, 1); | |
} | |
v = _PyUnicode_New(size); | |
if (v == NULL) | |
goto onError; | |
if (size == 0) | |
return (PyObject *)v; | |
p = PyUnicode_AS_UNICODE(v); | |
while (size-- > 0) | |
*p++ = (unsigned char)*s++; | |
return (PyObject *)v; | |
onError: | |
Py_XDECREF(v); | |
return NULL; | |
} | |
/* create or adjust a UnicodeEncodeError */ | |
static void make_encode_exception(PyObject **exceptionObject, | |
const char *encoding, | |
const Py_UNICODE *unicode, Py_ssize_t size, | |
Py_ssize_t startpos, Py_ssize_t endpos, | |
const char *reason) | |
{ | |
if (*exceptionObject == NULL) { | |
*exceptionObject = PyUnicodeEncodeError_Create( | |
encoding, unicode, size, startpos, endpos, reason); | |
} | |
else { | |
if (PyUnicodeEncodeError_SetStart(*exceptionObject, startpos)) | |
goto onError; | |
if (PyUnicodeEncodeError_SetEnd(*exceptionObject, endpos)) | |
goto onError; | |
if (PyUnicodeEncodeError_SetReason(*exceptionObject, reason)) | |
goto onError; | |
return; | |
onError: | |
Py_DECREF(*exceptionObject); | |
*exceptionObject = NULL; | |
} | |
} | |
/* raises a UnicodeEncodeError */ | |
static void raise_encode_exception(PyObject **exceptionObject, | |
const char *encoding, | |
const Py_UNICODE *unicode, Py_ssize_t size, | |
Py_ssize_t startpos, Py_ssize_t endpos, | |
const char *reason) | |
{ | |
make_encode_exception(exceptionObject, | |
encoding, unicode, size, startpos, endpos, reason); | |
if (*exceptionObject != NULL) | |
PyCodec_StrictErrors(*exceptionObject); | |
} | |
/* error handling callback helper: | |
build arguments, call the callback and check the arguments, | |
put the result into newpos and return the replacement string, which | |
has to be freed by the caller */ | |
static PyObject *unicode_encode_call_errorhandler(const char *errors, | |
PyObject **errorHandler, | |
const char *encoding, const char *reason, | |
const Py_UNICODE *unicode, Py_ssize_t size, PyObject **exceptionObject, | |
Py_ssize_t startpos, Py_ssize_t endpos, | |
Py_ssize_t *newpos) | |
{ | |
static char *argparse = "O!n;encoding error handler must return (unicode, int) tuple"; | |
PyObject *restuple; | |
PyObject *resunicode; | |
if (*errorHandler == NULL) { | |
*errorHandler = PyCodec_LookupError(errors); | |
if (*errorHandler == NULL) | |
return NULL; | |
} | |
make_encode_exception(exceptionObject, | |
encoding, unicode, size, startpos, endpos, reason); | |
if (*exceptionObject == NULL) | |
return NULL; | |
restuple = PyObject_CallFunctionObjArgs( | |
*errorHandler, *exceptionObject, NULL); | |
if (restuple == NULL) | |
return NULL; | |
if (!PyTuple_Check(restuple)) { | |
PyErr_SetString(PyExc_TypeError, &argparse[4]); | |
Py_DECREF(restuple); | |
return NULL; | |
} | |
if (!PyArg_ParseTuple(restuple, argparse, &PyUnicode_Type, | |
&resunicode, newpos)) { | |
Py_DECREF(restuple); | |
return NULL; | |
} | |
if (*newpos<0) | |
*newpos = size+*newpos; | |
if (*newpos<0 || *newpos>size) { | |
PyErr_Format(PyExc_IndexError, "position %zd from error handler out of bounds", *newpos); | |
Py_DECREF(restuple); | |
return NULL; | |
} | |
Py_INCREF(resunicode); | |
Py_DECREF(restuple); | |
return resunicode; | |
} | |
static PyObject *unicode_encode_ucs1(const Py_UNICODE *p, | |
Py_ssize_t size, | |
const char *errors, | |
int limit) | |
{ | |
/* output object */ | |
PyObject *res; | |
/* pointers to the beginning and end+1 of input */ | |
const Py_UNICODE *startp = p; | |
const Py_UNICODE *endp = p + size; | |
/* pointer to the beginning of the unencodable characters */ | |
/* const Py_UNICODE *badp = NULL; */ | |
/* pointer into the output */ | |
char *str; | |
/* current output position */ | |
Py_ssize_t respos = 0; | |
Py_ssize_t ressize; | |
const char *encoding = (limit == 256) ? "latin-1" : "ascii"; | |
const char *reason = (limit == 256) ? "ordinal not in range(256)" : "ordinal not in range(128)"; | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
/* the following variable is used for caching string comparisons | |
* -1=not initialized, 0=unknown, 1=strict, 2=replace, 3=ignore, 4=xmlcharrefreplace */ | |
int known_errorHandler = -1; | |
/* allocate enough for a simple encoding without | |
replacements, if we need more, we'll resize */ | |
res = PyString_FromStringAndSize(NULL, size); | |
if (res == NULL) | |
goto onError; | |
if (size == 0) | |
return res; | |
str = PyString_AS_STRING(res); | |
ressize = size; | |
while (p<endp) { | |
Py_UNICODE c = *p; | |
/* can we encode this? */ | |
if (c<limit) { | |
/* no overflow check, because we know that the space is enough */ | |
*str++ = (char)c; | |
++p; | |
} | |
else { | |
Py_ssize_t unicodepos = p-startp; | |
Py_ssize_t requiredsize; | |
PyObject *repunicode; | |
Py_ssize_t repsize; | |
Py_ssize_t newpos; | |
Py_ssize_t respos; | |
Py_UNICODE *uni2; | |
/* startpos for collecting unencodable chars */ | |
const Py_UNICODE *collstart = p; | |
const Py_UNICODE *collend = p; | |
/* find all unecodable characters */ | |
while ((collend < endp) && ((*collend)>=limit)) | |
++collend; | |
/* cache callback name lookup (if not done yet, i.e. it's the first error) */ | |
if (known_errorHandler==-1) { | |
if ((errors==NULL) || (!strcmp(errors, "strict"))) | |
known_errorHandler = 1; | |
else if (!strcmp(errors, "replace")) | |
known_errorHandler = 2; | |
else if (!strcmp(errors, "ignore")) | |
known_errorHandler = 3; | |
else if (!strcmp(errors, "xmlcharrefreplace")) | |
known_errorHandler = 4; | |
else | |
known_errorHandler = 0; | |
} | |
switch (known_errorHandler) { | |
case 1: /* strict */ | |
raise_encode_exception(&exc, encoding, startp, size, collstart-startp, collend-startp, reason); | |
goto onError; | |
case 2: /* replace */ | |
while (collstart++<collend) | |
*str++ = '?'; /* fall through */ | |
case 3: /* ignore */ | |
p = collend; | |
break; | |
case 4: /* xmlcharrefreplace */ | |
respos = str-PyString_AS_STRING(res); | |
/* determine replacement size (temporarily (mis)uses p) */ | |
for (p = collstart, repsize = 0; p < collend; ++p) { | |
if (*p<10) | |
repsize += 2+1+1; | |
else if (*p<100) | |
repsize += 2+2+1; | |
else if (*p<1000) | |
repsize += 2+3+1; | |
else if (*p<10000) | |
repsize += 2+4+1; | |
#ifndef Py_UNICODE_WIDE | |
else | |
repsize += 2+5+1; | |
#else | |
else if (*p<100000) | |
repsize += 2+5+1; | |
else if (*p<1000000) | |
repsize += 2+6+1; | |
else | |
repsize += 2+7+1; | |
#endif | |
} | |
requiredsize = respos+repsize+(endp-collend); | |
if (requiredsize > ressize) { | |
if (requiredsize<2*ressize) | |
requiredsize = 2*ressize; | |
if (_PyString_Resize(&res, requiredsize)) | |
goto onError; | |
str = PyString_AS_STRING(res) + respos; | |
ressize = requiredsize; | |
} | |
/* generate replacement (temporarily (mis)uses p) */ | |
for (p = collstart; p < collend; ++p) { | |
str += sprintf(str, "&#%d;", (int)*p); | |
} | |
p = collend; | |
break; | |
default: | |
repunicode = unicode_encode_call_errorhandler(errors, &errorHandler, | |
encoding, reason, startp, size, &exc, | |
collstart-startp, collend-startp, &newpos); | |
if (repunicode == NULL) | |
goto onError; | |
/* need more space? (at least enough for what we have+the | |
replacement+the rest of the string, so we won't have to | |
check space for encodable characters) */ | |
respos = str-PyString_AS_STRING(res); | |
repsize = PyUnicode_GET_SIZE(repunicode); | |
requiredsize = respos+repsize+(endp-collend); | |
if (requiredsize > ressize) { | |
if (requiredsize<2*ressize) | |
requiredsize = 2*ressize; | |
if (_PyString_Resize(&res, requiredsize)) { | |
Py_DECREF(repunicode); | |
goto onError; | |
} | |
str = PyString_AS_STRING(res) + respos; | |
ressize = requiredsize; | |
} | |
/* check if there is anything unencodable in the replacement | |
and copy it to the output */ | |
for (uni2 = PyUnicode_AS_UNICODE(repunicode);repsize-->0; ++uni2, ++str) { | |
c = *uni2; | |
if (c >= limit) { | |
raise_encode_exception(&exc, encoding, startp, size, | |
unicodepos, unicodepos+1, reason); | |
Py_DECREF(repunicode); | |
goto onError; | |
} | |
*str = (char)c; | |
} | |
p = startp + newpos; | |
Py_DECREF(repunicode); | |
} | |
} | |
} | |
/* Resize if we allocated to much */ | |
respos = str-PyString_AS_STRING(res); | |
if (respos<ressize) | |
/* If this falls res will be NULL */ | |
_PyString_Resize(&res, respos); | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return res; | |
onError: | |
Py_XDECREF(res); | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return NULL; | |
} | |
PyObject *PyUnicode_EncodeLatin1(const Py_UNICODE *p, | |
Py_ssize_t size, | |
const char *errors) | |
{ | |
return unicode_encode_ucs1(p, size, errors, 256); | |
} | |
PyObject *PyUnicode_AsLatin1String(PyObject *unicode) | |
{ | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
return NULL; | |
} | |
return PyUnicode_EncodeLatin1(PyUnicode_AS_UNICODE(unicode), | |
PyUnicode_GET_SIZE(unicode), | |
NULL); | |
} | |
/* --- 7-bit ASCII Codec -------------------------------------------------- */ | |
PyObject *PyUnicode_DecodeASCII(const char *s, | |
Py_ssize_t size, | |
const char *errors) | |
{ | |
const char *starts = s; | |
PyUnicodeObject *v; | |
Py_UNICODE *p; | |
Py_ssize_t startinpos; | |
Py_ssize_t endinpos; | |
Py_ssize_t outpos; | |
const char *e; | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
/* ASCII is equivalent to the first 128 ordinals in Unicode. */ | |
if (size == 1 && *(unsigned char*)s < 128) { | |
Py_UNICODE r = *(unsigned char*)s; | |
return PyUnicode_FromUnicode(&r, 1); | |
} | |
v = _PyUnicode_New(size); | |
if (v == NULL) | |
goto onError; | |
if (size == 0) | |
return (PyObject *)v; | |
p = PyUnicode_AS_UNICODE(v); | |
e = s + size; | |
while (s < e) { | |
register unsigned char c = (unsigned char)*s; | |
if (c < 128) { | |
*p++ = c; | |
++s; | |
} | |
else { | |
startinpos = s-starts; | |
endinpos = startinpos + 1; | |
outpos = p - (Py_UNICODE *)PyUnicode_AS_UNICODE(v); | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"ascii", "ordinal not in range(128)", | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&v, &outpos, &p)) | |
goto onError; | |
} | |
} | |
if (p - PyUnicode_AS_UNICODE(v) < PyString_GET_SIZE(v)) | |
if (_PyUnicode_Resize(&v, p - PyUnicode_AS_UNICODE(v)) < 0) | |
goto onError; | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return (PyObject *)v; | |
onError: | |
Py_XDECREF(v); | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return NULL; | |
} | |
PyObject *PyUnicode_EncodeASCII(const Py_UNICODE *p, | |
Py_ssize_t size, | |
const char *errors) | |
{ | |
return unicode_encode_ucs1(p, size, errors, 128); | |
} | |
PyObject *PyUnicode_AsASCIIString(PyObject *unicode) | |
{ | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
return NULL; | |
} | |
return PyUnicode_EncodeASCII(PyUnicode_AS_UNICODE(unicode), | |
PyUnicode_GET_SIZE(unicode), | |
NULL); | |
} | |
#if defined(MS_WINDOWS) && defined(HAVE_USABLE_WCHAR_T) | |
/* --- MBCS codecs for Windows -------------------------------------------- */ | |
#if SIZEOF_INT < SIZEOF_SIZE_T | |
#define NEED_RETRY | |
#endif | |
/* XXX This code is limited to "true" double-byte encodings, as | |
a) it assumes an incomplete character consists of a single byte, and | |
b) IsDBCSLeadByte (probably) does not work for non-DBCS multi-byte | |
encodings, see IsDBCSLeadByteEx documentation. */ | |
static int is_dbcs_lead_byte(const char *s, int offset) | |
{ | |
const char *curr = s + offset; | |
if (IsDBCSLeadByte(*curr)) { | |
const char *prev = CharPrev(s, curr); | |
return (prev == curr) || !IsDBCSLeadByte(*prev) || (curr - prev == 2); | |
} | |
return 0; | |
} | |
/* | |
* Decode MBCS string into unicode object. If 'final' is set, converts | |
* trailing lead-byte too. Returns consumed size if succeed, -1 otherwise. | |
*/ | |
static int decode_mbcs(PyUnicodeObject **v, | |
const char *s, /* MBCS string */ | |
int size, /* sizeof MBCS string */ | |
int final) | |
{ | |
Py_UNICODE *p; | |
Py_ssize_t n = 0; | |
int usize = 0; | |
assert(size >= 0); | |
/* Skip trailing lead-byte unless 'final' is set */ | |
if (!final && size >= 1 && is_dbcs_lead_byte(s, size - 1)) | |
--size; | |
/* First get the size of the result */ | |
if (size > 0) { | |
usize = MultiByteToWideChar(CP_ACP, 0, s, size, NULL, 0); | |
if (usize == 0) { | |
PyErr_SetFromWindowsErrWithFilename(0, NULL); | |
return -1; | |
} | |
} | |
if (*v == NULL) { | |
/* Create unicode object */ | |
*v = _PyUnicode_New(usize); | |
if (*v == NULL) | |
return -1; | |
} | |
else { | |
/* Extend unicode object */ | |
n = PyUnicode_GET_SIZE(*v); | |
if (_PyUnicode_Resize(v, n + usize) < 0) | |
return -1; | |
} | |
/* Do the conversion */ | |
if (size > 0) { | |
p = PyUnicode_AS_UNICODE(*v) + n; | |
if (0 == MultiByteToWideChar(CP_ACP, 0, s, size, p, usize)) { | |
PyErr_SetFromWindowsErrWithFilename(0, NULL); | |
return -1; | |
} | |
} | |
return size; | |
} | |
PyObject *PyUnicode_DecodeMBCSStateful(const char *s, | |
Py_ssize_t size, | |
const char *errors, | |
Py_ssize_t *consumed) | |
{ | |
PyUnicodeObject *v = NULL; | |
int done; | |
if (consumed) | |
*consumed = 0; | |
#ifdef NEED_RETRY | |
retry: | |
if (size > INT_MAX) | |
done = decode_mbcs(&v, s, INT_MAX, 0); | |
else | |
#endif | |
done = decode_mbcs(&v, s, (int)size, !consumed); | |
if (done < 0) { | |
Py_XDECREF(v); | |
return NULL; | |
} | |
if (consumed) | |
*consumed += done; | |
#ifdef NEED_RETRY | |
if (size > INT_MAX) { | |
s += done; | |
size -= done; | |
goto retry; | |
} | |
#endif | |
return (PyObject *)v; | |
} | |
PyObject *PyUnicode_DecodeMBCS(const char *s, | |
Py_ssize_t size, | |
const char *errors) | |
{ | |
return PyUnicode_DecodeMBCSStateful(s, size, errors, NULL); | |
} | |
/* | |
* Convert unicode into string object (MBCS). | |
* Returns 0 if succeed, -1 otherwise. | |
*/ | |
static int encode_mbcs(PyObject **repr, | |
const Py_UNICODE *p, /* unicode */ | |
int size) /* size of unicode */ | |
{ | |
int mbcssize = 0; | |
Py_ssize_t n = 0; | |
assert(size >= 0); | |
/* First get the size of the result */ | |
if (size > 0) { | |
mbcssize = WideCharToMultiByte(CP_ACP, 0, p, size, NULL, 0, NULL, NULL); | |
if (mbcssize == 0) { | |
PyErr_SetFromWindowsErrWithFilename(0, NULL); | |
return -1; | |
} | |
} | |
if (*repr == NULL) { | |
/* Create string object */ | |
*repr = PyString_FromStringAndSize(NULL, mbcssize); | |
if (*repr == NULL) | |
return -1; | |
} | |
else { | |
/* Extend string object */ | |
n = PyString_Size(*repr); | |
if (_PyString_Resize(repr, n + mbcssize) < 0) | |
return -1; | |
} | |
/* Do the conversion */ | |
if (size > 0) { | |
char *s = PyString_AS_STRING(*repr) + n; | |
if (0 == WideCharToMultiByte(CP_ACP, 0, p, size, s, mbcssize, NULL, NULL)) { | |
PyErr_SetFromWindowsErrWithFilename(0, NULL); | |
return -1; | |
} | |
} | |
return 0; | |
} | |
PyObject *PyUnicode_EncodeMBCS(const Py_UNICODE *p, | |
Py_ssize_t size, | |
const char *errors) | |
{ | |
PyObject *repr = NULL; | |
int ret; | |
#ifdef NEED_RETRY | |
retry: | |
if (size > INT_MAX) | |
ret = encode_mbcs(&repr, p, INT_MAX); | |
else | |
#endif | |
ret = encode_mbcs(&repr, p, (int)size); | |
if (ret < 0) { | |
Py_XDECREF(repr); | |
return NULL; | |
} | |
#ifdef NEED_RETRY | |
if (size > INT_MAX) { | |
p += INT_MAX; | |
size -= INT_MAX; | |
goto retry; | |
} | |
#endif | |
return repr; | |
} | |
PyObject *PyUnicode_AsMBCSString(PyObject *unicode) | |
{ | |
if (!PyUnicode_Check(unicode)) { | |
PyErr_BadArgument(); | |
return NULL; | |
} | |
return PyUnicode_EncodeMBCS(PyUnicode_AS_UNICODE(unicode), | |
PyUnicode_GET_SIZE(unicode), | |
NULL); | |
} | |
#undef NEED_RETRY | |
#endif /* MS_WINDOWS */ | |
/* --- Character Mapping Codec -------------------------------------------- */ | |
PyObject *PyUnicode_DecodeCharmap(const char *s, | |
Py_ssize_t size, | |
PyObject *mapping, | |
const char *errors) | |
{ | |
const char *starts = s; | |
Py_ssize_t startinpos; | |
Py_ssize_t endinpos; | |
Py_ssize_t outpos; | |
const char *e; | |
PyUnicodeObject *v; | |
Py_UNICODE *p; | |
Py_ssize_t extrachars = 0; | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
Py_UNICODE *mapstring = NULL; | |
Py_ssize_t maplen = 0; | |
/* Default to Latin-1 */ | |
if (mapping == NULL) | |
return PyUnicode_DecodeLatin1(s, size, errors); | |
v = _PyUnicode_New(size); | |
if (v == NULL) | |
goto onError; | |
if (size == 0) | |
return (PyObject *)v; | |
p = PyUnicode_AS_UNICODE(v); | |
e = s + size; | |
if (PyUnicode_CheckExact(mapping)) { | |
mapstring = PyUnicode_AS_UNICODE(mapping); | |
maplen = PyUnicode_GET_SIZE(mapping); | |
while (s < e) { | |
unsigned char ch = *s; | |
Py_UNICODE x = 0xfffe; /* illegal value */ | |
if (ch < maplen) | |
x = mapstring[ch]; | |
if (x == 0xfffe) { | |
/* undefined mapping */ | |
outpos = p-PyUnicode_AS_UNICODE(v); | |
startinpos = s-starts; | |
endinpos = startinpos+1; | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"charmap", "character maps to <undefined>", | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&v, &outpos, &p)) { | |
goto onError; | |
} | |
continue; | |
} | |
*p++ = x; | |
++s; | |
} | |
} | |
else { | |
while (s < e) { | |
unsigned char ch = *s; | |
PyObject *w, *x; | |
/* Get mapping (char ordinal -> integer, Unicode char or None) */ | |
w = PyInt_FromLong((long)ch); | |
if (w == NULL) | |
goto onError; | |
x = PyObject_GetItem(mapping, w); | |
Py_DECREF(w); | |
if (x == NULL) { | |
if (PyErr_ExceptionMatches(PyExc_LookupError)) { | |
/* No mapping found means: mapping is undefined. */ | |
PyErr_Clear(); | |
x = Py_None; | |
Py_INCREF(x); | |
} else | |
goto onError; | |
} | |
/* Apply mapping */ | |
if (PyInt_Check(x)) { | |
long value = PyInt_AS_LONG(x); | |
if (value < 0 || value > 65535) { | |
PyErr_SetString(PyExc_TypeError, | |
"character mapping must be in range(65536)"); | |
Py_DECREF(x); | |
goto onError; | |
} | |
*p++ = (Py_UNICODE)value; | |
} | |
else if (x == Py_None) { | |
/* undefined mapping */ | |
outpos = p-PyUnicode_AS_UNICODE(v); | |
startinpos = s-starts; | |
endinpos = startinpos+1; | |
if (unicode_decode_call_errorhandler( | |
errors, &errorHandler, | |
"charmap", "character maps to <undefined>", | |
starts, size, &startinpos, &endinpos, &exc, &s, | |
&v, &outpos, &p)) { | |
Py_DECREF(x); | |
goto onError; | |
} | |
Py_DECREF(x); | |
continue; | |
} | |
else if (PyUnicode_Check(x)) { | |
Py_ssize_t targetsize = PyUnicode_GET_SIZE(x); | |
if (targetsize == 1) | |
/* 1-1 mapping */ | |
*p++ = *PyUnicode_AS_UNICODE(x); | |
else if (targetsize > 1) { | |
/* 1-n mapping */ | |
if (targetsize > extrachars) { | |
/* resize first */ | |
Py_ssize_t oldpos = p - PyUnicode_AS_UNICODE(v); | |
Py_ssize_t needed = (targetsize - extrachars) + \ | |
(targetsize << 2); | |
extrachars += needed; | |
/* XXX overflow detection missing */ | |
if (_PyUnicode_Resize(&v, | |
PyUnicode_GET_SIZE(v) + needed) < 0) { | |
Py_DECREF(x); | |
goto onError; | |
} | |
p = PyUnicode_AS_UNICODE(v) + oldpos; | |
} | |
Py_UNICODE_COPY(p, | |
PyUnicode_AS_UNICODE(x), | |
targetsize); | |
p += targetsize; | |
extrachars -= targetsize; | |
} | |
/* 1-0 mapping: skip the character */ | |
} | |
else { | |
/* wrong return value */ | |
PyErr_SetString(PyExc_TypeError, | |
"character mapping must return integer, None or unicode"); | |
Py_DECREF(x); | |
goto onError; | |
} | |
Py_DECREF(x); | |
++s; | |
} | |
} | |
if (p - PyUnicode_AS_UNICODE(v) < PyUnicode_GET_SIZE(v)) | |
if (_PyUnicode_Resize(&v, p - PyUnicode_AS_UNICODE(v)) < 0) | |
goto onError; | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
return (PyObject *)v; | |
onError: | |
Py_XDECREF(errorHandler); | |
Py_XDECREF(exc); | |
Py_XDECREF(v); | |
return NULL; | |
} | |
/* Charmap encoding: the lookup table */ | |
struct encoding_map{ | |
PyObject_HEAD | |
unsigned char level1[32]; | |
int count2, count3; | |
unsigned char level23[1]; | |
}; | |
static PyObject* | |
encoding_map_size(PyObject *obj, PyObject* args) | |
{ | |
struct encoding_map *map = (struct encoding_map*)obj; | |
return PyInt_FromLong(sizeof(*map) - 1 + 16*map->count2 + | |
128*map->count3); | |
} | |
static PyMethodDef encoding_map_methods[] = { | |
{"size", encoding_map_size, METH_NOARGS, | |
PyDoc_STR("Return the size (in bytes) of this object") }, | |
{ 0 } | |
}; | |
static void | |
encoding_map_dealloc(PyObject* o) | |
{ | |
PyObject_FREE(o); | |
} | |
static PyTypeObject EncodingMapType = { | |
PyVarObject_HEAD_INIT(NULL, 0) | |
"EncodingMap", /*tp_name*/ | |
sizeof(struct encoding_map), /*tp_basicsize*/ | |
0, /*tp_itemsize*/ | |
/* methods */ | |
encoding_map_dealloc, /*tp_dealloc*/ | |
0, /*tp_print*/ | |
0, /*tp_getattr*/ | |
0, /*tp_setattr*/ | |
0, /*tp_compare*/ | |
0, /*tp_repr*/ | |
0, /*tp_as_number*/ | |
0, /*tp_as_sequence*/ | |
0, /*tp_as_mapping*/ | |
0, /*tp_hash*/ | |
0, /*tp_call*/ | |
0, /*tp_str*/ | |
0, /*tp_getattro*/ | |
0, /*tp_setattro*/ | |
0, /*tp_as_buffer*/ | |
Py_TPFLAGS_DEFAULT, /*tp_flags*/ | |
0, /*tp_doc*/ | |
0, /*tp_traverse*/ | |
0, /*tp_clear*/ | |
0, /*tp_richcompare*/ | |
0, /*tp_weaklistoffset*/ | |
0, /*tp_iter*/ | |
0, /*tp_iternext*/ | |
encoding_map_methods, /*tp_methods*/ | |
0, /*tp_members*/ | |
0, /*tp_getset*/ | |
0, /*tp_base*/ | |
0, /*tp_dict*/ | |
0, /*tp_descr_get*/ | |
0, /*tp_descr_set*/ | |
0, /*tp_dictoffset*/ | |
0, /*tp_init*/ | |
0, /*tp_alloc*/ | |
0, /*tp_new*/ | |
0, /*tp_free*/ | |
0, /*tp_is_gc*/ | |
}; | |
PyObject* | |
PyUnicode_BuildEncodingMap(PyObject* string) | |
{ | |
Py_UNICODE *decode; | |
PyObject *result; | |
struct encoding_map *mresult; | |
int i; | |
int need_dict = 0; | |
unsigned char level1[32]; | |
unsigned char level2[512]; | |
unsigned char *mlevel1, *mlevel2, *mlevel3; | |
int count2 = 0, count3 = 0; | |
if (!PyUnicode_Check(string) || PyUnicode_GetSize(string) != 256) { | |
PyErr_BadArgument(); | |
return NULL; | |
} | |
decode = PyUnicode_AS_UNICODE(string); | |
memset(level1, 0xFF, sizeof level1); | |
memset(level2, 0xFF, sizeof level2); | |
/* If there isn't a one-to-one mapping of NULL to \0, | |
or if there are non-BMP characters, we need to use | |
a mapping dictionary. */ | |
if (decode[0] != 0) | |
need_dict = 1; | |
for (i = 1; i < 256; i++) { | |
int l1, l2; | |
if (decode[i] == 0 | |
#ifdef Py_UNICODE_WIDE | |
|| decode[i] > 0xFFFF | |
#endif | |
) { | |
need_dict = 1; | |
break; | |
} | |
if (decode[i] == 0xFFFE) | |
/* unmapped character */ | |
continue; | |
l1 = decode[i] >> 11; | |
l2 = decode[i] >> 7; | |
if (level1[l1] == 0xFF) | |
level1[l1] = count2++; | |
if (level2[l2] == 0xFF) | |
level2[l2] = count3++; | |
} | |
if (count2 >= 0xFF || count3 >= 0xFF) | |
need_dict = 1; | |
if (need_dict) { | |
PyObject *result = PyDict_New(); | |
PyObject *key, *value; | |
if (!result) | |
return NULL; | |
for (i = 0; i < 256; i++) { | |
value = NULL; | |
key = PyInt_FromLong(decode[i]); | |
value = PyInt_FromLong(i); | |
if (!key || !value) | |
goto failed1; | |
if (PyDict_SetItem(result, key, value) == -1) | |
goto failed1; | |
Py_DECREF(key); | |
Py_DECREF(value); | |
} | |
return result; | |
failed1: | |
Py_XDECREF(key); | |
Py_XDECREF(value); | |
Py_DECREF(result); | |
return NULL; | |
} | |
/* Create a three-level trie */ | |
result = PyObject_MALLOC(sizeof(struct encoding_map) + | |
16*count2 + 128*count3 - 1); | |
if (!result) | |
return PyErr_NoMemory(); | |
PyObject_Init(result, &EncodingMapType); | |
mresult = (struct encoding_map*)result; | |
mresult->count2 = count2; | |
mresult->count3 = count3; | |
mlevel1 = mresult->level1; | |
mlevel2 = mresult->level23; | |
mlevel3 = mresult->level23 + 16*count2; | |
memcpy(mlevel1, level1, 32); | |
memset(mlevel2, 0xFF, 16*count2); | |
memset(mlevel3, 0, 128*count3); | |
count3 = 0; | |
for (i = 1; i < 256; i++) { | |
int o1, o2, o3, i2, i3; | |
if (decode[i] == 0xFFFE) | |
/* unmapped character */ | |
continue; | |
o1 = decode[i]>>11; | |
o2 = (decode[i]>>7) & 0xF; | |
i2 = 16*mlevel1[o1] + o2; | |
if (mlevel2[i2] == 0xFF) | |
mlevel2[i2] = count3++; | |
o3 = decode[i] & 0x7F; | |
i3 = 128*mlevel2[i2] + o3; | |
mlevel3[i3] = i; | |
} | |
return result; | |
} | |
static int | |
encoding_map_lookup(Py_UNICODE c, PyObject *mapping) | |
{ | |
struct encoding_map *map = (struct encoding_map*)mapping; | |
int l1 = c>>11; | |
int l2 = (c>>7) & 0xF; | |
int l3 = c & 0x7F; | |
int i; | |
#ifdef Py_UNICODE_WIDE | |
if (c > 0xFFFF) { | |
return -1; | |
} | |
#endif | |
if (c == 0) | |
return 0; | |
/* level 1*/ | |
i = map->level1[l1]; | |
if (i == 0xFF) { | |
return -1; | |
} | |
/* level 2*/ | |
i = map->level23[16*i+l2]; | |
if (i == 0xFF) { | |
return -1; | |
} | |
/* level 3 */ | |
i = map->level23[16*map->count2 + 128*i + l3]; | |
if (i == 0) { | |
return -1; | |
} | |
return i; | |
} | |
/* Lookup the character ch in the mapping. If the character | |
can't be found, Py_None is returned (or NULL, if another | |
error occurred). */ | |
static PyObject *charmapencode_lookup(Py_UNICODE c, PyObject *mapping) | |
{ | |
PyObject *w = PyInt_FromLong((long)c); | |
PyObject *x; | |
if (w == NULL) | |
return NULL; | |
x = PyObject_GetItem(mapping, w); | |
Py_DECREF(w); | |
if (x == NULL) { | |
if (PyErr_ExceptionMatches(PyExc_LookupError)) { | |
/* No mapping found means: mapping is undefined. */ | |
PyErr_Clear(); | |
x = Py_None; | |
Py_INCREF(x); | |
return x; | |
} else | |
return NULL; | |
} | |
else if (x == Py_None) | |
return x; | |
else if (PyInt_Check(x)) { | |
long value = PyInt_AS_LONG(x); | |
if (value < 0 || value > 255) { | |
PyErr_SetString(PyExc_TypeError, | |
"character mapping must be in range(256)"); | |
Py_DECREF(x); | |
return NULL; | |
} | |
return x; | |
} | |
else if (PyString_Check(x)) | |
return x; | |
else { | |
/* wrong return value */ | |
PyErr_SetString(PyExc_TypeError, | |
"character mapping must return integer, None or str"); | |
Py_DECREF(x); | |
return NULL; | |
} | |
} | |
static int | |
charmapencode_resize(PyObject **outobj, Py_ssize_t *outpos, Py_ssize_t requiredsize) | |
{ | |
Py_ssize_t outsize = PyString_GET_SIZE(*outobj); | |
/* exponentially overallocate to minimize reallocations */ | |
if (requiredsize < 2*outsize) | |
requiredsize = 2*outsize; | |
if (_PyString_Resize(outobj, requiredsize)) { | |
return 0; | |
} | |
return 1; | |
} | |
typedef enum charmapencode_result { | |
enc_SUCCESS, enc_FAILED, enc_EXCEPTION | |
}charmapencode_result; | |
/* lookup the character, put the result in the output string and adjust | |
various state variables. Reallocate the output string if not enough | |
space is available. Return a new reference to the object that | |
was put in the output buffer, or Py_None, if the mapping was undefined | |
(in which case no character was written) or NULL, if a | |
reallocation error occurred. The caller must decref the result */ | |
static | |
charmapencode_result charmapencode_output(Py_UNICODE c, PyObject *mapping, | |
PyObject **outobj, Py_ssize_t *outpos) | |
{ | |
PyObject *rep; | |
char *outstart; | |
Py_ssize_t outsize = PyString_GET_SIZE(*outobj); | |
if (Py_TYPE(mapping) == &EncodingMapType) { | |
int res = encoding_map_lookup(c, mapping); | |
Py_ssize_t requiredsize = *outpos+1; | |
if (res == -1) | |
return enc_FAILED; | |
if (outsize<requiredsize) | |
if (!charmapencode_resize(outobj, outpos, requiredsize)) | |
return enc_EXCEPTION; | |
outstart = PyString_AS_STRING(*outobj); | |
outstart[(*outpos)++] = (char)res; | |
return enc_SUCCESS; | |
} | |
rep = charmapencode_lookup(c, mapping); | |
if (rep==NULL) | |
return enc_EXCEPTION; | |
else if (rep==Py_None) { | |
Py_DECREF(rep); | |
return enc_FAILED; | |
} else { | |
if (PyInt_Check(rep)) { | |
Py_ssize_t requiredsize = *outpos+1; | |
if (outsize<requiredsize) | |
if (!charmapencode_resize(outobj, outpos, requiredsize)) { | |
Py_DECREF(rep); | |
return enc_EXCEPTION; | |
} | |
outstart = PyString_AS_STRING(*outobj); | |
outstart[(*outpos)++] = (char)PyInt_AS_LONG(rep); | |
} | |
else { | |
const char *repchars = PyString_AS_STRING(rep); | |
Py_ssize_t repsize = PyString_GET_SIZE(rep); | |
Py_ssize_t requiredsize = *outpos+repsize; | |
if (outsize<requiredsize) | |
if (!charmapencode_resize(outobj, outpos, requiredsize)) { | |
Py_DECREF(rep); | |
return enc_EXCEPTION; | |
} | |
outstart = PyString_AS_STRING(*outobj); | |
memcpy(outstart + *outpos, repchars, repsize); | |
*outpos += repsize; | |
} | |
} | |
Py_DECREF(rep); | |
return enc_SUCCESS; | |
} | |
/* handle an error in PyUnicode_EncodeCharmap | |
Return 0 on success, -1 on error */ | |
static | |
int charmap_encoding_error( | |
const Py_UNICODE *p, Py_ssize_t size, Py_ssize_t *inpos, PyObject *mapping, | |
PyObject **exceptionObject, | |
int *known_errorHandler, PyObject **errorHandler, const char *errors, | |
PyObject **res, Py_ssize_t *respos) | |
{ | |
PyObject *repunicode = NULL; /* initialize to prevent gcc warning */ | |
Py_ssize_t repsize; | |
Py_ssize_t newpos; | |
Py_UNICODE *uni2; | |
/* startpos for collecting unencodable chars */ | |
Py_ssize_t collstartpos = *inpos; | |
Py_ssize_t collendpos = *inpos+1; | |
Py_ssize_t collpos; | |
char *encoding = "charmap"; | |
char *reason = "character maps to <undefined>"; | |
charmapencode_result x; | |
/* find all unencodable characters */ | |
while (collendpos < size) { | |
PyObject *rep; | |
if (Py_TYPE(mapping) == &EncodingMapType) { | |
int res = encoding_map_lookup(p[collendpos], mapping); | |
if (res != -1) | |
break; | |
++collendpos; | |
continue; | |
} | |
rep = charmapencode_lookup(p[collendpos], mapping); | |
if (rep==NULL) | |
return -1; | |
else if (rep!=Py_None) { | |
Py_DECREF(rep); | |
break; | |
} | |
Py_DECREF(rep); | |
++collendpos; | |
} | |
/* cache callback name lookup | |
* (if not done yet, i.e. it's the first error) */ | |
if (*known_errorHandler==-1) { | |
if ((errors==NULL) || (!strcmp(errors, "strict"))) | |
*known_errorHandler = 1; | |
else if (!strcmp(errors, "replace")) | |
*known_errorHandler = 2; | |
else if (!strcmp(errors, "ignore")) | |
*known_errorHandler = 3; | |
else if (!strcmp(errors, "xmlcharrefreplace")) | |
*known_errorHandler = 4; | |
else | |
*known_errorHandler = 0; | |
} | |
switch (*known_errorHandler) { | |
case 1: /* strict */ | |
raise_encode_exception(exceptionObject, encoding, p, size, collstartpos, collendpos, reason); | |
return -1; | |
case 2: /* replace */ | |
for (collpos = collstartpos; collpos<collendpos; ++collpos) { | |
x = charmapencode_output('?', mapping, res, respos); | |
if (x==enc_EXCEPTION) { | |
return -1; | |
} | |
else if (x==enc_FAILED) { | |
raise_encode_exception(exceptionObject, encoding, p, size, collstartpos, collendpos, reason); | |
return -1; | |
} | |
} | |
/* fall through */ | |
case 3: /* ignore */ | |
*inpos = collendpos; | |
break; | |
case 4: /* xmlcharrefreplace */ | |
/* generate replacement (temporarily (mis)uses p) */ | |
for (collpos = collstartpos; collpos < collendpos; ++collpos) { | |
char buffer[2+29+1+1]; | |
char *cp; | |
sprintf(buffer, "&#%d;", (int)p[collpos]); | |
for (cp = buffer; *cp; ++cp) { | |
x = charmapencode_output(*cp, mapping, res, respos); | |
if (x==enc_EXCEPTION) | |
return -1; | |
else if (x==enc_FAILED) { | |
raise_encode_exception(exceptionObject, encoding, p, size, collstartpos, collendpos, reason); | |
return -1; | |
} | |
} | |
} | |
*inpos = collendpos; | |
break; | |
default: | |
repunicode = unicode_encode_call_errorhandler(errors, errorHandler, | |
encoding, reason, p, size, exceptionObject, | |
collstartpos, collendpos, &newpos); | |
if (repunicode == NULL) | |
return -1; | |
/* generate replacement */ | |
repsize = PyUnicode_GET_SIZE(repunicode); | |
for (uni2 = PyUnicode_AS_UNICODE(repunicode); repsize-->0; ++uni2) { | |
x = charmapencode_output(*uni2, mapping, res, respos); | |
if (x==enc_EXCEPTION) { | |
return -1; | |
} | |
else if (x==enc_FAILED) { | |
Py_DECREF(repunicode); | |
raise_encode_exception(exceptionObject, encoding, p, size, collstartpos, collendpos, reason); | |
return -1; | |
} | |
} | |
*inpos = newpos; | |
Py_DECREF(repunicode); | |
} | |
return 0; | |
} | |
PyObject *PyUnicode_EncodeCharmap(const Py_UNICODE *p, | |
Py_ssize_t size, | |
PyObject *mapping, | |
const char *errors) | |
{ | |
/* output object */ | |
PyObject *res = NULL; | |
/* current input position */ | |
Py_ssize_t inpos = 0; | |
/* current output position */ | |
Py_ssize_t respos = 0; | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
/* the following variable is used for caching string comparisons | |
* -1=not initialized, 0=unknown, 1=strict, 2=replace, | |
* 3=ignore, 4=xmlcharrefreplace */ | |
int known_errorHandler = -1; | |
/* Default to Latin-1 */ | |
if (mapping == NULL) | |
return PyUnicode_EncodeLatin1(p, size, errors); | |
/* allocate enough for a simple encoding without | |
replacements, if we need more, we'll resize */ | |
res = PyString_FromStringAndSize(NULL, size); | |
if (res == NULL) | |
goto onError; | |
if (size == 0) | |
return res; | |
while (inpos<size) { | |
/* try to encode it */ | |
charmapencode_result x = charmapencode_output(p[inpos], mapping, &res, &respos); | |
if (x==enc_EXCEPTION) /* error */ | |
goto onError; | |
if (x==enc_FAILED) { /* unencodable character */ | |
if (charmap_encoding_error(p, size, &inpos, mapping, | |
&exc, | |
&known_errorHandler, &errorHandler, errors, | |
&res, &respos)) { | |
goto onError; | |
} | |
} | |
else | |
/* done with this character => adjust input position */ | |
++inpos; | |
} | |
/* Resize if we allocated to much */ | |
if (respos<PyString_GET_SIZE(res)) { | |
if (_PyString_Resize(&res, respos)) | |
goto onError; | |
} | |
Py_XDECREF(exc); | |
Py_XDECREF(errorHandler); | |
return res; | |
onError: | |
Py_XDECREF(res); | |
Py_XDECREF(exc); | |
Py_XDECREF(errorHandler); | |
return NULL; | |
} | |
PyObject *PyUnicode_AsCharmapString(PyObject *unicode, | |
PyObject *mapping) | |
{ | |
if (!PyUnicode_Check(unicode) || mapping == NULL) { | |
PyErr_BadArgument(); | |
return NULL; | |
} | |
return PyUnicode_EncodeCharmap(PyUnicode_AS_UNICODE(unicode), | |
PyUnicode_GET_SIZE(unicode), | |
mapping, | |
NULL); | |
} | |
/* create or adjust a UnicodeTranslateError */ | |
static void make_translate_exception(PyObject **exceptionObject, | |
const Py_UNICODE *unicode, Py_ssize_t size, | |
Py_ssize_t startpos, Py_ssize_t endpos, | |
const char *reason) | |
{ | |
if (*exceptionObject == NULL) { | |
*exceptionObject = PyUnicodeTranslateError_Create( | |
unicode, size, startpos, endpos, reason); | |
} | |
else { | |
if (PyUnicodeTranslateError_SetStart(*exceptionObject, startpos)) | |
goto onError; | |
if (PyUnicodeTranslateError_SetEnd(*exceptionObject, endpos)) | |
goto onError; | |
if (PyUnicodeTranslateError_SetReason(*exceptionObject, reason)) | |
goto onError; | |
return; | |
onError: | |
Py_DECREF(*exceptionObject); | |
*exceptionObject = NULL; | |
} | |
} | |
/* raises a UnicodeTranslateError */ | |
static void raise_translate_exception(PyObject **exceptionObject, | |
const Py_UNICODE *unicode, Py_ssize_t size, | |
Py_ssize_t startpos, Py_ssize_t endpos, | |
const char *reason) | |
{ | |
make_translate_exception(exceptionObject, | |
unicode, size, startpos, endpos, reason); | |
if (*exceptionObject != NULL) | |
PyCodec_StrictErrors(*exceptionObject); | |
} | |
/* error handling callback helper: | |
build arguments, call the callback and check the arguments, | |
put the result into newpos and return the replacement string, which | |
has to be freed by the caller */ | |
static PyObject *unicode_translate_call_errorhandler(const char *errors, | |
PyObject **errorHandler, | |
const char *reason, | |
const Py_UNICODE *unicode, Py_ssize_t size, PyObject **exceptionObject, | |
Py_ssize_t startpos, Py_ssize_t endpos, | |
Py_ssize_t *newpos) | |
{ | |
static char *argparse = "O!n;translating error handler must return (unicode, int) tuple"; | |
Py_ssize_t i_newpos; | |
PyObject *restuple; | |
PyObject *resunicode; | |
if (*errorHandler == NULL) { | |
*errorHandler = PyCodec_LookupError(errors); | |
if (*errorHandler == NULL) | |
return NULL; | |
} | |
make_translate_exception(exceptionObject, | |
unicode, size, startpos, endpos, reason); | |
if (*exceptionObject == NULL) | |
return NULL; | |
restuple = PyObject_CallFunctionObjArgs( | |
*errorHandler, *exceptionObject, NULL); | |
if (restuple == NULL) | |
return NULL; | |
if (!PyTuple_Check(restuple)) { | |
PyErr_SetString(PyExc_TypeError, &argparse[4]); | |
Py_DECREF(restuple); | |
return NULL; | |
} | |
if (!PyArg_ParseTuple(restuple, argparse, &PyUnicode_Type, | |
&resunicode, &i_newpos)) { | |
Py_DECREF(restuple); | |
return NULL; | |
} | |
if (i_newpos<0) | |
*newpos = size+i_newpos; | |
else | |
*newpos = i_newpos; | |
if (*newpos<0 || *newpos>size) { | |
PyErr_Format(PyExc_IndexError, "position %zd from error handler out of bounds", *newpos); | |
Py_DECREF(restuple); | |
return NULL; | |
} | |
Py_INCREF(resunicode); | |
Py_DECREF(restuple); | |
return resunicode; | |
} | |
/* Lookup the character ch in the mapping and put the result in result, | |
which must be decrefed by the caller. | |
Return 0 on success, -1 on error */ | |
static | |
int charmaptranslate_lookup(Py_UNICODE c, PyObject *mapping, PyObject **result) | |
{ | |
PyObject *w = PyInt_FromLong((long)c); | |
PyObject *x; | |
if (w == NULL) | |
return -1; | |
x = PyObject_GetItem(mapping, w); | |
Py_DECREF(w); | |
if (x == NULL) { | |
if (PyErr_ExceptionMatches(PyExc_LookupError)) { | |
/* No mapping found means: use 1:1 mapping. */ | |
PyErr_Clear(); | |
*result = NULL; | |
return 0; | |
} else | |
return -1; | |
} | |
else if (x == Py_None) { | |
*result = x; | |
return 0; | |
} | |
else if (PyInt_Check(x)) { | |
long value = PyInt_AS_LONG(x); | |
long max = PyUnicode_GetMax(); | |
if (value < 0 || value > max) { | |
PyErr_Format(PyExc_TypeError, | |
"character mapping must be in range(0x%lx)", max+1); | |
Py_DECREF(x); | |
return -1; | |
} | |
*result = x; | |
return 0; | |
} | |
else if (PyUnicode_Check(x)) { | |
*result = x; | |
return 0; | |
} | |
else { | |
/* wrong return value */ | |
PyErr_SetString(PyExc_TypeError, | |
"character mapping must return integer, None or unicode"); | |
Py_DECREF(x); | |
return -1; | |
} | |
} | |
/* ensure that *outobj is at least requiredsize characters long, | |
if not reallocate and adjust various state variables. | |
Return 0 on success, -1 on error */ | |
static | |
int charmaptranslate_makespace(PyObject **outobj, Py_UNICODE **outp, | |
Py_ssize_t requiredsize) | |
{ | |
Py_ssize_t oldsize = PyUnicode_GET_SIZE(*outobj); | |
if (requiredsize > oldsize) { | |
/* remember old output position */ | |
Py_ssize_t outpos = *outp-PyUnicode_AS_UNICODE(*outobj); | |
/* exponentially overallocate to minimize reallocations */ | |
if (requiredsize < 2 * oldsize) | |
requiredsize = 2 * oldsize; | |
if (PyUnicode_Resize(outobj, requiredsize) < 0) | |
return -1; | |
*outp = PyUnicode_AS_UNICODE(*outobj) + outpos; | |
} | |
return 0; | |
} | |
/* lookup the character, put the result in the output string and adjust | |
various state variables. Return a new reference to the object that | |
was put in the output buffer in *result, or Py_None, if the mapping was | |
undefined (in which case no character was written). | |
The called must decref result. | |
Return 0 on success, -1 on error. */ | |
static | |
int charmaptranslate_output(const Py_UNICODE *startinp, const Py_UNICODE *curinp, | |
Py_ssize_t insize, PyObject *mapping, PyObject **outobj, Py_UNICODE **outp, | |
PyObject **res) | |
{ | |
if (charmaptranslate_lookup(*curinp, mapping, res)) | |
return -1; | |
if (*res==NULL) { | |
/* not found => default to 1:1 mapping */ | |
*(*outp)++ = *curinp; | |
} | |
else if (*res==Py_None) | |
; | |
else if (PyInt_Check(*res)) { | |
/* no overflow check, because we know that the space is enough */ | |
*(*outp)++ = (Py_UNICODE)PyInt_AS_LONG(*res); | |
} | |
else if (PyUnicode_Check(*res)) { | |
Py_ssize_t repsize = PyUnicode_GET_SIZE(*res); | |
if (repsize==1) { | |
/* no overflow check, because we know that the space is enough */ | |
*(*outp)++ = *PyUnicode_AS_UNICODE(*res); | |
} | |
else if (repsize!=0) { | |
/* more than one character */ | |
Py_ssize_t requiredsize = (*outp-PyUnicode_AS_UNICODE(*outobj)) + | |
(insize - (curinp-startinp)) + | |
repsize - 1; | |
if (charmaptranslate_makespace(outobj, outp, requiredsize)) | |
return -1; | |
memcpy(*outp, PyUnicode_AS_UNICODE(*res), sizeof(Py_UNICODE)*repsize); | |
*outp += repsize; | |
} | |
} | |
else | |
return -1; | |
return 0; | |
} | |
PyObject *PyUnicode_TranslateCharmap(const Py_UNICODE *p, | |
Py_ssize_t size, | |
PyObject *mapping, | |
const char *errors) | |
{ | |
/* output object */ | |
PyObject *res = NULL; | |
/* pointers to the beginning and end+1 of input */ | |
const Py_UNICODE *startp = p; | |
const Py_UNICODE *endp = p + size; | |
/* pointer into the output */ | |
Py_UNICODE *str; | |
/* current output position */ | |
Py_ssize_t respos = 0; | |
char *reason = "character maps to <undefined>"; | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
/* the following variable is used for caching string comparisons | |
* -1=not initialized, 0=unknown, 1=strict, 2=replace, | |
* 3=ignore, 4=xmlcharrefreplace */ | |
int known_errorHandler = -1; | |
if (mapping == NULL) { | |
PyErr_BadArgument(); | |
return NULL; | |
} | |
/* allocate enough for a simple 1:1 translation without | |
replacements, if we need more, we'll resize */ | |
res = PyUnicode_FromUnicode(NULL, size); | |
if (res == NULL) | |
goto onError; | |
if (size == 0) | |
return res; | |
str = PyUnicode_AS_UNICODE(res); | |
while (p<endp) { | |
/* try to encode it */ | |
PyObject *x = NULL; | |
if (charmaptranslate_output(startp, p, size, mapping, &res, &str, &x)) { | |
Py_XDECREF(x); | |
goto onError; | |
} | |
Py_XDECREF(x); | |
if (x!=Py_None) /* it worked => adjust input pointer */ | |
++p; | |
else { /* untranslatable character */ | |
PyObject *repunicode = NULL; /* initialize to prevent gcc warning */ | |
Py_ssize_t repsize; | |
Py_ssize_t newpos; | |
Py_UNICODE *uni2; | |
/* startpos for collecting untranslatable chars */ | |
const Py_UNICODE *collstart = p; | |
const Py_UNICODE *collend = p+1; | |
const Py_UNICODE *coll; | |
/* find all untranslatable characters */ | |
while (collend < endp) { | |
if (charmaptranslate_lookup(*collend, mapping, &x)) | |
goto onError; | |
Py_XDECREF(x); | |
if (x!=Py_None) | |
break; | |
++collend; | |
} | |
/* cache callback name lookup | |
* (if not done yet, i.e. it's the first error) */ | |
if (known_errorHandler==-1) { | |
if ((errors==NULL) || (!strcmp(errors, "strict"))) | |
known_errorHandler = 1; | |
else if (!strcmp(errors, "replace")) | |
known_errorHandler = 2; | |
else if (!strcmp(errors, "ignore")) | |
known_errorHandler = 3; | |
else if (!strcmp(errors, "xmlcharrefreplace")) | |
known_errorHandler = 4; | |
else | |
known_errorHandler = 0; | |
} | |
switch (known_errorHandler) { | |
case 1: /* strict */ | |
raise_translate_exception(&exc, startp, size, collstart-startp, collend-startp, reason); | |
goto onError; | |
case 2: /* replace */ | |
/* No need to check for space, this is a 1:1 replacement */ | |
for (coll = collstart; coll<collend; ++coll) | |
*str++ = '?'; | |
/* fall through */ | |
case 3: /* ignore */ | |
p = collend; | |
break; | |
case 4: /* xmlcharrefreplace */ | |
/* generate replacement (temporarily (mis)uses p) */ | |
for (p = collstart; p < collend; ++p) { | |
char buffer[2+29+1+1]; | |
char *cp; | |
sprintf(buffer, "&#%d;", (int)*p); | |
if (charmaptranslate_makespace(&res, &str, | |
(str-PyUnicode_AS_UNICODE(res))+strlen(buffer)+(endp-collend))) | |
goto onError; | |
for (cp = buffer; *cp; ++cp) | |
*str++ = *cp; | |
} | |
p = collend; | |
break; | |
default: | |
repunicode = unicode_translate_call_errorhandler(errors, &errorHandler, | |
reason, startp, size, &exc, | |
collstart-startp, collend-startp, &newpos); | |
if (repunicode == NULL) | |
goto onError; | |
/* generate replacement */ | |
repsize = PyUnicode_GET_SIZE(repunicode); | |
if (charmaptranslate_makespace(&res, &str, | |
(str-PyUnicode_AS_UNICODE(res))+repsize+(endp-collend))) { | |
Py_DECREF(repunicode); | |
goto onError; | |
} | |
for (uni2 = PyUnicode_AS_UNICODE(repunicode); repsize-->0; ++uni2) | |
*str++ = *uni2; | |
p = startp + newpos; | |
Py_DECREF(repunicode); | |
} | |
} | |
} | |
/* Resize if we allocated to much */ | |
respos = str-PyUnicode_AS_UNICODE(res); | |
if (respos<PyUnicode_GET_SIZE(res)) { | |
if (PyUnicode_Resize(&res, respos) < 0) | |
goto onError; | |
} | |
Py_XDECREF(exc); | |
Py_XDECREF(errorHandler); | |
return res; | |
onError: | |
Py_XDECREF(res); | |
Py_XDECREF(exc); | |
Py_XDECREF(errorHandler); | |
return NULL; | |
} | |
PyObject *PyUnicode_Translate(PyObject *str, | |
PyObject *mapping, | |
const char *errors) | |
{ | |
PyObject *result; | |
str = PyUnicode_FromObject(str); | |
if (str == NULL) | |
goto onError; | |
result = PyUnicode_TranslateCharmap(PyUnicode_AS_UNICODE(str), | |
PyUnicode_GET_SIZE(str), | |
mapping, | |
errors); | |
Py_DECREF(str); | |
return result; | |
onError: | |
Py_XDECREF(str); | |
return NULL; | |
} | |
/* --- Decimal Encoder ---------------------------------------------------- */ | |
int PyUnicode_EncodeDecimal(Py_UNICODE *s, | |
Py_ssize_t length, | |
char *output, | |
const char *errors) | |
{ | |
Py_UNICODE *p, *end; | |
PyObject *errorHandler = NULL; | |
PyObject *exc = NULL; | |
const char *encoding = "decimal"; | |
const char *reason = "invalid decimal Unicode string"; | |
/* the following variable is used for caching string comparisons | |
* -1=not initialized, 0=unknown, 1=strict, 2=replace, 3=ignore, 4=xmlcharrefreplace */ | |
int known_errorHandler = -1; | |
if (output == NULL) { | |
PyErr_BadArgument(); | |
return -1; | |
} | |
p = s; | |
end = s + length; | |
while (p < end) { | |
register Py_UNICODE ch = *p; | |
int decimal; | |
PyObject *repunicode; | |
Py_ssize_t repsize; | |
Py_ssize_t newpos; | |
Py_UNICODE *uni2; | |
Py_UNICODE *collstart; | |
Py_UNICODE *collend; | |
if (Py_UNICODE_ISSPACE(ch)) { | |
*output++ = ' '; | |
++p; | |
continue; | |
} | |
decimal = Py_UNICODE_TODECIMAL(ch); | |
if (decimal >= 0) { | |
*output++ = '0' + decimal; | |
++p; | |
continue; | |
} | |
if (0 < ch && ch < 256) { | |
*output++ = (char)ch; | |
++p; | |
continue; | |
} | |
/* All other characters are considered unencodable */ | |
collstart = p; | |
collend = p+1; | |
while (collend < end) { | |
if ((0 < *collend && *collend < 256) || | |
!Py_UNICODE_ISSPACE(*collend) || | |
Py_UNICODE_TODECIMAL(*collend)) | |
break; | |
} | |
/* cache callback name lookup | |
* (if not done yet, i.e. it's the first error) */ | |
if (known_errorHandler==-1) { | |
if ((errors==NULL) || (!strcmp(errors, "strict"))) | |
known_errorHandler = 1; | |
else if (!strcmp(errors, "replace")) | |
known_errorHandler = 2; | |
else if (!strcmp(errors, "ignore")) | |
known_errorHandler = 3; | |
else if (!strcmp(errors, "xmlcharrefreplace")) | |
known_errorHandler = 4; | |
else | |
known_errorHandler = 0; | |
} | |
switch (known_errorHandler) { | |
case 1: /* strict */ | |
raise_encode_exception(&exc, encoding, s, length, collstart-s, collend-s, reason); | |
goto onError; | |
case 2: /* replace */ | |
for (p = collstart; p < collend; ++p) | |
*output++ = '?'; | |
/* fall through */ | |
case 3: /* ignore */ | |
p = collend; | |
break; | |
case 4: /* xmlcharrefreplace */ | |
/* generate replacement (temporarily (mis)uses p) */ | |
for (p = collstart; p < collend; ++p) | |
output += sprintf(output, "&#%d;", (int)*p); | |
p = collend; | |
break; | |
default: | |
repunicode = unicode_encode_call_errorhandler(errors, &errorHandler, | |
encoding, reason, s, length, &exc, | |
collstart-s, collend-s, &newpos); | |
if (repunicode == NULL) | |
goto onError; | |
/* generate replacement */ | |
repsize = PyUnicode_GET_SIZE(repunicode); | |
for (uni2 = PyUnicode_AS_UNICODE(repunicode); repsize-->0; ++uni2) { | |
Py_UNICODE ch = *uni2; | |
if (Py_UNICODE_ISSPACE(ch)) | |
*output++ = ' '; | |
else { | |
decimal = Py_UNICODE_TODECIMAL(ch); | |
if (decimal >= 0) | |
*output++ = '0' + decimal; | |
else if (0 < ch && ch < 256) | |
*output++ = (char)ch; | |
else { | |
Py_DECREF(repunicode); | |
raise_encode_exception(&exc, encoding, | |
s, length, collstart-s, collend-s, reason); | |
goto onError; | |
} | |
} | |
} | |
p = s + newpos; | |
Py_DECREF(repunicode); | |
} | |
} | |
/* 0-terminate the output string */ | |
*output++ = '\0'; | |
Py_XDECREF(exc); | |
Py_XDECREF(errorHandler); | |
return 0; | |
onError: | |
Py_XDECREF(exc); | |
Py_XDECREF(errorHandler); | |
return -1; | |
} | |
/* --- Helpers ------------------------------------------------------------ */ | |
#include "stringlib/unicodedefs.h" | |
#include "stringlib/fastsearch.h" | |
#include "stringlib/count.h" | |
#include "stringlib/find.h" | |
#include "stringlib/partition.h" | |
#include "stringlib/split.h" | |
/* helper macro to fixup start/end slice values */ | |
#define ADJUST_INDICES(start, end, len) \ | |
if (end > len) \ | |
end = len; \ | |
else if (end < 0) { \ | |
end += len; \ | |
if (end < 0) \ | |
end = 0; \ | |
} \ | |
if (start < 0) { \ | |
start += len; \ | |
if (start < 0) \ | |
start = 0; \ | |
} | |
Py_ssize_t PyUnicode_Count(PyObject *str, | |
PyObject *substr, | |
Py_ssize_t start, | |
Py_ssize_t end) | |
{ | |
Py_ssize_t result; | |
PyUnicodeObject* str_obj; | |
PyUnicodeObject* sub_obj; | |
str_obj = (PyUnicodeObject*) PyUnicode_FromObject(str); | |
if (!str_obj) | |
return -1; | |
sub_obj = (PyUnicodeObject*) PyUnicode_FromObject(substr); | |
if (!sub_obj) { | |
Py_DECREF(str_obj); | |
return -1; | |
} | |
ADJUST_INDICES(start, end, str_obj->length); | |
result = stringlib_count( | |
str_obj->str + start, end - start, sub_obj->str, sub_obj->length, | |
PY_SSIZE_T_MAX | |
); | |
Py_DECREF(sub_obj); | |
Py_DECREF(str_obj); | |
return result; | |
} | |
Py_ssize_t PyUnicode_Find(PyObject *str, | |
PyObject *sub, | |
Py_ssize_t start, | |
Py_ssize_t end, | |
int direction) | |
{ | |
Py_ssize_t result; | |
str = PyUnicode_FromObject(str); | |
if (!str) | |
return -2; | |
sub = PyUnicode_FromObject(sub); | |
if (!sub) { | |
Py_DECREF(str); | |
return -2; | |
} | |
if (direction > 0) | |
result = stringlib_find_slice( | |
PyUnicode_AS_UNICODE(str), PyUnicode_GET_SIZE(str), | |
PyUnicode_AS_UNICODE(sub), PyUnicode_GET_SIZE(sub), | |
start, end | |
); | |
else | |
result = stringlib_rfind_slice( | |
PyUnicode_AS_UNICODE(str), PyUnicode_GET_SIZE(str), | |
PyUnicode_AS_UNICODE(sub), PyUnicode_GET_SIZE(sub), | |
start, end | |
); | |
Py_DECREF(str); | |
Py_DECREF(sub); | |
return result; | |
} | |
static | |
int tailmatch(PyUnicodeObject *self, | |
PyUnicodeObject *substring, | |
Py_ssize_t start, | |
Py_ssize_t end, | |
int direction) | |
{ | |
if (substring->length == 0) | |
return 1; | |
ADJUST_INDICES(start, end, self->length); | |
end -= substring->length; | |
if (end < start) | |
return 0; | |
if (direction > 0) { | |
if (Py_UNICODE_MATCH(self, end, substring)) | |
return 1; | |
} else { | |
if (Py_UNICODE_MATCH(self, start, substring)) | |
return 1; | |
} | |
return 0; | |
} | |
Py_ssize_t PyUnicode_Tailmatch(PyObject *str, | |
PyObject *substr, | |
Py_ssize_t start, | |
Py_ssize_t end, | |
int direction) | |
{ | |
Py_ssize_t result; | |
str = PyUnicode_FromObject(str); | |
if (str == NULL) | |
return -1; | |
substr = PyUnicode_FromObject(substr); | |
if (substr == NULL) { | |
Py_DECREF(str); | |
return -1; | |
} | |
result = tailmatch((PyUnicodeObject *)str, | |
(PyUnicodeObject *)substr, | |
start, end, direction); | |
Py_DECREF(str); | |
Py_DECREF(substr); | |
return result; | |
} | |
/* Apply fixfct filter to the Unicode object self and return a | |
reference to the modified object */ | |
static | |
PyObject *fixup(PyUnicodeObject *self, | |
int (*fixfct)(PyUnicodeObject *s)) | |
{ | |
PyUnicodeObject *u; | |
u = (PyUnicodeObject*) PyUnicode_FromUnicode(NULL, self->length); | |
if (u == NULL) | |
return NULL; | |
Py_UNICODE_COPY(u->str, self->str, self->length); | |
if (!fixfct(u) && PyUnicode_CheckExact(self)) { | |
/* fixfct should return TRUE if it modified the buffer. If | |
FALSE, return a reference to the original buffer instead | |
(to save space, not time) */ | |
Py_INCREF(self); | |
Py_DECREF(u); | |
return (PyObject*) self; | |
} | |
return (PyObject*) u; | |
} | |
static | |
int fixupper(PyUnicodeObject *self) | |
{ | |
Py_ssize_t len = self->length; | |
Py_UNICODE *s = self->str; | |
int status = 0; | |
while (len-- > 0) { | |
register Py_UNICODE ch; | |
ch = Py_UNICODE_TOUPPER(*s); | |
if (ch != *s) { | |
status = 1; | |
*s = ch; | |
} | |
s++; | |
} | |
return status; | |
} | |
static | |
int fixlower(PyUnicodeObject *self) | |
{ | |
Py_ssize_t len = self->length; | |
Py_UNICODE *s = self->str; | |
int status = 0; | |
while (len-- > 0) { | |
register Py_UNICODE ch; | |
ch = Py_UNICODE_TOLOWER(*s); | |
if (ch != *s) { | |
status = 1; | |
*s = ch; | |
} | |
s++; | |
} | |
return status; | |
} | |
static | |
int fixswapcase(PyUnicodeObject *self) | |
{ | |
Py_ssize_t len = self->length; | |
Py_UNICODE *s = self->str; | |
int status = 0; | |
while (len-- > 0) { | |
if (Py_UNICODE_ISUPPER(*s)) { | |
*s = Py_UNICODE_TOLOWER(*s); | |
status = 1; | |
} else if (Py_UNICODE_ISLOWER(*s)) { | |
*s = Py_UNICODE_TOUPPER(*s); | |
status = 1; | |
} | |
s++; | |
} | |
return status; | |
} | |
static | |
int fixcapitalize(PyUnicodeObject *self) | |
{ | |
Py_ssize_t len = self->length; | |
Py_UNICODE *s = self->str; | |
int status = 0; | |
if (len == 0) | |
return 0; | |
if (Py_UNICODE_ISLOWER(*s)) { | |
*s = Py_UNICODE_TOUPPER(*s); | |
status = 1; | |
} | |
s++; | |
while (--len > 0) { | |
if (Py_UNICODE_ISUPPER(*s)) { | |
*s = Py_UNICODE_TOLOWER(*s); | |
status = 1; | |
} | |
s++; | |
} | |
return status; | |
} | |
static | |
int fixtitle(PyUnicodeObject *self) | |
{ | |
register Py_UNICODE *p = PyUnicode_AS_UNICODE(self); | |
register Py_UNICODE *e; | |
int previous_is_cased; | |
/* Shortcut for single character strings */ | |
if (PyUnicode_GET_SIZE(self) == 1) { | |
Py_UNICODE ch = Py_UNICODE_TOTITLE(*p); | |
if (*p != ch) { | |
*p = ch; | |
return 1; | |
} | |
else | |
return 0; | |
} | |
e = p + PyUnicode_GET_SIZE(self); | |
previous_is_cased = 0; | |
for (; p < e; p++) { | |
register const Py_UNICODE ch = *p; | |
if (previous_is_cased) | |
*p = Py_UNICODE_TOLOWER(ch); | |
else | |
*p = Py_UNICODE_TOTITLE(ch); | |
if (Py_UNICODE_ISLOWER(ch) || | |
Py_UNICODE_ISUPPER(ch) || | |
Py_UNICODE_ISTITLE(ch)) | |
previous_is_cased = 1; | |
else | |
previous_is_cased = 0; | |
} | |
return 1; | |
} | |
PyObject * | |
PyUnicode_Join(PyObject *separator, PyObject *seq) | |
{ | |
PyObject *internal_separator = NULL; | |
const Py_UNICODE blank = ' '; | |
const Py_UNICODE *sep = ␣ | |
Py_ssize_t seplen = 1; | |
PyUnicodeObject *res = NULL; /* the result */ | |
Py_ssize_t res_alloc = 100; /* # allocated bytes for string in res */ | |
Py_ssize_t res_used; /* # used bytes */ | |
Py_UNICODE *res_p; /* pointer to free byte in res's string area */ | |
PyObject *fseq; /* PySequence_Fast(seq) */ | |
Py_ssize_t seqlen; /* len(fseq) -- number of items in sequence */ | |
PyObject *item; | |
Py_ssize_t i; | |
fseq = PySequence_Fast(seq, ""); | |
if (fseq == NULL) { | |
return NULL; | |
} | |
/* Grrrr. A codec may be invoked to convert str objects to | |
* Unicode, and so it's possible to call back into Python code | |
* during PyUnicode_FromObject(), and so it's possible for a sick | |
* codec to change the size of fseq (if seq is a list). Therefore | |
* we have to keep refetching the size -- can't assume seqlen | |
* is invariant. | |
*/ | |
seqlen = PySequence_Fast_GET_SIZE(fseq); | |
/* If empty sequence, return u"". */ | |
if (seqlen == 0) { | |
res = _PyUnicode_New(0); /* empty sequence; return u"" */ | |
goto Done; | |
} | |
/* If singleton sequence with an exact Unicode, return that. */ | |
if (seqlen == 1) { | |
item = PySequence_Fast_GET_ITEM(fseq, 0); | |
if (PyUnicode_CheckExact(item)) { | |
Py_INCREF(item); | |
res = (PyUnicodeObject *)item; | |
goto Done; | |
} | |
} | |
/* At least two items to join, or one that isn't exact Unicode. */ | |
if (seqlen > 1) { | |
/* Set up sep and seplen -- they're needed. */ | |
if (separator == NULL) { | |
sep = ␣ | |
seplen = 1; | |
} | |
else { | |
internal_separator = PyUnicode_FromObject(separator); | |
if (internal_separator == NULL) | |
goto onError; | |
sep = PyUnicode_AS_UNICODE(internal_separator); | |
seplen = PyUnicode_GET_SIZE(internal_separator); | |
/* In case PyUnicode_FromObject() mutated seq. */ | |
seqlen = PySequence_Fast_GET_SIZE(fseq); | |
} | |
} | |
/* Get space. */ | |
res = _PyUnicode_New(res_alloc); | |
if (res == NULL) | |
goto onError; | |
res_p = PyUnicode_AS_UNICODE(res); | |
res_used = 0; | |
for (i = 0; i < seqlen; ++i) { | |
Py_ssize_t itemlen; | |
Py_ssize_t new_res_used; | |
item = PySequence_Fast_GET_ITEM(fseq, i); | |
/* Convert item to Unicode. */ | |
if (! PyUnicode_Check(item) && ! PyString_Check(item)) { | |
PyErr_Format(PyExc_TypeError, | |
"sequence item %zd: expected string or Unicode," | |
" %.80s found", | |
i, Py_TYPE(item)->tp_name); | |
goto onError; | |
} | |
item = PyUnicode_FromObject(item); | |
if (item == NULL) | |
goto onError; | |
/* We own a reference to item from here on. */ | |
/* In case PyUnicode_FromObject() mutated seq. */ | |
seqlen = PySequence_Fast_GET_SIZE(fseq); | |
/* Make sure we have enough space for the separator and the item. */ | |
itemlen = PyUnicode_GET_SIZE(item); | |
new_res_used = res_used + itemlen; | |
if (new_res_used < 0) | |
goto Overflow; | |
if (i < seqlen - 1) { | |
new_res_used += seplen; | |
if (new_res_used < 0) | |
goto Overflow; | |
} | |
if (new_res_used > res_alloc) { | |
/* double allocated size until it's big enough */ | |
do { | |
res_alloc += res_alloc; | |
if (res_alloc <= 0) | |
goto Overflow; | |
} while (new_res_used > res_alloc); | |
if (_PyUnicode_Resize(&res, res_alloc) < 0) { | |
Py_DECREF(item); | |
goto onError; | |
} | |
res_p = PyUnicode_AS_UNICODE(res) + res_used; | |
} | |
/* Copy item, and maybe the separator. */ | |
Py_UNICODE_COPY(res_p, PyUnicode_AS_UNICODE(item), itemlen); | |
res_p += itemlen; | |
if (i < seqlen - 1) { | |
Py_UNICODE_COPY(res_p, sep, seplen); | |
res_p += seplen; | |
} | |
Py_DECREF(item); | |
res_used = new_res_used; | |
} | |
/* Shrink res to match the used area; this probably can't fail, | |
* but it's cheap to check. | |
*/ | |
if (_PyUnicode_Resize(&res, res_used) < 0) | |
goto onError; | |
Done: | |
Py_XDECREF(internal_separator); | |
Py_DECREF(fseq); | |
return (PyObject *)res; | |
Overflow: | |
PyErr_SetString(PyExc_OverflowError, | |
"join() result is too long for a Python string"); | |
Py_DECREF(item); | |
/* fall through */ | |
onError: | |
Py_XDECREF(internal_separator); | |
Py_DECREF(fseq); | |
Py_XDECREF(res); | |
return NULL; | |
} | |
static | |
PyUnicodeObject *pad(PyUnicodeObject *self, | |
Py_ssize_t left, | |
Py_ssize_t right, | |
Py_UNICODE fill) | |
{ | |
PyUnicodeObject *u; | |
if (left < 0) | |
left = 0; | |
if (right < 0) | |
right = 0; | |
if (left == 0 && right == 0 && PyUnicode_CheckExact(self)) { | |
Py_INCREF(self); | |
return self; | |
} | |
if (left > PY_SSIZE_T_MAX - self->length || | |
right > PY_SSIZE_T_MAX - (left + self->length)) { | |
PyErr_SetString(PyExc_OverflowError, "padded string is too long"); | |
return NULL; | |
} | |
u = _PyUnicode_New(left + self->length + right); | |
if (u) { | |
if (left) | |
Py_UNICODE_FILL(u->str, fill, left); | |
Py_UNICODE_COPY(u->str + left, self->str, self->length); | |
if (right) | |
Py_UNICODE_FILL(u->str + left + self->length, fill, right); | |
} | |
return u; | |
} | |
PyObject *PyUnicode_Splitlines(PyObject *string, int keepends) | |
{ | |
PyObject *list; | |
string = PyUnicode_FromObject(string); | |
if (string == NULL) | |
return NULL; | |
list = stringlib_splitlines( | |
(PyObject*) string, PyUnicode_AS_UNICODE(string), | |
PyUnicode_GET_SIZE(string), keepends); | |
Py_DECREF(string); | |
return list; | |
} | |
static | |
PyObject *split(PyUnicodeObject *self, | |
PyUnicodeObject *substring, | |
Py_ssize_t maxcount) | |
{ | |
if (maxcount < 0) | |
maxcount = PY_SSIZE_T_MAX; | |
if (substring == NULL) | |
return stringlib_split_whitespace( | |
(PyObject*) self, self->str, self->length, maxcount | |
); | |
return stringlib_split( | |
(PyObject*) self, self->str, self->length, | |
substring->str, substring->length, | |
maxcount | |
); | |
} | |
static | |
PyObject *rsplit(PyUnicodeObject *self, | |
PyUnicodeObject *substring, | |
Py_ssize_t maxcount) | |
{ | |
if (maxcount < 0) | |
maxcount = PY_SSIZE_T_MAX; | |
if (substring == NULL) | |
return stringlib_rsplit_whitespace( | |
(PyObject*) self, self->str, self->length, maxcount | |
); | |
return stringlib_rsplit( | |
(PyObject*) self, self->str, self->length, | |
substring->str, substring->length, | |
maxcount | |
); | |
} | |
static | |
PyObject *replace(PyUnicodeObject *self, | |
PyUnicodeObject *str1, | |
PyUnicodeObject *str2, | |
Py_ssize_t maxcount) | |
{ | |
PyUnicodeObject *u; | |
if (maxcount < 0) | |
maxcount = PY_SSIZE_T_MAX; | |
else if (maxcount == 0 || self->length == 0) | |
goto nothing; | |
if (str1->length == str2->length) { | |
Py_ssize_t i; | |
/* same length */ | |
if (str1->length == 0) | |
goto nothing; | |
if (str1->length == 1) { | |
/* replace characters */ | |
Py_UNICODE u1, u2; | |
if (!findchar(self->str, self->length, str1->str[0])) | |
goto nothing; | |
u = (PyUnicodeObject*) PyUnicode_FromUnicode(NULL, self->length); | |
if (!u) | |
return NULL; | |
Py_UNICODE_COPY(u->str, self->str, self->length); | |
u1 = str1->str[0]; | |
u2 = str2->str[0]; | |
for (i = 0; i < u->length; i++) | |
if (u->str[i] == u1) { | |
if (--maxcount < 0) | |
break; | |
u->str[i] = u2; | |
} | |
} else { | |
i = stringlib_find( | |
self->str, self->length, str1->str, str1->length, 0 | |
); | |
if (i < 0) | |
goto nothing; | |
u = (PyUnicodeObject*) PyUnicode_FromUnicode(NULL, self->length); | |
if (!u) | |
return NULL; | |
Py_UNICODE_COPY(u->str, self->str, self->length); | |
/* change everything in-place, starting with this one */ | |
Py_UNICODE_COPY(u->str+i, str2->str, str2->length); | |
i += str1->length; | |
while ( --maxcount > 0) { | |
i = stringlib_find(self->str+i, self->length-i, | |
str1->str, str1->length, | |
i); | |
if (i == -1) | |
break; | |
Py_UNICODE_COPY(u->str+i, str2->str, str2->length); | |
i += str1->length; | |
} | |
} | |
} else { | |
Py_ssize_t n, i, j; | |
Py_ssize_t product, new_size, delta; | |
Py_UNICODE *p; | |
/* replace strings */ | |
n = stringlib_count(self->str, self->length, str1->str, str1->length, | |
maxcount); | |
if (n == 0) | |
goto nothing; | |
/* new_size = self->length + n * (str2->length - str1->length)); */ | |
delta = (str2->length - str1->length); | |
if (delta == 0) { | |
new_size = self->length; | |
} else { | |
product = n * (str2->length - str1->length); | |
if ((product / (str2->length - str1->length)) != n) { | |
PyErr_SetString(PyExc_OverflowError, | |
"replace string is too long"); | |
return NULL; | |
} | |
new_size = self->length + product; | |
if (new_size < 0) { | |
PyErr_SetString(PyExc_OverflowError, | |
"replace string is too long"); | |
return NULL; | |
} | |
} | |
u = _PyUnicode_New(new_size); | |
if (!u) | |
return NULL; | |
i = 0; | |
p = u->str; | |
if (str1->length > 0) { | |
while (n-- > 0) { | |
/* look for next match */ | |
j = stringlib_find(self->str+i, self->length-i, | |
str1->str, str1->length, | |
i); | |
if (j == -1) | |
break; | |
else if (j > i) { | |
/* copy unchanged part [i:j] */ | |
Py_UNICODE_COPY(p, self->str+i, j-i); | |
p += j - i; | |
} | |
/* copy substitution string */ | |
if (str2->length > 0) { | |
Py_UNICODE_COPY(p, str2->str, str2->length); | |
p += str2->length; | |
} | |
i = j + str1->length; | |
} | |
if (i < self->length) | |
/* copy tail [i:] */ | |
Py_UNICODE_COPY(p, self->str+i, self->length-i); | |
} else { | |
/* interleave */ | |
while (n > 0) { | |
Py_UNICODE_COPY(p, str2->str, str2->length); | |
p += str2->length; | |
if (--n <= 0) | |
break; | |
*p++ = self->str[i++]; | |
} | |
Py_UNICODE_COPY(p, self->str+i, self->length-i); | |
} | |
} | |
return (PyObject *) u; | |
nothing: | |
/* nothing to replace; return original string (when possible) */ | |
if (PyUnicode_CheckExact(self)) { | |
Py_INCREF(self); | |
return (PyObject *) self; | |
} | |
return PyUnicode_FromUnicode(self->str, self->length); | |
} | |
/* --- Unicode Object Methods --------------------------------------------- */ | |
PyDoc_STRVAR(title__doc__, | |
"S.title() -> unicode\n\ | |
\n\ | |
Return a titlecased version of S, i.e. words start with title case\n\ | |
characters, all remaining cased characters have lower case."); | |
static PyObject* | |
unicode_title(PyUnicodeObject *self) | |
{ | |
return fixup(self, fixtitle); | |
} | |
PyDoc_STRVAR(capitalize__doc__, | |
"S.capitalize() -> unicode\n\ | |
\n\ | |
Return a capitalized version of S, i.e. make the first character\n\ | |
have upper case and the rest lower case."); | |
static PyObject* | |
unicode_capitalize(PyUnicodeObject *self) | |
{ | |
return fixup(self, fixcapitalize); | |
} | |
#if 0 | |
PyDoc_STRVAR(capwords__doc__, | |
"S.capwords() -> unicode\n\ | |
\n\ | |
Apply .capitalize() to all words in S and return the result with\n\ | |
normalized whitespace (all whitespace strings are replaced by ' ')."); | |
static PyObject* | |
unicode_capwords(PyUnicodeObject *self) | |
{ | |
PyObject *list; | |
PyObject *item; | |
Py_ssize_t i; | |
/* Split into words */ | |
list = split(self, NULL, -1); | |
if (!list) | |
return NULL; | |
/* Capitalize each word */ | |
for (i = 0; i < PyList_GET_SIZE(list); i++) { | |
item = fixup((PyUnicodeObject *)PyList_GET_ITEM(list, i), | |
fixcapitalize); | |
if (item == NULL) | |
goto onError; | |
Py_DECREF(PyList_GET_ITEM(list, i)); | |
PyList_SET_ITEM(list, i, item); | |
} | |
/* Join the words to form a new string */ | |
item = PyUnicode_Join(NULL, list); | |
onError: | |
Py_DECREF(list); | |
return (PyObject *)item; | |
} | |
#endif | |
/* Argument converter. Coerces to a single unicode character */ | |
static int | |
convert_uc(PyObject *obj, void *addr) | |
{ | |
Py_UNICODE *fillcharloc = (Py_UNICODE *)addr; | |
PyObject *uniobj; | |
Py_UNICODE *unistr; | |
uniobj = PyUnicode_FromObject(obj); | |
if (uniobj == NULL) { | |
PyErr_SetString(PyExc_TypeError, | |
"The fill character cannot be converted to Unicode"); | |
return 0; | |
} | |
if (PyUnicode_GET_SIZE(uniobj) != 1) { | |
PyErr_SetString(PyExc_TypeError, | |
"The fill character must be exactly one character long"); | |
Py_DECREF(uniobj); | |
return 0; | |
} | |
unistr = PyUnicode_AS_UNICODE(uniobj); | |
*fillcharloc = unistr[0]; | |
Py_DECREF(uniobj); | |
return 1; | |
} | |
PyDoc_STRVAR(center__doc__, | |
"S.center(width[, fillchar]) -> unicode\n\ | |
\n\ | |
Return S centered in a Unicode string of length width. Padding is\n\ | |
done using the specified fill character (default is a space)"); | |
static PyObject * | |
unicode_center(PyUnicodeObject *self, PyObject *args) | |
{ | |
Py_ssize_t marg, left; | |
Py_ssize_t width; | |
Py_UNICODE fillchar = ' '; | |
if (!PyArg_ParseTuple(args, "n|O&:center", &width, convert_uc, &fillchar)) | |
return NULL; | |
if (self->length >= width && PyUnicode_CheckExact(self)) { | |
Py_INCREF(self); | |
return (PyObject*) self; | |
} | |
marg = width - self->length; | |
left = marg / 2 + (marg & width & 1); | |
return (PyObject*) pad(self, left, marg - left, fillchar); | |
} | |
#if 0 | |
/* This code should go into some future Unicode collation support | |
module. The basic comparison should compare ordinals on a naive | |
basis (this is what Java does and thus Jython too). */ | |
/* speedy UTF-16 code point order comparison */ | |
/* gleaned from: */ | |
/* http://www-4.ibm.com/software/developer/library/utf16.html?dwzone=unicode */ | |
static short utf16Fixup[32] = | |
{ | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0, 0, 0, 0, 0, | |
0, 0, 0, 0x2000, -0x800, -0x800, -0x800, -0x800 | |
}; | |
static int | |
unicode_compare(PyUnicodeObject *str1, PyUnicodeObject *str2) | |
{ | |
Py_ssize_t len1, len2; | |
Py_UNICODE *s1 = str1->str; | |
Py_UNICODE *s2 = str2->str; | |
len1 = str1->length; | |
len2 = str2->length; | |
while (len1 > 0 && len2 > 0) { | |
Py_UNICODE c1, c2; | |
c1 = *s1++; | |
c2 = *s2++; | |
if (c1 > (1<<11) * 26) | |
c1 += utf16Fixup[c1>>11]; | |
if (c2 > (1<<11) * 26) | |
c2 += utf16Fixup[c2>>11]; | |
/* now c1 and c2 are in UTF-32-compatible order */ | |
if (c1 != c2) | |
return (c1 < c2) ? -1 : 1; | |
len1--; len2--; | |
} | |
return (len1 < len2) ? -1 : (len1 != len2); | |
} | |
#else | |
static int | |
unicode_compare(PyUnicodeObject *str1, PyUnicodeObject *str2) | |
{ | |
register Py_ssize_t len1, len2; | |
Py_UNICODE *s1 = str1->str; | |
Py_UNICODE *s2 = str2->str; | |
len1 = str1->length; | |
len2 = str2->length; | |
while (len1 > 0 && len2 > 0) { | |
Py_UNICODE c1, c2; | |
c1 = *s1++; | |
c2 = *s2++; | |
if (c1 != c2) | |
return (c1 < c2) ? -1 : 1; | |
len1--; len2--; | |
} | |
return (len1 < len2) ? -1 : (len1 != len2); | |
} | |
#endif | |
int PyUnicode_Compare(PyObject *left, | |
PyObject *right) | |
{ | |
PyUnicodeObject *u = NULL, *v = NULL; | |
int result; | |
/* Coerce the two arguments */ | |
u = (PyUnicodeObject *)PyUnicode_FromObject(left); | |
if (u == NULL) | |
goto onError; | |
v = (PyUnicodeObject *)PyUnicode_FromObject(right); | |
if (v == NULL) | |
goto onError; | |
/* Shortcut for empty or interned objects */ | |
if (v == u) { | |
Py_DECREF(u); | |
Py_DECREF(v); | |
return 0; | |
} | |
result = unicode_compare(u, v); | |
Py_DECREF(u); | |
Py_DECREF(v); | |
return result; | |
onError: | |
Py_XDECREF(u); | |
Py_XDECREF(v); | |
return -1; | |
} | |
PyObject *PyUnicode_RichCompare(PyObject *left, | |
PyObject *right, | |
int op) | |
{ | |
int result; | |
result = PyUnicode_Compare(left, right); | |
if (result == -1 && PyErr_Occurred()) | |
goto onError; | |
/* Convert the return value to a Boolean */ | |
switch (op) { | |
case Py_EQ: | |
result = (result == 0); | |
break; | |
case Py_NE: | |
result = (result != 0); | |
break; | |
case Py_LE: | |
result = (result <= 0); | |
break; | |
case Py_GE: | |
result = (result >= 0); | |
break; | |
case Py_LT: | |
result = (result == -1); | |
break; | |
case Py_GT: | |
result = (result == 1); | |
break; | |
} | |
return PyBool_FromLong(result); | |
onError: | |
/* Standard case | |
Type errors mean that PyUnicode_FromObject() could not convert | |
one of the arguments (usually the right hand side) to Unicode, | |
ie. we can't handle the comparison request. However, it is | |
possible that the other object knows a comparison method, which | |
is why we return Py_NotImplemented to give the other object a | |
chance. | |
*/ | |
if (PyErr_ExceptionMatches(PyExc_TypeError)) { | |
PyErr_Clear(); | |
Py_INCREF(Py_NotImplemented); | |
return Py_NotImplemented; | |
} | |
if (op != Py_EQ && op != Py_NE) | |
return NULL; | |
/* Equality comparison. | |
This is a special case: we silence any PyExc_UnicodeDecodeError | |
and instead turn it into a PyErr_UnicodeWarning. | |
*/ | |
if (!PyErr_ExceptionMatches(PyExc_UnicodeDecodeError)) | |
return NULL; | |
PyErr_Clear(); | |
if (PyErr_Warn(PyExc_UnicodeWarning, | |
(op == Py_EQ) ? | |
"Unicode equal comparison " | |
"failed to convert both arguments to Unicode - " | |
"interpreting them as being unequal" : | |
"Unicode unequal comparison " | |
"failed to convert both arguments to Unicode - " | |
"interpreting them as being unequal" | |
) < 0) | |
return NULL; | |
result = (op == Py_NE); | |
return PyBool_FromLong(result); | |
} | |
int PyUnicode_Contains(PyObject *container, | |
PyObject *element) | |
{ | |
PyObject *str, *sub; | |
int result; | |
/* Coerce the two arguments */ | |
sub = PyUnicode_FromObject(element); | |
if (!sub) { | |
return -1; | |
} | |
str = PyUnicode_FromObject(container); | |
if (!str) { | |
Py_DECREF(sub); | |
return -1; | |
} | |
result = stringlib_contains_obj(str, sub); | |
Py_DECREF(str); | |
Py_DECREF(sub); | |
return result; | |
} | |
/* Concat to string or Unicode object giving a new Unicode object. */ | |
PyObject *PyUnicode_Concat(PyObject *left, | |
PyObject *right) | |
{ | |
PyUnicodeObject *u = NULL, *v = NULL, *w; | |
/* Coerce the two arguments */ | |
u = (PyUnicodeObject *)PyUnicode_FromObject(left); | |
if (u == NULL) | |
goto onError; | |
v = (PyUnicodeObject *)PyUnicode_FromObject(right); | |
if (v == NULL) | |
goto onError; | |
/* Shortcuts */ | |
if (v == unicode_empty) { | |
Py_DECREF(v); | |
return (PyObject *)u; | |
} | |
if (u == unicode_empty) { | |
Py_DECREF(u); | |
return (PyObject *)v; | |
} | |
/* Concat the two Unicode strings */ | |
w = _PyUnicode_New(u->length + v->length); | |
if (w == NULL) | |
goto onError; | |
Py_UNICODE_COPY(w->str, u->str, u->length); | |
Py_UNICODE_COPY(w->str + u->length, v->str, v->length); | |
Py_DECREF(u); | |
Py_DECREF(v); | |
return (PyObject *)w; | |
onError: | |
Py_XDECREF(u); | |
Py_XDECREF(v); | |
return NULL; | |
} | |
PyDoc_STRVAR(count__doc__, | |
"S.count(sub[, start[, end]]) -> int\n\ | |
\n\ | |
Return the number of non-overlapping occurrences of substring sub in\n\ | |
Unicode string S[start:end]. Optional arguments start and end are\n\ | |
interpreted as in slice notation."); | |
static PyObject * | |
unicode_count(PyUnicodeObject *self, PyObject *args) | |
{ | |
PyUnicodeObject *substring; | |
Py_ssize_t start = 0; | |
Py_ssize_t end = PY_SSIZE_T_MAX; | |
PyObject *result; | |
if (!stringlib_parse_args_finds_unicode("count", args, &substring, | |
&start, &end)) | |
return NULL; | |
ADJUST_INDICES(start, end, self->length); | |
result = PyInt_FromSsize_t( | |
stringlib_count(self->str + start, end - start, | |
substring->str, substring->length, | |
PY_SSIZE_T_MAX) | |
); | |
Py_DECREF(substring); | |
return result; | |
} | |
PyDoc_STRVAR(encode__doc__, | |
"S.encode([encoding[,errors]]) -> string or unicode\n\ | |
\n\ | |
Encodes S using the codec registered for encoding. encoding defaults\n\ | |
to the default encoding. errors may be given to set a different error\n\ | |
handling scheme. Default is 'strict' meaning that encoding errors raise\n\ | |
a UnicodeEncodeError. Other possible values are 'ignore', 'replace' and\n\ | |
'xmlcharrefreplace' as well as any other name registered with\n\ | |
codecs.register_error that can handle UnicodeEncodeErrors."); | |
static PyObject * | |
unicode_encode(PyUnicodeObject *self, PyObject *args, PyObject *kwargs) | |
{ | |
static char *kwlist[] = {"encoding", "errors", 0}; | |
char *encoding = NULL; | |
char *errors = NULL; | |
PyObject *v; | |
if (!PyArg_ParseTupleAndKeywords(args, kwargs, "|ss:encode", | |
kwlist, &encoding, &errors)) | |
return NULL; | |
v = PyUnicode_AsEncodedObject((PyObject *)self, encoding, errors); | |
if (v == NULL) | |
goto onError; | |
if (!PyString_Check(v) && !PyUnicode_Check(v)) { | |
PyErr_Format(PyExc_TypeError, | |
"encoder did not return a string/unicode object " | |
"(type=%.400s)", | |
Py_TYPE(v)->tp_name); | |
Py_DECREF(v); | |
return NULL; | |
} | |
return v; | |
onError: | |
return NULL; | |
} | |
PyDoc_STRVAR(decode__doc__, | |
"S.decode([encoding[,errors]]) -> string or unicode\n\ | |
\n\ | |
Decodes S using the codec registered for encoding. encoding defaults\n\ | |
to the default encoding. errors may be given to set a different error\n\ | |
handling scheme. Default is 'strict' meaning that encoding errors raise\n\ | |
a UnicodeDecodeError. Other possible values are 'ignore' and 'replace'\n\ | |
as well as any other name registerd with codecs.register_error that is\n\ | |
able to handle UnicodeDecodeErrors."); | |
static PyObject * | |
unicode_decode(PyUnicodeObject *self, PyObject *args, PyObject *kwargs) | |
{ | |
static char *kwlist[] = {"encoding", "errors", 0}; | |
char *encoding = NULL; | |
char *errors = NULL; | |
PyObject *v; | |
if (!PyArg_ParseTupleAndKeywords(args, kwargs, "|ss:decode", | |
kwlist, &encoding, &errors)) | |
return NULL; | |
v = PyUnicode_AsDecodedObject((PyObject *)self, encoding, errors); | |
if (v == NULL) | |
goto onError; | |
if (!PyString_Check(v) && !PyUnicode_Check(v)) { | |
PyErr_Format(PyExc_TypeError, | |
"decoder did not return a string/unicode object " | |
"(type=%.400s)", | |
Py_TYPE(v)->tp_name); | |
Py_DECREF(v); | |
return NULL; | |
} | |
return v; | |
onError: | |
return NULL; | |
} | |
PyDoc_STRVAR(expandtabs__doc__, | |
"S.expandtabs([tabsize]) -> unicode\n\ | |
\n\ | |
Return a copy of S where all tab characters are expanded using spaces.\n\ | |
If tabsize is not given, a tab size of 8 characters is assumed."); | |
static PyObject* | |
unicode_expandtabs(PyUnicodeObject *self, PyObject *args) | |
{ | |
Py_UNICODE *e; | |
Py_UNICODE *p; | |
Py_UNICODE *q; | |
Py_UNICODE *qe; | |
Py_ssize_t i, j, incr; | |
PyUnicodeObject *u; | |
int tabsize = 8; | |
if (!PyArg_ParseTuple(args, "|i:expandtabs", &tabsize)) | |
return NULL; | |
/* First pass: determine size of output string */ | |
i = 0; /* chars up to and including most recent \n or \r */ | |
j = 0; /* chars since most recent \n or \r (use in tab calculations) */ | |
e = self->str + self->length; /* end of input */ | |
for (p = self->str; p < e; p++) | |
if (*p == '\t') { | |
if (tabsize > 0) { | |
incr = tabsize - (j % tabsize); /* cannot overflow */ | |
if (j > PY_SSIZE_T_MAX - incr) | |
goto overflow1; | |
j += incr; | |
} | |
} | |
else { | |
if (j > PY_SSIZE_T_MAX - 1) | |
goto overflow1; | |
j++; | |
if (*p == '\n' || *p == '\r') { | |
if (i > PY_SSIZE_T_MAX - j) | |
goto overflow1; | |
i += j; | |
j = 0; | |
} | |
} | |
if (i > PY_SSIZE_T_MAX - j) | |
goto overflow1; | |
/* Second pass: create output string and fill it */ | |
u = _PyUnicode_New(i + j); | |
if (!u) | |
return NULL; | |
j = 0; /* same as in first pass */ | |
q = u->str; /* next output char */ | |
qe = u->str + u->length; /* end of output */ | |
for (p = self->str; p < e; p++) | |
if (*p == '\t') { | |
if (tabsize > 0) { | |
i = tabsize - (j % tabsize); | |
j += i; | |
while (i--) { | |
if (q >= qe) | |
goto overflow2; | |
*q++ = ' '; | |
} | |
} | |
} | |
else { | |
if (q >= qe) | |
goto overflow2; | |
*q++ = *p; | |
j++; | |
if (*p == '\n' || *p == '\r') | |
j = 0; | |
} | |
return (PyObject*) u; | |
overflow2: | |
Py_DECREF(u); | |
overflow1: | |
PyErr_SetString(PyExc_OverflowError, "new string is too long"); | |
return NULL; | |
} | |
PyDoc_STRVAR(find__doc__, | |
"S.find(sub [,start [,end]]) -> int\n\ | |
\n\ | |
Return the lowest index in S where substring sub is found,\n\ | |
such that sub is contained within s[start:end]. Optional\n\ | |
arguments start and end are interpreted as in slice notation.\n\ | |
\n\ | |
Return -1 on failure."); | |
static PyObject * | |
unicode_find(PyUnicodeObject *self, PyObject *args) | |
{ | |
PyUnicodeObject *substring; | |
Py_ssize_t start; | |
Py_ssize_t end; | |
Py_ssize_t result; | |
if (!stringlib_parse_args_finds_unicode("find", args, &substring, | |
&start, &end)) | |
return NULL; | |
result = stringlib_find_slice( | |
PyUnicode_AS_UNICODE(self), PyUnicode_GET_SIZE(self), | |
PyUnicode_AS_UNICODE(substring), PyUnicode_GET_SIZE(substring), | |
start, end | |
); | |
Py_DECREF(substring); | |
return PyInt_FromSsize_t(result); | |
} | |
static PyObject * | |
unicode_getitem(PyUnicodeObject *self, Py_ssize_t index) | |
{ | |
if (index < 0 || index >= self->length) { | |
PyErr_SetString(PyExc_IndexError, "string index out of range"); | |
return NULL; | |
} | |
return (PyObject*) PyUnicode_FromUnicode(&self->str[index], 1); | |
} | |
static long | |
unicode_hash(PyUnicodeObject *self) | |
{ | |
/* Since Unicode objects compare equal to their ASCII string | |
counterparts, they should use the individual character values | |
as basis for their hash value. This is needed to assure that | |
strings and Unicode objects behave in the same way as | |
dictionary keys. */ | |
register Py_ssize_t len; | |
register Py_UNICODE *p; | |
register long x; | |
if (self->hash != -1) | |
return self->hash; | |
len = PyUnicode_GET_SIZE(self); | |
p = PyUnicode_AS_UNICODE(self); | |
x = *p << 7; | |
while (--len >= 0) | |
x = (1000003*x) ^ *p++; | |
x ^= PyUnicode_GET_SIZE(self); | |
if (x == -1) | |
x = -2; | |
self->hash = x; | |
return x; | |
} | |
PyDoc_STRVAR(index__doc__, | |
"S.index(sub [,start [,end]]) -> int\n\ | |
\n\ | |
Like S.find() but raise ValueError when the substring is not found."); | |
static PyObject * | |
unicode_index(PyUnicodeObject *self, PyObject *args) | |
{ | |
Py_ssize_t result; | |
PyUnicodeObject *substring; | |
Py_ssize_t start; | |
Py_ssize_t end; | |
if (!stringlib_parse_args_finds_unicode("index", args, &substring, | |
&start, &end)) | |
return NULL; | |
result = stringlib_find_slice( | |
PyUnicode_AS_UNICODE(self), PyUnicode_GET_SIZE(self), | |
PyUnicode_AS_UNICODE(substring), PyUnicode_GET_SIZE(substring), | |
start, end | |
); | |
Py_DECREF(substring); | |
if (result < 0) { | |
PyErr_SetString(PyExc_ValueError, "substring not found"); | |
return NULL; | |
} | |
return PyInt_FromSsize_t(result); | |
} | |
PyDoc_STRVAR(islower__doc__, | |
"S.islower() -> bool\n\ | |
\n\ | |
Return True if all cased characters in S are lowercase and there is\n\ | |
at least one cased character in S, False otherwise."); | |
static PyObject* | |
unicode_islower(PyUnicodeObject *self) | |
{ | |
register const Py_UNICODE *p = PyUnicode_AS_UNICODE(self); | |
register const Py_UNICODE *e; | |
int cased; | |
/* Shortcut for single character strings */ | |
if (PyUnicode_GET_SIZE(self) == 1) | |
return PyBool_FromLong(Py_UNICODE_ISLOWER(*p)); | |
/* Special case for empty strings */ | |
if (PyUnicode_GET_SIZE(self) == 0) | |
return PyBool_FromLong(0); | |
e = p + PyUnicode_GET_SIZE(self); | |
cased = 0; | |
for (; p < e; p++) { | |
register const Py_UNICODE ch = *p; | |
if (Py_UNICODE_ISUPPER(ch) || Py_UNICODE_ISTITLE(ch)) | |
return PyBool_FromLong(0); | |
else if (!cased && Py_UNICODE_ISLOWER(ch)) | |
cased = 1; | |
} | |
return PyBool_FromLong(cased); | |
} | |
PyDoc_STRVAR(isupper__doc__, | |
"S.isupper() -> bool\n\ | |
\n\ | |
Return True if all cased characters in S are uppercase and there is\n\ | |
at least one cased character in S, False otherwise."); | |
static PyObject* | |
unicode_isupper(PyUnicodeObject *self) | |
{ | |
register const Py_UNICODE *p = PyUnicode_AS_UNICODE(self); | |
register const Py_UNICODE *e; | |
int cased; | |
/* Shortcut for single character strings */ | |
if (PyUnicode_GET_SIZE(self) == 1) | |
return PyBool_FromLong(Py_UNICODE_ISUPPER(*p) != 0); | |
/* Special case for empty strings */ | |
if (PyUnicode_GET_SIZE(self) == 0) | |
return PyBool_FromLong(0); | |
e = p + PyUnicode_GET_SIZE(self); | |
cased = 0; | |
for (; p < e; p++) { | |
register const Py_UNICODE ch = *p; | |
if (Py_UNICODE_ISLOWER(ch) || Py_UNICODE_ISTITLE(ch)) | |
return PyBool_FromLong(0); | |
else if (!cased && Py_UNICODE_ISUPPER(ch)) | |
cased = 1; | |
} | |
return PyBool_FromLong(cased); | |
} | |
PyDoc_STRVAR(istitle__doc__, | |
"S.istitle() -> bool\n\ | |
\n\ | |
Return True if S is a titlecased string and there is at least one\n\ | |
character in S, i.e. upper- and titlecase characters may only\n\ | |
follow uncased characters and lowercase characters only cased ones.\n\ | |
Return False otherwise."); | |
static PyObject* | |
unicode_istitle(PyUnicodeObject *self) | |
{ | |
register const Py_UNICODE *p = PyUnicode_AS_UNICODE(self); | |
register const Py_UNICODE *e; | |
int cased, previous_is_cased; | |
/* Shortcut for single character strings */ | |
if (PyUnicode_GET_SIZE(self) == 1) | |
return PyBool_FromLong((Py_UNICODE_ISTITLE(*p) != 0) || | |
(Py_UNICODE_ISUPPER(*p) != 0)); | |
/* Special case for empty strings */ | |
if (PyUnicode_GET_SIZE(self) == 0) | |
return PyBool_FromLong(0); | |
e = p + PyUnicode_GET_SIZE(self); | |
cased = 0; | |
previous_is_cased = 0; | |
for (; p < e; p++) { | |
register const Py_UNICODE ch = *p; | |
if (Py_UNICODE_ISUPPER(ch) || Py_UNICODE_ISTITLE(ch)) { | |
if (previous_is_cased) | |
return PyBool_FromLong(0); | |
previous_is_cased = 1; | |
cased = 1; | |
} | |
else if (Py_UNICODE_ISLOWER(ch)) { | |
if (!previous_is_cased) | |
return PyBool_FromLong(0); | |
previous_is_cased = 1; | |
cased = 1; | |
} | |
else | |
previous_is_cased = 0; | |
} | |
return PyBool_FromLong(cased); | |
} | |
PyDoc_STRVAR(isspace__doc__, | |
"S.isspace() -> bool\n\ | |
\n\ | |
Return True if all characters in S are whitespace\n\ | |
and there is at least one character in S, False otherwise."); | |
static PyObject* | |
unicode_isspace(PyUnicodeObject *self) | |
{ | |
register const Py_UNICODE *p = PyUnicode_AS_UNICODE(self); | |
register const Py_UNICODE *e; | |
/* Shortcut for single character strings */ | |
if (PyUnicode_GET_SIZE(self) == 1 && | |
Py_UNICODE_ISSPACE(*p)) | |
return PyBool_FromLong(1); | |
/* Special case for empty strings */ | |
if (PyUnicode_GET_SIZE(self) == 0) | |
return PyBool_FromLong(0); | |
e = p + PyUnicode_GET_SIZE(self); | |
for (; p < e; p++) { | |
if (!Py_UNICODE_ISSPACE(*p)) | |
return PyBool_FromLong(0); | |
} | |
return PyBool_FromLong(1); | |
} | |
PyDoc_STRVAR(isalpha__doc__, | |
"S.isalpha() -> bool\n\ | |
\n\ | |
Return True if all characters in S are alphabetic\n\ | |
and there is at least one character in S, False otherwise."); | |
static PyObject* | |
unicode_isalpha(PyUnicodeObject *self) | |
{ | |
register const Py_UNICODE *p = PyUnicode_AS_UNICODE(self); | |
register const Py_UNICODE *e; | |
/* Shortcut for single character strings */ | |
if (PyUnicode_GET_SIZE(self) == 1 && | |
Py_UNICODE_ISALPHA(*p)) | |
return PyBool_FromLong(1); | |
/* Special case for empty strings */ | |
if (PyUnicode_GET_SIZE(self) == 0) | |
return PyBool_FromLong(0); | |
e = p + PyUnicode_GET_SIZE(self); | |
for (; p < e; p++) { | |
if (!Py_UNICODE_ISALPHA(*p)) | |
return PyBool_FromLong(0); | |
} | |
return PyBool_FromLong(1); | |
} | |
PyDoc_STRVAR(isalnum__doc__, | |
"S.isalnum() -> bool\n\ | |
\n\ | |
Return True if all characters in S are alphanumeric\n\ | |
and there is at least one character in S, False otherwise."); | |
static PyObject* | |
unicode_isalnum(PyUnicodeObject *self) | |
{ | |
register const Py_UNICODE *p = PyUnicode_AS_UNICODE(self); | |
register const Py_UNICODE *e; | |
/* Shortcut for single character strings */ | |
if (PyUnicode_GET_SIZE(self) == 1 && | |
Py_UNICODE_ISALNUM(*p)) | |
return PyBool_FromLong(1); | |
/* Special case for empty strings */ | |
if (PyUnicode_GET_SIZE(self) == 0) | |
return PyBool_FromLong(0); | |
e = p + PyUnicode_GET_SIZE(self); | |
for (; p < e; p++) { | |
if (!Py_UNICODE_ISALNUM(*p)) | |
return PyBool_FromLong(0); | |
} | |
return PyBool_FromLong(1); | |
} | |
PyDoc_STRVAR(isdecimal__doc__, | |
"S.isdecimal() -> bool\n\ | |
\n\ | |
Return True if there are only decimal characters in S,\n\ | |
False otherwise."); | |
static PyObject* | |
unicode_isdecimal(PyUnicodeObject *self) | |
{ | |
register const Py_UNICODE *p = PyUnicode_AS_UNICODE(self); | |
register const Py_UNICODE *e; | |
/* Shortcut for single character strings */ | |
if (PyUnicode_GET_SIZE(self) == 1 && | |
Py_UNICODE_ISDECIMAL(*p)) | |
return PyBool_FromLong(1); | |
/* Special case for empty strings */ | |
if (PyUnicode_GET_SIZE(self) == 0) | |
return PyBool_FromLong(0); | |
e = p + PyUnicode_GET_SIZE(self); | |
for (; p < e; p++) { | |
if (!Py_UNICODE_ISDECIMAL(*p)) | |
return PyBool_FromLong(0); | |
} | |
return PyBool_FromLong(1); | |
} | |
PyDoc_STRVAR(isdigit__doc__, | |
"S.isdigit() -> bool\n\ | |
\n\ | |
Return True if all characters in S are digits\n\ | |
and there is at least one character in S, False otherwise."); | |
static PyObject* | |
unicode_isdigit(PyUnicodeObject *self) | |
{ | |
register const Py_UNICODE *p = PyUnicode_AS_UNICODE(self); | |
register const Py_UNICODE *e; | |
/* Shortcut for single character strings */ | |
if (PyUnicode_GET_SIZE(self) == 1 && | |
Py_UNICODE_ISDIGIT(*p)) | |
return PyBool_FromLong(1); | |
/* Special case for empty strings */ | |
if (PyUnicode_GET_SIZE(self) == 0) | |
return PyBool_FromLong(0); | |
e = p + PyUnicode_GET_SIZE(self); | |
for (; p < e; p++) { | |
if (!Py_UNICODE_ISDIGIT(*p)) | |
return PyBool_FromLong(0); | |
} | |
return PyBool_FromLong(1); | |
} | |
PyDoc_STRVAR(isnumeric__doc__, | |
"S.isnumeric() -> bool\n\ | |
\n\ | |
Return True if there are only numeric characters in S,\n\ | |
False otherwise."); | |
static PyObject* | |
unicode_isnumeric(PyUnicodeObject *self) | |
{ | |
register const Py_UNICODE *p = PyUnicode_AS_UNICODE(self); | |
register const Py_UNICODE *e; | |
/* Shortcut for single character strings */ | |
if (PyUnicode_GET_SIZE(self) == 1 && | |
Py_UNICODE_ISNUMERIC(*p)) | |
return PyBool_FromLong(1); | |
/* Special case for empty strings */ | |
if (PyUnicode_GET_SIZE(self) == 0) | |
return PyBool_FromLong(0); | |
e = p + PyUnicode_GET_SIZE(self); | |
for (; p < e; p++) { | |
if (!Py_UNICODE_ISNUMERIC(*p)) | |
return PyBool_FromLong(0); | |
} | |
return PyBool_FromLong(1); | |
} | |
PyDoc_STRVAR(join__doc__, | |
"S.join(iterable) -> unicode\n\ | |
\n\ | |
Return a string which is the concatenation of the strings in the\n\ | |
iterable. The separator between elements is S."); | |
static PyObject* | |
unicode_join(PyObject *self, PyObject *data) | |
{ | |
return PyUnicode_Join(self, data); | |
} | |
static Py_ssize_t | |
unicode_length(PyUnicodeObject *self) | |
{ | |
return self->length; | |
} | |
PyDoc_STRVAR(ljust__doc__, | |
"S.ljust(width[, fillchar]) -> int\n\ | |
\n\ | |
Return S left-justified in a Unicode string of length width. Padding is\n\ | |
done using the specified fill character (default is a space)."); | |
static PyObject * | |
unicode_ljust(PyUnicodeObject *self, PyObject *args) | |
{ | |
Py_ssize_t width; | |
Py_UNICODE fillchar = ' '; | |
if (!PyArg_ParseTuple(args, "n|O&:ljust", &width, convert_uc, &fillchar)) | |
return NULL; | |
if (self->length >= width && PyUnicode_CheckExact(self)) { | |
Py_INCREF(self); | |
return (PyObject*) self; | |
} | |
return (PyObject*) pad(self, 0, width - self->length, fillchar); | |
} | |
PyDoc_STRVAR(lower__doc__, | |
"S.lower() -> unicode\n\ | |
\n\ | |
Return a copy of the string S converted to lowercase."); | |
static PyObject* | |
unicode_lower(PyUnicodeObject *self) | |
{ | |
return fixup(self, fixlower); | |
} | |
#define LEFTSTRIP 0 | |
#define RIGHTSTRIP 1 | |
#define BOTHSTRIP 2 | |
/* Arrays indexed by above */ | |
static const char *stripformat[] = {"|O:lstrip", "|O:rstrip", "|O:strip"}; | |
#define STRIPNAME(i) (stripformat[i]+3) | |
/* externally visible for str.strip(unicode) */ | |
PyObject * | |
_PyUnicode_XStrip(PyUnicodeObject *self, int striptype, PyObject *sepobj) | |
{ | |
Py_UNICODE *s = PyUnicode_AS_UNICODE(self); | |
Py_ssize_t len = PyUnicode_GET_SIZE(self); | |
Py_UNICODE *sep = PyUnicode_AS_UNICODE(sepobj); | |
Py_ssize_t seplen = PyUnicode_GET_SIZE(sepobj); | |
Py_ssize_t i, j; | |
BLOOM_MASK sepmask = make_bloom_mask(sep, seplen); | |
i = 0; | |
if (striptype != RIGHTSTRIP) { | |
while (i < len && BLOOM_MEMBER(sepmask, s[i], sep, seplen)) { | |
i++; | |
} | |
} | |
j = len; | |
if (striptype != LEFTSTRIP) { | |
do { | |
j--; | |
} while (j >= i && BLOOM_MEMBER(sepmask, s[j], sep, seplen)); | |
j++; | |
} | |
if (i == 0 && j == len && PyUnicode_CheckExact(self)) { | |
Py_INCREF(self); | |
return (PyObject*)self; | |
} | |
else | |
return PyUnicode_FromUnicode(s+i, j-i); | |
} | |
static PyObject * | |
do_strip(PyUnicodeObject *self, int striptype) | |
{ | |
Py_UNICODE *s = PyUnicode_AS_UNICODE(self); | |
Py_ssize_t len = PyUnicode_GET_SIZE(self), i, j; | |
i = 0; | |
if (striptype != RIGHTSTRIP) { | |
while (i < len && Py_UNICODE_ISSPACE(s[i])) { | |
i++; | |
} | |
} | |
j = len; | |
if (striptype != LEFTSTRIP) { | |
do { | |
j--; | |
} while (j >= i && Py_UNICODE_ISSPACE(s[j])); | |
j++; | |
} | |
if (i == 0 && j == len && PyUnicode_CheckExact(self)) { | |
Py_INCREF(self); | |
return (PyObject*)self; | |
} | |
else | |
return PyUnicode_FromUnicode(s+i, j-i); | |
} | |
static PyObject * | |
do_argstrip(PyUnicodeObject *self, int striptype, PyObject *args) | |
{ | |
PyObject *sep = NULL; | |
if (!PyArg_ParseTuple(args, (char *)stripformat[striptype], &sep)) | |
return NULL; | |
if (sep != NULL && sep != Py_None) { | |
if (PyUnicode_Check(sep)) | |
return _PyUnicode_XStrip(self, striptype, sep); | |
else if (PyString_Check(sep)) { | |
PyObject *res; | |
sep = PyUnicode_FromObject(sep); | |
if (sep==NULL) | |
return NULL; | |
res = _PyUnicode_XStrip(self, striptype, sep); | |
Py_DECREF(sep); | |
return res; | |
} | |
else { | |
PyErr_Format(PyExc_TypeError, | |
"%s arg must be None, unicode or str", | |
STRIPNAME(striptype)); | |
return NULL; | |
} | |
} | |
return do_strip(self, striptype); | |
} | |
PyDoc_STRVAR(strip__doc__, | |
"S.strip([chars]) -> unicode\n\ | |
\n\ | |
Return a copy of the string S with leading and trailing\n\ | |
whitespace removed.\n\ | |
If chars is given and not None, remove characters in chars instead.\n\ | |
If chars is a str, it will be converted to unicode before stripping"); | |
static PyObject * | |
unicode_strip(PyUnicodeObject *self, PyObject *args) | |
{ | |
if (PyTuple_GET_SIZE(args) == 0) | |
return do_strip(self, BOTHSTRIP); /* Common case */ | |
else | |
return do_argstrip(self, BOTHSTRIP, args); | |
} | |
PyDoc_STRVAR(lstrip__doc__, | |
"S.lstrip([chars]) -> unicode\n\ | |
\n\ | |
Return a copy of the string S with leading whitespace removed.\n\ | |
If chars is given and not None, remove characters in chars instead.\n\ | |
If chars is a str, it will be converted to unicode before stripping"); | |
static PyObject * | |
unicode_lstrip(PyUnicodeObject *self, PyObject *args) | |
{ | |
if (PyTuple_GET_SIZE(args) == 0) | |
return do_strip(self, LEFTSTRIP); /* Common case */ | |
else | |
return do_argstrip(self, LEFTSTRIP, args); | |
} | |
PyDoc_STRVAR(rstrip__doc__, | |
"S.rstrip([chars]) -> unicode\n\ | |
\n\ | |
Return a copy of the string S with trailing whitespace removed.\n\ | |
If chars is given and not None, remove characters in chars instead.\n\ | |
If chars is a str, it will be converted to unicode before stripping"); | |
static PyObject * | |
unicode_rstrip(PyUnicodeObject *self, PyObject *args) | |
{ | |
if (PyTuple_GET_SIZE(args) == 0) | |
return do_strip(self, RIGHTSTRIP); /* Common case */ | |
else | |
return do_argstrip(self, RIGHTSTRIP, args); | |
} | |
static PyObject* | |
unicode_repeat(PyUnicodeObject *str, Py_ssize_t len) | |
{ | |
PyUnicodeObject *u; | |
Py_UNICODE *p; | |
Py_ssize_t nchars; | |
size_t nbytes; | |
if (len < 0) | |
len = 0; | |
if (len == 1 && PyUnicode_CheckExact(str)) { | |
/* no repeat, return original string */ | |
Py_INCREF(str); | |
return (PyObject*) str; | |
} | |
/* ensure # of chars needed doesn't overflow int and # of bytes | |
* needed doesn't overflow size_t | |
*/ | |
nchars = len * str->length; | |
if (len && nchars / len != str->length) { | |
PyErr_SetString(PyExc_OverflowError, | |
"repeated string is too long"); | |
return NULL; | |
} | |
nbytes = (nchars + 1) * sizeof(Py_UNICODE); | |
if (nbytes / sizeof(Py_UNICODE) != (size_t)(nchars + 1)) { | |
PyErr_SetString(PyExc_OverflowError, | |
"repeated string is too long"); | |
return NULL; | |
} | |
u = _PyUnicode_New(nchars); | |
if (!u) | |
return NULL; | |
p = u->str; | |
if (str->length == 1 && len > 0) { | |
Py_UNICODE_FILL(p, str->str[0], len); | |
} else { | |
Py_ssize_t done = 0; /* number of characters copied this far */ | |
if (done < nchars) { | |
Py_UNICODE_COPY(p, str->str, str->length); | |
done = str->length; | |
} | |
while (done < nchars) { | |
Py_ssize_t n = (done <= nchars-done) ? done : nchars-done; | |
Py_UNICODE_COPY(p+done, p, n); | |
done += n; | |
} | |
} | |
return (PyObject*) u; | |
} | |
PyObject *PyUnicode_Replace(PyObject *obj, | |
PyObject *subobj, | |
PyObject *replobj, | |
Py_ssize_t maxcount) | |
{ | |
PyObject *self; | |
PyObject *str1; | |
PyObject *str2; | |
PyObject *result; | |
self = PyUnicode_FromObject(obj); | |
if (self == NULL) | |
return NULL; | |
str1 = PyUnicode_FromObject(subobj); | |
if (str1 == NULL) { | |
Py_DECREF(self); | |
return NULL; | |
} | |
str2 = PyUnicode_FromObject(replobj); | |
if (str2 == NULL) { | |
Py_DECREF(self); | |
Py_DECREF(str1); | |
return NULL; | |
} | |
result = replace((PyUnicodeObject *)self, | |
(PyUnicodeObject *)str1, | |
(PyUnicodeObject *)str2, | |
maxcount); | |
Py_DECREF(self); | |
Py_DECREF(str1); | |
Py_DECREF(str2); | |
return result; | |
} | |
PyDoc_STRVAR(replace__doc__, | |
"S.replace(old, new[, count]) -> unicode\n\ | |
\n\ | |
Return a copy of S with all occurrences of substring\n\ | |
old replaced by new. If the optional argument count is\n\ | |
given, only the first count occurrences are replaced."); | |
static PyObject* | |
unicode_replace(PyUnicodeObject *self, PyObject *args) | |
{ | |
PyUnicodeObject *str1; | |
PyUnicodeObject *str2; | |
Py_ssize_t maxcount = -1; | |
PyObject *result; | |
if (!PyArg_ParseTuple(args, "OO|n:replace", &str1, &str2, &maxcount)) | |
return NULL; | |
str1 = (PyUnicodeObject *)PyUnicode_FromObject((PyObject *)str1); | |
if (str1 == NULL) | |
return NULL; | |
str2 = (PyUnicodeObject *)PyUnicode_FromObject((PyObject *)str2); | |
if (str2 == NULL) { | |
Py_DECREF(str1); | |
return NULL; | |
} | |
result = replace(self, str1, str2, maxcount); | |
Py_DECREF(str1); | |
Py_DECREF(str2); | |
return result; | |
} | |
static | |
PyObject *unicode_repr(PyObject *unicode) | |
{ | |
return unicodeescape_string(PyUnicode_AS_UNICODE(unicode), | |
PyUnicode_GET_SIZE(unicode), | |
1); | |
} | |
PyDoc_STRVAR(rfind__doc__, | |
"S.rfind(sub [,start [,end]]) -> int\n\ | |
\n\ | |
Return the highest index in S where substring sub is found,\n\ | |
such that sub is contained within s[start:end]. Optional\n\ | |
arguments start and end are interpreted as in slice notation.\n\ | |
\n\ | |
Return -1 on failure."); | |
static PyObject * | |
unicode_rfind(PyUnicodeObject *self, PyObject *args) | |
{ | |
PyUnicodeObject *substring; | |
Py_ssize_t start; | |
Py_ssize_t end; | |
Py_ssize_t result; | |
if (!stringlib_parse_args_finds_unicode("rfind", args, &substring, | |
&start, &end)) | |
return NULL; | |
result = stringlib_rfind_slice( | |
PyUnicode_AS_UNICODE(self), PyUnicode_GET_SIZE(self), | |
PyUnicode_AS_UNICODE(substring), PyUnicode_GET_SIZE(substring), | |
start, end | |
); | |
Py_DECREF(substring); | |
return PyInt_FromSsize_t(result); | |
} | |
PyDoc_STRVAR(rindex__doc__, | |
"S.rindex(sub [,start [,end]]) -> int\n\ | |
\n\ | |
Like S.rfind() but raise ValueError when the substring is not found."); | |
static PyObject * | |
unicode_rindex(PyUnicodeObject *self, PyObject *args) | |
{ | |
PyUnicodeObject *substring; | |
Py_ssize_t start; | |
Py_ssize_t end; | |
Py_ssize_t result; | |
if (!stringlib_parse_args_finds_unicode("rindex", args, &substring, | |
&start, &end)) | |
return NULL; | |
result = stringlib_rfind_slice( | |
PyUnicode_AS_UNICODE(self), PyUnicode_GET_SIZE(self), | |
PyUnicode_AS_UNICODE(substring), PyUnicode_GET_SIZE(substring), | |
start, end | |
); | |
Py_DECREF(substring); | |
if (result < 0) { | |
PyErr_SetString(PyExc_ValueError, "substring not found"); | |
return NULL; | |
} | |
return PyInt_FromSsize_t(result); | |
} | |
PyDoc_STRVAR(rjust__doc__, | |
"S.rjust(width[, fillchar]) -> unicode\n\ | |
\n\ | |
Return S right-justified in a Unicode string of length width. Padding is\n\ | |
done using the specified fill character (default is a space)."); | |
static PyObject * | |
unicode_rjust(PyUnicodeObject *self, PyObject *args) | |
{ | |
Py_ssize_t width; | |
Py_UNICODE fillchar = ' '; | |
if (!PyArg_ParseTuple(args, "n|O&:rjust", &width, convert_uc, &fillchar)) | |
return NULL; | |
if (self->length >= width && PyUnicode_CheckExact(self)) { | |
Py_INCREF(self); | |
return (PyObject*) self; | |
} | |
return (PyObject*) pad(self, width - self->length, 0, fillchar); | |
} | |
static PyObject* | |
unicode_slice(PyUnicodeObject *self, Py_ssize_t start, Py_ssize_t end) | |
{ | |
/* standard clamping */ | |
if (start < 0) | |
start = 0; | |
if (end < 0) | |
end = 0; | |
if (end > self->length) | |
end = self->length; | |
if (start == 0 && end == self->length && PyUnicode_CheckExact(self)) { | |
/* full slice, return original string */ | |
Py_INCREF(self); | |
return (PyObject*) self; | |
} | |
if (start > end) | |
start = end; | |
/* copy slice */ | |
return (PyObject*) PyUnicode_FromUnicode(self->str + start, | |
end - start); | |
} | |
PyObject *PyUnicode_Split(PyObject *s, | |
PyObject *sep, | |
Py_ssize_t maxsplit) | |
{ | |
PyObject *result; | |
s = PyUnicode_FromObject(s); | |
if (s == NULL) | |
return NULL; | |
if (sep != NULL) { | |
sep = PyUnicode_FromObject(sep); | |
if (sep == NULL) { | |
Py_DECREF(s); | |
return NULL; | |
} | |
} | |
result = split((PyUnicodeObject *)s, (PyUnicodeObject *)sep, maxsplit); | |
Py_DECREF(s); | |
Py_XDECREF(sep); | |
return result; | |
} | |
PyDoc_STRVAR(split__doc__, | |
"S.split([sep [,maxsplit]]) -> list of strings\n\ | |
\n\ | |
Return a list of the words in S, using sep as the\n\ | |
delimiter string. If maxsplit is given, at most maxsplit\n\ | |
splits are done. If sep is not specified or is None, any\n\ | |
whitespace string is a separator and empty strings are\n\ | |
removed from the result."); | |
static PyObject* | |
unicode_split(PyUnicodeObject *self, PyObject *args) | |
{ | |
PyObject *substring = Py_None; | |
Py_ssize_t maxcount = -1; | |
if (!PyArg_ParseTuple(args, "|On:split", &substring, &maxcount)) | |
return NULL; | |
if (substring == Py_None) | |
return split(self, NULL, maxcount); | |
else if (PyUnicode_Check(substring)) | |
return split(self, (PyUnicodeObject *)substring, maxcount); | |
else | |
return PyUnicode_Split((PyObject *)self, substring, maxcount); | |
} | |
PyObject * | |
PyUnicode_Partition(PyObject *str_in, PyObject *sep_in) | |
{ | |
PyObject* str_obj; | |
PyObject* sep_obj; | |
PyObject* out; | |
str_obj = PyUnicode_FromObject(str_in); | |
if (!str_obj) | |
return NULL; | |
sep_obj = PyUnicode_FromObject(sep_in); | |
if (!sep_obj) { | |
Py_DECREF(str_obj); | |
return NULL; | |
} | |
out = stringlib_partition( | |
str_obj, PyUnicode_AS_UNICODE(str_obj), PyUnicode_GET_SIZE(str_obj), | |
sep_obj, PyUnicode_AS_UNICODE(sep_obj), PyUnicode_GET_SIZE(sep_obj) | |
); | |
Py_DECREF(sep_obj); | |
Py_DECREF(str_obj); | |
return out; | |
} | |
PyObject * | |
PyUnicode_RPartition(PyObject *str_in, PyObject *sep_in) | |
{ | |
PyObject* str_obj; | |
PyObject* sep_obj; | |
PyObject* out; | |
str_obj = PyUnicode_FromObject(str_in); | |
if (!str_obj) | |
return NULL; | |
sep_obj = PyUnicode_FromObject(sep_in); | |
if (!sep_obj) { | |
Py_DECREF(str_obj); | |
return NULL; | |
} | |
out = stringlib_rpartition( | |
str_obj, PyUnicode_AS_UNICODE(str_obj), PyUnicode_GET_SIZE(str_obj), | |
sep_obj, PyUnicode_AS_UNICODE(sep_obj), PyUnicode_GET_SIZE(sep_obj) | |
); | |
Py_DECREF(sep_obj); | |
Py_DECREF(str_obj); | |
return out; | |
} | |
PyDoc_STRVAR(partition__doc__, | |
"S.partition(sep) -> (head, sep, tail)\n\ | |
\n\ | |
Search for the separator sep in S, and return the part before it,\n\ | |
the separator itself, and the part after it. If the separator is not\n\ | |
found, return S and two empty strings."); | |
static PyObject* | |
unicode_partition(PyUnicodeObject *self, PyObject *separator) | |
{ | |
return PyUnicode_Partition((PyObject *)self, separator); | |
} | |
PyDoc_STRVAR(rpartition__doc__, | |
"S.rpartition(sep) -> (head, sep, tail)\n\ | |
\n\ | |
Search for the separator sep in S, starting at the end of S, and return\n\ | |
the part before it, the separator itself, and the part after it. If the\n\ | |
separator is not found, return two empty strings and S."); | |
static PyObject* | |
unicode_rpartition(PyUnicodeObject *self, PyObject *separator) | |
{ | |
return PyUnicode_RPartition((PyObject *)self, separator); | |
} | |
PyObject *PyUnicode_RSplit(PyObject *s, | |
PyObject *sep, | |
Py_ssize_t maxsplit) | |
{ | |
PyObject *result; | |
s = PyUnicode_FromObject(s); | |
if (s == NULL) | |
return NULL; | |
if (sep != NULL) { | |
sep = PyUnicode_FromObject(sep); | |
if (sep == NULL) { | |
Py_DECREF(s); | |
return NULL; | |
} | |
} | |
result = rsplit((PyUnicodeObject *)s, (PyUnicodeObject *)sep, maxsplit); | |
Py_DECREF(s); | |
Py_XDECREF(sep); | |
return result; | |
} | |
PyDoc_STRVAR(rsplit__doc__, | |
"S.rsplit([sep [,maxsplit]]) -> list of strings\n\ | |
\n\ | |
Return a list of the words in S, using sep as the\n\ | |
delimiter string, starting at the end of the string and\n\ | |
working to the front. If maxsplit is given, at most maxsplit\n\ | |
splits are done. If sep is not specified, any whitespace string\n\ | |
is a separator."); | |
static PyObject* | |
unicode_rsplit(PyUnicodeObject *self, PyObject *args) | |
{ | |
PyObject *substring = Py_None; | |
Py_ssize_t maxcount = -1; | |
if (!PyArg_ParseTuple(args, "|On:rsplit", &substring, &maxcount)) | |
return NULL; | |
if (substring == Py_None) | |
return rsplit(self, NULL, maxcount); | |
else if (PyUnicode_Check(substring)) | |
return rsplit(self, (PyUnicodeObject *)substring, maxcount); | |
else | |
return PyUnicode_RSplit((PyObject *)self, substring, maxcount); | |
} | |
PyDoc_STRVAR(splitlines__doc__, | |
"S.splitlines([keepends]) -> list of strings\n\ | |
\n\ | |
Return a list of the lines in S, breaking at line boundaries.\n\ | |
Line breaks are not included in the resulting list unless keepends\n\ | |
is given and true."); | |
static PyObject* | |
unicode_splitlines(PyUnicodeObject *self, PyObject *args) | |
{ | |
int keepends = 0; | |
if (!PyArg_ParseTuple(args, "|i:splitlines", &keepends)) | |
return NULL; | |
return PyUnicode_Splitlines((PyObject *)self, keepends); | |
} | |
static | |
PyObject *unicode_str(PyUnicodeObject *self) | |
{ | |
return PyUnicode_AsEncodedString((PyObject *)self, NULL, NULL); | |
} | |
PyDoc_STRVAR(swapcase__doc__, | |
"S.swapcase() -> unicode\n\ | |
\n\ | |
Return a copy of S with uppercase characters converted to lowercase\n\ | |
and vice versa."); | |
static PyObject* | |
unicode_swapcase(PyUnicodeObject *self) | |
{ | |
return fixup(self, fixswapcase); | |
} | |
PyDoc_STRVAR(translate__doc__, | |
"S.translate(table) -> unicode\n\ | |
\n\ | |
Return a copy of the string S, where all characters have been mapped\n\ | |
through the given translation table, which must be a mapping of\n\ | |
Unicode ordinals to Unicode ordinals, Unicode strings or None.\n\ | |
Unmapped characters are left untouched. Characters mapped to None\n\ | |
are deleted."); | |
static PyObject* | |
unicode_translate(PyUnicodeObject *self, PyObject *table) | |
{ | |
return PyUnicode_TranslateCharmap(self->str, | |
self->length, | |
table, | |
"ignore"); | |
} | |
PyDoc_STRVAR(upper__doc__, | |
"S.upper() -> unicode\n\ | |
\n\ | |
Return a copy of S converted to uppercase."); | |
static PyObject* | |
unicode_upper(PyUnicodeObject *self) | |
{ | |
return fixup(self, fixupper); | |
} | |
PyDoc_STRVAR(zfill__doc__, | |
"S.zfill(width) -> unicode\n\ | |
\n\ | |
Pad a numeric string S with zeros on the left, to fill a field\n\ | |
of the specified width. The string S is never truncated."); | |
static PyObject * | |
unicode_zfill(PyUnicodeObject *self, PyObject *args) | |
{ | |
Py_ssize_t fill; | |
PyUnicodeObject *u; | |
Py_ssize_t width; | |
if (!PyArg_ParseTuple(args, "n:zfill", &width)) | |
return NULL; | |
if (self->length >= width) { | |
if (PyUnicode_CheckExact(self)) { | |
Py_INCREF(self); | |
return (PyObject*) self; | |
} | |
else | |
return PyUnicode_FromUnicode( | |
PyUnicode_AS_UNICODE(self), | |
PyUnicode_GET_SIZE(self) | |
); | |
} | |
fill = width - self->length; | |
u = pad(self, fill, 0, '0'); | |
if (u == NULL) | |
return NULL; | |
if (u->str[fill] == '+' || u->str[fill] == '-') { | |
/* move sign to beginning of string */ | |
u->str[0] = u->str[fill]; | |
u->str[fill] = '0'; | |
} | |
return (PyObject*) u; | |
} | |
#if 0 | |
static PyObject* | |
free_listsize(PyUnicodeObject *self) | |
{ | |
return PyInt_FromLong(numfree); | |
} | |
#endif | |
PyDoc_STRVAR(startswith__doc__, | |
"S.startswith(prefix[, start[, end]]) -> bool\n\ | |
\n\ | |
Return True if S starts with the specified prefix, False otherwise.\n\ | |
With optional start, test S beginning at that position.\n\ | |
With optional end, stop comparing S at that position.\n\ | |
prefix can also be a tuple of strings to try."); | |
static PyObject * | |
unicode_startswith(PyUnicodeObject *self, | |
PyObject *args) | |
{ | |
PyObject *subobj; | |
PyUnicodeObject *substring; | |
Py_ssize_t start = 0; | |
Py_ssize_t end = PY_SSIZE_T_MAX; | |
int result; | |
if (!stringlib_parse_args_finds("startswith", args, &subobj, &start, &end)) | |
return NULL; | |
if (PyTuple_Check(subobj)) { | |
Py_ssize_t i; | |
for (i = 0; i < PyTuple_GET_SIZE(subobj); i++) { | |
substring = (PyUnicodeObject *)PyUnicode_FromObject( | |
PyTuple_GET_ITEM(subobj, i)); | |
if (substring == NULL) | |
return NULL; | |
result = tailmatch(self, substring, start, end, -1); | |
Py_DECREF(substring); | |
if (result) { | |
Py_RETURN_TRUE; | |
} | |
} | |
/* nothing matched */ | |
Py_RETURN_FALSE; | |
} | |
substring = (PyUnicodeObject *)PyUnicode_FromObject(subobj); | |
if (substring == NULL) { | |
if (PyErr_ExceptionMatches(PyExc_TypeError)) | |
PyErr_Format(PyExc_TypeError, "startswith first arg must be str, " | |
"unicode, or tuple, not %s", Py_TYPE(subobj)->tp_name); | |
return NULL; | |
} | |
result = tailmatch(self, substring, start, end, -1); | |
Py_DECREF(substring); | |
return PyBool_FromLong(result); | |
} | |
PyDoc_STRVAR(endswith__doc__, | |
"S.endswith(suffix[, start[, end]]) -> bool\n\ | |
\n\ | |
Return True if S ends with the specified suffix, False otherwise.\n\ | |
With optional start, test S beginning at that position.\n\ | |
With optional end, stop comparing S at that position.\n\ | |
suffix can also be a tuple of strings to try."); | |
static PyObject * | |
unicode_endswith(PyUnicodeObject *self, | |
PyObject *args) | |
{ | |
PyObject *subobj; | |
PyUnicodeObject *substring; | |
Py_ssize_t start = 0; | |
Py_ssize_t end = PY_SSIZE_T_MAX; | |
int result; | |
if (!stringlib_parse_args_finds("endswith", args, &subobj, &start, &end)) | |
return NULL; | |
if (PyTuple_Check(subobj)) { | |
Py_ssize_t i; | |
for (i = 0; i < PyTuple_GET_SIZE(subobj); i++) { | |
substring = (PyUnicodeObject *)PyUnicode_FromObject( | |
PyTuple_GET_ITEM(subobj, i)); | |
if (substring == NULL) | |
return NULL; | |
result = tailmatch(self, substring, start, end, +1); | |
Py_DECREF(substring); | |
if (result) { | |
Py_RETURN_TRUE; | |
} | |
} | |
Py_RETURN_FALSE; | |
} | |
substring = (PyUnicodeObject *)PyUnicode_FromObject(subobj); | |
if (substring == NULL) { | |
if (PyErr_ExceptionMatches(PyExc_TypeError)) | |
PyErr_Format(PyExc_TypeError, "endswith first arg must be str, " | |
"unicode, or tuple, not %s", Py_TYPE(subobj)->tp_name); | |
return NULL; | |
} | |
result = tailmatch(self, substring, start, end, +1); | |
Py_DECREF(substring); | |
return PyBool_FromLong(result); | |
} | |
/* Implements do_string_format, which is unicode because of stringlib */ | |
#include "stringlib/string_format.h" | |
PyDoc_STRVAR(format__doc__, | |
"S.format(*args, **kwargs) -> unicode\n\ | |
\n\ | |
Return a formatted version of S, using substitutions from args and kwargs.\n\ | |
The substitutions are identified by braces ('{' and '}')."); | |
static PyObject * | |
unicode__format__(PyObject *self, PyObject *args) | |
{ | |
PyObject *format_spec; | |
PyObject *result = NULL; | |
PyObject *tmp = NULL; | |
/* If 2.x, convert format_spec to the same type as value */ | |
/* This is to allow things like u''.format('') */ | |
if (!PyArg_ParseTuple(args, "O:__format__", &format_spec)) | |
goto done; | |
if (!(PyBytes_Check(format_spec) || PyUnicode_Check(format_spec))) { | |
PyErr_Format(PyExc_TypeError, "__format__ arg must be str " | |
"or unicode, not %s", Py_TYPE(format_spec)->tp_name); | |
goto done; | |
} | |
tmp = PyObject_Unicode(format_spec); | |
if (tmp == NULL) | |
goto done; | |
format_spec = tmp; | |
result = _PyUnicode_FormatAdvanced(self, | |
PyUnicode_AS_UNICODE(format_spec), | |
PyUnicode_GET_SIZE(format_spec)); | |
done: | |
Py_XDECREF(tmp); | |
return result; | |
} | |
PyDoc_STRVAR(p_format__doc__, | |
"S.__format__(format_spec) -> unicode\n\ | |
\n\ | |
Return a formatted version of S as described by format_spec."); | |
static PyObject * | |
unicode__sizeof__(PyUnicodeObject *v) | |
{ | |
return PyInt_FromSsize_t(sizeof(PyUnicodeObject) + | |
sizeof(Py_UNICODE) * (v->length + 1)); | |
} | |
PyDoc_STRVAR(sizeof__doc__, | |
"S.__sizeof__() -> size of S in memory, in bytes\n\ | |
\n\ | |
"); | |
static PyObject * | |
unicode_getnewargs(PyUnicodeObject *v) | |
{ | |
return Py_BuildValue("(u#)", v->str, v->length); | |
} | |
static PyMethodDef unicode_methods[] = { | |
/* Order is according to common usage: often used methods should | |
appear first, since lookup is done sequentially. */ | |
{"encode", (PyCFunction) unicode_encode, METH_VARARGS | METH_KEYWORDS, encode__doc__}, | |
{"replace", (PyCFunction) unicode_replace, METH_VARARGS, replace__doc__}, | |
{"split", (PyCFunction) unicode_split, METH_VARARGS, split__doc__}, | |
{"rsplit", (PyCFunction) unicode_rsplit, METH_VARARGS, rsplit__doc__}, | |
{"join", (PyCFunction) unicode_join, METH_O, join__doc__}, | |
{"capitalize", (PyCFunction) unicode_capitalize, METH_NOARGS, capitalize__doc__}, | |
{"title", (PyCFunction) unicode_title, METH_NOARGS, title__doc__}, | |
{"center", (PyCFunction) unicode_center, METH_VARARGS, center__doc__}, | |
{"count", (PyCFunction) unicode_count, METH_VARARGS, count__doc__}, | |
{"expandtabs", (PyCFunction) unicode_expandtabs, METH_VARARGS, expandtabs__doc__}, | |
{"find", (PyCFunction) unicode_find, METH_VARARGS, find__doc__}, | |
{"partition", (PyCFunction) unicode_partition, METH_O, partition__doc__}, | |
{"index", (PyCFunction) unicode_index, METH_VARARGS, index__doc__}, | |
{"ljust", (PyCFunction) unicode_ljust, METH_VARARGS, ljust__doc__}, | |
{"lower", (PyCFunction) unicode_lower, METH_NOARGS, lower__doc__}, | |
{"lstrip", (PyCFunction) unicode_lstrip, METH_VARARGS, lstrip__doc__}, | |
{"decode", (PyCFunction) unicode_decode, METH_VARARGS | METH_KEYWORDS, decode__doc__}, | |
/* {"maketrans", (PyCFunction) unicode_maketrans, METH_VARARGS, maketrans__doc__}, */ | |
{"rfind", (PyCFunction) unicode_rfind, METH_VARARGS, rfind__doc__}, | |
{"rindex", (PyCFunction) unicode_rindex, METH_VARARGS, rindex__doc__}, | |
{"rjust", (PyCFunction) unicode_rjust, METH_VARARGS, rjust__doc__}, | |
{"rstrip", (PyCFunction) unicode_rstrip, METH_VARARGS, rstrip__doc__}, | |
{"rpartition", (PyCFunction) unicode_rpartition, METH_O, rpartition__doc__}, | |
{"splitlines", (PyCFunction) unicode_splitlines, METH_VARARGS, splitlines__doc__}, | |
{"strip", (PyCFunction) unicode_strip, METH_VARARGS, strip__doc__}, | |
{"swapcase", (PyCFunction) unicode_swapcase, METH_NOARGS, swapcase__doc__}, | |
{"translate", (PyCFunction) unicode_translate, METH_O, translate__doc__}, | |
{"upper", (PyCFunction) unicode_upper, METH_NOARGS, upper__doc__}, | |
{"startswith", (PyCFunction) unicode_startswith, METH_VARARGS, startswith__doc__}, | |
{"endswith", (PyCFunction) unicode_endswith, METH_VARARGS, endswith__doc__}, | |
{"islower", (PyCFunction) unicode_islower, METH_NOARGS, islower__doc__}, | |
{"isupper", (PyCFunction) unicode_isupper, METH_NOARGS, isupper__doc__}, | |
{"istitle", (PyCFunction) unicode_istitle, METH_NOARGS, istitle__doc__}, | |
{"isspace", (PyCFunction) unicode_isspace, METH_NOARGS, isspace__doc__}, | |
{"isdecimal", (PyCFunction) unicode_isdecimal, METH_NOARGS, isdecimal__doc__}, | |
{"isdigit", (PyCFunction) unicode_isdigit, METH_NOARGS, isdigit__doc__}, | |
{"isnumeric", (PyCFunction) unicode_isnumeric, METH_NOARGS, isnumeric__doc__}, | |
{"isalpha", (PyCFunction) unicode_isalpha, METH_NOARGS, isalpha__doc__}, | |
{"isalnum", (PyCFunction) unicode_isalnum, METH_NOARGS, isalnum__doc__}, | |
{"zfill", (PyCFunction) unicode_zfill, METH_VARARGS, zfill__doc__}, | |
{"format", (PyCFunction) do_string_format, METH_VARARGS | METH_KEYWORDS, format__doc__}, | |
{"__format__", (PyCFunction) unicode__format__, METH_VARARGS, p_format__doc__}, | |
{"_formatter_field_name_split", (PyCFunction) formatter_field_name_split, METH_NOARGS}, | |
{"_formatter_parser", (PyCFunction) formatter_parser, METH_NOARGS}, | |
{"__sizeof__", (PyCFunction) unicode__sizeof__, METH_NOARGS, sizeof__doc__}, | |
#if 0 | |
{"capwords", (PyCFunction) unicode_capwords, METH_NOARGS, capwords__doc__}, | |
#endif | |
#if 0 | |
/* This one is just used for debugging the implementation. */ | |
{"freelistsize", (PyCFunction) free_listsize, METH_NOARGS}, | |
#endif | |
{"__getnewargs__", (PyCFunction)unicode_getnewargs, METH_NOARGS}, | |
{NULL, NULL} | |
}; | |
static PyObject * | |
unicode_mod(PyObject *v, PyObject *w) | |
{ | |
if (!PyUnicode_Check(v)) { | |
Py_INCREF(Py_NotImplemented); | |
return Py_NotImplemented; | |
} | |
return PyUnicode_Format(v, w); | |
} | |
static PyNumberMethods unicode_as_number = { | |
0, /*nb_add*/ | |
0, /*nb_subtract*/ | |
0, /*nb_multiply*/ | |
0, /*nb_divide*/ | |
unicode_mod, /*nb_remainder*/ | |
}; | |
static PySequenceMethods unicode_as_sequence = { | |
(lenfunc) unicode_length, /* sq_length */ | |
PyUnicode_Concat, /* sq_concat */ | |
(ssizeargfunc) unicode_repeat, /* sq_repeat */ | |
(ssizeargfunc) unicode_getitem, /* sq_item */ | |
(ssizessizeargfunc) unicode_slice, /* sq_slice */ | |
0, /* sq_ass_item */ | |
0, /* sq_ass_slice */ | |
PyUnicode_Contains, /* sq_contains */ | |
}; | |
static PyObject* | |
unicode_subscript(PyUnicodeObject* self, PyObject* item) | |
{ | |
if (PyIndex_Check(item)) { | |
Py_ssize_t i = PyNumber_AsSsize_t(item, PyExc_IndexError); | |
if (i == -1 && PyErr_Occurred()) | |
return NULL; | |
if (i < 0) | |
i += PyUnicode_GET_SIZE(self); | |
return unicode_getitem(self, i); | |
} else if (PySlice_Check(item)) { | |
Py_ssize_t start, stop, step, slicelength, cur, i; | |
Py_UNICODE* source_buf; | |
Py_UNICODE* result_buf; | |
PyObject* result; | |
if (PySlice_GetIndicesEx((PySliceObject*)item, PyUnicode_GET_SIZE(self), | |
&start, &stop, &step, &slicelength) < 0) { | |
return NULL; | |
} | |
if (slicelength <= 0) { | |
return PyUnicode_FromUnicode(NULL, 0); | |
} else if (start == 0 && step == 1 && slicelength == self->length && | |
PyUnicode_CheckExact(self)) { | |
Py_INCREF(self); | |
return (PyObject *)self; | |
} else if (step == 1) { | |
return PyUnicode_FromUnicode(self->str + start, slicelength); | |
} else { | |
source_buf = PyUnicode_AS_UNICODE((PyObject*)self); | |
result_buf = (Py_UNICODE *)PyObject_MALLOC(slicelength* | |
sizeof(Py_UNICODE)); | |
if (result_buf == NULL) | |
return PyErr_NoMemory(); | |
for (cur = start, i = 0; i < slicelength; cur += step, i++) { | |
result_buf[i] = source_buf[cur]; | |
} | |
result = PyUnicode_FromUnicode(result_buf, slicelength); | |
PyObject_FREE(result_buf); | |
return result; | |
} | |
} else { | |
PyErr_SetString(PyExc_TypeError, "string indices must be integers"); | |
return NULL; | |
} | |
} | |
static PyMappingMethods unicode_as_mapping = { | |
(lenfunc)unicode_length, /* mp_length */ | |
(binaryfunc)unicode_subscript, /* mp_subscript */ | |
(objobjargproc)0, /* mp_ass_subscript */ | |
}; | |
static Py_ssize_t | |
unicode_buffer_getreadbuf(PyUnicodeObject *self, | |
Py_ssize_t index, | |
const void **ptr) | |
{ | |
if (index != 0) { | |
PyErr_SetString(PyExc_SystemError, | |
"accessing non-existent unicode segment"); | |
return -1; | |
} | |
*ptr = (void *) self->str; | |
return PyUnicode_GET_DATA_SIZE(self); | |
} | |
static Py_ssize_t | |
unicode_buffer_getwritebuf(PyUnicodeObject *self, Py_ssize_t index, | |
const void **ptr) | |
{ | |
PyErr_SetString(PyExc_TypeError, | |
"cannot use unicode as modifiable buffer"); | |
return -1; | |
} | |
static int | |
unicode_buffer_getsegcount(PyUnicodeObject *self, | |
Py_ssize_t *lenp) | |
{ | |
if (lenp) | |
*lenp = PyUnicode_GET_DATA_SIZE(self); | |
return 1; | |
} | |
static Py_ssize_t | |
unicode_buffer_getcharbuf(PyUnicodeObject *self, | |
Py_ssize_t index, | |
const void **ptr) | |
{ | |
PyObject *str; | |
if (index != 0) { | |
PyErr_SetString(PyExc_SystemError, | |
"accessing non-existent unicode segment"); | |
return -1; | |
} | |
str = _PyUnicode_AsDefaultEncodedString((PyObject *)self, NULL); | |
if (str == NULL) | |
return -1; | |
*ptr = (void *) PyString_AS_STRING(str); | |
return PyString_GET_SIZE(str); | |
} | |
/* Helpers for PyUnicode_Format() */ | |
static PyObject * | |
getnextarg(PyObject *args, Py_ssize_t arglen, Py_ssize_t *p_argidx) | |
{ | |
Py_ssize_t argidx = *p_argidx; | |
if (argidx < arglen) { | |
(*p_argidx)++; | |
if (arglen < 0) | |
return args; | |
else | |
return PyTuple_GetItem(args, argidx); | |
} | |
PyErr_SetString(PyExc_TypeError, | |
"not enough arguments for format string"); | |
return NULL; | |
} | |
#define F_LJUST (1<<0) | |
#define F_SIGN (1<<1) | |
#define F_BLANK (1<<2) | |
#define F_ALT (1<<3) | |
#define F_ZERO (1<<4) | |
static Py_ssize_t | |
strtounicode(Py_UNICODE *buffer, const char *charbuffer) | |
{ | |
register Py_ssize_t i; | |
Py_ssize_t len = strlen(charbuffer); | |
for (i = len - 1; i >= 0; i--) | |
buffer[i] = (Py_UNICODE) charbuffer[i]; | |
return len; | |
} | |
static int | |
longtounicode(Py_UNICODE *buffer, size_t len, const char *format, long x) | |
{ | |
Py_ssize_t result; | |
PyOS_snprintf((char *)buffer, len, format, x); | |
result = strtounicode(buffer, (char *)buffer); | |
return Py_SAFE_DOWNCAST(result, Py_ssize_t, int); | |
} | |
/* XXX To save some code duplication, formatfloat/long/int could have been | |
shared with stringobject.c, converting from 8-bit to Unicode after the | |
formatting is done. */ | |
/* Returns a new reference to a PyUnicode object, or NULL on failure. */ | |
static PyObject * | |
formatfloat(PyObject *v, int flags, int prec, int type) | |
{ | |
char *p; | |
PyObject *result; | |
double x; | |
x = PyFloat_AsDouble(v); | |
if (x == -1.0 && PyErr_Occurred()) | |
return NULL; | |
if (prec < 0) | |
prec = 6; | |
p = PyOS_double_to_string(x, type, prec, | |
(flags & F_ALT) ? Py_DTSF_ALT : 0, NULL); | |
if (p == NULL) | |
return NULL; | |
result = PyUnicode_FromStringAndSize(p, strlen(p)); | |
PyMem_Free(p); | |
return result; | |
} | |
static PyObject* | |
formatlong(PyObject *val, int flags, int prec, int type) | |
{ | |
char *buf; | |
int i, len; | |
PyObject *str; /* temporary string object. */ | |
PyUnicodeObject *result; | |
str = _PyString_FormatLong(val, flags, prec, type, &buf, &len); | |
if (!str) | |
return NULL; | |
result = _PyUnicode_New(len); | |
if (!result) { | |
Py_DECREF(str); | |
return NULL; | |
} | |
for (i = 0; i < len; i++) | |
result->str[i] = buf[i]; | |
result->str[len] = 0; | |
Py_DECREF(str); | |
return (PyObject*)result; | |
} | |
static int | |
formatint(Py_UNICODE *buf, | |
size_t buflen, | |
int flags, | |
int prec, | |
int type, | |
PyObject *v) | |
{ | |
/* fmt = '%#.' + `prec` + 'l' + `type` | |
* worst case length = 3 + 19 (worst len of INT_MAX on 64-bit machine) | |
* + 1 + 1 | |
* = 24 | |
*/ | |
char fmt[64]; /* plenty big enough! */ | |
char *sign; | |
long x; | |
x = PyInt_AsLong(v); | |
if (x == -1 && PyErr_Occurred()) | |
return -1; | |
if (x < 0 && type == 'u') { | |
type = 'd'; | |
} | |
if (x < 0 && (type == 'x' || type == 'X' || type == 'o')) | |
sign = "-"; | |
else | |
sign = ""; | |
if (prec < 0) | |
prec = 1; | |
/* buf = '+'/'-'/'' + '0'/'0x'/'' + '[0-9]'*max(prec, len(x in octal)) | |
* worst case buf = '-0x' + [0-9]*prec, where prec >= 11 | |
*/ | |
if (buflen <= 14 || buflen <= (size_t)3 + (size_t)prec) { | |
PyErr_SetString(PyExc_OverflowError, | |
"formatted integer is too long (precision too large?)"); | |
return -1; | |
} | |
if ((flags & F_ALT) && | |
(type == 'x' || type == 'X')) { | |
/* When converting under %#x or %#X, there are a number | |
* of issues that cause pain: | |
* - when 0 is being converted, the C standard leaves off | |
* the '0x' or '0X', which is inconsistent with other | |
* %#x/%#X conversions and inconsistent with Python's | |
* hex() function | |
* - there are platforms that violate the standard and | |
* convert 0 with the '0x' or '0X' | |
* (Metrowerks, Compaq Tru64) | |
* - there are platforms that give '0x' when converting | |
* under %#X, but convert 0 in accordance with the | |
* standard (OS/2 EMX) | |
* | |
* We can achieve the desired consistency by inserting our | |
* own '0x' or '0X' prefix, and substituting %x/%X in place | |
* of %#x/%#X. | |
* | |
* Note that this is the same approach as used in | |
* formatint() in stringobject.c | |
*/ | |
PyOS_snprintf(fmt, sizeof(fmt), "%s0%c%%.%dl%c", | |
sign, type, prec, type); | |
} | |
else { | |
PyOS_snprintf(fmt, sizeof(fmt), "%s%%%s.%dl%c", | |
sign, (flags&F_ALT) ? "#" : "", | |
prec, type); | |
} | |
if (sign[0]) | |
return longtounicode(buf, buflen, fmt, -x); | |
else | |
return longtounicode(buf, buflen, fmt, x); | |
} | |
static int | |
formatchar(Py_UNICODE *buf, | |
size_t buflen, | |
PyObject *v) | |
{ | |
PyObject *unistr; | |
char *str; | |
/* presume that the buffer is at least 2 characters long */ | |
if (PyUnicode_Check(v)) { | |
if (PyUnicode_GET_SIZE(v) != 1) | |
goto onError; | |
buf[0] = PyUnicode_AS_UNICODE(v)[0]; | |
} | |
else if (PyString_Check(v)) { | |
if (PyString_GET_SIZE(v) != 1) | |
goto onError; | |
/* #7649: "u'%c' % char" should behave like "u'%s' % char" and fail | |
with a UnicodeDecodeError if 'char' is not decodable with the | |
default encoding (usually ASCII, but it might be something else) */ | |
str = PyString_AS_STRING(v); | |
if ((unsigned char)str[0] > 0x7F) { | |
/* the char is not ASCII; try to decode the string using the | |
default encoding and return -1 to let the UnicodeDecodeError | |
be raised if the string can't be decoded */ | |
unistr = PyUnicode_Decode(str, 1, NULL, "strict"); | |
if (unistr == NULL) | |
return -1; | |
buf[0] = PyUnicode_AS_UNICODE(unistr)[0]; | |
Py_DECREF(unistr); | |
} | |
else | |
buf[0] = (Py_UNICODE)str[0]; | |
} | |
else { | |
/* Integer input truncated to a character */ | |
long x; | |
x = PyInt_AsLong(v); | |
if (x == -1 && PyErr_Occurred()) | |
goto onError; | |
#ifdef Py_UNICODE_WIDE | |
if (x < 0 || x > 0x10ffff) { | |
PyErr_SetString(PyExc_OverflowError, | |
"%c arg not in range(0x110000) " | |
"(wide Python build)"); | |
return -1; | |
} | |
#else | |
if (x < 0 || x > 0xffff) { | |
PyErr_SetString(PyExc_OverflowError, | |
"%c arg not in range(0x10000) " | |
"(narrow Python build)"); | |
return -1; | |
} | |
#endif | |
buf[0] = (Py_UNICODE) x; | |
} | |
buf[1] = '\0'; | |
return 1; | |
onError: | |
PyErr_SetString(PyExc_TypeError, | |
"%c requires int or char"); | |
return -1; | |
} | |
/* fmt%(v1,v2,...) is roughly equivalent to sprintf(fmt, v1, v2, ...) | |
FORMATBUFLEN is the length of the buffer in which the ints & | |
chars are formatted. XXX This is a magic number. Each formatting | |
routine does bounds checking to ensure no overflow, but a better | |
solution may be to malloc a buffer of appropriate size for each | |
format. For now, the current solution is sufficient. | |
*/ | |
#define FORMATBUFLEN (size_t)120 | |
PyObject *PyUnicode_Format(PyObject *format, | |
PyObject *args) | |
{ | |
Py_UNICODE *fmt, *res; | |
Py_ssize_t fmtcnt, rescnt, reslen, arglen, argidx; | |
int args_owned = 0; | |
PyUnicodeObject *result = NULL; | |
PyObject *dict = NULL; | |
PyObject *uformat; | |
if (format == NULL || args == NULL) { | |
PyErr_BadInternalCall(); | |
return NULL; | |
} | |
uformat = PyUnicode_FromObject(format); | |
if (uformat == NULL) | |
return NULL; | |
fmt = PyUnicode_AS_UNICODE(uformat); | |
fmtcnt = PyUnicode_GET_SIZE(uformat); | |
reslen = rescnt = fmtcnt + 100; | |
result = _PyUnicode_New(reslen); | |
if (result == NULL) | |
goto onError; | |
res = PyUnicode_AS_UNICODE(result); | |
if (PyTuple_Check(args)) { | |
arglen = PyTuple_Size(args); | |
argidx = 0; | |
} | |
else { | |
arglen = -1; | |
argidx = -2; | |
} | |
if (Py_TYPE(args)->tp_as_mapping && !PyTuple_Check(args) && | |
!PyObject_TypeCheck(args, &PyBaseString_Type)) | |
dict = args; | |
while (--fmtcnt >= 0) { | |
if (*fmt != '%') { | |
if (--rescnt < 0) { | |
rescnt = fmtcnt + 100; | |
reslen += rescnt; | |
if (_PyUnicode_Resize(&result, reslen) < 0) | |
goto onError; | |
res = PyUnicode_AS_UNICODE(result) + reslen - rescnt; | |
--rescnt; | |
} | |
*res++ = *fmt++; | |
} | |
else { | |
/* Got a format specifier */ | |
int flags = 0; | |
Py_ssize_t width = -1; | |
int prec = -1; | |
Py_UNICODE c = '\0'; | |
Py_UNICODE fill; | |
int isnumok; | |
PyObject *v = NULL; | |
PyObject *temp = NULL; | |
Py_UNICODE *pbuf = NULL; | |
Py_UNICODE sign; | |
Py_ssize_t len; | |
Py_UNICODE formatbuf[FORMATBUFLEN]; /* For format{int,char}() */ | |
fmt++; | |
if (*fmt == '(') { | |
Py_UNICODE *keystart; | |
Py_ssize_t keylen; | |
PyObject *key; | |
int pcount = 1; | |
if (dict == NULL) { | |
PyErr_SetString(PyExc_TypeError, | |
"format requires a mapping"); | |
goto onError; | |
} | |
++fmt; | |
--fmtcnt; | |
keystart = fmt; | |
/* Skip over balanced parentheses */ | |
while (pcount > 0 && --fmtcnt >= 0) { | |
if (*fmt == ')') | |
--pcount; | |
else if (*fmt == '(') | |
++pcount; | |
fmt++; | |
} | |
keylen = fmt - keystart - 1; | |
if (fmtcnt < 0 || pcount > 0) { | |
PyErr_SetString(PyExc_ValueError, | |
"incomplete format key"); | |
goto onError; | |
} | |
#if 0 | |
/* keys are converted to strings using UTF-8 and | |
then looked up since Python uses strings to hold | |
variables names etc. in its namespaces and we | |
wouldn't want to break common idioms. */ | |
key = PyUnicode_EncodeUTF8(keystart, | |
keylen, | |
NULL); | |
#else | |
key = PyUnicode_FromUnicode(keystart, keylen); | |
#endif | |
if (key == NULL) | |
goto onError; | |
if (args_owned) { | |
Py_DECREF(args); | |
args_owned = 0; | |
} | |
args = PyObject_GetItem(dict, key); | |
Py_DECREF(key); | |
if (args == NULL) { | |
goto onError; | |
} | |
args_owned = 1; | |
arglen = -1; | |
argidx = -2; | |
} | |
while (--fmtcnt >= 0) { | |
switch (c = *fmt++) { | |
case '-': flags |= F_LJUST; continue; | |
case '+': flags |= F_SIGN; continue; | |
case ' ': flags |= F_BLANK; continue; | |
case '#': flags |= F_ALT; continue; | |
case '0': flags |= F_ZERO; continue; | |
} | |
break; | |
} | |
if (c == '*') { | |
v = getnextarg(args, arglen, &argidx); | |
if (v == NULL) | |
goto onError; | |
if (!PyInt_Check(v)) { | |
PyErr_SetString(PyExc_TypeError, | |
"* wants int"); | |
goto onError; | |
} | |
width = PyInt_AsLong(v); | |
if (width < 0) { | |
flags |= F_LJUST; | |
width = -width; | |
} | |
if (--fmtcnt >= 0) | |
c = *fmt++; | |
} | |
else if (c >= '0' && c <= '9') { | |
width = c - '0'; | |
while (--fmtcnt >= 0) { | |
c = *fmt++; | |
if (c < '0' || c > '9') | |
break; | |
if ((width*10) / 10 != width) { | |
PyErr_SetString(PyExc_ValueError, | |
"width too big"); | |
goto onError; | |
} | |
width = width*10 + (c - '0'); | |
} | |
} | |
if (c == '.') { | |
prec = 0; | |
if (--fmtcnt >= 0) | |
c = *fmt++; | |
if (c == '*') { | |
v = getnextarg(args, arglen, &argidx); | |
if (v == NULL) | |
goto onError; | |
if (!PyInt_Check(v)) { | |
PyErr_SetString(PyExc_TypeError, | |
"* wants int"); | |
goto onError; | |
} | |
prec = PyInt_AsLong(v); | |
if (prec < 0) | |
prec = 0; | |
if (--fmtcnt >= 0) | |
c = *fmt++; | |
} | |
else if (c >= '0' && c <= '9') { | |
prec = c - '0'; | |
while (--fmtcnt >= 0) { | |
c = *fmt++; | |
if (c < '0' || c > '9') | |
break; | |
if ((prec*10) / 10 != prec) { | |
PyErr_SetString(PyExc_ValueError, | |
"prec too big"); | |
goto onError; | |
} | |
prec = prec*10 + (c - '0'); | |
} | |
} | |
} /* prec */ | |
if (fmtcnt >= 0) { | |
if (c == 'h' || c == 'l' || c == 'L') { | |
if (--fmtcnt >= 0) | |
c = *fmt++; | |
} | |
} | |
if (fmtcnt < 0) { | |
PyErr_SetString(PyExc_ValueError, | |
"incomplete format"); | |
goto onError; | |
} | |
if (c != '%') { | |
v = getnextarg(args, arglen, &argidx); | |
if (v == NULL) | |
goto onError; | |
} | |
sign = 0; | |
fill = ' '; | |
switch (c) { | |
case '%': | |
pbuf = formatbuf; | |
/* presume that buffer length is at least 1 */ | |
pbuf[0] = '%'; | |
len = 1; | |
break; | |
case 's': | |
case 'r': | |
if (PyUnicode_CheckExact(v) && c == 's') { | |
temp = v; | |
Py_INCREF(temp); | |
} | |
else { | |
PyObject *unicode; | |
if (c == 's') | |
temp = PyObject_Unicode(v); | |
else | |
temp = PyObject_Repr(v); | |
if (temp == NULL) | |
goto onError; | |
if (PyUnicode_Check(temp)) | |
/* nothing to do */; | |
else if (PyString_Check(temp)) { | |
/* convert to string to Unicode */ | |
unicode = PyUnicode_Decode(PyString_AS_STRING(temp), | |
PyString_GET_SIZE(temp), | |
NULL, | |
"strict"); | |
Py_DECREF(temp); | |
temp = unicode; | |
if (temp == NULL) | |
goto onError; | |
} | |
else { | |
Py_DECREF(temp); | |
PyErr_SetString(PyExc_TypeError, | |
"%s argument has non-string str()"); | |
goto onError; | |
} | |
} | |
pbuf = PyUnicode_AS_UNICODE(temp); | |
len = PyUnicode_GET_SIZE(temp); | |
if (prec >= 0 && len > prec) | |
len = prec; | |
break; | |
case 'i': | |
case 'd': | |
case 'u': | |
case 'o': | |
case 'x': | |
case 'X': | |
if (c == 'i') | |
c = 'd'; | |
isnumok = 0; | |
if (PyNumber_Check(v)) { | |
PyObject *iobj=NULL; | |
if (PyInt_Check(v) || (PyLong_Check(v))) { | |
iobj = v; | |
Py_INCREF(iobj); | |
} | |
else { | |
iobj = PyNumber_Int(v); | |
if (iobj==NULL) iobj = PyNumber_Long(v); | |
} | |
if (iobj!=NULL) { | |
if (PyInt_Check(iobj)) { | |
isnumok = 1; | |
pbuf = formatbuf; | |
len = formatint(pbuf, sizeof(formatbuf)/sizeof(Py_UNICODE), | |
flags, prec, c, iobj); | |
Py_DECREF(iobj); | |
if (len < 0) | |
goto onError; | |
sign = 1; | |
} | |
else if (PyLong_Check(iobj)) { | |
isnumok = 1; | |
temp = formatlong(iobj, flags, prec, c); | |
Py_DECREF(iobj); | |
if (!temp) | |
goto onError; | |
pbuf = PyUnicode_AS_UNICODE(temp); | |
len = PyUnicode_GET_SIZE(temp); | |
sign = 1; | |
} | |
else { | |
Py_DECREF(iobj); | |
} | |
} | |
} | |
if (!isnumok) { | |
PyErr_Format(PyExc_TypeError, | |
"%%%c format: a number is required, " | |
"not %.200s", (char)c, Py_TYPE(v)->tp_name); | |
goto onError; | |
} | |
if (flags & F_ZERO) | |
fill = '0'; | |
break; | |
case 'e': | |
case 'E': | |
case 'f': | |
case 'F': | |
case 'g': | |
case 'G': | |
temp = formatfloat(v, flags, prec, c); | |
if (temp == NULL) | |
goto onError; | |
pbuf = PyUnicode_AS_UNICODE(temp); | |
len = PyUnicode_GET_SIZE(temp); | |
sign = 1; | |
if (flags & F_ZERO) | |
fill = '0'; | |
break; | |
case 'c': | |
pbuf = formatbuf; | |
len = formatchar(pbuf, sizeof(formatbuf)/sizeof(Py_UNICODE), v); | |
if (len < 0) | |
goto onError; | |
break; | |
default: | |
PyErr_Format(PyExc_ValueError, | |
"unsupported format character '%c' (0x%x) " | |
"at index %zd", | |
(31<=c && c<=126) ? (char)c : '?', | |
(int)c, | |
(Py_ssize_t)(fmt - 1 - | |
PyUnicode_AS_UNICODE(uformat))); | |
goto onError; | |
} | |
if (sign) { | |
if (*pbuf == '-' || *pbuf == '+') { | |
sign = *pbuf++; | |
len--; | |
} | |
else if (flags & F_SIGN) | |
sign = '+'; | |
else if (flags & F_BLANK) | |
sign = ' '; | |
else | |
sign = 0; | |
} | |
if (width < len) | |
width = len; | |
if (rescnt - (sign != 0) < width) { | |
reslen -= rescnt; | |
rescnt = width + fmtcnt + 100; | |
reslen += rescnt; | |
if (reslen < 0) { | |
Py_XDECREF(temp); | |
PyErr_NoMemory(); | |
goto onError; | |
} | |
if (_PyUnicode_Resize(&result, reslen) < 0) { | |
Py_XDECREF(temp); | |
goto onError; | |
} | |
res = PyUnicode_AS_UNICODE(result) | |
+ reslen - rescnt; | |
} | |
if (sign) { | |
if (fill != ' ') | |
*res++ = sign; | |
rescnt--; | |
if (width > len) | |
width--; | |
} | |
if ((flags & F_ALT) && (c == 'x' || c == 'X')) { | |
assert(pbuf[0] == '0'); | |
assert(pbuf[1] == c); | |
if (fill != ' ') { | |
*res++ = *pbuf++; | |
*res++ = *pbuf++; | |
} | |
rescnt -= 2; | |
width -= 2; | |
if (width < 0) | |
width = 0; | |
len -= 2; | |
} | |
if (width > len && !(flags & F_LJUST)) { | |
do { | |
--rescnt; | |
*res++ = fill; | |
} while (--width > len); | |
} | |
if (fill == ' ') { | |
if (sign) | |
*res++ = sign; | |
if ((flags & F_ALT) && (c == 'x' || c == 'X')) { | |
assert(pbuf[0] == '0'); | |
assert(pbuf[1] == c); | |
*res++ = *pbuf++; | |
*res++ = *pbuf++; | |
} | |
} | |
Py_UNICODE_COPY(res, pbuf, len); | |
res += len; | |
rescnt -= len; | |
while (--width >= len) { | |
--rescnt; | |
*res++ = ' '; | |
} | |
if (dict && (argidx < arglen) && c != '%') { | |
PyErr_SetString(PyExc_TypeError, | |
"not all arguments converted during string formatting"); | |
Py_XDECREF(temp); | |
goto onError; | |
} | |
Py_XDECREF(temp); | |
} /* '%' */ | |
} /* until end */ | |
if (argidx < arglen && !dict) { | |
PyErr_SetString(PyExc_TypeError, | |
"not all arguments converted during string formatting"); | |
goto onError; | |
} | |
if (_PyUnicode_Resize(&result, reslen - rescnt) < 0) | |
goto onError; | |
if (args_owned) { | |
Py_DECREF(args); | |
} | |
Py_DECREF(uformat); | |
return (PyObject *)result; | |
onError: | |
Py_XDECREF(result); | |
Py_DECREF(uformat); | |
if (args_owned) { | |
Py_DECREF(args); | |
} | |
return NULL; | |
} | |
static PyBufferProcs unicode_as_buffer = { | |
(readbufferproc) unicode_buffer_getreadbuf, | |
(writebufferproc) unicode_buffer_getwritebuf, | |
(segcountproc) unicode_buffer_getsegcount, | |
(charbufferproc) unicode_buffer_getcharbuf, | |
}; | |
static PyObject * | |
unicode_subtype_new(PyTypeObject *type, PyObject *args, PyObject *kwds); | |
static PyObject * | |
unicode_new(PyTypeObject *type, PyObject *args, PyObject *kwds) | |
{ | |
PyObject *x = NULL; | |
static char *kwlist[] = {"string", "encoding", "errors", 0}; | |
char *encoding = NULL; | |
char *errors = NULL; | |
if (type != &PyUnicode_Type) | |
return unicode_subtype_new(type, args, kwds); | |
if (!PyArg_ParseTupleAndKeywords(args, kwds, "|Oss:unicode", | |
kwlist, &x, &encoding, &errors)) | |
return NULL; | |
if (x == NULL) | |
return (PyObject *)_PyUnicode_New(0); | |
if (encoding == NULL && errors == NULL) | |
return PyObject_Unicode(x); | |
else | |
return PyUnicode_FromEncodedObject(x, encoding, errors); | |
} | |
static PyObject * | |
unicode_subtype_new(PyTypeObject *type, PyObject *args, PyObject *kwds) | |
{ | |
PyUnicodeObject *tmp, *pnew; | |
Py_ssize_t n; | |
assert(PyType_IsSubtype(type, &PyUnicode_Type)); | |
tmp = (PyUnicodeObject *)unicode_new(&PyUnicode_Type, args, kwds); | |
if (tmp == NULL) | |
return NULL; | |
assert(PyUnicode_Check(tmp)); | |
pnew = (PyUnicodeObject *) type->tp_alloc(type, n = tmp->length); | |
if (pnew == NULL) { | |
Py_DECREF(tmp); | |
return NULL; | |
} | |
pnew->str = (Py_UNICODE*) PyObject_MALLOC(sizeof(Py_UNICODE) * (n+1)); | |
if (pnew->str == NULL) { | |
_Py_ForgetReference((PyObject *)pnew); | |
PyObject_Del(pnew); | |
Py_DECREF(tmp); | |
return PyErr_NoMemory(); | |
} | |
Py_UNICODE_COPY(pnew->str, tmp->str, n+1); | |
pnew->length = n; | |
pnew->hash = tmp->hash; | |
Py_DECREF(tmp); | |
return (PyObject *)pnew; | |
} | |
PyDoc_STRVAR(unicode_doc, | |
"unicode(string [, encoding[, errors]]) -> object\n\ | |
\n\ | |
Create a new Unicode object from the given encoded string.\n\ | |
encoding defaults to the current default string encoding.\n\ | |
errors can be 'strict', 'replace' or 'ignore' and defaults to 'strict'."); | |
PyTypeObject PyUnicode_Type = { | |
PyVarObject_HEAD_INIT(&PyType_Type, 0) | |
"unicode", /* tp_name */ | |
sizeof(PyUnicodeObject), /* tp_size */ | |
0, /* tp_itemsize */ | |
/* Slots */ | |
(destructor)unicode_dealloc, /* tp_dealloc */ | |
0, /* tp_print */ | |
0, /* tp_getattr */ | |
0, /* tp_setattr */ | |
0, /* tp_compare */ | |
unicode_repr, /* tp_repr */ | |
&unicode_as_number, /* tp_as_number */ | |
&unicode_as_sequence, /* tp_as_sequence */ | |
&unicode_as_mapping, /* tp_as_mapping */ | |
(hashfunc) unicode_hash, /* tp_hash*/ | |
0, /* tp_call*/ | |
(reprfunc) unicode_str, /* tp_str */ | |
PyObject_GenericGetAttr, /* tp_getattro */ | |
0, /* tp_setattro */ | |
&unicode_as_buffer, /* tp_as_buffer */ | |
Py_TPFLAGS_DEFAULT | Py_TPFLAGS_CHECKTYPES | | |
Py_TPFLAGS_BASETYPE | Py_TPFLAGS_UNICODE_SUBCLASS, /* tp_flags */ | |
unicode_doc, /* tp_doc */ | |
0, /* tp_traverse */ | |
0, /* tp_clear */ | |
PyUnicode_RichCompare, /* tp_richcompare */ | |
0, /* tp_weaklistoffset */ | |
0, /* tp_iter */ | |
0, /* tp_iternext */ | |
unicode_methods, /* tp_methods */ | |
0, /* tp_members */ | |
0, /* tp_getset */ | |
&PyBaseString_Type, /* tp_base */ | |
0, /* tp_dict */ | |
0, /* tp_descr_get */ | |
0, /* tp_descr_set */ | |
0, /* tp_dictoffset */ | |
0, /* tp_init */ | |
0, /* tp_alloc */ | |
unicode_new, /* tp_new */ | |
PyObject_Del, /* tp_free */ | |
}; | |
/* Initialize the Unicode implementation */ | |
void _PyUnicode_Init(void) | |
{ | |
int i; | |
/* XXX - move this array to unicodectype.c ? */ | |
Py_UNICODE linebreak[] = { | |
0x000A, /* LINE FEED */ | |
0x000D, /* CARRIAGE RETURN */ | |
0x001C, /* FILE SEPARATOR */ | |
0x001D, /* GROUP SEPARATOR */ | |
0x001E, /* RECORD SEPARATOR */ | |
0x0085, /* NEXT LINE */ | |
0x2028, /* LINE SEPARATOR */ | |
0x2029, /* PARAGRAPH SEPARATOR */ | |
}; | |
/* Init the implementation */ | |
free_list = NULL; | |
numfree = 0; | |
unicode_empty = _PyUnicode_New(0); | |
if (!unicode_empty) | |
return; | |
strcpy(unicode_default_encoding, "ascii"); | |
for (i = 0; i < 256; i++) | |
unicode_latin1[i] = NULL; | |
if (PyType_Ready(&PyUnicode_Type) < 0) | |
Py_FatalError("Can't initialize 'unicode'"); | |
/* initialize the linebreak bloom filter */ | |
bloom_linebreak = make_bloom_mask( | |
linebreak, sizeof(linebreak) / sizeof(linebreak[0]) | |
); | |
PyType_Ready(&EncodingMapType); | |
} | |
/* Finalize the Unicode implementation */ | |
int | |
PyUnicode_ClearFreeList(void) | |
{ | |
int freelist_size = numfree; | |
PyUnicodeObject *u; | |
for (u = free_list; u != NULL;) { | |
PyUnicodeObject *v = u; | |
u = *(PyUnicodeObject **)u; | |
if (v->str) | |
PyObject_DEL(v->str); | |
Py_XDECREF(v->defenc); | |
PyObject_Del(v); | |
numfree--; | |
} | |
free_list = NULL; | |
assert(numfree == 0); | |
return freelist_size; | |
} | |
void | |
_PyUnicode_Fini(void) | |
{ | |
int i; | |
Py_XDECREF(unicode_empty); | |
unicode_empty = NULL; | |
for (i = 0; i < 256; i++) { | |
if (unicode_latin1[i]) { | |
Py_DECREF(unicode_latin1[i]); | |
unicode_latin1[i] = NULL; | |
} | |
} | |
(void)PyUnicode_ClearFreeList(); | |
} | |
#ifdef __cplusplus | |
} | |
#endif |