1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
Mac/Modules/OSATerminology.c
/*
** An interface to the application scripting related functions of the OSA API.
**
** GetAppTerminology - given an FSSpec/posix path to an application,
**                         returns its aevt (scripting terminology) resource(s)
**
** GetSysTerminology - returns the AppleScript language component's
**                         aeut (scripting terminology) resource
**
** Written by Donovan Preston and slightly modified by Jack and HAS.
*/
#include "Python.h"
#include "pymactoolbox.h"

#include <Carbon/Carbon.h>

#ifndef __LP64__
static PyObject *
PyOSA_GetAppTerminology(PyObject* self, PyObject* args)
{
    AEDesc theDesc = {0,0};
    FSSpec fss;
    ComponentInstance defaultComponent = NULL;
    SInt16 defaultTerminology = 0;
    Boolean didLaunch = 0;
    OSAError err;
    long modeFlags = 0;

    if (!PyArg_ParseTuple(args, "O&|i", PyMac_GetFSSpec, &fss, &modeFlags))
             return NULL;

    /*
    ** Note that we have to use the AppleScript component here. Who knows why
    ** OSAGetAppTerminology should require a scripting component in the
    ** first place, but it does. Note: doesn't work with the generic scripting
    ** component, which is unfortunate as the AS component is currently very
    ** slow (~1 sec?) to load, but we just have to live with this.
    */
    defaultComponent = OpenDefaultComponent (kOSAComponentType, 'ascr');
    err = GetComponentInstanceError (defaultComponent);
    if (err) return PyMac_Error(err);
    err = OSAGetAppTerminology (
    defaultComponent,
    kOSAModeNull,
    &fss,
    defaultTerminology,
    &didLaunch,
    &theDesc
    );
    if (err) return PyMac_Error(err);
    return Py_BuildValue("O&i", AEDesc_New, &theDesc, didLaunch);
}

static PyObject *
PyOSA_GetSysTerminology(PyObject* self, PyObject* args)
{
    AEDesc theDesc = {0,0};
    ComponentInstance defaultComponent = NULL;
    SInt16 defaultTerminology = 0;
    OSAError err;

    /* Accept any args for sake of backwards compatibility, then ignore them. */

    defaultComponent = OpenDefaultComponent (kOSAComponentType, 'ascr');
    err = GetComponentInstanceError (defaultComponent);
    if (err) return PyMac_Error(err);
    err = OSAGetSysTerminology (
    defaultComponent,
    kOSAModeNull,
    defaultTerminology,
    &theDesc
    );
    if (err) return PyMac_Error(err);
    return Py_BuildValue("O&", AEDesc_New, &theDesc);
}
#endif /* !__LP64__ */

/*
 * List of methods defined in the module
 */
static struct PyMethodDef OSATerminology_methods[] =
{
#ifndef __LP64__
    {"GetAppTerminology",
        (PyCFunction) PyOSA_GetAppTerminology,
        METH_VARARGS,
        "Get an application's terminology. GetAppTerminology(path) --> AEDesc"},
    {"GetSysTerminology",
        (PyCFunction) PyOSA_GetSysTerminology,
        METH_VARARGS,
        "Get the AppleScript language's terminology. GetSysTerminology() --> AEDesc"},
#endif /* !__LP64__ */
    {NULL, (PyCFunction) NULL, 0, NULL}
};

void
initOSATerminology(void)
{
    if (PyErr_WarnPy3k("In 3.x, the OSATerminology module is removed.", 1) < 0)
        return;
    Py_InitModule("OSATerminology", OSATerminology_methods);
}