1 | |
2 | |
3 | |
4 | |
5 | |
6 | |
7 | |
8 | |
9 | |
10 | |
11 | |
12 | |
13 | |
14 | |
15 | |
16 | |
17 | |
18 | |
19 | |
20 | #include <idlc/idlc.hxx> |
21 | #include <idlc/errorhandler.hxx> |
22 | #include <idlc/astscope.hxx> |
23 | #include <idlc/astmodule.hxx> |
24 | #include <idlc/astservice.hxx> |
25 | #include <idlc/astconstants.hxx> |
26 | #include <idlc/astexception.hxx> |
27 | #include <idlc/astunion.hxx> |
28 | #include <idlc/astenum.hxx> |
29 | #include <idlc/astinterface.hxx> |
30 | #include <idlc/astoperation.hxx> |
31 | #include <idlc/astbasetype.hxx> |
32 | #include "idlc/astdeclaration.hxx" |
33 | #include "idlc/astparameter.hxx" |
34 | #include "idlc/astsequence.hxx" |
35 | #include "idlc/asttype.hxx" |
36 | #include "idlc/asttypedef.hxx" |
37 | |
38 | #include <osl/diagnose.h> |
39 | #include <osl/file.hxx> |
40 | #include <osl/thread.h> |
41 | |
42 | using namespace ::rtl; |
43 | |
44 | AstDeclaration* SAL_CALL scopeAsDecl(AstScope* pScope) |
45 | { |
46 | if (pScope == NULL__null) return NULL__null; |
47 | |
48 | switch( pScope->getScopeNodeType() ) |
49 | { |
50 | case NT_service: |
51 | case NT_singleton: |
52 | return (AstService*)(pScope); |
53 | case NT_module: |
54 | case NT_root: |
55 | return (AstModule*)(pScope); |
56 | case NT_constants: |
57 | return (AstConstants*)(pScope); |
58 | case NT_interface: |
59 | return (AstInterface*)(pScope); |
60 | case NT_operation: |
61 | return (AstOperation*)(pScope); |
62 | case NT_exception: |
63 | return (AstException*)(pScope); |
64 | case NT_union: |
65 | return (AstUnion*)(pScope); |
66 | case NT_struct: |
67 | return (AstStruct*)(pScope); |
68 | case NT_enum: |
69 | return (AstEnum*)(pScope); |
70 | default: |
71 | return NULL__null; |
72 | } |
73 | } |
74 | |
75 | AstScope* SAL_CALL declAsScope(AstDeclaration* pDecl) |
76 | { |
77 | if (pDecl == NULL__null) return NULL__null; |
78 | |
79 | switch(pDecl->getNodeType()) |
80 | { |
81 | case NT_interface: |
82 | return (AstInterface*)(pDecl); |
83 | case NT_service: |
84 | case NT_singleton: |
85 | return (AstService*)(pDecl); |
86 | case NT_module: |
87 | case NT_root: |
88 | return (AstModule*)(pDecl); |
89 | case NT_constants: |
90 | return (AstConstants*)(pDecl); |
91 | case NT_exception: |
92 | return (AstException*)(pDecl); |
93 | case NT_union: |
94 | return (AstUnion*)(pDecl); |
95 | case NT_struct: |
96 | return (AstStruct*)(pDecl); |
97 | case NT_enum: |
98 | return (AstEnum*)(pDecl); |
99 | case NT_operation: |
100 | return (AstOperation*)(pDecl); |
101 | default: |
102 | return NULL__null; |
103 | } |
104 | } |
105 | |
106 | static void SAL_CALL predefineXInterface(AstModule* pRoot) |
107 | { |
108 | |
109 | AstModule* pParentScope = pRoot; |
110 | AstModule* pModule = new AstModule(OString("com"), pParentScope); |
111 | pModule->setPredefined(true); |
112 | pParentScope->addDeclaration(pModule); |
113 | pParentScope = pModule; |
114 | pModule = new AstModule(OString("sun"), pParentScope); |
115 | pModule->setPredefined(true); |
116 | pParentScope->addDeclaration(pModule); |
117 | pParentScope = pModule; |
118 | pModule = new AstModule(OString("star"), pParentScope); |
119 | pModule->setPredefined(true); |
120 | pParentScope->addDeclaration(pModule); |
121 | pParentScope = pModule; |
122 | pModule = new AstModule(OString("uno"), pParentScope); |
123 | pModule->setPredefined(true); |
124 | pParentScope->addDeclaration(pModule); |
125 | pParentScope = pModule; |
126 | |
127 | |
128 | AstInterface* pInterface = new AstInterface(OString("XInterface"), NULL__null, pParentScope); |
129 | pInterface->setDefined(); |
130 | pInterface->setPredefined(true); |
131 | pInterface->setPublished(); |
132 | pParentScope->addDeclaration(pInterface); |
133 | |
134 | |
135 | AstOperation* pOp = new AstOperation(0, (AstType*)(pRoot->lookupPrimitiveType(ET_any)), |
136 | OString("queryInterface"), pInterface); |
137 | AstParameter* pParam = new AstParameter(DIR_IN, false, |
138 | (AstType*)(pRoot->lookupPrimitiveType(ET_type)), |
139 | OString("aType"), pOp); |
140 | pOp->addDeclaration(pParam); |
141 | pInterface->addMember(pOp); |
142 | |
143 | |
144 | pOp = new AstOperation(1, (AstType*)(pRoot->lookupPrimitiveType(ET_void)), |
145 | OString("acquire"), pInterface); |
146 | pInterface->addMember(pOp); |
147 | |
148 | |
149 | pOp = new AstOperation(1, (AstType*)(pRoot->lookupPrimitiveType(ET_void)), |
150 | OString("release"), pInterface); |
151 | pInterface->addMember(pOp); |
152 | } |
153 | |
154 | static void SAL_CALL initializePredefinedTypes(AstModule* pRoot) |
155 | { |
156 | AstBaseType* pPredefined = NULL__null; |
157 | if ( pRoot ) |
158 | { |
159 | pPredefined = new AstBaseType(ET_long, OString("long"), pRoot); |
160 | pRoot->addDeclaration(pPredefined); |
161 | |
162 | pPredefined = new AstBaseType(ET_ulong, OString("unsigned long"), pRoot); |
163 | pRoot->addDeclaration(pPredefined); |
164 | |
165 | pPredefined = new AstBaseType(ET_hyper, OString("hyper"), pRoot); |
166 | pRoot->addDeclaration(pPredefined); |
167 | |
168 | pPredefined = new AstBaseType(ET_uhyper, OString("unsigned hyper"), pRoot); |
169 | pRoot->addDeclaration(pPredefined); |
170 | |
171 | pPredefined = new AstBaseType(ET_short, OString("short"), pRoot); |
172 | pRoot->addDeclaration(pPredefined); |
173 | |
174 | pPredefined = new AstBaseType(ET_ushort, OString("unsigned short"), pRoot); |
175 | pRoot->addDeclaration(pPredefined); |
176 | |
177 | pPredefined = new AstBaseType(ET_float, OString("float"), pRoot); |
178 | pRoot->addDeclaration(pPredefined); |
179 | |
180 | pPredefined = new AstBaseType(ET_double, OString("double"), pRoot); |
181 | pRoot->addDeclaration(pPredefined); |
182 | |
183 | pPredefined = new AstBaseType(ET_char, OString("char"), pRoot); |
184 | pRoot->addDeclaration(pPredefined); |
185 | |
186 | pPredefined = new AstBaseType(ET_byte, OString("byte"), pRoot); |
187 | pRoot->addDeclaration(pPredefined); |
188 | |
189 | pPredefined = new AstBaseType(ET_any, OString("any"), pRoot); |
190 | pRoot->addDeclaration(pPredefined); |
191 | |
192 | pPredefined = new AstBaseType(ET_string, OString("string"), pRoot); |
193 | pRoot->addDeclaration(pPredefined); |
194 | |
195 | pPredefined = new AstBaseType(ET_type, OString("type"), pRoot); |
196 | pRoot->addDeclaration(pPredefined); |
197 | |
198 | pPredefined = new AstBaseType(ET_boolean, OString("boolean"), pRoot); |
199 | pRoot->addDeclaration(pPredefined); |
200 | |
201 | pPredefined = new AstBaseType(ET_void, OString("void"), pRoot); |
202 | pRoot->addDeclaration(pPredefined); |
203 | } |
204 | } |
205 | |
206 | Idlc::Idlc(Options* pOptions) |
207 | : m_pOptions(pOptions) |
208 | , m_bIsDocValid(sal_False((sal_Bool)0)) |
209 | , m_bIsInMainfile(sal_True((sal_Bool)1)) |
210 | , m_published(false) |
211 | , m_errorCount(0) |
212 | , m_warningCount(0) |
213 | , m_lineNumber(0) |
214 | , m_offsetStart(0) |
215 | , m_offsetEnd(0) |
216 | , m_parseState(PS_NoState) |
217 | { |
218 | m_pScopes = new AstStack(); |
219 | |
220 | m_pRoot = NULL__null; |
221 | m_pErrorHandler = new ErrorHandler(); |
222 | m_bGenerateDoc = m_pOptions->isValid("-C"); |
223 | } |
224 | |
225 | Idlc::~Idlc() |
226 | { |
227 | if (m_pRoot) |
228 | delete m_pRoot; |
229 | if (m_pScopes) |
230 | delete m_pScopes; |
231 | if (m_pErrorHandler) |
232 | delete m_pErrorHandler; |
233 | } |
234 | |
235 | void Idlc::init() |
236 | { |
237 | if ( m_pRoot ) |
238 | delete m_pRoot; |
239 | |
240 | m_pRoot = new AstModule(NT_root, OString(), NULL__null); |
241 | |
242 | |
243 | m_pScopes->push(m_pRoot); |
244 | initializePredefinedTypes(m_pRoot); |
245 | predefineXInterface(m_pRoot); |
246 | } |
247 | |
248 | void Idlc::reset() |
249 | { |
250 | m_bIsDocValid = sal_False((sal_Bool)0); |
251 | m_bIsInMainfile = sal_True((sal_Bool)1); |
252 | m_published = false; |
253 | |
254 | m_errorCount = 0; |
255 | m_warningCount = 0; |
256 | m_lineNumber = 0; |
257 | m_parseState = PS_NoState; |
258 | |
259 | m_fileName = OString(); |
260 | m_mainFileName = OString(); |
261 | m_realFileName = OString(); |
262 | m_documentation = OString(); |
263 | |
264 | m_pScopes->clear(); |
265 | if ( m_pRoot) |
266 | delete m_pRoot; |
267 | |
268 | m_pRoot = new AstModule(NT_root, OString(), NULL__null); |
269 | |
270 | |
271 | m_pScopes->push(m_pRoot); |
272 | initializePredefinedTypes(m_pRoot); |
273 | } |
274 | |
275 | sal_Bool Idlc::isDocValid() |
276 | { |
277 | if ( m_bGenerateDoc ) |
278 | return m_bIsDocValid; |
279 | return sal_False((sal_Bool)0);; |
280 | } |
281 | |
282 | static void lcl_writeString(::osl::File & rFile, ::osl::FileBase::RC & o_rRC, |
283 | ::rtl::OString const& rString) |
284 | { |
285 | sal_uInt64 nWritten(0); |
286 | if (::osl::FileBase::E_None == o_rRC) { |
287 | o_rRC = rFile.write(rString.getStr(), rString.getLength(), nWritten); |
288 | if (static_cast<sal_uInt64>(rString.getLength()) != nWritten) { |
289 | o_rRC = ::osl::FileBase::E_INVAL; |
290 | } |
291 | } |
292 | } |
293 | |
294 | struct WriteDep |
295 | { |
296 | ::osl::File& m_rFile; |
297 | ::osl::FileBase::RC & m_rRC; |
298 | explicit WriteDep(::osl::File & rFile, ::osl::FileBase::RC & rRC) |
299 | : m_rFile(rFile), m_rRC(rRC) { } |
300 | void operator() (::rtl::OString const& rEntry) |
301 | { |
302 | lcl_writeString(m_rFile, m_rRC, " \\\n "); |
303 | lcl_writeString(m_rFile, m_rRC, rEntry); |
304 | } |
305 | }; |
306 | |
307 | |
308 | |
309 | struct WriteDummy |
310 | { |
311 | ::osl::File& m_rFile; |
312 | ::osl::FileBase::RC & m_rRC; |
313 | explicit WriteDummy(::osl::File & rFile, ::osl::FileBase::RC & rRC) |
314 | : m_rFile(rFile), m_rRC(rRC) { } |
315 | void operator() (::rtl::OString const& rEntry) |
316 | { |
317 | lcl_writeString(m_rFile, m_rRC, rEntry); |
318 | lcl_writeString(m_rFile, m_rRC, ":\n\n"); |
319 | } |
320 | }; |
321 | |
322 | bool |
323 | Idlc::dumpDeps(::rtl::OString const& rDepFile, ::rtl::OString const& rTarget) |
324 | { |
325 | ::osl::File depFile( |
326 | ::rtl::OStringToOUString(rDepFile, osl_getThreadTextEncoding())); |
327 | ::osl::FileBase::RC rc = |
328 | depFile.open(osl_File_OpenFlag_Write0x00000002L | osl_File_OpenFlag_Create0x00000004L); |
329 | if (::osl::FileBase::E_None != rc) { |
330 | return false; |
331 | } |
332 | lcl_writeString(depFile, rc, rTarget); |
333 | if (::osl::FileBase::E_None != rc) { |
334 | return false; |
335 | } |
336 | lcl_writeString(depFile, rc, " :"); |
337 | if (::osl::FileBase::E_None != rc) { |
338 | return false; |
339 | } |
340 | m_includes.erase(getRealFileName()); |
341 | ::std::for_each(m_includes.begin(), m_includes.end(), |
342 | WriteDep(depFile, rc)); |
343 | lcl_writeString(depFile, rc, "\n\n"); |
344 | ::std::for_each(m_includes.begin(), m_includes.end(), |
345 | WriteDummy(depFile, rc)); |
346 | if (::osl::FileBase::E_None != rc) { |
347 | return false; |
348 | } |
349 | rc = depFile.close(); |
350 | return ::osl::FileBase::E_None == rc; |
351 | } |
352 | |
353 | static Idlc* pStaticIdlc = NULL__null; |
354 | |
355 | Idlc* SAL_CALL idlc() |
356 | { |
357 | return pStaticIdlc; |
358 | } |
359 | |
360 | Idlc* SAL_CALL setIdlc(Options* pOptions) |
361 | { |
362 | if ( pStaticIdlc ) |
363 | { |
364 | delete pStaticIdlc; |
365 | } |
366 | pStaticIdlc = new Idlc(pOptions); |
367 | pStaticIdlc->init(); |
368 | return pStaticIdlc; |
369 | } |
370 | |
371 | AstDeclaration const * resolveTypedefs(AstDeclaration const * type) { |
372 | if (type != 0) { |
373 | while (type->getNodeType() == NT_typedef) { |
374 | type = static_cast< AstTypeDef const * >(type)->getBaseType(); |
375 | } |
376 | } |
377 | return type; |
378 | } |
379 | |
380 | AstDeclaration const * deconstructAndResolveTypedefs( |
381 | AstDeclaration const * type, sal_Int32 * rank) |
382 | { |
383 | *rank = 0; |
384 | for (;;) { |
385 | if (type == 0) { |
386 | return 0; |
387 | } |
388 | switch (type->getNodeType()) { |
389 | case NT_typedef: |
390 | type = static_cast< AstTypeDef const * >(type)->getBaseType(); |
391 | break; |
392 | case NT_sequence: |
393 | ++(*rank); |
394 | type = static_cast< AstSequence const * >(type)->getMemberType(); |
395 | break; |
396 | default: |
397 | return type; |
398 | } |
399 | } |
400 | } |
401 | |
402 | AstInterface const * resolveInterfaceTypedefs(AstType const * type) { |
403 | AstDeclaration const * decl = resolveTypedefs(type); |
| 1 | Variable 'decl' initialized to a null pointer value | |
|
404 | OSL_ASSERT(decl->getNodeType() == NT_interface)do { if (true && (!(decl->getNodeType() == NT_interface ))) { sal_detail_logFormat((SAL_DETAIL_LOG_LEVEL_WARN), ("legacy.osl" ), ("/usr/local/src/libreoffice/idlc/source/idlc.cxx" ":" "404" ": "), "OSL_ASSERT: %s", "decl->getNodeType() == NT_interface" ); } } while (false); |
| 2 | | Within the expansion of the macro 'OSL_ASSERT':
|
a | Called C++ object pointer is null |
|
405 | return static_cast< AstInterface const * >(decl); |
406 | } |
407 | |
408 | |