// Use pycore_bytes.h
#define PYTESTCAPI_NEED_INTERNAL_API

#include "parts.h"
#include "util.h"

#include <stddef.h>               // offsetof()

#include "pycore_bytesobject.h"   // _PyBytesWriter_CreateByteArray()


/* Test _PyBytes_Resize() */
static PyObject *
bytes_resize(PyObject *Py_UNUSED(module), PyObject *args, PyObject *kwargs)
{
    static char *kwlist[] = {"obj", "newsize", "new", "compute_hash", NULL};
    PyObject *obj;
    Py_ssize_t newsize;
    int new;
    int compute_hash = 0;

    if (!PyArg_ParseTupleAndKeywords(args, kwargs,
                                     "Onp|p", kwlist,
                                     &obj, &newsize, &new, &compute_hash)) {
        return NULL;
    }

    NULLABLE(obj);
    if (new) {
        assert(obj != NULL);
        assert(PyBytes_CheckExact(obj));
        PyObject *newobj = PyBytes_FromStringAndSize(NULL, PyBytes_Size(obj));
        if (newobj == NULL) {
            return NULL;
        }
        memcpy(PyBytes_AsString(newobj), PyBytes_AsString(obj), PyBytes_Size(obj));
        obj = newobj;
    }
    else {
        Py_XINCREF(obj);
    }

    if (compute_hash) {
        if (PyObject_Hash(obj) == -1) {
            Py_DECREF(obj);
            return NULL;
        }
    }

    PyObject *old_obj = obj;
    if (_PyBytes_Resize(&obj, newsize) < 0) {
        assert(obj == NULL);
        return NULL;
    }
    else {
        assert(obj != NULL);
    }

    Py_ssize_t refcnt = Py_REFCNT(obj);
    return Py_BuildValue("Nnp", obj, refcnt, obj != old_obj);
}


/* Test PyBytes_Join() */
static PyObject *
bytes_join(PyObject *Py_UNUSED(module), PyObject *args)
{
    PyObject *sep, *iterable;
    if (!PyArg_ParseTuple(args, "OO", &sep, &iterable)) {
        return NULL;
    }
    NULLABLE(sep);
    NULLABLE(iterable);
    return PyBytes_Join(sep, iterable);
}


// --- PyBytesWriter type ---------------------------------------------------

typedef struct {
    PyObject_HEAD
    PyBytesWriter *writer;
} WriterObject;


static PyObject *
writer_new(PyTypeObject *type, PyObject *args, PyObject *kwargs)
{
    WriterObject *self = (WriterObject *)type->tp_alloc(type, 0);
    if (!self) {
        return NULL;
    }
    self->writer = NULL;
    return (PyObject*)self;
}


static int
writer_init(PyObject *self_raw, PyObject *args, PyObject *kwargs)
{
    if (kwargs && PyDict_GET_SIZE(kwargs)) {
        PyErr_Format(PyExc_TypeError,
                     "PyBytesWriter() takes exactly no keyword arguments");
        return -1;
    }

    Py_ssize_t size;
    int use_bytearray = 0;
    if (!PyArg_ParseTuple(args, "n|i", &size, &use_bytearray)) {
        return -1;
    }

    WriterObject *self = (WriterObject *)self_raw;
    PyBytesWriter_Discard(self->writer);

    if (use_bytearray) {
        self->writer = _PyBytesWriter_CreateByteArray(size);
    }
    else {
        self->writer = PyBytesWriter_Create(size);
    }
    if (self->writer == NULL) {
        return -1;
    }

    return 0;
}


static void
writer_dealloc(PyObject *self_raw)
{
    WriterObject *self = (WriterObject *)self_raw;
    PyTypeObject *tp = Py_TYPE(self);
    if (self->writer) {
        PyBytesWriter_Discard(self->writer);
    }
    tp->tp_free(self);
    Py_DECREF(tp);
}


static inline int
writer_check(WriterObject *self)
{
    if (self->writer == NULL) {
        PyErr_SetString(PyExc_ValueError, "operation on finished writer");
        return -1;
    }
    return 0;
}


static PyObject*
writer_write(PyObject *self_raw, PyObject *args, PyObject *kwargs)
{
    WriterObject *self = (WriterObject *)self_raw;
    if (writer_check(self) < 0) {
        return NULL;
    }

    static char *kwlist[] = {"pos", "str", "check", NULL};
    Py_ssize_t pos, size;
    char *str;
    int check = 1;
    if (!PyArg_ParseTupleAndKeywords(args, kwargs,
                                     "ny#|i", kwlist,
                                     &pos, &str, &size, &check)) {
        return NULL;
    }

    // Use check=0 to trigger a buffer overflow for example
    if (check) {
        if (pos < 0 || (pos + size) > PyBytesWriter_GetSize(self->writer)) {
            PyErr_SetString(PyExc_ValueError, "invalid position or size");
            return NULL;
        }
    }

    char *data = PyBytesWriter_GetData(self->writer);
    memcpy(data + pos, str, size);

    Py_RETURN_NONE;
}


static PyObject*
writer_write_bytes(PyObject *self_raw, PyObject *args)
{
    WriterObject *self = (WriterObject *)self_raw;
    if (writer_check(self) < 0) {
        return NULL;
    }

    const char *bytes;
    Py_ssize_t unused_size, size;
    if (!PyArg_ParseTuple(args, "y#n", &bytes, &unused_size, &size)) {
        return NULL;
    }

    if (PyBytesWriter_WriteBytes(self->writer, bytes, size) < 0) {
        return NULL;
    }
    Py_RETURN_NONE;
}


static PyObject*
writer_format_i(PyObject *self_raw, PyObject *args)
{
    WriterObject *self = (WriterObject *)self_raw;
    if (writer_check(self) < 0) {
        return NULL;
    }

    char *format;
    int value;
    if (!PyArg_ParseTuple(args, "yi", &format, &value)) {
        return NULL;
    }

    if (PyBytesWriter_Format(self->writer, format, value) < 0) {
        return NULL;
    }
    Py_RETURN_NONE;
}


static PyObject*
writer_format_s(PyObject *self_raw, PyObject *args)
{
    WriterObject *self = (WriterObject *)self_raw;
    if (writer_check(self) < 0) {
        return NULL;
    }

    char *format, *str;
    if (!PyArg_ParseTuple(args, "yy", &format, &str)) {
        return NULL;
    }

    if (PyBytesWriter_Format(self->writer, format, str) < 0) {
        return NULL;
    }
    Py_RETURN_NONE;
}


// PyBytesWriter_Resize
static PyObject*
writer_resize(PyObject *self_raw, PyObject *args)
{
    WriterObject *self = (WriterObject *)self_raw;
    if (writer_check(self) < 0) {
        return NULL;
    }

    Py_ssize_t size;
    if (!PyArg_ParseTuple(args, "n", &size)) {
        return NULL;
    }

    if (PyBytesWriter_Resize(self->writer, size) < 0) {
        return NULL;
    }
    Py_RETURN_NONE;
}


// Test PyBytesWriter_Grow()
static PyObject*
writer_grow(PyObject *self_raw, PyObject *args)
{
    WriterObject *self = (WriterObject *)self_raw;
    if (writer_check(self) < 0) {
        return NULL;
    }

    Py_ssize_t size;
    if (!PyArg_ParseTuple(args, "n", &size)) {
        return NULL;
    }

    if (PyBytesWriter_Grow(self->writer, size) < 0) {
        return NULL;
    }
    Py_RETURN_NONE;
}


static PyObject*
writer_get_data(PyObject *self_raw, PyObject *args)
{
    WriterObject *self = (WriterObject *)self_raw;
    if (writer_check(self) < 0) {
        return NULL;
    }

    Py_ssize_t size = PyBytesWriter_GetSize(self->writer);
    if (!PyArg_ParseTuple(args, "|n", &size)) {
        return NULL;
    }

    const char *data = PyBytesWriter_GetData(self->writer);
    return PyBytes_FromStringAndSize(data, size);
}


static PyObject*
writer_get_size(PyObject *self_raw, PyObject *Py_UNUSED(args))
{
    WriterObject *self = (WriterObject *)self_raw;
    if (writer_check(self) < 0) {
        return NULL;
    }

    Py_ssize_t size = PyBytesWriter_GetSize(self->writer);
    return PyLong_FromSsize_t(size);
}


static PyObject*
writer_finish(PyObject *self_raw, PyObject *Py_UNUSED(args))
{
    WriterObject *self = (WriterObject *)self_raw;
    if (writer_check(self) < 0) {
        return NULL;
    }

    PyObject *str = PyBytesWriter_Finish(self->writer);
    self->writer = NULL;
    return str;
}


static PyObject*
writer_finish_with_size(PyObject *self_raw, PyObject *args)
{
    WriterObject *self = (WriterObject *)self_raw;
    if (writer_check(self) < 0) {
        return NULL;
    }

    Py_ssize_t size;
    if (!PyArg_ParseTuple(args, "n", &size)) {
        return NULL;
    }

    PyObject *str = PyBytesWriter_FinishWithSize(self->writer, size);
    self->writer = NULL;
    return str;
}


static PyObject*
writer_discard(PyObject *self_raw, PyObject *Py_UNUSED(args))
{
    WriterObject *self = (WriterObject *)self_raw;
    if (writer_check(self) < 0) {
        return NULL;
    }

    PyBytesWriter_Discard(self->writer);
    self->writer = NULL;
    Py_RETURN_NONE;
}


static PyMethodDef writer_methods[] = {
    {"write", _PyCFunction_CAST(writer_write), METH_VARARGS | METH_KEYWORDS},
    {"write_bytes", _PyCFunction_CAST(writer_write_bytes), METH_VARARGS},
    {"format_i", _PyCFunction_CAST(writer_format_i), METH_VARARGS},
    {"format_s", _PyCFunction_CAST(writer_format_s), METH_VARARGS},
    {"resize", _PyCFunction_CAST(writer_resize), METH_VARARGS},
    {"grow", _PyCFunction_CAST(writer_grow), METH_VARARGS},
    {"get_data", _PyCFunction_CAST(writer_get_data), METH_VARARGS},
    {"get_size", _PyCFunction_CAST(writer_get_size), METH_NOARGS},
    {"finish", _PyCFunction_CAST(writer_finish), METH_NOARGS},
    {"finish_with_size", _PyCFunction_CAST(writer_finish_with_size), METH_VARARGS},
    {"discard", _PyCFunction_CAST(writer_discard), METH_NOARGS},
    {NULL,              NULL}           /* sentinel */
};

static PyType_Slot Writer_Type_slots[] = {
    {Py_tp_new, writer_new},
    {Py_tp_init, writer_init},
    {Py_tp_dealloc, writer_dealloc},
    {Py_tp_methods, writer_methods},
    {0, 0},  /* sentinel */
};

static PyType_Spec Writer_spec = {
    .name = "_testcapi.PyBytesWriter",
    .basicsize = sizeof(WriterObject),
    .flags = Py_TPFLAGS_DEFAULT,
    .slots = Writer_Type_slots,
};


static PyObject *
byteswriter_abc(PyObject *Py_UNUSED(module), PyObject *Py_UNUSED(args))
{
    PyBytesWriter *writer = PyBytesWriter_Create(3);
    if (writer == NULL) {
        return NULL;
    }

    char *str = PyBytesWriter_GetData(writer);
    memcpy(str, "abc", 3);

    return PyBytesWriter_Finish(writer);
}


static PyObject *
byteswriter_resize(PyObject *Py_UNUSED(module), PyObject *Py_UNUSED(args))
{
    // Allocate 10 bytes
    PyBytesWriter *writer = PyBytesWriter_Create(10);
    if (writer == NULL) {
        return NULL;
    }
    char *buf = PyBytesWriter_GetData(writer);

    // Write some bytes
    const char *hello = "Hello ";
    memcpy(buf, hello, strlen(hello));
    buf += strlen(hello);

    // Allocate 10 more bytes
    buf = PyBytesWriter_GrowAndUpdatePointer(writer, 10, buf);
    if (buf == NULL) {
        PyBytesWriter_Discard(writer);
        return NULL;
    }

    // Write more bytes
    const char *world = "World";
    memcpy(buf, world, strlen(world));
    buf += strlen(world);

    // Truncate to the exact size and create a bytes object
    return PyBytesWriter_FinishWithPointer(writer, buf);
}


static PyObject *
byteswriter_highlevel(PyObject *Py_UNUSED(module), PyObject *Py_UNUSED(args))
{
    PyBytesWriter *writer = PyBytesWriter_Create(0);
    if (writer == NULL) {
        goto error;
    }
    if (PyBytesWriter_WriteBytes(writer, "Hello", -1) < 0) {
        goto error;
    }
    if (PyBytesWriter_Format(writer, " %s!", "World") < 0) {
        goto error;
    }
    return PyBytesWriter_Finish(writer);

error:
    PyBytesWriter_Discard(writer);
    return NULL;
}


static size_t
pybyteswriter_small_buffer_size(void)
{
    return offsetof(PyBytesWriter, obj);
}


// Test the "Pointer" API of PyBytesWriter
static PyObject *
test_byteswriter_ptr(PyObject *Py_UNUSED(module), PyObject *Py_UNUSED(args))
{
    // Test PyBytesWriter_FinishWithPointer(): create the string "abc"
    PyBytesWriter *writer = PyBytesWriter_Create(3);
    if (writer == NULL) {
        return NULL;
    }
    char *str = PyBytesWriter_GetData(writer);
    memcpy(str, "abc", 3);
    str += 3;
    PyObject *result = PyBytesWriter_FinishWithPointer(writer, str);
    if (result == NULL) {
        return NULL;
    }
    assert(PyBytes_GET_SIZE(result) == 3);
    assert(memcmp(PyBytes_AS_STRING(result), "abc", 3) == 0);
    Py_DECREF(result);

    // Test PyBytesWriter_GrowAndUpdatePointer().
    // Start by using the small buffer, and then resize to use a bytes object.
    writer = PyBytesWriter_Create(0);
    if (writer == NULL) {
        return NULL;
    }
    str = PyBytesWriter_GetData(writer);

    str = PyBytesWriter_GrowAndUpdatePointer(writer, 100, str);
    if (str == NULL) {
        PyBytesWriter_Discard(writer);
        return NULL;
    }
    memset(str, 'x', 100);
    str += 100;

    // make sure that the test switches to a bytes object
    assert((100 + 200) > pybyteswriter_small_buffer_size());
    char *old_str = str;
    str = PyBytesWriter_GrowAndUpdatePointer(writer, 200, str);
    if (str == NULL) {
        PyBytesWriter_Discard(writer);
        return NULL;
    }
    // make sure that we moved from the small buffer to a bytes object
    assert(str != old_str);
    memset(str, 'y', 200);
    str += 200;

    result = PyBytesWriter_FinishWithPointer(writer, str);
    if (result == NULL) {
        return NULL;
    }
    assert(PyBytes_GET_SIZE(result) == 300);
    str = PyBytes_AS_STRING(result);
    for (Py_ssize_t i = 0; i < 100; i++) {
        assert(str[i] == 'x');
    }
    for (Py_ssize_t i = 0; i < 200; i++) {
        assert(str[100 + i] == 'y');
    }
    Py_DECREF(result);

    // Check that PyBytesWriter_FinishWithPointer() rejects pointer
    // after the buffer end (create a string larger than the allocated size)
    writer = PyBytesWriter_Create(3);
    if (writer == NULL) {
        return NULL;
    }
    str = PyBytesWriter_GetData(writer);
    memcpy(str, "abc", 3);
    str += 4;  // off-by-one bug on purpose
    result = PyBytesWriter_FinishWithPointer(writer, str);
    assert(result == NULL);
    assert(PyErr_ExceptionMatches(PyExc_ValueError));
    PyErr_Clear();

    // Check that PyBytesWriter_FinishWithPointer() rejects pointer
    // before the buffer start (negative size)
    writer = PyBytesWriter_Create(3);
    if (writer == NULL) {
        return NULL;
    }
    str = PyBytesWriter_GetData(writer);
    str--;     // bug on purpose: go before the buffer start
    result = PyBytesWriter_FinishWithPointer(writer, str);
    assert(result == NULL);
    assert(PyErr_ExceptionMatches(PyExc_ValueError));
    PyErr_Clear();

    Py_RETURN_NONE;
}


static PyObject *
bytes_overflow(PyObject *Py_UNUSED(module), PyObject *args)
{
    Py_ssize_t alloc, overflow = 1;
    if (!PyArg_ParseTuple(args, "n|n", &alloc, &overflow))
        return NULL;

    PyObject *bytes = PyObject_CallFunction((PyObject*)&PyBytes_Type, "n", alloc);
    if (bytes == NULL) {
        return NULL;
    }

    char *data = PyBytes_AS_STRING(bytes);
    Py_ssize_t size = PyBytes_GET_SIZE(bytes);
    memset(data, 'x', size);
    memset(data + size, '#', overflow);  // Buffer overflow!
    return bytes;
}


static PyObject *
bytearray_overflow(PyObject *Py_UNUSED(module), PyObject *args)
{
    Py_ssize_t alloc, overflow = 1;
    if (!PyArg_ParseTuple(args, "n|n", &alloc, &overflow))
        return NULL;

    PyObject *bytearray = PyObject_CallFunction((PyObject*)&PyByteArray_Type, "n", alloc);
    if (bytearray == NULL) {
        return NULL;
    }

    char *data = PyByteArray_AS_STRING(bytearray);
    Py_ssize_t size = PyByteArray_GET_SIZE(bytearray);
    memset(data + size, '#', overflow);  // Buffer overflow!
    return bytearray;
}


// Write into an immutable bytes object to test _PyStaticObjects_CheckAll()
static PyObject *
corrupt_bytes(PyObject *Py_UNUSED(module), PyObject *args)
{
    char *bytes, *override;
    Py_ssize_t size;
    if (!PyArg_ParseTuple(args, "yy#", &bytes, &override, &size)) {
        return NULL;
    }

    memcpy(bytes, override, size);
    Py_RETURN_NONE;
}


static PyMethodDef test_methods[] = {
    {"bytes_resize", _PyCFunction_CAST(bytes_resize), METH_VARARGS | METH_KEYWORDS},
    {"bytes_join", bytes_join, METH_VARARGS},
    {"byteswriter_abc", byteswriter_abc, METH_NOARGS},
    {"byteswriter_resize", byteswriter_resize, METH_NOARGS},
    {"byteswriter_highlevel", byteswriter_highlevel, METH_NOARGS},
    {"test_byteswriter_ptr", test_byteswriter_ptr, METH_NOARGS},
    {"bytes_overflow", bytes_overflow, METH_VARARGS},
    {"bytearray_overflow", bytearray_overflow, METH_VARARGS},
    {"corrupt_bytes", corrupt_bytes, METH_VARARGS},
    {NULL},
};

int
_PyTestCapi_Init_Bytes(PyObject *m)
{
    if (PyModule_AddFunctions(m, test_methods) < 0) {
        return -1;
    }

    PyTypeObject *writer_type = (PyTypeObject *)PyType_FromSpec(&Writer_spec);
    if (writer_type == NULL) {
        return -1;
    }
    if (PyModule_AddType(m, writer_type) < 0) {
        Py_DECREF(writer_type);
        return -1;
    }
    Py_DECREF(writer_type);

    // PyBytesWriter.obj is the second member, small_buffer is the first member
    long size = (long)pybyteswriter_small_buffer_size();
    if (PyModule_AddIntConstant(m, "PyBytesWriter_small_buffer", size) < 0) {
        return -1;
    }

    return 0;
}