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