svtools/source/misc/imap2.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 <comphelper/string.hxx>
  22 #include <string.h>
  23 #include <rtl/strbuf.hxx>
  24 #include <vcl/svapp.hxx>
  25 #include <tools/urlobj.hxx>
  26 #include <vcl/wrkwin.hxx>
  27 #include <sot/formats.hxx>
  28
  29 #include <svl/urihelper.hxx>
  30 #include <svtools/imap.hxx>
  31 #include <svtools/imapobj.hxx>
  32 #include <svtools/imaprect.hxx>
  33 #include <svtools/imapcirc.hxx>
  34 #include <svtools/imappoly.hxx>
  35
  36 #include <math.h>
  37
  38 #define NOTEOL(c) ((c)!='\0')
  39
  40 TYPEINIT0_AUTOFACTORY( ImageMap );
  41
  42 void IMapObject::AppendCERNCoords(OStringBuffer& rBuf, const Point& rPoint100)
  43 {
  44     const Point aPixPt( Application::GetDefaultDevice()->LogicToPixel( rPoint100, MapMode( MAP_100TH_MM ) ) );
  45
  46     rBuf.append('(');
  47     rBuf.append(static_cast<sal_Int32>(aPixPt.X()));
  48     rBuf.append(',');
  49     rBuf.append(static_cast<sal_Int32>(aPixPt.Y()));
  50     rBuf.append(") ");
  51 }
  52
  53 void IMapObject::AppendNCSACoords(OStringBuffer& rBuf, const Point& rPoint100)
  54 {
  55     const Point aPixPt( Application::GetDefaultDevice()->LogicToPixel( rPoint100, MapMode( MAP_100TH_MM ) ) );
  56
  57     rBuf.append(static_cast<sal_Int32>(aPixPt.X()));
  58     rBuf.append(',');
  59     rBuf.append(static_cast<sal_Int32>(aPixPt.Y()));
  60     rBuf.append(' ');
  61 }
  62
  63 void IMapObject::AppendCERNURL(OStringBuffer& rBuf, const OUString& rBaseURL) const
  64 {
  65     rBuf.append(OUStringToOString(URIHelper::simpleNormalizedMakeRelative(rBaseURL, aURL), osl_getThreadTextEncoding()));
  66 }
  67
  68 void IMapObject::AppendNCSAURL(OStringBuffer& rBuf, const OUString& rBaseURL) const
  69 {
  70     rBuf.append(OUStringToOString(URIHelper::simpleNormalizedMakeRelative(rBaseURL, aURL), osl_getThreadTextEncoding()));
  71     rBuf.append(' ');
  72 }
  73
  74 void IMapRectangleObject::WriteCERN( SvStream& rOStm, const OUString& rBaseURL ) const
  75 {
  76     OStringBuffer aStrBuf("rectangle ");
  77
  78     AppendCERNCoords(aStrBuf, aRect.TopLeft());
  79     AppendCERNCoords(aStrBuf, aRect.BottomRight());
  80     AppendCERNURL(aStrBuf, rBaseURL);
  81
  82     rOStm.WriteLine(aStrBuf.makeStringAndClear());
  83 }
  84
  85 void IMapRectangleObject::WriteNCSA( SvStream& rOStm, const OUString& rBaseURL ) const
  86 {
  87     OStringBuffer aStrBuf("rect ");
  88
  89     AppendNCSAURL(aStrBuf, rBaseURL);
  90     AppendNCSACoords(aStrBuf, aRect.TopLeft());
  91     AppendNCSACoords(aStrBuf, aRect.BottomRight());
  92
  93     rOStm.WriteLine(aStrBuf.makeStringAndClear());
  94 }
  95
  96 void IMapCircleObject::WriteCERN( SvStream& rOStm, const OUString& rBaseURL ) const
  97 {
  98     OStringBuffer aStrBuf("circle ");
  99
 100     AppendCERNCoords(aStrBuf, aCenter);
 101     aStrBuf.append(nRadius);
 102     aStrBuf.append(' ');
 103     AppendCERNURL(aStrBuf, rBaseURL);
 104
 105     rOStm.WriteLine(aStrBuf.makeStringAndClear());
 106 }
 107
 108 void IMapCircleObject::WriteNCSA( SvStream& rOStm, const OUString& rBaseURL ) const
 109 {
 110     OStringBuffer aStrBuf("circle ");
 111
 112     AppendNCSAURL(aStrBuf, rBaseURL);
 113     AppendNCSACoords(aStrBuf, aCenter);
 114     AppendNCSACoords(aStrBuf, aCenter + Point(nRadius, 0));
 115
 116     rOStm.WriteLine(aStrBuf.makeStringAndClear());
 117 }
 118
 119 void IMapPolygonObject::WriteCERN( SvStream& rOStm, const OUString& rBaseURL  ) const
 120 {
 121     OStringBuffer aStrBuf("polygon ");
 122     const sal_uInt16 nCount = aPoly.GetSize();
 123
 124     for (sal_uInt16 i = 0; i < nCount; ++i)
 125         AppendCERNCoords(aStrBuf, aPoly[i]);
 126
 127     AppendCERNURL(aStrBuf, rBaseURL);
 128
 129     rOStm.WriteLine(aStrBuf.makeStringAndClear());
 130 }
 131
 132 void IMapPolygonObject::WriteNCSA( SvStream& rOStm, const OUString& rBaseURL  ) const
 133 {
 134     OStringBuffer aStrBuf("poly ");
 135     const sal_uInt16 nCount = std::min( aPoly.GetSize(), (sal_uInt16) 100 );
 136
 137     AppendNCSAURL(aStrBuf, rBaseURL);
 138
 139     for (sal_uInt16 i = 0; i < nCount; ++i)
 140         AppendNCSACoords(aStrBuf, aPoly[i]);
 141
 142     rOStm.WriteLine(aStrBuf.makeStringAndClear());
 143 }
 144
 145 void ImageMap::Write( SvStream& rOStm, sal_uLong nFormat, const OUString& rBaseURL ) const
 146 {
 147     switch( nFormat )
 148     {
 149         case( IMAP_FORMAT_BIN ) : Write( rOStm, rBaseURL ); break;
 150         case( IMAP_FORMAT_CERN ) : ImpWriteCERN( rOStm, rBaseURL ); break;
 151         case( IMAP_FORMAT_NCSA ) : ImpWriteNCSA( rOStm, rBaseURL ); break;
 152
 153         default:
 154         break;
 155     }
 156 }
 157
 158 void ImageMap::ImpWriteCERN( SvStream& rOStm, const OUString& rBaseURL ) const
 159 {
 160     size_t      nCount = maList.size();
 161
 162     for ( size_t i = 0; i < nCount; i++ )
 163     {
 164         IMapObject* pObj = maList[ i ];
 165
 166         switch( pObj->GetType() )
 167         {
 168             case( IMAP_OBJ_RECTANGLE ):
 169                 static_cast<IMapRectangleObject*>( pObj )->WriteCERN( rOStm, rBaseURL );
 170             break;
 171
 172             case( IMAP_OBJ_CIRCLE ):
 173                 static_cast<IMapCircleObject*>( pObj )->WriteCERN( rOStm, rBaseURL );
 174             break;
 175
 176             case( IMAP_OBJ_POLYGON ):
 177                 static_cast<IMapPolygonObject*>( pObj )->WriteCERN( rOStm, rBaseURL );
 178             break;
 179
 180             default:
 181             break;
 182         }
 183     }
 184 }
 185
 186 void ImageMap::ImpWriteNCSA( SvStream& rOStm, const OUString& rBaseURL  ) const
 187 {
 188     size_t      nCount = maList.size();
 189
 190     for ( size_t i = 0; i < nCount; i++ )
 191     {
 192         IMapObject* pObj = maList[ i ];
 193
 194         switch( pObj->GetType() )
 195         {
 196             case( IMAP_OBJ_RECTANGLE ):
 197                 static_cast<IMapRectangleObject*>( pObj )->WriteNCSA( rOStm, rBaseURL );
 198             break;
 199
 200             case( IMAP_OBJ_CIRCLE ):
 201                 static_cast<IMapCircleObject*>( pObj )->WriteNCSA( rOStm, rBaseURL );
 202             break;
 203
 204             case( IMAP_OBJ_POLYGON ):
 205                 static_cast<IMapPolygonObject*>( pObj )->WriteNCSA( rOStm, rBaseURL );
 206             break;
 207
 208             default:
 209             break;
 210         }
 211     }
 212 }
 213
 214 sal_uLong ImageMap::Read( SvStream& rIStm, sal_uLong nFormat, const OUString& rBaseURL  )
 215 {
 216     sal_uLong nRet = IMAP_ERR_FORMAT;
 217
 218     if ( nFormat == IMAP_FORMAT_DETECT )
 219         nFormat = ImpDetectFormat( rIStm );
 220
 221     switch ( nFormat )
 222     {
 223         case ( IMAP_FORMAT_BIN )    : Read( rIStm, rBaseURL ); break;
 224         case ( IMAP_FORMAT_CERN )   : nRet = ImpReadCERN( rIStm, rBaseURL ); break;
 225         case ( IMAP_FORMAT_NCSA )   : nRet = ImpReadNCSA( rIStm, rBaseURL ); break;
 226
 227         default:
 228         break;
 229     }
 230
 231     if ( !rIStm.GetError() )
 232         nRet = IMAP_ERR_OK;
 233
 234     return nRet;
 235 }
 236
 237 sal_uLong ImageMap::ImpReadCERN( SvStream& rIStm, const OUString& rBaseURL )
 238 {
 239     // delete old content
 240     ClearImageMap();
 241
 242     OString aStr;
 243     while ( rIStm.ReadLine( aStr ) )
 244         ImpReadCERNLine( aStr, rBaseURL );
 245
 246     return IMAP_ERR_OK;
 247 }
 248
 249 void ImageMap::ImpReadCERNLine( const OString& rLine, const OUString& rBaseURL  )
 250 {
 251     OString aStr = comphelper::string::stripStart(rLine, ' ');
 252     aStr = comphelper::string::stripStart(aStr, '\t');
 253     aStr = comphelper::string::remove(aStr, ';');
 254     aStr = aStr.toAsciiLowerCase();
 255
 256     const char* pStr = aStr.getStr();
 257     char        cChar = *pStr++;
 258
 259     // find instruction
 260     OStringBuffer aBuf;
 261     while( ( cChar >= 'a' ) && ( cChar <= 'z' ) && NOTEOL( cChar ) )
 262     {
 263         aBuf.append(cChar);
 264         cChar = *pStr++;
 265     }
 266     OString aToken = aBuf.makeStringAndClear();
 267
 268     if ( NOTEOL( cChar ) )
 269     {
 270         if ( ( aToken == "rectangle" ) || ( aToken == "rect" ) )
 271         {
 272             const Point     aTopLeft( ImpReadCERNCoords( &pStr ) );
 273             const Point     aBottomRight( ImpReadCERNCoords( &pStr ) );
 274             const OUString  aURL( ImpReadCERNURL( &pStr, rBaseURL ) );
 275             const Rectangle aRect( aTopLeft, aBottomRight );
 276
 277             IMapRectangleObject* pObj = new IMapRectangleObject( aRect, aURL, OUString(), OUString(), OUString(), OUString() );
 278             maList.push_back( pObj );
 279         }
 280         else if ( ( aToken == "circle" ) || ( aToken == "circ" ) )
 281         {
 282             const Point     aCenter( ImpReadCERNCoords( &pStr ) );
 283             const long      nRadius = ImpReadCERNRadius( &pStr );
 284             const OUString  aURL( ImpReadCERNURL( &pStr, rBaseURL ) );
 285
 286             IMapCircleObject* pObj = new IMapCircleObject( aCenter, nRadius, aURL, OUString(), OUString(), OUString(), OUString() );
 287             maList.push_back( pObj );
 288         }
 289         else if ( ( aToken == "polygon" ) || ( aToken == "poly" ) )
 290         {
 291             const sal_uInt16 nCount = comphelper::string::getTokenCount(aStr,
 292                 '(') - 1;
 293             Polygon         aPoly( nCount );
 294             OUString        aURL;
 295
 296             for ( sal_uInt16 i = 0; i < nCount; i++ )
 297                 aPoly[ i ] = ImpReadCERNCoords( &pStr );
 298
 299             aURL = ImpReadCERNURL( &pStr, rBaseURL );
 300
 301             IMapPolygonObject* pObj = new IMapPolygonObject( aPoly, aURL, OUString(), OUString(), OUString(), OUString() );
 302             maList.push_back( pObj );
 303         }
 304     }
 305 }
 306
 307 Point ImageMap::ImpReadCERNCoords( const char** ppStr )
 308 {
 309     OUStringBuffer  aStrX;
 310     OUStringBuffer  aStrY;
 311     Point           aPt;
 312     char            cChar = *(*ppStr)++;
 313
 314     while( NOTEOL( cChar ) && ( ( cChar < '0' ) || ( cChar > '9' ) ) )
 315         cChar = *(*ppStr)++;
 316
 317     if ( NOTEOL( cChar ) )
 318     {
 319         while( NOTEOL( cChar ) && ( cChar >= '0' ) && ( cChar <= '9' ) )
 320         {
 321             aStrX.append( cChar );
 322             cChar = *(*ppStr)++;
 323         }
 324
 325         if ( NOTEOL( cChar ) )
 326         {
 327             while( NOTEOL( cChar ) && ( ( cChar < '0' ) || ( cChar > '9' ) ) )
 328                 cChar = *(*ppStr)++;
 329
 330             while( NOTEOL( cChar ) && ( cChar >= '0' ) && ( cChar <= '9' ) )
 331             {
 332                 aStrY.append( cChar );
 333                 cChar = *(*ppStr)++;
 334             }
 335
 336             if ( NOTEOL( cChar ) )
 337                 while( NOTEOL( cChar ) && ( cChar != ')' ) )
 338                     cChar = *(*ppStr)++;
 339
 340             aPt = Point( aStrX.makeStringAndClear().toInt32(), aStrY.makeStringAndClear().toInt32() );
 341         }
 342     }
 343
 344     return aPt;
 345 }
 346
 347 long ImageMap::ImpReadCERNRadius( const char** ppStr )
 348 {
 349     OUStringBuffer  aStr;
 350     char            cChar = *(*ppStr)++;
 351
 352     while( NOTEOL( cChar ) && ( ( cChar < '0' ) || ( cChar > '9' ) ) )
 353         cChar = *(*ppStr)++;
 354
 355     if ( NOTEOL( cChar ) )
 356     {
 357         while( NOTEOL( cChar ) && ( cChar >= '0' ) && ( cChar <= '9' ) )
 358         {
 359             aStr.append( cChar );
 360             cChar = *(*ppStr)++;
 361         }
 362     }
 363
 364     return aStr.makeStringAndClear().toInt32();
 365 }
 366
 367 OUString ImageMap::ImpReadCERNURL( const char** ppStr, const OUString& rBaseURL )
 368 {
 369     OUString aStr(OUString::createFromAscii(*ppStr));
 370
 371     aStr = comphelper::string::stripStart(aStr, ' ');
 372     aStr = comphelper::string::stripStart(aStr, '\t');
 373     aStr = comphelper::string::stripEnd(aStr, ' ');
 374     aStr = comphelper::string::stripEnd(aStr, '\t');
 375
 376     return INetURLObject::GetAbsURL( rBaseURL, aStr );
 377 }
 378
 379 sal_uLong ImageMap::ImpReadNCSA( SvStream& rIStm, const OUString& rBaseURL )
 380 {
 381     // delete old content
 382     ClearImageMap();
 383
 384     OString aStr;
 385     while ( rIStm.ReadLine( aStr ) )
 386         ImpReadNCSALine( aStr, rBaseURL );
 387
 388     return IMAP_ERR_OK;
 389 }
 390
 391 void ImageMap::ImpReadNCSALine( const OString& rLine, const OUString& rBaseURL )
 392 {
 393     OString aStr = comphelper::string::stripStart(rLine, ' ');
 394     aStr = comphelper::string::stripStart(aStr, '\t');
 395     aStr = comphelper::string::remove(aStr, ';');
 396     aStr = aStr.toAsciiLowerCase();
 397
 398     const char* pStr = aStr.getStr();
 399     char        cChar = *pStr++;
 400
 401     // find instruction
 402     OStringBuffer aBuf;
 403     while( ( cChar >= 'a' ) && ( cChar <= 'z' ) && NOTEOL( cChar ) )
 404     {
 405         aBuf.append(cChar);
 406         cChar = *pStr++;
 407     }
 408     OString aToken = aBuf.makeStringAndClear();
 409
 410     if ( NOTEOL( cChar ) )
 411     {
 412         if ( aToken == "rect" )
 413         {
 414             const OUString  aURL( ImpReadNCSAURL( &pStr, rBaseURL ) );
 415             const Point     aTopLeft( ImpReadNCSACoords( &pStr ) );
 416             const Point     aBottomRight( ImpReadNCSACoords( &pStr ) );
 417             const Rectangle aRect( aTopLeft, aBottomRight );
 418
 419             IMapRectangleObject* pObj = new IMapRectangleObject( aRect, aURL, OUString(), OUString(), OUString(), OUString() );
 420             maList.push_back( pObj );
 421         }
 422         else if ( aToken == "circle" )
 423         {
 424             const OUString  aURL( ImpReadNCSAURL( &pStr, rBaseURL ) );
 425             const Point     aCenter( ImpReadNCSACoords( &pStr ) );
 426             const Point     aDX( aCenter - ImpReadNCSACoords( &pStr ) );
 427             long            nRadius = (long) sqrt( (double) aDX.X() * aDX.X() +
 428                                                    (double) aDX.Y() * aDX.Y() );
 429
 430             IMapCircleObject* pObj = new IMapCircleObject( aCenter, nRadius, aURL, OUString(), OUString(), OUString(), OUString() );
 431             maList.push_back( pObj );
 432         }
 433         else if ( aToken == "poly" )
 434         {
 435             const sal_uInt16 nCount = comphelper::string::getTokenCount(aStr,
 436                 ',') - 1;
 437             const OUString  aURL( ImpReadNCSAURL( &pStr, rBaseURL ) );
 438             Polygon         aPoly( nCount );
 439
 440             for ( sal_uInt16 i = 0; i < nCount; i++ )
 441                 aPoly[ i ] = ImpReadNCSACoords( &pStr );
 442
 443             IMapPolygonObject* pObj = new IMapPolygonObject( aPoly, aURL, OUString(), OUString(), OUString(), OUString() );
 444             maList.push_back( pObj );
 445         }
 446     }
 447 }
 448
 449 OUString ImageMap::ImpReadNCSAURL( const char** ppStr, const OUString& rBaseURL )
 450 {
 451     OUStringBuffer  aStr;
 452     char            cChar = *(*ppStr)++;
 453
 454     while( NOTEOL( cChar ) && ( ( cChar == ' ' ) || ( cChar == '\t' ) ) )
 455         cChar = *(*ppStr)++;
 456
 457     if ( NOTEOL( cChar ) )
 458     {
 459         while( NOTEOL( cChar ) && ( cChar != ' ' ) && ( cChar != '\t' ) )
 460         {
 461             aStr.append( cChar );
 462             cChar = *(*ppStr)++;
 463         }
 464     }
 465
 466     return INetURLObject::GetAbsURL( rBaseURL, aStr.makeStringAndClear() );
 467 }
 468
 469 Point ImageMap::ImpReadNCSACoords( const char** ppStr )
 470 {
 471     OUStringBuffer  aStrX;
 472     OUStringBuffer  aStrY;
 473     Point           aPt;
 474     char            cChar = *(*ppStr)++;
 475
 476     while( NOTEOL( cChar ) && ( ( cChar < '0' ) || ( cChar > '9' ) ) )
 477         cChar = *(*ppStr)++;
 478
 479     if ( NOTEOL( cChar ) )
 480     {
 481         while( NOTEOL( cChar ) && ( cChar >= '0' ) && ( cChar <= '9' ) )
 482         {
 483             aStrX.append( cChar );
 484             cChar = *(*ppStr)++;
 485         }
 486
 487         if ( NOTEOL( cChar ) )
 488         {
 489             while( NOTEOL( cChar ) && ( ( cChar < '0' ) || ( cChar > '9' ) ) )
 490                 cChar = *(*ppStr)++;
 491
 492             while( NOTEOL( cChar ) && ( cChar >= '0' ) && ( cChar <= '9' ) )
 493             {
 494                 aStrY.append( cChar );
 495                 cChar = *(*ppStr)++;
 496             }
 497
 498             aPt = Point( aStrX.makeStringAndClear().toInt32(), aStrY.makeStringAndClear().toInt32() );
 499         }
 500     }
 501
 502     return aPt;
 503 }
 504
 505 sal_uLong ImageMap::ImpDetectFormat( SvStream& rIStm )
 506 {
 507     sal_uLong   nPos = rIStm.Tell();
 508     sal_uLong   nRet = IMAP_FORMAT_BIN;
 509     char    cMagic[6];
 510
 511     rIStm.Read( cMagic, sizeof( cMagic ) );
 512
 513     // if we do not have an internal formats
 514     // we check the format
 515     if ( memcmp( cMagic, IMAPMAGIC, sizeof( cMagic ) ) )
 516     {
 517         long        nCount = 128;
 518
 519         rIStm.Seek( nPos );
 520         OString aStr;
 521         while ( rIStm.ReadLine( aStr ) && nCount-- )
 522         {
 523             aStr = aStr.toAsciiLowerCase();
 524
 525             if ( (aStr.indexOf("rect") != -1) ||
 526                  (aStr.indexOf("circ") != -1) ||
 527                  (aStr.indexOf("poly") != -1) )
 528             {
 529                 if ( ( aStr.indexOf('(') != -1 ) &&
 530                      ( aStr.indexOf(')') != -1 ) )
 531                 {
 532                     nRet = IMAP_FORMAT_CERN;
 533                 }
 534                 else
 535                     nRet = IMAP_FORMAT_NCSA;
 536
 537                 break;
 538             }
 539         }
 540     }
 541
 542     rIStm.Seek( nPos );
 543
 544     return nRet;
 545 }
 546
 547 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */