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
109
110
111
112
113
114
115
116
117
118
|
#include "m_pd.h"
//#include "m_imp.h"
#include "g_canvas.h"
//#include "s_stuff.h"
#include <tcl.h>
/* PATH_MAX is not defined in limits.h on some platforms */
#ifndef PATH_MAX
#define PATH_MAX 4096
#endif
#define TCLPD_VERSION "0.3.0"
#define InitArray(name, size, value) for(int zz=0; zz<(size); zz++) name[zz]=value
typedef struct _t_tcl {
t_object o;
int ninlets; /* used for proxy inlet count */
char *source_file;
// Tcl-interpreter related objects:
Tcl_Obj *self;
Tcl_Obj *classname;
Tcl_Obj *dispatcher;
} t_tcl;
typedef struct _t_proxyinlet {
t_object obj;
t_tcl *target;
int ninlet;
t_symbol *sel;
int argc;
t_atom *argv;
} t_proxyinlet;
/* tcl_proxyinlet.c */
extern t_class *proxyinlet_class;
void proxyinlet_init(t_proxyinlet *x);
void proxyinlet_clear(t_proxyinlet *x);
void proxyinlet_anything(t_proxyinlet *x, t_symbol *s, int argc, t_atom *argv);
void proxyinlet_trigger(t_proxyinlet *x);
t_atom * proxyinlet_get_atoms(t_proxyinlet *x);
void proxyinlet_clone(t_proxyinlet *x, t_proxyinlet *y);
void proxyinlet_setup(void);
/* tcl_wrap.c */
extern int Tclpd_SafeInit(Tcl_Interp *interp);
/* tcl_typemap.c */
int tcl_to_pdatom(Tcl_Obj *input, t_atom *output);
int tcl_to_pdsymbol(Tcl_Obj *input, t_symbol **output);
int pdatom_to_tcl(t_atom *input, Tcl_Obj **output);
int pdsymbol_to_tcl(t_symbol *input, Tcl_Obj **output);
/* tclpd.c */
extern Tcl_Interp *tclpd_interp;
extern void tclpd_setup(void);
void tclpd_interp_error(t_tcl *x, int result);
/* tcl_class.c */
void class_table_add(const char *n, t_class *c);
void class_table_remove(const char *n);
t_class * class_table_get(const char *n);
void object_table_add(const char *n, t_tcl *o);
void object_table_remove(const char *n);
t_tcl * object_table_get(const char *n);
t_class * tclpd_class_new(const char *name, int flags);
t_class * tclpd_guiclass_new(const char *name, int flags);
t_tcl * tclpd_new(t_symbol *classsym, int ac, t_atom *at);
void tclpd_free (t_tcl *self);
void tclpd_anything(t_tcl *self, t_symbol *s, int ac, t_atom *at);
void tclpd_inlet_anything(t_tcl *self, int inlet, t_symbol *s, int ac, t_atom *at);
void tclpd_loadbang(t_tcl *x);
void tclpd_open(t_tcl *x);
t_proxyinlet * tclpd_add_proxyinlet(t_tcl *x);
/*
t_tcl * tclpd_get_instance(const char *objectSequentialId);
t_pd * tclpd_get_instance_pd(const char *objectSequentialId);
t_text * tclpd_get_instance_text(const char *objectSequentialId);
t_object * tclpd_get_object(const char *objectSequentialId);
t_pd * tclpd_get_object_pd(const char *objectSequentialId);
t_binbuf * tclpd_get_object_binbuf(const char *objectSequentialId);
t_glist * tclpd_get_glist(const char *objectSequentialId);
t_atom * tclpd_binbuf_get_atom(t_binbuf *b, int n);
*/
t_atom * binbuf_getatom(t_binbuf *x, int index);
t_object * CAST_t_object(t_object *o);
t_pd * CAST_t_pd(t_pd *o);
t_text * CAST_t_text(t_text *o);
t_tcl * CAST_t_tcl(t_tcl *o);
void poststring2(const char *s);
extern void text_save(t_gobj *z, t_binbuf *b);
void tclpd_save(t_gobj *z, t_binbuf *b);
void tclpd_properties(t_gobj *z, t_glist *owner);
void tclpd_class_namespace_init(const char *classname);
/* tcl_widgetbehavior.c */
void tclpd_guiclass_getrect(t_gobj *z, t_glist *owner, int *xp1, int *yp1, int *xp2, int *yp2);
void tclpd_guiclass_displace(t_gobj *z, t_glist *glist, int dx, int dy);
void tclpd_guiclass_select(t_gobj *z, t_glist *glist, int selected);
void tclpd_guiclass_activate(t_gobj *z, t_glist *glist, int state);
void tclpd_guiclass_delete(t_gobj *z, t_glist *glist);
void tclpd_guiclass_vis(t_gobj *z, t_glist *glist, int vis);
int tclpd_guiclass_click(t_gobj *z, t_glist *glist, int xpix, int ypix, int shift, int alt, int dbl, int doit);
void tclpd_guiclass_motion(t_tcl *x, t_floatarg dx, t_floatarg dy);
void tclpd_guiclass_grab(t_tcl *x, t_glist *glist, int xpix, int ypix);
/* tcl_loader.c */
extern int tclpd_do_load_lib(t_canvas *canvas, char *objectname);
/* pd loader private stuff: */
typedef int (*loader_t)(t_canvas *canvas, char *classname);
extern void sys_register_loader(loader_t loader);
extern int sys_onloadlist(char *classname);
extern void sys_putonloadlist(char *classname);
extern void class_set_extern_dir(t_symbol *s);
|
