LibreOffice Module oox (master)  1
vbahelper.cxx
Go to the documentation of this file.
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 <oox/ole/vbahelper.hxx>
21 #include <osl/diagnose.h>
23 
24 namespace oox::ole {
25 
26 using namespace ::com::sun::star::uno;
27 
28 bool VbaHelper::readDirRecord( sal_uInt16& rnRecId, StreamDataSequence& rRecData, BinaryInputStream& rInStrm )
29 {
30  // read the record header
31  sal_Int32 nRecSize;
32  rnRecId = rInStrm.readuInt16();
33  nRecSize = rInStrm.readInt32();
34  // for no obvious reason, PROJECTVERSION record contains size field of 4, but is 6 bytes long
35  if( rnRecId == VBA_ID_PROJECTVERSION )
36  {
37  OSL_ENSURE( nRecSize == 4, "VbaHelper::readDirRecord - unexpected record size for PROJECTVERSION" );
38  nRecSize = 6;
39  }
40  // read the record contents into the passed sequence
41  return !rInStrm.isEof() && (rInStrm.readData( rRecData, nRecSize ) == nRecSize);
42 }
43 
44 bool VbaHelper::extractKeyValue( OUString& rKey, OUString& rValue, const OUString& rKeyValue )
45 {
46  sal_Int32 nEqSignPos = rKeyValue.indexOf( '=' );
47  if( nEqSignPos > 0 )
48  {
49  rKey = rKeyValue.copy( 0, nEqSignPos ).trim();
50  rValue = rKeyValue.copy( nEqSignPos + 1 ).trim();
51  return !rKey.isEmpty() && !rValue.isEmpty();
52  }
53  return false;
54 }
55 
56 } // namespace oox::ole
57 
58 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
bool extractKeyValue(OUString &rKey, OUString &rValue, const OUString &rKeyValue)
Extracts a key/value pair from a string separated by an equality sign.
Definition: vbahelper.cxx:44
const sal_uInt16 VBA_ID_PROJECTVERSION
Definition: vbahelper.hxx:51
Interface for binary input stream classes.
css::uno::Sequence< sal_Int8 > StreamDataSequence
bool readDirRecord(sal_uInt16 &rnRecId, StreamDataSequence &rRecData, BinaryInputStream &rInStrm)
Reads the next record from the VBA directory stream 'dir'.
Definition: vbahelper.cxx:28
virtual sal_Int32 readData(StreamDataSequence &orData, sal_Int32 nBytes, size_t nAtomSize=1)=0
Derived classes implement reading nBytes bytes to the passed sequence.
bool isEof() const
Returns true, if the stream position is invalid (EOF).