#if PY_VERSION_HEX < 0x03000000

#define PyLong_FromSsize_t _PyLong_FromSsize_t

#define INITIAL_SIZE_INCREMENT 100

#define SIZE_MULTIPLIER 2

#define MAX_SIZE_INCREMENT 3200

typedef struct {

STRINGLIB_CHAR *ptr;

STRINGLIB_CHAR *end;

} SubString;

static PyObject *

build_string(SubString *input, PyObject *args, PyObject *kwargs,

int recursion_depth);

Py_LOCAL_INLINE(void)

SubString_init(SubString *str, STRINGLIB_CHAR *p, Py_ssize_t len)

{

str->ptr = p;

if (p == NULL)

str->end = NULL;

else

str->end = str->ptr + len;

}

Py_LOCAL_INLINE(PyObject *)

SubString_new_object(SubString *str)

{

if (str->ptr == NULL) {

Py_INCREF(Py_None);

return Py_None;

}

return STRINGLIB_NEW(str->ptr, str->end - str->ptr);

}

Py_LOCAL_INLINE(PyObject *)

SubString_new_object_or_empty(SubString *str)

{

if (str->ptr == NULL) {

return STRINGLIB_NEW(NULL, 0);

}

return STRINGLIB_NEW(str->ptr, str->end - str->ptr);

}

typedef struct {

STRINGLIB_CHAR *ptr;

STRINGLIB_CHAR *end;

PyObject *obj;

Py_ssize_t size_increment;

} OutputString;

static int

output_initialize(OutputString *output, Py_ssize_t size)

{

output->obj = STRINGLIB_NEW(NULL, size);

if (output->obj == NULL)

return 0;

output->ptr = STRINGLIB_STR(output->obj);

output->end = STRINGLIB_LEN(output->obj) + output->ptr;

output->size_increment = INITIAL_SIZE_INCREMENT;

return 1;

}

static int

output_extend(OutputString *output, Py_ssize_t count)

{

STRINGLIB_CHAR *startptr = STRINGLIB_STR(output->obj);

Py_ssize_t curlen = output->ptr - startptr;

Py_ssize_t maxlen = curlen + count + output->size_increment;

if (STRINGLIB_RESIZE(&output->obj, maxlen) < 0)

return 0;

startptr = STRINGLIB_STR(output->obj);

output->ptr = startptr + curlen;

output->end = startptr + maxlen;

if (output->size_increment < MAX_SIZE_INCREMENT)

output->size_increment *= SIZE_MULTIPLIER;

return 1;

}

static int

output_data(OutputString *output, const STRINGLIB_CHAR *s, Py_ssize_t count)

{

if ((count > output->end - output->ptr) && !output_extend(output, count))

return 0;

memcpy(output->ptr, s, count * sizeof(STRINGLIB_CHAR));

output->ptr += count;

return 1;

}

static Py_ssize_t

get_integer(const SubString *str)

{

Py_ssize_t accumulator = 0;

Py_ssize_t digitval;

Py_ssize_t oldaccumulator;

STRINGLIB_CHAR *p;

/* empty string is an error */

if (str->ptr >= str->end)

return -1;

for (p = str->ptr; p < str->end; p++) {

digitval = STRINGLIB_TODECIMAL(*p);

if (digitval < 0)

return -1;

/*

oldaccumulator = accumulator;

accumulator *= 10;

if ((accumulator+10)/10 != oldaccumulator+1) {

PyErr_Format(PyExc_ValueError,

"Too many decimal digits in format string");

return -1;

}

accumulator += digitval;

}

return accumulator;

}

static PyObject *

getattr(PyObject *obj, SubString *name)

{

PyObject *newobj;

PyObject *str = SubString_new_object(name);

if (str == NULL)

return NULL;

newobj = PyObject_GetAttr(obj, str);

Py_DECREF(str);

return newobj;

}

static PyObject *

getitem_sequence(PyObject *obj, Py_ssize_t idx)

{

return PySequence_GetItem(obj, idx);

}

static PyObject *

getitem_idx(PyObject *obj, Py_ssize_t idx)

{

PyObject *newobj;

PyObject *idx_obj = PyLong_FromSsize_t(idx);

if (idx_obj == NULL)

return NULL;

newobj = PyObject_GetItem(obj, idx_obj);

Py_DECREF(idx_obj);

return newobj;

}

static PyObject *

getitem_str(PyObject *obj, SubString *name)

{

PyObject *newobj;

PyObject *str = SubString_new_object(name);

if (str == NULL)

return NULL;

newobj = PyObject_GetItem(obj, str);

Py_DECREF(str);

return newobj;

}

typedef struct {

/* the entire string we're parsing. we assume that someone else

SubString str;

/* pointer to where we are inside field_name */

STRINGLIB_CHAR *ptr;

} FieldNameIterator;

static int

FieldNameIterator_init(FieldNameIterator *self, STRINGLIB_CHAR *ptr,

Py_ssize_t len)

{

SubString_init(&self->str, ptr, len);

self->ptr = self->str.ptr;

return 1;

}

static int

_FieldNameIterator_attr(FieldNameIterator *self, SubString *name)

{

STRINGLIB_CHAR c;

name->ptr = self->ptr;

/* return everything until '.' or '[' */

while (self->ptr < self->str.end) {

switch (c = *self->ptr++) {

case '[':

case '.':

/* backup so that we this character will be seen next time */

self->ptr--;

break;

default:

continue;

}

break;

}

/* end of string is okay */

name->end = self->ptr;

return 1;

}

static int

_FieldNameIterator_item(FieldNameIterator *self, SubString *name)

{

int bracket_seen = 0;

STRINGLIB_CHAR c;

name->ptr = self->ptr;

/* return everything until ']' */

while (self->ptr < self->str.end) {

switch (c = *self->ptr++) {

case ']':

bracket_seen = 1;

break;

default:

continue;

}

break;

}

/* make sure we ended with a ']' */

if (!bracket_seen) {

PyErr_SetString(PyExc_ValueError, "Missing ']' in format string");

return 0;

}

/* end of string is okay */

/* don't include the ']' */

name->end = self->ptr-1;

return 1;

}

static int

FieldNameIterator_next(FieldNameIterator *self, int *is_attribute,

Py_ssize_t *name_idx, SubString *name)

{

/* check at end of input */

if (self->ptr >= self->str.end)

return 1;

switch (*self->ptr++) {

case '.':

*is_attribute = 1;

if (_FieldNameIterator_attr(self, name) == 0)

return 0;

*name_idx = -1;

break;

case '[':

*is_attribute = 0;

if (_FieldNameIterator_item(self, name) == 0)

return 0;

*name_idx = get_integer(name);

break;

default:

/* interal error, can't get here */

assert(0);

return 0;

}

/* empty string is an error */

if (name->ptr == name->end) {

PyErr_SetString(PyExc_ValueError, "Empty attribute in format string");

return 0;

}

return 2;

}

static int

field_name_split(STRINGLIB_CHAR *ptr, Py_ssize_t len, SubString *first,

Py_ssize_t *first_idx, FieldNameIterator *rest)

{

STRINGLIB_CHAR c;

STRINGLIB_CHAR *p = ptr;

STRINGLIB_CHAR *end = ptr + len;

/* find the part up until the first '.' or '[' */

while (p < end) {

switch (c = *p++) {

case '[':

case '.':

/* backup so that we this character is available to the

p--;

break;

default:

continue;

}

break;

}

/* set up the return values */

SubString_init(first, ptr, p - ptr);

FieldNameIterator_init(rest, p, end - p);

/* see if "first" is an integer, in which case it's used as an index */

*first_idx = get_integer(first);

/* zero length string is an error */

if (first->ptr >= first->end) {

PyErr_SetString(PyExc_ValueError, "empty field name");

goto error;

}

return 1;

error:

return 0;

}

static PyObject *

get_field_object(SubString *input, PyObject *args, PyObject *kwargs)

{

PyObject *obj = NULL;

int ok;

int is_attribute;

SubString name;

SubString first;

Py_ssize_t index;

FieldNameIterator rest;

if (!field_name_split(input->ptr, input->end - input->ptr, &first,

&index, &rest)) {

goto error;

}

if (index == -1) {

/* look up in kwargs */

PyObject *key = SubString_new_object(&first);

if (key == NULL)

goto error;

if ((kwargs == NULL) || (obj = PyDict_GetItem(kwargs, key)) == NULL) {

PyErr_SetObject(PyExc_KeyError, key);

Py_DECREF(key);

goto error;

}

Py_DECREF(key);

Py_INCREF(obj);

}

else {

/* look up in args */

obj = PySequence_GetItem(args, index);

if (obj == NULL)

goto error;

}

/* iterate over the rest of the field_name */

while ((ok = FieldNameIterator_next(&rest, &is_attribute, &index,

&name)) == 2) {

PyObject *tmp;

if (is_attribute)

/* getattr lookup "." */

tmp = getattr(obj, &name);

else

/* getitem lookup "[]" */

if (index == -1)

tmp = getitem_str(obj, &name);

else

if (PySequence_Check(obj))

tmp = getitem_sequence(obj, index);

else

/* not a sequence */

tmp = getitem_idx(obj, index);

if (tmp == NULL)

goto error;

/* assign to obj */

Py_DECREF(obj);

obj = tmp;

}

/* end of iterator, this is the non-error case */

if (ok == 1)

return obj;

error:

Py_XDECREF(obj);

return NULL;

}

static int

render_field(PyObject *fieldobj, SubString *format_spec, OutputString *output)

{

int ok = 0;

PyObject *result = NULL;

PyObject *format_spec_object = NULL;

PyObject *(*formatter)(PyObject *, STRINGLIB_CHAR *, Py_ssize_t) = NULL;

STRINGLIB_CHAR* format_spec_start = format_spec->ptr ?

format_spec->ptr : NULL;

Py_ssize_t format_spec_len = format_spec->ptr ?

format_spec->end - format_spec->ptr : 0;

/* If we know the type exactly, skip the lookup of __format__ and just

#if STRINGLIB_IS_UNICODE

if (PyUnicode_CheckExact(fieldobj))

formatter = _PyUnicode_FormatAdvanced;

/* Unfortunately, there's a problem with checking for int, long,

if (PyString_CheckExact(fieldobj))

formatter = _PyBytes_FormatAdvanced;

else if (PyInt_CheckExact(fieldobj))

formatter =_PyInt_FormatAdvanced;

else if (PyLong_CheckExact(fieldobj))

formatter =_PyLong_FormatAdvanced;

else if (PyFloat_CheckExact(fieldobj))

formatter = _PyFloat_FormatAdvanced;

if (formatter) {

/* we know exactly which formatter will be called when __format__ is

result = formatter(fieldobj, format_spec_start, format_spec_len);

}

else {

/* We need to create an object out of the pointers we have, because

format_spec_object = STRINGLIB_NEW(format_spec_start,

format_spec_len);

if (format_spec_object == NULL)

goto done;

result = PyObject_Format(fieldobj, format_spec_object);

}

if (result == NULL)

goto done;

#if PY_VERSION_HEX >= 0x03000000

assert(PyUnicode_Check(result));

assert(PyString_Check(result) || PyUnicode_Check(result));

/* Convert result to our type. We could be str, and result could

{

PyObject *tmp = STRINGLIB_TOSTR(result);

if (tmp == NULL)

goto done;

Py_DECREF(result);

result = tmp;

}

ok = output_data(output,

STRINGLIB_STR(result), STRINGLIB_LEN(result));

done:

Py_XDECREF(format_spec_object);

Py_XDECREF(result);

return ok;

}

static int

parse_field(SubString *str, SubString *field_name, SubString *format_spec,

STRINGLIB_CHAR *conversion)

{

STRINGLIB_CHAR c = 0;

/* initialize these, as they may be empty */

*conversion = '\0';

SubString_init(format_spec, NULL, 0);

/* search for the field name. it's terminated by the end of the

field_name->ptr = str->ptr;

while (str->ptr < str->end) {

switch (c = *(str->ptr++)) {

case ':':

case '!':

break;

default:

continue;

}

break;

}

if (c == '!' || c == ':') {

/* we have a format specifier and/or a conversion */

/* don't include the last character */

field_name->end = str->ptr-1;

/* the format specifier is the rest of the string */

format_spec->ptr = str->ptr;

format_spec->end = str->end;

/* see if there's a conversion specifier */

if (c == '!') {

/* there must be another character present */

if (format_spec->ptr >= format_spec->end) {

PyErr_SetString(PyExc_ValueError,

"end of format while looking for conversion "

"specifier");

return 0;

}

*conversion = *(format_spec->ptr++);

/* if there is another character, it must be a colon */

if (format_spec->ptr < format_spec->end) {

c = *(format_spec->ptr++);

if (c != ':') {

PyErr_SetString(PyExc_ValueError,

"expected ':' after format specifier");

return 0;

}

}

}

return 1;

}

else {

/* end of string, there's no format_spec or conversion */

field_name->end = str->ptr;

return 1;

}

}

typedef struct {

SubString str;

} MarkupIterator;

static int

MarkupIterator_init(MarkupIterator *self, STRINGLIB_CHAR *ptr, Py_ssize_t len)

{

SubString_init(&self->str, ptr, len);

return 1;

}

static int

MarkupIterator_next(MarkupIterator *self, SubString *literal,

SubString *field_name, SubString *format_spec,

STRINGLIB_CHAR *conversion,

int *format_spec_needs_expanding)

{

int at_end;

STRINGLIB_CHAR c = 0;

STRINGLIB_CHAR *start;

int count;

Py_ssize_t len;

int markup_follows = 0;

/* initialize all of the output variables */

SubString_init(literal, NULL, 0);

SubString_init(field_name, NULL, 0);

SubString_init(format_spec, NULL, 0);

*conversion = '\0';

*format_spec_needs_expanding = 0;

/* No more input, end of iterator. This is the normal exit

if (self->str.ptr >= self->str.end)

return 1;

start = self->str.ptr;

/* First read any literal text. Read until the end of string, an

while (self->str.ptr < self->str.end) {

switch (c = *(self->str.ptr++)) {

case '{':

case '}':

markup_follows = 1;

break;

default:

continue;

}

break;

}

at_end = self->str.ptr >= self->str.end;

len = self->str.ptr - start;

if ((c == '}') && (at_end || (c != *self->str.ptr))) {

PyErr_SetString(PyExc_ValueError, "Single '}' encountered "

"in format string");

return 0;

}

if (at_end && c == '{') {

PyErr_SetString(PyExc_ValueError, "Single '{' encountered "

"in format string");

return 0;

}

if (!at_end) {

if (c == *self->str.ptr) {

/* escaped } or {, skip it in the input. there is no

self->str.ptr++;

markup_follows = 0;

}

else

len--;

}

/* record the literal text */

literal->ptr = start;

literal->end = start + len;

if (!markup_follows)

return 2;

/* this is markup, find the end of the string by counting nested

count = 1;

start = self->str.ptr;

/* we know we can't have a zero length string, so don't worry

while (self->str.ptr < self->str.end) {

switch (c = *(self->str.ptr++)) {

case '{':

/* the format spec needs to be recursively expanded.

*format_spec_needs_expanding = 1;

count++;

break;

case '}':

count--;

if (count <= 0) {

/* we're done. parse and get out */

SubString s;

SubString_init(&s, start, self->str.ptr - 1 - start);

if (parse_field(&s, field_name, format_spec, conversion) == 0)

return 0;

/* a zero length field_name is an error */

if (field_name->ptr == field_name->end) {

PyErr_SetString(PyExc_ValueError, "zero length field name "

"in format");

return 0;

}

/* success */

return 2;

}

break;

}

}

/* end of string while searching for matching '}' */

PyErr_SetString(PyExc_ValueError, "unmatched '{' in format");

return 0;

}

static PyObject *

do_conversion(PyObject *obj, STRINGLIB_CHAR conversion)

{

/* XXX in pre-3.0, do we need to convert this to unicode, since it

switch (conversion) {

case 'r':

return PyObject_Repr(obj);

case 's':

return STRINGLIB_TOSTR(obj);

default:

if (conversion > 32 && conversion < 127) {

/* It's the ASCII subrange; casting to char is safe

PyErr_Format(PyExc_ValueError,

"Unknown conversion specifier %c",

(char)conversion);

} else

PyErr_Format(PyExc_ValueError,

"Unknown conversion specifier \\x%x",

(unsigned int)conversion);

return NULL;

}

}

static int

output_markup(SubString *field_name, SubString *format_spec,

int format_spec_needs_expanding, STRINGLIB_CHAR conversion,

OutputString *output, PyObject *args, PyObject *kwargs,

int recursion_depth)

{

PyObject *tmp = NULL;

PyObject *fieldobj = NULL;

SubString expanded_format_spec;

SubString *actual_format_spec;

int result = 0;

/* convert field_name to an object */

fieldobj = get_field_object(field_name, args, kwargs);

if (fieldobj == NULL)

goto done;

if (conversion != '\0') {

tmp = do_conversion(fieldobj, conversion);

if (tmp == NULL)

goto done;

/* do the assignment, transferring ownership: fieldobj = tmp */

Py_DECREF(fieldobj);

fieldobj = tmp;

tmp = NULL;

}

/* if needed, recurively compute the format_spec */

if (format_spec_needs_expanding) {

tmp = build_string(format_spec, args, kwargs, recursion_depth-1);

if (tmp == NULL)

goto done;

/* note that in the case we're expanding the format string,

SubString_init(&expanded_format_spec,

STRINGLIB_STR(tmp), STRINGLIB_LEN(tmp));

actual_format_spec = &expanded_format_spec;

}

else

actual_format_spec = format_spec;

if (render_field(fieldobj, actual_format_spec, output) == 0)

goto done;

result = 1;

done:

Py_XDECREF(fieldobj);

Py_XDECREF(tmp);

return result;

}

static int

do_markup(SubString *input, PyObject *args, PyObject *kwargs,

OutputString *output, int recursion_depth)

{

MarkupIterator iter;

int format_spec_needs_expanding;

int result;

SubString literal;

SubString field_name;

SubString format_spec;

STRINGLIB_CHAR conversion;

MarkupIterator_init(&iter, input->ptr, input->end - input->ptr);

while ((result = MarkupIterator_next(&iter, &literal, &field_name,

&format_spec, &conversion,

&format_spec_needs_expanding)) == 2) {

if (!output_data(output, literal.ptr, literal.end - literal.ptr))

return 0;

if (field_name.ptr != field_name.end)

if (!output_markup(&field_name, &format_spec,

format_spec_needs_expanding, conversion, output,

args, kwargs, recursion_depth))

return 0;

}

return result;

}

static PyObject *

build_string(SubString *input, PyObject *args, PyObject *kwargs,

int recursion_depth)

{

OutputString output;

PyObject *result = NULL;

Py_ssize_t count;

output.obj = NULL; /* needed so cleanup code always works */

/* check the recursion level */

if (recursion_depth <= 0) {

PyErr_SetString(PyExc_ValueError,

"Max string recursion exceeded");

goto done;

}

/* initial size is the length of the format string, plus the size

if (!output_initialize(&output,

input->end - input->ptr +

INITIAL_SIZE_INCREMENT))

goto done;

if (!do_markup(input, args, kwargs, &output, recursion_depth)) {

goto done;

}

count = output.ptr - STRINGLIB_STR(output.obj);

if (STRINGLIB_RESIZE(&output.obj, count) < 0) {

goto done;

}

/* transfer ownership to result */

result = output.obj;

output.obj = NULL;

done:

Py_XDECREF(output.obj);

return result;

}

static PyObject *

do_string_format(PyObject *self, PyObject *args, PyObject *kwargs)

{

SubString input;

/* PEP 3101 says only 2 levels, so that

int recursion_depth = 2;

SubString_init(&input, STRINGLIB_STR(self), STRINGLIB_LEN(self));

return build_string(&input, args, kwargs, recursion_depth);

}

typedef struct {

PyObject_HEAD

STRINGLIB_OBJECT *str;

MarkupIterator it_markup;

} formatteriterobject;

static void

formatteriter_dealloc(formatteriterobject *it)

{

Py_XDECREF(it->str);

PyObject_FREE(it);

}

static PyObject *

formatteriter_next(formatteriterobject *it)

{

SubString literal;

SubString field_name;

SubString format_spec;

STRINGLIB_CHAR conversion;

int format_spec_needs_expanding;