Mercurial > cpython-lru_cache-weakref
annotate Mac/Modules/snd/_Sndmodule.c @ 54294:dba767bc3155 legacy-trunk
remove mention of old ctypes version
| author | Benjamin Peterson <benjamin@python.org> |
|---|---|
| date | Sat, 23 May 2009 20:59:09 +0000 |
| parents | 798a16abf546 |
| children | fd25030223b0 |
| rev | line source |
|---|---|
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
2 /* ========================== Module _Snd =========================== */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
3 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
4 #include "Python.h" |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
5 |
|
47473
c34e34057714
MacOS X: Enable 4-way universal builds
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
35200
diff
changeset
|
6 #ifndef __LP64__ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
7 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
8 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
9 #include "pymactoolbox.h" |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
10 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
11 /* Macro to test whether a weak-loaded CFM function exists */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
12 #define PyMac_PRECHECK(rtn) do { if ( &rtn == NULL ) {\ |
|
30973
53e4b7fe0969
Getting rid of WITHOUT_FRAMEWORKS and ACCESSOR_CALLS_ARE_FUNCTIONS:
Jack Jansen <jack.jansen@cwi.nl>
parents:
29995
diff
changeset
|
13 PyErr_SetString(PyExc_NotImplementedError, \ |
|
53e4b7fe0969
Getting rid of WITHOUT_FRAMEWORKS and ACCESSOR_CALLS_ARE_FUNCTIONS:
Jack Jansen <jack.jansen@cwi.nl>
parents:
29995
diff
changeset
|
14 "Not available in this shared library/OS version"); \ |
|
53e4b7fe0969
Getting rid of WITHOUT_FRAMEWORKS and ACCESSOR_CALLS_ARE_FUNCTIONS:
Jack Jansen <jack.jansen@cwi.nl>
parents:
29995
diff
changeset
|
15 return NULL; \ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
16 }} while(0) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
17 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
18 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
19 #include <Carbon/Carbon.h> |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
20 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
21 /* Convert a SndCommand argument */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
22 static int |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
23 SndCmd_Convert(PyObject *v, SndCommand *pc) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
24 { |
|
35200
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
25 int len; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
26 pc->param1 = 0; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
27 pc->param2 = 0; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
28 if (PyTuple_Check(v)) { |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
29 if (PyArg_ParseTuple(v, "h|hl", &pc->cmd, &pc->param1, &pc->param2)) |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
30 return 1; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
31 PyErr_Clear(); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
32 return PyArg_ParseTuple(v, "Hhs#", &pc->cmd, &pc->param1, &pc->param2, &len); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
33 } |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
34 return PyArg_Parse(v, "H", &pc->cmd); |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
35 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
36 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
37 static pascal void SndCh_UserRoutine(SndChannelPtr chan, SndCommand *cmd); /* Forward */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
38 static pascal void SPB_completion(SPBPtr my_spb); /* Forward */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
39 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
40 static PyObject *Snd_Error; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
41 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
42 /* --------------------- Object type SndChannel --------------------- */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
43 |
|
24280
1598a1e473e2
staticforward bites the dust.
Jeremy Hylton <jeremy@alum.mit.edu>
parents:
23261
diff
changeset
|
44 static PyTypeObject SndChannel_Type; |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
45 |
|
26720
a12e1727850a
Regenerated with inheritance-aware xxxx_Check() macros.
Jack Jansen <jack.jansen@cwi.nl>
parents:
26610
diff
changeset
|
46 #define SndCh_Check(x) ((x)->ob_type == &SndChannel_Type || PyObject_TypeCheck((x), &SndChannel_Type)) |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
47 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
48 typedef struct SndChannelObject { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
49 PyObject_HEAD |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
50 SndChannelPtr ob_itself; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
51 /* Members used to implement callbacks: */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
52 PyObject *ob_callback; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
53 long ob_A5; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
54 SndCommand ob_cmd; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
55 } SndChannelObject; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
56 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
57 static PyObject *SndCh_New(SndChannelPtr itself) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
58 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
59 SndChannelObject *it; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
60 it = PyObject_NEW(SndChannelObject, &SndChannel_Type); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
61 if (it == NULL) return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
62 it->ob_itself = itself; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
63 it->ob_callback = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
64 it->ob_A5 = SetCurrentA5(); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
65 return (PyObject *)it; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
66 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
67 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
68 static void SndCh_dealloc(SndChannelObject *self) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
69 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
70 SndDisposeChannel(self->ob_itself, 1); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
71 Py_XDECREF(self->ob_callback); |
|
26769
aef3a03a79f1
- Various tweaks to shut up compiler warnings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
26720
diff
changeset
|
72 PyObject_Free((PyObject *)self); |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
73 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
74 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
75 static PyObject *SndCh_SndDoCommand(SndChannelObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
76 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
77 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
78 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
79 SndCommand cmd; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
80 Boolean noWait; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
81 if (!PyArg_ParseTuple(_args, "O&b", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
82 SndCmd_Convert, &cmd, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
83 &noWait)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
84 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
85 _err = SndDoCommand(_self->ob_itself, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
86 &cmd, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
87 noWait); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
88 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
89 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
90 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
91 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
92 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
93 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
94 static PyObject *SndCh_SndDoImmediate(SndChannelObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
95 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
96 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
97 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
98 SndCommand cmd; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
99 if (!PyArg_ParseTuple(_args, "O&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
100 SndCmd_Convert, &cmd)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
101 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
102 _err = SndDoImmediate(_self->ob_itself, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
103 &cmd); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
104 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
105 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
106 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
107 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
108 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
109 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
110 static PyObject *SndCh_SndPlay(SndChannelObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
111 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
112 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
113 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
114 SndListHandle sndHandle; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
115 Boolean async; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
116 if (!PyArg_ParseTuple(_args, "O&b", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
117 ResObj_Convert, &sndHandle, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
118 &async)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
119 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
120 _err = SndPlay(_self->ob_itself, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
121 sndHandle, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
122 async); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
123 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
124 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
125 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
126 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
127 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
128 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
129 static PyObject *SndCh_SndChannelStatus(SndChannelObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
130 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
131 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
132 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
133 short theLength; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
134 SCStatus theStatus__out__; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
135 if (!PyArg_ParseTuple(_args, "h", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
136 &theLength)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
137 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
138 _err = SndChannelStatus(_self->ob_itself, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
139 theLength, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
140 &theStatus__out__); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
141 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
142 _res = Py_BuildValue("s#", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
143 (char *)&theStatus__out__, (int)sizeof(SCStatus)); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
144 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
145 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
146 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
147 static PyObject *SndCh_SndGetInfo(SndChannelObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
148 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
149 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
150 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
151 OSType selector; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
152 void * infoPtr; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
153 if (!PyArg_ParseTuple(_args, "O&w", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
154 PyMac_GetOSType, &selector, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
155 &infoPtr)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
156 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
157 _err = SndGetInfo(_self->ob_itself, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
158 selector, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
159 infoPtr); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
160 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
161 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
162 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
163 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
164 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
165 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
166 static PyObject *SndCh_SndSetInfo(SndChannelObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
167 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
168 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
169 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
170 OSType selector; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
171 void * infoPtr; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
172 if (!PyArg_ParseTuple(_args, "O&w", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
173 PyMac_GetOSType, &selector, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
174 &infoPtr)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
175 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
176 _err = SndSetInfo(_self->ob_itself, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
177 selector, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
178 infoPtr); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
179 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
180 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
181 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
182 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
183 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
184 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
185 static PyMethodDef SndCh_methods[] = { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
186 {"SndDoCommand", (PyCFunction)SndCh_SndDoCommand, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
187 PyDoc_STR("(SndCommand cmd, Boolean noWait) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
188 {"SndDoImmediate", (PyCFunction)SndCh_SndDoImmediate, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
189 PyDoc_STR("(SndCommand cmd) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
190 {"SndPlay", (PyCFunction)SndCh_SndPlay, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
191 PyDoc_STR("(SndListHandle sndHandle, Boolean async) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
192 {"SndChannelStatus", (PyCFunction)SndCh_SndChannelStatus, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
193 PyDoc_STR("(short theLength) -> (SCStatus theStatus)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
194 {"SndGetInfo", (PyCFunction)SndCh_SndGetInfo, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
195 PyDoc_STR("(OSType selector, void * infoPtr) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
196 {"SndSetInfo", (PyCFunction)SndCh_SndSetInfo, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
197 PyDoc_STR("(OSType selector, void * infoPtr) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
198 {NULL, NULL, 0} |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
199 }; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
200 |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
201 #define SndCh_getsetlist NULL |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
202 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
203 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
204 #define SndCh_compare NULL |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
205 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
206 #define SndCh_repr NULL |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
207 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
208 #define SndCh_hash NULL |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
209 |
|
24280
1598a1e473e2
staticforward bites the dust.
Jeremy Hylton <jeremy@alum.mit.edu>
parents:
23261
diff
changeset
|
210 static PyTypeObject SndChannel_Type = { |
|
21113
ed3dce17fc79
Merged changes made on r22b2-branch between r22b2 and r22b2-mac (the
Jack Jansen <jack.jansen@cwi.nl>
parents:
19723
diff
changeset
|
211 PyObject_HEAD_INIT(NULL) |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
212 0, /*ob_size*/ |
|
21313
91dd223829c6
Patch supplied by Burton Radons for his own SF bug #487390: Modifying
Guido van Rossum <guido@python.org>
parents:
21113
diff
changeset
|
213 "_Snd.SndChannel", /*tp_name*/ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
214 sizeof(SndChannelObject), /*tp_basicsize*/ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
215 0, /*tp_itemsize*/ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
216 /* methods */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
217 (destructor) SndCh_dealloc, /*tp_dealloc*/ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
218 0, /*tp_print*/ |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
219 (getattrfunc)0, /*tp_getattr*/ |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
220 (setattrfunc)0, /*tp_setattr*/ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
221 (cmpfunc) SndCh_compare, /*tp_compare*/ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
222 (reprfunc) SndCh_repr, /*tp_repr*/ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
223 (PyNumberMethods *)0, /* tp_as_number */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
224 (PySequenceMethods *)0, /* tp_as_sequence */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
225 (PyMappingMethods *)0, /* tp_as_mapping */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
226 (hashfunc) SndCh_hash, /*tp_hash*/ |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
227 0, /*tp_call*/ |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
228 0, /*tp_str*/ |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
229 PyObject_GenericGetAttr, /*tp_getattro*/ |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
230 PyObject_GenericSetAttr, /*tp_setattro */ |
|
26524
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
231 0, /*tp_as_buffer*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
232 Py_TPFLAGS_DEFAULT, /* tp_flags */ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
233 0, /*tp_doc*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
234 0, /*tp_traverse*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
235 0, /*tp_clear*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
236 0, /*tp_richcompare*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
237 0, /*tp_weaklistoffset*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
238 0, /*tp_iter*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
239 0, /*tp_iternext*/ |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
240 SndCh_methods, /* tp_methods */ |
|
26524
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
241 0, /*tp_members*/ |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
242 SndCh_getsetlist, /*tp_getset*/ |
|
26524
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
243 0, /*tp_base*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
244 0, /*tp_dict*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
245 0, /*tp_descr_get*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
246 0, /*tp_descr_set*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
247 0, /*tp_dictoffset*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
248 0, /*tp_init*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
249 0, /*tp_alloc*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
250 0, /*tp_new*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
251 0, /*tp_free*/ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
252 }; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
253 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
254 /* ------------------- End object type SndChannel ------------------- */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
255 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
256 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
257 /* ------------------------ Object type SPB ------------------------- */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
258 |
|
24280
1598a1e473e2
staticforward bites the dust.
Jeremy Hylton <jeremy@alum.mit.edu>
parents:
23261
diff
changeset
|
259 static PyTypeObject SPB_Type; |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
260 |
|
26720
a12e1727850a
Regenerated with inheritance-aware xxxx_Check() macros.
Jack Jansen <jack.jansen@cwi.nl>
parents:
26610
diff
changeset
|
261 #define SPBObj_Check(x) ((x)->ob_type == &SPB_Type || PyObject_TypeCheck((x), &SPB_Type)) |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
262 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
263 typedef struct SPBObject { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
264 PyObject_HEAD |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
265 /* Members used to implement callbacks: */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
266 PyObject *ob_completion; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
267 PyObject *ob_interrupt; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
268 PyObject *ob_thiscallback; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
269 long ob_A5; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
270 SPB ob_spb; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
271 } SPBObject; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
272 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
273 static PyObject *SPBObj_New(void) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
274 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
275 SPBObject *it; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
276 it = PyObject_NEW(SPBObject, &SPB_Type); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
277 if (it == NULL) return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
278 it->ob_completion = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
279 it->ob_interrupt = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
280 it->ob_thiscallback = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
281 it->ob_A5 = SetCurrentA5(); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
282 memset((char *)&it->ob_spb, 0, sizeof(it->ob_spb)); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
283 it->ob_spb.userLong = (long)it; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
284 return (PyObject *)it; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
285 } |
|
19723
2a9bbdbefbb1
Shut up many more gcc warnings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
19708
diff
changeset
|
286 static int SPBObj_Convert(PyObject *v, SPBPtr *p_itself) |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
287 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
288 if (!SPBObj_Check(v)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
289 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
290 PyErr_SetString(PyExc_TypeError, "SPB required"); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
291 return 0; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
292 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
293 *p_itself = &((SPBObject *)v)->ob_spb; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
294 return 1; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
295 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
296 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
297 static void SPBObj_dealloc(SPBObject *self) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
298 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
299 /* Cleanup of self->ob_itself goes here */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
300 self->ob_spb.userLong = 0; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
301 self->ob_thiscallback = 0; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
302 Py_XDECREF(self->ob_completion); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
303 Py_XDECREF(self->ob_interrupt); |
|
26769
aef3a03a79f1
- Various tweaks to shut up compiler warnings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
26720
diff
changeset
|
304 PyObject_Free((PyObject *)self); |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
305 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
306 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
307 static PyMethodDef SPBObj_methods[] = { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
308 {NULL, NULL, 0} |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
309 }; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
310 |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
311 static PyObject *SPBObj_get_inRefNum(SPBObject *self, void *closure) |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
312 { |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
313 return Py_BuildValue("l", self->ob_spb.inRefNum); |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
314 } |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
315 |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
316 static int SPBObj_set_inRefNum(SPBObject *self, PyObject *v, void *closure) |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
317 { |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
318 return -1 + PyArg_Parse(v, "l", &self->ob_spb.inRefNum); |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
319 return 0; |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
320 } |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
321 |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
322 static PyObject *SPBObj_get_count(SPBObject *self, void *closure) |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
323 { |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
324 return Py_BuildValue("l", self->ob_spb.count); |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
325 } |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
326 |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
327 static int SPBObj_set_count(SPBObject *self, PyObject *v, void *closure) |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
328 { |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
329 return -1 + PyArg_Parse(v, "l", &self->ob_spb.count); |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
330 return 0; |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
331 } |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
332 |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
333 static PyObject *SPBObj_get_milliseconds(SPBObject *self, void *closure) |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
334 { |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
335 return Py_BuildValue("l", self->ob_spb.milliseconds); |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
336 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
337 |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
338 static int SPBObj_set_milliseconds(SPBObject *self, PyObject *v, void *closure) |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
339 { |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
340 return -1 + PyArg_Parse(v, "l", &self->ob_spb.milliseconds); |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
341 return 0; |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
342 } |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
343 |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
344 static PyObject *SPBObj_get_error(SPBObject *self, void *closure) |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
345 { |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
346 return Py_BuildValue("h", self->ob_spb.error); |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
347 } |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
348 |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
349 #define SPBObj_set_error NULL |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
350 |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
351 #define SPBObj_get_completionRoutine NULL |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
352 |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
353 static int SPBObj_set_completionRoutine(SPBObject *self, PyObject *v, void *closure) |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
354 { |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
355 self->ob_spb.completionRoutine = NewSICompletionUPP(SPB_completion); |
|
35200
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
356 self->ob_completion = v; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
357 Py_INCREF(v); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
358 return 0; |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
359 return 0; |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
360 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
361 |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
362 static PyGetSetDef SPBObj_getsetlist[] = { |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
363 {"inRefNum", (getter)SPBObj_get_inRefNum, (setter)SPBObj_set_inRefNum, NULL}, |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
364 {"count", (getter)SPBObj_get_count, (setter)SPBObj_set_count, NULL}, |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
365 {"milliseconds", (getter)SPBObj_get_milliseconds, (setter)SPBObj_set_milliseconds, NULL}, |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
366 {"error", (getter)SPBObj_get_error, (setter)SPBObj_set_error, NULL}, |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
367 {"completionRoutine", (getter)SPBObj_get_completionRoutine, (setter)SPBObj_set_completionRoutine, NULL}, |
|
26524
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
368 {NULL, NULL, NULL, NULL}, |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
369 }; |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
370 |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
371 |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
372 #define SPBObj_compare NULL |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
373 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
374 #define SPBObj_repr NULL |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
375 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
376 #define SPBObj_hash NULL |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
377 |
|
24280
1598a1e473e2
staticforward bites the dust.
Jeremy Hylton <jeremy@alum.mit.edu>
parents:
23261
diff
changeset
|
378 static PyTypeObject SPB_Type = { |
|
21113
ed3dce17fc79
Merged changes made on r22b2-branch between r22b2 and r22b2-mac (the
Jack Jansen <jack.jansen@cwi.nl>
parents:
19723
diff
changeset
|
379 PyObject_HEAD_INIT(NULL) |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
380 0, /*ob_size*/ |
|
21313
91dd223829c6
Patch supplied by Burton Radons for his own SF bug #487390: Modifying
Guido van Rossum <guido@python.org>
parents:
21113
diff
changeset
|
381 "_Snd.SPB", /*tp_name*/ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
382 sizeof(SPBObject), /*tp_basicsize*/ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
383 0, /*tp_itemsize*/ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
384 /* methods */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
385 (destructor) SPBObj_dealloc, /*tp_dealloc*/ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
386 0, /*tp_print*/ |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
387 (getattrfunc)0, /*tp_getattr*/ |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
388 (setattrfunc)0, /*tp_setattr*/ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
389 (cmpfunc) SPBObj_compare, /*tp_compare*/ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
390 (reprfunc) SPBObj_repr, /*tp_repr*/ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
391 (PyNumberMethods *)0, /* tp_as_number */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
392 (PySequenceMethods *)0, /* tp_as_sequence */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
393 (PyMappingMethods *)0, /* tp_as_mapping */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
394 (hashfunc) SPBObj_hash, /*tp_hash*/ |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
395 0, /*tp_call*/ |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
396 0, /*tp_str*/ |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
397 PyObject_GenericGetAttr, /*tp_getattro*/ |
|
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
398 PyObject_GenericSetAttr, /*tp_setattro */ |
|
26524
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
399 0, /*tp_as_buffer*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
400 Py_TPFLAGS_DEFAULT, /* tp_flags */ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
401 0, /*tp_doc*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
402 0, /*tp_traverse*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
403 0, /*tp_clear*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
404 0, /*tp_richcompare*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
405 0, /*tp_weaklistoffset*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
406 0, /*tp_iter*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
407 0, /*tp_iternext*/ |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
408 SPBObj_methods, /* tp_methods */ |
|
26524
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
409 0, /*tp_members*/ |
|
26464
14fc187334c5
Converted the Carbon modules to use PEP252-style objects, with
Jack Jansen <jack.jansen@cwi.nl>
parents:
24865
diff
changeset
|
410 SPBObj_getsetlist, /*tp_getset*/ |
|
26524
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
411 0, /*tp_base*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
412 0, /*tp_dict*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
413 0, /*tp_descr_get*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
414 0, /*tp_descr_set*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
415 0, /*tp_dictoffset*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
416 0, /*tp_init*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
417 0, /*tp_alloc*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
418 0, /*tp_new*/ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
419 0, /*tp_free*/ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
420 }; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
421 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
422 /* ---------------------- End object type SPB ----------------------- */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
423 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
424 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
425 static PyObject *Snd_SPB(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
426 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
427 PyObject *_res = NULL; |
|
19723
2a9bbdbefbb1
Shut up many more gcc warnings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
19708
diff
changeset
|
428 _res = SPBObj_New(); return _res; |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
429 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
430 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
431 static PyObject *Snd_SysBeep(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
432 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
433 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
434 short duration; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
435 if (!PyArg_ParseTuple(_args, "h", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
436 &duration)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
437 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
438 SysBeep(duration); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
439 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
440 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
441 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
442 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
443 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
444 static PyObject *Snd_SndNewChannel(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
445 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
446 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
447 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
448 SndChannelPtr chan = 0; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
449 short synth; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
450 long init; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
451 PyObject* userRoutine; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
452 if (!PyArg_ParseTuple(_args, "hlO", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
453 &synth, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
454 &init, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
455 &userRoutine)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
456 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
457 if (userRoutine != Py_None && !PyCallable_Check(userRoutine)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
458 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
459 PyErr_SetString(PyExc_TypeError, "callback must be callable"); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
460 goto userRoutine__error__; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
461 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
462 _err = SndNewChannel(&chan, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
463 synth, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
464 init, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
465 NewSndCallBackUPP(SndCh_UserRoutine)); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
466 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
467 _res = Py_BuildValue("O&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
468 SndCh_New, chan); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
469 if (_res != NULL && userRoutine != Py_None) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
470 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
471 SndChannelObject *p = (SndChannelObject *)_res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
472 p->ob_itself->userInfo = (long)p; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
473 Py_INCREF(userRoutine); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
474 p->ob_callback = userRoutine; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
475 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
476 userRoutine__error__: ; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
477 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
478 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
479 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
480 static PyObject *Snd_SndSoundManagerVersion(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
481 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
482 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
483 NumVersion _rv; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
484 if (!PyArg_ParseTuple(_args, "")) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
485 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
486 _rv = SndSoundManagerVersion(); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
487 _res = Py_BuildValue("O&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
488 PyMac_BuildNumVersion, _rv); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
489 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
490 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
491 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
492 static PyObject *Snd_SndManagerStatus(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
493 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
494 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
495 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
496 short theLength; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
497 SMStatus theStatus__out__; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
498 if (!PyArg_ParseTuple(_args, "h", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
499 &theLength)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
500 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
501 _err = SndManagerStatus(theLength, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
502 &theStatus__out__); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
503 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
504 _res = Py_BuildValue("s#", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
505 (char *)&theStatus__out__, (int)sizeof(SMStatus)); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
506 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
507 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
508 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
509 static PyObject *Snd_SndGetSysBeepState(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
510 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
511 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
512 short sysBeepState; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
513 if (!PyArg_ParseTuple(_args, "")) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
514 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
515 SndGetSysBeepState(&sysBeepState); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
516 _res = Py_BuildValue("h", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
517 sysBeepState); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
518 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
519 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
520 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
521 static PyObject *Snd_SndSetSysBeepState(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
522 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
523 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
524 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
525 short sysBeepState; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
526 if (!PyArg_ParseTuple(_args, "h", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
527 &sysBeepState)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
528 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
529 _err = SndSetSysBeepState(sysBeepState); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
530 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
531 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
532 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
533 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
534 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
535 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
536 static PyObject *Snd_GetSysBeepVolume(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
537 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
538 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
539 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
540 long level; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
541 if (!PyArg_ParseTuple(_args, "")) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
542 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
543 _err = GetSysBeepVolume(&level); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
544 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
545 _res = Py_BuildValue("l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
546 level); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
547 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
548 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
549 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
550 static PyObject *Snd_SetSysBeepVolume(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
551 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
552 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
553 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
554 long level; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
555 if (!PyArg_ParseTuple(_args, "l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
556 &level)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
557 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
558 _err = SetSysBeepVolume(level); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
559 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
560 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
561 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
562 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
563 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
564 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
565 static PyObject *Snd_GetDefaultOutputVolume(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
566 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
567 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
568 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
569 long level; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
570 if (!PyArg_ParseTuple(_args, "")) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
571 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
572 _err = GetDefaultOutputVolume(&level); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
573 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
574 _res = Py_BuildValue("l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
575 level); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
576 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
577 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
578 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
579 static PyObject *Snd_SetDefaultOutputVolume(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
580 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
581 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
582 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
583 long level; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
584 if (!PyArg_ParseTuple(_args, "l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
585 &level)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
586 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
587 _err = SetDefaultOutputVolume(level); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
588 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
589 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
590 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
591 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
592 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
593 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
594 static PyObject *Snd_GetSoundHeaderOffset(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
595 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
596 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
597 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
598 SndListHandle sndHandle; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
599 long offset; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
600 if (!PyArg_ParseTuple(_args, "O&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
601 ResObj_Convert, &sndHandle)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
602 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
603 _err = GetSoundHeaderOffset(sndHandle, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
604 &offset); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
605 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
606 _res = Py_BuildValue("l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
607 offset); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
608 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
609 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
610 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
611 static PyObject *Snd_GetCompressionInfo(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
612 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
613 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
614 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
615 short compressionID; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
616 OSType format; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
617 short numChannels; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
618 short sampleSize; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
619 CompressionInfo cp__out__; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
620 if (!PyArg_ParseTuple(_args, "hO&hh", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
621 &compressionID, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
622 PyMac_GetOSType, &format, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
623 &numChannels, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
624 &sampleSize)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
625 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
626 _err = GetCompressionInfo(compressionID, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
627 format, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
628 numChannels, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
629 sampleSize, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
630 &cp__out__); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
631 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
632 _res = Py_BuildValue("s#", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
633 (char *)&cp__out__, (int)sizeof(CompressionInfo)); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
634 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
635 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
636 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
637 static PyObject *Snd_SetSoundPreference(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
638 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
639 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
640 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
641 OSType theType; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
642 Str255 name; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
643 Handle settings; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
644 if (!PyArg_ParseTuple(_args, "O&O&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
645 PyMac_GetOSType, &theType, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
646 ResObj_Convert, &settings)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
647 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
648 _err = SetSoundPreference(theType, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
649 name, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
650 settings); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
651 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
652 _res = Py_BuildValue("O&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
653 PyMac_BuildStr255, name); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
654 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
655 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
656 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
657 static PyObject *Snd_GetSoundPreference(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
658 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
659 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
660 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
661 OSType theType; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
662 Str255 name; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
663 Handle settings; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
664 if (!PyArg_ParseTuple(_args, "O&O&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
665 PyMac_GetOSType, &theType, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
666 ResObj_Convert, &settings)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
667 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
668 _err = GetSoundPreference(theType, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
669 name, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
670 settings); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
671 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
672 _res = Py_BuildValue("O&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
673 PyMac_BuildStr255, name); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
674 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
675 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
676 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
677 static PyObject *Snd_GetCompressionName(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
678 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
679 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
680 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
681 OSType compressionType; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
682 Str255 compressionName; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
683 if (!PyArg_ParseTuple(_args, "O&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
684 PyMac_GetOSType, &compressionType)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
685 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
686 _err = GetCompressionName(compressionType, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
687 compressionName); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
688 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
689 _res = Py_BuildValue("O&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
690 PyMac_BuildStr255, compressionName); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
691 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
692 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
693 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
694 static PyObject *Snd_SPBVersion(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
695 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
696 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
697 NumVersion _rv; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
698 if (!PyArg_ParseTuple(_args, "")) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
699 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
700 _rv = SPBVersion(); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
701 _res = Py_BuildValue("O&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
702 PyMac_BuildNumVersion, _rv); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
703 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
704 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
705 |
|
21877
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
706 static PyObject *Snd_SndRecord(PyObject *_self, PyObject *_args) |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
707 { |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
708 PyObject *_res = NULL; |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
709 OSErr _err; |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
710 Point corner; |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
711 OSType quality; |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
712 SndListHandle sndHandle; |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
713 if (!PyArg_ParseTuple(_args, "O&O&", |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
714 PyMac_GetPoint, &corner, |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
715 PyMac_GetOSType, &quality)) |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
716 return NULL; |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
717 _err = SndRecord((ModalFilterUPP)0, |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
718 corner, |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
719 quality, |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
720 &sndHandle); |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
721 if (_err != noErr) return PyMac_Error(_err); |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
722 _res = Py_BuildValue("O&", |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
723 ResObj_New, sndHandle); |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
724 return _res; |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
725 } |
|
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
726 |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
727 static PyObject *Snd_SPBSignInDevice(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
728 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
729 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
730 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
731 short deviceRefNum; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
732 Str255 deviceName; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
733 if (!PyArg_ParseTuple(_args, "hO&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
734 &deviceRefNum, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
735 PyMac_GetStr255, deviceName)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
736 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
737 _err = SPBSignInDevice(deviceRefNum, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
738 deviceName); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
739 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
740 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
741 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
742 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
743 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
744 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
745 static PyObject *Snd_SPBSignOutDevice(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
746 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
747 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
748 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
749 short deviceRefNum; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
750 if (!PyArg_ParseTuple(_args, "h", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
751 &deviceRefNum)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
752 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
753 _err = SPBSignOutDevice(deviceRefNum); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
754 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
755 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
756 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
757 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
758 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
759 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
760 static PyObject *Snd_SPBGetIndexedDevice(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
761 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
762 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
763 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
764 short count; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
765 Str255 deviceName; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
766 Handle deviceIconHandle; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
767 if (!PyArg_ParseTuple(_args, "h", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
768 &count)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
769 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
770 _err = SPBGetIndexedDevice(count, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
771 deviceName, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
772 &deviceIconHandle); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
773 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
774 _res = Py_BuildValue("O&O&", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
775 PyMac_BuildStr255, deviceName, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
776 ResObj_New, deviceIconHandle); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
777 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
778 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
779 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
780 static PyObject *Snd_SPBOpenDevice(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
781 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
782 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
783 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
784 Str255 deviceName; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
785 short permission; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
786 long inRefNum; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
787 if (!PyArg_ParseTuple(_args, "O&h", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
788 PyMac_GetStr255, deviceName, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
789 &permission)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
790 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
791 _err = SPBOpenDevice(deviceName, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
792 permission, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
793 &inRefNum); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
794 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
795 _res = Py_BuildValue("l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
796 inRefNum); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
797 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
798 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
799 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
800 static PyObject *Snd_SPBCloseDevice(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
801 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
802 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
803 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
804 long inRefNum; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
805 if (!PyArg_ParseTuple(_args, "l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
806 &inRefNum)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
807 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
808 _err = SPBCloseDevice(inRefNum); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
809 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
810 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
811 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
812 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
813 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
814 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
815 static PyObject *Snd_SPBRecord(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
816 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
817 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
818 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
819 SPBPtr inParamPtr; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
820 Boolean asynchFlag; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
821 if (!PyArg_ParseTuple(_args, "O&b", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
822 SPBObj_Convert, &inParamPtr, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
823 &asynchFlag)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
824 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
825 _err = SPBRecord(inParamPtr, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
826 asynchFlag); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
827 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
828 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
829 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
830 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
831 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
832 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
833 static PyObject *Snd_SPBPauseRecording(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
834 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
835 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
836 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
837 long inRefNum; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
838 if (!PyArg_ParseTuple(_args, "l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
839 &inRefNum)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
840 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
841 _err = SPBPauseRecording(inRefNum); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
842 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
843 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
844 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
845 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
846 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
847 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
848 static PyObject *Snd_SPBResumeRecording(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
849 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
850 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
851 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
852 long inRefNum; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
853 if (!PyArg_ParseTuple(_args, "l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
854 &inRefNum)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
855 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
856 _err = SPBResumeRecording(inRefNum); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
857 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
858 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
859 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
860 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
861 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
862 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
863 static PyObject *Snd_SPBStopRecording(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
864 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
865 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
866 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
867 long inRefNum; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
868 if (!PyArg_ParseTuple(_args, "l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
869 &inRefNum)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
870 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
871 _err = SPBStopRecording(inRefNum); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
872 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
873 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
874 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
875 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
876 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
877 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
878 static PyObject *Snd_SPBGetRecordingStatus(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
879 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
880 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
881 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
882 long inRefNum; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
883 short recordingStatus; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
884 short meterLevel; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
885 unsigned long totalSamplesToRecord; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
886 unsigned long numberOfSamplesRecorded; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
887 unsigned long totalMsecsToRecord; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
888 unsigned long numberOfMsecsRecorded; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
889 if (!PyArg_ParseTuple(_args, "l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
890 &inRefNum)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
891 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
892 _err = SPBGetRecordingStatus(inRefNum, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
893 &recordingStatus, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
894 &meterLevel, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
895 &totalSamplesToRecord, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
896 &numberOfSamplesRecorded, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
897 &totalMsecsToRecord, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
898 &numberOfMsecsRecorded); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
899 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
900 _res = Py_BuildValue("hhllll", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
901 recordingStatus, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
902 meterLevel, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
903 totalSamplesToRecord, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
904 numberOfSamplesRecorded, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
905 totalMsecsToRecord, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
906 numberOfMsecsRecorded); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
907 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
908 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
909 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
910 static PyObject *Snd_SPBGetDeviceInfo(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
911 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
912 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
913 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
914 long inRefNum; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
915 OSType infoType; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
916 void * infoData; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
917 if (!PyArg_ParseTuple(_args, "lO&w", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
918 &inRefNum, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
919 PyMac_GetOSType, &infoType, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
920 &infoData)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
921 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
922 _err = SPBGetDeviceInfo(inRefNum, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
923 infoType, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
924 infoData); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
925 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
926 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
927 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
928 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
929 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
930 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
931 static PyObject *Snd_SPBSetDeviceInfo(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
932 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
933 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
934 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
935 long inRefNum; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
936 OSType infoType; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
937 void * infoData; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
938 if (!PyArg_ParseTuple(_args, "lO&w", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
939 &inRefNum, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
940 PyMac_GetOSType, &infoType, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
941 &infoData)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
942 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
943 _err = SPBSetDeviceInfo(inRefNum, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
944 infoType, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
945 infoData); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
946 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
947 Py_INCREF(Py_None); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
948 _res = Py_None; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
949 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
950 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
951 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
952 static PyObject *Snd_SPBMillisecondsToBytes(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
953 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
954 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
955 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
956 long inRefNum; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
957 long milliseconds; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
958 if (!PyArg_ParseTuple(_args, "l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
959 &inRefNum)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
960 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
961 _err = SPBMillisecondsToBytes(inRefNum, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
962 &milliseconds); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
963 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
964 _res = Py_BuildValue("l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
965 milliseconds); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
966 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
967 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
968 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
969 static PyObject *Snd_SPBBytesToMilliseconds(PyObject *_self, PyObject *_args) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
970 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
971 PyObject *_res = NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
972 OSErr _err; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
973 long inRefNum; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
974 long byteCount; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
975 if (!PyArg_ParseTuple(_args, "l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
976 &inRefNum)) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
977 return NULL; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
978 _err = SPBBytesToMilliseconds(inRefNum, |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
979 &byteCount); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
980 if (_err != noErr) return PyMac_Error(_err); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
981 _res = Py_BuildValue("l", |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
982 byteCount); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
983 return _res; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
984 } |
|
47473
c34e34057714
MacOS X: Enable 4-way universal builds
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
35200
diff
changeset
|
985 #endif /* __LP64__ */ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
986 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
987 static PyMethodDef Snd_methods[] = { |
|
47473
c34e34057714
MacOS X: Enable 4-way universal builds
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
35200
diff
changeset
|
988 #ifndef __LP64__ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
989 {"SPB", (PyCFunction)Snd_SPB, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
990 PyDoc_STR(NULL)}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
991 {"SysBeep", (PyCFunction)Snd_SysBeep, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
992 PyDoc_STR("(short duration) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
993 {"SndNewChannel", (PyCFunction)Snd_SndNewChannel, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
994 PyDoc_STR("(short synth, long init, PyObject* userRoutine) -> (SndChannelPtr chan)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
995 {"SndSoundManagerVersion", (PyCFunction)Snd_SndSoundManagerVersion, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
996 PyDoc_STR("() -> (NumVersion _rv)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
997 {"SndManagerStatus", (PyCFunction)Snd_SndManagerStatus, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
998 PyDoc_STR("(short theLength) -> (SMStatus theStatus)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
999 {"SndGetSysBeepState", (PyCFunction)Snd_SndGetSysBeepState, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1000 PyDoc_STR("() -> (short sysBeepState)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1001 {"SndSetSysBeepState", (PyCFunction)Snd_SndSetSysBeepState, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1002 PyDoc_STR("(short sysBeepState) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1003 {"GetSysBeepVolume", (PyCFunction)Snd_GetSysBeepVolume, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1004 PyDoc_STR("() -> (long level)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1005 {"SetSysBeepVolume", (PyCFunction)Snd_SetSysBeepVolume, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1006 PyDoc_STR("(long level) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1007 {"GetDefaultOutputVolume", (PyCFunction)Snd_GetDefaultOutputVolume, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1008 PyDoc_STR("() -> (long level)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1009 {"SetDefaultOutputVolume", (PyCFunction)Snd_SetDefaultOutputVolume, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1010 PyDoc_STR("(long level) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1011 {"GetSoundHeaderOffset", (PyCFunction)Snd_GetSoundHeaderOffset, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1012 PyDoc_STR("(SndListHandle sndHandle) -> (long offset)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1013 {"GetCompressionInfo", (PyCFunction)Snd_GetCompressionInfo, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1014 PyDoc_STR("(short compressionID, OSType format, short numChannels, short sampleSize) -> (CompressionInfo cp)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1015 {"SetSoundPreference", (PyCFunction)Snd_SetSoundPreference, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1016 PyDoc_STR("(OSType theType, Handle settings) -> (Str255 name)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1017 {"GetSoundPreference", (PyCFunction)Snd_GetSoundPreference, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1018 PyDoc_STR("(OSType theType, Handle settings) -> (Str255 name)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1019 {"GetCompressionName", (PyCFunction)Snd_GetCompressionName, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1020 PyDoc_STR("(OSType compressionType) -> (Str255 compressionName)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1021 {"SPBVersion", (PyCFunction)Snd_SPBVersion, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1022 PyDoc_STR("() -> (NumVersion _rv)")}, |
|
21877
e48846717c26
Added SndRecord and (classic only) SndRecordToFile.
Jack Jansen <jack.jansen@cwi.nl>
parents:
21464
diff
changeset
|
1023 {"SndRecord", (PyCFunction)Snd_SndRecord, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1024 PyDoc_STR("(Point corner, OSType quality) -> (SndListHandle sndHandle)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1025 {"SPBSignInDevice", (PyCFunction)Snd_SPBSignInDevice, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1026 PyDoc_STR("(short deviceRefNum, Str255 deviceName) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1027 {"SPBSignOutDevice", (PyCFunction)Snd_SPBSignOutDevice, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1028 PyDoc_STR("(short deviceRefNum) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1029 {"SPBGetIndexedDevice", (PyCFunction)Snd_SPBGetIndexedDevice, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1030 PyDoc_STR("(short count) -> (Str255 deviceName, Handle deviceIconHandle)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1031 {"SPBOpenDevice", (PyCFunction)Snd_SPBOpenDevice, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1032 PyDoc_STR("(Str255 deviceName, short permission) -> (long inRefNum)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1033 {"SPBCloseDevice", (PyCFunction)Snd_SPBCloseDevice, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1034 PyDoc_STR("(long inRefNum) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1035 {"SPBRecord", (PyCFunction)Snd_SPBRecord, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1036 PyDoc_STR("(SPBPtr inParamPtr, Boolean asynchFlag) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1037 {"SPBPauseRecording", (PyCFunction)Snd_SPBPauseRecording, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1038 PyDoc_STR("(long inRefNum) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1039 {"SPBResumeRecording", (PyCFunction)Snd_SPBResumeRecording, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1040 PyDoc_STR("(long inRefNum) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1041 {"SPBStopRecording", (PyCFunction)Snd_SPBStopRecording, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1042 PyDoc_STR("(long inRefNum) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1043 {"SPBGetRecordingStatus", (PyCFunction)Snd_SPBGetRecordingStatus, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1044 PyDoc_STR("(long inRefNum) -> (short recordingStatus, short meterLevel, unsigned long totalSamplesToRecord, unsigned long numberOfSamplesRecorded, unsigned long totalMsecsToRecord, unsigned long numberOfMsecsRecorded)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1045 {"SPBGetDeviceInfo", (PyCFunction)Snd_SPBGetDeviceInfo, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1046 PyDoc_STR("(long inRefNum, OSType infoType, void * infoData) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1047 {"SPBSetDeviceInfo", (PyCFunction)Snd_SPBSetDeviceInfo, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1048 PyDoc_STR("(long inRefNum, OSType infoType, void * infoData) -> None")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1049 {"SPBMillisecondsToBytes", (PyCFunction)Snd_SPBMillisecondsToBytes, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1050 PyDoc_STR("(long inRefNum) -> (long milliseconds)")}, |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1051 {"SPBBytesToMilliseconds", (PyCFunction)Snd_SPBBytesToMilliseconds, 1, |
|
24865
b54cfa98b66b
Regenerated with PyDoc_STR() around docstrings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
24280
diff
changeset
|
1052 PyDoc_STR("(long inRefNum) -> (long byteCount)")}, |
|
47473
c34e34057714
MacOS X: Enable 4-way universal builds
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
35200
diff
changeset
|
1053 #endif /* __LP64__ */ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1054 {NULL, NULL, 0} |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1055 }; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1056 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1057 |
|
47473
c34e34057714
MacOS X: Enable 4-way universal builds
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
35200
diff
changeset
|
1058 #ifndef __LP64__ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1059 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1060 /* Routine passed to Py_AddPendingCall -- call the Python callback */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1061 static int |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1062 SndCh_CallCallBack(void *arg) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1063 { |
|
35200
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1064 SndChannelObject *p = (SndChannelObject *)arg; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1065 PyObject *args; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1066 PyObject *res; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1067 args = Py_BuildValue("(O(hhl))", |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1068 p, p->ob_cmd.cmd, p->ob_cmd.param1, p->ob_cmd.param2); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1069 res = PyEval_CallObject(p->ob_callback, args); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1070 Py_DECREF(args); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1071 if (res == NULL) |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1072 return -1; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1073 Py_DECREF(res); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1074 return 0; |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1075 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1076 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1077 /* Routine passed to NewSndChannel -- schedule a call to SndCh_CallCallBack */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1078 static pascal void |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1079 SndCh_UserRoutine(SndChannelPtr chan, SndCommand *cmd) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1080 { |
|
35200
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1081 SndChannelObject *p = (SndChannelObject *)(chan->userInfo); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1082 if (p->ob_callback != NULL) { |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1083 long A5 = SetA5(p->ob_A5); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1084 p->ob_cmd = *cmd; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1085 Py_AddPendingCall(SndCh_CallCallBack, (void *)p); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1086 SetA5(A5); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1087 } |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1088 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1089 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1090 /* SPB callbacks - Schedule callbacks to Python */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1091 static int |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1092 SPB_CallCallBack(void *arg) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1093 { |
|
35200
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1094 SPBObject *p = (SPBObject *)arg; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1095 PyObject *args; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1096 PyObject *res; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1097 |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1098 if ( p->ob_thiscallback == 0 ) return 0; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1099 args = Py_BuildValue("(O)", p); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1100 res = PyEval_CallObject(p->ob_thiscallback, args); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1101 p->ob_thiscallback = 0; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1102 Py_DECREF(args); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1103 if (res == NULL) |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1104 return -1; |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1105 Py_DECREF(res); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1106 return 0; |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1107 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1108 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1109 static pascal void |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1110 SPB_completion(SPBPtr my_spb) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1111 { |
|
35200
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1112 SPBObject *p = (SPBObject *)(my_spb->userLong); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1113 |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1114 if (p && p->ob_completion) { |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1115 long A5 = SetA5(p->ob_A5); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1116 p->ob_thiscallback = p->ob_completion; /* Hope we cannot get two at the same time */ |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1117 Py_AddPendingCall(SPB_CallCallBack, (void *)p); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1118 SetA5(A5); |
|
5df1c692bb41
Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents:
30982
diff
changeset
|
1119 } |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1120 } |
|
47473
c34e34057714
MacOS X: Enable 4-way universal builds
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
35200
diff
changeset
|
1121 #endif /* __LP64__ */ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1122 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1123 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1124 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1125 void init_Snd(void) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1126 { |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1127 PyObject *m; |
|
47473
c34e34057714
MacOS X: Enable 4-way universal builds
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
35200
diff
changeset
|
1128 #ifndef __LP64__ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1129 PyObject *d; |
|
47473
c34e34057714
MacOS X: Enable 4-way universal builds
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
35200
diff
changeset
|
1130 #endif /* __LP64__ */ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1131 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1132 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1133 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1134 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1135 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1136 m = Py_InitModule("_Snd", Snd_methods); |
|
47473
c34e34057714
MacOS X: Enable 4-way universal builds
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
35200
diff
changeset
|
1137 #ifndef __LP64__ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1138 d = PyModule_GetDict(m); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1139 Snd_Error = PyMac_GetOSErrException(); |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1140 if (Snd_Error == NULL || |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1141 PyDict_SetItemString(d, "Error", Snd_Error) != 0) |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1142 return; |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1143 SndChannel_Type.ob_type = &PyType_Type; |
|
26769
aef3a03a79f1
- Various tweaks to shut up compiler warnings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
26720
diff
changeset
|
1144 if (PyType_Ready(&SndChannel_Type) < 0) return; |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1145 Py_INCREF(&SndChannel_Type); |
|
26524
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
1146 PyModule_AddObject(m, "SndChannel", (PyObject *)&SndChannel_Type); |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
1147 /* Backward-compatible name */ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
1148 Py_INCREF(&SndChannel_Type); |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
1149 PyModule_AddObject(m, "SndChannelType", (PyObject *)&SndChannel_Type); |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1150 SPB_Type.ob_type = &PyType_Type; |
|
26769
aef3a03a79f1
- Various tweaks to shut up compiler warnings.
Jack Jansen <jack.jansen@cwi.nl>
parents:
26720
diff
changeset
|
1151 if (PyType_Ready(&SPB_Type) < 0) return; |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1152 Py_INCREF(&SPB_Type); |
|
51690
798a16abf546
Fix issue776533.
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
47473
diff
changeset
|
1153 #if 0 |
|
26524
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
1154 PyModule_AddObject(m, "SPB", (PyObject *)&SPB_Type); |
|
51690
798a16abf546
Fix issue776533.
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
47473
diff
changeset
|
1155 #endif |
|
26524
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
1156 /* Backward-compatible name */ |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
1157 Py_INCREF(&SPB_Type); |
|
7aba859cee54
Added PEP253 support to most Carbon modules. This isn't complete yet:
Jack Jansen <jack.jansen@cwi.nl>
parents:
26464
diff
changeset
|
1158 PyModule_AddObject(m, "SPBType", (PyObject *)&SPB_Type); |
|
47473
c34e34057714
MacOS X: Enable 4-way universal builds
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
35200
diff
changeset
|
1159 #endif /* __LP64__ */ |
|
19443
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1160 } |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1161 |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1162 /* ======================== End module _Snd ========================= */ |
|
0922d609acd1
Renamed the Mac toolbox modules to have an initial _ in their name.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff
changeset
|
1163 |
