basic/source/runtime/props.cxx

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