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