Mercurial > cpython-lru_cache-weakref

annotate Mac/Modules/ah/_AHmodule.c @ 80661:94de77bd0b4b 2.7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Issue #16194: document imp.load_dynamic problems when read several extension modules from the same binary object file.
author Andrew Svetlov <andrew.svetlov@gmail.com>
date Thu, 29 Nov 2012 19:51:28 +0200
parents fd25030223b0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
24973
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
1
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
2 /* =========================== Module _AH =========================== */
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
3
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
4 #include "Python.h"
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
5
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
6
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
7
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
8 #include "pymactoolbox.h"
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
9
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
10 /* Macro to test whether a weak-loaded CFM function exists */
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
11 #define PyMac_PRECHECK(rtn) do { if ( &rtn == NULL ) {\
61463
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
12 PyErr_SetString(PyExc_NotImplementedError, \
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
13 "Not available in this shared library/OS version"); \
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
14 return NULL; \
24973
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
15 }} while(0)
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
16
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
17
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
18 #include <Carbon/Carbon.h>
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
19
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
20
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
21 static PyObject *Ah_Error;
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
22
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
23 static PyObject *Ah_AHSearch(PyObject *_self, PyObject *_args)
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
24 {
61463
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
25 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
26 OSStatus _err;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
27 CFStringRef bookname;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
28 CFStringRef query;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
29 if (!PyArg_ParseTuple(_args, "O&O&",
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
30 CFStringRefObj_Convert, &bookname,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
31 CFStringRefObj_Convert, &query))
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
32 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
33 _err = AHSearch(bookname,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
34 query);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
35 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
36 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
37 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
38 return _res;
24973
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
39 }
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
40
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
41 static PyObject *Ah_AHGotoMainTOC(PyObject *_self, PyObject *_args)
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
42 {
61463
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
43 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
44 OSStatus _err;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
45 AHTOCType toctype;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
46 if (!PyArg_ParseTuple(_args, "h",
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
47 &toctype))
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
48 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
49 _err = AHGotoMainTOC(toctype);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
50 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
51 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
52 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
53 return _res;
24973
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
54 }
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
55
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
56 static PyObject *Ah_AHGotoPage(PyObject *_self, PyObject *_args)
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
57 {
61463
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
58 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
59 OSStatus _err;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
60 CFStringRef bookname;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
61 CFStringRef path;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
62 CFStringRef anchor;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
63 if (!PyArg_ParseTuple(_args, "O&O&O&",
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
64 CFStringRefObj_Convert, &bookname,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
65 CFStringRefObj_Convert, &path,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
66 CFStringRefObj_Convert, &anchor))
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
67 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
68 _err = AHGotoPage(bookname,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
69 path,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
70 anchor);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
71 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
72 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
73 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
74 return _res;
24973
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
75 }
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
76
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
77 static PyObject *Ah_AHLookupAnchor(PyObject *_self, PyObject *_args)
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
78 {
61463
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
79 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
80 OSStatus _err;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
81 CFStringRef bookname;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
82 CFStringRef anchor;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
83 if (!PyArg_ParseTuple(_args, "O&O&",
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
84 CFStringRefObj_Convert, &bookname,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
85 CFStringRefObj_Convert, &anchor))
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
86 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
87 _err = AHLookupAnchor(bookname,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
88 anchor);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
89 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
90 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
91 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
92 return _res;
24973
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
93 }
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
94
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
95 static PyObject *Ah_AHRegisterHelpBook(PyObject *_self, PyObject *_args)
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
96 {
61463
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
97 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
98 OSStatus _err;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
99 FSRef appBundleRef;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
100 if (!PyArg_ParseTuple(_args, "O&",
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
101 PyMac_GetFSRef, &appBundleRef))
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
102 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
103 _err = AHRegisterHelpBook(&appBundleRef);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
104 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
105 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
106 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
107 return _res;
24973
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
108 }
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
109
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
110 static PyMethodDef Ah_methods[] = {
61463
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
111 {"AHSearch", (PyCFunction)Ah_AHSearch, 1,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
112 PyDoc_STR("(CFStringRef bookname, CFStringRef query) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
113 {"AHGotoMainTOC", (PyCFunction)Ah_AHGotoMainTOC, 1,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
114 PyDoc_STR("(AHTOCType toctype) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
115 {"AHGotoPage", (PyCFunction)Ah_AHGotoPage, 1,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
116 PyDoc_STR("(CFStringRef bookname, CFStringRef path, CFStringRef anchor) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
117 {"AHLookupAnchor", (PyCFunction)Ah_AHLookupAnchor, 1,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
118 PyDoc_STR("(CFStringRef bookname, CFStringRef anchor) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
119 {"AHRegisterHelpBook", (PyCFunction)Ah_AHRegisterHelpBook, 1,
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
120 PyDoc_STR("(FSRef appBundleRef) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
121 {NULL, NULL, 0}
24973
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
122 };
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
123
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
124
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
125
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
126
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
127 void init_AH(void)
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
128 {
61463
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
129 PyObject *m;
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
130 PyObject *d;
24973
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
131
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
132
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
133
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
134
61463
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
135 m = Py_InitModule("_AH", Ah_methods);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
136 d = PyModule_GetDict(m);
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
137 Ah_Error = PyMac_GetOSErrException();
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
138 if (Ah_Error == NULL ||
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
139 PyDict_SetItemString(d, "Error", Ah_Error) != 0)
fd25030223b0 Untabify C files. Will watch buildbots.
Antoine Pitrou <solipsis@pitrou.net>
parents: 30982
diff changeset
140 return;
24973
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
141 }
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
142
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
143 /* ========================= End module _AH ========================= */
668eead13a7c Interface to Apple Help Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
144