gf-core/src/runtime/python/marshaller.c

#define PY_SSIZE_T_CLEAN
#include <Python.h>

#include <pgf/pgf.h>

#include "./compat.h"
#include "./expr.h"

/* The PgfUnmarshaller structure tells the runtime how to create
 * abstract syntax expressions and types in the heap of the host language.
 * In Python the expressions are normal objects.
 * From the point of view of the runtime, each node is a value of type object.
 * For Python that would be a PyObject pointer.
 */

PgfExpr eabs(PgfUnmarshaller *this, PgfBindType btype, PgfText *name, PgfExpr body)
{
    PyErr_SetString(PyExc_NotImplementedError, "eabs not implemented");
    return 0;
}

PgfExpr eapp(PgfUnmarshaller *this, PgfExpr fun, PgfExpr arg)
{
    PyErr_SetString(PyExc_NotImplementedError, "eapp not implemented");
    return 0;
}

PgfExpr elit(PgfUnmarshaller *this, PgfLiteral lit)
{
    PyErr_SetString(PyExc_NotImplementedError, "elit not implemented");
    return 0;
}

PgfExpr emeta(PgfUnmarshaller *this, PgfMetaId meta)
{
    PyErr_SetString(PyExc_NotImplementedError, "emeta not implemented");
    return 0;
}

PgfExpr efun(PgfUnmarshaller *this, PgfText *name)
{
    PyErr_SetString(PyExc_NotImplementedError, "efun not implemented");
    return 0;
}

PgfExpr evar(PgfUnmarshaller *this, int index)
{
    PyErr_SetString(PyExc_NotImplementedError, "evar not implemented");
    return 0;
}

PgfExpr etyped(PgfUnmarshaller *this, PgfExpr expr, PgfType typ)
{
    PyErr_SetString(PyExc_NotImplementedError, "etyped not implemented");
    return 0;
}

PgfExpr eimplarg(PgfUnmarshaller *this, PgfExpr expr)
{
    PyErr_SetString(PyExc_NotImplementedError, "eimplarg not implemented");
    return 0;
}

PgfLiteral lint(PgfUnmarshaller *this, size_t size, uintmax_t *v)
{
    if (size > 1) {
        PyErr_SetString(PyExc_NotImplementedError, "multi-part integers not implemented"); // TODO
        return 0;
    }
    PyObject *i = PyLong_FromUnsignedLong(*v);
    return (PgfLiteral) i;
}

PgfLiteral lflt(PgfUnmarshaller *this, double v)
{
    PyObject *d = PyFloat_FromDouble(v);
    return (PgfLiteral) d;
}

PgfLiteral lstr(PgfUnmarshaller *this, PgfText *v)
{
    PyObject *s = PyString_FromStringAndSize(v->text, v->size);
    return (PgfLiteral) s;
}

PgfType dtyp(PgfUnmarshaller *this, int n_hypos, PgfTypeHypo *hypos, PgfText *cat, int n_exprs, PgfExpr *exprs)
{
    TypeObject *pytype = (TypeObject *)pgf_TypeType.tp_alloc(&pgf_TypeType, 0);

    pytype->hypos = PyList_New(0);
    for (int i = 0; i < n_hypos; i++) {
        PgfTypeHypo *hypo = hypos + i;
        PyObject *tup = PyTuple_New(3);
        PyTuple_SetItem(tup, 0, PyLong_FromLong(hypo->bind_type == PGF_BIND_TYPE_EXPLICIT ? 0 : 1)); // TODO
        PyTuple_SetItem(tup, 1, PyString_FromStringAndSize(hypo->cid->text, hypo->cid->size));
        PyTuple_SetItem(tup, 2, (PyObject *)hypo->type);
        Py_INCREF(hypo->type);
        PyList_Append(pytype->hypos, tup);
    }

    pytype->cat = PyString_FromStringAndSize(cat->text, cat->size);

    pytype->exprs = PyList_New(0);
    for (int i = 0; i < n_exprs; i++) {
        // TODO
        // PgfExpr *expr = exprs + i;
    }

    return (PgfType) pytype;
}

void free_ref(PgfUnmarshaller *this, object x)
{
    Py_XDECREF(x);
}

static PgfUnmarshallerVtbl unmarshallerVtbl =
{
    eabs,
    eapp,
    elit,
    emeta,
    efun,
    evar,
    etyped,
    eimplarg,
    lint,
    lflt,
    lstr,
    dtyp,
    free_ref
};

/* static */
PgfUnmarshaller unmarshaller = { &unmarshallerVtbl };

// ----------------------------------------------------------------------------

static PgfText *
PyString_AsPgfText(PyObject *pystr)
{
    if (!PyString_Check(pystr)) {
        PyErr_SetString(PyExc_TypeError, "input to PyString_AsPgfText is not a string");
        return NULL;
    }
    size_t size = PyUnicode_GetLength(pystr);
    PgfText *ptext = (PgfText *)PyMem_Malloc(sizeof(PgfText)+size+1);
    memcpy(ptext->text, pystr, size+1);
    ptext->size = size;
    // Py_INCREF(ptext);
    return ptext;
}

// ----------------------------------------------------------------------------

object match_lit(PgfUnmarshaller *u, PgfLiteral lit)
{
    PyObject *pyobj = (PyObject *)lit;

    if (PyLong_Check(pyobj)) {
        uintmax_t i = PyLong_AsUnsignedLong(pyobj);
        size_t size = 1; // TODO
        return u->vtbl->lint(NULL, size, &i);
    }
    else if (PyFloat_Check(pyobj)) {
        double d = PyFloat_AsDouble(pyobj);
        return u->vtbl->lflt(NULL, d);
    }
    else if (PyString_Check(pyobj)) {
        PgfText *t = PyString_AsPgfText(pyobj);
        return u->vtbl->lstr(NULL, t);
    }
    else {
        PyErr_SetString(PyExc_TypeError, "unable to match on literal");
        return 0;
    }
}

object match_expr(PgfUnmarshaller *u, PgfExpr expr)
{
    PyErr_SetString(PyExc_NotImplementedError, "match_expr not implemented");
    return 0;
}

object match_type(PgfUnmarshaller *u, PgfType ty)
{
    TypeObject *type = (TypeObject *)ty;

    PySys_WriteStdout(">%s<\n", PyUnicode_AS_DATA(type->cat));

    int n_hypos = 0; //PyList_Size(type->hypos);
    PgfTypeHypo *hypos = NULL; // TODO

    PgfText *cat = PyString_AsPgfText(type->cat);

    int n_exprs = 0; //PyList_Size(type->exprs);
    PgfExpr *exprs = NULL; // TODO

    return u->vtbl->dtyp(NULL, n_hypos, hypos, cat, n_exprs, exprs);
}

static PgfMarshallerVtbl marshallerVtbl =
{
    match_lit,
    match_expr,
    match_type
};

/* static */
PgfMarshaller marshaller = { &marshallerVtbl };