idl/source/objects/bastype.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 <limits.h>
  22 #include <ctype.h>
  23 #include <bastype.hxx>
  24 #include <lex.hxx>
  25 #include <globals.hxx>
  26 #include <hash.hxx>
  27 #include <database.hxx>
  28 #include <osl/diagnose.h>
  29
  30 static bool ReadRangeSvIdl( SvStringHashEntry * pName, SvTokenStream & rInStm,
  31                             sal_uLong nMin, sal_uLong nMax, sal_uLong* pValue )
  32 {
  33     sal_uInt32 nTokPos = rInStm.Tell();
  34     SvToken * pTok = rInStm.GetToken_Next();
  35     if( pTok->Is( pName ) )
  36     {
  37         bool bOk = false;
  38         if( rInStm.Read( '=' ) )
  39         {
  40             pTok = rInStm.GetToken_Next();
  41             if( pTok->IsInteger() )
  42             {
  43                 sal_uLong n = pTok->GetNumber();
  44                 if ( n >= nMin && n <= nMax )
  45                 {
  46                     *pValue = n;
  47                     bOk = true;
  48                 }
  49             }
  50         }
  51
  52         if( bOk )
  53             return true;
  54     }
  55
  56     rInStm.Seek( nTokPos );
  57     return false;
  58 }
  59
  60 SvStream& WriteSvBOOL(SvStream & rStm, const SvBOOL & rb )
  61 {
  62     sal_uInt8 n = int(rb.nVal);
  63     if( rb.bSet )
  64         n |= 0x02;
  65     rStm.WriteUChar( n );
  66     return rStm;
  67 }
  68 SvStream& operator >> (SvStream & rStm, SvBOOL & rb )
  69 {
  70     sal_uInt8 n;
  71     rStm.ReadUChar( n );
  72     rb.nVal = (n & 0x01) != 0;
  73     rb.bSet = (n & 0x02) != 0;
  74     if( n & ~0x03 )
  75     {
  76         rStm.SetError( SVSTREAM_FILEFORMAT_ERROR );
  77         OSL_FAIL( "format error" );
  78     }
  79     return rStm;
  80 }
  81
  82 SvStream& WriteSvVersion(SvStream & rStm, const SvVersion & r )
  83 {
  84     if( (r.GetMajorVersion() || r.GetMinorVersion())
  85       && r.GetMajorVersion() <= 0x0F && r.GetMinorVersion() <= 0x0F )
  86     { // compress version number in 1 byte
  87         // format first 4 bit for major, then 4 bit for minor
  88         // 0.0 gets not compressed
  89
  90         int n = r.GetMajorVersion() << 4;
  91         n |= r.GetMinorVersion();
  92         rStm.WriteUChar( n );
  93     }
  94     else
  95     {
  96         rStm.WriteUChar( 0 );
  97         rStm.WriteUInt16( r.GetMajorVersion() );
  98         rStm.WriteUInt16( r.GetMinorVersion() );
  99     }
 100     return rStm;
 101 }
 102
 103 SvStream& operator >> (SvStream & rStm, SvVersion & r )
 104 {
 105     sal_uInt8 n;
 106     rStm.ReadUChar( n );
 107     if( n == 0 )
 108     { // not compressed
 109         rStm.ReadUInt16( r.nMajorVersion );
 110         rStm.ReadUInt16( r.nMinorVersion );
 111     }
 112     else
 113     { // compressed
 114         r.nMajorVersion = (n >> 4) & 0x0F;
 115         r.nMinorVersion = n & 0x0F;
 116     }
 117     return rStm;
 118 }
 119
 120
 121 bool SvBOOL::ReadSvIdl( SvStringHashEntry * pName, SvTokenStream & rInStm )
 122 {
 123     sal_uInt32 nTokPos = rInStm.Tell();
 124     SvToken * pTok = rInStm.GetToken_Next();
 125
 126     if( pTok->Is( pName ) )
 127     {
 128         bool bOk = true;
 129         bool bBraket = rInStm.Read( '(' );
 130         if( bBraket || rInStm.Read( '=' ) )
 131         {
 132             pTok = rInStm.GetToken();
 133             if( pTok->IsBool() )
 134             {
 135                 *this = pTok->GetBool();
 136
 137                 rInStm.GetToken_Next();
 138             }
 139             if( bOk && bBraket )
 140                 bOk = rInStm.Read( ')' );
 141         }
 142         else
 143             *this = true; //default action set to TRUE
 144         if( bOk )
 145             return true;
 146     }
 147     rInStm.Seek( nTokPos );
 148     return false;
 149 }
 150
 151 bool SvIdentifier::ReadSvIdl( SvStringHashEntry * pName, SvTokenStream & rInStm )
 152 {
 153     sal_uInt32 nTokPos = rInStm.Tell();
 154     SvToken * pTok = rInStm.GetToken_Next();
 155
 156     if( pTok->Is( pName ) )
 157     {
 158         bool bOk = true;
 159         bool bBraket = rInStm.Read( '(' );
 160         if( bBraket || rInStm.Read( '=' ) )
 161         {
 162             pTok = rInStm.GetToken();
 163             if( pTok->IsIdentifier() )
 164             {
 165                 setString(pTok->GetString());
 166                 rInStm.GetToken_Next();
 167             }
 168             if( bOk && bBraket )
 169                 bOk = rInStm.Read( ')' );
 170         }
 171         if( bOk )
 172             return true;
 173     }
 174     rInStm.Seek( nTokPos );
 175     return false;
 176 }
 177
 178 bool SvNumberIdentifier::ReadSvIdl( SvIdlDataBase & rBase,
 179                                     SvStringHashEntry * pName,
 180                                     SvTokenStream & rInStm )
 181 {
 182     if( SvIdentifier::ReadSvIdl( pName, rInStm ) )
 183     {
 184         sal_uLong n;
 185         if( rBase.FindId( getString(), &n ) )
 186         {
 187             nValue = n;
 188             return true;
 189         }
 190         else
 191         {
 192             OStringBuffer aStr("no value for identifier <");
 193             aStr.append(getString()).append("> ");
 194             rBase.SetError( aStr.makeStringAndClear(), rInStm.GetToken() );
 195             rBase.WriteError( rInStm );
 196         }
 197     }
 198     return false;
 199 }
 200
 201 bool SvNumberIdentifier::ReadSvIdl( SvIdlDataBase & rBase,
 202                                     SvTokenStream & rInStm )
 203 {
 204     sal_uInt32 nTokPos = rInStm.Tell();
 205     SvToken * pTok = rInStm.GetToken_Next();
 206
 207     if( pTok->IsIdentifier() )
 208     {
 209         sal_uLong n;
 210         if( rBase.FindId( pTok->GetString(), &n ) )
 211         {
 212             setString(pTok->GetString());
 213             nValue = n;
 214             return true;
 215         }
 216         else
 217         {
 218             OStringBuffer aStr("no value for identifier <");
 219             aStr.append(getString()).append("> ");
 220             rBase.SetError( aStr.makeStringAndClear(), rInStm.GetToken() );
 221             rBase.WriteError( rInStm );
 222         }
 223     }
 224     rInStm.Seek( nTokPos );
 225     return false;
 226 }
 227
 228 bool SvString::ReadSvIdl( SvStringHashEntry * pName, SvTokenStream & rInStm )
 229 {
 230     sal_uInt32 nTokPos = rInStm.Tell();
 231     SvToken * pTok = rInStm.GetToken_Next();
 232
 233     if( pTok->Is( pName ) )
 234     {
 235         bool bOk = true;
 236         bool bBraket = rInStm.Read( '(' );
 237         if( bBraket || rInStm.Read( '=' ) )
 238         {
 239             pTok = rInStm.GetToken();
 240             if( pTok->IsString() )
 241             {
 242                 setString(pTok->GetString());
 243                 rInStm.GetToken_Next();
 244             }
 245             if( bOk && bBraket )
 246                 bOk = rInStm.Read( ')' );
 247         }
 248         if( bOk )
 249             return true;
 250     }
 251     rInStm.Seek( nTokPos );
 252     return false;
 253 }
 254
 255 SvStream& WriteSvString(SvStream & rStm, const SvString & r )
 256 {
 257     write_uInt16_lenPrefixed_uInt8s_FromOString(rStm, r.getString());
 258     return rStm;
 259 }
 260
 261 SvStream& operator >> (SvStream & rStm, SvString & r )
 262 {
 263     r.setString(read_uInt16_lenPrefixed_uInt8s_ToOString(rStm));
 264     return rStm;
 265 }
 266
 267
 268 bool SvHelpText::ReadSvIdl( SvIdlDataBase &, SvTokenStream & rInStm )
 269 {
 270     return SvString::ReadSvIdl( SvHash_HelpText(), rInStm );
 271 }
 272
 273 bool SvUUId::ReadSvIdl( SvIdlDataBase &, SvTokenStream & rInStm )
 274 {
 275     sal_uInt32 nTokPos = rInStm.Tell();
 276     SvToken * pTok = rInStm.GetToken_Next();
 277
 278     if( pTok->Is( SvHash_uuid() ) )
 279     {
 280         bool bOk = true;
 281         bool bBraket = rInStm.Read( '(' );
 282         if( bBraket || rInStm.Read( '=' ) )
 283         {
 284             pTok = rInStm.GetToken();
 285             if( pTok->IsString() )
 286             {
 287                 pTok = rInStm.GetToken_Next();
 288                 bOk = MakeId(OStringToOUString(pTok->GetString(), RTL_TEXTENCODING_ASCII_US));
 289             }
 290             if( bOk && bBraket )
 291                 bOk = rInStm.Read( ')' );
 292         }
 293         if( bOk )
 294             return true;
 295     }
 296     rInStm.Seek( nTokPos );
 297     return false;
 298 }
 299
 300 bool SvVersion::ReadSvIdl( SvTokenStream & rInStm )
 301 {
 302     sal_uLong n = 0;
 303
 304     sal_uInt32 nTokPos = rInStm.Tell();
 305     if( ReadRangeSvIdl( SvHash_Version(), rInStm, 0 , 0xFFFF, &n ) )
 306     {
 307         nMajorVersion = (sal_uInt16)n;
 308         if( rInStm.Read( '.' ) )
 309         {
 310             SvToken * pTok = rInStm.GetToken_Next();
 311             if( pTok->IsInteger() && pTok->GetNumber() <= 0xFFFF )
 312             {
 313                 nMinorVersion = (sal_uInt16)pTok->GetNumber();
 314                 return true;
 315             }
 316         }
 317         else
 318             return true;
 319     }
 320     rInStm.Seek( nTokPos );
 321     return false;
 322 }
 323
 324 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */