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 "rtlproto.hxx"
24 : #include "errobject.hxx"
25 : #include <basegfx/numeric/ftools.hxx>
26 :
27 :
28 : // Properties and methods lay the return value down at Get (bWrite = sal_False)
29 : // at the element 0 of the Argv; at Put (bWrite = sal_True) the value from
30 : // element 0 is stored.
31 :
32 0 : RTLFUNC(Erl)
33 : {
34 : (void)pBasic;
35 : (void)bWrite;
36 :
37 0 : rPar.Get( 0 )->PutLong( StarBASIC::GetErl() );
38 0 : }
39 :
40 0 : RTLFUNC(Err)
41 : {
42 : (void)pBasic;
43 : (void)bWrite;
44 :
45 0 : if( SbiRuntime::isVBAEnabled() )
46 : {
47 0 : rPar.Get( 0 )->PutObject( SbxErrObject::getErrObject() );
48 : }
49 : else
50 : {
51 0 : if( bWrite )
52 : {
53 0 : sal_Int32 nVal = rPar.Get( 0 )->GetLong();
54 0 : if( nVal <= 65535L )
55 0 : StarBASIC::Error( StarBASIC::GetSfxFromVBError( (sal_uInt16) nVal ) );
56 : }
57 : else
58 0 : rPar.Get( 0 )->PutLong( StarBASIC::GetVBErrorCode( StarBASIC::GetErrBasic() ) );
59 : }
60 0 : }
61 :
62 384 : RTLFUNC(False)
63 : {
64 : (void)pBasic;
65 : (void)bWrite;
66 :
67 384 : rPar.Get(0)->PutBool( false );
68 384 : }
69 :
70 0 : RTLFUNC(Empty)
71 : {
72 : (void)pBasic;
73 : (void)bWrite;
74 : (void)rPar;
75 0 : }
76 :
77 32 : RTLFUNC(Nothing)
78 : {
79 : (void)pBasic;
80 : (void)bWrite;
81 :
82 : // return an empty object
83 32 : rPar.Get( 0 )->PutObject( NULL );
84 32 : }
85 :
86 0 : RTLFUNC(Null)
87 : {
88 : (void)pBasic;
89 : (void)bWrite;
90 :
91 : // returns an empty object-variable
92 0 : rPar.Get( 0 )->PutNull();
93 0 : }
94 :
95 0 : RTLFUNC(PI)
96 : {
97 : (void)pBasic;
98 : (void)bWrite;
99 :
100 0 : rPar.Get( 0 )->PutDouble( F_PI );
101 0 : }
102 :
103 1554 : RTLFUNC(True)
104 : {
105 : (void)pBasic;
106 : (void)bWrite;
107 :
108 1554 : rPar.Get( 0 )->PutBool( true );
109 1554 : }
110 :
111 0 : RTLFUNC(ATTR_NORMAL)
112 : {
113 : (void)pBasic;
114 : (void)bWrite;
115 :
116 0 : rPar.Get(0)->PutInteger(0);
117 0 : }
118 0 : RTLFUNC(ATTR_READONLY)
119 : {
120 : (void)pBasic;
121 : (void)bWrite;
122 :
123 0 : rPar.Get(0)->PutInteger(1);
124 0 : }
125 0 : RTLFUNC(ATTR_HIDDEN)
126 : {
127 : (void)pBasic;
128 : (void)bWrite;
129 :
130 0 : rPar.Get(0)->PutInteger(2);
131 0 : }
132 0 : RTLFUNC(ATTR_SYSTEM)
133 : {
134 : (void)pBasic;
135 : (void)bWrite;
136 :
137 0 : rPar.Get(0)->PutInteger(4);
138 0 : }
139 0 : RTLFUNC(ATTR_VOLUME)
140 : {
141 : (void)pBasic;
142 : (void)bWrite;
143 :
144 0 : rPar.Get(0)->PutInteger(8);
145 0 : }
146 0 : RTLFUNC(ATTR_DIRECTORY)
147 : {
148 : (void)pBasic;
149 : (void)bWrite;
150 :
151 0 : rPar.Get(0)->PutInteger(16);
152 0 : }
153 0 : RTLFUNC(ATTR_ARCHIVE)
154 : {
155 : (void)pBasic;
156 : (void)bWrite;
157 :
158 0 : rPar.Get(0)->PutInteger(32);
159 0 : }
160 :
161 0 : RTLFUNC(V_EMPTY)
162 : {
163 : (void)pBasic;
164 : (void)bWrite;
165 :
166 0 : rPar.Get(0)->PutInteger(0);
167 0 : }
168 0 : RTLFUNC(V_NULL)
169 : {
170 : (void)pBasic;
171 : (void)bWrite;
172 :
173 0 : rPar.Get(0)->PutInteger(1);
174 0 : }
175 0 : RTLFUNC(V_INTEGER)
176 : {
177 : (void)pBasic;
178 : (void)bWrite;
179 :
180 0 : rPar.Get(0)->PutInteger(2);
181 0 : }
182 0 : RTLFUNC(V_LONG)
183 : {
184 : (void)pBasic;
185 : (void)bWrite;
186 :
187 0 : rPar.Get(0)->PutInteger(3);
188 0 : }
189 0 : RTLFUNC(V_SINGLE)
190 : {
191 : (void)pBasic;
192 : (void)bWrite;
193 :
194 0 : rPar.Get(0)->PutInteger(4);
195 0 : }
196 0 : RTLFUNC(V_DOUBLE)
197 : {
198 : (void)pBasic;
199 : (void)bWrite;
200 :
201 0 : rPar.Get(0)->PutInteger(5);
202 0 : }
203 0 : RTLFUNC(V_CURRENCY)
204 : {
205 : (void)pBasic;
206 : (void)bWrite;
207 :
208 0 : rPar.Get(0)->PutInteger(6);
209 0 : }
210 0 : RTLFUNC(V_DATE)
211 : {
212 : (void)pBasic;
213 : (void)bWrite;
214 :
215 0 : rPar.Get(0)->PutInteger(7);
216 0 : }
217 0 : RTLFUNC(V_STRING)
218 : {
219 : (void)pBasic;
220 : (void)bWrite;
221 :
222 0 : rPar.Get(0)->PutInteger(8);
223 0 : }
224 :
225 0 : RTLFUNC(MB_OK)
226 : {
227 : (void)pBasic;
228 : (void)bWrite;
229 :
230 0 : rPar.Get(0)->PutInteger(0);
231 0 : }
232 0 : RTLFUNC(MB_OKCANCEL)
233 : {
234 : (void)pBasic;
235 : (void)bWrite;
236 :
237 0 : rPar.Get(0)->PutInteger(1);
238 0 : }
239 0 : RTLFUNC(MB_ABORTRETRYIGNORE)
240 : {
241 : (void)pBasic;
242 : (void)bWrite;
243 :
244 0 : rPar.Get(0)->PutInteger(2);
245 0 : }
246 0 : RTLFUNC(MB_YESNOCANCEL)
247 : {
248 : (void)pBasic;
249 : (void)bWrite;
250 :
251 0 : rPar.Get(0)->PutInteger(3);
252 0 : }
253 0 : RTLFUNC(MB_YESNO)
254 : {
255 : (void)pBasic;
256 : (void)bWrite;
257 :
258 0 : rPar.Get(0)->PutInteger(4);
259 0 : }
260 0 : RTLFUNC(MB_RETRYCANCEL)
261 : {
262 : (void)pBasic;
263 : (void)bWrite;
264 :
265 0 : rPar.Get(0)->PutInteger(5);
266 0 : }
267 0 : RTLFUNC(MB_ICONSTOP)
268 : {
269 : (void)pBasic;
270 : (void)bWrite;
271 :
272 0 : rPar.Get(0)->PutInteger(16);
273 0 : }
274 0 : RTLFUNC(MB_ICONQUESTION)
275 : {
276 : (void)pBasic;
277 : (void)bWrite;
278 :
279 0 : rPar.Get(0)->PutInteger(32);
280 0 : }
281 0 : RTLFUNC(MB_ICONEXCLAMATION)
282 : {
283 : (void)pBasic;
284 : (void)bWrite;
285 :
286 0 : rPar.Get(0)->PutInteger(48);
287 0 : }
288 0 : RTLFUNC(MB_ICONINFORMATION)
289 : {
290 : (void)pBasic;
291 : (void)bWrite;
292 :
293 0 : rPar.Get(0)->PutInteger(64);
294 0 : }
295 0 : RTLFUNC(MB_DEFBUTTON1)
296 : {
297 : (void)pBasic;
298 : (void)bWrite;
299 :
300 0 : rPar.Get(0)->PutInteger(0);
301 0 : }
302 0 : RTLFUNC(MB_DEFBUTTON2)
303 : {
304 : (void)pBasic;
305 : (void)bWrite;
306 :
307 0 : rPar.Get(0)->PutInteger(256);
308 0 : }
309 0 : RTLFUNC(MB_DEFBUTTON3)
310 : {
311 : (void)pBasic;
312 : (void)bWrite;
313 :
314 0 : rPar.Get(0)->PutInteger(512);
315 0 : }
316 0 : RTLFUNC(MB_APPLMODAL)
317 : {
318 : (void)pBasic;
319 : (void)bWrite;
320 :
321 0 : rPar.Get(0)->PutInteger(0);
322 0 : }
323 0 : RTLFUNC(MB_SYSTEMMODAL)
324 : {
325 : (void)pBasic;
326 : (void)bWrite;
327 :
328 0 : rPar.Get(0)->PutInteger(4096);
329 0 : }
330 :
331 0 : RTLFUNC(IDOK)
332 : {
333 : (void)pBasic;
334 : (void)bWrite;
335 :
336 0 : rPar.Get(0)->PutInteger(1);
337 0 : }
338 :
339 0 : RTLFUNC(IDCANCEL)
340 : {
341 : (void)pBasic;
342 : (void)bWrite;
343 :
344 0 : rPar.Get(0)->PutInteger(2);
345 0 : }
346 0 : RTLFUNC(IDABORT)
347 : {
348 : (void)pBasic;
349 : (void)bWrite;
350 :
351 0 : rPar.Get(0)->PutInteger(3);
352 0 : }
353 0 : RTLFUNC(IDRETRY)
354 : {
355 : (void)pBasic;
356 : (void)bWrite;
357 :
358 0 : rPar.Get(0)->PutInteger(4);
359 0 : }
360 0 : RTLFUNC(IDYES)
361 : {
362 : (void)pBasic;
363 : (void)bWrite;
364 :
365 0 : rPar.Get(0)->PutInteger(6);
366 0 : }
367 0 : RTLFUNC(IDNO)
368 : {
369 : (void)pBasic;
370 : (void)bWrite;
371 :
372 0 : rPar.Get(0)->PutInteger(7);
373 0 : }
374 :
375 0 : RTLFUNC(CF_TEXT)
376 : {
377 : (void)pBasic;
378 : (void)bWrite;
379 :
380 0 : rPar.Get(0)->PutInteger(1);
381 0 : }
382 0 : RTLFUNC(CF_BITMAP)
383 : {
384 : (void)pBasic;
385 : (void)bWrite;
386 :
387 0 : rPar.Get(0)->PutInteger(2);
388 0 : }
389 0 : RTLFUNC(CF_METAFILEPICT)
390 : {
391 : (void)pBasic;
392 : (void)bWrite;
393 :
394 0 : rPar.Get(0)->PutInteger(3);
395 0 : }
396 :
397 0 : RTLFUNC(TYP_AUTHORFLD)
398 : {
399 : (void)pBasic;
400 : (void)bWrite;
401 :
402 0 : rPar.Get(0)->PutInteger(7);
403 0 : }
404 0 : RTLFUNC(TYP_CHAPTERFLD)
405 : {
406 : (void)pBasic;
407 : (void)bWrite;
408 :
409 0 : rPar.Get(0)->PutInteger(4);
410 0 : }
411 0 : RTLFUNC(TYP_CONDTXTFLD)
412 : {
413 : (void)pBasic;
414 : (void)bWrite;
415 :
416 0 : rPar.Get(0)->PutInteger(27);
417 0 : }
418 0 : RTLFUNC(TYP_DATEFLD)
419 : {
420 : (void)pBasic;
421 : (void)bWrite;
422 :
423 0 : rPar.Get(0)->PutInteger(0);
424 0 : }
425 0 : RTLFUNC(TYP_DBFLD)
426 : {
427 : (void)pBasic;
428 : (void)bWrite;
429 :
430 0 : rPar.Get(0)->PutInteger(19);
431 0 : }
432 0 : RTLFUNC(TYP_DBNAMEFLD)
433 : {
434 : (void)pBasic;
435 : (void)bWrite;
436 :
437 0 : rPar.Get(0)->PutInteger(3);
438 0 : }
439 0 : RTLFUNC(TYP_DBNEXTSETFLD)
440 : {
441 : (void)pBasic;
442 : (void)bWrite;
443 :
444 0 : rPar.Get(0)->PutInteger(24);
445 0 : }
446 0 : RTLFUNC(TYP_DBNUMSETFLD)
447 : {
448 : (void)pBasic;
449 : (void)bWrite;
450 :
451 0 : rPar.Get(0)->PutInteger(25);
452 0 : }
453 0 : RTLFUNC(TYP_DBSETNUMBERFLD)
454 : {
455 : (void)pBasic;
456 : (void)bWrite;
457 :
458 0 : rPar.Get(0)->PutInteger(26);
459 0 : }
460 0 : RTLFUNC(TYP_DDEFLD)
461 : {
462 : (void)pBasic;
463 : (void)bWrite;
464 :
465 0 : rPar.Get(0)->PutInteger(14);
466 0 : }
467 0 : RTLFUNC(TYP_DOCINFOFLD)
468 : {
469 : (void)pBasic;
470 : (void)bWrite;
471 :
472 0 : rPar.Get(0)->PutInteger(18);
473 0 : }
474 0 : RTLFUNC(TYP_DOCSTATFLD)
475 : {
476 : (void)pBasic;
477 : (void)bWrite;
478 :
479 0 : rPar.Get(0)->PutInteger(6);
480 0 : }
481 0 : RTLFUNC(TYP_EXTUSERFLD)
482 : {
483 : (void)pBasic;
484 : (void)bWrite;
485 :
486 0 : rPar.Get(0)->PutInteger(30);
487 0 : }
488 0 : RTLFUNC(TYP_FILENAMEFLD)
489 : {
490 : (void)pBasic;
491 : (void)bWrite;
492 :
493 0 : rPar.Get(0)->PutInteger(2);
494 0 : }
495 0 : RTLFUNC(TYP_FIXDATEFLD)
496 : {
497 : (void)pBasic;
498 : (void)bWrite;
499 :
500 0 : rPar.Get(0)->PutInteger(31);
501 0 : }
502 0 : RTLFUNC(TYP_FIXTIMEFLD)
503 : {
504 : (void)pBasic;
505 : (void)bWrite;
506 :
507 0 : rPar.Get(0)->PutInteger(32);
508 0 : }
509 0 : RTLFUNC(TYP_FORMELFLD)
510 : {
511 : (void)pBasic;
512 : (void)bWrite;
513 :
514 0 : rPar.Get(0)->PutInteger(10);
515 0 : }
516 0 : RTLFUNC(TYP_GETFLD)
517 : {
518 : (void)pBasic;
519 : (void)bWrite;
520 :
521 0 : rPar.Get(0)->PutInteger(9);
522 0 : }
523 0 : RTLFUNC(TYP_GETREFFLD)
524 : {
525 : (void)pBasic;
526 : (void)bWrite;
527 :
528 0 : rPar.Get(0)->PutInteger(13);
529 0 : }
530 0 : RTLFUNC(TYP_HIDDENPARAFLD)
531 : {
532 : (void)pBasic;
533 : (void)bWrite;
534 :
535 0 : rPar.Get(0)->PutInteger(17);
536 0 : }
537 0 : RTLFUNC(TYP_HIDDENTXTFLD)
538 : {
539 : (void)pBasic;
540 : (void)bWrite;
541 :
542 0 : rPar.Get(0)->PutInteger(11);
543 0 : }
544 0 : RTLFUNC(TYP_INPUTFLD)
545 : {
546 : (void)pBasic;
547 : (void)bWrite;
548 :
549 0 : rPar.Get(0)->PutInteger(16);
550 0 : }
551 0 : RTLFUNC(TYP_MACROFLD)
552 : {
553 : (void)pBasic;
554 : (void)bWrite;
555 :
556 0 : rPar.Get(0)->PutInteger(15);
557 0 : }
558 0 : RTLFUNC(TYP_NEXTPAGEFLD)
559 : {
560 : (void)pBasic;
561 : (void)bWrite;
562 :
563 0 : rPar.Get(0)->PutInteger(28);
564 0 : }
565 0 : RTLFUNC(TYP_PAGENUMBERFLD)
566 : {
567 : (void)pBasic;
568 : (void)bWrite;
569 :
570 0 : rPar.Get(0)->PutInteger(5);
571 0 : }
572 0 : RTLFUNC(TYP_POSTITFLD)
573 : {
574 : (void)pBasic;
575 : (void)bWrite;
576 :
577 0 : rPar.Get(0)->PutInteger(21);
578 0 : }
579 0 : RTLFUNC(TYP_PREVPAGEFLD)
580 : {
581 : (void)pBasic;
582 : (void)bWrite;
583 :
584 0 : rPar.Get(0)->PutInteger(29);
585 0 : }
586 0 : RTLFUNC(TYP_SEQFLD)
587 : {
588 : (void)pBasic;
589 : (void)bWrite;
590 :
591 0 : rPar.Get(0)->PutInteger(23);
592 0 : }
593 0 : RTLFUNC(TYP_SETFLD)
594 : {
595 : (void)pBasic;
596 : (void)bWrite;
597 :
598 0 : rPar.Get(0)->PutInteger(8);
599 0 : }
600 0 : RTLFUNC(TYP_SETINPFLD)
601 : {
602 : (void)pBasic;
603 : (void)bWrite;
604 :
605 0 : rPar.Get(0)->PutInteger(33);
606 0 : }
607 0 : RTLFUNC(TYP_SETREFFLD)
608 : {
609 : (void)pBasic;
610 : (void)bWrite;
611 :
612 0 : rPar.Get(0)->PutInteger(12);
613 0 : }
614 0 : RTLFUNC(TYP_TEMPLNAMEFLD)
615 : {
616 : (void)pBasic;
617 : (void)bWrite;
618 :
619 0 : rPar.Get(0)->PutInteger(22);
620 0 : }
621 0 : RTLFUNC(TYP_TIMEFLD)
622 : {
623 : (void)pBasic;
624 : (void)bWrite;
625 :
626 0 : rPar.Get(0)->PutInteger(1);
627 0 : }
628 0 : RTLFUNC(TYP_USERFLD)
629 : {
630 : (void)pBasic;
631 : (void)bWrite;
632 :
633 0 : rPar.Get(0)->PutInteger(20);
634 0 : }
635 0 : RTLFUNC(TYP_USRINPFLD)
636 : {
637 : (void)pBasic;
638 : (void)bWrite;
639 :
640 0 : rPar.Get(0)->PutInteger(34);
641 0 : }
642 0 : RTLFUNC(TYP_SETREFPAGEFLD)
643 : {
644 : (void)pBasic;
645 : (void)bWrite;
646 :
647 0 : rPar.Get(0)->PutInteger(35);
648 0 : }
649 0 : RTLFUNC(TYP_GETREFPAGEFLD)
650 : {
651 : (void)pBasic;
652 : (void)bWrite;
653 :
654 0 : rPar.Get(0)->PutInteger(36);
655 0 : }
656 0 : RTLFUNC(TYP_INTERNETFLD)
657 : {
658 : (void)pBasic;
659 : (void)bWrite;
660 :
661 0 : rPar.Get(0)->PutInteger(37);
662 0 : }
663 :
664 0 : RTLFUNC(SET_ON)
665 : {
666 : (void)pBasic;
667 : (void)bWrite;
668 :
669 0 : rPar.Get(0)->PutInteger(1);
670 0 : }
671 0 : RTLFUNC(SET_OFF)
672 : {
673 : (void)pBasic;
674 : (void)bWrite;
675 :
676 0 : rPar.Get(0)->PutInteger(0);
677 0 : }
678 0 : RTLFUNC(TOGGLE)
679 : {
680 : (void)pBasic;
681 : (void)bWrite;
682 :
683 0 : rPar.Get(0)->PutInteger(2);
684 0 : }
685 :
686 0 : RTLFUNC(FRAMEANCHORPAGE)
687 : {
688 : (void)pBasic;
689 : (void)bWrite;
690 :
691 0 : rPar.Get(0)->PutInteger(1);
692 0 : }
693 0 : RTLFUNC(FRAMEANCHORPARA)
694 : {
695 : (void)pBasic;
696 : (void)bWrite;
697 :
698 0 : rPar.Get(0)->PutInteger(14);
699 0 : }
700 0 : RTLFUNC(FRAMEANCHORCHAR)
701 : {
702 : (void)pBasic;
703 : (void)bWrite;
704 :
705 0 : rPar.Get(0)->PutInteger(15);
706 0 : }
707 :
708 0 : RTLFUNC(CLEAR_ALLTABS)
709 : {
710 : (void)pBasic;
711 : (void)bWrite;
712 :
713 0 : rPar.Get(0)->PutInteger(2);
714 0 : }
715 0 : RTLFUNC(CLEAR_TAB)
716 : {
717 : (void)pBasic;
718 : (void)bWrite;
719 :
720 0 : rPar.Get(0)->PutInteger(1);
721 0 : }
722 0 : RTLFUNC(SET_TAB)
723 : {
724 : (void)pBasic;
725 : (void)bWrite;
726 :
727 0 : rPar.Get(0)->PutInteger(0);
728 0 : }
729 :
730 0 : RTLFUNC(LINEPROP)
731 : {
732 : (void)pBasic;
733 : (void)bWrite;
734 :
735 0 : rPar.Get(0)->PutInteger(0);
736 0 : }
737 0 : RTLFUNC(LINE_1)
738 : {
739 : (void)pBasic;
740 : (void)bWrite;
741 :
742 0 : rPar.Get(0)->PutInteger(1);
743 0 : }
744 0 : RTLFUNC(LINE_15)
745 : {
746 : (void)pBasic;
747 : (void)bWrite;
748 :
749 0 : rPar.Get(0)->PutInteger(2);
750 0 : }
751 0 : RTLFUNC(LINE_2)
752 : {
753 : (void)pBasic;
754 : (void)bWrite;
755 :
756 0 : rPar.Get(0)->PutInteger(3);
757 0 : }
758 :
759 0 : RTLFUNC(TYP_JUMPEDITFLD)
760 : {
761 : (void)pBasic;
762 : (void)bWrite;
763 :
764 0 : rPar.Get(0)->PutInteger(38);
765 0 : }
766 :
767 :
768 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
