?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Update ooo320-m1
[ooovba.git] / filter / source / xsltdialog / xmlfileview.cxx
blob197d03f577276f3fa2f957f089ad5d8cf605d002
1 /*************************************************************************
2 *
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 *
5 * Copyright 2008 by Sun Microsystems, Inc.
6 *
7 * OpenOffice.org - a multi-platform office productivity suite
8 *
9 * $RCSfile: xmlfileview.cxx,v $
10 * $Revision: 1.11 $
11 *
12 * This file is part of OpenOffice.org.
13 *
14 * OpenOffice.org is free software: you can redistribute it and/or modify
15 * it under the terms of the GNU Lesser General Public License version 3
16 * only, as published by the Free Software Foundation.
17 *
18 * OpenOffice.org is distributed in the hope that it will be useful,
19 * but WITHOUT ANY WARRANTY; without even the implied warranty of
20 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 * GNU Lesser General Public License version 3 for more details
22 * (a copy is included in the LICENSE file that accompanied this code).
23 *
24 * You should have received a copy of the GNU Lesser General Public License
25 * version 3 along with OpenOffice.org. If not, see
26 * <http://www.openoffice.org/license.html>
27 * for a copy of the LGPLv3 License.
28 *
29 ************************************************************************/
30
31 // MARKER(update_precomp.py): autogen include statement, do not remove
32 #include "precompiled_filter.hxx"
33 #include <com/sun/star/xml/sax/XDocumentHandler.hpp>
34 #include <com/sun/star/xml/sax/XErrorHandler.hpp>
35 #include <com/sun/star/xml/sax/SAXParseException.hpp>
36 #include <com/sun/star/xml/XImportFilter.hpp>
37 #include <com/sun/star/io/XActiveDataSource.hpp>
38 #include <comphelper/oslfile2streamwrap.hxx>
39
40 #include <rtl/tencinfo.h>
41 #include <vcl/svapp.hxx>
42 #include <vos/mutex.hxx>
43 #include <svtools/textview.hxx>
44 #ifndef _SCRBAR_HXX //autogen
45 #include <vcl/scrbar.hxx>
46 #endif
47 #include <tools/stream.hxx>
48 #include <tools/time.hxx>
49 #include <osl/file.hxx>
50 #include <vcl/msgbox.hxx>
51 #include <svtools/colorcfg.hxx>
52 #include <svtools/htmltokn.h>
53 #include <svtools/txtattr.hxx>
54
55 #include "xmlfilterdialogstrings.hrc"
56 #include "xmlfiltersettingsdialog.hxx"
57 #include "xmlfileview.hxx"
58 #include "xmlfileview.hrc"
59 #include "xmlfilterhelpids.hrc"
60
61 using namespace rtl;
62 using namespace osl;
63 using namespace com::sun::star::lang;
64 using namespace com::sun::star::beans;
65 using namespace com::sun::star::uno;
66 using namespace com::sun::star::io;
67 using namespace com::sun::star::xml;
68 using namespace com::sun::star::xml::sax;
69
70
71 #define MAX_SYNTAX_HIGHLIGHT 20
72 #define MAX_HIGHLIGHTTIME 200
73 #define SYNTAX_HIGHLIGHT_TIMEOUT 200
74
75
76 struct SwTextPortion
77 {
78 USHORT nLine;
79 USHORT nStart, nEnd;
80 svtools::ColorConfigEntry eType;
81 };
82
83 SV_DECL_VARARR(SwTextPortions, SwTextPortion,16,16)
84 SV_IMPL_VARARR(SwTextPortions, SwTextPortion);
85
86 class XMLErrorHandler : public ::cppu::WeakImplHelper1< XErrorHandler >
87 {
88 public:
89 XMLErrorHandler( XMLSourceFileDialog* pParent, ListBox& rListBox );
90
91 // Methods
92 virtual void SAL_CALL error( const Any& aSAXParseException ) throw (SAXException, RuntimeException);
93 virtual void SAL_CALL fatalError( const Any& aSAXParseException ) throw (SAXException, RuntimeException);
94 virtual void SAL_CALL warning( const Any& aSAXParseException ) throw (SAXException, RuntimeException);
95
96 private:
97 XMLSourceFileDialog* mpParent;
98 ListBox& mrListBox;
99 };
100
101 XMLErrorHandler::XMLErrorHandler( XMLSourceFileDialog* pParent, ListBox& rListBox )
102 : mpParent( pParent ),
103 mrListBox( rListBox )
104 {
105 }
106
107 // XMLErrorHandler
108 void SAL_CALL XMLErrorHandler::error( const Any& aSAXParseException ) throw (SAXException, RuntimeException)
109 {
110 vos::OGuard aGuard( Application::GetSolarMutex() );
111
112 SAXParseException e;
113 if( aSAXParseException >>= e )
114 {
115 String sErr( String::CreateFromInt32( e.LineNumber ) );
116 sErr += String( RTL_CONSTASCII_USTRINGPARAM( " : " ) );
117 sErr += String( e.Message );
118 USHORT nEntry = mrListBox.InsertEntry( sErr );
119 mrListBox.SetEntryData( nEntry, (void*)e.LineNumber );
120 }
121 }
122
123 void SAL_CALL XMLErrorHandler::fatalError( const Any& aSAXParseException ) throw (SAXException, RuntimeException)
124 {
125 vos::OGuard aGuard( Application::GetSolarMutex() );
126
127 SAXParseException e;
128 if( aSAXParseException >>= e )
129 {
130 String sErr( String::CreateFromInt32( e.LineNumber ) );
131 sErr += String( RTL_CONSTASCII_USTRINGPARAM( " : " ) );
132 sErr += String( e.Message );
133 USHORT nEntry = mrListBox.InsertEntry( sErr );
134 mrListBox.SetEntryData( nEntry, (void*)e.LineNumber );
135 }
136 }
137
138 void SAL_CALL XMLErrorHandler::warning( const Any& /* aSAXParseException */ ) throw (SAXException, RuntimeException)
139 {
140 /*
141 SAXParseException e;
142 if( aSAXParseException >>= e )
143 {
144 String sErr( String::CreateFromInt32( e.LineNumber ) );
145 sErr += String( RTL_CONSTASCII_USTRINGPARAM( " : " ) );
146 sErr += String( e.Message );
147 USHORT nEntry = mrListBox.InsertEntry( sErr );
148 mrListBox.SetEntryData( nEntry, (void*)e.LineNumber );
149 }
150 */
151 }
152
153
154 XMLFileWindow::XMLFileWindow( Window* pParent ) :
155 Window( pParent, WB_BORDER|WB_CLIPCHILDREN ),
156 pTextEngine(0),
157 pOutWin(0),
158 pHScrollbar(0),
159 pVScrollbar(0),
160 nCurTextWidth(0),
161 nStartLine(USHRT_MAX),
162 eSourceEncoding(gsl_getSystemTextEncoding()),
163 bHighlighting(false)
164 {
165 CreateTextEngine();
166 }
167
168 XMLFileWindow::~XMLFileWindow()
169 {
170 if ( pTextEngine )
171 {
172 EndListening( *pTextEngine );
173 pTextEngine->RemoveView( pTextView );
174
175 delete pHScrollbar;
176 delete pVScrollbar;
177
178 delete pTextView;
179 delete pTextEngine;
180 }
181 delete pOutWin;
182 }
183
184 void XMLFileWindow::DataChanged( const DataChangedEvent& rDCEvt )
185 {
186 Window::DataChanged( rDCEvt );
187
188 switch ( rDCEvt.GetType() )
189 {
190 case DATACHANGED_SETTINGS:
191 // ScrollBars neu anordnen bzw. Resize ausloesen, da sich
192 // ScrollBar-Groesse geaendert haben kann. Dazu muss dann im
193 // Resize-Handler aber auch die Groesse der ScrollBars aus
194 // den Settings abgefragt werden.
195 if( rDCEvt.GetFlags() & SETTINGS_STYLE )
196 Resize();
197 break;
198 }
199 }
200
201 void XMLFileWindow::Resize()
202 {
203 // ScrollBars, etc. passiert in Adjust...
204 if ( pTextView )
205 {
206 long nVisY = pTextView->GetStartDocPos().Y();
207 pTextView->ShowCursor();
208 Size aOutSz( GetOutputSizePixel() );
209 long nMaxVisAreaStart = pTextView->GetTextEngine()->GetTextHeight() - aOutSz.Height();
210 if ( nMaxVisAreaStart < 0 )
211 nMaxVisAreaStart = 0;
212 if ( pTextView->GetStartDocPos().Y() > nMaxVisAreaStart )
213 {
214 Point aStartDocPos( pTextView->GetStartDocPos() );
215 aStartDocPos.Y() = nMaxVisAreaStart;
216 pTextView->SetStartDocPos( aStartDocPos );
217 pTextView->ShowCursor();
218 }
219 long nScrollStd = GetSettings().GetStyleSettings().GetScrollBarSize();
220 Size aScrollSz(aOutSz.Width() - nScrollStd, nScrollStd );
221 Point aScrollPos(0, aOutSz.Height() - nScrollStd);
222
223 pHScrollbar->SetPosSizePixel( aScrollPos, aScrollSz);
224
225 aScrollSz.Width() = aScrollSz.Height();
226 aScrollSz.Height() = aOutSz.Height() - aScrollSz.Height();
227 aScrollPos = Point(aOutSz.Width() - nScrollStd, 0);
228
229 pVScrollbar->SetPosSizePixel( aScrollPos, aScrollSz);
230 aOutSz.Width() -= nScrollStd;
231 aOutSz.Height() -= nScrollStd;
232 pOutWin->SetOutputSizePixel(aOutSz);
233 InitScrollBars();
234
235 // Zeile im ersten Resize setzen
236 if(USHRT_MAX != nStartLine)
237 {
238 if(nStartLine < pTextEngine->GetParagraphCount())
239 {
240 TextSelection aSel(TextPaM( nStartLine, 0 ), TextPaM( nStartLine, 0x0 ));
241 pTextView->SetSelection(aSel);
242 pTextView->ShowCursor();
243 }
244 nStartLine = USHRT_MAX;
245 }
246
247 if ( nVisY != pTextView->GetStartDocPos().Y() )
248 InvalidateWindow();
249 }
250
251 }
252
253 void TextViewOutWin::DataChanged( const DataChangedEvent& rDCEvt )
254 {
255 Window::DataChanged( rDCEvt );
256
257 switch( rDCEvt.GetType() )
258 {
259 case DATACHANGED_SETTINGS:
260 // den Settings abgefragt werden.
261 if( rDCEvt.GetFlags() & SETTINGS_STYLE )
262 {
263 const Color &rCol = GetSettings().GetStyleSettings().GetWindowColor();
264 SetBackground( rCol );
265 Font aFont( pTextView->GetTextEngine()->GetFont() );
266 aFont.SetFillColor( rCol );
267 pTextView->GetTextEngine()->SetFont( aFont );
268 }
269 break;
270 }
271 }
272
273 void TextViewOutWin::MouseMove( const MouseEvent &rEvt )
274 {
275 if ( pTextView )
276 pTextView->MouseMove( rEvt );
277 }
278
279 void TextViewOutWin::MouseButtonUp( const MouseEvent &rEvt )
280 {
281 if ( pTextView )
282 pTextView->MouseButtonUp( rEvt );
283 }
284
285 void TextViewOutWin::MouseButtonDown( const MouseEvent &rEvt )
286 {
287 GrabFocus();
288 if ( pTextView )
289 pTextView->MouseButtonDown( rEvt );
290 }
291
292 void TextViewOutWin::Command( const CommandEvent& rCEvt )
293 {
294 switch(rCEvt.GetCommand())
295 {
296 case COMMAND_CONTEXTMENU:
297 break;
298 case COMMAND_WHEEL:
299 case COMMAND_STARTAUTOSCROLL:
300 case COMMAND_AUTOSCROLL:
301 {
302 const CommandWheelData* pWData = rCEvt.GetWheelData();
303 if( !pWData || COMMAND_WHEEL_ZOOM != pWData->GetMode() )
304 {
305 ((XMLFileWindow*)GetParent())->HandleWheelCommand( rCEvt );
306 }
307 }
308 break;
309
310 default:
311 if ( pTextView )
312 pTextView->Command( rCEvt );
313 else
314 Window::Command(rCEvt);
315 }
316 }
317
318 void TextViewOutWin::KeyInput( const KeyEvent& rKEvt )
319 {
320 if(!TextEngine::DoesKeyChangeText( rKEvt ))
321 pTextView->KeyInput( rKEvt );
322 }
323
324 void TextViewOutWin::Paint( const Rectangle& rRect )
325 {
326 pTextView->Paint( rRect );
327 }
328
329 void XMLFileWindow::CreateTextEngine()
330 {
331 const Color &rCol = GetSettings().GetStyleSettings().GetWindowColor();
332 pOutWin = new TextViewOutWin(this, 0);
333 pOutWin->SetBackground(Wallpaper(rCol));
334 pOutWin->SetPointer(Pointer(POINTER_TEXT));
335 pOutWin->Show();
336
337 //Scrollbars anlegen
338 pHScrollbar = new ScrollBar(this, WB_3DLOOK |WB_HSCROLL|WB_DRAG);
339 pHScrollbar->SetScrollHdl(LINK(this, XMLFileWindow, ScrollHdl));
340 pHScrollbar->Show();
341
342 pVScrollbar = new ScrollBar(this, WB_3DLOOK |WB_VSCROLL|WB_DRAG);
343 pVScrollbar->SetScrollHdl(LINK(this, XMLFileWindow, ScrollHdl));
344 pHScrollbar->EnableDrag();
345 pVScrollbar->Show();
346
347 pTextEngine = new TextEngine;
348 pTextView = new TextView( pTextEngine, pOutWin );
349 pTextView->SetAutoIndentMode(TRUE);
350 pOutWin->SetTextView(pTextView);
351
352 pTextEngine->SetUpdateMode( FALSE );
353 pTextEngine->InsertView( pTextView );
354
355 Font aFont;
356 aFont.SetTransparent( FALSE );
357 aFont.SetFillColor( rCol );
358 SetPointFont( aFont );
359 aFont = GetFont();
360 aFont.SetFillColor( rCol );
361 pOutWin->SetFont( aFont );
362 pTextEngine->SetFont( aFont );
363
364 aSyntaxIdleTimer.SetTimeout( SYNTAX_HIGHLIGHT_TIMEOUT );
365 aSyntaxIdleTimer.SetTimeoutHdl( LINK( this, XMLFileWindow, SyntaxTimerHdl ) );
366
367 pTextEngine->EnableUndo( FALSE );
368 pTextEngine->SetUpdateMode( TRUE );
369
370 // pTextView->ShowCursor( TRUE, TRUE );
371 pTextView->HideCursor();
372
373 InitScrollBars();
374 StartListening( *pTextEngine );
375 }
376
377 void XMLFileWindow::SetScrollBarRanges()
378 {
379 pHScrollbar->SetRange( Range( 0, nCurTextWidth-1 ) );
380 pVScrollbar->SetRange( Range(0, pTextEngine->GetTextHeight()-1) );
381 }
382
383 void XMLFileWindow::InitScrollBars()
384 {
385 SetScrollBarRanges();
386
387 Size aOutSz( pOutWin->GetOutputSizePixel() );
388 pVScrollbar->SetVisibleSize( aOutSz.Height() );
389 pVScrollbar->SetPageSize( aOutSz.Height() * 8 / 10 );
390 pVScrollbar->SetLineSize( pOutWin->GetTextHeight() );
391 pVScrollbar->SetThumbPos( pTextView->GetStartDocPos().Y() );
392 pHScrollbar->SetVisibleSize( aOutSz.Width() );
393 pHScrollbar->SetPageSize( aOutSz.Width() * 8 / 10 );
394 pHScrollbar->SetLineSize( pOutWin->GetTextWidth( 'x' ) );
395 pHScrollbar->SetThumbPos( pTextView->GetStartDocPos().X() );
396
397 }
398
399 IMPL_LINK(XMLFileWindow, ScrollHdl, ScrollBar*, pScroll)
400 {
401 if(pScroll == pVScrollbar)
402 {
403 long nDiff = pTextView->GetStartDocPos().Y() - pScroll->GetThumbPos();
404 GetTextView()->Scroll( 0, nDiff );
405 pTextView->ShowCursor( FALSE, TRUE );
406 pScroll->SetThumbPos( pTextView->GetStartDocPos().Y() );
407 }
408 else
409 {
410 long nDiff = pTextView->GetStartDocPos().X() - pScroll->GetThumbPos();
411 GetTextView()->Scroll( nDiff, 0 );
412 pTextView->ShowCursor( FALSE, TRUE );
413 pScroll->SetThumbPos( pTextView->GetStartDocPos().X() );
414 }
415 return 0;
416 }
417
418 void XMLFileWindow::Notify( SfxBroadcaster& /* rBC */, const SfxHint& rHint )
419 {
420 if ( rHint.ISA( TextHint ) )
421 {
422 const TextHint& rTextHint = (const TextHint&)rHint;
423 if( rTextHint.GetId() == TEXT_HINT_VIEWSCROLLED )
424 {
425 pHScrollbar->SetThumbPos( pTextView->GetStartDocPos().X() );
426 pVScrollbar->SetThumbPos( pTextView->GetStartDocPos().Y() );
427 }
428 else if( rTextHint.GetId() == TEXT_HINT_TEXTHEIGHTCHANGED )
429 {
430 if ( (long)pTextEngine->GetTextHeight() < pOutWin->GetOutputSizePixel().Height() )
431 pTextView->Scroll( 0, pTextView->GetStartDocPos().Y() );
432 pVScrollbar->SetThumbPos( pTextView->GetStartDocPos().Y() );
433 SetScrollBarRanges();
434 }
435 else if( rTextHint.GetId() == TEXT_HINT_FORMATPARA )
436 {
437 DoDelayedSyntaxHighlight( (USHORT)rTextHint.GetValue() );
438 }
439 }
440 }
441
442 void XMLFileWindow::InvalidateWindow()
443 {
444 pOutWin->Invalidate();
445 Window::Invalidate();
446
447 }
448
449 void XMLFileWindow::Command( const CommandEvent& rCEvt )
450 {
451 switch(rCEvt.GetCommand())
452 {
453 case COMMAND_WHEEL:
454 case COMMAND_STARTAUTOSCROLL:
455 case COMMAND_AUTOSCROLL:
456 {
457 const CommandWheelData* pWData = rCEvt.GetWheelData();
458 if( !pWData || COMMAND_WHEEL_ZOOM != pWData->GetMode() )
459 HandleScrollCommand( rCEvt, pHScrollbar, pVScrollbar );
460 }
461 break;
462 default:
463 Window::Command(rCEvt);
464 }
465 }
466
467 void XMLFileWindow::HandleWheelCommand( const CommandEvent& rCEvt )
468 {
469 pTextView->Command(rCEvt);
470 HandleScrollCommand( rCEvt, pHScrollbar, pVScrollbar );
471 }
472
473 void XMLFileWindow::GetFocus()
474 {
475 pOutWin->GrabFocus();
476 }
477
478 void XMLFileWindow::ShowWindow( const rtl::OUString& rFileName )
479 {
480 String aFileName( rFileName );
481 SvFileStream aStream( aFileName, STREAM_READ );
482
483 // since the xml files we load are utf-8 encoded, we need to set
484 // this encoding at the SvFileStream, else the TextEngine will
485 // use its default encoding which is not UTF8
486 const sal_Char *pCharSet = rtl_getBestMimeCharsetFromTextEncoding( RTL_TEXTENCODING_UTF8 );
487 rtl_TextEncoding eDestEnc = rtl_getTextEncodingFromMimeCharset( pCharSet );
488 aStream.SetStreamCharSet( eDestEnc );
489
490 if( Read( aStream ) )
491 {
492 long nPrevTextWidth = nCurTextWidth;
493 nCurTextWidth = pTextEngine->CalcTextWidth() + 25; // kleine Toleranz
494 if ( nCurTextWidth != nPrevTextWidth )
495 SetScrollBarRanges();
496
497 TextPaM aPaM( pTextView->CursorStartOfDoc() );
498 TextSelection aSelection( aPaM, aPaM );
499 pTextView->SetSelection( aSelection, true );
500
501 Window::Show();
502 }
503 }
504
505 void XMLFileWindow::showLine( sal_Int32 nLine )
506 {
507 TextPaM aPaM( pTextView->CursorStartOfDoc() );
508 while( nLine-- )
509 aPaM = pTextView->CursorDown( aPaM );
510
511 TextSelection aSelection( pTextView->CursorEndOfLine( aPaM ), aPaM );
512 pTextView->SetSelection( aSelection, true );
513 }
514
515
516 XMLSourceFileDialog::XMLSourceFileDialog( Window* pParent, ResMgr& rResMgr, const com::sun::star::uno::Reference< com::sun::star::lang::XMultiServiceFactory >& rxMSF )
517 : WorkWindow( pParent, ResId( DLG_XML_SOURCE_FILE_DIALOG, rResMgr ) ),
518 mnOutputHeight( LogicToPixel( Size( 80, 80 ), MAP_APPFONT ).Height() ),
519 mxMSF( rxMSF ),
520 mrResMgr( rResMgr ),
521 maLBOutput( this ),
522 maPBValidate( this, ResId( PB_VALIDATE, rResMgr ) )
523 {
524
525 FreeResource();
526
527 maPBValidate.SetClickHdl(LINK( this, XMLSourceFileDialog, ClickHdl_Impl ) );
528 maLBOutput.SetSelectHdl(LINK(this, XMLSourceFileDialog, SelectHdl_Impl ) );
529 mpTextWindow = new XMLFileWindow( this );
530 mpTextWindow->SetHelpId( HID_XML_FILTER_OUTPUT_WINDOW );
531 maLBOutput.SetHelpId( HID_XML_FILTER_TEST_VALIDATE_OUPUT );
532
533 Resize();
534 }
535
536 XMLSourceFileDialog::~XMLSourceFileDialog()
537 {
538 if( maFileURL.getLength() )
539 osl::File::remove( maFileURL );
540
541 delete mpTextWindow;
542 }
543
544 void XMLSourceFileDialog::ShowWindow( const rtl::OUString& rFileName, const filter_info_impl* pFilterInfo )
545 {
546 EnterWait();
547 if( maFileURL.getLength() )
548 {
549 osl::File::remove( maFileURL );
550 delete mpTextWindow;
551 mpTextWindow = new XMLFileWindow( this );
552 maLBOutput.Hide();
553 maLBOutput.Clear();
554 maPBValidate.Enable(TRUE);
555 Resize();
556 }
557
558 mpFilterInfo = pFilterInfo;
559 maFileURL = rFileName;
560 mpTextWindow->ShowWindow( rFileName );
561 WorkWindow::Show();
562 LeaveWait();
563 }
564
565 void XMLSourceFileDialog::Resize()
566 {
567 bool bOutputVisible = maLBOutput.IsVisible() != 0;
568
569 Point aSpacing( LogicToPixel( Point( 6, 6 ), MAP_APPFONT ) );
570 Size aButton( maPBValidate.GetSizePixel() );
571
572 Size aDialogSize( GetOutputSizePixel() );
573
574 // Point aButtonPos( aSpacing.X(), aSpacing.Y() );
575 // maPBValidate.SetPosSizePixel( aButtonPos, aButton );
576
577 Size aOutputSize( aDialogSize.Width(), bOutputVisible ? mnOutputHeight : 0 );
578
579 Point aTextWindowPos( 0, 2* aSpacing.Y() + aButton.Height() );
580 Size aTextWindowSize( aDialogSize.Width(), aDialogSize.Height() - aTextWindowPos.Y() - aOutputSize.Height() );
581
582 mpTextWindow->SetPosSizePixel( aTextWindowPos, aTextWindowSize );
583
584 if( bOutputVisible )
585 {
586 Point aOutputPos( 0, aTextWindowPos.Y() + aTextWindowSize.Height() );
587 maLBOutput.SetPosSizePixel( aOutputPos, aOutputSize );
588 }
589 }
590
591
592 IMPL_LINK(XMLSourceFileDialog, SelectHdl_Impl, ListBox *, pListBox )
593 {
594 USHORT nEntry = pListBox->GetSelectEntryPos();
595 if( LISTBOX_ENTRY_NOTFOUND != nEntry )
596 {
597 int nLine = (int)(sal_IntPtr)pListBox->GetEntryData(nEntry);
598 if( -1 != nLine )
599 {
600 if( nLine > 0 )
601 nLine--;
602
603 showLine( nLine );
604 }
605 }
606 return 0;
607 }
608
609 IMPL_LINK(XMLSourceFileDialog, ClickHdl_Impl, PushButton *, /* pButton */ )
610 {
611 onValidate();
612 return 0;
613 }
614
615 void XMLSourceFileDialog::onValidate()
616 {
617 EnterWait();
618
619 maLBOutput.Show();
620 maPBValidate.Enable(FALSE);
621 Resize();
622
623 try
624 {
625 Reference< XImportFilter > xImporter( mxMSF->createInstance( OUString::createFromAscii( "com.sun.star.documentconversion.XSLTValidate" ) ), UNO_QUERY );
626 if( xImporter.is() )
627 {
628 osl::File aInputFile( maFileURL );
629 /* osl::File::RC rc = */ aInputFile.open( OpenFlag_Read );
630
631 Reference< XInputStream > xIS( new comphelper::OSLInputStreamWrapper( aInputFile ) );
632
633 Sequence< PropertyValue > aSourceData(3);
634 aSourceData[0].Name = OUString( RTL_CONSTASCII_USTRINGPARAM( "InputStream" ) );
635 aSourceData[0].Value <<= xIS;
636
637 aSourceData[1].Name = OUString( RTL_CONSTASCII_USTRINGPARAM( "FileName" ) );
638 aSourceData[1].Value <<= maFileURL;
639
640 aSourceData[2].Name = OUString( RTL_CONSTASCII_USTRINGPARAM( "ErrorHandler" ) );
641 Reference< XErrorHandler > xHandle( new XMLErrorHandler( this, maLBOutput ) );
642 aSourceData[2].Value <<= xHandle;
643
644 Reference< XDocumentHandler > xWriter( mxMSF->createInstance( OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.xml.sax.Writer" ) ) ), UNO_QUERY );
645 Reference< XOutputStream > xOS( mxMSF->createInstance( OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.io.Pipe" ) ) ), UNO_QUERY );
646 Reference< XActiveDataSource > xDocSrc( xWriter, UNO_QUERY );
647 xDocSrc->setOutputStream( xOS );
648
649 Sequence< OUString > aFilterUserData( mpFilterInfo->getFilterUserData() );
650 xImporter->importer( aSourceData, xWriter, aFilterUserData );
651 }
652 }
653 catch(Exception& e)
654 {
655 String sErr( e.Message );
656 USHORT nEntry = maLBOutput.InsertEntry( sErr );
657 maLBOutput.SetEntryData( nEntry, (void*)-1 );
658 }
659
660 if( 0 == maLBOutput.GetEntryCount() )
661 {
662 String sErr( RESID( STR_NO_ERRORS_FOUND ) );
663 USHORT nEntry = maLBOutput.InsertEntry( sErr );
664 maLBOutput.SetEntryData( nEntry, (void*)-1 );
665 }
666
667 LeaveWait();
668 }
669
670 void XMLSourceFileDialog::showLine( sal_Int32 nLine )
671 {
672 mpTextWindow->showLine( nLine );
673 }
674
675
676 ///////////////////////////////////////////////////////////////////////
677
678 void lcl_Highlight(const String& rSource, SwTextPortions& aPortionList)
679 {
680 const sal_Unicode cOpenBracket = '<';
681 const sal_Unicode cCloseBracket= '>';
682 const sal_Unicode cSlash = '/';
683 const sal_Unicode cExclamation = '!';
684 // const sal_Unicode cQuote = '"';
685 // const sal_Unicode cSQuote = '\'';
686 const sal_Unicode cMinus = '-';
687 const sal_Unicode cSpace = ' ';
688 const sal_Unicode cTab = 0x09;
689 const sal_Unicode cLF = 0x0a;
690 const sal_Unicode cCR = 0x0d;
691
692
693 const USHORT nStrLen = rSource.Len();
694 USHORT nInsert = 0; // Anzahl der eingefuegten Portions
695 USHORT nActPos = 0; //Position, an der '<' gefunden wurde
696 USHORT nOffset = 0; //Offset von nActPos zur '<'
697 USHORT nPortStart = USHRT_MAX; // fuer die TextPortion
698 USHORT nPortEnd = 0; //
699 SwTextPortion aText;
700 while(nActPos < nStrLen)
701 {
702 svtools::ColorConfigEntry eFoundType = svtools::HTMLUNKNOWN;
703 if(rSource.GetChar(nActPos) == cOpenBracket && nActPos < nStrLen - 2 )
704 {
705 // 'leere' Portion einfuegen
706 if(nPortEnd < nActPos - 1 )
707 {
708 aText.nLine = 0;
709 // am Anfang nicht verschieben
710 aText.nStart = nPortEnd;
711 if(nInsert)
712 aText.nStart += 1;
713 aText.nEnd = nActPos - 1;
714 aText.eType = svtools::HTMLUNKNOWN;
715 aPortionList.Insert(aText, nInsert++);
716 }
717 sal_Unicode cFollowFirst = rSource.GetChar((xub_StrLen)(nActPos + 1));
718 sal_Unicode cFollowNext = rSource.GetChar((xub_StrLen)(nActPos + 2));
719 if(cExclamation == cFollowFirst)
720 {
721 // "<!" SGML oder Kommentar
722 if(cMinus == cFollowNext &&
723 nActPos < nStrLen - 3 && cMinus == rSource.GetChar((xub_StrLen)(nActPos + 3)))
724 {
725 eFoundType = svtools::HTMLCOMMENT;
726 }
727 else
728 eFoundType = svtools::HTMLSGML;
729 nPortStart = nActPos;
730 nPortEnd = nActPos + 1;
731 }
732 else if(cSlash == cFollowFirst)
733 {
734 // "</" Slash ignorieren
735 nPortStart = nActPos;
736 nActPos++;
737 nOffset++;
738 }
739 if(svtools::HTMLUNKNOWN == eFoundType)
740 {
741 //jetzt koennte hier ein keyword folgen
742 USHORT nSrchPos = nActPos;
743 while(++nSrchPos < nStrLen - 1)
744 {
745 sal_Unicode cNext = rSource.GetChar(nSrchPos);
746 if( cNext == cSpace ||
747 cNext == cTab ||
748 cNext == cLF ||
749 cNext == cCR)
750 break;
751 else if(cNext == cCloseBracket)
752 {
753 break;
754 }
755 }
756 if(nSrchPos > nActPos + 1)
757 {
758 //irgend ein String wurde gefunden
759 String sToken = rSource.Copy(nActPos + 1, nSrchPos - nActPos - 1 );
760 sToken.ToUpperAscii();
761 // int nToken = ::GetHTMLToken(sToken);
762 // if(nToken)
763 {
764 //Token gefunden
765 eFoundType = svtools::HTMLKEYWORD;
766 nPortEnd = nSrchPos;
767 nPortStart = nActPos;
768 }
769 /*
770 else
771 {
772 //was war das denn?
773 #ifdef DEBUG
774 DBG_ERROR("Token nicht erkannt!")
775 DBG_ERROR(ByteString(sToken, gsl_getSystemTextEncoding()).GetBuffer())
776 #endif
777 }
778 */
779
780 }
781 }
782 // jetzt muss noch '>' gesucht werden
783 if(svtools::HTMLUNKNOWN != eFoundType)
784 {
785 BOOL bFound = FALSE;
786 for(USHORT i = nPortEnd; i < nStrLen; i++)
787 if(cCloseBracket == rSource.GetChar(i))
788 {
789 bFound = TRUE;
790 nPortEnd = i;
791 break;
792 }
793 if(!bFound && (eFoundType == svtools::HTMLCOMMENT))
794 {
795 // Kommentar ohne Ende in dieser Zeile
796 bFound = TRUE;
797 nPortEnd = nStrLen - 1;
798 }
799
800 if(bFound ||(eFoundType == svtools::HTMLCOMMENT))
801 {
802 SwTextPortion aText2;
803 aText2.nLine = 0;
804 aText2.nStart = nPortStart + 1;
805 aText2.nEnd = nPortEnd;
806 aText2.eType = eFoundType;
807 aPortionList.Insert(aText2, nInsert++);
808 eFoundType = svtools::HTMLUNKNOWN;
809 }
810
811 }
812 }
813 nActPos++;
814 }
815 if(nInsert && nPortEnd < nActPos - 1)
816 {
817 aText.nLine = 0;
818 aText.nStart = nPortEnd + 1;
819 aText.nEnd = nActPos - 1;
820 aText.eType = svtools::HTMLUNKNOWN;
821 aPortionList.Insert(aText, nInsert++);
822 }
823 }
824
825 void XMLFileWindow::DoDelayedSyntaxHighlight( USHORT nPara )
826 {
827 if ( !bHighlighting )
828 {
829 aSyntaxLineTable.Insert( nPara, (void*)(USHORT)1 );
830 aSyntaxIdleTimer.Start();
831 }
832 }
833
834 void XMLFileWindow::ImpDoHighlight( const String& rSource, USHORT nLineOff )
835 {
836 SwTextPortions aPortionList;
837 lcl_Highlight(rSource, aPortionList);
838
839 USHORT nCount = aPortionList.Count();
840 if ( !nCount )
841 return;
842
843 SwTextPortion& rLast = aPortionList[nCount-1];
844 if ( rLast.nStart > rLast.nEnd ) // Nur bis Bug von MD behoeben
845 {
846 nCount--;
847 aPortionList.Remove( nCount);
848 if ( !nCount )
849 return;
850 }
851
852 // Evtl. Optimieren:
853 // Wenn haufig gleiche Farbe, dazwischen Blank ohne Farbe,
854 // ggf. zusammenfassen, oder zumindest das Blank,
855 // damit weniger Attribute
856 BOOL bOptimizeHighlight = TRUE; // war in der BasicIDE static
857 if ( bOptimizeHighlight )
858 {
859 // Es muessen nur die Blanks und Tabs mit attributiert werden.
860 // Wenn zwei gleiche Attribute hintereinander eingestellt werden,
861 // optimiert das die TextEngine.
862 USHORT nLastEnd = 0;
863 for ( USHORT i = 0; i < nCount; i++ )
864 {
865 SwTextPortion& r = aPortionList[i];
866 DBG_ASSERT( r.nLine == aPortionList[0].nLine, "doch mehrere Zeilen ?" );
867 if ( r.nStart > r.nEnd ) // Nur bis Bug von MD behoeben
868 continue;
869
870 if ( r.nStart > nLastEnd )
871 {
872 // Kann ich mich drauf verlassen, dass alle ausser
873 // Blank und Tab gehighlightet wird ?!
874 r.nStart = nLastEnd;
875 }
876 nLastEnd = r.nEnd+1;
877 if ( ( i == (nCount-1) ) && ( r.nEnd < rSource.Len() ) )
878 r.nEnd = rSource.Len();
879 }
880 }
881
882 svtools::ColorConfig aConfig;
883 for ( USHORT i = 0; i < aPortionList.Count(); i++ )
884 {
885 SwTextPortion& r = aPortionList[i];
886 if ( r.nStart > r.nEnd ) // Nur bis Bug von MD behoeben
887 continue;
888 // USHORT nCol = r.eType;
889 if(r.eType != svtools::HTMLSGML &&
890 r.eType != svtools::HTMLCOMMENT &&
891 r.eType != svtools::HTMLKEYWORD &&
892 r.eType != svtools::HTMLUNKNOWN)
893 r.eType = (svtools::ColorConfigEntry)svtools::HTMLUNKNOWN;
894 Color aColor((ColorData)aConfig.GetColorValue((svtools::ColorConfigEntry)r.eType).nColor);
895 USHORT nLine = nLineOff+r.nLine; //
896 pTextEngine->SetAttrib( TextAttribFontColor( aColor ), nLine, r.nStart, r.nEnd+1 );
897 }
898 }
899
900 IMPL_LINK( XMLFileWindow, SyntaxTimerHdl, Timer *, pTimer )
901 {
902 Time aSyntaxCheckStart;
903 DBG_ASSERT( pTextView, "Noch keine View, aber Syntax-Highlight ?!" );
904 pTextEngine->SetUpdateMode( FALSE );
905
906 bHighlighting = TRUE;
907 USHORT nLine;
908 USHORT nCount = 0;
909 // zuerst wird der Bereich um dem Cursor bearbeitet
910 TextSelection aSel = pTextView->GetSelection();
911 USHORT nCur = (USHORT)aSel.GetStart().GetPara();
912 if(nCur > 40)
913 nCur -= 40;
914 else
915 nCur = 0;
916 if(aSyntaxLineTable.Count())
917 for(USHORT i = 0; i < 80 && nCount < 40; i++, nCur++)
918 {
919 void * p = aSyntaxLineTable.Get(nCur);
920 if(p)
921 {
922 DoSyntaxHighlight( nCur );
923 aSyntaxLineTable.Remove( nCur );
924 nCount++;
925 if(!aSyntaxLineTable.Count())
926 break;
927 if((Time().GetTime() - aSyntaxCheckStart.GetTime()) > MAX_HIGHLIGHTTIME )
928 {
929 pTimer->SetTimeout( 2 * SYNTAX_HIGHLIGHT_TIMEOUT );
930 break;
931 }
932 }
933 }
934
935 // wenn dann noch etwas frei ist, wird von Beginn an weitergearbeitet
936 void* p = aSyntaxLineTable.First();
937 while ( p && nCount < MAX_SYNTAX_HIGHLIGHT)
938 {
939 nLine = (USHORT)aSyntaxLineTable.GetCurKey();
940 DoSyntaxHighlight( nLine );
941 USHORT nC = (USHORT)aSyntaxLineTable.GetCurKey();
942 p = aSyntaxLineTable.Next();
943 aSyntaxLineTable.Remove(nC);
944 nCount ++;
945 if(Time().GetTime() - aSyntaxCheckStart.GetTime() > MAX_HIGHLIGHTTIME)
946 {
947 pTimer->SetTimeout( 2 * SYNTAX_HIGHLIGHT_TIMEOUT );
948 break;
949 }
950 }
951 // os: #43050# hier wird ein TextView-Problem umpopelt:
952 // waehrend des Highlightings funktionierte das Scrolling nicht
953 TextView* pTmp = pTextEngine->GetActiveView();
954 pTextEngine->SetActiveView(0);
955 pTextEngine->SetUpdateMode( TRUE );
956 pTextEngine->SetActiveView(pTmp);
957 pTextView->ShowCursor(FALSE, FALSE);
958
959 if(aSyntaxLineTable.Count() && !pTimer->IsActive())
960 pTimer->Start();
961 // SyntaxTimerHdl wird gerufen, wenn Text-Aenderung
962 // => gute Gelegenheit, Textbreite zu ermitteln!
963 long nPrevTextWidth = nCurTextWidth;
964 nCurTextWidth = pTextEngine->CalcTextWidth() + 25; // kleine Toleranz
965 if ( nCurTextWidth != nPrevTextWidth )
966 SetScrollBarRanges();
967 bHighlighting = FALSE;
968
969 return 0;
970 }
971
972 void XMLFileWindow::DoSyntaxHighlight( USHORT nPara )
973 {
974 // Durch das DelayedSyntaxHighlight kann es passieren,
975 // dass die Zeile nicht mehr existiert!
976 if ( nPara < pTextEngine->GetParagraphCount() )
977 {
978 pTextEngine->RemoveAttribs( nPara );
979 String aSource( pTextEngine->GetText( nPara ) );
980 pTextEngine->SetUpdateMode( FALSE );
981 ImpDoHighlight( aSource, nPara );
982 // os: #43050# hier wird ein TextView-Problem umpopelt:
983 // waehrend des Highlightings funktionierte das Scrolling nicht
984 TextView* pTmp = pTextEngine->GetActiveView();
985 pTmp->SetAutoScroll(FALSE);
986 pTextEngine->SetActiveView(0);
987 pTextEngine->SetUpdateMode( TRUE );
988 pTextEngine->SetActiveView(pTmp);
989 // Bug 72887 show the cursor
990 pTmp->SetAutoScroll(TRUE);
991 pTmp->ShowCursor( FALSE/*pTmp->IsAutoScroll()*/ );
992 }
993 }
vba interoperability for OOo