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 214 : void * allocate(sal_Size size) {
59 214 : void * p = rtl_allocateMemory(size);
60 214 : if (p == 0) {
61 0 : throw std::bad_alloc();
62 : }
63 214 : return p;
64 : }
65 :
66 106 : 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 106 : type.makeComplete();
76 106 : std::vector< BinaryAny >::iterator i(it);
77 : typelib_CompoundTypeDescription * ctd =
78 106 : reinterpret_cast< typelib_CompoundTypeDescription * >(type.get());
79 106 : if (ctd->pBaseTypeDescription != 0) {
80 : i = copyMemberValues(
81 : css::uno::TypeDescription(&ctd->pBaseTypeDescription->aBase), i,
82 0 : buffer);
83 : }
84 358 : for (sal_Int32 j = 0; j != ctd->nMembers; ++j) {
85 : uno_type_copyData(
86 504 : static_cast< char * >(buffer) + ctd->pMemberOffsets[j],
87 : const_cast< void * >(
88 504 : i++->getValue(css::uno::TypeDescription(ctd->ppTypeRefs[j]))),
89 756 : ctd->ppTypeRefs[j], 0);
90 : }
91 106 : return i;
92 : }
93 :
94 : }
95 :
96 4006 : Unmarshal::Unmarshal(
97 : rtl::Reference< Bridge > const & bridge, ReaderState & state,
98 : css::uno::Sequence< sal_Int8 > const & buffer):
99 4006 : bridge_(bridge), state_(state), buffer_(buffer)
100 : {
101 4006 : data_ = reinterpret_cast< sal_uInt8 const * >(buffer_.getConstArray());
102 4006 : end_ = data_ + buffer_.getLength();
103 4006 : }
104 :
105 4006 : Unmarshal::~Unmarshal() {}
106 :
107 9028 : sal_uInt8 Unmarshal::read8() {
108 9028 : check(1);
109 9028 : return *data_++;
110 : }
111 :
112 3981 : sal_uInt16 Unmarshal::read16() {
113 3981 : check(2);
114 3981 : sal_uInt16 n = static_cast< sal_uInt16 >(*data_++) << 8;
115 3981 : return n | *data_++;
116 : }
117 :
118 4453 : sal_uInt32 Unmarshal::read32() {
119 4453 : check(4);
120 4453 : sal_uInt32 n = static_cast< sal_uInt32 >(*data_++) << 24;
121 4453 : n |= static_cast< sal_uInt32 >(*data_++) << 16;
122 4453 : n |= static_cast< sal_uInt32 >(*data_++) << 8;
123 4453 : return n | *data_++;
124 : }
125 :
126 2462 : css::uno::TypeDescription Unmarshal::readType() {
127 2462 : sal_uInt8 flags = read8();
128 2462 : typelib_TypeClass tc = static_cast< typelib_TypeClass >(flags & 0x7F);
129 2462 : 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 1345 : 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 1345 : 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 1117 : sal_uInt16 idx = readCacheIndex();
160 1117 : if ((flags & 0x80) == 0) {
161 1000 : 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 1000 : return state_.typeCache[idx];
167 : } else {
168 117 : OUString const str(readString());
169 117 : css::uno::TypeDescription t(str);
170 234 : if (!t.is() ||
171 117 : 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 242 : for (css::uno::TypeDescription t2(t);
179 125 : t2.get()->eTypeClass == typelib_TypeClass_SEQUENCE;)
180 : {
181 10 : t2.makeComplete();
182 : t2 = css::uno::TypeDescription(
183 : reinterpret_cast< typelib_IndirectTypeDescription * >(
184 10 : t2.get())->pType);
185 10 : 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 10 : 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 2 : css::uno::Reference< css::uno::XInterface >());
198 : default:
199 8 : break;
200 : }
201 117 : }
202 115 : if (idx != cache::ignore) {
203 113 : state_.typeCache[idx] = t;
204 : }
205 117 : 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 2562 : OUString Unmarshal::readOid() {
216 2562 : OUString oid(readString());
217 13550 : for (sal_Int32 i = 0; i != oid.getLength(); ++i) {
218 10988 : 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 2562 : sal_uInt16 idx = readCacheIndex();
225 2562 : if (oid.isEmpty() && idx != cache::ignore) {
226 464 : 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 464 : return state_.oidCache[idx];
232 : }
233 2098 : if (idx != cache::ignore) {
234 239 : state_.oidCache[idx] = oid;
235 : }
236 2098 : return oid;
237 : }
238 :
239 262 : rtl::ByteSequence Unmarshal::readTid() {
240 : rtl::ByteSequence tid(
241 : *static_cast< sal_Sequence * const * >(
242 : readSequence(
243 : css::uno::TypeDescription(
244 262 : cppu::UnoType< css::uno::Sequence< sal_Int8 > >::get())).
245 : getValue(
246 : css::uno::TypeDescription(
247 524 : cppu::UnoType< css::uno::Sequence< sal_Int8 > >::get()))));
248 262 : sal_uInt16 idx = readCacheIndex();
249 262 : if (tid.getLength() == 0) {
250 230 : 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 230 : return state_.tidCache[idx];
256 : }
257 32 : if (idx != cache::ignore) {
258 32 : state_.tidCache[idx] = tid;
259 : }
260 32 : return tid;
261 : }
262 :
263 5403 : BinaryAny Unmarshal::readValue(css::uno::TypeDescription const & type) {
264 : assert(type.is());
265 5403 : 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 8 : return BinaryAny();
271 : case typelib_TypeClass_BOOLEAN:
272 : {
273 69 : sal_uInt8 v = read8();
274 69 : 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 69 : 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 40 : sal_uInt16 v = read16();
291 40 : return BinaryAny(type, &v);
292 : }
293 : case typelib_TypeClass_LONG:
294 : case typelib_TypeClass_UNSIGNED_LONG:
295 : case typelib_TypeClass_FLOAT:
296 : {
297 383 : sal_uInt32 v = read32();
298 383 : return BinaryAny(type, &v);
299 : }
300 : case typelib_TypeClass_HYPER:
301 : case typelib_TypeClass_UNSIGNED_HYPER:
302 : case typelib_TypeClass_DOUBLE:
303 : {
304 234 : sal_uInt64 v = read64();
305 234 : return BinaryAny(type, &v);
306 : }
307 : case typelib_TypeClass_STRING:
308 : {
309 596 : OUString v(readString());
310 596 : return BinaryAny(type, &v.pData);
311 : }
312 : case typelib_TypeClass_TYPE:
313 : {
314 399 : css::uno::TypeDescription v(readType());
315 399 : typelib_TypeDescription * p = v.get();
316 399 : return BinaryAny(type, &p);
317 : }
318 : case typelib_TypeClass_ANY:
319 : {
320 1369 : css::uno::TypeDescription t(readType());
321 1369 : 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 1369 : return readValue(t);
327 : }
328 : case typelib_TypeClass_SEQUENCE:
329 110 : type.makeComplete();
330 110 : return readSequence(type);
331 : case typelib_TypeClass_ENUM:
332 : {
333 68 : sal_Int32 v = static_cast< sal_Int32 >(read32());
334 68 : type.makeComplete();
335 : typelib_EnumTypeDescription * etd =
336 68 : reinterpret_cast< typelib_EnumTypeDescription * >(type.get());
337 68 : bool found = false;
338 644 : for (sal_Int32 i = 0; i != etd->nEnumValues; ++i) {
339 644 : if (etd->pEnumValues[i] == v) {
340 68 : found = true;
341 68 : break;
342 : }
343 : }
344 68 : if (!found) {
345 : throw css::io::IOException(
346 : "binaryurp::Unmarshal: unknown enum value",
347 0 : css::uno::Reference< css::uno::XInterface >());
348 : }
349 68 : return BinaryAny(type, &v);
350 : }
351 : case typelib_TypeClass_STRUCT:
352 : case typelib_TypeClass_EXCEPTION:
353 : {
354 106 : std::vector< BinaryAny > as;
355 106 : readMemberValues(type, &as);
356 106 : void * buf = allocate(type.get()->nSize);
357 106 : copyMemberValues(type, as.begin(), buf);
358 : uno_Any raw;
359 : raw.pType = reinterpret_cast< typelib_TypeDescriptionReference * >(
360 106 : type.get());
361 106 : raw.pData = buf;
362 106 : raw.pReserved = 0;
363 106 : return BinaryAny(raw);
364 : }
365 : case typelib_TypeClass_INTERFACE:
366 : {
367 : css::uno::UnoInterfaceReference obj(
368 2021 : bridge_->registerIncomingInterface(readOid(), type));
369 2021 : return BinaryAny(type, &obj.m_pUnoI);
370 : }
371 : }
372 : }
373 :
374 4004 : void Unmarshal::done() const {
375 4004 : 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 4004 : }
381 :
382 21003 : void Unmarshal::check(sal_Int32 size) const {
383 21003 : 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 21003 : }
389 :
390 3647 : sal_uInt32 Unmarshal::readCompressed() {
391 3647 : sal_uInt8 n = read8();
392 3647 : return n == 0xFF ? read32() : n;
393 : }
394 :
395 3941 : sal_uInt16 Unmarshal::readCacheIndex() {
396 3941 : sal_uInt16 idx = read16();
397 3941 : 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 3941 : return idx;
403 : }
404 :
405 234 : sal_uInt64 Unmarshal::read64() {
406 234 : check(8);
407 234 : sal_uInt64 n = static_cast< sal_uInt64 >(*data_++) << 56;
408 234 : n |= static_cast< sal_uInt64 >(*data_++) << 48;
409 234 : n |= static_cast< sal_uInt64 >(*data_++) << 40;
410 234 : n |= static_cast< sal_uInt64 >(*data_++) << 32;
411 234 : n |= static_cast< sal_uInt64 >(*data_++) << 24;
412 234 : n |= static_cast< sal_uInt64 >(*data_++) << 16;
413 234 : n |= static_cast< sal_uInt64 >(*data_++) << 8;
414 234 : return n | *data_++;
415 : }
416 :
417 3275 : OUString Unmarshal::readString() {
418 3275 : sal_uInt32 n = readCompressed();
419 3275 : 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 3275 : check(static_cast< sal_Int32 >(n));
425 3275 : OUString s;
426 3275 : 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 3275 : 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 3275 : data_ += n;
438 3275 : return s;
439 : }
440 :
441 372 : BinaryAny Unmarshal::readSequence(css::uno::TypeDescription const & type) {
442 : assert(type.is() && type.get()->eTypeClass == typelib_TypeClass_SEQUENCE);
443 372 : sal_uInt32 n = readCompressed();
444 372 : 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 372 : if (n == 0) {
450 232 : return BinaryAny(type, 0);
451 : }
452 : css::uno::TypeDescription ctd(
453 : reinterpret_cast< typelib_IndirectTypeDescription * >(
454 140 : type.get())->pType);
455 140 : if (ctd.get()->eTypeClass == typelib_TypeClass_BYTE) {
456 32 : check(static_cast< sal_Int32 >(n));
457 : rtl::ByteSequence s(
458 : reinterpret_cast< sal_Int8 const * >(data_),
459 32 : static_cast< sal_Int32 >(n));
460 32 : data_ += n;
461 32 : sal_Sequence * p = s.getHandle();
462 32 : return BinaryAny(type, &p);
463 : }
464 108 : std::vector< BinaryAny > as;
465 368 : for (sal_uInt32 i = 0; i != n; ++i) {
466 260 : as.push_back(readValue(ctd));
467 : }
468 : assert(ctd.get()->nSize >= 0);
469 : sal_uInt64 size = static_cast< sal_uInt64 >(n) *
470 108 : static_cast< sal_uInt64 >(ctd.get()->nSize);
471 : // sal_uInt32 * sal_Int32 -> sal_uInt64 cannot overflow
472 108 : 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 108 : SAL_SEQUENCE_HEADER_SIZE + static_cast< sal_Size >(size));
479 108 : static_cast< sal_Sequence * >(buf)->nRefCount = 0;
480 : static_cast< sal_Sequence * >(buf)->nElements =
481 108 : static_cast< sal_Int32 >(n);
482 368 : for (sal_uInt32 i = 0; i != n; ++i) {
483 : uno_copyData(
484 520 : static_cast< sal_Sequence * >(buf)->elements + i * ctd.get()->nSize,
485 780 : const_cast< void * >(as[i].getValue(ctd)), ctd.get(), 0);
486 : }
487 108 : return BinaryAny(type, reinterpret_cast< sal_Sequence ** >(&buf));
488 : }
489 :
490 106 : 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 106 : type.makeComplete();
499 : typelib_CompoundTypeDescription * ctd =
500 106 : reinterpret_cast< typelib_CompoundTypeDescription * >(type.get());
501 106 : if (ctd->pBaseTypeDescription != 0) {
502 : readMemberValues(
503 : css::uno::TypeDescription(&ctd->pBaseTypeDescription->aBase),
504 0 : values);
505 : }
506 358 : for (sal_Int32 i = 0; i != ctd->nMembers; ++i) {
507 : values->push_back(
508 252 : readValue(css::uno::TypeDescription(ctd->ppTypeRefs[i])));
509 : }
510 106 : }
511 :
512 : }
513 :
514 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
