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 "sal/config.h"
21 :
22 : #include <cassert>
23 : #include <cstdlib>
24 : #include <new>
25 : #include <vector>
26 :
27 : #include "boost/noncopyable.hpp"
28 : #include "com/sun/star/io/IOException.hpp"
29 : #include "com/sun/star/uno/Reference.hxx"
30 : #include "com/sun/star/uno/RuntimeException.hpp"
31 : #include "com/sun/star/uno/Sequence.hxx"
32 : #include "com/sun/star/uno/XInterface.hpp"
33 : #include "cppu/unotype.hxx"
34 : #include "rtl/byteseq.hxx"
35 : #include "rtl/ref.hxx"
36 : #include "rtl/textcvt.h"
37 : #include "rtl/textenc.h"
38 : #include "rtl/ustring.h"
39 : #include "rtl/ustring.hxx"
40 : #include "sal/types.h"
41 : #include "typelib/typeclass.h"
42 : #include "typelib/typedescription.h"
43 : #include "typelib/typedescription.hxx"
44 : #include "uno/any2.h"
45 : #include "uno/data.h"
46 : #include "uno/dispatcher.hxx"
47 :
48 : #include "binaryany.hxx"
49 : #include "bridge.hxx"
50 : #include "cache.hxx"
51 : #include "readerstate.hxx"
52 : #include "unmarshal.hxx"
53 :
54 : namespace binaryurp {
55 :
56 : namespace {
57 :
58 0 : void * allocate(sal_Size size) {
59 0 : void * p = rtl_allocateMemory(size);
60 0 : if (p == 0) {
61 0 : throw std::bad_alloc();
62 : }
63 0 : return p;
64 : }
65 :
66 0 : std::vector< BinaryAny >::iterator copyMemberValues(
67 : css::uno::TypeDescription const & type,
68 : std::vector< BinaryAny >::iterator const & it, void * buffer) throw ()
69 : {
70 : assert(
71 : type.is() &&
72 : (type.get()->eTypeClass == typelib_TypeClass_STRUCT ||
73 : type.get()->eTypeClass == typelib_TypeClass_EXCEPTION) &&
74 : buffer != 0);
75 0 : type.makeComplete();
76 0 : std::vector< BinaryAny >::iterator i(it);
77 : typelib_CompoundTypeDescription * ctd =
78 0 : reinterpret_cast< typelib_CompoundTypeDescription * >(type.get());
79 0 : if (ctd->pBaseTypeDescription != 0) {
80 : i = copyMemberValues(
81 : css::uno::TypeDescription(&ctd->pBaseTypeDescription->aBase), i,
82 0 : buffer);
83 : }
84 0 : for (sal_Int32 j = 0; j != ctd->nMembers; ++j) {
85 : uno_type_copyData(
86 0 : static_cast< char * >(buffer) + ctd->pMemberOffsets[j],
87 : const_cast< void * >(
88 0 : i++->getValue(css::uno::TypeDescription(ctd->ppTypeRefs[j]))),
89 0 : ctd->ppTypeRefs[j], 0);
90 : }
91 0 : return i;
92 : }
93 :
94 : }
95 :
96 2 : Unmarshal::Unmarshal(
97 : rtl::Reference< Bridge > const & bridge, ReaderState & state,
98 : css::uno::Sequence< sal_Int8 > const & buffer):
99 2 : bridge_(bridge), state_(state), buffer_(buffer)
100 : {
101 2 : data_ = reinterpret_cast< sal_uInt8 const * >(buffer_.getConstArray());
102 2 : end_ = data_ + buffer_.getLength();
103 2 : }
104 :
105 2 : Unmarshal::~Unmarshal() {}
106 :
107 4 : sal_uInt8 Unmarshal::read8() {
108 4 : check(1);
109 4 : return *data_++;
110 : }
111 :
112 2 : sal_uInt16 Unmarshal::read16() {
113 2 : check(2);
114 2 : sal_uInt16 n = static_cast< sal_uInt16 >(*data_++) << 8;
115 2 : return n | *data_++;
116 : }
117 :
118 0 : sal_uInt32 Unmarshal::read32() {
119 0 : check(4);
120 0 : sal_uInt32 n = static_cast< sal_uInt32 >(*data_++) << 24;
121 0 : n |= static_cast< sal_uInt32 >(*data_++) << 16;
122 0 : n |= static_cast< sal_uInt32 >(*data_++) << 8;
123 0 : return n | *data_++;
124 : }
125 :
126 2 : css::uno::TypeDescription Unmarshal::readType() {
127 2 : sal_uInt8 flags = read8();
128 2 : typelib_TypeClass tc = static_cast< typelib_TypeClass >(flags & 0x7F);
129 2 : switch (tc) {
130 : case typelib_TypeClass_VOID:
131 : case typelib_TypeClass_BOOLEAN:
132 : case typelib_TypeClass_BYTE:
133 : case typelib_TypeClass_SHORT:
134 : case typelib_TypeClass_UNSIGNED_SHORT:
135 : case typelib_TypeClass_LONG:
136 : case typelib_TypeClass_UNSIGNED_LONG:
137 : case typelib_TypeClass_HYPER:
138 : case typelib_TypeClass_UNSIGNED_HYPER:
139 : case typelib_TypeClass_FLOAT:
140 : case typelib_TypeClass_DOUBLE:
141 : case typelib_TypeClass_CHAR:
142 : case typelib_TypeClass_STRING:
143 : case typelib_TypeClass_TYPE:
144 : case typelib_TypeClass_ANY:
145 0 : if ((flags & 0x80) != 0) {
146 : throw css::io::IOException(
147 : "binaryurp::Unmarshal: cache flag of simple type is set",
148 0 : css::uno::Reference< css::uno::XInterface >());
149 : }
150 : return css::uno::TypeDescription(
151 : *typelib_static_type_getByTypeClass(
152 0 : static_cast< typelib_TypeClass >(tc)));
153 : case typelib_TypeClass_SEQUENCE:
154 : case typelib_TypeClass_ENUM:
155 : case typelib_TypeClass_STRUCT:
156 : case typelib_TypeClass_EXCEPTION:
157 : case typelib_TypeClass_INTERFACE:
158 : {
159 2 : sal_uInt16 idx = readCacheIndex();
160 2 : if ((flags & 0x80) == 0) {
161 0 : if (idx == cache::ignore || !state_.typeCache[idx].is()) {
162 : throw css::io::IOException(
163 : "binaryurp::Unmarshal: unknown type cache index",
164 0 : css::uno::Reference< css::uno::XInterface >());
165 : }
166 0 : return state_.typeCache[idx];
167 : } else {
168 2 : OUString const str(readString());
169 2 : css::uno::TypeDescription t(str);
170 4 : if (!t.is() ||
171 2 : t.get()->eTypeClass != static_cast< typelib_TypeClass >(tc))
172 : {
173 :
174 : throw css::io::IOException(
175 : "binaryurp::Unmarshal: type with unknown name: " + str,
176 0 : css::uno::Reference< css::uno::XInterface >());
177 : }
178 5 : for (css::uno::TypeDescription t2(t);
179 3 : t2.get()->eTypeClass == typelib_TypeClass_SEQUENCE;)
180 : {
181 2 : t2.makeComplete();
182 : t2 = css::uno::TypeDescription(
183 : reinterpret_cast< typelib_IndirectTypeDescription * >(
184 2 : t2.get())->pType);
185 2 : if (!t2.is()) {
186 : throw css::io::IOException(
187 : ("binaryurp::Unmarshal: sequence type with unknown"
188 : " component type"),
189 0 : css::uno::Reference< css::uno::XInterface >());
190 : }
191 2 : switch (t2.get()->eTypeClass) {
192 : case typelib_TypeClass_VOID:
193 : case typelib_TypeClass_EXCEPTION:
194 : throw css::io::IOException(
195 : ("binaryurp::Unmarshal: sequence type with bad"
196 : " component type"),
197 1 : css::uno::Reference< css::uno::XInterface >());
198 : default:
199 1 : break;
200 : }
201 2 : }
202 1 : if (idx != cache::ignore) {
203 0 : state_.typeCache[idx] = t;
204 : }
205 2 : return t;
206 : }
207 : }
208 : default:
209 : throw css::io::IOException(
210 : "binaryurp::Unmarshal: type of unknown type class",
211 0 : css::uno::Reference< css::uno::XInterface >());
212 : }
213 : }
214 :
215 0 : OUString Unmarshal::readOid() {
216 0 : OUString oid(readString());
217 0 : for (sal_Int32 i = 0; i != oid.getLength(); ++i) {
218 0 : if (oid[i] > 0x7F) {
219 : throw css::io::IOException(
220 : "binaryurp::Unmarshal: OID contains non-ASCII character",
221 0 : css::uno::Reference< css::uno::XInterface >());
222 : }
223 : }
224 0 : sal_uInt16 idx = readCacheIndex();
225 0 : if (oid.isEmpty() && idx != cache::ignore) {
226 0 : if (state_.oidCache[idx].isEmpty()) {
227 : throw css::io::IOException(
228 : "binaryurp::Unmarshal: unknown OID cache index",
229 0 : css::uno::Reference< css::uno::XInterface >());
230 : }
231 0 : return state_.oidCache[idx];
232 : }
233 0 : if (idx != cache::ignore) {
234 0 : state_.oidCache[idx] = oid;
235 : }
236 0 : return oid;
237 : }
238 :
239 0 : rtl::ByteSequence Unmarshal::readTid() {
240 : rtl::ByteSequence tid(
241 : *static_cast< sal_Sequence * const * >(
242 : readSequence(
243 : css::uno::TypeDescription(
244 0 : cppu::UnoType< css::uno::Sequence< sal_Int8 > >::get())).
245 : getValue(
246 : css::uno::TypeDescription(
247 0 : cppu::UnoType< css::uno::Sequence< sal_Int8 > >::get()))));
248 0 : sal_uInt16 idx = readCacheIndex();
249 0 : if (tid.getLength() == 0) {
250 0 : if (idx == cache::ignore || state_.tidCache[idx].getLength() == 0) {
251 : throw css::io::IOException(
252 : "binaryurp::Unmarshal: unknown TID cache index",
253 0 : css::uno::Reference< css::uno::XInterface >());
254 : }
255 0 : return state_.tidCache[idx];
256 : }
257 0 : if (idx != cache::ignore) {
258 0 : state_.tidCache[idx] = tid;
259 : }
260 0 : return tid;
261 : }
262 :
263 0 : BinaryAny Unmarshal::readValue(css::uno::TypeDescription const & type) {
264 : assert(type.is());
265 0 : switch (type.get()->eTypeClass) {
266 : default:
267 0 : std::abort(); // this cannot happen
268 : // pseudo fall-through to avoid compiler warnings
269 : case typelib_TypeClass_VOID:
270 0 : return BinaryAny();
271 : case typelib_TypeClass_BOOLEAN:
272 : {
273 0 : sal_uInt8 v = read8();
274 0 : if (v > 1) {
275 : throw css::io::IOException(
276 : "binaryurp::Unmarshal: boolean of unknown value",
277 0 : css::uno::Reference< css::uno::XInterface >());
278 : }
279 0 : return BinaryAny(type, &v);
280 : }
281 : case typelib_TypeClass_BYTE:
282 : {
283 0 : sal_uInt8 v = read8();
284 0 : return BinaryAny(type, &v);
285 : }
286 : case typelib_TypeClass_SHORT:
287 : case typelib_TypeClass_UNSIGNED_SHORT:
288 : case typelib_TypeClass_CHAR:
289 : {
290 0 : sal_uInt16 v = read16();
291 0 : return BinaryAny(type, &v);
292 : }
293 : case typelib_TypeClass_LONG:
294 : case typelib_TypeClass_UNSIGNED_LONG:
295 : case typelib_TypeClass_FLOAT:
296 : {
297 0 : sal_uInt32 v = read32();
298 0 : return BinaryAny(type, &v);
299 : }
300 : case typelib_TypeClass_HYPER:
301 : case typelib_TypeClass_UNSIGNED_HYPER:
302 : case typelib_TypeClass_DOUBLE:
303 : {
304 0 : sal_uInt64 v = read64();
305 0 : return BinaryAny(type, &v);
306 : }
307 : case typelib_TypeClass_STRING:
308 : {
309 0 : OUString v(readString());
310 0 : return BinaryAny(type, &v.pData);
311 : }
312 : case typelib_TypeClass_TYPE:
313 : {
314 0 : css::uno::TypeDescription v(readType());
315 0 : typelib_TypeDescription * p = v.get();
316 0 : return BinaryAny(type, &p);
317 : }
318 : case typelib_TypeClass_ANY:
319 : {
320 0 : css::uno::TypeDescription t(readType());
321 0 : if (t.get()->eTypeClass == typelib_TypeClass_ANY) {
322 : throw css::io::IOException(
323 : "binaryurp::Unmarshal: any of type ANY",
324 0 : css::uno::Reference< css::uno::XInterface >());
325 : }
326 0 : return readValue(t);
327 : }
328 : case typelib_TypeClass_SEQUENCE:
329 0 : type.makeComplete();
330 0 : return readSequence(type);
331 : case typelib_TypeClass_ENUM:
332 : {
333 0 : sal_Int32 v = static_cast< sal_Int32 >(read32());
334 0 : type.makeComplete();
335 : typelib_EnumTypeDescription * etd =
336 0 : reinterpret_cast< typelib_EnumTypeDescription * >(type.get());
337 0 : bool found = false;
338 0 : for (sal_Int32 i = 0; i != etd->nEnumValues; ++i) {
339 0 : if (etd->pEnumValues[i] == v) {
340 0 : found = true;
341 0 : break;
342 : }
343 : }
344 0 : if (!found) {
345 : throw css::io::IOException(
346 : "binaryurp::Unmarshal: unknown enum value",
347 0 : css::uno::Reference< css::uno::XInterface >());
348 : }
349 0 : return BinaryAny(type, &v);
350 : }
351 : case typelib_TypeClass_STRUCT:
352 : case typelib_TypeClass_EXCEPTION:
353 : {
354 0 : std::vector< BinaryAny > as;
355 0 : readMemberValues(type, &as);
356 0 : void * buf = allocate(type.get()->nSize);
357 0 : copyMemberValues(type, as.begin(), buf);
358 : uno_Any raw;
359 : raw.pType = reinterpret_cast< typelib_TypeDescriptionReference * >(
360 0 : type.get());
361 0 : raw.pData = buf;
362 0 : raw.pReserved = 0;
363 0 : return BinaryAny(raw);
364 : }
365 : case typelib_TypeClass_INTERFACE:
366 : {
367 : css::uno::UnoInterfaceReference obj(
368 0 : bridge_->registerIncomingInterface(readOid(), type));
369 0 : return BinaryAny(type, &obj.m_pUnoI);
370 : }
371 : }
372 : }
373 :
374 1 : void Unmarshal::done() const {
375 1 : if (data_ != end_) {
376 : throw css::io::IOException(
377 : "binaryurp::Unmarshal: block contains excess data",
378 0 : css::uno::Reference< css::uno::XInterface >());
379 : }
380 1 : }
381 :
382 8 : void Unmarshal::check(sal_Int32 size) const {
383 8 : if (end_ - data_ < size) {
384 : throw css::io::IOException(
385 : "binaryurp::Unmarshal: trying to read past end of block",
386 0 : css::uno::Reference< css::uno::XInterface >());
387 : }
388 8 : }
389 :
390 2 : sal_uInt32 Unmarshal::readCompressed() {
391 2 : sal_uInt8 n = read8();
392 2 : return n == 0xFF ? read32() : n;
393 : }
394 :
395 2 : sal_uInt16 Unmarshal::readCacheIndex() {
396 2 : sal_uInt16 idx = read16();
397 2 : if (idx >= cache::size && idx != cache::ignore) {
398 : throw css::io::IOException(
399 : "binaryurp::Unmarshal: cache index out of range",
400 0 : css::uno::Reference< css::uno::XInterface >());
401 : }
402 2 : return idx;
403 : }
404 :
405 0 : sal_uInt64 Unmarshal::read64() {
406 0 : check(8);
407 0 : sal_uInt64 n = static_cast< sal_uInt64 >(*data_++) << 56;
408 0 : n |= static_cast< sal_uInt64 >(*data_++) << 48;
409 0 : n |= static_cast< sal_uInt64 >(*data_++) << 40;
410 0 : n |= static_cast< sal_uInt64 >(*data_++) << 32;
411 0 : n |= static_cast< sal_uInt64 >(*data_++) << 24;
412 0 : n |= static_cast< sal_uInt64 >(*data_++) << 16;
413 0 : n |= static_cast< sal_uInt64 >(*data_++) << 8;
414 0 : return n | *data_++;
415 : }
416 :
417 2 : OUString Unmarshal::readString() {
418 2 : sal_uInt32 n = readCompressed();
419 2 : if (n > SAL_MAX_INT32) {
420 : throw css::uno::RuntimeException(
421 : "binaryurp::Unmarshal: string size too large",
422 0 : css::uno::Reference< css::uno::XInterface >());
423 : }
424 2 : check(static_cast< sal_Int32 >(n));
425 2 : OUString s;
426 2 : if (!rtl_convertStringToUString(
427 : &s.pData, reinterpret_cast< char const * >(data_),
428 : static_cast< sal_Int32 >(n), RTL_TEXTENCODING_UTF8,
429 : (RTL_TEXTTOUNICODE_FLAGS_UNDEFINED_ERROR |
430 : RTL_TEXTTOUNICODE_FLAGS_MBUNDEFINED_ERROR |
431 2 : RTL_TEXTTOUNICODE_FLAGS_INVALID_ERROR)))
432 : {
433 : throw css::io::IOException(
434 : "binaryurp::Unmarshal: string does not contain UTF-8",
435 0 : css::uno::Reference< css::uno::XInterface >());
436 : }
437 2 : data_ += n;
438 2 : return s;
439 : }
440 :
441 0 : BinaryAny Unmarshal::readSequence(css::uno::TypeDescription const & type) {
442 : assert(type.is() && type.get()->eTypeClass == typelib_TypeClass_SEQUENCE);
443 0 : sal_uInt32 n = readCompressed();
444 0 : if (n > SAL_MAX_INT32) {
445 : throw css::uno::RuntimeException(
446 : "binaryurp::Unmarshal: sequence size too large",
447 0 : css::uno::Reference< css::uno::XInterface >());
448 : }
449 0 : if (n == 0) {
450 0 : return BinaryAny(type, 0);
451 : }
452 : css::uno::TypeDescription ctd(
453 : reinterpret_cast< typelib_IndirectTypeDescription * >(
454 0 : type.get())->pType);
455 0 : if (ctd.get()->eTypeClass == typelib_TypeClass_BYTE) {
456 0 : check(static_cast< sal_Int32 >(n));
457 : rtl::ByteSequence s(
458 : reinterpret_cast< sal_Int8 const * >(data_),
459 0 : static_cast< sal_Int32 >(n));
460 0 : data_ += n;
461 0 : sal_Sequence * p = s.getHandle();
462 0 : return BinaryAny(type, &p);
463 : }
464 0 : std::vector< BinaryAny > as;
465 0 : for (sal_uInt32 i = 0; i != n; ++i) {
466 0 : as.push_back(readValue(ctd));
467 : }
468 : assert(ctd.get()->nSize >= 0);
469 : sal_uInt64 size = static_cast< sal_uInt64 >(n) *
470 0 : static_cast< sal_uInt64 >(ctd.get()->nSize);
471 : // sal_uInt32 * sal_Int32 -> sal_uInt64 cannot overflow
472 0 : if (size > SAL_MAX_SIZE - SAL_SEQUENCE_HEADER_SIZE) {
473 : throw css::uno::RuntimeException(
474 : "binaryurp::Unmarshal: sequence size too large",
475 0 : css::uno::Reference< css::uno::XInterface >());
476 : }
477 : void * buf = allocate(
478 0 : SAL_SEQUENCE_HEADER_SIZE + static_cast< sal_Size >(size));
479 0 : static_cast< sal_Sequence * >(buf)->nRefCount = 0;
480 : static_cast< sal_Sequence * >(buf)->nElements =
481 0 : static_cast< sal_Int32 >(n);
482 0 : for (sal_uInt32 i = 0; i != n; ++i) {
483 : uno_copyData(
484 0 : static_cast< sal_Sequence * >(buf)->elements + i * ctd.get()->nSize,
485 0 : const_cast< void * >(as[i].getValue(ctd)), ctd.get(), 0);
486 : }
487 0 : return BinaryAny(type, reinterpret_cast< sal_Sequence ** >(&buf));
488 : }
489 :
490 0 : void Unmarshal::readMemberValues(
491 : css::uno::TypeDescription const & type, std::vector< BinaryAny > * values)
492 : {
493 : assert(
494 : type.is() &&
495 : (type.get()->eTypeClass == typelib_TypeClass_STRUCT ||
496 : type.get()->eTypeClass == typelib_TypeClass_EXCEPTION) &&
497 : values != 0);
498 0 : type.makeComplete();
499 : typelib_CompoundTypeDescription * ctd =
500 0 : reinterpret_cast< typelib_CompoundTypeDescription * >(type.get());
501 0 : if (ctd->pBaseTypeDescription != 0) {
502 : readMemberValues(
503 : css::uno::TypeDescription(&ctd->pBaseTypeDescription->aBase),
504 0 : values);
505 : }
506 0 : for (sal_Int32 i = 0; i != ctd->nMembers; ++i) {
507 : values->push_back(
508 0 : readValue(css::uno::TypeDescription(ctd->ppTypeRefs[i])));
509 : }
510 0 : }
511 :
512 : }
513 :
514 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
