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 :
21 : #include "runtime.hxx"
22 : #include "stdobj.hxx"
23 : #include <basic/sbstdobj.hxx>
24 : #include <sal/macros.h>
25 : #include "rtlproto.hxx"
26 : #include "sbintern.hxx"
27 : #include <boost/unordered_map.hpp>
28 : // The nArgs-field of a table entry is encrypted as follows:
29 : // At the moment it is assumed that properties don't need any
30 : // parameters!
31 :
32 : // previously _ARGSMASK was 0x007F ( e.g. up to 127 args ) however 63 should be
33 : // enough, if not we need to increase the size of nArgs member in the Methods
34 : // struct below.
35 : // note: the limitation of 63 args is only for RTL functions defined here and
36 : // does NOT impose a limit on User defined procedures ). This changes is to
37 : // allow us space for a flag to blacklist some functions in vba mode
38 :
39 : #define _ARGSMASK 0x003F // 63 Arguments
40 : #define _COMPTMASK 0x00C0 // COMPATABILITY mask
41 : #define _COMPATONLY 0x0080 // procedure is visible in vba mode only
42 : #define _NORMONLY 0x0040 // procedure is visible in normal mode only
43 :
44 : #define _RWMASK 0x0F00 // mask for R/W-bits
45 : #define _TYPEMASK 0xF000 // mask for the entry's type
46 :
47 : #define _OPT 0x0400 // parameter is optional
48 : #define _CONST 0x0800 // property is const
49 : #define _METHOD 0x3000
50 : #define _PROPERTY 0x4000
51 : #define _OBJECT 0x8000
52 : // combination of bits above:
53 : #define _FUNCTION 0x1100
54 : #define _LFUNCTION 0x1300 // mask for function which also works as Lvalue
55 : #define _SUB 0x2100
56 : #define _ROPROP 0x4100 // mask Read Only-Property
57 : #define _RWPROP 0x4300 // mask Read/Write-Property
58 : #define _CPROP 0x4900 // mask for constant
59 :
60 : struct Methods {
61 : const char* pName;
62 : SbxDataType eType;
63 : short nArgs;
64 : RtlCall pFunc;
65 : sal_uInt16 nHash;
66 : };
67 :
68 : struct StringHashCode
69 : {
70 : size_t operator()( const OUString& rStr ) const
71 : {
72 : return rtl_ustr_hashCode_WithLength( rStr.getStr(), rStr.getLength() );
73 : }
74 : };
75 :
76 : static Methods aMethods[] = {
77 :
78 : { "Abs", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Abs),0 },
79 : { "number", SbxDOUBLE, 0,NULL,0 },
80 : { "Array", SbxOBJECT, _FUNCTION, RTLNAME(Array),0 },
81 : { "Asc", SbxLONG, 1 | _FUNCTION, RTLNAME(Asc),0 },
82 : { "string", SbxSTRING, 0,NULL,0 },
83 : { "AscW", SbxLONG, 1 | _FUNCTION | _COMPATONLY, RTLNAME(Asc),0},
84 : { "string", SbxSTRING, 0,NULL,0 },
85 : { "Atn", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Atn),0 },
86 : { "number", SbxDOUBLE, 0,NULL,0 },
87 : { "ATTR_ARCHIVE", SbxINTEGER, _CPROP, RTLNAME(ATTR_ARCHIVE),0 },
88 : { "ATTR_DIRECTORY", SbxINTEGER, _CPROP, RTLNAME(ATTR_DIRECTORY),0 },
89 : { "ATTR_HIDDEN", SbxINTEGER, _CPROP, RTLNAME(ATTR_HIDDEN),0 },
90 : { "ATTR_NORMAL", SbxINTEGER, _CPROP, RTLNAME(ATTR_NORMAL),0 },
91 : { "ATTR_READONLY", SbxINTEGER, _CPROP, RTLNAME(ATTR_READONLY),0 },
92 : { "ATTR_SYSTEM", SbxINTEGER, _CPROP, RTLNAME(ATTR_SYSTEM),0 },
93 : { "ATTR_VOLUME", SbxINTEGER, _CPROP, RTLNAME(ATTR_VOLUME),0 },
94 :
95 : { "Beep", SbxNULL, _FUNCTION, RTLNAME(Beep),0 },
96 : { "Blue", SbxINTEGER, 1 | _FUNCTION | _NORMONLY, RTLNAME(Blue),0 },
97 : { "RGB-Value", SbxLONG, 0,NULL,0 },
98 :
99 : { "CallByName", SbxVARIANT, 3 | _FUNCTION, RTLNAME(CallByName),0 },
100 : { "Object", SbxOBJECT, 0,NULL,0 },
101 : { "ProcedureName",SbxSTRING, 0,NULL,0 },
102 : { "CallType", SbxINTEGER, 0,NULL,0 },
103 : { "CBool", SbxBOOL, 1 | _FUNCTION, RTLNAME(CBool),0 },
104 : { "expression", SbxVARIANT, 0,NULL,0 },
105 : { "CByte", SbxBYTE, 1 | _FUNCTION, RTLNAME(CByte),0 },
106 : { "expression", SbxVARIANT, 0,NULL,0 },
107 : { "CCur", SbxCURRENCY, 1 | _FUNCTION, RTLNAME(CCur),0 },
108 : { "expression", SbxVARIANT, 0,NULL,0 },
109 : { "CDate", SbxDATE, 1 | _FUNCTION, RTLNAME(CDate),0 },
110 : { "expression", SbxVARIANT, 0,NULL,0 },
111 : { "CDateFromIso", SbxDATE, 1 | _FUNCTION, RTLNAME(CDateFromIso),0 },
112 : { "IsoDate", SbxSTRING, 0,NULL,0 },
113 : { "CDateToIso", SbxSTRING, 1 | _FUNCTION, RTLNAME(CDateToIso),0 },
114 : { "Date", SbxDATE, 0,NULL,0 },
115 : { "CDec", SbxDECIMAL, 1 | _FUNCTION, RTLNAME(CDec),0 },
116 : { "expression", SbxVARIANT, 0,NULL,0 },
117 : { "CDbl", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(CDbl),0 },
118 : { "expression", SbxVARIANT, 0,NULL,0 },
119 : { "CF_BITMAP", SbxINTEGER, _CPROP, RTLNAME(CF_BITMAP),0 },
120 : { "CF_METAFILEPICT",SbxINTEGER, _CPROP, RTLNAME(CF_METAFILEPICT),0 },
121 : { "CF_TEXT", SbxINTEGER, _CPROP, RTLNAME(CF_TEXT),0 },
122 : { "ChDir", SbxNULL, 1 | _FUNCTION, RTLNAME(ChDir),0 },
123 : { "string", SbxSTRING, 0,NULL,0 },
124 : { "ChDrive", SbxNULL, 1 | _FUNCTION, RTLNAME(ChDrive),0 },
125 : { "string", SbxSTRING, 0,NULL,0 },
126 :
127 : { "Choose", SbxVARIANT, 2 | _FUNCTION, RTLNAME(Choose),0 },
128 : { "Index", SbxINTEGER, 0,NULL,0 },
129 : { "Expression", SbxVARIANT, 0,NULL,0 },
130 :
131 : { "Chr", SbxSTRING, 1 | _FUNCTION, RTLNAME(Chr),0 },
132 : { "string", SbxINTEGER, 0,NULL,0 },
133 : { "ChrW", SbxSTRING, 1 | _FUNCTION | _COMPATONLY, RTLNAME(ChrW),0},
134 : { "string", SbxINTEGER, 0,NULL,0 },
135 :
136 : { "CInt", SbxINTEGER, 1 | _FUNCTION, RTLNAME(CInt),0 },
137 : { "expression", SbxVARIANT, 0,NULL,0 },
138 : { "CLEAR_ALLTABS", SbxINTEGER, _CPROP, RTLNAME(CLEAR_ALLTABS),0 },
139 : { "CLEAR_TAB", SbxINTEGER, _CPROP, RTLNAME(CLEAR_TAB),0 },
140 : { "CLng", SbxLONG, 1 | _FUNCTION, RTLNAME(CLng),0 },
141 : { "expression", SbxVARIANT, 0,NULL,0 },
142 : { "CompatibilityMode", SbxBOOL, 1 | _FUNCTION, RTLNAME(CompatibilityMode),0},
143 : { "bEnable", SbxBOOL, 0,NULL,0 },
144 : { "ConvertFromUrl", SbxSTRING, 1 | _FUNCTION, RTLNAME(ConvertFromUrl),0 },
145 : { "Url", SbxSTRING, 0,NULL,0 },
146 : { "ConvertToUrl", SbxSTRING, 1 | _FUNCTION, RTLNAME(ConvertToUrl),0 },
147 : { "SystemPath", SbxSTRING, 0,NULL,0 },
148 : { "Cos", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Cos),0 },
149 : { "number", SbxDOUBLE, 0,NULL,0 },
150 : { "CreateObject", SbxOBJECT, 1 | _FUNCTION, RTLNAME( CreateObject ),0 },
151 : { "class", SbxSTRING, 0,NULL,0 },
152 : { "CaptureAssertions", SbxNULL, 1 | _FUNCTION, RTLNAME(CaptureAssertions), 0 },
153 : { "methodName", SbxSTRING, 0, NULL, 0 },
154 : { "CreateUnoListener",SbxOBJECT, 1 | _FUNCTION, RTLNAME( CreateUnoListener ),0 },
155 : { "prefix", SbxSTRING, 0,NULL,0 },
156 : { "typename", SbxSTRING, 0,NULL,0 },
157 : { "CreateUnoDialog",SbxOBJECT, 2 | _FUNCTION, RTLNAME( CreateUnoDialog ),0 },
158 : { "dialoglibrary",SbxOBJECT, 0,NULL,0 },
159 : { "dialogname", SbxSTRING, 0,NULL,0 },
160 : { "CreateUnoService",SbxOBJECT, 1 | _FUNCTION, RTLNAME( CreateUnoService ),0 },
161 : { "servicename", SbxSTRING, 0,NULL,0 },
162 : { "CreateUnoServiceWithArguments",SbxOBJECT, 2 | _FUNCTION, RTLNAME( CreateUnoServiceWithArguments ),0 },
163 : { "servicename", SbxSTRING, 0,NULL,0 },
164 : { "arguments", SbxARRAY, 0,NULL,0 },
165 : { "CreateUnoStruct",SbxOBJECT, 1 | _FUNCTION, RTLNAME( CreateUnoStruct ),0 },
166 : { "classname", SbxSTRING, 0,NULL,0 },
167 : { "CreateUnoValue", SbxOBJECT, 2 | _FUNCTION, RTLNAME( CreateUnoValue ),0 },
168 : { "type", SbxSTRING, 0,NULL,0 },
169 : { "value", SbxVARIANT, 0,NULL,0 },
170 : { "CreatePropertySet",SbxOBJECT, 1 | _FUNCTION, RTLNAME( CreatePropertySet ),0 },
171 : { "values", SbxARRAY, 0,NULL,0 },
172 : { "CSng", SbxSINGLE, 1 | _FUNCTION, RTLNAME(CSng),0 },
173 : { "expression", SbxVARIANT, 0,NULL,0 },
174 : { "CStr", SbxSTRING, 1 | _FUNCTION, RTLNAME(CStr),0 },
175 : { "expression", SbxVARIANT, 0,NULL,0 },
176 : { "CurDir", SbxSTRING, 1 | _FUNCTION, RTLNAME(CurDir),0 },
177 : { "string", SbxSTRING, 0,NULL,0 },
178 : { "CVar", SbxVARIANT, 1 | _FUNCTION, RTLNAME(CVar),0 },
179 : { "expression", SbxVARIANT, 0,NULL,0 },
180 : { "CVErr", SbxVARIANT, 1 | _FUNCTION, RTLNAME(CVErr),0 },
181 : { "expression", SbxVARIANT, 0,NULL,0 },
182 : { "DDB", SbxDOUBLE, 5 | _FUNCTION | _COMPATONLY, RTLNAME(DDB),0 },
183 : { "Cost", SbxDOUBLE, 0, NULL,0 },
184 : { "Salvage", SbxDOUBLE, 0, NULL,0 },
185 : { "Life", SbxDOUBLE, 0, NULL,0 },
186 : { "Period", SbxDOUBLE, 0, NULL,0 },
187 : { "Factor", SbxVARIANT, _OPT, NULL,0 },
188 : { "Date", SbxDATE, _LFUNCTION,RTLNAME(Date),0 },
189 : { "DateAdd", SbxDATE, 3 | _FUNCTION, RTLNAME(DateAdd),0 },
190 : { "Interval", SbxSTRING, 0,NULL,0 },
191 : { "Number", SbxLONG, 0,NULL,0 },
192 : { "Date", SbxDATE, 0,NULL,0 },
193 : { "DateDiff", SbxDOUBLE, 5 | _FUNCTION, RTLNAME(DateDiff),0 },
194 : { "Interval", SbxSTRING, 0,NULL,0 },
195 : { "Date1", SbxDATE, 0,NULL,0 },
196 : { "Date2", SbxDATE, 0,NULL,0 },
197 : { "Firstdayofweek" , SbxINTEGER, _OPT,NULL,0 },
198 : { "Firstweekofyear", SbxINTEGER, _OPT,NULL,0 },
199 : { "DatePart", SbxLONG, 4 | _FUNCTION, RTLNAME(DatePart),0 },
200 : { "Interval", SbxSTRING, 0,NULL,0 },
201 : { "Date", SbxDATE, 0,NULL,0 },
202 : { "Firstdayofweek" , SbxINTEGER, _OPT, NULL,0 },
203 : { "Firstweekofyear", SbxINTEGER, _OPT, NULL,0 },
204 : { "DateSerial", SbxDATE, 3 | _FUNCTION, RTLNAME(DateSerial),0 },
205 : { "Year", SbxINTEGER, 0,NULL,0 },
206 : { "Month", SbxINTEGER, 0,NULL,0 },
207 : { "Day", SbxINTEGER, 0,NULL,0 },
208 : { "DateValue", SbxDATE, 1 | _FUNCTION, RTLNAME(DateValue),0 },
209 : { "String", SbxSTRING, 0,NULL,0 },
210 : { "Day", SbxINTEGER, 1 | _FUNCTION, RTLNAME(Day),0 },
211 : { "Date", SbxDATE, 0,NULL,0 },
212 : { "Ddeexecute", SbxNULL, 2 | _FUNCTION, RTLNAME(DDEExecute),0 },
213 : { "Channel", SbxLONG, 0,NULL,0 },
214 : { "Command", SbxSTRING, 0,NULL,0 },
215 : { "Ddeinitiate", SbxINTEGER, 2 | _FUNCTION, RTLNAME(DDEInitiate),0 },
216 : { "Application", SbxSTRING, 0,NULL,0 },
217 : { "Topic", SbxSTRING, 0,NULL,0 },
218 : { "Ddepoke", SbxNULL, 3 | _FUNCTION, RTLNAME(DDEPoke),0 },
219 : { "Channel", SbxLONG, 0,NULL,0 },
220 : { "Item", SbxSTRING, 0,NULL,0 },
221 : { "Data", SbxSTRING, 0,NULL,0 },
222 : { "Dderequest", SbxSTRING, 2 | _FUNCTION, RTLNAME(DDERequest),0 },
223 : { "Channel", SbxLONG, 0,NULL,0 },
224 : { "Item", SbxSTRING, 0,NULL,0 },
225 : { "Ddeterminate", SbxNULL, 1 | _FUNCTION, RTLNAME(DDETerminate),0 },
226 : { "Channel", SbxLONG, 0,NULL,0 },
227 : { "Ddeterminateall", SbxNULL, _FUNCTION, RTLNAME(DDETerminateAll),0 },
228 : { "DimArray", SbxOBJECT, _FUNCTION, RTLNAME(DimArray),0 },
229 : { "Dir", SbxSTRING, 2 | _FUNCTION, RTLNAME(Dir),0 },
230 : { "FileSpec", SbxSTRING, _OPT, NULL,0 },
231 : { "attrmask", SbxINTEGER, _OPT, NULL,0 },
232 : { "DoEvents", SbxINTEGER, _FUNCTION, RTLNAME(DoEvents),0 },
233 : { "DumpAllObjects", SbxEMPTY, 2 | _SUB, RTLNAME(DumpAllObjects),0 },
234 : { "FileSpec", SbxSTRING, 0,NULL,0 },
235 : { "DumpAll", SbxINTEGER, _OPT, NULL,0 },
236 :
237 : { "Empty", SbxVARIANT, _CPROP, RTLNAME(Empty),0 },
238 : { "EqualUnoObjects",SbxBOOL, 2 | _FUNCTION, RTLNAME(EqualUnoObjects),0 },
239 : { "Variant", SbxVARIANT, 0,NULL,0 },
240 : { "Variant", SbxVARIANT, 0,NULL,0 },
241 : { "EnableReschedule", SbxNULL, 1 | _FUNCTION, RTLNAME(EnableReschedule),0},
242 : { "bEnable", SbxBOOL, 0,NULL,0 },
243 : { "Environ", SbxSTRING, 1 | _FUNCTION, RTLNAME(Environ),0 },
244 : { "Environmentstring",SbxSTRING, 0,NULL,0 },
245 : { "EOF", SbxBOOL, 1 | _FUNCTION, RTLNAME(EOF),0 },
246 : { "Channel", SbxINTEGER, 0,NULL,0 },
247 : { "Erl", SbxLONG, _ROPROP, RTLNAME( Erl ),0 },
248 : { "Err", SbxVARIANT, _RWPROP, RTLNAME( Err ),0 },
249 : { "Error", SbxSTRING, 1 | _FUNCTION, RTLNAME( Error ),0 },
250 : { "code", SbxLONG, 0,NULL,0 },
251 : { "Exp", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Exp),0 },
252 : { "number", SbxDOUBLE, 0,NULL,0 },
253 :
254 : { "False", SbxBOOL, _CPROP, RTLNAME(False),0 },
255 : { "FileAttr", SbxINTEGER, 2 | _FUNCTION, RTLNAME(FileAttr),0 },
256 : { "Channel", SbxINTEGER, 0,NULL,0 },
257 : { "Attributes", SbxINTEGER, 0,NULL,0 },
258 : { "FileCopy", SbxNULL, 2 | _FUNCTION, RTLNAME(FileCopy),0 },
259 : { "Source", SbxSTRING, 0,NULL,0 },
260 : { "Destination", SbxSTRING, 0,NULL,0 },
261 : { "FileDateTime", SbxSTRING, 1 | _FUNCTION, RTLNAME(FileDateTime),0 },
262 : { "filename", SbxSTRING, 0,NULL,0 },
263 : { "FileExists", SbxBOOL, 1 | _FUNCTION, RTLNAME(FileExists),0 },
264 : { "filename", SbxSTRING, 0,NULL,0 },
265 : { "FileLen", SbxLONG, 1 | _FUNCTION, RTLNAME(FileLen),0 },
266 : { "filename", SbxSTRING, 0,NULL,0 },
267 : { "FindObject", SbxOBJECT, 1 | _FUNCTION, RTLNAME(FindObject),0 },
268 : { "Name", SbxSTRING, 0,NULL,0 },
269 : { "FindPropertyObject", SbxOBJECT, 2 | _FUNCTION, RTLNAME(FindPropertyObject),0 },
270 : { "Object", SbxOBJECT, 0,NULL,0 },
271 : { "Name", SbxSTRING, 0,NULL,0 },
272 : { "Fix", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Fix),0 },
273 : { "number", SbxDOUBLE, 0,NULL,0 },
274 : { "Format", SbxSTRING, 2 | _FUNCTION, RTLNAME(Format),0 },
275 : { "expression", SbxVARIANT, 0,NULL,0 },
276 : { "format", SbxSTRING, _OPT, NULL,0 },
277 : { "FormatDateTime", SbxSTRING, 2 | _FUNCTION | _COMPATONLY, RTLNAME(FormatDateTime),0 },
278 : { "Date", SbxDATE, 0,NULL,0 },
279 : { "NamedFormat", SbxINTEGER, _OPT, NULL,0 },
280 : { "Frac", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Frac),0 },
281 : { "number", SbxDOUBLE, 0,NULL,0 },
282 : { "FRAMEANCHORCHAR", SbxINTEGER, _CPROP, RTLNAME(FRAMEANCHORCHAR),0 },
283 : { "FRAMEANCHORPAGE", SbxINTEGER, _CPROP, RTLNAME(FRAMEANCHORPAGE),0 },
284 : { "FRAMEANCHORPARA", SbxINTEGER, _CPROP, RTLNAME(FRAMEANCHORPARA),0 },
285 : { "FreeFile", SbxINTEGER, _FUNCTION, RTLNAME(FreeFile),0 },
286 : { "FreeLibrary", SbxNULL, 1 | _FUNCTION, RTLNAME(FreeLibrary),0 },
287 : { "Modulename", SbxSTRING, 0,NULL,0 },
288 :
289 : { "FV", SbxDOUBLE, 5 | _FUNCTION | _COMPATONLY, RTLNAME(FV),0 },
290 : { "Rate", SbxDOUBLE, 0, NULL,0 },
291 : { "NPer", SbxDOUBLE, 0, NULL,0 },
292 : { "Pmt", SbxDOUBLE, 0, NULL,0 },
293 : { "PV", SbxVARIANT, _OPT, NULL,0 },
294 : { "Due", SbxVARIANT, _OPT, NULL,0 },
295 : { "Get", SbxNULL, 3 | _FUNCTION, RTLNAME(Get),0 },
296 : { "filenumber", SbxINTEGER, 0,NULL,0 },
297 : { "recordnumber", SbxLONG, 0,NULL,0 },
298 : { "variablename", SbxVARIANT, 0,NULL,0 },
299 : { "GetAttr", SbxINTEGER, 1 | _FUNCTION, RTLNAME(GetAttr),0 },
300 : { "filename", SbxSTRING, 0,NULL,0 },
301 : { "GetDefaultContext", SbxOBJECT, 0 | _FUNCTION, RTLNAME(GetDefaultContext),0 },
302 : { "GetDialogZoomFactorX", SbxDOUBLE, _FUNCTION,RTLNAME(GetDialogZoomFactorX),0 },
303 : { "GetDialogZoomFactorY", SbxDOUBLE, _FUNCTION,RTLNAME(GetDialogZoomFactorY),0 },
304 : { "GetGUIType", SbxINTEGER, _FUNCTION,RTLNAME(GetGUIType),0 },
305 : { "GetGUIVersion", SbxLONG, _FUNCTION,RTLNAME(GetGUIVersion),0 },
306 : { "GetPathSeparator", SbxSTRING, _FUNCTION,RTLNAME(GetPathSeparator),0 },
307 : { "GetProcessServiceManager", SbxOBJECT, 0 | _FUNCTION, RTLNAME(GetProcessServiceManager),0 },
308 : { "GetSolarVersion", SbxLONG, _FUNCTION,RTLNAME(GetSolarVersion),0 },
309 : { "GetSystemTicks", SbxLONG, _FUNCTION,RTLNAME(GetSystemTicks),0 },
310 : { "GetSystemType", SbxINTEGER, _FUNCTION,RTLNAME(GetSystemType),0 },
311 : { "GlobalScope", SbxOBJECT, _FUNCTION,RTLNAME(GlobalScope),0 },
312 : { "Green", SbxINTEGER, 1 | _FUNCTION | _NORMONLY, RTLNAME(Green),0 },
313 : { "RGB-Value", SbxLONG, 0,NULL,0 },
314 :
315 : { "HasUnoInterfaces", SbxBOOL, 1 | _FUNCTION, RTLNAME(HasUnoInterfaces),0},
316 : { "InterfaceName",SbxSTRING, 0,NULL,0 },
317 : { "Hex", SbxSTRING, 1 | _FUNCTION, RTLNAME(Hex),0 },
318 : { "number", SbxLONG, 0,NULL,0 },
319 : { "Hour", SbxINTEGER, 1 | _FUNCTION, RTLNAME(Hour),0 },
320 : { "Date", SbxDATE, 0,NULL,0 },
321 :
322 : { "IDABORT", SbxINTEGER, _CPROP, RTLNAME(IDABORT),0 },
323 : { "IDCANCEL", SbxINTEGER, _CPROP, RTLNAME(IDCANCEL),0 },
324 : { "IDNO", SbxINTEGER, _CPROP, RTLNAME(IDNO),0 },
325 : { "IDOK", SbxINTEGER, _CPROP, RTLNAME(IDOK),0 },
326 : { "IDRETRY", SbxINTEGER, _CPROP, RTLNAME(IDRETRY),0 },
327 : { "IDYES", SbxINTEGER, _CPROP, RTLNAME(IDYES),0 },
328 :
329 : { "Iif", SbxVARIANT, 3 | _FUNCTION, RTLNAME(Iif),0 },
330 : { "Bool", SbxBOOL, 0,NULL,0 },
331 : { "Variant1", SbxVARIANT, 0,NULL,0 },
332 : { "Variant2", SbxVARIANT, 0,NULL,0 },
333 :
334 : { "Input", SbxSTRING, 2 | _FUNCTION | _COMPATONLY, RTLNAME(Input),0},
335 : { "Number", SbxLONG, 0,NULL,0 },
336 : { "FileNumber", SbxLONG, 0,NULL,0 },
337 : { "InputBox", SbxSTRING, 5 | _FUNCTION, RTLNAME(InputBox),0 },
338 : { "Prompt", SbxSTRING, 0,NULL,0 },
339 : { "Title", SbxSTRING, _OPT, NULL,0 },
340 : { "Default", SbxSTRING, _OPT, NULL,0 },
341 : { "XPosTwips", SbxLONG, _OPT, NULL,0 },
342 : { "YPosTwips", SbxLONG, _OPT, NULL,0 },
343 : { "InStr", SbxLONG, 4 | _FUNCTION, RTLNAME(InStr),0 },
344 : { "Start", SbxSTRING, _OPT, NULL,0 },
345 : { "String1", SbxSTRING, 0,NULL,0 },
346 : { "String2", SbxSTRING, 0,NULL,0 },
347 : { "Compare", SbxINTEGER, _OPT, NULL,0 },
348 : { "InStrRev", SbxLONG, 4 | _FUNCTION | _COMPATONLY, RTLNAME(InStrRev),0},
349 : { "String1", SbxSTRING, 0,NULL,0 },
350 : { "String2", SbxSTRING, 0,NULL,0 },
351 : { "Start", SbxSTRING, _OPT, NULL,0 },
352 : { "Compare", SbxINTEGER, _OPT, NULL,0 },
353 : { "Int", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Int),0 },
354 : { "number", SbxDOUBLE, 0,NULL,0 },
355 : { "IPmt", SbxDOUBLE, 6 | _FUNCTION | _COMPATONLY, RTLNAME(IPmt),0 },
356 : { "Rate", SbxDOUBLE, 0, NULL,0 },
357 : { "Per", SbxDOUBLE, 0, NULL,0 },
358 : { "NPer", SbxDOUBLE, 0, NULL,0 },
359 : { "PV", SbxDOUBLE, 0, NULL,0 },
360 : { "FV", SbxVARIANT, _OPT, NULL,0 },
361 : { "Due", SbxVARIANT, _OPT, NULL,0 },
362 : { "IRR", SbxDOUBLE, 2 | _FUNCTION | _COMPATONLY, RTLNAME(IRR),0 },
363 : { "ValueArray", SbxARRAY, 0, NULL,0 },
364 : { "Guess", SbxVARIANT, _OPT, NULL,0 },
365 : { "IsArray", SbxBOOL, 1 | _FUNCTION, RTLNAME(IsArray),0 },
366 : { "Variant", SbxVARIANT, 0,NULL,0 },
367 : { "IsDate", SbxBOOL, 1 | _FUNCTION, RTLNAME(IsDate),0 },
368 : { "Variant", SbxVARIANT, 0,NULL,0 },
369 : { "IsEmpty", SbxBOOL, 1 | _FUNCTION, RTLNAME(IsEmpty),0 },
370 : { "Variant", SbxVARIANT, 0,NULL,0 },
371 : { "IsError", SbxBOOL, 1 | _FUNCTION, RTLNAME(IsError),0 },
372 : { "Variant", SbxVARIANT, 0,NULL,0 },
373 : { "IsMissing", SbxBOOL, 1 | _FUNCTION, RTLNAME(IsMissing),0 },
374 : { "Variant", SbxVARIANT, 0,NULL,0 },
375 : { "IsNull", SbxBOOL, 1 | _FUNCTION, RTLNAME(IsNull),0 },
376 : { "Variant", SbxVARIANT, 0,NULL,0 },
377 : { "IsNumeric", SbxBOOL, 1 | _FUNCTION, RTLNAME(IsNumeric),0 },
378 : { "Variant", SbxVARIANT, 0,NULL,0 },
379 : { "IsObject", SbxBOOL, 1 | _FUNCTION, RTLNAME(IsObject),0 },
380 : { "Variant", SbxVARIANT, 0,NULL,0 },
381 : { "IsUnoStruct", SbxBOOL, 1 | _FUNCTION, RTLNAME(IsUnoStruct),0 },
382 : { "Variant", SbxVARIANT, 0,NULL,0 },
383 : { "Join", SbxSTRING, 2 | _FUNCTION, RTLNAME(Join),0 },
384 : { "list", SbxOBJECT, 0,NULL,0 },
385 : { "delimiter", SbxSTRING, 0,NULL,0 },
386 : { "Kill", SbxNULL, 1 | _FUNCTION, RTLNAME(Kill),0 },
387 : { "filespec", SbxSTRING, 0,NULL,0 },
388 : { "LBound", SbxLONG, 1 | _FUNCTION, RTLNAME(LBound),0 },
389 : { "Variant", SbxVARIANT, 0,NULL,0 },
390 : { "LCase", SbxSTRING, 1 | _FUNCTION, RTLNAME(LCase),0 },
391 : { "string", SbxSTRING, 0,NULL,0 },
392 : { "Left", SbxSTRING, 2 | _FUNCTION, RTLNAME(Left),0 },
393 : { "String", SbxSTRING, 0,NULL,0 },
394 : { "Count", SbxLONG, 0,NULL,0 },
395 : { "Len", SbxLONG, 1 | _FUNCTION, RTLNAME(Len),0 },
396 : { "StringOrVariant", SbxVARIANT, 0,NULL,0 },
397 : { "LenB", SbxLONG, 1 | _FUNCTION, RTLNAME(Len),0 },
398 : { "StringOrVariant", SbxVARIANT, 0,NULL,0 },
399 : { "Load", SbxNULL, 1 | _FUNCTION, RTLNAME(Load),0 },
400 : { "object", SbxOBJECT, 0,NULL,0 },
401 : { "LoadPicture", SbxOBJECT, 1 | _FUNCTION, RTLNAME(LoadPicture),0 },
402 : { "string", SbxSTRING, 0,NULL,0 },
403 : { "Loc", SbxLONG, 1 | _FUNCTION, RTLNAME(Loc),0 },
404 : { "Channel", SbxINTEGER, 0,NULL,0 },
405 : { "Lof", SbxLONG, 1 | _FUNCTION, RTLNAME(Lof),0 },
406 : { "Channel", SbxINTEGER, 0,NULL,0 },
407 : { "Log", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Log),0 },
408 : { "number", SbxDOUBLE, 0,NULL,0 },
409 : { "LTrim", SbxSTRING, 1 | _FUNCTION, RTLNAME(LTrim),0 },
410 : { "string", SbxSTRING, 0,NULL,0 },
411 :
412 : { "MB_ABORTRETRYIGNORE", SbxINTEGER, _CPROP, RTLNAME(MB_ABORTRETRYIGNORE),0},
413 : { "MB_APPLMODAL", SbxINTEGER, _CPROP, RTLNAME(MB_APPLMODAL),0 },
414 : { "MB_DEFBUTTON1", SbxINTEGER, _CPROP, RTLNAME(MB_DEFBUTTON1),0 },
415 : { "MB_DEFBUTTON2", SbxINTEGER, _CPROP, RTLNAME(MB_DEFBUTTON2),0 },
416 : { "MB_DEFBUTTON3", SbxINTEGER, _CPROP, RTLNAME(MB_DEFBUTTON3),0 },
417 : { "MB_ICONEXCLAMATION", SbxINTEGER, _CPROP, RTLNAME(MB_ICONEXCLAMATION),0},
418 : { "MB_ICONINFORMATION", SbxINTEGER, _CPROP, RTLNAME(MB_ICONINFORMATION),0},
419 : { "MB_ICONQUESTION",SbxINTEGER, _CPROP, RTLNAME(MB_ICONQUESTION),0 },
420 : { "MB_ICONSTOP", SbxINTEGER, _CPROP, RTLNAME(MB_ICONSTOP),0 },
421 : { "MB_OK", SbxINTEGER, _CPROP, RTLNAME(MB_OK),0 },
422 : { "MB_OKCANCEL", SbxINTEGER, _CPROP, RTLNAME(MB_OKCANCEL),0 },
423 : { "MB_RETRYCANCEL", SbxINTEGER, _CPROP, RTLNAME(MB_RETRYCANCEL),0 },
424 : { "MB_SYSTEMMODAL", SbxINTEGER, _CPROP, RTLNAME(MB_SYSTEMMODAL),0 },
425 : { "MB_YESNO", SbxINTEGER, _CPROP, RTLNAME(MB_YESNO),0 },
426 : { "MB_YESNOCANCEL", SbxINTEGER, _CPROP, RTLNAME(MB_YESNOCANCEL),0 },
427 :
428 : { "Me", SbxOBJECT, 0 | _FUNCTION | _COMPATONLY, RTLNAME(Me),0 },
429 : { "Mid", SbxSTRING, 3 | _LFUNCTION,RTLNAME(Mid),0 },
430 : { "String", SbxSTRING, 0,NULL,0 },
431 : { "StartPos", SbxLONG, 0,NULL,0 },
432 : { "Length", SbxLONG, _OPT, NULL,0 },
433 : { "Minute", SbxINTEGER, 1 | _FUNCTION, RTLNAME(Minute),0 },
434 : { "Date", SbxDATE, 0,NULL,0 },
435 : { "MIRR", SbxDOUBLE, 2 | _FUNCTION | _COMPATONLY, RTLNAME(MIRR),0 },
436 : { "ValueArray", SbxARRAY, 0, NULL,0 },
437 : { "FinanceRate", SbxDOUBLE, 0, NULL,0 },
438 : { "ReinvestRate", SbxDOUBLE, 0, NULL,0 },
439 : { "MkDir", SbxNULL, 1 | _FUNCTION, RTLNAME(MkDir),0 },
440 : { "pathname", SbxSTRING, 0,NULL,0 },
441 : { "Month", SbxINTEGER, 1 | _FUNCTION, RTLNAME(Month),0 },
442 : { "Date", SbxDATE, 0,NULL,0 },
443 : { "MonthName", SbxSTRING, 2 | _FUNCTION | _COMPATONLY, RTLNAME(MonthName),0 },
444 : { "Month", SbxINTEGER, 0,NULL,0 },
445 : { "Abbreviate", SbxBOOL, _OPT, NULL,0 },
446 : { "MsgBox", SbxINTEGER, 5 | _FUNCTION, RTLNAME(MsgBox),0 },
447 : { "Prompt", SbxSTRING, 0,NULL,0 },
448 : { "Buttons", SbxINTEGER, _OPT, NULL,0 },
449 : { "Title", SbxSTRING, _OPT, NULL,0 },
450 : { "Helpfile", SbxSTRING, _OPT, NULL,0 },
451 : { "Context", SbxINTEGER, _OPT, NULL,0 },
452 :
453 : { "Nothing", SbxOBJECT, _CPROP, RTLNAME(Nothing),0 },
454 : { "Now", SbxDATE, _FUNCTION, RTLNAME(Now),0 },
455 : { "NPer", SbxDOUBLE, 5 | _FUNCTION | _COMPATONLY, RTLNAME(NPer),0 },
456 : { "Rate", SbxDOUBLE, 0, NULL,0 },
457 : { "Pmt", SbxDOUBLE, 0, NULL,0 },
458 : { "PV", SbxDOUBLE, 0, NULL,0 },
459 : { "FV", SbxVARIANT, _OPT, NULL,0 },
460 : { "Due", SbxVARIANT, _OPT, NULL,0 },
461 : { "NPV", SbxDOUBLE, 2 | _FUNCTION | _COMPATONLY, RTLNAME(NPV),0 },
462 : { "Rate", SbxDOUBLE, 0, NULL,0 },
463 : { "ValueArray", SbxARRAY, 0, NULL,0 },
464 : { "Null", SbxNULL, _CPROP, RTLNAME(Null),0 },
465 :
466 : { "Oct", SbxSTRING, 1 | _FUNCTION, RTLNAME(Oct),0 },
467 : { "number", SbxLONG, 0,NULL,0 },
468 :
469 : { "Partition", SbxSTRING, 4 | _FUNCTION, RTLNAME(Partition),0 },
470 : { "number", SbxLONG, 0,NULL,0 },
471 : { "start", SbxLONG, 0,NULL,0 },
472 : { "stop", SbxLONG, 0,NULL,0 },
473 : { "interval", SbxLONG, 0,NULL,0 },
474 : { "Pi", SbxDOUBLE, _CPROP, RTLNAME(PI),0 },
475 :
476 : { "Pmt", SbxDOUBLE, 5 | _FUNCTION | _COMPATONLY, RTLNAME(Pmt),0 },
477 : { "Rate", SbxDOUBLE, 0, NULL,0 },
478 : { "NPer", SbxDOUBLE, 0, NULL,0 },
479 : { "PV", SbxDOUBLE, 0, NULL,0 },
480 : { "FV", SbxVARIANT, _OPT, NULL,0 },
481 : { "Due", SbxVARIANT, _OPT, NULL,0 },
482 :
483 : { "PPmt", SbxDOUBLE, 6 | _FUNCTION | _COMPATONLY, RTLNAME(PPmt),0 },
484 : { "Rate", SbxDOUBLE, 0, NULL,0 },
485 : { "Per", SbxDOUBLE, 0, NULL,0 },
486 : { "NPer", SbxDOUBLE, 0, NULL,0 },
487 : { "PV", SbxDOUBLE, 0, NULL,0 },
488 : { "FV", SbxVARIANT, _OPT, NULL,0 },
489 : { "Due", SbxVARIANT, _OPT, NULL,0 },
490 :
491 : { "Put", SbxNULL, 3 | _FUNCTION, RTLNAME(Put),0 },
492 : { "filenumber", SbxINTEGER, 0,NULL,0 },
493 : { "recordnumber", SbxLONG, 0,NULL,0 },
494 : { "variablename", SbxVARIANT, 0,NULL,0 },
495 :
496 : { "PV", SbxDOUBLE, 5 | _FUNCTION | _COMPATONLY, RTLNAME(PV),0 },
497 : { "Rate", SbxDOUBLE, 0, NULL,0 },
498 : { "NPer", SbxDOUBLE, 0, NULL,0 },
499 : { "Pmt", SbxDOUBLE, 0, NULL,0 },
500 : { "FV", SbxVARIANT, _OPT, NULL,0 },
501 : { "Due", SbxVARIANT, _OPT, NULL,0 },
502 :
503 : { "QBColor", SbxLONG, 1 | _FUNCTION, RTLNAME(QBColor),0 },
504 : { "number", SbxINTEGER, 0,NULL,0 },
505 :
506 : { "Randomize", SbxNULL, 1 | _FUNCTION, RTLNAME(Randomize),0 },
507 : { "Number", SbxDOUBLE, _OPT, NULL,0 },
508 : { "Rate", SbxDOUBLE, 6 | _FUNCTION | _COMPATONLY, RTLNAME(Rate),0 },
509 : { "NPer", SbxDOUBLE, 0, NULL,0 },
510 : { "Pmt", SbxDOUBLE, 0, NULL,0 },
511 : { "PV", SbxDOUBLE, 0, NULL,0 },
512 : { "FV", SbxVARIANT, _OPT, NULL,0 },
513 : { "Due", SbxVARIANT, _OPT, NULL,0 },
514 : { "Guess", SbxVARIANT, _OPT, NULL,0 },
515 : { "Red", SbxINTEGER, 1 | _FUNCTION | _NORMONLY, RTLNAME(Red),0 },
516 : { "RGB-Value", SbxLONG, 0,NULL,0 },
517 : { "Reset", SbxNULL, 0 | _FUNCTION, RTLNAME(Reset),0 },
518 : { "ResolvePath", SbxSTRING, 1 | _FUNCTION, RTLNAME(ResolvePath),0 },
519 : { "Path", SbxSTRING, 0,NULL,0 },
520 : { "RGB", SbxLONG, 3 | _FUNCTION, RTLNAME(RGB),0 },
521 : { "Red", SbxINTEGER, 0,NULL,0 },
522 : { "Green", SbxINTEGER, 0,NULL,0 },
523 : { "Blue", SbxINTEGER, 0,NULL,0 },
524 : { "Replace", SbxSTRING, 6 | _FUNCTION, RTLNAME(Replace),0 },
525 : { "Expression", SbxSTRING, 0,NULL,0 },
526 : { "Find", SbxSTRING, 0,NULL,0 },
527 : { "Replace", SbxSTRING, 0,NULL,0 },
528 : { "Start", SbxINTEGER, _OPT, NULL,0 },
529 : { "Count", SbxINTEGER, _OPT, NULL,0 },
530 : { "Compare", SbxINTEGER, _OPT, NULL,0 },
531 : { "Right", SbxSTRING, 2 | _FUNCTION, RTLNAME(Right),0 },
532 : { "String", SbxSTRING, 0,NULL,0 },
533 : { "Count", SbxLONG, 0,NULL,0 },
534 : { "RmDir", SbxNULL, 1 | _FUNCTION, RTLNAME(RmDir),0 },
535 : { "pathname", SbxSTRING, 0,NULL,0 },
536 : { "Round", SbxDOUBLE, 2 | _FUNCTION | _COMPATONLY, RTLNAME(Round),0},
537 : { "Expression", SbxDOUBLE, 0,NULL,0 },
538 : { "Numdecimalplaces", SbxINTEGER, _OPT, NULL,0 },
539 : { "Rnd", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Rnd),0 },
540 : { "Number", SbxDOUBLE, _OPT, NULL,0 },
541 : { "RTL", SbxOBJECT, 0 | _FUNCTION | _COMPATONLY, RTLNAME(RTL),0},
542 : { "RTrim", SbxSTRING, 1 | _FUNCTION, RTLNAME(RTrim),0 },
543 : { "string", SbxSTRING, 0,NULL,0 },
544 :
545 : { "SavePicture", SbxNULL, 2 | _FUNCTION, RTLNAME(SavePicture),0 },
546 : { "object", SbxOBJECT, 0,NULL,0 },
547 : { "string", SbxSTRING, 0,NULL,0 },
548 : { "Second", SbxINTEGER, 1 | _FUNCTION, RTLNAME(Second),0 },
549 : { "Date", SbxDATE, 0,NULL,0 },
550 : { "Seek", SbxLONG, 1 | _FUNCTION, RTLNAME(Seek),0 },
551 : { "Channel", SbxINTEGER, 0,NULL,0 },
552 : { "SendKeys", SbxNULL, 2 | _FUNCTION, RTLNAME(SendKeys),0 },
553 : { "String", SbxSTRING, 0,NULL,0 },
554 : { "Wait", SbxBOOL, _OPT, NULL,0 },
555 : { "SetAttr", SbxNULL, 2 | _FUNCTION, RTLNAME(SetAttr),0 },
556 : { "File" , SbxSTRING, 0,NULL,0 },
557 : { "Attributes", SbxINTEGER, 0,NULL,0 },
558 : { "SET_OFF", SbxINTEGER, _CPROP, RTLNAME(SET_OFF),0 },
559 : { "SET_ON", SbxINTEGER, _CPROP, RTLNAME(SET_ON),0 },
560 : { "SET_TAB", SbxINTEGER, _CPROP, RTLNAME(SET_TAB),0 },
561 : { "Sgn", SbxINTEGER, 1 | _FUNCTION, RTLNAME(Sgn),0 },
562 : { "number", SbxDOUBLE, 0,NULL,0 },
563 : { "Shell", SbxLONG, 2 | _FUNCTION, RTLNAME(Shell),0 },
564 : { "Commandstring",SbxSTRING, 0,NULL,0 },
565 : { "WindowStyle", SbxINTEGER, _OPT, NULL,0 },
566 : { "Sin", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Sin),0 },
567 : { "number", SbxDOUBLE, 0,NULL,0 },
568 : { "SLN", SbxDOUBLE, 2 | _FUNCTION | _COMPATONLY, RTLNAME(SLN),0 },
569 : { "Cost", SbxDOUBLE, 0,NULL,0 },
570 : { "Double", SbxDOUBLE, 0,NULL,0 },
571 : { "Life", SbxDOUBLE, 0,NULL,0 },
572 : { "SYD", SbxDOUBLE, 2 | _FUNCTION | _COMPATONLY, RTLNAME(SYD),0 },
573 : { "Cost", SbxDOUBLE, 0,NULL,0 },
574 : { "Salvage", SbxDOUBLE, 0,NULL,0 },
575 : { "Life", SbxDOUBLE, 0,NULL,0 },
576 : { "Period", SbxDOUBLE, 0,NULL,0 },
577 : { "Space", SbxSTRING, 1 | _FUNCTION, RTLNAME(Space),0 },
578 : { "string", SbxLONG, 0,NULL,0 },
579 : { "Spc", SbxSTRING, 1 | _FUNCTION, RTLNAME(Spc),0 },
580 : { "Count", SbxLONG, 0,NULL,0 },
581 : { "Split", SbxOBJECT, 3 | _FUNCTION, RTLNAME(Split),0 },
582 : { "expression", SbxSTRING, 0,NULL,0 },
583 : { "delimiter", SbxSTRING, 0,NULL,0 },
584 : { "count", SbxLONG, 0,NULL,0 },
585 : { "Sqr", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Sqr),0 },
586 : { "number", SbxDOUBLE, 0,NULL,0 },
587 : { "Str", SbxSTRING, 1 | _FUNCTION, RTLNAME(Str),0 },
588 : { "number", SbxDOUBLE, 0,NULL,0 },
589 : { "StrComp", SbxINTEGER, 3 | _FUNCTION, RTLNAME(StrComp),0 },
590 : { "String1", SbxSTRING, 0,NULL,0 },
591 : { "String2", SbxSTRING, 0,NULL,0 },
592 : { "Compare", SbxINTEGER, _OPT, NULL,0 },
593 : { "StrConv", SbxOBJECT, 3 | _FUNCTION, RTLNAME(StrConv),0 },
594 : { "String", SbxSTRING, 0,NULL,0 },
595 : { "Conversion", SbxSTRING, 0,NULL,0 },
596 : { "LCID", SbxINTEGER, _OPT,NULL,0 },
597 : { "String", SbxSTRING, 2 | _FUNCTION, RTLNAME(String),0 },
598 : { "Count", SbxLONG, 0,NULL,0 },
599 : { "Filler", SbxVARIANT, 0,NULL,0 },
600 : { "StrReverse", SbxSTRING, 1 | _FUNCTION | _COMPATONLY, RTLNAME(StrReverse),0 },
601 : { "String1", SbxSTRING, 0,NULL,0 },
602 : { "Switch", SbxVARIANT, 2 | _FUNCTION, RTLNAME(Switch),0 },
603 : { "Expression", SbxVARIANT, 0,NULL,0 },
604 : { "Value", SbxVARIANT, 0,NULL,0 },
605 :
606 : { "Tan", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Tan),0 },
607 : { "number", SbxDOUBLE, 0,NULL,0 },
608 : { "Time", SbxVARIANT, _LFUNCTION,RTLNAME(Time),0 },
609 : { "Timer", SbxDATE, _FUNCTION, RTLNAME(Timer),0 },
610 : { "TimeSerial", SbxDATE, 3 | _FUNCTION, RTLNAME(TimeSerial),0 },
611 : { "Hour", SbxLONG, 0,NULL,0 },
612 : { "Minute", SbxLONG, 0,NULL,0 },
613 : { "Second", SbxLONG, 0,NULL,0 },
614 : { "TimeValue", SbxDATE, 1 | _FUNCTION, RTLNAME(TimeValue),0 },
615 : { "String", SbxSTRING, 0,NULL,0 },
616 : { "TOGGLE", SbxINTEGER, _CPROP, RTLNAME(TOGGLE),0 },
617 : #ifdef DBG_TRACE_BASIC
618 : { "TraceCommand", SbxNULL, 1 | _FUNCTION, RTLNAME(TraceCommand),0 },
619 : { "Command", SbxSTRING, 0,NULL,0 },
620 : #endif
621 : { "Trim", SbxSTRING, 1 | _FUNCTION, RTLNAME(Trim),0 },
622 : { "String", SbxSTRING, 0,NULL,0 },
623 : { "True", SbxBOOL, _CPROP, RTLNAME(True),0 },
624 : { "TwipsPerPixelX", SbxLONG, _FUNCTION, RTLNAME(TwipsPerPixelX),0 },
625 : { "TwipsPerPixelY", SbxLONG, _FUNCTION, RTLNAME(TwipsPerPixelY),0 },
626 :
627 : { "TYP_AUTHORFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_AUTHORFLD),0 },
628 : { "TYP_CHAPTERFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_CHAPTERFLD),0 },
629 : { "TYP_CONDTXTFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_CONDTXTFLD),0 },
630 : { "TYP_DATEFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_DATEFLD),0 },
631 : { "TYP_DBFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_DBFLD),0 },
632 : { "TYP_DBNAMEFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_DBNAMEFLD),0 },
633 : { "TYP_DBNEXTSETFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_DBNEXTSETFLD),0 },
634 : { "TYP_DBNUMSETFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_DBNUMSETFLD),0 },
635 : { "TYP_DBSETNUMBERFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_DBSETNUMBERFLD),0 },
636 : { "TYP_DDEFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_DDEFLD),0 },
637 : { "TYP_DOCINFOFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_DOCINFOFLD),0 },
638 : { "TYP_DOCSTATFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_DOCSTATFLD),0 },
639 : { "TYP_EXTUSERFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_EXTUSERFLD),0 },
640 : { "TYP_FILENAMEFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_FILENAMEFLD),0 },
641 : { "TYP_FIXDATEFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_FIXDATEFLD),0 },
642 : { "TYP_FIXTIMEFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_FIXTIMEFLD),0 },
643 : { "TYP_FORMELFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_FORMELFLD),0 },
644 : { "TYP_GETFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_GETFLD),0 },
645 : { "TYP_GETREFFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_GETREFFLD),0 },
646 : { "TYP_GETREFPAGEFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_GETREFPAGEFLD),0 },
647 : { "TYP_HIDDENPARAFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_HIDDENPARAFLD),0 },
648 : { "TYP_HIDDENTXTFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_HIDDENTXTFLD),0 },
649 : { "TYP_INPUTFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_INPUTFLD),0 },
650 : { "TYP_INTERNETFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_INTERNETFLD),0 },
651 : { "TYP_JUMPEDITFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_JUMPEDITFLD),0 },
652 : { "TYP_MACROFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_MACROFLD),0 },
653 : { "TYP_NEXTPAGEFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_NEXTPAGEFLD),0 },
654 : { "TYP_PAGENUMBERFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_PAGENUMBERFLD),0 },
655 : { "TYP_POSTITFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_POSTITFLD),0 },
656 : { "TYP_PREVPAGEFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_PREVPAGEFLD),0 },
657 : { "TYP_SEQFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_SEQFLD),0 },
658 : { "TYP_SETFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_SETFLD),0 },
659 : { "TYP_SETINPFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_SETINPFLD),0 },
660 : { "TYP_SETREFFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_SETREFFLD),0 },
661 : { "TYP_SETREFPAGEFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_SETREFPAGEFLD),0 },
662 : { "TYP_TEMPLNAMEFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_TEMPLNAMEFLD),0},
663 : { "TYP_TIMEFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_TIMEFLD),0 },
664 : { "TYP_USERFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_USERFLD),0 },
665 : { "TYP_USRINPFLD", SbxINTEGER, _CPROP, RTLNAME(TYP_USRINPFLD),0 },
666 :
667 : { "TypeLen", SbxINTEGER, 1 | _FUNCTION, RTLNAME(TypeLen),0 },
668 : { "Var", SbxVARIANT, 0,NULL,0 },
669 : { "TypeName", SbxSTRING, 1 | _FUNCTION, RTLNAME(TypeName),0 },
670 : { "Var", SbxVARIANT, 0,NULL,0 },
671 :
672 : { "UBound", SbxLONG, 1 | _FUNCTION, RTLNAME(UBound),0 },
673 : { "Var", SbxVARIANT, 0,NULL,0 },
674 : { "UCase", SbxSTRING, 1 | _FUNCTION, RTLNAME(UCase),0 },
675 : { "String", SbxSTRING, 0,NULL,0 },
676 : { "Unload", SbxNULL, 1 | _FUNCTION, RTLNAME(Unload),0 },
677 : { "Dialog", SbxOBJECT, 0,NULL,0 },
678 :
679 : { "Val", SbxDOUBLE, 1 | _FUNCTION, RTLNAME(Val),0 },
680 : { "String", SbxSTRING, 0,NULL,0 },
681 : { "VarType", SbxINTEGER, 1 | _FUNCTION, RTLNAME(VarType),0 },
682 : { "Var", SbxVARIANT, 0,NULL,0 },
683 : { "V_EMPTY", SbxINTEGER, _CPROP, RTLNAME(V_EMPTY),0 },
684 : { "V_NULL", SbxINTEGER, _CPROP, RTLNAME(V_NULL),0 },
685 : { "V_INTEGER", SbxINTEGER, _CPROP, RTLNAME(V_INTEGER),0 },
686 : { "V_LONG", SbxINTEGER, _CPROP, RTLNAME(V_LONG),0 },
687 : { "V_SINGLE", SbxINTEGER, _CPROP, RTLNAME(V_SINGLE),0 },
688 : { "V_DOUBLE", SbxINTEGER, _CPROP, RTLNAME(V_DOUBLE),0 },
689 : { "V_CURRENCY", SbxINTEGER, _CPROP, RTLNAME(V_CURRENCY),0 },
690 : { "V_DATE", SbxINTEGER, _CPROP, RTLNAME(V_DATE),0 },
691 : { "V_STRING", SbxINTEGER, _CPROP, RTLNAME(V_STRING),0 },
692 :
693 : { "Wait", SbxNULL, 1 | _FUNCTION, RTLNAME(Wait),0 },
694 : { "Milliseconds", SbxLONG, 0,NULL,0 },
695 : { "FuncCaller", SbxVARIANT, _FUNCTION, RTLNAME(FuncCaller),0 },
696 : //#i64882#
697 : { "WaitUntil", SbxNULL, 1 | _FUNCTION, RTLNAME(WaitUntil),0 },
698 : { "Date", SbxDOUBLE, 0,NULL,0 },
699 : { "Weekday", SbxINTEGER, 2 | _FUNCTION, RTLNAME(Weekday),0 },
700 : { "Date", SbxDATE, 0,NULL,0 },
701 : { "Firstdayofweek", SbxINTEGER, _OPT, NULL,0 },
702 : { "WeekdayName", SbxSTRING, 3 | _FUNCTION | _COMPATONLY, RTLNAME(WeekdayName),0 },
703 : { "Weekday", SbxINTEGER, 0,NULL,0 },
704 : { "Abbreviate", SbxBOOL, _OPT, NULL,0 },
705 : { "Firstdayofweek", SbxINTEGER, _OPT, NULL,0 },
706 : { "Year", SbxINTEGER, 1 | _FUNCTION, RTLNAME(Year),0 },
707 : { "Date", SbxDATE, 0,NULL,0 },
708 :
709 : { NULL, SbxNULL, -1,NULL,0 }}; // end of the table
710 :
711 774 : SbiStdObject::SbiStdObject( const OUString& r, StarBASIC* pb ) : SbxObject( r )
712 : {
713 : // do we have to initialize the hashcodes?
714 774 : Methods* p = aMethods;
715 774 : if( !p->nHash )
716 20167 : while( p->nArgs != -1 )
717 : {
718 20033 : OUString aName_ = OUString::createFromAscii( p->pName );
719 20033 : p->nHash = SbxVariable::MakeHashCode( aName_ );
720 20033 : p += ( p->nArgs & _ARGSMASK ) + 1;
721 20033 : }
722 :
723 : // #i92642: Remove default properties
724 774 : Remove( OUString("Name"), SbxCLASS_DONTCARE );
725 774 : Remove( OUString("Parent"), SbxCLASS_DONTCARE );
726 :
727 774 : SetParent( pb );
728 :
729 774 : pStdFactory = new SbStdFactory;
730 774 : SbxBase::AddFactory( pStdFactory );
731 :
732 774 : Insert( new SbStdClipboard );
733 774 : }
734 :
735 1212 : SbiStdObject::~SbiStdObject()
736 : {
737 303 : SbxBase::RemoveFactory( pStdFactory );
738 303 : delete pStdFactory;
739 909 : }
740 :
741 : // Finding an element:
742 : // It runs linearly through the method table here until an
743 : // adequate method is has been found. Because of the bits in
744 : // the nArgs-field the adequate instance of an SbxObjElement
745 : // is created then. If the method/property hasn't been found,
746 : // return NULL without error code, so that a whole chain of
747 : // objects can be asked for the method/property.
748 :
749 34126 : SbxVariable* SbiStdObject::Find( const OUString& rName, SbxClassType t )
750 : {
751 : // entered already?
752 34126 : SbxVariable* pVar = SbxObject::Find( rName, t );
753 34126 : if( !pVar )
754 : {
755 : // else search one
756 32292 : sal_uInt16 nHash_ = SbxVariable::MakeHashCode( rName );
757 32292 : Methods* p = aMethods;
758 32292 : bool bFound = false;
759 32292 : short nIndex = 0;
760 32292 : sal_uInt16 nSrchMask = _TYPEMASK;
761 32292 : switch( t )
762 : {
763 441 : case SbxCLASS_METHOD: nSrchMask = _METHOD; break;
764 1556 : case SbxCLASS_PROPERTY: nSrchMask = _PROPERTY; break;
765 18002 : case SbxCLASS_OBJECT: nSrchMask = _OBJECT; break;
766 12293 : default: break;
767 : }
768 9614842 : while( p->nArgs != -1 )
769 : {
770 19101446 : if( ( p->nArgs & nSrchMask )
771 3772076 : && ( p->nHash == nHash_ )
772 9551606 : && ( rName.equalsIgnoreAsciiCaseAscii( p->pName ) ) )
773 : {
774 465 : SbiInstance* pInst = GetSbData()->pInst;
775 465 : bFound = true;
776 465 : if( p->nArgs & _COMPTMASK )
777 : {
778 2 : if ( !pInst || ( pInst->IsCompatibility() && ( _NORMONLY & p->nArgs ) ) || ( !pInst->IsCompatibility() && ( _COMPATONLY & p->nArgs ) ) )
779 1 : bFound = false;
780 : }
781 465 : break;
782 : }
783 9550258 : nIndex += ( p->nArgs & _ARGSMASK ) + 1;
784 9550258 : p = aMethods + nIndex;
785 : }
786 :
787 32292 : if( bFound )
788 : {
789 : // isolate Args-fields:
790 464 : short nAccess = ( p->nArgs & _RWMASK ) >> 8;
791 464 : short nType = ( p->nArgs & _TYPEMASK );
792 464 : if( p->nArgs & _CONST )
793 50 : nAccess |= SBX_CONST;
794 464 : OUString aName_ = OUString::createFromAscii( p->pName );
795 464 : SbxClassType eCT = SbxCLASS_OBJECT;
796 464 : if( nType & _PROPERTY )
797 : {
798 50 : eCT = SbxCLASS_PROPERTY;
799 : }
800 414 : else if( nType & _METHOD )
801 : {
802 414 : eCT = SbxCLASS_METHOD;
803 : }
804 464 : pVar = Make( aName_, eCT, p->eType );
805 464 : pVar->SetUserData( nIndex + 1 );
806 464 : pVar->SetFlags( nAccess );
807 : }
808 : }
809 34126 : return pVar;
810 : }
811 :
812 : // SetModified must be pinched off at the RTL
813 4673 : void SbiStdObject::SetModified( sal_Bool )
814 : {
815 4673 : }
816 :
817 :
818 1601 : void SbiStdObject::SFX_NOTIFY( SfxBroadcaster& rBC, const TypeId& rBCType,
819 : const SfxHint& rHint, const TypeId& rHintType )
820 :
821 : {
822 1601 : const SbxHint* pHint = PTR_CAST(SbxHint,&rHint);
823 1601 : if( pHint )
824 : {
825 1601 : SbxVariable* pVar = pHint->GetVar();
826 1601 : SbxArray* pPar_ = pVar->GetParameters();
827 1601 : sal_uIntPtr t = pHint->GetId();
828 1601 : sal_uInt16 nCallId = (sal_uInt16) pVar->GetUserData();
829 1601 : if( nCallId )
830 : {
831 1601 : if( t == SBX_HINT_INFOWANTED )
832 1 : pVar->SetInfo( GetInfo( (short) pVar->GetUserData() ) );
833 : else
834 : {
835 1600 : sal_Bool bWrite = sal_False;
836 1600 : if( t == SBX_HINT_DATACHANGED )
837 0 : bWrite = sal_True;
838 1600 : if( t == SBX_HINT_DATAWANTED || bWrite )
839 : {
840 1600 : RtlCall p = (RtlCall) aMethods[ nCallId-1 ].pFunc;
841 1600 : SbxArrayRef rPar( pPar_ );
842 1600 : if( !pPar_ )
843 : {
844 1005 : rPar = pPar_ = new SbxArray;
845 1005 : pPar_->Put( pVar, 0 );
846 : }
847 1600 : p( (StarBASIC*) GetParent(), *pPar_, bWrite );
848 3201 : return;
849 : }
850 : }
851 : }
852 1 : SbxObject::SFX_NOTIFY( rBC, rBCType, rHint, rHintType );
853 : }
854 : }
855 :
856 : // building the info-structure for single elements
857 : // if nIdx = 0, don't create anything (Std-Props!)
858 :
859 1 : SbxInfo* SbiStdObject::GetInfo( short nIdx )
860 : {
861 1 : if( !nIdx )
862 0 : return NULL;
863 1 : Methods* p = &aMethods[ --nIdx ];
864 1 : SbxInfo* pInfo_ = new SbxInfo;
865 1 : short nPar = p->nArgs & _ARGSMASK;
866 7 : for( short i = 0; i < nPar; i++ )
867 : {
868 6 : p++;
869 6 : OUString aName_ = OUString::createFromAscii( p->pName );
870 6 : sal_uInt16 nFlags_ = ( p->nArgs >> 8 ) & 0x03;
871 6 : if( p->nArgs & _OPT )
872 : {
873 3 : nFlags_ |= SBX_OPTIONAL;
874 : }
875 6 : pInfo_->AddParam( aName_, p->eType, nFlags_ );
876 6 : }
877 1 : return pInfo_;
878 429 : }
879 :
880 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
