#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;

typedef enum {

ANS_INIT,

ANS_AUTO,

ANS_MANUAL

} AutoNumberState; /* Keep track if we're auto-numbering fields */

typedef struct {

AutoNumberState an_state;

int an_field_number;

} AutoNumber;

static PyObject *

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

int recursion_depth, AutoNumber *auto_number);

static void

AutoNumber_Init(AutoNumber *auto_number)

{

auto_number->an_state = ANS_INIT;

auto_number->an_field_number = 0;

}

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);

}

static int

autonumber_state_error(AutoNumberState state, int field_name_is_empty)

{

if (state == ANS_MANUAL) {

if (field_name_is_empty) {

PyErr_SetString(PyExc_ValueError, "cannot switch from "

"manual field specification to "

"automatic field numbering");

return 1;

}

}

else {

if (!field_name_is_empty) {

PyErr_SetString(PyExc_ValueError, "cannot switch from "

"automatic field numbering to "

"manual field specification");

return 1;

}

}

return 0;

}

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);

if (*name_idx == -1 && PyErr_Occurred())

return 0;

break;

default:

/* Invalid character follows ']' */

PyErr_SetString(PyExc_ValueError, "Only '.' or '[' may "

"follow ']' in format field specifier");

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,

AutoNumber *auto_number)

{

STRINGLIB_CHAR c;

STRINGLIB_CHAR *p = ptr;

STRINGLIB_CHAR *end = ptr + len;

int field_name_is_empty;

int using_numeric_index;

/* 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);

if (*first_idx == -1 && PyErr_Occurred())

return 0;

field_name_is_empty = first->ptr >= first->end;

/* If the field name is omitted or if we have a numeric index

using_numeric_index = field_name_is_empty || *first_idx != -1;

/* We always get here exactly one time for each field we're

/* Check if we need to do the auto-numbering. It's not needed if

if (auto_number) {

/* Initialize our auto numbering state if this is the first

if (auto_number->an_state == ANS_INIT && using_numeric_index)

auto_number->an_state = field_name_is_empty ?

ANS_AUTO : ANS_MANUAL;

/* Make sure our state is consistent with what we're doing

if (using_numeric_index)

if (autonumber_state_error(auto_number->an_state,

field_name_is_empty))

return 0;

/* Zero length field means we want to do auto-numbering of the

if (field_name_is_empty)

*first_idx = (auto_number->an_field_number)++;

}

return 1;

}

static PyObject *

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

AutoNumber *auto_number)

{

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, auto_number)) {

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 (PyUnicode_CheckExact(fieldobj))

formatter = _PyUnicode_FormatAdvanced;

else if (PyLong_CheckExact(fieldobj))

formatter =_PyLong_FormatAdvanced;

else if (PyFloat_CheckExact(fieldobj))

formatter = _PyFloat_FormatAdvanced;

/* XXX: for 2.6, convert format_spec to the appropriate type

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(PyBytes_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)

{

/* Note this function works if the field name is zero length,

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

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;

}

}

}

}

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,

int *field_present, 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;

*field_present = 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

*field_present = 1;

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;

/* 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);

#if PY_VERSION_HEX >= 0x03000000

case 'a':

return STRINGLIB_TOASCII(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, AutoNumber *auto_number)

{

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, auto_number);

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,

auto_number);

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, AutoNumber *auto_number)

{

MarkupIterator iter;

int format_spec_needs_expanding;

int result;

int field_present;

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_present,

&field_name, &format_spec,

&conversion,

&format_spec_needs_expanding)) == 2) {

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

return 0;

if (field_present)

if (!output_markup(&field_name, &format_spec,

format_spec_needs_expanding, conversion, output,

args, kwargs, recursion_depth, auto_number))

return 0;

}

return result;

}

static PyObject *

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

int recursion_depth, AutoNumber *auto_number)

{

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,