Line data Source code
1 : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : /*
3 : * This file is part of the LibreOffice project.
4 : *
5 : * This Source Code Form is subject to the terms of the Mozilla Public
6 : * License, v. 2.0. If a copy of the MPL was not distributed with this
7 : * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 : *
9 : * This file incorporates work covered by the following license notice:
10 : *
11 : * Licensed to the Apache Software Foundation (ASF) under one or more
12 : * contributor license agreements. See the NOTICE file distributed
13 : * with this work for additional information regarding copyright
14 : * ownership. The ASF licenses this file to you under the Apache
15 : * License, Version 2.0 (the "License"); you may not use this file
16 : * except in compliance with the License. You may obtain a copy of
17 : * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 : */
19 :
20 : #include <idlc/astmodule.hxx>
21 : #include <idlc/asttypedef.hxx>
22 : #include <idlc/astservice.hxx>
23 : #include <idlc/astconstant.hxx>
24 : #include <idlc/astattribute.hxx>
25 : #include <idlc/astinterfacemember.hxx>
26 : #include <idlc/astservicemember.hxx>
27 : #include <idlc/astobserves.hxx>
28 : #include <idlc/astneeds.hxx>
29 : #include <idlc/astsequence.hxx>
30 : #include "idlc/astoperation.hxx"
31 :
32 : #include "registry/version.h"
33 : #include "registry/writer.hxx"
34 :
35 : using namespace ::rtl;
36 :
37 26905 : sal_Bool AstModule::dump(RegistryKey& rKey)
38 : {
39 26905 : OUString emptyStr;
40 26905 : RegistryKey localKey;
41 26905 : if ( getNodeType() == NT_root )
42 : {
43 5185 : localKey = rKey;
44 : }else
45 : {
46 21720 : if (rKey.createKey( OStringToOUString(getFullName(), RTL_TEXTENCODING_UTF8 ), localKey))
47 : {
48 : fprintf(stderr, "%s: warning, could not create key '%s' in '%s'\n",
49 0 : idlc()->getOptions()->getProgramName().getStr(),
50 0 : getFullName().getStr(), OUStringToOString(rKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
51 0 : return sal_False;
52 : }
53 : }
54 :
55 26905 : sal_uInt16 nConst = getNodeCount(NT_const);
56 :
57 26905 : if ( nConst > 0 )
58 : {
59 1176 : RTTypeClass typeClass = RT_TYPE_MODULE;
60 1176 : if ( getNodeType() == NT_constants )
61 1176 : typeClass = RT_TYPE_CONSTANTS;
62 :
63 : typereg::Writer aBlob(
64 : m_bPublished ? TYPEREG_VERSION_1 : TYPEREG_VERSION_0,
65 1176 : getDocumentation(), emptyStr, typeClass,
66 : m_bPublished,
67 1176 : OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8), 0,
68 3528 : nConst, 0, 0);
69 :
70 1176 : DeclList::const_iterator iter = getIteratorBegin();
71 1176 : DeclList::const_iterator end = getIteratorEnd();
72 1176 : AstDeclaration* pDecl = NULL;
73 1176 : sal_uInt16 index = 0;
74 14047 : while ( iter != end )
75 : {
76 11695 : pDecl = *iter;
77 23390 : if ( pDecl->getNodeType() == NT_const &&
78 11695 : pDecl->isInMainfile() )
79 : {
80 : ((AstConstant*)pDecl)->dumpBlob(
81 : aBlob, index++,
82 11695 : getNodeType() == NT_module && pDecl->isPublished());
83 : }
84 11695 : ++iter;
85 : }
86 :
87 : sal_uInt32 aBlobSize;
88 1176 : void const * pBlob = aBlob.getBlob(&aBlobSize);
89 :
90 1176 : if (localKey.setValue(emptyStr, RG_VALUETYPE_BINARY,
91 1176 : (RegValue)pBlob, aBlobSize))
92 : {
93 : fprintf(stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
94 0 : idlc()->getOptions()->getProgramName().getStr(),
95 0 : getFullName().getStr(), OUStringToOString(localKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
96 0 : return sal_False;
97 1176 : }
98 : } else
99 : {
100 25729 : RTTypeClass typeClass = RT_TYPE_MODULE;
101 25729 : if ( getNodeType() == NT_constants )
102 0 : typeClass = RT_TYPE_CONSTANTS;
103 :
104 : typereg::Writer aBlob(
105 : m_bPublished ? TYPEREG_VERSION_1 : TYPEREG_VERSION_0,
106 25729 : getDocumentation(), emptyStr, typeClass, m_bPublished,
107 25729 : OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8), 0, 0, 0,
108 51458 : 0);
109 :
110 : sal_uInt32 aBlobSize;
111 25729 : void const * pBlob = aBlob.getBlob(&aBlobSize);
112 :
113 25729 : if ( getNodeType() != NT_root )
114 : {
115 20544 : if (localKey.setValue(emptyStr, RG_VALUETYPE_BINARY,
116 20544 : (RegValue)pBlob, aBlobSize))
117 : {
118 : fprintf(stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
119 0 : idlc()->getOptions()->getProgramName().getStr(),
120 0 : getFullName().getStr(), OUStringToOString(localKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
121 0 : return sal_False;
122 : }
123 25729 : }
124 : }
125 26905 : if ( getNodeType() == NT_root )
126 : {
127 5185 : localKey.releaseKey();
128 : }
129 26905 : return AstDeclaration::dump(rKey);
130 : }
131 :
132 56 : sal_Bool AstTypeDef::dump(RegistryKey& rKey)
133 : {
134 56 : OUString emptyStr;
135 56 : RegistryKey localKey;
136 56 : if (rKey.createKey( OStringToOUString(getFullName(), RTL_TEXTENCODING_UTF8 ), localKey))
137 : {
138 : fprintf(stderr, "%s: warning, could not create key '%s' in '%s'\n",
139 0 : idlc()->getOptions()->getProgramName().getStr(),
140 0 : getFullName().getStr(), OUStringToOString(rKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
141 0 : return sal_False;
142 : }
143 :
144 : typereg::Writer aBlob(
145 : m_bPublished ? TYPEREG_VERSION_1 : TYPEREG_VERSION_0,
146 56 : getDocumentation(), emptyStr, RT_TYPE_TYPEDEF, m_bPublished,
147 112 : OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8), 1, 0, 0, 0);
148 : aBlob.setSuperTypeName(
149 : 0,
150 : OStringToOUString(
151 56 : getBaseType()->getRelativName(), RTL_TEXTENCODING_UTF8));
152 :
153 : sal_uInt32 aBlobSize;
154 56 : void const * pBlob = aBlob.getBlob(&aBlobSize);
155 :
156 56 : if (localKey.setValue(emptyStr, RG_VALUETYPE_BINARY, (RegValue)pBlob, aBlobSize))
157 : {
158 : fprintf(stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
159 0 : idlc()->getOptions()->getProgramName().getStr(),
160 0 : getFullName().getStr(), OUStringToOString(localKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
161 0 : return sal_False;
162 : }
163 :
164 56 : return sal_True;
165 : }
166 :
167 1623 : sal_Bool AstService::dump(RegistryKey& rKey)
168 : {
169 1623 : OUString emptyStr;
170 : typereg_Version version = m_bPublished
171 1623 : ? TYPEREG_VERSION_1 : TYPEREG_VERSION_0;
172 1623 : OString superName;
173 1623 : sal_uInt16 constructors = 0;
174 1623 : sal_uInt16 properties = 0;
175 1623 : sal_uInt16 references = 0;
176 8353 : {for (DeclList::const_iterator i(getIteratorBegin()); i != getIteratorEnd();
177 : ++i)
178 : {
179 6730 : switch ((*i)->getNodeType()) {
180 : case NT_interface:
181 : case NT_typedef:
182 536 : version = TYPEREG_VERSION_1;
183 : OSL_ASSERT(superName.isEmpty());
184 536 : superName = (*i)->getRelativName();
185 536 : break;
186 :
187 : case NT_operation:
188 : OSL_ASSERT(getNodeType() == NT_service);
189 249 : ++constructors;
190 249 : break;
191 :
192 : case NT_property:
193 : OSL_ASSERT(getNodeType() == NT_service);
194 3165 : ++properties;
195 3165 : break;
196 :
197 : case NT_service_member:
198 819 : if (getNodeType() == NT_singleton) {
199 : OSL_ASSERT(superName.isEmpty());
200 5 : superName = ((AstServiceMember *)(*i))->
201 5 : getRealService()->getRelativName();
202 5 : break;
203 : }
204 : case NT_interface_member:
205 : case NT_observes:
206 : case NT_needs:
207 : OSL_ASSERT(getNodeType() == NT_service);
208 2775 : ++references;
209 2775 : break;
210 :
211 : default:
212 : OSL_ASSERT(false);
213 0 : break;
214 : }
215 : }}
216 : OSL_ASSERT(constructors == 0 || !m_defaultConstructor);
217 1623 : if (m_defaultConstructor) {
218 145 : constructors = 1;
219 : }
220 1623 : RegistryKey localKey;
221 3246 : if (rKey.createKey(
222 1623 : rtl::OStringToOUString(getFullName(), RTL_TEXTENCODING_UTF8),
223 3246 : localKey)) {
224 : fprintf(
225 : stderr, "%s: warning, could not create key '%s' in '%s'\n",
226 0 : idlc()->getOptions()->getProgramName().getStr(),
227 0 : getFullName().getStr(),
228 : rtl::OUStringToOString(
229 0 : rKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
230 0 : return false;
231 : }
232 : typereg::Writer writer(
233 1623 : version, getDocumentation(), emptyStr,
234 1623 : getNodeType() == NT_singleton ? RT_TYPE_SINGLETON : RT_TYPE_SERVICE,
235 : m_bPublished,
236 1623 : rtl::OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8),
237 1623 : superName.isEmpty() ? 0 : 1, properties, constructors,
238 8115 : references);
239 1623 : if (!superName.isEmpty()) {
240 : writer.setSuperTypeName(
241 541 : 0, rtl::OStringToOUString(superName, RTL_TEXTENCODING_UTF8));
242 : }
243 1623 : sal_uInt16 constructorIndex = 0;
244 1623 : sal_uInt16 propertyIndex = 0;
245 1623 : sal_uInt16 referenceIndex = 0;
246 8353 : for (DeclList::const_iterator i(getIteratorBegin()); i != getIteratorEnd(); ++i)
247 : {
248 6730 : switch ((*i)->getNodeType()) {
249 : case NT_operation:
250 249 : ((AstOperation *)(*i))->dumpBlob(writer, constructorIndex++);
251 249 : break;
252 :
253 : case NT_property:
254 3165 : ((AstAttribute *)(*i))->dumpBlob(writer, propertyIndex++, 0);
255 3165 : break;
256 :
257 : case NT_interface_member:
258 : {
259 1961 : AstInterfaceMember * decl = (AstInterfaceMember *)(*i);
260 : writer.setReferenceData(
261 1961 : referenceIndex++, decl->getDocumentation(), RT_REF_SUPPORTS,
262 1961 : (decl->isOptional() ? RT_ACCESS_OPTIONAL : RT_ACCESS_INVALID),
263 1961 : rtl::OStringToOUString( decl->getRealInterface()->getRelativName(),
264 5883 : RTL_TEXTENCODING_UTF8));
265 1961 : break;
266 : }
267 :
268 : case NT_service_member:
269 819 : if (getNodeType() == NT_service)
270 : {
271 814 : AstServiceMember * decl = (AstServiceMember *)(*i);
272 814 : writer.setReferenceData(referenceIndex++, decl->getDocumentation(), RT_REF_EXPORTS,
273 814 : (decl->isOptional() ? RT_ACCESS_OPTIONAL : RT_ACCESS_INVALID),
274 814 : rtl::OStringToOUString(decl->getRealService()->getRelativName(),
275 2442 : RTL_TEXTENCODING_UTF8));
276 : }
277 819 : break;
278 :
279 : case NT_observes:
280 : {
281 0 : AstObserves * decl = (AstObserves *)(*i);
282 0 : writer.setReferenceData(referenceIndex++, decl->getDocumentation(), RT_REF_OBSERVES,
283 : RT_ACCESS_INVALID,
284 0 : rtl::OStringToOUString( decl->getRealInterface()->getRelativName(),
285 0 : RTL_TEXTENCODING_UTF8));
286 0 : break;
287 : }
288 :
289 : case NT_needs:
290 : {
291 0 : AstNeeds * decl = (AstNeeds *)(*i);
292 0 : writer.setReferenceData( referenceIndex++, decl->getDocumentation(), RT_REF_NEEDS,
293 : RT_ACCESS_INVALID,
294 0 : rtl::OStringToOUString( decl->getRealService()->getRelativName(),
295 0 : RTL_TEXTENCODING_UTF8));
296 0 : break;
297 : }
298 :
299 : default:
300 : OSL_ASSERT( (*i)->getNodeType() == NT_interface || (*i)->getNodeType() == NT_typedef);
301 536 : break;
302 : }
303 : }
304 1623 : if (m_defaultConstructor) {
305 : writer.setMethodData(
306 : constructorIndex++, emptyStr, RT_MODE_TWOWAY,
307 : emptyStr, rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("void")),
308 145 : 0, 0);
309 : }
310 : sal_uInt32 size;
311 1623 : void const * blob = writer.getBlob(&size);
312 1623 : if (localKey.setValue(
313 : emptyStr, RG_VALUETYPE_BINARY, const_cast< void * >(blob),
314 1623 : size))
315 : {
316 : fprintf(
317 : stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
318 0 : idlc()->getOptions()->getProgramName().getStr(),
319 0 : getFullName().getStr(),
320 : rtl::OUStringToOString(
321 0 : localKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
322 0 : return false;
323 : }
324 1623 : return true;
325 : }
326 :
327 4269 : sal_Bool AstAttribute::dumpBlob(
328 : typereg::Writer & rBlob, sal_uInt16 index, sal_uInt16 * methodIndex)
329 : {
330 4269 : RTFieldAccess accessMode = RT_ACCESS_INVALID;
331 :
332 4269 : if (isReadonly())
333 : {
334 490 : accessMode |= RT_ACCESS_READONLY;
335 : } else
336 : {
337 3779 : accessMode |= RT_ACCESS_READWRITE;
338 : }
339 4269 : if (isOptional())
340 : {
341 1057 : accessMode |= RT_ACCESS_OPTIONAL;
342 : }
343 4269 : if (isBound())
344 : {
345 157 : accessMode |= RT_ACCESS_BOUND;
346 : }
347 4269 : if (isMayBeVoid())
348 : {
349 126 : accessMode |= RT_ACCESS_MAYBEVOID;
350 : }
351 4269 : if (isConstrained())
352 : {
353 0 : accessMode |= RT_ACCESS_CONSTRAINED;
354 : }
355 4269 : if (isTransient())
356 : {
357 6 : accessMode |= RT_ACCESS_TRANSIENT;
358 : }
359 4269 : if (isMayBeAmbiguous())
360 : {
361 0 : accessMode |= RT_ACCESS_MAYBEAMBIGUOUS;
362 : }
363 4269 : if (isMayBeDefault())
364 : {
365 3 : accessMode |= RT_ACCESS_MAYBEDEFAULT;
366 : }
367 4269 : if (isRemoveable())
368 : {
369 0 : accessMode |= RT_ACCESS_REMOVEABLE;
370 : }
371 :
372 4269 : OUString name(OStringToOUString(getLocalName(), RTL_TEXTENCODING_UTF8));
373 : rBlob.setFieldData(
374 4269 : index, getDocumentation(), OUString(), accessMode, name,
375 4269 : OStringToOUString(getType()->getRelativName(), RTL_TEXTENCODING_UTF8),
376 12807 : RTConstValue());
377 : dumpExceptions(
378 : rBlob, m_getDocumentation, m_getExceptions, RT_MODE_ATTRIBUTE_GET,
379 4269 : methodIndex);
380 : dumpExceptions(
381 : rBlob, m_setDocumentation, m_setExceptions, RT_MODE_ATTRIBUTE_SET,
382 4269 : methodIndex);
383 :
384 4269 : return sal_True;
385 : }
386 :
387 8538 : void AstAttribute::dumpExceptions(
388 : typereg::Writer & writer, rtl::OUString const & documentation,
389 : DeclList const & exceptions, RTMethodMode flags, sal_uInt16 * methodIndex)
390 : {
391 8538 : if (!exceptions.empty()) {
392 : OSL_ASSERT(methodIndex != 0);
393 195 : sal_uInt16 idx = (*methodIndex)++;
394 : // exceptions.size() <= SAL_MAX_UINT16 already checked in
395 : // AstInterface::dump:
396 : writer.setMethodData(
397 : idx, documentation, flags,
398 195 : OStringToOUString(getLocalName(), RTL_TEXTENCODING_UTF8),
399 : rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("void")), 0,
400 390 : static_cast< sal_uInt16 >(exceptions.size()));
401 195 : sal_uInt16 exceptionIndex = 0;
402 1203 : for (DeclList::const_iterator i(exceptions.begin());
403 802 : i != exceptions.end(); ++i)
404 : {
405 : writer.setMethodExceptionTypeName(
406 : idx, exceptionIndex++,
407 : rtl::OStringToOUString(
408 206 : (*i)->getRelativName(), RTL_TEXTENCODING_UTF8));
409 : }
410 : }
411 8538 : }
412 :
413 1360 : const sal_Char* AstSequence::getRelativName() const
414 : {
415 1360 : if ( !m_pRelativName )
416 : {
417 899 : m_pRelativName = new OString("[]");
418 899 : AstDeclaration const * pType = resolveTypedefs( m_pMemberType );
419 899 : *m_pRelativName += pType->getRelativName();
420 : }
421 :
422 1360 : return m_pRelativName->getStr();
423 : }
424 :
425 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|