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) const
  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(RTL_CONSTASCII_STRINGPARAM(") "));
  51 }
  52
  53 void IMapObject::AppendNCSACoords(OStringBuffer& rBuf, const Point& rPoint100) const
  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 String& rBaseURL) const
  64 {
  65     rBuf.append(OUStringToOString(URIHelper::simpleNormalizedMakeRelative(rBaseURL, aURL), osl_getThreadTextEncoding()));
  66 }
  67
  68 void IMapObject::AppendNCSAURL(OStringBuffer& rBuf, const String& 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 String& rBaseURL ) const
  75 {
  76     OStringBuffer aStrBuf(RTL_CONSTASCII_STRINGPARAM("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 String& rBaseURL ) const
  86 {
  87     OStringBuffer aStrBuf(RTL_CONSTASCII_STRINGPARAM("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 String& rBaseURL ) const
  97 {
  98     OStringBuffer aStrBuf(RTL_CONSTASCII_STRINGPARAM("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 String& rBaseURL ) const
 109 {
 110     OStringBuffer aStrBuf(RTL_CONSTASCII_STRINGPARAM("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 String& rBaseURL  ) const
 120 {
 121     OStringBuffer aStrBuf(RTL_CONSTASCII_STRINGPARAM("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 String& rBaseURL  ) const
 133 {
 134     OStringBuffer aStrBuf(RTL_CONSTASCII_STRINGPARAM("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 String& rBaseURL ) const
 146 {
 147     switch( nFormat )
 148     {
 149         case( IMAP_FORMAT_BIN ) : Write( rOStm, rBaseURL );
 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 String& rBaseURL ) const
 159 {
 160     IMapObject* pObj;
 161     size_t      nCount = maList.size();
 162
 163     for ( size_t i = 0; i < nCount; i++ )
 164     {
 165         pObj = maList[ i ];
 166
 167         switch( pObj->GetType() )
 168         {
 169             case( IMAP_OBJ_RECTANGLE ):
 170                 ( (IMapRectangleObject*) pObj )->WriteCERN( rOStm, rBaseURL );
 171             break;
 172
 173             case( IMAP_OBJ_CIRCLE ):
 174                 ( (IMapCircleObject*) pObj )->WriteCERN( rOStm, rBaseURL );
 175             break;
 176
 177             case( IMAP_OBJ_POLYGON ):
 178                 ( (IMapPolygonObject*) pObj )->WriteCERN( rOStm, rBaseURL );
 179             break;
 180
 181             default:
 182             break;
 183         }
 184     }
 185 }
 186
 187 void ImageMap::ImpWriteNCSA( SvStream& rOStm, const String& rBaseURL  ) const
 188 {
 189     IMapObject* pObj;
 190     size_t      nCount = maList.size();
 191
 192     for ( size_t i = 0; i < nCount; i++ )
 193     {
 194         pObj = maList[ i ];
 195
 196         switch( pObj->GetType() )
 197         {
 198             case( IMAP_OBJ_RECTANGLE ):
 199                 ( (IMapRectangleObject*) pObj )->WriteNCSA( rOStm, rBaseURL );
 200             break;
 201
 202             case( IMAP_OBJ_CIRCLE ):
 203                 ( (IMapCircleObject*) pObj )->WriteNCSA( rOStm, rBaseURL );
 204             break;
 205
 206             case( IMAP_OBJ_POLYGON ):
 207                 ( (IMapPolygonObject*) pObj )->WriteNCSA( rOStm, rBaseURL );
 208             break;
 209
 210             default:
 211             break;
 212         }
 213     }
 214 }
 215
 216 sal_uLong ImageMap::Read( SvStream& rIStm, sal_uLong nFormat, const String& rBaseURL  )
 217 {
 218     sal_uLong nRet = IMAP_ERR_FORMAT;
 219
 220     if ( nFormat == IMAP_FORMAT_DETECT )
 221         nFormat = ImpDetectFormat( rIStm );
 222
 223     switch ( nFormat )
 224     {
 225         case ( IMAP_FORMAT_BIN )    : Read( rIStm, rBaseURL ); break;
 226         case ( IMAP_FORMAT_CERN )   : nRet = ImpReadCERN( rIStm, rBaseURL ); break;
 227         case ( IMAP_FORMAT_NCSA )   : nRet = ImpReadNCSA( rIStm, rBaseURL ); break;
 228
 229         default:
 230         break;
 231     }
 232
 233     if ( !rIStm.GetError() )
 234         nRet = IMAP_ERR_OK;
 235
 236     return nRet;
 237 }
 238
 239 sal_uLong ImageMap::ImpReadCERN( SvStream& rIStm, const String& rBaseURL )
 240 {
 241     // alten Inhalt loeschen
 242     ClearImageMap();
 243
 244     OString aStr;
 245     while ( rIStm.ReadLine( aStr ) )
 246         ImpReadCERNLine( aStr, rBaseURL );
 247
 248     return IMAP_ERR_OK;
 249 }
 250
 251 void ImageMap::ImpReadCERNLine( const OString& rLine, const String& rBaseURL  )
 252 {
 253     OString aStr = comphelper::string::stripStart(rLine, ' ');
 254     aStr = comphelper::string::stripStart(aStr, '\t');
 255     aStr = comphelper::string::remove(aStr, ';');
 256     aStr = aStr.toAsciiLowerCase();
 257
 258     const char* pStr = aStr.getStr();
 259     char        cChar = *pStr++;
 260
 261     // Anweisung finden
 262     OStringBuffer aBuf;
 263     while( ( cChar >= 'a' ) && ( cChar <= 'z' ) && NOTEOL( cChar ) )
 264     {
 265         aBuf.append(cChar);
 266         cChar = *pStr++;
 267     }
 268     OString aToken = aBuf.makeStringAndClear();
 269
 270     if ( NOTEOL( cChar ) )
 271     {
 272         if ( ( aToken == "rectangle" ) || ( aToken == "rect" ) )
 273         {
 274             const Point     aTopLeft( ImpReadCERNCoords( &pStr ) );
 275             const Point     aBottomRight( ImpReadCERNCoords( &pStr ) );
 276             const String    aURL( ImpReadCERNURL( &pStr, rBaseURL ) );
 277             const Rectangle aRect( aTopLeft, aBottomRight );
 278
 279             IMapRectangleObject* pObj = new IMapRectangleObject( aRect, aURL, String(), String(), String(), String() );
 280             maList.push_back( pObj );
 281         }
 282         else if ( ( aToken == "circle" ) || ( aToken == "circ" ) )
 283         {
 284             const Point     aCenter( ImpReadCERNCoords( &pStr ) );
 285             const long      nRadius = ImpReadCERNRadius( &pStr );
 286             const String    aURL( ImpReadCERNURL( &pStr, rBaseURL ) );
 287
 288             IMapCircleObject* pObj = new IMapCircleObject( aCenter, nRadius, aURL, String(), String(), String(), String() );
 289             maList.push_back( pObj );
 290         }
 291         else if ( ( aToken == "polygon" ) || ( aToken == "poly" ) )
 292         {
 293             const sal_uInt16 nCount = comphelper::string::getTokenCount(aStr,
 294                 '(') - 1;
 295             Polygon         aPoly( nCount );
 296             String          aURL;
 297
 298             for ( sal_uInt16 i = 0; i < nCount; i++ )
 299                 aPoly[ i ] = ImpReadCERNCoords( &pStr );
 300
 301             aURL = ImpReadCERNURL( &pStr, rBaseURL );
 302
 303             IMapPolygonObject* pObj = new IMapPolygonObject( aPoly, aURL, String(), String(), String(), String() );
 304             maList.push_back( pObj );
 305         }
 306     }
 307 }
 308
 309 Point ImageMap::ImpReadCERNCoords( const char** ppStr )
 310 {
 311     String  aStrX;
 312     String  aStrY;
 313     Point   aPt;
 314     char    cChar = *(*ppStr)++;
 315
 316     while( NOTEOL( cChar ) && ( ( cChar < '0' ) || ( cChar > '9' ) ) )
 317         cChar = *(*ppStr)++;
 318
 319     if ( NOTEOL( cChar ) )
 320     {
 321         while( NOTEOL( cChar ) && ( cChar >= '0' ) && ( cChar <= '9' ) )
 322         {
 323             aStrX += cChar;
 324             cChar = *(*ppStr)++;
 325         }
 326
 327         if ( NOTEOL( cChar ) )
 328         {
 329             while( NOTEOL( cChar ) && ( ( cChar < '0' ) || ( cChar > '9' ) ) )
 330                 cChar = *(*ppStr)++;
 331
 332             while( NOTEOL( cChar ) && ( cChar >= '0' ) && ( cChar <= '9' ) )
 333             {
 334                 aStrY += cChar;
 335                 cChar = *(*ppStr)++;
 336             }
 337
 338             if ( NOTEOL( cChar ) )
 339                 while( NOTEOL( cChar ) && ( cChar != ')' ) )
 340                     cChar = *(*ppStr)++;
 341
 342             aPt = Point( aStrX.ToInt32(), aStrY.ToInt32() );
 343         }
 344     }
 345
 346     return aPt;
 347 }
 348
 349 long ImageMap::ImpReadCERNRadius( const char** ppStr )
 350 {
 351     String  aStr;
 352     char    cChar = *(*ppStr)++;
 353
 354     while( NOTEOL( cChar ) && ( ( cChar < '0' ) || ( cChar > '9' ) ) )
 355         cChar = *(*ppStr)++;
 356
 357     if ( NOTEOL( cChar ) )
 358     {
 359         while( NOTEOL( cChar ) && ( cChar >= '0' ) && ( cChar <= '9' ) )
 360         {
 361             aStr += cChar;
 362             cChar = *(*ppStr)++;
 363         }
 364     }
 365
 366     return aStr.ToInt32();
 367 }
 368
 369 String ImageMap::ImpReadCERNURL( const char** ppStr, const String& rBaseURL )
 370 {
 371     OUString aStr(OUString::createFromAscii(*ppStr));
 372
 373     aStr = comphelper::string::stripStart(aStr, ' ');
 374     aStr = comphelper::string::stripStart(aStr, '\t');
 375     aStr = comphelper::string::stripEnd(aStr, ' ');
 376     aStr = comphelper::string::stripEnd(aStr, '\t');
 377
 378     return INetURLObject::GetAbsURL( rBaseURL, aStr );
 379 }
 380
 381 sal_uLong ImageMap::ImpReadNCSA( SvStream& rIStm, const String& rBaseURL )
 382 {
 383     // alten Inhalt loeschen
 384     ClearImageMap();
 385
 386     OString aStr;
 387     while ( rIStm.ReadLine( aStr ) )
 388         ImpReadNCSALine( aStr, rBaseURL );
 389
 390     return IMAP_ERR_OK;
 391 }
 392
 393 void ImageMap::ImpReadNCSALine( const OString& rLine, const String& rBaseURL )
 394 {
 395     OString aStr = comphelper::string::stripStart(rLine, ' ');
 396     aStr = comphelper::string::stripStart(aStr, '\t');
 397     aStr = comphelper::string::remove(aStr, ';');
 398     aStr = aStr.toAsciiLowerCase();
 399
 400     const char* pStr = aStr.getStr();
 401     char        cChar = *pStr++;
 402
 403     // Anweisung finden
 404     OStringBuffer aBuf;
 405     while( ( cChar >= 'a' ) && ( cChar <= 'z' ) && NOTEOL( cChar ) )
 406     {
 407         aBuf.append(cChar);
 408         cChar = *pStr++;
 409     }
 410     OString aToken = aBuf.makeStringAndClear();
 411
 412     if ( NOTEOL( cChar ) )
 413     {
 414         if ( aToken == "rect" )
 415         {
 416             const String    aURL( ImpReadNCSAURL( &pStr, rBaseURL ) );
 417             const Point     aTopLeft( ImpReadNCSACoords( &pStr ) );
 418             const Point     aBottomRight( ImpReadNCSACoords( &pStr ) );
 419             const Rectangle aRect( aTopLeft, aBottomRight );
 420
 421             IMapRectangleObject* pObj = new IMapRectangleObject( aRect, aURL, String(), String(), String(), String() );
 422             maList.push_back( pObj );
 423         }
 424         else if ( aToken == "circle" )
 425         {
 426             const String    aURL( ImpReadNCSAURL( &pStr, rBaseURL ) );
 427             const Point     aCenter( ImpReadNCSACoords( &pStr ) );
 428             const Point     aDX( aCenter - ImpReadNCSACoords( &pStr ) );
 429             long            nRadius = (long) sqrt( (double) aDX.X() * aDX.X() +
 430                                                    (double) aDX.Y() * aDX.Y() );
 431
 432             IMapCircleObject* pObj = new IMapCircleObject( aCenter, nRadius, aURL, String(), String(), String(), String() );
 433             maList.push_back( pObj );
 434         }
 435         else if ( aToken == "poly" )
 436         {
 437             const sal_uInt16 nCount = comphelper::string::getTokenCount(aStr,
 438                 ',') - 1;
 439             const String    aURL( ImpReadNCSAURL( &pStr, rBaseURL ) );
 440             Polygon         aPoly( nCount );
 441
 442             for ( sal_uInt16 i = 0; i < nCount; i++ )
 443                 aPoly[ i ] = ImpReadNCSACoords( &pStr );
 444
 445             IMapPolygonObject* pObj = new IMapPolygonObject( aPoly, aURL, String(), String(), String(), String() );
 446             maList.push_back( pObj );
 447         }
 448     }
 449 }
 450
 451 String ImageMap::ImpReadNCSAURL( const char** ppStr, const String& rBaseURL )
 452 {
 453     String  aStr;
 454     char    cChar = *(*ppStr)++;
 455
 456     while( NOTEOL( cChar ) && ( ( cChar == ' ' ) || ( cChar == '\t' ) ) )
 457         cChar = *(*ppStr)++;
 458
 459     if ( NOTEOL( cChar ) )
 460     {
 461         while( NOTEOL( cChar ) && ( cChar != ' ' ) && ( cChar != '\t' ) )
 462         {
 463             aStr += cChar;
 464             cChar = *(*ppStr)++;
 465         }
 466     }
 467
 468     return INetURLObject::GetAbsURL( rBaseURL, aStr );
 469 }
 470
 471 Point ImageMap::ImpReadNCSACoords( const char** ppStr )
 472 {
 473     String  aStrX;
 474     String  aStrY;
 475     Point   aPt;
 476     char    cChar = *(*ppStr)++;
 477
 478     while( NOTEOL( cChar ) && ( ( cChar < '0' ) || ( cChar > '9' ) ) )
 479         cChar = *(*ppStr)++;
 480
 481     if ( NOTEOL( cChar ) )
 482     {
 483         while( NOTEOL( cChar ) && ( cChar >= '0' ) && ( cChar <= '9' ) )
 484         {
 485             aStrX += cChar;
 486             cChar = *(*ppStr)++;
 487         }
 488
 489         if ( NOTEOL( cChar ) )
 490         {
 491             while( NOTEOL( cChar ) && ( ( cChar < '0' ) || ( cChar > '9' ) ) )
 492                 cChar = *(*ppStr)++;
 493
 494             while( NOTEOL( cChar ) && ( cChar >= '0' ) && ( cChar <= '9' ) )
 495             {
 496                 aStrY += cChar;
 497                 cChar = *(*ppStr)++;
 498             }
 499
 500             aPt = Point( aStrX.ToInt32(), aStrY.ToInt32() );
 501         }
 502     }
 503
 504     return aPt;
 505 }
 506
 507 sal_uLong ImageMap::ImpDetectFormat( SvStream& rIStm )
 508 {
 509     sal_uLong   nPos = rIStm.Tell();
 510     sal_uLong   nRet = IMAP_FORMAT_BIN;
 511     char    cMagic[6];
 512
 513     rIStm.Read( cMagic, sizeof( cMagic ) );
 514
 515     // Falls wir kein internes Format haben,
 516     // untersuchen wir das Format
 517     if ( memcmp( cMagic, IMAPMAGIC, sizeof( cMagic ) ) )
 518     {
 519         long        nCount = 128;
 520
 521         rIStm.Seek( nPos );
 522         OString aStr;
 523         while ( rIStm.ReadLine( aStr ) && nCount-- )
 524         {
 525             aStr = aStr.toAsciiLowerCase();
 526
 527             if ( (aStr.indexOfL(RTL_CONSTASCII_STRINGPARAM("rect")) != -1) ||
 528                  (aStr.indexOfL(RTL_CONSTASCII_STRINGPARAM("circ")) != -1) ||
 529                  (aStr.indexOfL(RTL_CONSTASCII_STRINGPARAM("poly")) != -1) )
 530             {
 531                 if ( ( aStr.indexOf('(') != -1 ) &&
 532                      ( aStr.indexOf(')') != -1 ) )
 533                 {
 534                     nRet = IMAP_FORMAT_CERN;
 535                 }
 536                 else
 537                     nRet = IMAP_FORMAT_NCSA;
 538
 539                 break;
 540             }
 541         }
 542     }
 543
 544     rIStm.Seek( nPos );
 545
 546     return nRet;
 547 }
 548
 549 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */