| 1 | uint8_t * T_PV |
1 | uint8_t * T_PV |
| 2 | uint32_t * T_PV |
2 | uint32_t * T_PV |
|
|
3 | |
|
|
4 | GLenum T_IV |
|
|
5 | GLsize T_UV |
|
|
6 | GLsizei T_IV |
|
|
7 | GLint T_IV |
|
|
8 | GLfloat T_NV |
|
|
9 | GLdouble T_NV |
|
|
10 | |
|
|
11 | DC::Channel T_IVOBJ |
|
|
12 | DC::RW T_PTROBJ |
| 3 | CFPlus::MixChunk T_PTROBJ |
13 | DC::MixChunk T_PTROBJ |
| 4 | CFPlus::MixMusic T_PTROBJ |
14 | DC::MixMusic T_PTROBJ |
| 5 | CFPlus::Font T_PTROBJ |
15 | DC::Font T_PTROBJ |
| 6 | CFPlus::Layout T_PTROBJ |
16 | DC::Layout T_PTROBJ |
| 7 | CFPlus::Map T_PTROBJ |
17 | DC::Map T_PTROBJ |
|
|
18 | |
|
|
19 | INPUT |
|
|
20 | |
|
|
21 | T_IVOBJ |
|
|
22 | if (sv_derived_from ($arg, \"${ntype}\")) |
|
|
23 | $var = SvIV (SvRV ($arg)); |
|
|
24 | else |
|
|
25 | croak (\"$var is not of type ${ntype}\") |
|
|
26 | |
|
|
27 | OUTPUT |
|
|
28 | |
|
|
29 | T_IVOBJ |
|
|
30 | sv_setref_iv ($arg, \"${ntype}\", $var); |
|
|
31 | |
