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
119
120
121
122
123
124
|
################################################################################
#
# $Project: /Convert-Binary-C $
# $Author: mhx $
# $Date: 2009/03/15 04:10:42 +0100 $
# $Revision: 9 $
# $Source: /xsubs/typedef.xs $
#
################################################################################
#
# Copyright (c) 2002-2009 Marcus Holland-Moritz. All rights reserved.
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
################################################################################
################################################################################
#
# METHOD: typedef_names
#
# WRITTEN BY: Marcus Holland-Moritz ON: Jan 2002
# CHANGED BY: ON:
#
################################################################################
void
CBC::typedef_names()
PREINIT:
CBC_METHOD(typedef_names);
ListIterator tli, ti;
TypedefList *pTDL;
Typedef *pTypedef;
int count = 0;
U32 context;
PPCODE:
CT_DEBUG_METHOD;
CHECK_PARSE_DATA;
CHECK_VOID_CONTEXT;
context = GIMME_V;
LL_foreach(pTDL, tli, THIS->cpi.typedef_lists)
LL_foreach(pTypedef, ti, pTDL->typedefs)
if (is_typedef_defined(pTypedef))
{
if (context == G_ARRAY)
XPUSHs(sv_2mortal(newSVpv(pTypedef->pDecl->identifier, 0)));
count++;
}
if (context == G_ARRAY)
XSRETURN(count);
else
XSRETURN_IV(count);
################################################################################
#
# METHOD: typedef
#
# WRITTEN BY: Marcus Holland-Moritz ON: Jan 2002
# CHANGED BY: ON:
#
################################################################################
void
CBC::typedef(...)
PREINIT:
CBC_METHOD(typedef);
Typedef *pTypedef;
U32 context;
PPCODE:
CT_DEBUG_METHOD;
CHECK_PARSE_DATA;
CHECK_VOID_CONTEXT;
context = GIMME_V;
if (context == G_SCALAR && items != 2)
XSRETURN_IV(items > 1 ? items-1 : HT_count(THIS->cpi.htTypedefs));
NEED_PARSE_DATA;
if (items > 1)
{
int i;
for (i = 1; i < items; i++)
{
const char *name = SvPV_nolen(ST(i));
pTypedef = HT_get(THIS->cpi.htTypedefs, name, 0, 0);
if (pTypedef)
PUSHs(sv_2mortal(get_typedef_def(aTHX_ &THIS->cfg, pTypedef)));
else
PUSHs(&PL_sv_undef);
}
XSRETURN(items-1);
}
else
{
ListIterator tli, ti;
TypedefList *pTDL;
int size = HT_count(THIS->cpi.htTypedefs);
if (size <= 0)
XSRETURN_EMPTY;
EXTEND(SP, size);
LL_foreach(pTDL, tli, THIS->cpi.typedef_lists)
LL_foreach(pTypedef, ti, pTDL->typedefs)
PUSHs(sv_2mortal(get_typedef_def(aTHX_ &THIS->cfg, pTypedef)));
XSRETURN(size);
}
|
