1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
%module tclpd
%include exception.i
%include cpointer.i
#define __attribute__(x)
/* functions that are in m_pd.h but don't exist in modern versions of pd */
%ignore pd_getfilename;
%ignore pd_getdirname;
%ignore pd_anything;
%ignore class_parentwidget;
%ignore sys_isreadablefile;
%ignore garray_get;
%ignore c_extern;
%ignore c_addmess;
/* functions that are only in Miller's pd, not in devel_0_39/DesireData */
%ignore sys_idlehook;
/* functions that are not supported by DesireData */
%ignore class_getpropertiesfn;
%ignore class_setpropertiesfn;
%ignore class_getwidget;
%ignore class_setwidget;
%ignore sys_fontwidth;
%ignore sys_fontheight;
%ignore sys_queuegui;
%ignore sys_unqueuegui;
%ignore sys_pretendguibytes;
%ignore class_setparentwidget;
%ignore pd_getparentwidget;
%ignore getzbytes;
%ignore gfxstub_new;
%ignore gfxstub_deleteforkey;
%ignore glist_grab;
/* functions that we can't auto-wrap, because they have varargs */
%ignore post;
%ignore class_new;
/* end of ignore-list */
%include "m_pd.h"
%include "tcl_extras.h"
%{
#include "m_pd.h"
#include "tcl_extras.h"
typedef t_atom t_atom_array;
/* extern "C" SWIGEXPORT int Tclpd_SafeInit(Tcl_Interp *interp); */
/* extern "C" { void tcl_setup() {tclpd_setup(void);} } */
%}
/* this does the trick of solving
TypeError in method 'outlet_list', argument 4 of type 't_atom *' */
%name(outlet_list) EXTERN void outlet_list(t_outlet *x, t_symbol *s, int argc, t_atom_array *argv);
%pointer_class(t_float, t_float)
%pointer_class(t_symbol, t_symbol)
%typemap(in) t_atom * {
t_atom *a = (t_atom*)getbytes(sizeof(t_atom));
if(tcl_to_pd($input, a) == TCL_ERROR) {
#ifdef DEBUG
post("Tcl SWIG: typemap(in) error");
#endif
return TCL_ERROR;
}
$1 = a;
}
%typemap(freearg) t_atom * {
freebytes($1, sizeof(t_atom));
}
%typemap(out) t_atom* {
Tcl_Obj* res_obj;
if(pd_to_tcl($1, &res_obj) == TCL_ERROR) {
#ifdef DEBUG
post("Tcl SWIG: typemap(out) error");
#endif
return TCL_ERROR;
}
Tcl_SetObjResult(tcl_for_pd, res_obj);
}
/* helper functions for t_atom arrays */
%inline %{
t_atom_array *new_atom_array(int size) {
return (t_atom_array*)getbytes(size*sizeof(t_atom));
}
void delete_atom_array(t_atom_array *a, int size) {
freebytes(a, size*sizeof(t_atom));
}
t_atom* get_atom_array(t_atom_array *a, int index) {
return &a[index];
}
void set_atom_array(t_atom_array *a, int index, t_atom *n) {
memcpy(&a[index], n, sizeof(t_atom));
}
%}
|
