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
|
TYPEMAP
Tk_Window T_TK_WINDOW
Tk_Image T_TK_IMAGE
TkWindow * T_TKWINDOW
Display * T_PTROBJ
Screen * T_PTROBJ
Visual * T_PTROBJ
Window T_IVOBJ
Colormap T_IVOBJ
GC T_PTROBJ
Font T_IVOBJ
Atom T_IV
FILE * T_NIO
hash_ptr * T_PTR
Tk_3DBorder T_PTROBJ
Tk_Uid T_TK_UID
Tcl_Interp * T_TK_INTERP
Tk_Font T_TK_FONT
EventAndKeySym * T_TK_XEVENT
INPUT
T_PVOBJ
if (sv_object($arg)) {
STRLEN sz;
$var = ($type) SvPV((SV*)SvRV($arg),sz);
if (sz != sizeof(*$var))
croak(\"$var too small for $type\");
}
else
croak(\"$var is not an object\")
T_TK_WINDOW
$var = SVtoWindow($arg)
T_TK_XEVENT
$var = SVtoEventAndKeySym($arg)
T_TK_FONT
$var = SVtoFont($arg)
T_TK_IMAGE
$var = SVtoImage($arg)
T_TKWINDOW
$var = (TkWindow *) SVtoWindow($arg)
T_TK_INTERP
$var = WindowCommand($arg,NULL,1)->interp
T_TK_UID
$var = Tk_GetUid(SvPV($arg,na))
T_IVOBJ
if (sv_isa($arg, \"${ntype}\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = ($type) tmp;
}
else
croak(\"$var is not of type ${ntype}\")
T_NIO
if (sv_isa($arg, \"${Package}\")) {
$var = IoIFP(sv_2io(SvRV($arg)));
}
else
croak(\"$var is not of type ${Package}\")
OUTPUT
T_IVOBJ
sv_setref_iv($arg, \"${ntype}\", (IV) $var);
T_TK_UID
sv_setpv($arg,$var);
T_TK_WINDOW
sv_setsv($arg,TkToWidget($var,NULL));
T_TKWINDOW
sv_setsv($arg,TkToWidget((Tk_Window) $var,NULL));
|
