1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
/*************************************************************************
*
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* Copyright 2000, 2010 Oracle and/or its affiliates.
*
* OpenOffice.org - a multi-platform office productivity suite
*
* This file is part of OpenOffice.org.
*
* OpenOffice.org is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License version 3
* only, as published by the Free Software Foundation.
*
* OpenOffice.org is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License version 3 for more details
* (a copy is included in the LICENSE file that accompanied this code).
*
* You should have received a copy of the GNU Lesser General Public License
* version 3 along with OpenOffice.org. If not, see
* <http://www.openoffice.org/license.html>
* for a copy of the LGPLv3 License.
*
************************************************************************/
#ifndef OOX_OLE_VBAHELPER_HXX
#define OOX_OLE_VBAHELPER_HXX
#include "oox/helper/binarystreambase.hxx"
namespace oox { class BinaryInputStream; }
namespace oox {
namespace ole {
// Directory stream record identifiers ========================================
const sal_uInt16 VBA_ID_MODULECOOKIE = 0x002C;
const sal_uInt16 VBA_ID_MODULEDOCSTRING = 0x001C;
const sal_uInt16 VBA_ID_MODULEDOCSTRINGUNICODE = 0x0048;
const sal_uInt16 VBA_ID_MODULEEND = 0x002B;
const sal_uInt16 VBA_ID_MODULEHELPCONTEXT = 0x001E;
const sal_uInt16 VBA_ID_MODULENAME = 0x0019;
const sal_uInt16 VBA_ID_MODULENAMEUNICODE = 0x0047;
const sal_uInt16 VBA_ID_MODULEOFFSET = 0x0031;
const sal_uInt16 VBA_ID_MODULEPRIVATE = 0x0028;
const sal_uInt16 VBA_ID_MODULEREADONLY = 0x0025;
const sal_uInt16 VBA_ID_MODULESTREAMNAME = 0x001A;
const sal_uInt16 VBA_ID_MODULESTREAMNAMEUNICODE = 0x0032;
const sal_uInt16 VBA_ID_MODULETYPEDOCUMENT = 0x0022;
const sal_uInt16 VBA_ID_MODULETYPEPROCEDURAL = 0x0021;
const sal_uInt16 VBA_ID_PROJECTCODEPAGE = 0x0003;
const sal_uInt16 VBA_ID_PROJECTEND = 0x0010;
const sal_uInt16 VBA_ID_PROJECTMODULES = 0x000F;
const sal_uInt16 VBA_ID_PROJECTVERSION = 0x0009;
// ============================================================================
/** Static helper functions for the VBA filters. */
class VbaHelper
{
public:
/** Returns the full Basic script URL from a VBA module and macro name.
The script is assumed to be in a document library. */
static ::rtl::OUString getBasicScriptUrl(
const ::rtl::OUString& rLibraryName,
const ::rtl::OUString& rModuleName,
const ::rtl::OUString& rMacroName );
/** Reads the next record from the VBA directory stream 'dir'.
@param rnRecId (out parameter) The record identifier of the new record.
@param rRecData (out parameter) The contents of the new record.
@param rInStrm The 'dir' stream.
@return True = next record successfully read. False on any error, or
if the stream is EOF.
*/
static bool readDirRecord(
sal_uInt16& rnRecId,
StreamDataSequence& rRecData,
BinaryInputStream& rInStrm );
/** Extracts a key/value pair from a string separated by an equality sign.
@param rKey (out parameter) The key before the separator.
@param rValue (out parameter) The value following the separator.
@param rCodeLine The source key/value pair.
@return True = Equality sign separator found, and the returned key and
value are not empty. False otherwise.
*/
static bool extractKeyValue(
::rtl::OUString& rKey,
::rtl::OUString& rValue,
const ::rtl::OUString& rKeyValue );
private:
VbaHelper();
~VbaHelper();
};
// ============================================================================
} // namespace ole
} // namespace oox
#endif
|