basic/source/sbx/sbxlng.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 #include <tools/errcode.hxx>
  21 #include <basic/sbx.hxx>
  22 #include "sbxconv.hxx"
  23
  24 sal_Int32 ImpGetLong( const SbxValues* p )
  25 {
  26     SbxValues aTmp;
  27     sal_Int32 nRes;
  28 start:
  29     switch( +p->eType )
  30     {
  31         case SbxNULL:
  32             SbxBase::SetError( SbxERR_CONVERSION );
  33         case SbxEMPTY:
  34             nRes = 0; break;
  35         case SbxCHAR:
  36             nRes = p->nChar; break;
  37         case SbxBYTE:
  38             nRes = p->nByte; break;
  39         case SbxINTEGER:
  40         case SbxBOOL:
  41             nRes = p->nInteger; break;
  42         case SbxERROR:
  43         case SbxUSHORT:
  44             nRes = p->nUShort; break;
  45         case SbxLONG:
  46             nRes = p->nLong; break;
  47         case SbxULONG:
  48             if( p->nULong > SbxMAXLNG )
  49             {
  50                 SbxBase::SetError( SbxERR_OVERFLOW ); nRes = SbxMAXLNG;
  51             }
  52             else
  53                 nRes = (sal_Int32) p->nULong;
  54             break;
  55         case SbxSINGLE:
  56             if( p->nSingle > SbxMAXLNG )
  57             {
  58                 SbxBase::SetError( SbxERR_OVERFLOW ); nRes = SbxMAXLNG;
  59             }
  60             else if( p->nSingle < SbxMINLNG )
  61             {
  62                 SbxBase::SetError( SbxERR_OVERFLOW ); nRes = SbxMINLNG;
  63             }
  64             else
  65                 nRes = (sal_Int32) ImpRound( p->nSingle );
  66             break;
  67         case SbxSALINT64:
  68             nRes = p->nInt64;
  69             break;
  70         case SbxSALUINT64:
  71             nRes = p->uInt64;
  72             break;
  73         case SbxCURRENCY:
  74         {
  75             sal_Int64  tstVal = p->nInt64 / CURRENCY_FACTOR;
  76             nRes = (sal_Int32) (tstVal);
  77             if( tstVal < SbxMINLNG || SbxMAXLNG < tstVal )  SbxBase::SetError( SbxERR_OVERFLOW );
  78             if( SbxMAXLNG < tstVal ) nRes = SbxMAXLNG;
  79             if( tstVal < SbxMINLNG ) nRes = SbxMINLNG;
  80             break;
  81         }
  82         case SbxDATE:
  83         case SbxDOUBLE:
  84         case SbxDECIMAL:
  85         case SbxBYREF | SbxDECIMAL:
  86             {
  87             double dVal;
  88             if( p->eType == SbxDECIMAL )
  89             {
  90                 dVal = 0.0;
  91                 if( p->pDecimal )
  92                     p->pDecimal->getDouble( dVal );
  93             }
  94             else
  95                 dVal = p->nDouble;
  96
  97             if( dVal > SbxMAXLNG )
  98             {
  99                 SbxBase::SetError( SbxERR_OVERFLOW ); nRes = SbxMAXLNG;
 100             }
 101             else if( dVal < SbxMINLNG )
 102             {
 103                 SbxBase::SetError( SbxERR_OVERFLOW ); nRes = SbxMINLNG;
 104             }
 105             else
 106                 nRes = (sal_Int32) ImpRound( dVal );
 107             break;
 108             }
 109         case SbxBYREF | SbxSTRING:
 110         case SbxSTRING:
 111         case SbxLPSTR:
 112             if( !p->pOUString )
 113                 nRes = 0;
 114             else
 115             {
 116                 double d;
 117                 SbxDataType t;
 118                 if( ImpScan( *p->pOUString, d, t, NULL ) != SbxERR_OK )
 119                     nRes = 0;
 120                 else if( d > SbxMAXLNG )
 121                 {
 122                     SbxBase::SetError( SbxERR_OVERFLOW ); nRes = SbxMAXLNG;
 123                 }
 124                 else if( d < SbxMINLNG )
 125                 {
 126                     SbxBase::SetError( SbxERR_OVERFLOW ); nRes = SbxMINLNG;
 127                 }
 128                 else
 129                     nRes = (sal_Int32) ImpRound( d );
 130             }
 131             break;
 132         case SbxOBJECT:
 133         {
 134             SbxValue* pVal = PTR_CAST(SbxValue,p->pObj);
 135             if( pVal )
 136                 nRes = pVal->GetLong();
 137             else
 138             {
 139                 SbxBase::SetError( SbxERR_NO_OBJECT ); nRes = 0;
 140             }
 141             break;
 142         }
 143
 144         case SbxBYREF | SbxCHAR:
 145             nRes = *p->pChar; break;
 146         case SbxBYREF | SbxBYTE:
 147             nRes = *p->pByte; break;
 148         case SbxBYREF | SbxINTEGER:
 149         case SbxBYREF | SbxBOOL:
 150             nRes = *p->pInteger; break;
 151         case SbxBYREF | SbxLONG:
 152             nRes = *p->pLong; break;
 153
 154         // from here had to be tested
 155         case SbxBYREF | SbxULONG:
 156             aTmp.nULong = *p->pULong; goto ref;
 157         case SbxBYREF | SbxERROR:
 158         case SbxBYREF | SbxUSHORT:
 159             aTmp.nUShort = *p->pUShort; goto ref;
 160         case SbxBYREF | SbxSINGLE:
 161             aTmp.nSingle = *p->pSingle; goto ref;
 162         case SbxBYREF | SbxDATE:
 163         case SbxBYREF | SbxDOUBLE:
 164             aTmp.nDouble = *p->pDouble; goto ref;
 165         case SbxBYREF | SbxCURRENCY:
 166         case SbxBYREF | SbxSALINT64:
 167             aTmp.nInt64 = *p->pnInt64; goto ref;
 168         case SbxBYREF | SbxSALUINT64:
 169             aTmp.uInt64 = *p->puInt64; goto ref;
 170
 171         ref:
 172             aTmp.eType = SbxDataType( p->eType & 0x0FFF );
 173             p = &aTmp; goto start;
 174
 175         default:
 176             SbxBase::SetError( SbxERR_CONVERSION ); nRes = 0;
 177     }
 178     return nRes;
 179 }
 180
 181 void ImpPutLong( SbxValues* p, sal_Int32 n )
 182 {
 183     SbxValues aTmp;
 184
 185 start:
 186     switch( +p->eType )
 187     {
 188         // From here had to be tested
 189         case SbxCHAR:
 190             aTmp.pChar = &p->nChar; goto direct;
 191         case SbxBYTE:
 192             aTmp.pByte = &p->nByte; goto direct;
 193         case SbxINTEGER:
 194         case SbxBOOL:
 195             aTmp.pInteger = &p->nInteger; goto direct;
 196         case SbxULONG:
 197             aTmp.pULong = &p->nULong; goto direct;
 198         case SbxSALUINT64:
 199             aTmp.puInt64 = &p->uInt64; goto direct;
 200         case SbxERROR:
 201         case SbxUSHORT:
 202             aTmp.pUShort = &p->nUShort;
 203         direct:
 204             aTmp.eType = SbxDataType( p->eType | SbxBYREF );
 205             p = &aTmp; goto start;
 206
 207         // from here no longer
 208         case SbxLONG:
 209             p->nLong = n; break;
 210         case SbxSINGLE:
 211             p->nSingle = (float) n; break;
 212         case SbxDATE:
 213         case SbxDOUBLE:
 214             p->nDouble = n; break;
 215         case SbxCURRENCY:
 216             p->nInt64 = n * CURRENCY_FACTOR; break;
 217         case SbxSALINT64:
 218             p->nInt64 = n; break;
 219         case SbxDECIMAL:
 220         case SbxBYREF | SbxDECIMAL:
 221             ImpCreateDecimal( p )->setLong( n );
 222             break;
 223
 224         case SbxBYREF | SbxSTRING:
 225         case SbxSTRING:
 226         case SbxLPSTR:
 227             if( !p->pOUString )
 228                 p->pOUString = new ::rtl::OUString;
 229             ImpCvtNum( (double) n, 0, *p->pOUString );
 230             break;
 231         case SbxOBJECT:
 232         {
 233             SbxValue* pVal = PTR_CAST(SbxValue,p->pObj);
 234             if( pVal )
 235                 pVal->PutLong( n );
 236             else
 237                 SbxBase::SetError( SbxERR_NO_OBJECT );
 238             break;
 239         }
 240         case SbxBYREF | SbxCHAR:
 241             if( n > SbxMAXCHAR )
 242             {
 243                 SbxBase::SetError( SbxERR_OVERFLOW ); n = SbxMAXCHAR;
 244             }
 245             else if( n < SbxMINCHAR )
 246             {
 247                 SbxBase::SetError( SbxERR_OVERFLOW ); n = SbxMINCHAR;
 248             }
 249             *p->pChar = (sal_Unicode) n; break;
 250         case SbxBYREF | SbxBYTE:
 251             if( n > SbxMAXBYTE )
 252             {
 253                 SbxBase::SetError( SbxERR_OVERFLOW ); n = SbxMAXBYTE;
 254             }
 255             else if( n < 0 )
 256             {
 257                 SbxBase::SetError( SbxERR_OVERFLOW ); n = 0;
 258             }
 259             *p->pByte = (sal_uInt8) n; break;
 260         case SbxBYREF | SbxINTEGER:
 261         case SbxBYREF | SbxBOOL:
 262             if( n > SbxMAXINT )
 263             {
 264                 SbxBase::SetError( SbxERR_OVERFLOW ); n = SbxMAXINT;
 265             }
 266             else if( n < SbxMININT )
 267             {
 268                 SbxBase::SetError( SbxERR_OVERFLOW ); n = SbxMININT;
 269             }
 270             *p->pInteger = (sal_Int16) n; break;
 271         case SbxBYREF | SbxERROR:
 272         case SbxBYREF | SbxUSHORT:
 273             if( n > SbxMAXUINT )
 274             {
 275                 SbxBase::SetError( SbxERR_OVERFLOW ); n = SbxMAXUINT;
 276             }
 277             else if( n < 0 )
 278             {
 279                 SbxBase::SetError( SbxERR_OVERFLOW ); n = 0;
 280             }
 281             *p->pUShort = (sal_uInt16) n; break;
 282         case SbxBYREF | SbxLONG:
 283             *p->pLong = n; break;
 284         case SbxBYREF | SbxULONG:
 285             if( n < 0 )
 286             {
 287                 SbxBase::SetError( SbxERR_OVERFLOW ); n = 0;
 288             }
 289             *p->pULong = (sal_uInt32) n; break;
 290         case SbxBYREF | SbxSALINT64:
 291             *p->pnInt64 = n; break;
 292         case SbxBYREF | SbxSALUINT64:
 293             if( n < 0 )
 294             {
 295                 SbxBase::SetError( SbxERR_OVERFLOW ); *p->puInt64 = 0;
 296             }
 297             else
 298                 *p->puInt64 = n;
 299             break;
 300         case SbxBYREF | SbxSINGLE:
 301             *p->pSingle = (float) n; break;
 302         case SbxBYREF | SbxDATE:
 303         case SbxBYREF | SbxDOUBLE:
 304             *p->pDouble = (double) n; break;
 305         case SbxBYREF | SbxCURRENCY:
 306             *p->pnInt64 = (sal_Int64)n * (sal_Int64)CURRENCY_FACTOR; break;
 307         default:
 308             SbxBase::SetError( SbxERR_CONVERSION );
 309     }
 310 }
 311
 312 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */