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