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