#include "Python.h"

typedef struct {

    PyObject_HEAD

    char *buf;

    Py_ssize_t pos;

    Py_ssize_t string_size;

    size_t buf_size;

} BytesIOObject;

#define CHECK_CLOSED(self)                                  \

    if ((self)->buf == NULL) {                              \

        PyErr_SetString(PyExc_ValueError,                   \

                        "I/O operation on closed file.");   \

        return NULL;                                        \

    }

/* Internal routine to get a line from the buffer of a BytesIO

   object. Returns the length between the current position to the

   next newline character. */

static Py_ssize_t

get_line(BytesIOObject *self, char **output)

{

    char *n;

    const char *str_end;

    Py_ssize_t len;

    assert(self->buf != NULL);

    /* Move to the end of the line, up to the end of the string, s. */

    str_end = self->buf + self->string_size;

    for (n = self->buf + self->pos;

         n < str_end && *n != '\n';

         n++);

    /* Skip the newline character */

    if (n < str_end)

        n++;

    /* Get the length from the current position to the end of the line. */

    len = n - (self->buf + self->pos);

    *output = self->buf + self->pos;

    assert(len >= 0);

    assert(self->pos < PY_SSIZE_T_MAX - len);

    self->pos += len;

    return len;

}

/* Internal routine for changing the size of the buffer of BytesIO objects.

   The caller should ensure that the 'size' argument is non-negative.  Returns

   0 on success, -1 otherwise. */

static int

resize_buffer(BytesIOObject *self, size_t size)

{

    /* Here, unsigned types are used to avoid dealing with signed integer

       overflow, which is undefined in C. */

    size_t alloc = self->buf_size;

    char *new_buf = NULL;

    assert(self->buf != NULL);

    /* For simplicity, stay in the range of the signed type. Anyway, Python

       doesn't allow strings to be longer than this. */

    if (size > PY_SSIZE_T_MAX)

        goto overflow;

    if (size < alloc / 2) {

        /* Major downsize; resize down to exact size. */

        alloc = size + 1;

    }

    else if (size < alloc) {

        /* Within allocated size; quick exit */

        return 0;

    }

    else if (size <= alloc * 1.125) {

        /* Moderate upsize; overallocate similar to list_resize() */

        alloc = size + (size >> 3) + (size < 9 ? 3 : 6);

    }

    else {

        /* Major upsize; resize up to exact size */

        alloc = size + 1;

    }

    if (alloc > ((size_t)-1) / sizeof(char))

        goto overflow;

    new_buf = (char *)PyMem_Realloc(self->buf, alloc * sizeof(char));

    if (new_buf == NULL) {

        PyErr_NoMemory();

        return -1;

    }

    self->buf_size = alloc;

    self->buf = new_buf;

    return 0;

  overflow:

    PyErr_SetString(PyExc_OverflowError,

                    "new buffer size too large");

    return -1;

}

/* Internal routine for writing a string of bytes to the buffer of a BytesIO

   object. Returns the number of bytes wrote, or -1 on error. */

static Py_ssize_t

write_bytes(BytesIOObject *self, const char *bytes, Py_ssize_t len)

{

    assert(self->buf != NULL);

    assert(self->pos >= 0);

    assert(len >= 0);

    if ((size_t)self->pos + len > self->buf_size) {

        if (resize_buffer(self, (size_t)self->pos + len) < 0)

            return -1;

    }

    if (self->pos > self->string_size) {

        /* In case of overseek, pad with null bytes the buffer region between

           the end of stream and the current position.

          0   lo      string_size                           hi

          |   |<---used--->|<----------available----------->|

          |   |            <--to pad-->|<---to write--->    |

          0   buf                   position

        */

        memset(self->buf + self->string_size, '\0',

               (self->pos - self->string_size) * sizeof(char));

    }

    /* Copy the data to the internal buffer, overwriting some of the existing

       data if self->pos < self->string_size. */

    memcpy(self->buf + self->pos, bytes, len);

    self->pos += len;

    /* Set the new length of the internal string if it has changed. */

    if (self->string_size < self->pos) {

        self->string_size = self->pos;

    }

    return len;

}

static PyObject *

bytesio_get_closed(BytesIOObject *self)

{

    if (self->buf == NULL)

        Py_RETURN_TRUE;

    else

        Py_RETURN_FALSE;

}

/* Generic getter for the writable, readable and seekable properties */

static PyObject *

return_true(BytesIOObject *self)

{

    Py_RETURN_TRUE;

}

PyDoc_STRVAR(flush_doc,

"flush() -> None.  Does nothing.");

static PyObject *

bytesio_flush(BytesIOObject *self)

{

    Py_RETURN_NONE;

}

PyDoc_STRVAR(getval_doc,

"getvalue() -> bytes.\n"

"\n"

"Retrieve the entire contents of the BytesIO object.");

static PyObject *

bytesio_getvalue(BytesIOObject *self)

{

    CHECK_CLOSED(self);

    return PyString_FromStringAndSize(self->buf, self->string_size);

}

PyDoc_STRVAR(isatty_doc,

"isatty() -> False.\n"

"\n"

"Always returns False since BytesIO objects are not connected\n"

"to a tty-like device.");

static PyObject *

bytesio_isatty(BytesIOObject *self)

{

    CHECK_CLOSED(self);

    Py_RETURN_FALSE;

}

PyDoc_STRVAR(tell_doc,

"tell() -> current file position, an integer\n");

static PyObject *

bytesio_tell(BytesIOObject *self)

{

    CHECK_CLOSED(self);

    return PyInt_FromSsize_t(self->pos);

}

PyDoc_STRVAR(read_doc,

"read([size]) -> read at most size bytes, returned as a string.\n"

"\n"

"If the size argument is negative, read until EOF is reached.\n"

"Return an empty string at EOF.");

static PyObject *

bytesio_read(BytesIOObject *self, PyObject *args)

{

    Py_ssize_t size, n;

    char *output;

    PyObject *arg = Py_None;

    CHECK_CLOSED(self);

    if (!PyArg_ParseTuple(args, "|O:read", &arg))

        return NULL;

    if (PyInt_Check(arg)) {

        size = PyInt_AsSsize_t(arg);

        if (size == -1 && PyErr_Occurred())

            return NULL;

    }

    else if (arg == Py_None) {

        /* Read until EOF is reached, by default. */

        size = -1;

    }

    else {

        PyErr_Format(PyExc_TypeError, "integer argument expected, got '%s'",

                     Py_TYPE(arg)->tp_name);

        return NULL;

    }

    /* adjust invalid sizes */

    n = self->string_size - self->pos;

    if (size < 0 || size > n) {

        size = n;

        if (size < 0)

            size = 0;

    }

    assert(self->buf != NULL);

    output = self->buf + self->pos;

    self->pos += size;

    return PyString_FromStringAndSize(output, size);

}

PyDoc_STRVAR(read1_doc,

"read1(size) -> read at most size bytes, returned as a string.\n"

"\n"

"If the size argument is negative or omitted, read until EOF is reached.\n"

"Return an empty string at EOF.");

static PyObject *

bytesio_read1(BytesIOObject *self, PyObject *n)

{

    PyObject *arg, *res;

    arg = PyTuple_Pack(1, n);

    if (arg == NULL)

        return NULL;

    res  = bytesio_read(self, arg);

    Py_DECREF(arg);

    return res;

}

PyDoc_STRVAR(readline_doc,

"readline([size]) -> next line from the file, as a string.\n"

"\n"

"Retain newline.  A non-negative size argument limits the maximum\n"

"number of bytes to return (an incomplete line may be returned then).\n"

"Return an empty string at EOF.\n");

static PyObject *

bytesio_readline(BytesIOObject *self, PyObject *args)

{

    Py_ssize_t size, n;

    char *output;

    PyObject *arg = Py_None;

    CHECK_CLOSED(self);

    if (!PyArg_ParseTuple(args, "|O:readline", &arg))

        return NULL;

    if (PyInt_Check(arg)) {

        size = PyInt_AsSsize_t(arg);

        if (size == -1 && PyErr_Occurred())

            return NULL;

    }

    else if (arg == Py_None) {

        /* No size limit, by default. */

        size = -1;

    }

    else {

        PyErr_Format(PyExc_TypeError, "integer argument expected, got '%s'",

                     Py_TYPE(arg)->tp_name);

        return NULL;

    }

    n = get_line(self, &output);

    if (size >= 0 && size < n) {

        size = n - size;

        n -= size;

        self->pos -= size;

    }

    return PyString_FromStringAndSize(output, n);

}

PyDoc_STRVAR(readlines_doc,

"readlines([size]) -> list of strings, each a line from the file.\n"

"\n"

"Call readline() repeatedly and return a list of the lines so read.\n"

"The optional size argument, if given, is an approximate bound on the\n"

"total number of bytes in the lines returned.\n");

static PyObject *

bytesio_readlines(BytesIOObject *self, PyObject *args)

{

    Py_ssize_t maxsize, size, n;

    PyObject *result, *line;

    char *output;

    PyObject *arg = Py_None;

    CHECK_CLOSED(self);

    if (!PyArg_ParseTuple(args, "|O:readlines", &arg))

        return NULL;

    if (PyInt_Check(arg)) {

        maxsize = PyInt_AsSsize_t(arg);

        if (maxsize == -1 && PyErr_Occurred())

            return NULL;

    }

    else if (arg == Py_None) {

        /* No size limit, by default. */

        maxsize = -1;

    }

    else {

        PyErr_Format(PyExc_TypeError, "integer argument expected, got '%s'",

                     Py_TYPE(arg)->tp_name);

        return NULL;

    }

    size = 0;

    result = PyList_New(0);

    if (!result)

        return NULL;

    while ((n = get_line(self, &output)) != 0) {

        line = PyString_FromStringAndSize(output, n);

        if (!line)

            goto on_error;

        if (PyList_Append(result, line) == -1) {

            Py_DECREF(line);

            goto on_error;

        }

        Py_DECREF(line);

        size += n;

        if (maxsize > 0 && size >= maxsize)

            break;

    }

    return result;

  on_error:

    Py_DECREF(result);

    return NULL;

}

PyDoc_STRVAR(readinto_doc,

"readinto(bytearray) -> int.  Read up to len(b) bytes into b.\n"

"\n"

"Returns number of bytes read (0 for EOF), or None if the object\n"

"is set not to block as has no data to read.");

static PyObject *

bytesio_readinto(BytesIOObject *self, PyObject *buffer)

{

    void *raw_buffer;

    Py_ssize_t len;

    CHECK_CLOSED(self);

    if (PyObject_AsWriteBuffer(buffer, &raw_buffer, &len) == -1)

        return NULL;

    if (self->pos + len > self->string_size)

        len = self->string_size - self->pos;

    memcpy(raw_buffer, self->buf + self->pos, len);

    assert(self->pos + len < PY_SSIZE_T_MAX);

    assert(len >= 0);

    self->pos += len;

    return PyInt_FromSsize_t(len);

}

PyDoc_STRVAR(truncate_doc,

"truncate([size]) -> int.  Truncate the file to at most size bytes.\n"

"\n"

"Size defaults to the current file position, as returned by tell().\n"

"Returns the new size.  Imply an absolute seek to the position size.");

static PyObject *

bytesio_truncate(BytesIOObject *self, PyObject *args)

{

    Py_ssize_t size;

    PyObject *arg = Py_None;

    CHECK_CLOSED(self);

    if (!PyArg_ParseTuple(args, "|O:truncate", &arg))

        return NULL;

    if (PyInt_Check(arg)) {

        size = PyInt_AsSsize_t(arg);

        if (size == -1 && PyErr_Occurred())

            return NULL;

    }

    else if (arg == Py_None) {

        /* Truncate to current position if no argument is passed. */

        size = self->pos;

    }

    else {

        PyErr_Format(PyExc_TypeError, "integer argument expected, got '%s'",

                     Py_TYPE(arg)->tp_name);

        return NULL;

    }

    if (size < 0) {

        PyErr_Format(PyExc_ValueError,

                     "negative size value %zd", size);

        return NULL;

    }

    if (size < self->string_size) {

        self->string_size = size;

        if (resize_buffer(self, size) < 0)

            return NULL;

    }

    self->pos = size;

    return PyInt_FromSsize_t(size);

}

static PyObject *

bytesio_iternext(BytesIOObject *self)

{

    char *next;

    Py_ssize_t n;

    CHECK_CLOSED(self);

    n = get_line(self, &next);

    if (!next || n == 0)

        return NULL;

    return PyString_FromStringAndSize(next, n);

}

PyDoc_STRVAR(seek_doc,

"seek(pos, whence=0) -> int.  Change stream position.\n"

"\n"

"Seek to byte offset pos relative to position indicated by whence:\n"

"     0  Start of stream (the default).  pos should be >= 0;\n"

"     1  Current position - pos may be negative;\n"

"     2  End of stream - pos usually negative.\n"

"Returns the new absolute position.");

static PyObject *

bytesio_seek(BytesIOObject *self, PyObject *args)

{

    PyObject *pos_obj, *mode_obj;

    Py_ssize_t pos;

    int mode = 0;

    CHECK_CLOSED(self);

    /* Special-case for 2.x to prevent floats from passing through.

       This only needed to make a test in test_io succeed. */

    if (!PyArg_UnpackTuple(args, "seek", 1, 2, &pos_obj, &mode_obj))

        return NULL;

    if (PyFloat_Check(pos_obj)) {

        PyErr_SetString(PyExc_TypeError,

                        "position argument must be an integer");

        return NULL;

    }

    if (!PyArg_ParseTuple(args, "n|i:seek", &pos, &mode))

        return NULL;

    if (pos < 0 && mode == 0) {

        PyErr_Format(PyExc_ValueError,

                     "negative seek value %zd", pos);

        return NULL;

    }

    /* mode 0: offset relative to beginning of the string.

       mode 1: offset relative to current position.

       mode 2: offset relative the end of the string. */

    if (mode == 1) {

        if (pos > PY_SSIZE_T_MAX - self->pos) {

            PyErr_SetString(PyExc_OverflowError,

                            "new position too large");

            return NULL;

        }

        pos += self->pos;

    }

    else if (mode == 2) {

        if (pos > PY_SSIZE_T_MAX - self->string_size) {

            PyErr_SetString(PyExc_OverflowError,

                            "new position too large");

            return NULL;

        }

        pos += self->string_size;

    }

    else if (mode != 0) {

        PyErr_Format(PyExc_ValueError,

                     "invalid whence (%i, should be 0, 1 or 2)", mode);

        return NULL;