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