LCOV - code coverage report
Current view: top level - basic/source/sbx - sbxbyte.cxx (source / functions) Hit Total Coverage
Test: commit 10e77ab3ff6f4314137acd6e2702a6e5c1ce1fae Lines: 13 126 10.3 %
Date: 2014-11-03 Functions: 2 2 100.0 %
Legend: Lines: hit not hit

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

Generated by: LCOV version 1.10