401 lines
8.9 KiB
C
401 lines
8.9 KiB
C
|
|
||
|
|
/* =========================== Module Fm ============================ */
|
||
|
|
|
||
|
|
#include "Python.h"
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
#define SystemSevenOrLater 1
|
||
|
|
|
||
|
|
#include "macglue.h"
|
||
|
|
#include <Memory.h>
|
||
|
|
#include <Dialogs.h>
|
||
|
|
#include <Menus.h>
|
||
|
|
#include <Controls.h>
|
||
|
|
|
||
|
|
extern PyObject *ResObj_New(Handle);
|
||
|
|
extern int ResObj_Convert(PyObject *, Handle *);
|
||
|
|
extern PyObject *OptResObj_New(Handle);
|
||
|
|
extern int OptResObj_Convert(PyObject *, Handle *);
|
||
|
|
|
||
|
|
extern PyObject *WinObj_New(WindowPtr);
|
||
|
|
extern int WinObj_Convert(PyObject *, WindowPtr *);
|
||
|
|
extern PyTypeObject Window_Type;
|
||
|
|
#define WinObj_Check(x) ((x)->ob_type == &Window_Type)
|
||
|
|
|
||
|
|
extern PyObject *DlgObj_New(DialogPtr);
|
||
|
|
extern int DlgObj_Convert(PyObject *, DialogPtr *);
|
||
|
|
extern PyTypeObject Dialog_Type;
|
||
|
|
#define DlgObj_Check(x) ((x)->ob_type == &Dialog_Type)
|
||
|
|
|
||
|
|
extern PyObject *MenuObj_New(MenuHandle);
|
||
|
|
extern int MenuObj_Convert(PyObject *, MenuHandle *);
|
||
|
|
|
||
|
|
extern PyObject *CtlObj_New(ControlHandle);
|
||
|
|
extern int CtlObj_Convert(PyObject *, ControlHandle *);
|
||
|
|
|
||
|
|
extern PyObject *GrafObj_New(GrafPtr);
|
||
|
|
extern int GrafObj_Convert(PyObject *, GrafPtr *);
|
||
|
|
|
||
|
|
extern PyObject *BMObj_New(BitMapPtr);
|
||
|
|
extern int BMObj_Convert(PyObject *, BitMapPtr *);
|
||
|
|
|
||
|
|
extern PyObject *PMObj_New(PixMapHandle);
|
||
|
|
extern int PMObj_Convert(PyObject *, PixMapHandle *);
|
||
|
|
|
||
|
|
extern PyObject *WinObj_WhichWindow(WindowPtr);
|
||
|
|
|
||
|
|
#include <Fonts.h>
|
||
|
|
|
||
|
|
/*
|
||
|
|
** Parse/generate ComponentDescriptor records
|
||
|
|
*/
|
||
|
|
PyObject *FMRec_New(itself)
|
||
|
|
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... */
|
||
|
|
FMRec_Convert(v, p_itself)
|
||
|
|
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_InitFonts(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
if (!PyArg_ParseTuple(_args, ""))
|
||
|
|
return NULL;
|
||
|
|
InitFonts();
|
||
|
|
Py_INCREF(Py_None);
|
||
|
|
_res = Py_None;
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_GetFontName(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
short familyID;
|
||
|
|
Str255 name;
|
||
|
|
if (!PyArg_ParseTuple(_args, "h",
|
||
|
|
&familyID))
|
||
|
|
return NULL;
|
||
|
|
GetFontName(familyID,
|
||
|
|
name);
|
||
|
|
_res = Py_BuildValue("O&",
|
||
|
|
PyMac_BuildStr255, name);
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_GetFNum(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
Str255 name;
|
||
|
|
short familyID;
|
||
|
|
if (!PyArg_ParseTuple(_args, "O&",
|
||
|
|
PyMac_GetStr255, name))
|
||
|
|
return NULL;
|
||
|
|
GetFNum(name,
|
||
|
|
&familyID);
|
||
|
|
_res = Py_BuildValue("h",
|
||
|
|
familyID);
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_RealFont(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
Boolean _rv;
|
||
|
|
short fontNum;
|
||
|
|
short size;
|
||
|
|
if (!PyArg_ParseTuple(_args, "hh",
|
||
|
|
&fontNum,
|
||
|
|
&size))
|
||
|
|
return NULL;
|
||
|
|
_rv = RealFont(fontNum,
|
||
|
|
size);
|
||
|
|
_res = Py_BuildValue("b",
|
||
|
|
_rv);
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_SetFontLock(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
Boolean lockFlag;
|
||
|
|
if (!PyArg_ParseTuple(_args, "b",
|
||
|
|
&lockFlag))
|
||
|
|
return NULL;
|
||
|
|
SetFontLock(lockFlag);
|
||
|
|
Py_INCREF(Py_None);
|
||
|
|
_res = Py_None;
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_SetFScaleDisable(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
Boolean fscaleDisable;
|
||
|
|
if (!PyArg_ParseTuple(_args, "b",
|
||
|
|
&fscaleDisable))
|
||
|
|
return NULL;
|
||
|
|
SetFScaleDisable(fscaleDisable);
|
||
|
|
Py_INCREF(Py_None);
|
||
|
|
_res = Py_None;
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_FontMetrics(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
FMetricRec theMetrics;
|
||
|
|
if (!PyArg_ParseTuple(_args, ""))
|
||
|
|
return NULL;
|
||
|
|
FontMetrics(&theMetrics);
|
||
|
|
_res = Py_BuildValue("O&",
|
||
|
|
FMRec_New, &theMetrics);
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_SetFractEnable(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
Boolean fractEnable;
|
||
|
|
if (!PyArg_ParseTuple(_args, "b",
|
||
|
|
&fractEnable))
|
||
|
|
return NULL;
|
||
|
|
SetFractEnable(fractEnable);
|
||
|
|
Py_INCREF(Py_None);
|
||
|
|
_res = Py_None;
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_GetDefFontSize(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
short _rv;
|
||
|
|
if (!PyArg_ParseTuple(_args, ""))
|
||
|
|
return NULL;
|
||
|
|
_rv = GetDefFontSize();
|
||
|
|
_res = Py_BuildValue("h",
|
||
|
|
_rv);
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_IsOutline(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
Boolean _rv;
|
||
|
|
Point numer;
|
||
|
|
Point denom;
|
||
|
|
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(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
Boolean outlinePreferred;
|
||
|
|
if (!PyArg_ParseTuple(_args, "b",
|
||
|
|
&outlinePreferred))
|
||
|
|
return NULL;
|
||
|
|
SetOutlinePreferred(outlinePreferred);
|
||
|
|
Py_INCREF(Py_None);
|
||
|
|
_res = Py_None;
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_GetOutlinePreferred(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
Boolean _rv;
|
||
|
|
if (!PyArg_ParseTuple(_args, ""))
|
||
|
|
return NULL;
|
||
|
|
_rv = GetOutlinePreferred();
|
||
|
|
_res = Py_BuildValue("b",
|
||
|
|
_rv);
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_SetPreserveGlyph(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
Boolean preserveGlyph;
|
||
|
|
if (!PyArg_ParseTuple(_args, "b",
|
||
|
|
&preserveGlyph))
|
||
|
|
return NULL;
|
||
|
|
SetPreserveGlyph(preserveGlyph);
|
||
|
|
Py_INCREF(Py_None);
|
||
|
|
_res = Py_None;
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_GetPreserveGlyph(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
Boolean _rv;
|
||
|
|
if (!PyArg_ParseTuple(_args, ""))
|
||
|
|
return NULL;
|
||
|
|
_rv = GetPreserveGlyph();
|
||
|
|
_res = Py_BuildValue("b",
|
||
|
|
_rv);
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_FlushFonts(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
OSErr _err;
|
||
|
|
if (!PyArg_ParseTuple(_args, ""))
|
||
|
|
return NULL;
|
||
|
|
_err = FlushFonts();
|
||
|
|
if (_err != noErr) return PyMac_Error(_err);
|
||
|
|
Py_INCREF(Py_None);
|
||
|
|
_res = Py_None;
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_GetSysFont(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
short _rv;
|
||
|
|
if (!PyArg_ParseTuple(_args, ""))
|
||
|
|
return NULL;
|
||
|
|
_rv = GetSysFont();
|
||
|
|
_res = Py_BuildValue("h",
|
||
|
|
_rv);
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyObject *Fm_GetAppFont(_self, _args)
|
||
|
|
PyObject *_self;
|
||
|
|
PyObject *_args;
|
||
|
|
{
|
||
|
|
PyObject *_res = NULL;
|
||
|
|
short _rv;
|
||
|
|
if (!PyArg_ParseTuple(_args, ""))
|
||
|
|
return NULL;
|
||
|
|
_rv = GetAppFont();
|
||
|
|
_res = Py_BuildValue("h",
|
||
|
|
_rv);
|
||
|
|
return _res;
|
||
|
|
}
|
||
|
|
|
||
|
|
static PyMethodDef Fm_methods[] = {
|
||
|
|
{"InitFonts", (PyCFunction)Fm_InitFonts, 1,
|
||
|
|
"() -> None"},
|
||
|
|
{"GetFontName", (PyCFunction)Fm_GetFontName, 1,
|
||
|
|
"(short familyID) -> (Str255 name)"},
|
||
|
|
{"GetFNum", (PyCFunction)Fm_GetFNum, 1,
|
||
|
|
"(Str255 name) -> (short familyID)"},
|
||
|
|
{"RealFont", (PyCFunction)Fm_RealFont, 1,
|
||
|
|
"(short fontNum, short size) -> (Boolean _rv)"},
|
||
|
|
{"SetFontLock", (PyCFunction)Fm_SetFontLock, 1,
|
||
|
|
"(Boolean lockFlag) -> None"},
|
||
|
|
{"SetFScaleDisable", (PyCFunction)Fm_SetFScaleDisable, 1,
|
||
|
|
"(Boolean fscaleDisable) -> None"},
|
||
|
|
{"FontMetrics", (PyCFunction)Fm_FontMetrics, 1,
|
||
|
|
"() -> (FMetricRec theMetrics)"},
|
||
|
|
{"SetFractEnable", (PyCFunction)Fm_SetFractEnable, 1,
|
||
|
|
"(Boolean fractEnable) -> None"},
|
||
|
|
{"GetDefFontSize", (PyCFunction)Fm_GetDefFontSize, 1,
|
||
|
|
"() -> (short _rv)"},
|
||
|
|
{"IsOutline", (PyCFunction)Fm_IsOutline, 1,
|
||
|
|
"(Point numer, Point denom) -> (Boolean _rv)"},
|
||
|
|
{"SetOutlinePreferred", (PyCFunction)Fm_SetOutlinePreferred, 1,
|
||
|
|
"(Boolean outlinePreferred) -> None"},
|
||
|
|
{"GetOutlinePreferred", (PyCFunction)Fm_GetOutlinePreferred, 1,
|
||
|
|
"() -> (Boolean _rv)"},
|
||
|
|
{"SetPreserveGlyph", (PyCFunction)Fm_SetPreserveGlyph, 1,
|
||
|
|
"(Boolean preserveGlyph) -> None"},
|
||
|
|
{"GetPreserveGlyph", (PyCFunction)Fm_GetPreserveGlyph, 1,
|
||
|
|
"() -> (Boolean _rv)"},
|
||
|
|
{"FlushFonts", (PyCFunction)Fm_FlushFonts, 1,
|
||
|
|
"() -> None"},
|
||
|
|
{"GetSysFont", (PyCFunction)Fm_GetSysFont, 1,
|
||
|
|
"() -> (short _rv)"},
|
||
|
|
{"GetAppFont", (PyCFunction)Fm_GetAppFont, 1,
|
||
|
|
"() -> (short _rv)"},
|
||
|
|
{NULL, NULL, 0}
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
void initFm()
|
||
|
|
{
|
||
|
|
PyObject *m;
|
||
|
|
PyObject *d;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
m = Py_InitModule("Fm", Fm_methods);
|
||
|
|
d = PyModule_GetDict(m);
|
||
|
|
Fm_Error = PyMac_GetOSErrException();
|
||
|
|
if (Fm_Error == NULL ||
|
||
|
|
PyDict_SetItemString(d, "Error", Fm_Error) != 0)
|
||
|
|
Py_FatalError("can't initialize Fm.Error");
|
||
|
|
}
|
||
|
|
|
||
|
|
/* ========================= End module Fm ========================== */
|
||
|
|
|