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 <rtlproto.hxx>
  23 #include <errobject.hxx>
  24 #include <basegfx/numeric/ftools.hxx>
  25
  26
  27 // Properties and methods lay the return value down at Get (bWrite = sal_False)
  28 // at the element 0 of the Argv; at Put (bWrite = sal_True) the value from
  29 // element 0 is stored.
  30
  31 void SbRtl_Erl(StarBASIC *, SbxArray & rPar, bool)
  32 {
  33     rPar.Get( 0 )->PutLong( StarBASIC::GetErl() );
  34 }
  35
  36 void SbRtl_Err(StarBASIC *, SbxArray & rPar, bool bWrite)
  37 {
  38     if( SbiRuntime::isVBAEnabled() )
  39     {
  40         rPar.Get( 0 )->PutObject( SbxErrObject::getErrObject().get() );
  41     }
  42     else
  43     {
  44         if( bWrite )
  45         {
  46             sal_Int32 nVal = rPar.Get( 0 )->GetLong();
  47             if( nVal <= 65535 )
  48                 StarBASIC::Error( StarBASIC::GetSfxFromVBError( static_cast<sal_uInt16>(nVal) ) );
  49         }
  50         else
  51             rPar.Get( 0 )->PutLong( StarBASIC::GetVBErrorCode( StarBASIC::GetErrBasic() ) );
  52     }
  53 }
  54
  55 void SbRtl_False(StarBASIC *, SbxArray & rPar, bool)
  56 {
  57     rPar.Get(0)->PutBool( false );
  58 }
  59
  60 void SbRtl_Empty(StarBASIC *, SbxArray &, bool) {}
  61
  62 void SbRtl_Nothing(StarBASIC *, SbxArray & rPar, bool)
  63 {
  64     // return an empty object
  65     rPar.Get( 0 )->PutObject( nullptr );
  66 }
  67
  68 void SbRtl_Null(StarBASIC *, SbxArray & rPar, bool)
  69 {
  70     // returns an empty object-variable
  71     rPar.Get( 0 )->PutNull();
  72 }
  73
  74 void SbRtl_PI(StarBASIC *, SbxArray & rPar, bool)
  75 {
  76     rPar.Get( 0 )->PutDouble( F_PI );
  77 }
  78
  79 void SbRtl_True(StarBASIC *, SbxArray & rPar, bool)
  80 {
  81     rPar.Get( 0 )->PutBool( true );
  82 }
  83
  84 void SbRtl_ATTR_NORMAL(StarBASIC *, SbxArray & rPar, bool)
  85 {
  86     rPar.Get(0)->PutInteger(0);
  87 }
  88 void SbRtl_ATTR_READONLY(StarBASIC *, SbxArray & rPar, bool)
  89 {
  90     rPar.Get(0)->PutInteger(1);
  91 }
  92 void SbRtl_ATTR_HIDDEN(StarBASIC *, SbxArray & rPar, bool)
  93 {
  94     rPar.Get(0)->PutInteger(2);
  95 }
  96 void SbRtl_ATTR_SYSTEM(StarBASIC *, SbxArray & rPar, bool)
  97 {
  98     rPar.Get(0)->PutInteger(4);
  99 }
 100 void SbRtl_ATTR_VOLUME(StarBASIC *, SbxArray & rPar, bool)
 101 {
 102     rPar.Get(0)->PutInteger(8);
 103 }
 104 void SbRtl_ATTR_DIRECTORY(StarBASIC *, SbxArray & rPar, bool)
 105 {
 106     rPar.Get(0)->PutInteger(16);
 107 }
 108 void SbRtl_ATTR_ARCHIVE(StarBASIC *, SbxArray & rPar, bool)
 109 {
 110     rPar.Get(0)->PutInteger(32);
 111 }
 112
 113 void SbRtl_V_EMPTY(StarBASIC *, SbxArray & rPar, bool)
 114 {
 115     rPar.Get(0)->PutInteger(0);
 116 }
 117 void SbRtl_V_NULL(StarBASIC *, SbxArray & rPar, bool)
 118 {
 119     rPar.Get(0)->PutInteger(1);
 120 }
 121 void SbRtl_V_INTEGER(StarBASIC *, SbxArray & rPar, bool)
 122 {
 123     rPar.Get(0)->PutInteger(2);
 124 }
 125 void SbRtl_V_LONG(StarBASIC *, SbxArray & rPar, bool)
 126 {
 127     rPar.Get(0)->PutInteger(3);
 128 }
 129 void SbRtl_V_SINGLE(StarBASIC *, SbxArray & rPar, bool)
 130 {
 131     rPar.Get(0)->PutInteger(4);
 132 }
 133 void SbRtl_V_DOUBLE(StarBASIC *, SbxArray & rPar, bool)
 134 {
 135     rPar.Get(0)->PutInteger(5);
 136 }
 137 void SbRtl_V_CURRENCY(StarBASIC *, SbxArray & rPar, bool)
 138 {
 139     rPar.Get(0)->PutInteger(6);
 140 }
 141 void SbRtl_V_DATE(StarBASIC *, SbxArray & rPar, bool)
 142 {
 143     rPar.Get(0)->PutInteger(7);
 144 }
 145 void SbRtl_V_STRING(StarBASIC *, SbxArray & rPar, bool)
 146 {
 147     rPar.Get(0)->PutInteger(8);
 148 }
 149
 150 void SbRtl_MB_OK(StarBASIC *, SbxArray & rPar, bool)
 151 {
 152     rPar.Get(0)->PutInteger(0);
 153 }
 154 void SbRtl_MB_OKCANCEL(StarBASIC *, SbxArray & rPar, bool)
 155 {
 156     rPar.Get(0)->PutInteger(1);
 157 }
 158 void SbRtl_MB_ABORTRETRYIGNORE(StarBASIC *, SbxArray & rPar, bool)
 159 {
 160     rPar.Get(0)->PutInteger(2);
 161 }
 162 void SbRtl_MB_YESNOCANCEL(StarBASIC *, SbxArray & rPar, bool)
 163 {
 164     rPar.Get(0)->PutInteger(3);
 165 }
 166 void SbRtl_MB_YESNO(StarBASIC *, SbxArray & rPar, bool)
 167 {
 168     rPar.Get(0)->PutInteger(4);
 169 }
 170 void SbRtl_MB_RETRYCANCEL(StarBASIC *, SbxArray & rPar, bool)
 171 {
 172     rPar.Get(0)->PutInteger(5);
 173 }
 174 void SbRtl_MB_ICONSTOP(StarBASIC *, SbxArray & rPar, bool)
 175 {
 176     rPar.Get(0)->PutInteger(16);
 177 }
 178 void SbRtl_MB_ICONQUESTION(StarBASIC *, SbxArray & rPar, bool)
 179 {
 180     rPar.Get(0)->PutInteger(32);
 181 }
 182 void SbRtl_MB_ICONEXCLAMATION(StarBASIC *, SbxArray & rPar, bool)
 183 {
 184     rPar.Get(0)->PutInteger(48);
 185 }
 186 void SbRtl_MB_ICONINFORMATION(StarBASIC *, SbxArray & rPar, bool)
 187 {
 188     rPar.Get(0)->PutInteger(64);
 189 }
 190 void SbRtl_MB_DEFBUTTON1(StarBASIC *, SbxArray & rPar, bool)
 191 {
 192     rPar.Get(0)->PutInteger(0);
 193 }
 194 void SbRtl_MB_DEFBUTTON2(StarBASIC *, SbxArray & rPar, bool)
 195 {
 196     rPar.Get(0)->PutInteger(256);
 197 }
 198 void SbRtl_MB_DEFBUTTON3(StarBASIC *, SbxArray & rPar, bool)
 199 {
 200     rPar.Get(0)->PutInteger(512);
 201 }
 202 void SbRtl_MB_APPLMODAL(StarBASIC *, SbxArray & rPar, bool)
 203 {
 204     rPar.Get(0)->PutInteger(0);
 205 }
 206 void SbRtl_MB_SYSTEMMODAL(StarBASIC *, SbxArray & rPar, bool)
 207 {
 208     rPar.Get(0)->PutInteger(4096);
 209 }
 210
 211 void SbRtl_IDOK(StarBASIC *, SbxArray & rPar, bool)
 212 {
 213     rPar.Get(0)->PutInteger(1);
 214 }
 215
 216 void SbRtl_IDCANCEL(StarBASIC *, SbxArray & rPar, bool)
 217 {
 218     rPar.Get(0)->PutInteger(2);
 219 }
 220 void SbRtl_IDABORT(StarBASIC *, SbxArray & rPar, bool)
 221 {
 222     rPar.Get(0)->PutInteger(3);
 223 }
 224 void SbRtl_IDRETRY(StarBASIC *, SbxArray & rPar, bool)
 225 {
 226     rPar.Get(0)->PutInteger(4);
 227 }
 228 void SbRtl_IDYES(StarBASIC *, SbxArray & rPar, bool)
 229 {
 230     rPar.Get(0)->PutInteger(6);
 231 }
 232 void SbRtl_IDNO(StarBASIC *, SbxArray & rPar, bool)
 233 {
 234     rPar.Get(0)->PutInteger(7);
 235 }
 236
 237 void SbRtl_CF_TEXT(StarBASIC *, SbxArray & rPar, bool)
 238 {
 239     rPar.Get(0)->PutInteger(1);
 240 }
 241 void SbRtl_CF_BITMAP(StarBASIC *, SbxArray & rPar, bool)
 242 {
 243     rPar.Get(0)->PutInteger(2);
 244 }
 245 void SbRtl_CF_METAFILEPICT(StarBASIC *, SbxArray & rPar, bool)
 246 {
 247     rPar.Get(0)->PutInteger(3);
 248 }
 249
 250 void SbRtl_TYP_AUTHORFLD(StarBASIC *, SbxArray & rPar, bool)
 251 {
 252     rPar.Get(0)->PutInteger(7);
 253 }
 254 void SbRtl_TYP_CHAPTERFLD(StarBASIC *, SbxArray & rPar, bool)
 255 {
 256     rPar.Get(0)->PutInteger(4);
 257 }
 258 void SbRtl_TYP_CONDTXTFLD(StarBASIC *, SbxArray & rPar, bool)
 259 {
 260     rPar.Get(0)->PutInteger(27);
 261 }
 262 void SbRtl_TYP_DATEFLD(StarBASIC *, SbxArray & rPar, bool)
 263 {
 264     rPar.Get(0)->PutInteger(0);
 265 }
 266 void SbRtl_TYP_DBFLD(StarBASIC *, SbxArray & rPar, bool)
 267 {
 268     rPar.Get(0)->PutInteger(19);
 269 }
 270 void SbRtl_TYP_DBNAMEFLD(StarBASIC *, SbxArray & rPar, bool)
 271 {
 272     rPar.Get(0)->PutInteger(3);
 273 }
 274 void SbRtl_TYP_DBNEXTSETFLD(StarBASIC *, SbxArray & rPar, bool)
 275 {
 276     rPar.Get(0)->PutInteger(24);
 277 }
 278 void SbRtl_TYP_DBNUMSETFLD(StarBASIC *, SbxArray & rPar, bool)
 279 {
 280     rPar.Get(0)->PutInteger(25);
 281 }
 282 void SbRtl_TYP_DBSETNUMBERFLD(StarBASIC *, SbxArray & rPar, bool)
 283 {
 284     rPar.Get(0)->PutInteger(26);
 285 }
 286 void SbRtl_TYP_DDEFLD(StarBASIC *, SbxArray & rPar, bool)
 287 {
 288     rPar.Get(0)->PutInteger(14);
 289 }
 290 void SbRtl_TYP_DOCINFOFLD(StarBASIC *, SbxArray & rPar, bool)
 291 {
 292     rPar.Get(0)->PutInteger(18);
 293 }
 294 void SbRtl_TYP_DOCSTATFLD(StarBASIC *, SbxArray & rPar, bool)
 295 {
 296     rPar.Get(0)->PutInteger(6);
 297 }
 298 void SbRtl_TYP_EXTUSERFLD(StarBASIC *, SbxArray & rPar, bool)
 299 {
 300     rPar.Get(0)->PutInteger(30);
 301 }
 302 void SbRtl_TYP_FILENAMEFLD(StarBASIC *, SbxArray & rPar, bool)
 303 {
 304     rPar.Get(0)->PutInteger(2);
 305 }
 306 void SbRtl_TYP_FIXDATEFLD(StarBASIC *, SbxArray & rPar, bool)
 307 {
 308     rPar.Get(0)->PutInteger(31);
 309 }
 310 void SbRtl_TYP_FIXTIMEFLD(StarBASIC *, SbxArray & rPar, bool)
 311 {
 312     rPar.Get(0)->PutInteger(32);
 313 }
 314 void SbRtl_TYP_FORMELFLD(StarBASIC *, SbxArray & rPar, bool)
 315 {
 316     rPar.Get(0)->PutInteger(10);
 317 }
 318 void SbRtl_TYP_GETFLD(StarBASIC *, SbxArray & rPar, bool)
 319 {
 320     rPar.Get(0)->PutInteger(9);
 321 }
 322 void SbRtl_TYP_GETREFFLD(StarBASIC *, SbxArray & rPar, bool)
 323 {
 324     rPar.Get(0)->PutInteger(13);
 325 }
 326 void SbRtl_TYP_HIDDENPARAFLD(StarBASIC *, SbxArray & rPar, bool)
 327 {
 328     rPar.Get(0)->PutInteger(17);
 329 }
 330 void SbRtl_TYP_HIDDENTXTFLD(StarBASIC *, SbxArray & rPar, bool)
 331 {
 332     rPar.Get(0)->PutInteger(11);
 333 }
 334 void SbRtl_TYP_INPUTFLD(StarBASIC *, SbxArray & rPar, bool)
 335 {
 336     rPar.Get(0)->PutInteger(16);
 337 }
 338 void SbRtl_TYP_MACROFLD(StarBASIC *, SbxArray & rPar, bool)
 339 {
 340     rPar.Get(0)->PutInteger(15);
 341 }
 342 void SbRtl_TYP_NEXTPAGEFLD(StarBASIC *, SbxArray & rPar, bool)
 343 {
 344     rPar.Get(0)->PutInteger(28);
 345 }
 346 void SbRtl_TYP_PAGENUMBERFLD(StarBASIC *, SbxArray & rPar, bool)
 347 {
 348     rPar.Get(0)->PutInteger(5);
 349 }
 350 void SbRtl_TYP_POSTITFLD(StarBASIC *, SbxArray & rPar, bool)
 351 {
 352     rPar.Get(0)->PutInteger(21);
 353 }
 354 void SbRtl_TYP_PREVPAGEFLD(StarBASIC *, SbxArray & rPar, bool)
 355 {
 356     rPar.Get(0)->PutInteger(29);
 357 }
 358 void SbRtl_TYP_SEQFLD(StarBASIC * , SbxArray & rPar, bool)
 359 {
 360     rPar.Get(0)->PutInteger(23);
 361 }
 362 void SbRtl_TYP_SETFLD(StarBASIC *, SbxArray & rPar, bool)
 363 {
 364     rPar.Get(0)->PutInteger(8);
 365 }
 366 void SbRtl_TYP_SETINPFLD(StarBASIC *, SbxArray & rPar, bool)
 367 {
 368     rPar.Get(0)->PutInteger(33);
 369 }
 370 void SbRtl_TYP_SETREFFLD(StarBASIC *, SbxArray & rPar, bool)
 371 {
 372     rPar.Get(0)->PutInteger(12);
 373 }
 374 void SbRtl_TYP_TEMPLNAMEFLD(StarBASIC *, SbxArray & rPar, bool)
 375 {
 376     rPar.Get(0)->PutInteger(22);
 377 }
 378 void SbRtl_TYP_TIMEFLD(StarBASIC *, SbxArray & rPar, bool)
 379 {
 380     rPar.Get(0)->PutInteger(1);
 381 }
 382 void SbRtl_TYP_USERFLD(StarBASIC *, SbxArray & rPar, bool)
 383 {
 384     rPar.Get(0)->PutInteger(20);
 385 }
 386 void SbRtl_TYP_USRINPFLD(StarBASIC *, SbxArray & rPar, bool)
 387 {
 388     rPar.Get(0)->PutInteger(34);
 389 }
 390 void SbRtl_TYP_SETREFPAGEFLD(StarBASIC *, SbxArray & rPar, bool)
 391 {
 392     rPar.Get(0)->PutInteger(35);
 393 }
 394 void SbRtl_TYP_GETREFPAGEFLD(StarBASIC *, SbxArray & rPar, bool)
 395 {
 396     rPar.Get(0)->PutInteger(36);
 397 }
 398 void SbRtl_TYP_INTERNETFLD(StarBASIC *, SbxArray & rPar, bool)
 399 {
 400     rPar.Get(0)->PutInteger(37);
 401 }
 402
 403 void SbRtl_SET_ON(StarBASIC *, SbxArray & rPar, bool)
 404 {
 405     rPar.Get(0)->PutInteger(1);
 406 }
 407 void SbRtl_SET_OFF(StarBASIC *, SbxArray & rPar, bool)
 408 {
 409     rPar.Get(0)->PutInteger(0);
 410 }
 411 void SbRtl_TOGGLE(StarBASIC *, SbxArray & rPar, bool)
 412 {
 413     rPar.Get(0)->PutInteger(2);
 414 }
 415
 416 void SbRtl_FRAMEANCHORPAGE(StarBASIC *, SbxArray & rPar, bool)
 417 {
 418     rPar.Get(0)->PutInteger(1);
 419 }
 420 void SbRtl_FRAMEANCHORPARA(StarBASIC *, SbxArray & rPar, bool)
 421 {
 422     rPar.Get(0)->PutInteger(14);
 423 }
 424 void SbRtl_FRAMEANCHORCHAR(StarBASIC *, SbxArray & rPar, bool)
 425 {
 426     rPar.Get(0)->PutInteger(15);
 427 }
 428
 429 void SbRtl_CLEAR_ALLTABS(StarBASIC *, SbxArray & rPar, bool)
 430 {
 431     rPar.Get(0)->PutInteger(2);
 432 }
 433 void SbRtl_CLEAR_TAB(StarBASIC *, SbxArray & rPar, bool)
 434 {
 435     rPar.Get(0)->PutInteger(1);
 436 }
 437 void SbRtl_SET_TAB(StarBASIC *, SbxArray & rPar, bool)
 438 {
 439     rPar.Get(0)->PutInteger(0);
 440 }
 441
 442 void SbRtl_TYP_JUMPEDITFLD(StarBASIC *, SbxArray & rPar, bool)
 443 {
 444     rPar.Get(0)->PutInteger(38);
 445 }
 446
 447
 448 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */