Home | History | Annotate | Download | only in mlte 
      1 # This script generates a Python interface for an Apple Macintosh Manager.
      2 # It uses the "bgen" package to generate C code.
      3 # The function specifications are generated by scanning the mamager's header file,
      4 # using the "scantools" package (customized for this particular manager).
      5 
      6 #error missing SetActionFilter
      7 
      8 import string
      9 
     10 # Declarations that change for each manager
     11 MODNAME = '_Mlte'                               # The name of the module
     12 
     13 # The following is *usually* unchanged but may still require tuning
     14 MODPREFIX = 'Mlte'                      # The prefix for module-wide routines
     15 INPUTFILE = string.lower(MODPREFIX) + 'gen.py' # The file generated by the scanner
     16 OUTPUTFILE = MODNAME + "module.c"       # The file generated by this program
     17 
     18 from macsupport import *
     19 
     20 # Create the type objects
     21 
     22 includestuff = includestuff + """
     23 #include <Carbon/Carbon.h>
     24 
     25 /* For now we declare them forward here. They'll go to mactoolbox later */
     26 static PyObject *TXNObj_New(TXNObject);
     27 static int TXNObj_Convert(PyObject *, TXNObject *);
     28 static PyObject *TXNFontMenuObj_New(TXNFontMenuObject);
     29 static int TXNFontMenuObj_Convert(PyObject *, TXNFontMenuObject *);
     30 
     31 // ADD declarations
     32 #ifdef NOTYET_USE_TOOLBOX_OBJECT_GLUE
     33 //extern PyObject *_CFTypeRefObj_New(CFTypeRef);
     34 //extern int _CFTypeRefObj_Convert(PyObject *, CFTypeRef *);
     35 
     36 //#define CFTypeRefObj_New _CFTypeRefObj_New
     37 //#define CFTypeRefObj_Convert _CFTypeRefObj_Convert
     38 #endif
     39 
     40 /*
     41 ** Parse an optional fsspec
     42 */
     43 static int
     44 OptFSSpecPtr_Convert(PyObject *v, FSSpec **p_itself)
     45 {
     46         static FSSpec fss;
     47         if (v == Py_None)
     48         {
     49                 *p_itself = NULL;
     50                 return 1;
     51         }
     52         *p_itself = &fss;
     53         return PyMac_GetFSSpec(v, *p_itself);
     54 }
     55 
     56 /*
     57 ** Parse an optional rect
     58 */
     59 static int
     60 OptRectPtr_Convert(PyObject *v, Rect **p_itself)
     61 {
     62         static Rect r;
     63 
     64         if (v == Py_None)
     65         {
     66                 *p_itself = NULL;
     67                 return 1;
     68         }
     69         *p_itself = &r;
     70         return PyMac_GetRect(v, *p_itself);
     71 }
     72 
     73 /*
     74 ** Parse an optional GWorld
     75 */
     76 static int
     77 OptGWorldObj_Convert(PyObject *v, GWorldPtr *p_itself)
     78 {
     79         if (v == Py_None)
     80         {
     81                 *p_itself = NULL;
     82                 return 1;
     83         }
     84         return GWorldObj_Convert(v, p_itself);
     85 }
     86 
     87 """
     88 
     89 initstuff = initstuff + """
     90 //      PyMac_INIT_TOOLBOX_OBJECT_NEW(xxxx);
     91 """
     92 TXNObject = OpaqueByValueType("TXNObject", "TXNObj")
     93 TXNFontMenuObject = OpaqueByValueType("TXNFontMenuObject", "TXNFontMenuObj")
     94 
     95 TXNFrameID = Type("TXNFrameID", "l")
     96 TXNVersionValue = Type("TXNVersionValue", "l")
     97 TXNFeatureBits = Type("TXNFeatureBits", "l")
     98 TXNInitOptions = Type("TXNInitOptions", "l")
     99 TXNFrameOptions = Type("TXNFrameOptions", "l")
    100 TXNContinuousFlags = Type("TXNContinuousFlags", "l")
    101 TXNMatchOptions = Type("TXNMatchOptions", "l")
    102 TXNFileType = OSTypeType("TXNFileType")
    103 TXNFrameType = Type("TXNFrameType", "l")
    104 TXNDataType = OSTypeType("TXNDataType")
    105 TXNControlTag = OSTypeType("TXNControlTag")
    106 TXNActionKey = Type("TXNActionKey", "l")
    107 TXNTabType = Type("TXNTabType", "b")
    108 TXNScrollBarState = Type("TXNScrollBarState", "l")
    109 TXNOffset = Type("TXNOffset", "l")
    110 TXNObjectRefcon = FakeType("(TXNObjectRefcon)0") # XXXX For now...
    111 TXNErrors = OSErrType("TXNErrors", "l")
    112 TXNTypeRunAttributes = OSTypeType("TXNTypeRunAttributes")
    113 TXNTypeRunAttributeSizes = Type("TXNTypeRunAttributeSizes", "l")
    114 TXNPermanentTextEncodingType = Type("TXNPermanentTextEncodingType", "l")
    115 TXTNTag = OSTypeType("TXTNTag")
    116 TXNBackgroundType = Type("TXNBackgroundType", "l")
    117 DragReference = OpaqueByValueType("DragReference", "DragObj")
    118 DragTrackingMessage = Type("DragTrackingMessage", "h")
    119 RgnHandle = OpaqueByValueType("RgnHandle", "ResObj")
    120 OptRgnHandle = OpaqueByValueType("RgnHandle", "OptResObj")
    121 GWorldPtr = OpaqueByValueType("GWorldPtr", "GWorldObj")
    122 OptGWorldPtr = OpaqueByValueType("GWorldPtr", "OptGWorldObj")
    123 MlteInBuffer = VarInputBufferType('void *', 'ByteCount', 'l')
    124 
    125 OptFSSpecPtr = OpaqueByValueType("FSSpec *", "OptFSSpecPtr")
    126 OptRectPtr = OpaqueByValueType("Rect *", "OptRectPtr")
    127 
    128 UniChar = Type("UniChar", "h") # XXXX For now...
    129 # ADD object type here
    130 
    131 execfile("mltetypetest.py")
    132 
    133 # Our (opaque) objects
    134 
    135 class TXNObjDefinition(PEP253Mixin, GlobalObjectDefinition):
    136     def outputCheckNewArg(self):
    137         Output("if (itself == NULL) return PyMac_Error(resNotFound);")
    138 
    139 class TXNFontMenuObjDefinition(PEP253Mixin, GlobalObjectDefinition):
    140     def outputCheckNewArg(self):
    141         Output("if (itself == NULL) return PyMac_Error(resNotFound);")
    142 
    143 
    144 # ADD object class here
    145 
    146 # From here on it's basically all boiler plate...
    147 
    148 # Create the generator groups and link them
    149 module = MacModule(MODNAME, MODPREFIX, includestuff, finalstuff, initstuff)
    150 TXNObject_object = TXNObjDefinition("TXNObject", "TXNObj", "TXNObject")
    151 TXNFontMenuObject_object = TXNFontMenuObjDefinition("TXNFontMenuObject", "TXNFontMenuObj", "TXNFontMenuObject")
    152 
    153 # ADD object here
    154 
    155 module.addobject(TXNObject_object)
    156 module.addobject(TXNFontMenuObject_object)
    157 # ADD addobject call here
    158 
    159 # Create the generator classes used to populate the lists
    160 Function = OSErrWeakLinkFunctionGenerator
    161 Method = OSErrWeakLinkMethodGenerator
    162 
    163 # Create and populate the lists
    164 functions = []
    165 TXNObject_methods = []
    166 TXNFontMenuObject_methods = []
    167 
    168 # ADD _methods initializer here
    169 execfile(INPUTFILE)
    170 
    171 
    172 # add the populated lists to the generator groups
    173 # (in a different wordl the scan program would generate this)
    174 for f in functions: module.add(f)
    175 for f in TXNObject_methods: TXNObject_object.add(f)
    176 for f in TXNFontMenuObject_methods: TXNFontMenuObject_object.add(f)
    177 
    178 # ADD Manual generators here
    179 inittextension_body = """
    180 OSStatus _err;
    181 TXNMacOSPreferredFontDescription * iDefaultFonts = NULL;
    182 ItemCount iCountDefaultFonts = 0;
    183 TXNInitOptions iUsageFlags;
    184 PyMac_PRECHECK(TXNInitTextension);
    185 if (!PyArg_ParseTuple(_args, "l", &iUsageFlags))
    186         return NULL;
    187 _err = TXNInitTextension(iDefaultFonts,
    188                          iCountDefaultFonts,
    189                          iUsageFlags);
    190 if (_err != noErr) return PyMac_Error(_err);
    191 Py_INCREF(Py_None);
    192 _res = Py_None;
    193 return _res;
    194 """
    195 
    196 f = ManualGenerator("TXNInitTextension", inittextension_body);
    197 f.docstring = lambda: "(TXNInitOptions) -> None"
    198 module.add(f)
    199 
    200 # generate output (open the output file as late as possible)
    201 SetOutputFileName(OUTPUTFILE)
    202 module.generate()
    203