basic/source/runtime/props.cxx

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