?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
iphlpapi: Link NotifyAddrChange and CancelIPChangeNotify to nsi implementation.
[wine.git] / tools / widl / attribute.c
blob5ea13a011754ddd5de57d3889842d2b9ddb80d62
1 /*
2 * Copyright 2002 Ove Kaaven
3 * Copyright 2006-2008 Robert Shearman
4 *
5 * This library is free software; you can redistribute it and/or
6 * modify it under the terms of the GNU Lesser General Public
7 * License as published by the Free Software Foundation; either
8 * version 2.1 of the License, or (at your option) any later version.
9 *
10 * This library is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * Lesser General Public License for more details.
14 *
15 * You should have received a copy of the GNU Lesser General Public
16 * License along with this library; if not, write to the Free Software
17 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
18 */
19
20 #include "config.h"
21
22 #include "widl.h"
23 #include "typetree.h"
24
25 #include "parser.tab.h"
26
27 attr_t *attr_int( struct location where, enum attr_type attr_type, unsigned int val )
28 {
29 attr_t *a = xmalloc( sizeof(attr_t) );
30 a->where = where;
31 a->type = attr_type;
32 a->u.ival = val;
33 return a;
34 }
35
36 attr_t *attr_ptr( struct location where, enum attr_type attr_type, void *val )
37 {
38 attr_t *a = xmalloc( sizeof(attr_t) );
39 a->where = where;
40 a->type = attr_type;
41 a->u.pval = val;
42 return a;
43 }
44
45 int is_attr( const attr_list_t *list, enum attr_type attr_type )
46 {
47 const attr_t *attr;
48 if (!list) return 0;
49 LIST_FOR_EACH_ENTRY( attr, list, const attr_t, entry )
50 if (attr->type == attr_type) return 1;
51 return 0;
52 }
53
54 int is_ptrchain_attr( const var_t *var, enum attr_type attr_type )
55 {
56 type_t *type = var->declspec.type;
57 if (is_attr( var->attrs, attr_type )) return 1;
58 for (;;)
59 {
60 if (is_attr( type->attrs, attr_type )) return 1;
61 else if (type_is_alias( type )) type = type_alias_get_aliasee_type( type );
62 else if (type_is_ptr( type )) type = type_pointer_get_ref_type( type );
63 else return 0;
64 }
65 }
66
67 int is_aliaschain_attr( const type_t *type, enum attr_type attr_type )
68 {
69 const type_t *t = type;
70 for (;;)
71 {
72 if (is_attr( t->attrs, attr_type )) return 1;
73 else if (type_is_alias( t )) t = type_alias_get_aliasee_type( t );
74 else return 0;
75 }
76 }
77
78 unsigned int get_attrv( const attr_list_t *list, enum attr_type attr_type )
79 {
80 const attr_t *attr;
81 if (!list) return 0;
82 LIST_FOR_EACH_ENTRY( attr, list, const attr_t, entry )
83 if (attr->type == attr_type) return attr->u.ival;
84 return 0;
85 }
86
87 void *get_attrp( const attr_list_t *list, enum attr_type attr_type )
88 {
89 const attr_t *attr;
90 if (!list) return NULL;
91 LIST_FOR_EACH_ENTRY( attr, list, const attr_t, entry )
92 if (attr->type == attr_type) return attr->u.pval;
93 return NULL;
94 }
95
96 void *get_aliaschain_attrp( const type_t *type, enum attr_type attr_type )
97 {
98 for (;;)
99 {
100 if (is_attr( type->attrs, attr_type )) return get_attrp( type->attrs, attr_type );
101 if (!type_is_alias( type )) return NULL;
102 type = type_alias_get_aliasee_type( type );
103 }
104 }
105
106 struct allowed_attr
107 {
108 unsigned int dce_compatible : 1;
109 unsigned int acf : 1;
110 unsigned int multiple : 1;
111
112 unsigned int on_interface : 1;
113 unsigned int on_function : 1;
114 unsigned int on_arg : 1;
115 unsigned int on_type : 1;
116 unsigned int on_enum : 1;
117 unsigned int on_enum_member : 1;
118 unsigned int on_struct : 2;
119 unsigned int on_union : 1;
120 unsigned int on_field : 1;
121 unsigned int on_library : 1;
122 unsigned int on_dispinterface : 1;
123 unsigned int on_module : 1;
124 unsigned int on_coclass : 1;
125 unsigned int on_apicontract : 1;
126 unsigned int on_runtimeclass : 1;
127 const char *display_name;
128 };
129
130 struct allowed_attr allowed_attr[] =
131 {
132 /* attr { D ACF M I Fn ARG T En Enm St Un Fi L DI M C AC R <display name> } */
133 /* ATTR_ACTIVATABLE */ { 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, "activatable" },
134 /* ATTR_AGGREGATABLE */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, "aggregatable" },
135 /* ATTR_ALLOCATE */ { 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "allocate" },
136 /* ATTR_ANNOTATION */ { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "annotation" },
137 /* ATTR_APPOBJECT */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, "appobject" },
138 /* ATTR_ASYNC */ { 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "async" },
139 /* ATTR_ASYNCUUID */ { 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, "async_uuid" },
140 /* ATTR_AUTO_HANDLE */ { 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "auto_handle" },
141 /* ATTR_BINDABLE */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "bindable" },
142 /* ATTR_BROADCAST */ { 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "broadcast" },
143 /* ATTR_CALLAS */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "call_as" },
144 /* ATTR_CALLCONV */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, NULL },
145 /* ATTR_CASE */ { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, "case" },
146 /* ATTR_CODE */ { 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "code" },
147 /* ATTR_COMMSTATUS */ { 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "comm_status" },
148 /* ATTR_COMPOSABLE */ { 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, "composable" },
149 /* ATTR_CONTEXTHANDLE */ { 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "context_handle" },
150 /* ATTR_CONTRACT */ { 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, "contract" },
151 /* ATTR_CONTRACTVERSION */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, "contractversion" },
152 /* ATTR_CONTROL */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, "control" },
153 /* ATTR_CUSTOM */ { 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, "custom" },
154 /* ATTR_DECODE */ { 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "decode" },
155 /* ATTR_DEFAULT */ { 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, "default" },
156 /* ATTR_DEFAULTBIND */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "defaultbind" },
157 /* ATTR_DEFAULTCOLLELEM */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "defaultcollelem" },
158 /* ATTR_DEFAULTVALUE */ { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "defaultvalue" },
159 /* ATTR_DEFAULTVTABLE */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, "defaultvtable" },
160 /* ATTR_DEPRECATED */ { 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, "deprecated" },
161 /* ATTR_DISABLECONSISTENCYCHECK */{ 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "disable_consistency_check" },
162 /* ATTR_DISPINTERFACE */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, NULL },
163 /* ATTR_DISPLAYBIND */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "displaybind" },
164 /* ATTR_DLLNAME */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, "dllname" },
165 /* ATTR_DUAL */ { 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "dual" },
166 /* ATTR_ENABLEALLOCATE */ { 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "enable_allocate" },
167 /* ATTR_ENCODE */ { 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "encode" },
168 /* ATTR_ENDPOINT */ { 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "endpoint" },
169 /* ATTR_ENTRY */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "entry" },
170 /* ATTR_EVENTADD */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "eventadd" },
171 /* ATTR_EVENTREMOVE */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "eventremove" },
172 /* ATTR_EXCLUSIVETO */ { 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "exclusive_to" },
173 /* ATTR_EXPLICIT_HANDLE */ { 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "explicit_handle" },
174 /* ATTR_FAULTSTATUS */ { 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "fault_status" },
175 /* ATTR_FLAGS */ { 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "flags" },
176 /* ATTR_FORCEALLOCATE */ { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "force_allocate" },
177 /* ATTR_HANDLE */ { 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "handle" },
178 /* ATTR_HELPCONTEXT */ { 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, "helpcontext" },
179 /* ATTR_HELPFILE */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, "helpfile" },
180 /* ATTR_HELPSTRING */ { 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, "helpstring" },
181 /* ATTR_HELPSTRINGCONTEXT */ { 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, "helpstringcontext" },
182 /* ATTR_HELPSTRINGDLL */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, "helpstringdll" },
183 /* ATTR_HIDDEN */ { 0, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, "hidden" },
184 /* ATTR_ID */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, "id" },
185 /* ATTR_IDEMPOTENT */ { 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "idempotent" },
186 /* ATTR_IGNORE */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, "ignore" },
187 /* ATTR_IIDIS */ { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, "iid_is" },
188 /* ATTR_IMMEDIATEBIND */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "immediatebind" },
189 /* ATTR_IMPLICIT_HANDLE */ { 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "implicit_handle" },
190 /* ATTR_IN */ { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "in" },
191 /* ATTR_INPUTSYNC */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "inputsync" },
192 /* ATTR_LENGTHIS */ { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, "length_is" },
193 /* ATTR_LIBLCID */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, "lcid" },
194 /* ATTR_LICENSED */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, "licensed" },
195 /* ATTR_LOCAL */ { 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "local" },
196 /* ATTR_MARSHALING_BEHAVIOR */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, "marshaling_behavior" },
197 /* ATTR_MAYBE */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "maybe" },
198 /* ATTR_MESSAGE */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "message" },
199 /* ATTR_NOCODE */ { 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "nocode" },
200 /* ATTR_NONBROWSABLE */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "nonbrowsable" },
201 /* ATTR_NONCREATABLE */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, "noncreatable" },
202 /* ATTR_NONEXTENSIBLE */ { 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "nonextensible" },
203 /* ATTR_NOTIFY */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "notify" },
204 /* ATTR_NOTIFYFLAG */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "notify_flag" },
205 /* ATTR_OBJECT */ { 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "object" },
206 /* ATTR_ODL */ { 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, "odl" },
207 /* ATTR_OLEAUTOMATION */ { 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "oleautomation" },
208 /* ATTR_OPTIMIZE */ { 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "optimize" },
209 /* ATTR_OPTIONAL */ { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "optional" },
210 /* ATTR_OUT */ { 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "out" },
211 /* ATTR_OVERLOAD */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "overload" },
212 /* ATTR_PARAMLCID */ { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "lcid" },
213 /* ATTR_PARTIALIGNORE */ { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "partial_ignore" },
214 /* ATTR_POINTERDEFAULT */ { 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "pointer_default" },
215 /* ATTR_POINTERTYPE */ { 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, "ref, unique or ptr" },
216 /* ATTR_PROGID */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, "progid" },
217 /* ATTR_PROPGET */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "propget" },
218 /* ATTR_PROPPUT */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "propput" },
219 /* ATTR_PROPPUTREF */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "propputref" },
220 /* ATTR_PROTECTED */ { 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, "protected" },
221 /* ATTR_PROXY */ { 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "proxy" },
222 /* ATTR_PUBLIC */ { 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "public" },
223 /* ATTR_RANGE */ { 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, "range" },
224 /* ATTR_READONLY */ { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, "readonly" },
225 /* ATTR_REPRESENTAS */ { 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "represent_as" },
226 /* ATTR_REQUESTEDIT */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "requestedit" },
227 /* ATTR_RESTRICTED */ { 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, "restricted" },
228 /* ATTR_RETVAL */ { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "retval" },
229 /* ATTR_SIZEIS */ { 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, "size_is" },
230 /* ATTR_SOURCE */ { 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, "source" },
231 /* ATTR_STATIC */ { 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, "static" },
232 /* ATTR_STRICTCONTEXTHANDLE */ { 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "strict_context_handle" },
233 /* ATTR_STRING */ { 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, "string" },
234 /* ATTR_SWITCHIS */ { 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, "switch_is" },
235 /* ATTR_SWITCHTYPE */ { 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, "switch_type" },
236 /* ATTR_THREADING */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, "threading" },
237 /* ATTR_TRANSMITAS */ { 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "transmit_as" },
238 /* ATTR_UIDEFAULT */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "uidefault" },
239 /* ATTR_USESGETLASTERROR */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "usesgetlasterror" },
240 /* ATTR_USERMARSHAL */ { 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "user_marshal" },
241 /* ATTR_UUID */ { 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 1, "uuid" },
242 /* ATTR_V1ENUM */ { 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "v1_enum" },
243 /* ATTR_VARARG */ { 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "vararg" },
244 /* ATTR_VERSION */ { 1, 0, 0, 1, 0, 0, 1, 1, 0, 2, 0, 0, 1, 0, 1, 1, 0, 1, "version" },
245 /* ATTR_VIPROGID */ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, "vi_progid" },
246 /* ATTR_WIREMARSHAL */ { 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "wire_marshal" },
247 };
248
249 static const char *get_attr_display_name( enum attr_type attr_type )
250 {
251 return allowed_attr[attr_type].display_name;
252 }
253
254 attr_list_t *append_attr( attr_list_t *list, attr_t *attr )
255 {
256 attr_t *attr_existing;
257 if (!attr) return list;
258 if (!list)
259 {
260 list = xmalloc( sizeof(*list) );
261 list_init( list );
262 }
263 if (!allowed_attr[attr->type].multiple)
264 {
265 LIST_FOR_EACH_ENTRY( attr_existing, list, attr_t, entry )
266 {
267 if (attr_existing->type != attr->type) continue;
268 warning_at( &attr->where, "duplicate attribute %s\n", get_attr_display_name( attr->type ) );
269 /* use the last attribute, like MIDL does */
270 list_remove( &attr_existing->entry );
271 break;
272 }
273 }
274 list_add_tail( list, &attr->entry );
275 return list;
276 }
277
278 attr_list_t *append_attr_list( attr_list_t *new_list, attr_list_t *old_list )
279 {
280 struct list *entry;
281
282 if (!old_list) return new_list;
283
284 while ((entry = list_head( old_list )))
285 {
286 attr_t *attr = LIST_ENTRY( entry, attr_t, entry );
287 list_remove( entry );
288 new_list = append_attr( new_list, attr );
289 }
290 return new_list;
291 }
292
293 attr_list_t *append_attribs( attr_list_t *l1, attr_list_t *l2 )
294 {
295 if (!l2) return l1;
296 if (!l1 || l1 == l2) return l2;
297 list_move_tail( l1, l2 );
298 return l1;
299 }
300
301 attr_list_t *map_attrs( const attr_list_t *list, map_attrs_filter_t filter )
302 {
303 attr_list_t *new_list;
304 const attr_t *attr;
305 attr_t *new_attr;
306
307 if (!list) return NULL;
308
309 new_list = xmalloc( sizeof(*list) );
310 list_init( new_list );
311 LIST_FOR_EACH_ENTRY( attr, list, const attr_t, entry )
312 {
313 if (filter && !filter( new_list, attr )) continue;
314 new_attr = xmalloc( sizeof(*new_attr) );
315 *new_attr = *attr;
316 list_add_tail( new_list, &new_attr->entry );
317 }
318 return new_list;
319 }
320
321 attr_list_t *move_attr( attr_list_t *dst, attr_list_t *src, enum attr_type type )
322 {
323 attr_t *attr;
324 if (!src) return dst;
325 LIST_FOR_EACH_ENTRY( attr, src, attr_t, entry )
326 {
327 if (attr->type == type)
328 {
329 list_remove( &attr->entry );
330 return append_attr( dst, attr );
331 }
332 }
333 return dst;
334 }
335
336 attr_list_t *check_apicontract_attrs( const char *name, attr_list_t *attrs )
337 {
338 const attr_t *attr;
339 if (!attrs) return NULL;
340 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
341 {
342 if (!allowed_attr[attr->type].on_apicontract)
343 error_at( &attr->where, "inapplicable attribute %s for apicontract %s\n",
344 allowed_attr[attr->type].display_name, name );
345 }
346 return attrs;
347 }
348
349 attr_list_t *check_coclass_attrs( const char *name, attr_list_t *attrs )
350 {
351 const attr_t *attr;
352 if (!attrs) return NULL;
353 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
354 {
355 if (!allowed_attr[attr->type].on_coclass)
356 error_at( &attr->where, "inapplicable attribute %s for coclass %s\n",
357 allowed_attr[attr->type].display_name, name );
358 }
359 return attrs;
360 }
361
362 attr_list_t *check_dispiface_attrs( const char *name, attr_list_t *attrs )
363 {
364 const attr_t *attr;
365 if (!attrs) return NULL;
366 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
367 {
368 if (!allowed_attr[attr->type].on_dispinterface)
369 error_at( &attr->where, "inapplicable attribute %s for dispinterface %s\n",
370 allowed_attr[attr->type].display_name, name );
371 }
372 return attrs;
373 }
374
375 attr_list_t *check_enum_attrs( attr_list_t *attrs )
376 {
377 const attr_t *attr;
378 if (!attrs) return NULL;
379 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
380 {
381 if (!allowed_attr[attr->type].on_enum)
382 error_at( &attr->where, "inapplicable attribute %s for enum\n",
383 allowed_attr[attr->type].display_name );
384 }
385 return attrs;
386 }
387
388 attr_list_t *check_enum_member_attrs( attr_list_t *attrs )
389 {
390 const attr_t *attr;
391 if (!attrs) return NULL;
392 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
393 {
394 if (!allowed_attr[attr->type].on_enum_member)
395 error_at( &attr->where, "inapplicable attribute %s for enum member\n",
396 allowed_attr[attr->type].display_name );
397 }
398 return attrs;
399 }
400
401 attr_list_t *check_field_attrs( const char *name, attr_list_t *attrs )
402 {
403 const attr_t *attr;
404 if (!attrs) return NULL;
405 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
406 {
407 if (!allowed_attr[attr->type].on_field)
408 error_at( &attr->where, "inapplicable attribute %s for field %s\n",
409 allowed_attr[attr->type].display_name, name );
410 }
411 return attrs;
412 }
413
414 attr_list_t *check_function_attrs( const char *name, attr_list_t *attrs )
415 {
416 const attr_t *attr;
417 if (!attrs) return NULL;
418 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
419 {
420 if (!allowed_attr[attr->type].on_function)
421 error_at( &attr->where, "inapplicable attribute %s for function %s\n",
422 allowed_attr[attr->type].display_name, name );
423 }
424 return attrs;
425 }
426
427 attr_list_t *check_interface_attrs( const char *name, attr_list_t *attrs )
428 {
429 const attr_t *attr;
430 if (!attrs) return NULL;
431 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
432 {
433 if (!allowed_attr[attr->type].on_interface)
434 error_at( &attr->where, "inapplicable attribute %s for interface %s\n",
435 allowed_attr[attr->type].display_name, name );
436 if (attr->type == ATTR_IMPLICIT_HANDLE)
437 {
438 const var_t *var = attr->u.pval;
439 if (type_get_type( var->declspec.type ) == TYPE_BASIC &&
440 type_basic_get_type( var->declspec.type ) == TYPE_BASIC_HANDLE)
441 continue;
442 if (is_aliaschain_attr( var->declspec.type, ATTR_HANDLE )) continue;
443 error_at( &attr->where, "attribute %s requires a handle type in interface %s\n",
444 allowed_attr[attr->type].display_name, name );
445 }
446 }
447 return attrs;
448 }
449
450 attr_list_t *check_library_attrs( const char *name, attr_list_t *attrs )
451 {
452 const attr_t *attr;
453 if (!attrs) return NULL;
454 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
455 {
456 if (!allowed_attr[attr->type].on_library)
457 error_at( &attr->where, "inapplicable attribute %s for library %s\n",
458 allowed_attr[attr->type].display_name, name );
459 }
460 return attrs;
461 }
462
463 attr_list_t *check_module_attrs( const char *name, attr_list_t *attrs )
464 {
465 const attr_t *attr;
466 if (!attrs) return NULL;
467 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
468 {
469 if (!allowed_attr[attr->type].on_module)
470 error_at( &attr->where, "inapplicable attribute %s for module %s\n",
471 allowed_attr[attr->type].display_name, name );
472 }
473 return attrs;
474 }
475
476 attr_list_t *check_runtimeclass_attrs( const char *name, attr_list_t *attrs )
477 {
478 const attr_t *attr;
479 if (!attrs) return NULL;
480 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
481 {
482 if (!allowed_attr[attr->type].on_runtimeclass)
483 error_at( &attr->where, "inapplicable attribute %s for runtimeclass %s\n",
484 allowed_attr[attr->type].display_name, name );
485 }
486 return attrs;
487 }
488
489 attr_list_t *check_struct_attrs( attr_list_t *attrs )
490 {
491 int mask = winrt_mode ? 3 : 1;
492 const attr_t *attr;
493 if (!attrs) return NULL;
494 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
495 {
496 if (!(allowed_attr[attr->type].on_struct & mask))
497 error_at( &attr->where, "inapplicable attribute %s for struct\n",
498 allowed_attr[attr->type].display_name );
499 }
500 return attrs;
501 }
502
503 attr_list_t *check_typedef_attrs( attr_list_t *attrs )
504 {
505 const attr_t *attr;
506 if (!attrs) return NULL;
507 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
508 {
509 if (!allowed_attr[attr->type].on_type)
510 error_at( &attr->where, "inapplicable attribute %s for typedef\n",
511 allowed_attr[attr->type].display_name );
512 }
513 return attrs;
514 }
515
516 attr_list_t *check_union_attrs( attr_list_t *attrs )
517 {
518 const attr_t *attr;
519 if (!attrs) return NULL;
520 LIST_FOR_EACH_ENTRY( attr, attrs, const attr_t, entry )
521 {
522 if (!allowed_attr[attr->type].on_union)
523 error_at( &attr->where, "inapplicable attribute %s for union\n",
524 allowed_attr[attr->type].display_name );
525 }
526 return attrs;
527 }
528
529 void check_arg_attrs( const var_t *arg )
530 {
531 const attr_t *attr;
532 if (!arg->attrs) return;
533 LIST_FOR_EACH_ENTRY( attr, arg->attrs, const attr_t, entry )
534 {
535 if (!allowed_attr[attr->type].on_arg)
536 error_at( &attr->where, "inapplicable attribute %s for argument %s\n",
537 allowed_attr[attr->type].display_name, arg->name );
538 }
539 }
Windows API implementation