ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/typemap
Revision: 1.13
Committed: Fri Dec 30 16:53:12 2022 UTC (16 months, 1 week ago) by root
Branch: MAIN
CVS Tags: HEAD
Changes since 1.12: +3 -3 lines
Log Message:
*** empty log message ***

File Contents

# Content
1 overlay * OVERLAY
2
3 Time T_UV
4 XID T_UV
5 Atom T_UV
6 Window T_UV
7 Pixmap T_UV
8 Region T_UV
9 rxvt_img::nv T_NV
10
11 urxvt::pixbuf T_PTROBJ
12
13 octet_string OCTET_STRING
14 utf8_string UTF8_STRING
15
16 rxvt_term * TERM
17 rxvt_img * IMG
18
19 GError ** T_UV
20
21 render_repeat_mode RENDER_REPEAT_MODE
22
23 INPUT
24
25 TERM
26 $var = SvTERM ($arg);
27 OVERLAY
28 $var = SvOVERLAY ($arg);
29
30 OCTET_STRING
31 $var = SvPVbyte_nolen ($arg)
32
33 UTF8_STRING
34 $var = SvPVutf8_nolen ($arg) /* imperfect, destroys references */
35
36 IMG
37 if (SvROK ($arg) && sv_derived_from ($arg, \"urxvt::img\"))
38 $var = INT2PTR ($type, SvIV ((SV *) SvRV ($arg)));
39 else
40 croak (\"%s is not of type urxvt::img\", \"$var\")
41
42 RENDER_REPEAT_MODE
43 if (SvOK ($arg))
44 {
45 $var = SvIV ($arg);
46 if ($var != RepeatNone && $var != RepeatNormal && $var != RepeatPad && $var != RepeatReflect)
47 croak (\"invalid repeat mode specified (%d)\\n\", $var);
48 }
49 else
50 $var = RepeatNormal;
51
52 OUTPUT
53
54 TERM
55 $arg = newSVterm ($var);
56
57 IMG
58 sv_setref_pv ($arg, "urxvt::img", (void *)$var);
59