annotate Mac/Modules/cm/cmsupport.py @ 4566:6403c94de50d legacy-trunk

Added safeguard against failure in __del__.
author Guido van Rossum <guido@python.org>
date Wed, 27 Nov 1996 19:39:58 +0000
parents 6a18c4cb68d8
children c9a4a1316170
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3282
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
1 # This script generates a Python interface for an Apple Macintosh Manager.
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
2 # It uses the "bgen" package to generate C code.
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
3 # The function specifications are generated by scanning the mamager's header file,
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
4 # using the "scantools" package (customized for this particular manager).
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
5
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
6 import string
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
7
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
8 # Declarations that change for each manager
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
9 MACHEADERFILE = 'Components.h' # The Apple header file
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
10 MODNAME = 'Cm' # The name of the module
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
11
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
12 # The following is *usually* unchanged but may still require tuning
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
13 MODPREFIX = MODNAME # The prefix for module-wide routines
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
14 C_OBJECTPREFIX = 'CmpObj' # The prefix for object methods
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
15 CI_OBJECTPREFIX = 'CmpInstObj'
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
16 INPUTFILE = string.lower(MODPREFIX) + 'gen.py' # The file generated by the scanner
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
17 OUTPUTFILE = MODNAME + "module.c" # The file generated by this program
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
18
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
19 from macsupport import *
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
20
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
21 # Create the type objects
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
22
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
23 includestuff = includestuff + """
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
24 #include <%s>""" % MACHEADERFILE + """
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
25
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
26 /*
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
27 ** Parse/generate ComponentDescriptor records
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
28 */
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
29 PyObject *CmpDesc_New(itself)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
30 ComponentDescription *itself;
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
31 {
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
32
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
33 return Py_BuildValue("O&O&O&ll",
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
34 PyMac_BuildOSType, itself->componentType,
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
35 PyMac_BuildOSType, itself->componentSubType,
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
36 PyMac_BuildOSType, itself->componentManufacturer,
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
37 itself->componentFlags, itself->componentFlagsMask);
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
38 }
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
39
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
40 CmpDesc_Convert(v, p_itself)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
41 PyObject *v;
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
42 ComponentDescription *p_itself;
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
43 {
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
44 return PyArg_ParseTuple(v, "O&O&O&ll",
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
45 PyMac_GetOSType, &p_itself->componentType,
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
46 PyMac_GetOSType, &p_itself->componentSubType,
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
47 PyMac_GetOSType, &p_itself->componentManufacturer,
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
48 &p_itself->componentFlags, &p_itself->componentFlagsMask);
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
49 }
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
50
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
51 """
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
52
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
53 ComponentDescription = OpaqueType('ComponentDescription', 'CmpDesc')
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
54 Component = OpaqueByValueType('Component', C_OBJECTPREFIX)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
55 ComponentInstance = OpaqueByValueType('ComponentInstance', CI_OBJECTPREFIX)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
56 ComponentResult = Type("ComponentResult", "l")
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
57
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
58 ComponentResourceHandle = OpaqueByValueType("ComponentResourceHandle", "ResObj")
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
59
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
60 class MyCIObjectDefinition(GlobalObjectDefinition):
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
61 def outputCheckNewArg(self):
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
62 Output("""if (itself == NULL) {
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
63 PyErr_SetString(Cm_Error,"NULL ComponentInstance");
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
64 return NULL;
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
65 }""")
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
66
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
67 class MyCObjectDefinition(GlobalObjectDefinition):
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
68 def outputCheckNewArg(self):
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
69 Output("""if (itself == NULL) {
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
70 /* XXXX Or should we return None? */
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
71 PyErr_SetString(Cm_Error,"No such component");
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
72 return NULL;
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
73 }""")
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
74
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
75 def outputCheckConvertArg(self):
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
76 Output("""if ( v == Py_None ) {
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
77 *p_itself = 0;
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
78 return 1;
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
79 }""")
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
80
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
81 # Create the generator groups and link them
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
82 module = MacModule(MODNAME, MODPREFIX, includestuff, finalstuff, initstuff)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
83 ci_object = MyCIObjectDefinition('ComponentInstance', CI_OBJECTPREFIX,
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
84 'ComponentInstance')
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
85 c_object = MyCObjectDefinition('Component', C_OBJECTPREFIX, 'Component')
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
86 module.addobject(ci_object)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
87 module.addobject(c_object)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
88
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
89 # Create the generator classes used to populate the lists
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
90 Function = OSErrFunctionGenerator
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
91 Method = OSErrMethodGenerator
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
92
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
93 # Create and populate the lists
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
94 functions = []
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
95 c_methods = []
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
96 ci_methods = []
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
97 execfile(INPUTFILE)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
98
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
99 # add the populated lists to the generator groups
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
100 # (in a different wordl the scan program would generate this)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
101 for f in functions: module.add(f)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
102 for f in c_methods: c_object.add(f)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
103 for f in ci_methods: ci_object.add(f)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
104
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
105 # generate output (open the output file as late as possible)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
106 SetOutputFileName(OUTPUTFILE)
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
107 module.generate()
6a18c4cb68d8 Component mgr support
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
108