
/* =========================== Module _Fm =========================== */

#include "Python.h"

#ifndef __LP64__


#include "pymactoolbox.h"

/* Macro to test whether a weak-loaded CFM function exists */
#define PyMac_PRECHECK(rtn) do { if ( &rtn == NULL )  {\
    PyErr_SetString(PyExc_NotImplementedError, \
    "Not available in this shared library/OS version"); \
    return NULL; \
    }} while(0)


#include <Carbon/Carbon.h>


/*
** Parse/generate ComponentDescriptor records
*/
static PyObject *
FMRec_New(FMetricRec *itself)
{

    return Py_BuildValue("O&O&O&O&O&",
        PyMac_BuildFixed, itself->ascent,
        PyMac_BuildFixed, itself->descent,
        PyMac_BuildFixed, itself->leading,
        PyMac_BuildFixed, itself->widMax,
        ResObj_New, itself->wTabHandle);
}

#if 0
/* Not needed... */
static int
FMRec_Convert(PyObject *v, FMetricRec *p_itself)
{
    return PyArg_ParseTuple(v, "O&O&O&O&O&",
        PyMac_GetFixed, &itself->ascent,
        PyMac_GetFixed, &itself->descent,
        PyMac_GetFixed, &itself->leading,
        PyMac_GetFixed, &itself->widMax,
        ResObj_Convert, &itself->wTabHandle);
}
#endif


static PyObject *Fm_Error;

static PyObject *Fm_GetFontName(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    short familyID;
    Str255 name;
#ifndef GetFontName
    PyMac_PRECHECK(GetFontName);
#endif
    if (!PyArg_ParseTuple(_args, "h",
                          &familyID))
        return NULL;
    GetFontName(familyID,
                name);
    _res = Py_BuildValue("O&",
                         PyMac_BuildStr255, name);
    return _res;
}

static PyObject *Fm_GetFNum(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    Str255 name;
    short familyID;
#ifndef GetFNum
    PyMac_PRECHECK(GetFNum);
#endif
    if (!PyArg_ParseTuple(_args, "O&",
                          PyMac_GetStr255, name))
        return NULL;
    GetFNum(name,
        &familyID);
    _res = Py_BuildValue("h",
                         familyID);
    return _res;
}

static PyObject *Fm_RealFont(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    Boolean _rv;
    short fontNum;
    short size;
#ifndef RealFont
    PyMac_PRECHECK(RealFont);
#endif
    if (!PyArg_ParseTuple(_args, "hh",
                          &fontNum,
                          &size))
        return NULL;
    _rv = RealFont(fontNum,
                   size);
    _res = Py_BuildValue("b",
                         _rv);
    return _res;
}

static PyObject *Fm_SetFScaleDisable(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    Boolean fscaleDisable;
#ifndef SetFScaleDisable
    PyMac_PRECHECK(SetFScaleDisable);
#endif
    if (!PyArg_ParseTuple(_args, "b",
                          &fscaleDisable))
        return NULL;
    SetFScaleDisable(fscaleDisable);
    Py_INCREF(Py_None);
    _res = Py_None;
    return _res;
}

static PyObject *Fm_FontMetrics(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    FMetricRec theMetrics;
#ifndef FontMetrics
    PyMac_PRECHECK(FontMetrics);
#endif
    if (!PyArg_ParseTuple(_args, ""))
        return NULL;
    FontMetrics(&theMetrics);
    _res = Py_BuildValue("O&",
                         FMRec_New, &theMetrics);
    return _res;
}

static PyObject *Fm_SetFractEnable(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    Boolean fractEnable;
#ifndef SetFractEnable
    PyMac_PRECHECK(SetFractEnable);
#endif
    if (!PyArg_ParseTuple(_args, "b",
                          &fractEnable))
        return NULL;
    SetFractEnable(fractEnable);
    Py_INCREF(Py_None);
    _res = Py_None;
    return _res;
}

static PyObject *Fm_GetDefFontSize(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    short _rv;
#ifndef GetDefFontSize
    PyMac_PRECHECK(GetDefFontSize);
#endif
    if (!PyArg_ParseTuple(_args, ""))
        return NULL;
    _rv = GetDefFontSize();
    _res = Py_BuildValue("h",
                         _rv);
    return _res;
}

static PyObject *Fm_IsOutline(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    Boolean _rv;
    Point numer;
    Point denom;
#ifndef IsOutline
    PyMac_PRECHECK(IsOutline);
#endif
    if (!PyArg_ParseTuple(_args, "O&O&",
                          PyMac_GetPoint, &numer,
                          PyMac_GetPoint, &denom))
        return NULL;
    _rv = IsOutline(numer,
                    denom);
    _res = Py_BuildValue("b",
                         _rv);
    return _res;
}

static PyObject *Fm_SetOutlinePreferred(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    Boolean outlinePreferred;
#ifndef SetOutlinePreferred
    PyMac_PRECHECK(SetOutlinePreferred);
#endif
    if (!PyArg_ParseTuple(_args, "b",
                          &outlinePreferred))
        return NULL;
    SetOutlinePreferred(outlinePreferred);
    Py_INCREF(Py_None);
    _res = Py_None;
    return _res;
}

static PyObject *Fm_GetOutlinePreferred(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    Boolean _rv;
#ifndef GetOutlinePreferred
    PyMac_PRECHECK(GetOutlinePreferred);
#endif
    if (!PyArg_ParseTuple(_args, ""))
        return NULL;
    _rv = GetOutlinePreferred();
    _res = Py_BuildValue("b",
                         _rv);
    return _res;
}

static PyObject *Fm_SetPreserveGlyph(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    Boolean preserveGlyph;
#ifndef SetPreserveGlyph
    PyMac_PRECHECK(SetPreserveGlyph);
#endif
    if (!PyArg_ParseTuple(_args, "b",
                          &preserveGlyph))
        return NULL;
    SetPreserveGlyph(preserveGlyph);
    Py_INCREF(Py_None);
    _res = Py_None;
    return _res;
}

static PyObject *Fm_GetPreserveGlyph(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    Boolean _rv;
#ifndef GetPreserveGlyph
    PyMac_PRECHECK(GetPreserveGlyph);
#endif
    if (!PyArg_ParseTuple(_args, ""))
        return NULL;
    _rv = GetPreserveGlyph();
    _res = Py_BuildValue("b",
                         _rv);
    return _res;
}

static PyObject *Fm_GetSysFont(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    short _rv;
#ifndef GetSysFont
    PyMac_PRECHECK(GetSysFont);
#endif
    if (!PyArg_ParseTuple(_args, ""))
        return NULL;
    _rv = GetSysFont();
    _res = Py_BuildValue("h",
                         _rv);
    return _res;
}

static PyObject *Fm_GetAppFont(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    short _rv;
#ifndef GetAppFont
    PyMac_PRECHECK(GetAppFont);
#endif
    if (!PyArg_ParseTuple(_args, ""))
        return NULL;
    _rv = GetAppFont();
    _res = Py_BuildValue("h",
                         _rv);
    return _res;
}

static PyObject *Fm_QDTextBounds(PyObject *_self, PyObject *_args)
{
    PyObject *_res = NULL;
    char *inText__in__;
    int inText__len__;
    int inText__in_len__;
    Rect bounds;
#ifndef QDTextBounds
    PyMac_PRECHECK(QDTextBounds);
#endif
    if (!PyArg_ParseTuple(_args, "s#",
                          &inText__in__, &inText__in_len__))
        return NULL;
    inText__len__ = inText__in_len__;
    QDTextBounds(inText__len__, inText__in__,
                 &bounds);
    _res = Py_BuildValue("O&",
                         PyMac_BuildRect, &bounds);
    return _res;
}

static PyMethodDef Fm_methods[] = {
    {"GetFontName", (PyCFunction)Fm_GetFontName, 1,
     PyDoc_STR("(short familyID) -> (Str255 name)")},
    {"GetFNum", (PyCFunction)Fm_GetFNum, 1,
     PyDoc_STR("(Str255 name) -> (short familyID)")},
    {"RealFont", (PyCFunction)Fm_RealFont, 1,
     PyDoc_STR("(short fontNum, short size) -> (Boolean _rv)")},
    {"SetFScaleDisable", (PyCFunction)Fm_SetFScaleDisable, 1,
     PyDoc_STR("(Boolean fscaleDisable) -> None")},
    {"FontMetrics", (PyCFunction)Fm_FontMetrics, 1,
     PyDoc_STR("() -> (FMetricRec theMetrics)")},
    {"SetFractEnable", (PyCFunction)Fm_SetFractEnable, 1,
     PyDoc_STR("(Boolean fractEnable) -> None")},
    {"GetDefFontSize", (PyCFunction)Fm_GetDefFontSize, 1,
     PyDoc_STR("() -> (short _rv)")},
    {"IsOutline", (PyCFunction)Fm_IsOutline, 1,
     PyDoc_STR("(Point numer, Point denom) -> (Boolean _rv)")},
    {"SetOutlinePreferred", (PyCFunction)Fm_SetOutlinePreferred, 1,
     PyDoc_STR("(Boolean outlinePreferred) -> None")},
    {"GetOutlinePreferred", (PyCFunction)Fm_GetOutlinePreferred, 1,
     PyDoc_STR("() -> (Boolean _rv)")},
    {"SetPreserveGlyph", (PyCFunction)Fm_SetPreserveGlyph, 1,
     PyDoc_STR("(Boolean preserveGlyph) -> None")},
    {"GetPreserveGlyph", (PyCFunction)Fm_GetPreserveGlyph, 1,
     PyDoc_STR("() -> (Boolean _rv)")},
    {"GetSysFont", (PyCFunction)Fm_GetSysFont, 1,
     PyDoc_STR("() -> (short _rv)")},
    {"GetAppFont", (PyCFunction)Fm_GetAppFont, 1,
     PyDoc_STR("() -> (short _rv)")},
    {"QDTextBounds", (PyCFunction)Fm_QDTextBounds, 1,
     PyDoc_STR("(Buffer inText) -> (Rect bounds)")},
    {NULL, NULL, 0}
};

#else  /* __LP64__ */

static PyMethodDef Fm_methods[] = {
    {NULL, NULL, 0}
};

#endif  /* __LP64__ */

void init_Fm(void)
{
    PyObject *m;
#ifndef __LP64__
    PyObject *d;
#endif  /* __LP64__ */




    m = Py_InitModule("_Fm", Fm_methods);
#ifndef __LP64__
    d = PyModule_GetDict(m);
    Fm_Error = PyMac_GetOSErrException();
    if (Fm_Error == NULL ||
        PyDict_SetItemString(d, "Error", Fm_Error) != 0)
        return;
#endif  /* __LP64__ */
}

/* ========================= End module _Fm ========================= */

