basic/source/app/msgedit.cxx

   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: msgedit.cxx,v $
  10  * $Revision: 1.30 $
  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_basic.hxx"
  33 /*************************************************************************
  34 File Versions so far:
  35 No Version                      Initial Implementation without Version Information
  36 Version 2                       changed order of entries(New Entries at the end)
  37 Version 3                       Changed Charset from CHARSET_IBMPC to RTL_TEXTENCODING_UTF8
  38
  39 *************************************************************************/
  40 #include <cstdio>
  41 #include <tools/time.hxx>
  42 #include <tools/stream.hxx>
  43 #ifndef _MSGBOX_HXX //autogen
  44 #include <vcl/msgbox.hxx>
  45 #endif
  46 #ifndef _SOUND_HXX //autogen
  47 #include <vcl/sound.hxx>
  48 #endif
  49 #include <tools/fsys.hxx>
  50 #include <svtools/stringtransfer.hxx>
  51 #include <svtools/syslocale.hxx>
  52 #ifndef _BASIC_TTRESHLP_HXX
  53 #include <basic/ttstrhlp.hxx>
  54 #endif
  55 #include "basic.hrc"
  56 #include "msgedit.hxx"
  57 #include "app.hxx"
  58 #include "apperror.hxx"
  59 #include "appbased.hxx"
  60 #include "basmsg.hrc"
  61 #include "basrid.hxx"
  62
  63 USHORT MsgEdit::nMaxLogLen = 0;
  64 BOOL MsgEdit::bLimitLogLen = FALSE;
  65 BOOL MsgEdit::bPrintLogToStdout = FALSE;
  66 BOOL MsgEdit::bPrintLogToStdoutSet = FALSE;
  67
  68 #define WARNING_PREFIX String( SttResId( S_WARNING_PREFIX ) )
  69 #define VERSION_STRING CUniString("File Format Version: ")
  70 #define THIS_VERSION 2
  71
  72 #define LOGTYPE( pEntry ) ((pEntry && pEntry->GetUserData())?((TTDebugData*)pEntry->GetUserData())->aLogType:LOG_ERROR)
  73
  74 MsgEdit::MsgEdit( AppError* pParent, BasicFrame *pBF, const WinBits& aBits )
  75 : pBasicFrame(pBF)
  76 , pCurrentRun(NULL)
  77 , pCurrentTestCase(NULL)
  78 , pCurrentAssertion( NULL )
  79 , pCurrentError(NULL)
  80 , bModified(FALSE)
  81 , bFileLoading(FALSE)
  82 , nVersion(0)
  83 , pAppError( pParent )
  84 , aEditTree( pParent, pBF, aBits | WB_HASBUTTONS | WB_HASLINES | WB_HASBUTTONSATROOT )
  85 {
  86 //      SetFont( aEditTree.GetDefaultFont( DEFAULTFONT_FIXED, aEditTree.GetSettings().GetLanguage(), 0, &aEditTree ) );
  87     aEditTree.SetNodeBitmaps( Bitmap( SttResId (MBP_PLUS) ), Bitmap( SttResId (MBP_MINUS) ) );
  88     aEditTree.SetSelectionMode( MULTIPLE_SELECTION );
  89     if ( aEditTree.GetModel()->GetSortMode() != SortNone )
  90         aEditTree.GetModel()->SetSortMode( SortNone );
  91
  92     if ( !bPrintLogToStdoutSet )
  93     {
  94         bPrintLogToStdoutSet = TRUE;
  95         for ( USHORT i = 0 ; i < Application::GetCommandLineParamCount() ; i++ )
  96         {
  97             if ( Application::GetCommandLineParam( i ).Copy(0,9).CompareIgnoreCaseToAscii("-printlog") == COMPARE_EQUAL
  98     #ifndef UNX
  99               || Application::GetCommandLineParam( i ).Copy(0,9).CompareIgnoreCaseToAscii("/printlog") == COMPARE_EQUAL
 100     #endif
 101               )
 102                 bPrintLogToStdout = TRUE;
 103         }
 104     }
 105 }
 106
 107 MsgEdit::~MsgEdit()
 108 {}
 109
 110 // set the LogType since calling the add method can be from other add methods
 111 #define COPY_TTDEBUGDATA( LOGTYPE )                                             \
 112     TTDebugData *pTTDebugData = new TTDebugData;                \
 113     *pTTDebugData = aDebugData;                                                 \
 114     pTTDebugData->aLogType = LOGTYPE;                                   \
 115
 116
 117 void MsgEdit::AddAnyMsg( TTLogMsg *LogMsg )
 118 {
 119     if ( LogMsg->aDebugData.aFilename.Copy(0,2).CompareToAscii( "--" ) == COMPARE_EQUAL )
 120         LogMsg->aDebugData.aFilename.Erase(0,2);
 121
 122     if ( LogMsg->aDebugData.aFilename.Len() && LogMsg->aDebugData.aFilename.GetChar(0) != '~' ) // do we want to convert
 123     {
 124         DirEntry aConvert( LogMsg->aDebugData.aFilename );
 125         if ( pAppError->aBaseDir.Contains( aConvert ) )
 126         {
 127             aConvert.ToRel( pAppError->aBaseDir );
 128             LogMsg->aDebugData.aFilename = CUniString("~");         // mark as converted
 129             LogMsg->aDebugData.aFilename += aConvert.GetFull( FSYS_STYLE_VFAT );
 130         }
 131         else if ( !bFileLoading )
 132         {
 133             LogMsg->aDebugData.aFilename.Insert( CUniString("~-"), 0); // mark as unconvertable
 134         }
 135     }
 136     xub_StrLen nPos;
 137     LogMsg->aDebugData.aMsg.ConvertLineEnd();
 138     // does the message have several lines -> repeat the call for each line
 139     if ( (nPos = LogMsg->aDebugData.aMsg.Search( CUniString("\n").ConvertLineEnd() )) != STRING_NOTFOUND )
 140     {
 141         String aOriginalMsg = LogMsg->aDebugData.aMsg;
 142         xub_StrLen nSysLineEndLen = CUniString("\n").ConvertLineEnd().Len();
 143         String aLastPart = LogMsg->aDebugData.aMsg.Copy( nPos+nSysLineEndLen );
 144         LogMsg->aDebugData.aMsg.Erase( nPos );
 145         AddAnyMsg( LogMsg );
 146         if ( aLastPart.Len() )
 147         {
 148             LogMsg->aDebugData.aMsg = aLastPart;
 149             AddAnyMsg( LogMsg );
 150         }
 151         LogMsg->aDebugData.aMsg = aOriginalMsg;
 152     }
 153     else
 154     {
 155         String aUILogMsg( pBasicFrame->GenRealString( LogMsg->aDebugData.aMsg ) );
 156         switch ( LogMsg->aDebugData.aLogType )
 157         {
 158             case LOG_RUN:
 159                 {
 160                     if ( LogMsg->aDebugData.aMsg.Len() == 0 )
 161                     {
 162                         SvtSysLocale aLocale;
 163                         LogMsg->aDebugData.aMsg = GEN_RES_STR2( S_PROG_START,
 164                                 aLocale.GetLocaleData().getDate(Date()),
 165                                 aLocale.GetLocaleData().getTime(Time()) );
 166                         aUILogMsg = pBasicFrame->GenRealString( LogMsg->aDebugData.aMsg );
 167                     }
 168                     AddRun( aUILogMsg, LogMsg->aDebugData ); break;
 169                 }
 170             case LOG_TEST_CASE: AddTestCase( aUILogMsg, LogMsg->aDebugData ); break;
 171             case LOG_ERROR:             AddError( aUILogMsg, LogMsg->aDebugData ); break;
 172             case LOG_CALL_STACK:AddCallStack( aUILogMsg, LogMsg->aDebugData ); break;
 173             case LOG_MESSAGE:   AddMessage( aUILogMsg, LogMsg->aDebugData ); break;
 174             case LOG_WARNING:   AddWarning( aUILogMsg, LogMsg->aDebugData ); break;
 175             case LOG_ASSERTION: AddAssertion( aUILogMsg, LogMsg->aDebugData ); break;
 176             case LOG_ASSERTION_STACK:   AddAssertionStack( aUILogMsg, LogMsg->aDebugData ); break;
 177             case LOG_QA_ERROR:  AddQAError( aUILogMsg, LogMsg->aDebugData ); break;
 178             default:DBG_ERROR("Unbekannter Typ in ResultFile. Speichern des ResultFile resultiert in Informationsverlust");
 179         }
 180
 181         if ( !bFileLoading )
 182         {       // Comes from Testtool and must be written immediately
 183             BOOL bFileWasChanged = pAppError->DiskFileChanged( SINCE_LAST_LOAD );
 184
 185             DBG_ASSERT( aLogFileName == LogMsg->aLogFileName, "Logging to different logfile as before" );
 186             DirEntry aEntry( LogMsg->aLogFileName );
 187             BOOL bNewFile = !aEntry.Exists();
 188             SvFileStream aStrm( LogMsg->aLogFileName, STREAM_STD_WRITE );
 189             if ( bNewFile )
 190             {
 191                 String aSave = VERSION_STRING.Append( UniString::CreateFromInt32( 3 ) ).AppendAscii("\n");              // Version 3
 192                 aSave.ConvertLineEnd(LINEEND_CRLF);
 193                 aStrm << ByteString( aSave, RTL_TEXTENCODING_IBM_850 ).GetBuffer();
 194             }
 195
 196             String aLogMsg = Impl_MakeSaveText( LogMsg->aDebugData ).AppendAscii("\n");
 197
 198             if( aStrm.IsOpen() )
 199             {
 200                 aLogMsg.ConvertLineEnd(LINEEND_CRLF);
 201                 aStrm.Seek(STREAM_SEEK_TO_END);
 202                 aStrm << ByteString( aLogMsg, RTL_TEXTENCODING_UTF8 ).GetBuffer();
 203                 aStrm.Close();
 204             }
 205             if ( !bFileWasChanged )
 206                 pAppError->UpdateFileInfo( HAS_BEEN_LOADED );
 207
 208
 209             // now write to stdout
 210             if ( bPrintLogToStdout )
 211             {
 212                 String aPrintMsg, aOriginalMsg;
 213
 214                 aOriginalMsg = LogMsg->aDebugData.aMsg;
 215                 // converting to human readable string for adding errors to list in testobject
 216                 LogMsg->aDebugData.aMsg = pBasicFrame->GenRealString( LogMsg->aDebugData.aMsg );
 217
 218                 aPrintMsg = Impl_MakeSaveText( LogMsg->aDebugData ).AppendAscii("\n");
 219
 220                 // restore Original Msg
 221                 LogMsg->aDebugData.aMsg = aOriginalMsg;
 222
 223                 printf( ByteString( aPrintMsg, RTL_TEXTENCODING_UTF8 ).GetBuffer() );
 224             }
 225         }
 226     }
 227     // converting to human readable string for adding errors to list in testobject
 228     LogMsg->aDebugData.aMsg = pBasicFrame->GenRealString( LogMsg->aDebugData.aMsg );
 229 }
 230
 231 void MsgEdit::AddRun( String aMsg, TTDebugData aDebugData )
 232 {
 233     if ( !bFileLoading && bLimitLogLen )
 234     {
 235         USHORT nSkip = nMaxLogLen;
 236         SvLBoxEntry *pRun = aEditTree.First();
 237         while ( nSkip-- && pRun )
 238             pRun = aEditTree.NextSibling( pRun );
 239         // Remove all Entries thereafter
 240         if ( pRun )
 241         {
 242             while ( pRun && aEditTree.NextSibling( pRun ) )
 243                 aEditTree.GetModel()->Remove( aEditTree.NextSibling( pRun ) );
 244
 245             aEditTree.GetModel()->Remove( pRun );
 246             bModified = TRUE;
 247             lModify.Call( NULL );
 248             Save( aLogFileName );
 249             pAppError->UpdateFileInfo( HAS_BEEN_LOADED );
 250         }
 251     }
 252
 253     COPY_TTDEBUGDATA( LOG_RUN );
 254     if ( !bFileLoading || ( bFileLoading && nVersion >= 2 ) )
 255         pCurrentRun = aEditTree.InsertEntry( aMsg, NULL, FALSE, 0, pTTDebugData );
 256     else                // First file format
 257         pCurrentRun = aEditTree.InsertEntry( aMsg, NULL, FALSE, LIST_APPEND, pTTDebugData );    // and therefor at the end
 258
 259     aEditTree.ShowEntry( pCurrentRun );
 260     pCurrentTestCase = NULL;
 261     pCurrentAssertion = NULL;
 262     pCurrentError = NULL;
 263 }
 264
 265 void MsgEdit::AddTestCase( String aMsg, TTDebugData aDebugData )
 266 {
 267     if ( pCurrentRun )
 268     {
 269         if ( aMsg.Len() == 0 )  // End of Testcase
 270         {
 271             pCurrentTestCase = NULL;
 272         }
 273         else
 274         {
 275             COPY_TTDEBUGDATA( LOG_TEST_CASE );
 276             pCurrentTestCase = aEditTree.InsertEntry( aMsg, pCurrentRun, FALSE, LIST_APPEND, pTTDebugData );
 277             aEditTree.ShowEntry( pCurrentTestCase );
 278         }
 279     }
 280     pCurrentAssertion = NULL;
 281     pCurrentError = NULL;
 282 }
 283
 284 void MsgEdit::AddError( String aMsg, TTDebugData aDebugData )
 285 {
 286     if ( !pCurrentTestCase )
 287     {
 288         TTLogMsg aLogMsg;
 289         aLogMsg.aDebugData = aDebugData;
 290         aLogMsg.aDebugData.aMsg = GEN_RES_STR0( S_ERROR_OUTSIDE_TESTCASE );
 291         aLogMsg.aDebugData.aLogType = LOG_TEST_CASE;
 292         aLogMsg.aLogFileName = aLogFileName;
 293         AddAnyMsg( &aLogMsg );
 294     }
 295     if ( pCurrentTestCase )
 296     {
 297         COPY_TTDEBUGDATA( LOG_ERROR );
 298         pCurrentError = aEditTree.InsertEntry( aMsg, pCurrentTestCase, FALSE, LIST_APPEND, pTTDebugData );
 299         aEditTree.ShowEntry( pCurrentError );
 300     }
 301 }
 302
 303 void MsgEdit::AddCallStack( String aMsg, TTDebugData aDebugData )
 304 {
 305     DBG_ASSERT( pCurrentError, "Callstack ohne CurrentError im Journal" );
 306     if ( pCurrentError )
 307     {
 308         COPY_TTDEBUGDATA( LOG_CALL_STACK );
 309         aEditTree.InsertEntry( aMsg, pCurrentError, FALSE, LIST_APPEND, pTTDebugData );
 310     }
 311 }
 312
 313 void MsgEdit::AddMessage( String aMsg, TTDebugData aDebugData )
 314 {
 315     SvLBoxEntry *pThisEntry = NULL;
 316     COPY_TTDEBUGDATA( LOG_MESSAGE );
 317     if ( pCurrentTestCase )
 318         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentTestCase, FALSE, LIST_APPEND, pTTDebugData );
 319     else if ( pCurrentRun )
 320     {
 321         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentRun, FALSE, LIST_APPEND, pTTDebugData );
 322         aEditTree.ShowEntry( pThisEntry );
 323     }
 324     else
 325     {
 326         AddRun( aMsg, aDebugData );
 327         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentRun, FALSE, LIST_APPEND, pTTDebugData );
 328         aEditTree.ShowEntry( pThisEntry );
 329     }
 330 }
 331
 332 void MsgEdit::AddWarning( String aMsg, TTDebugData aDebugData )
 333 {
 334     SvLBoxEntry *pThisEntry = NULL;
 335     String aCompleteMsg;
 336     aCompleteMsg = WARNING_PREFIX.Append( aMsg );
 337     COPY_TTDEBUGDATA( LOG_WARNING );
 338
 339     if ( pCurrentTestCase )
 340         pThisEntry = aEditTree.InsertEntry( aCompleteMsg, pCurrentTestCase, FALSE, LIST_APPEND, pTTDebugData );
 341     else if ( pCurrentRun )
 342     {
 343         pThisEntry = aEditTree.InsertEntry( aCompleteMsg, pCurrentRun, FALSE, LIST_APPEND, pTTDebugData );
 344         aEditTree.ShowEntry( pThisEntry );
 345     }
 346     else
 347     {
 348         AddRun( aMsg, aDebugData );
 349         pThisEntry = aEditTree.InsertEntry( aCompleteMsg, pCurrentRun, FALSE, LIST_APPEND, pTTDebugData );
 350         aEditTree.ShowEntry( pThisEntry );
 351     }
 352
 353     while ( !aEditTree.IsEntryVisible( pThisEntry ) && ( pThisEntry = aEditTree.GetParent( pThisEntry ) ) != NULL )
 354         aEditTree.InvalidateEntry( pThisEntry );
 355 }
 356
 357 void MsgEdit::AddAssertion( String aMsg, TTDebugData aDebugData )
 358 {
 359     const String aAssertionStackPrefix( CUniString(ASSERTION_STACK_PREFIX) );
 360     if ( aMsg.Match( aAssertionStackPrefix ) == aAssertionStackPrefix.Len() )
 361     {
 362         AddAssertionStack( aMsg, aDebugData );
 363         return;
 364     }
 365     SvLBoxEntry *pThisEntry = NULL;
 366     COPY_TTDEBUGDATA( LOG_ASSERTION );
 367     if ( pCurrentTestCase )
 368         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentTestCase, FALSE, LIST_APPEND, pTTDebugData );
 369     else if ( pCurrentRun )
 370     {
 371         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentRun, FALSE, LIST_APPEND, pTTDebugData );
 372         aEditTree.ShowEntry( pThisEntry );
 373     }
 374     else
 375     {
 376         AddRun( aMsg, aDebugData );
 377         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentRun, FALSE, LIST_APPEND, pTTDebugData );
 378         aEditTree.ShowEntry( pThisEntry );
 379     }
 380
 381     pCurrentAssertion = pThisEntry;
 382
 383     while ( !aEditTree.IsEntryVisible( pThisEntry ) && ( pThisEntry = aEditTree.GetParent( pThisEntry ) ) != NULL )
 384         aEditTree.InvalidateEntry( pThisEntry );
 385 }
 386
 387 void MsgEdit::AddAssertionStack( String aMsg, TTDebugData aDebugData )
 388 {
 389     SvLBoxEntry *pThisEntry = NULL;
 390     COPY_TTDEBUGDATA( LOG_ASSERTION_STACK );
 391     if ( pCurrentAssertion )
 392         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentAssertion, FALSE, LIST_APPEND, pTTDebugData );
 393     else if ( pCurrentTestCase )
 394         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentTestCase, FALSE, LIST_APPEND, pTTDebugData );
 395     else if ( pCurrentRun )
 396     {
 397         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentRun, FALSE, LIST_APPEND, pTTDebugData );
 398         aEditTree.ShowEntry( pThisEntry );
 399     }
 400     else
 401     {
 402         AddRun( aMsg, aDebugData );
 403         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentRun, FALSE, LIST_APPEND, pTTDebugData );
 404         aEditTree.ShowEntry( pThisEntry );
 405     }
 406
 407     while ( !aEditTree.IsEntryVisible( pThisEntry ) && ( pThisEntry = aEditTree.GetParent( pThisEntry ) ) != NULL )
 408         aEditTree.InvalidateEntry( pThisEntry );
 409 }
 410
 411 void MsgEdit::AddQAError( String aMsg, TTDebugData aDebugData )
 412 {
 413     SvLBoxEntry *pThisEntry = NULL;
 414     COPY_TTDEBUGDATA( LOG_QA_ERROR );
 415     if ( pCurrentTestCase )
 416         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentTestCase, FALSE, LIST_APPEND, pTTDebugData );
 417     else if ( pCurrentRun )
 418     {
 419         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentRun, FALSE, LIST_APPEND, pTTDebugData );
 420         aEditTree.ShowEntry( pThisEntry );
 421     }
 422     else
 423     {
 424         AddRun( aMsg, aDebugData );
 425         pThisEntry = aEditTree.InsertEntry( aMsg, pCurrentRun, FALSE, LIST_APPEND, pTTDebugData );
 426         aEditTree.ShowEntry( pThisEntry );
 427     }
 428
 429     while ( !aEditTree.IsEntryVisible( pThisEntry ) && ( pThisEntry = aEditTree.GetParent( pThisEntry ) ) != NULL )
 430         aEditTree.InvalidateEntry( pThisEntry );
 431 }
 432
 433 /*
 434     SvLBoxEntry*        GetEntry( SvLBoxEntry* pParent, ULONG nPos ) const { return SvLBox::GetEntry(pParent,nPos); }
 435     SvLBoxEntry*        GetEntry( ULONG nRootPos ) const { return SvLBox::GetEntry(nRootPos);}
 436
 437
 438
 439     SvLBoxEntry*        FirstChild(SvLBoxEntry* pParent ) const { return (SvLBoxEntry*)(pModel->FirstChild(pParent)); }
 440     SvLBoxEntry*        NextSibling(SvLBoxEntry* pEntry ) const { return (SvLBoxEntry*)(pModel->NextSibling( pEntry )); }
 441     SvLBoxEntry*        PrevSibling(SvLBoxEntry* pEntry ) const { return (SvLBoxEntry*)(pModel->PrevSibling( pEntry )); }
 442
 443     SvLBoxEntry*        FirstSelected() const { return (SvLBoxEntry*)SvListView::FirstSelected(); }
 444     SvLBoxEntry*        NextSelected( SvLBoxEntry* pEntry ) const { return (SvLBoxEntry*)(SvListView::NextSelected(pEntry)); }
 445     SvLBoxEntry*        PrevSelected( SvLBoxEntry* pEntry ) const { return (SvLBoxEntry*)(SvListView::PrevSelected(pEntry)); }
 446     SvLBoxEntry*        LastSelected() const { return (SvLBoxEntry*)(SvListView::LastSelected()); }
 447
 448     SvLBoxEntry*        GetEntry( SvLBoxEntry* pParent, ULONG nPos ) const { return (SvLBoxEntry*)(pModel->GetEntry(pParent,nPos)); }
 449     SvLBoxEntry*        GetEntry( ULONG nRootPos ) const { return (SvLBoxEntry*)(pModel->GetEntry(nRootPos)); }
 450
 451     SvLBoxEntry*        GetParent( SvLBoxEntry* pEntry ) const { return (SvLBoxEntry*)(pModel->GetParent(pEntry)); }
 452     SvLBoxEntry*        GetRootLevelParent(SvLBoxEntry* pEntry ) const { return (SvLBoxEntry*)(pModel->GetRootLevelParent( pEntry ));}
 453
 454     BOOL                        IsInChildList( SvListEntry* pParent, SvListEntry* pChild) const;
 455     SvListEntry*        GetEntry( SvListEntry* pParent, ULONG nPos ) const;
 456     SvListEntry*        GetEntry( ULONG nRootPos ) const;
 457     SvListEntry*        GetEntryAtAbsPos( ULONG nAbsPos ) const;
 458     SvListEntry*        GetParent( SvListEntry* pEntry ) const;
 459     SvListEntry*        GetRootLevelParent( SvListEntry* pEntry ) const;
 460 */
 461
 462 //#define CHECK( pMemo ) if ( pMemo && !aEditTree.GetViewData( pMemo ) ) pMemo = NULL
 463 #define CHECK( pMemo ) if ( pMemo && !aEditTree.GetModel()->IsInChildList( NULL, pMemo ) ) pMemo = NULL
 464 void MsgEdit::Delete()
 465 {
 466     aEditTree.RemoveSelection();
 467     CHECK( pCurrentRun );
 468     CHECK( pCurrentTestCase );
 469     CHECK( pCurrentAssertion );
 470     CHECK( pCurrentError );
 471     bModified = TRUE;
 472     lModify.Call( NULL );
 473 }
 474
 475 void MsgEdit::Cut(){ Copy(); Delete(); bModified = TRUE; lModify.Call( NULL ); }
 476 void MsgEdit::Copy(){ ::svt::OStringTransfer::CopyString( GetSelected(), &aEditTree ); }
 477 /**/void MsgEdit::Paste(){ Sound::Beep(); }
 478 void MsgEdit::Undo(){ Sound::Beep(); }
 479 void MsgEdit::Redo(){ Sound::Beep(); }
 480
 481
 482 String MsgEdit::Impl_MakeText( SvLBoxEntry *pEntry ) const
 483 {
 484     String aRet;
 485     TTDebugData *aData = (TTDebugData*)pEntry->GetUserData();
 486     switch ( aData->aLogType )
 487     {
 488         case LOG_RUN:           aRet.AppendAscii("\n"); break;
 489         case LOG_TEST_CASE:     break;
 490         case LOG_ERROR:         break;
 491         case LOG_CALL_STACK:aRet.AppendAscii("--> "); break;
 492         case LOG_MESSAGE:       break;
 493         case LOG_WARNING:       break;
 494         case LOG_ASSERTION:     break;
 495         case LOG_ASSERTION_STACK:aRet.AppendAscii("--> ");      break;
 496         case LOG_QA_ERROR:      break;
 497         default:DBG_ERROR("Unknown type in ResultWindow!");
 498     }
 499     aRet += aEditTree.GetEntryText( pEntry );
 500     return aRet;
 501 }
 502
 503 String MsgEdit::Impl_MakeSaveText( TTDebugData aData ) const
 504 {
 505 //              LogType;Filename;Line;Col1;Col2;Message
 506     String aRet;
 507     aRet += String::CreateFromInt32( (int)aData.aLogType );
 508     aRet += ';';
 509     aRet += aData.aFilename;
 510     aRet += ';';
 511     aRet += String::CreateFromInt32( aData.nLine );
 512     aRet += ';';
 513     aRet += String::CreateFromInt32( aData.nCol1 );
 514     aRet += ';';
 515     aRet += String::CreateFromInt32( aData.nCol2 );
 516     aRet += ';';
 517     aRet += '"';
 518     aRet += aData.aMsg;
 519     aRet += '"';
 520     return aRet;
 521 }
 522
 523 String MsgEdit::Impl_MakeSaveText( SvLBoxEntry *pEntry ) const
 524 {
 525 //              LogType;Filename;Line;Col1;Col2;Message
 526     String aRet;
 527     TTDebugData *aData = (TTDebugData*)pEntry->GetUserData();
 528
 529     if ( aEditTree.PrevSibling( pEntry ) && LOGTYPE( aEditTree.PrevSibling( pEntry ) ) == LOG_TEST_CASE )
 530     {   // To properly finish cases and warnings/msgs are in correct hierarchie
 531         aRet += String::CreateFromInt32( (int)LOG_TEST_CASE );
 532         aRet.AppendAscii(";;0;0;0;\"\"\n");
 533     }
 534     aRet += Impl_MakeSaveText( *aData );
 535     return aRet;
 536 }
 537
 538 String MsgEdit::GetSelected()
 539 {
 540     String aRet;
 541     SvLBoxEntry *pEntry = aEditTree.FirstSelected();
 542     while ( pEntry )
 543     {
 544         aRet += Impl_MakeText( pEntry );
 545         aRet += '\n';
 546         pEntry = aEditTree.NextSelected( pEntry );
 547     }
 548     aRet.ConvertLineEnd();
 549     return aRet;
 550 }
 551
 552 TextSelection MsgEdit::GetSelection() const
 553 {
 554     ULONG nStart=0,nEnd=0;
 555
 556     if ( aEditTree.FirstSelected() )
 557     {
 558         nStart = aEditTree.GetModel()->GetAbsPos(aEditTree.FirstSelected() );
 559         if ( aEditTree.LastSelected() )
 560             nEnd = aEditTree.GetModel()->GetAbsPos(aEditTree.LastSelected() );
 561         return TextSelection( TextPaM( nStart, 0 ), TextPaM( nEnd, STRING_MAXLEN ) );
 562     }
 563     else
 564         return TextSelection();
 565 }
 566
 567 void MsgEdit::SetSelection( const TextSelection& rSelection )
 568 {
 569     ULONG nStart,nEnd;
 570
 571     while ( aEditTree.GetSelectionCount() )
 572         aEditTree.Select( aEditTree.FirstSelected(), FALSE );
 573
 574     if ( rSelection.HasRange() )
 575     {
 576         nStart = rSelection.GetStart().GetPara();
 577         nEnd = rSelection.GetEnd().GetPara();
 578
 579         for ( ULONG i = nStart ; i <= nEnd ; i++ )
 580             aEditTree.Select( aEditTree.GetModel()->GetEntryAtAbsPos( i ), TRUE );
 581     }
 582 }
 583
 584 USHORT MsgEdit::GetLineNr() const
 585 {
 586     if ( aEditTree.GetCurEntry() )
 587         return (USHORT)aEditTree.GetModel()->GetAbsPos(aEditTree.GetCurEntry() ) + 1;
 588     else
 589         return 0;
 590 }
 591
 592 void MsgEdit::ReplaceSelected( const String& rStr )
 593 {
 594     (void) rStr; /* avoid warning about unused parameter */
 595     Sound::Beep();
 596     DBG_ERROR("Not Implemented");
 597 }
 598
 599 BOOL MsgEdit::IsModified(){ return bModified; }
 600 void MsgEdit::SetModifyHdl( Link l ){ lModify = l; }
 601
 602 String MsgEdit::GetText() const
 603 {
 604     String aRet;
 605     SvLBoxEntry *pEntry = aEditTree.First();
 606     while ( pEntry )
 607     {
 608         aRet += Impl_MakeText( pEntry );
 609         aRet += '\n';
 610         pEntry = aEditTree.Next( pEntry );
 611     }
 612     aRet.ConvertLineEnd();
 613     return aRet;
 614 }
 615
 616 void MsgEdit::SetText( const String& rStr )
 617 {
 618     (void) rStr; /* avoid warning about unused parameter */
 619     Sound::Beep();
 620     DBG_ERROR("Not Implemented");
 621 }
 622
 623 BOOL MsgEdit::HasText() const
 624 {
 625   return aEditTree.First() != NULL;
 626 }
 627
 628 // Search from the beginning or mark start + 1
 629 BOOL MsgEdit::Find( const String& s )
 630 {
 631     TextSelection r  = GetSelection();
 632     USHORT bgn   = (USHORT) r.GetStart().GetPara() + 1;
 633     if ( r.GetStart().GetPara() == 0 )
 634         bgn = 0;        // Search from the beginning
 635
 636     SvLBoxEntry *pEntry = aEditTree.GetModel()->GetEntryAtAbsPos( bgn );
 637     while ( pEntry )
 638     {
 639         if( aEditTree.GetEntryText( pEntry ).Search( s, 0 ) != STRING_NOTFOUND )
 640         {
 641             aEditTree.SetCurEntry( pEntry );
 642             return TRUE;
 643         }
 644         pEntry = aEditTree.Next( pEntry );
 645     }
 646     return FALSE;
 647 }
 648
 649 /******************************************************************
 650
 651  Fileformat of *.res file:
 652  Information are stored as semicolon separated strings
 653  Order:
 654
 655     LogType;Filename;Line;Col1;Col2;Message
 656
 657 ******************************************************************/
 658
 659 BOOL MsgEdit::Load( const String& aName )
 660 {
 661     aLogFileName = aName;
 662     BOOL bOk = TRUE, bFirstLine = TRUE;
 663     BOOL bLoadError = FALSE;
 664     SvFileStream aStrm( aName, STREAM_STD_READ );
 665     if( aStrm.IsOpen() )
 666     {
 667         aEditTree.Clear();
 668         String aLine;
 669         bFileLoading = TRUE;  // To avoid logging to disk
 670         TTLogMsg *pLogMsg = new TTLogMsg;
 671         while( !aStrm.IsEof() && bOk )
 672         {
 673             if ( nVersion >= 3 )        // utf8
 674                 aStrm.ReadByteStringLine( aLine, RTL_TEXTENCODING_UTF8 );
 675             else
 676                 aStrm.ReadByteStringLine( aLine, RTL_TEXTENCODING_IBM_850 );
 677
 678             if( aStrm.GetError() != SVSTREAM_OK )
 679                 bOk = FALSE;
 680
 681 #define TOKEN( n ) aLine.GetToken( n )
 682
 683             if ( aLine.GetTokenCount() >= 6 )
 684             {
 685 //                      LogType;Filename;Line;Col1;Col2;Message
 686                 TTDebugData aDebugData;
 687                 aDebugData.aLogType = TTLogType( TOKEN(0).ToInt32() );
 688                 aDebugData.aFilename = TOKEN(1);
 689                 aDebugData.nLine = USHORT( TOKEN(2).ToInt32() );
 690                 aDebugData.nCol1 = USHORT( TOKEN(3).ToInt32() );
 691                 aDebugData.nCol2 = USHORT( TOKEN(4).ToInt32() );
 692                 aDebugData.aMsg = aLine.GetQuotedToken( 5, CUniString("\"\"") );
 693
 694                 // Remove leading and trailing quotes
 695                 aDebugData.aMsg.Erase(0,1);
 696                 aDebugData.aMsg.Erase(aDebugData.aMsg.Len()-1,1);
 697
 698                 pLogMsg->aLogFileName.Erase();
 699                 pLogMsg->aDebugData = aDebugData;
 700
 701                 AddAnyMsg( pLogMsg );
 702             }
 703             else if ( bFirstLine && (aLine.Search( VERSION_STRING ) == 0) )
 704                 nVersion = USHORT( aLine.Copy( VERSION_STRING.Len() ).ToInt32() );
 705             else if ( aLine.Len() )
 706                 bLoadError = TRUE;
 707
 708             bFirstLine = FALSE;
 709         }
 710         bFileLoading = FALSE;
 711         delete pLogMsg;
 712         aStrm.Close();
 713         if ( nVersion < 2 && !bLoadError )
 714             Save( aName );      // Necessary to avoid mess
 715
 716     }
 717     else
 718         bOk = FALSE;
 719     return bOk;
 720 }
 721
 722 BOOL MsgEdit::Save( const String& aName )
 723 {
 724     BOOL bOk = TRUE;
 725     BOOL bIsText = DirEntry( aName ).GetExtension().CompareIgnoreCaseToAscii("TXT") == COMPARE_EQUAL;
 726     if ( bIsText && !QueryBox( NULL, SttResId( IDS_LOSS_OF_INFORMATION ) ).Execute() )
 727         return FALSE;
 728     SvFileStream aStrm( aName, STREAM_STD_WRITE | STREAM_TRUNC );
 729     if( aStrm.IsOpen() )
 730     {
 731         if ( bIsText )
 732         {
 733             String aSave = GetText();
 734             aSave.ConvertLineEnd(LINEEND_CRLF);
 735             aStrm << ByteString( aSave, RTL_TEXTENCODING_UTF8 ).GetBuffer();
 736         }
 737         else
 738         {
 739 //                              LogType;Filename;Line;Col1;Col2;Message
 740             String aSave = VERSION_STRING.Append( UniString::CreateFromInt32( 3 ) ).AppendAscii("\n");          // Version 3
 741             SvLBoxEntry *pRun = aEditTree.First();
 742             while ( pRun && aEditTree.NextSibling( pRun ) )
 743                 pRun = aEditTree.NextSibling( pRun );
 744
 745             aSave.ConvertLineEnd(LINEEND_CRLF);
 746             aStrm << ByteString( aSave, RTL_TEXTENCODING_IBM_850 ).GetBuffer();
 747
 748             SvLBoxEntry *pEntry;
 749             while ( pRun )
 750             {
 751                 pEntry = pRun;
 752                 while ( pEntry && ( pEntry == pRun || LOGTYPE( pEntry ) != LOG_RUN ) )
 753                 {
 754                     aSave = Impl_MakeSaveText( pEntry );
 755                     aSave += '\n';
 756                     aSave.ConvertLineEnd(LINEEND_CRLF);
 757                     aStrm << ByteString( aSave, RTL_TEXTENCODING_UTF8 ).GetBuffer();
 758                     pEntry = aEditTree.Next( pEntry );
 759                 }
 760                 pRun = aEditTree.PrevSibling( pRun );
 761
 762             }
 763         }
 764         if( aStrm.GetError() != SVSTREAM_OK )
 765             bOk = FALSE;
 766         else
 767         {
 768             bModified = FALSE;
 769             lModify.Call( NULL );
 770         }
 771
 772     }
 773     else
 774         bOk = FALSE;
 775     return bOk;
 776 }
 777
 778
 779 TTTreeListBox::TTTreeListBox( AppError* pParent, BasicFrame* pBF, WinBits nWinStyle )
 780 : SvTreeListBox( pParent, nWinStyle )
 781 , pBasicFrame(pBF)
 782 , pAppError( pParent )
 783 //, nDeselectParent(0)
 784 {}
 785
 786 BOOL TTTreeListBox::JumpToSourcecode( SvLBoxEntry *pThisEntry )
 787 {
 788     if ( pThisEntry && pThisEntry->GetUserData() && ((TTDebugData*)pThisEntry->GetUserData())->aFilename.Len() > 0 )
 789     {
 790         TTDebugData *aData = (TTDebugData*)pThisEntry->GetUserData();
 791         String aFilename = aData->aFilename;
 792         if ( aData->aFilename.GetChar(0) == '~' )
 793         {
 794             if ( aData->aFilename.GetChar(1) == '-' )
 795             {
 796                 aFilename.Erase( 0,2 );
 797             }
 798             else
 799             {
 800                 aFilename.Erase( 0,1 );
 801                 DirEntry aConvert( pAppError->aBaseDir );
 802                 aConvert += DirEntry( aFilename, FSYS_STYLE_VFAT );
 803                 aFilename = aConvert.GetFull();
 804             }
 805         }
 806
 807         if ( pBasicFrame->FindModuleWin( aFilename ) )
 808         {
 809             AppWin *pWin = pBasicFrame->FindModuleWin( aFilename );
 810             pWin->ToTop();
 811         }
 812         else if ( pBasicFrame->Basic().FindModule( CUniString( "--" ).Append( aFilename ) ) )
 813         {
 814             SbModule* pMod = pBasicFrame->Basic().FindModule( CUniString( "--" ).Append( aFilename ) );
 815             pBasicFrame->CreateModuleWin( pMod );
 816         }
 817         else
 818             pBasicFrame->LoadFile( aFilename );
 819
 820         if ( pBasicFrame->pWork && pBasicFrame->pWork->ISA(AppEdit) )
 821             ((AppEdit*)pBasicFrame->pWork)->Highlight( aData->nLine, aData->nCol1, aData->nCol2 );
 822         return FALSE;
 823     }
 824     return TRUE;
 825 }
 826
 827 BOOL TTTreeListBox::DoubleClickHdl()
 828 {
 829     return JumpToSourcecode( GetHdlEntry() );
 830 }
 831
 832 /*ULONG TTTreeListBox::SelectChildren( SvLBoxEntry* pParent, BOOL bSelect )
 833 {
 834     SvLBoxEntry *pEntry = FirstChild( pParent );
 835     ULONG nRet = 0;
 836     while ( pEntry )
 837     {
 838         nRet++;
 839         Select( pEntry, bSelect );
 840         pEntry = NextSibling( pEntry );
 841     }
 842     return nRet;
 843 }
 844
 845
 846 void TTTreeListBox::SelectHdl()
 847 {
 848     SvLBoxEntry* pHdlEntry = GetHdlEntry();
 849
 850     SelectChildren( pHdlEntry, TRUE );
 851     Select( pHdlEntry, TRUE );
 852 //      InitMenu(pApp->GetAppMenu()->GetPopupMenu( RID_APPEDIT ));      // So daß Delete richtig ist
 853 }
 854
 855 void TTTreeListBox::DeselectHdl()
 856 {
 857     SvLBoxEntry* pHdlEntry = GetHdlEntry();
 858     if ( GetParent( pHdlEntry ) )
 859     {
 860         nDeselectParent++;
 861         Select( GetParent( pHdlEntry ), FALSE );
 862         nDeselectParent--;
 863     }
 864     if ( !nDeselectParent )
 865     {
 866         SelectChildren( pHdlEntry, FALSE );
 867         Select( pHdlEntry, FALSE );
 868     }
 869     Invalidate();
 870 } */
 871
 872
 873 void TTTreeListBox::KeyInput( const KeyEvent& rKEvt )
 874 {
 875     switch ( rKEvt.GetKeyCode().GetFunction() )
 876     {
 877         case KEYFUNC_CUT:
 878             Control::GetParent()->Command( CommandEvent( Point(), RID_EDITCUT ) );
 879             break;
 880         case KEYFUNC_COPY:
 881             Control::GetParent()->Command( CommandEvent( Point(), RID_EDITCOPY ) );
 882             break;
 883         case KEYFUNC_PASTE:
 884             Control::GetParent()->Command( CommandEvent( Point(), RID_EDITPASTE ) );
 885             break;
 886         case KEYFUNC_DELETE:
 887             Control::GetParent()->Command( CommandEvent( Point(), RID_EDITDEL ) );
 888             break;
 889         default:
 890             if ( rKEvt.GetKeyCode().GetCode() == KEY_RETURN )
 891                 JumpToSourcecode( GetCurEntry() );
 892             else
 893                 SvTreeListBox::KeyInput( rKEvt );
 894     }
 895 }
 896
 897
 898 TTFeatures TTTreeListBox::GetFeatures( SvLBoxEntry* pEntry )
 899 {
 900     switch ( LOGTYPE( pEntry ) )
 901     {
 902         case LOG_MESSAGE:
 903             return HasNothing;
 904         case LOG_WARNING :
 905             return HasWarning;
 906         case LOG_ERROR:
 907         case LOG_CALL_STACK:
 908             return HasError;
 909         case LOG_RUN:
 910         case LOG_TEST_CASE:
 911             {
 912                 SvLBoxEntry* pThisEntry = FirstChild( pEntry );
 913                 TTFeatures aResult = HasNothing;
 914                 while ( pThisEntry && !( (aResult & HasError) == HasError ) )
 915                 {
 916                     if ( !IsEntryVisible( pThisEntry ) )
 917                         aResult |= GetFeatures( pThisEntry );
 918                     pThisEntry = NextSibling( pThisEntry );
 919                 }
 920                 return aResult;
 921             }
 922         case LOG_ASSERTION:
 923         case LOG_ASSERTION_STACK:
 924                 return HasAssertion;
 925         case LOG_QA_ERROR:
 926                 return HasQAError;
 927         default:
 928             DBG_ERROR("Unknown type in ResultWindow");
 929     }
 930     return HasNothing;
 931 }
 932
 933
 934 class TTLBoxString : public SvLBoxString
 935 {
 936 public:
 937
 938     TTLBoxString( SvLBoxEntry* pEntry, USHORT nFlags,
 939         const String& rStr ) : SvLBoxString(pEntry,nFlags,rStr) {}
 940
 941     virtual void Paint( const Point& rPos, SvLBox& rDev, USHORT nFlags,
 942         SvLBoxEntry* pEntry);
 943 };
 944
 945
 946 void TTLBoxString::Paint( const Point& rPos, SvLBox& rDev, USHORT nFlags,
 947     SvLBoxEntry* pEntry )
 948 {
 949     TTFeatures aFeatures = ((TTTreeListBox*)&rDev)->GetFeatures( pEntry );
 950
 951     Font aOldFont( rDev.GetFont());
 952     Font aFont( aOldFont );
 953     if ( aFeatures != HasNothing )
 954     {
 955         Color aCol;
 956         if ( ( aFeatures & HasError ) == HasError )
 957             aCol = Color( 255, 130, 130 );      // Red
 958         else if ( ( aFeatures & HasWarning ) == HasWarning )
 959             aCol = Color( 255, 200, 120 );      // Ocker oder so
 960         else if ( ( aFeatures & HasAssertion ) == HasAssertion )
 961             aCol = Color( 0xd0, 0xd0, 0xff );   // blueish
 962         else
 963             aCol = Color( 0xd0, 0xff, 0xd0 );   // greenish
 964
 965         if( rDev.IsSelected(pEntry) )
 966             aFont.SetColor( aCol );
 967         else
 968         {
 969             aFont.SetFillColor( aCol );
 970             aFont.SetTransparent( FALSE );
 971             Color aCol2( COL_BLACK );
 972             aFont.SetColor( aCol2 );
 973         }
 974
 975         rDev.SetFont( aFont );
 976         rDev.DrawText( rPos, GetText() );
 977     }
 978     else
 979     {
 980         if( !rDev.IsSelected(pEntry) )
 981         {
 982             Color aCol( COL_BLACK );
 983             aFont.SetColor( aCol );
 984         }
 985         rDev.SetFont( aFont );
 986         SvLBoxString::Paint( rPos, rDev, nFlags, pEntry );
 987     }
 988     rDev.SetFont( aOldFont );
 989 }
 990
 991
 992 void TTTreeListBox::InitEntry(SvLBoxEntry* pEntry,
 993     const String& rStr ,const Image& rImg1, const Image& rImg2,
 994     SvLBoxButtonKind eButtonKind )
 995 {
 996     USHORT nColToHilite = 1; //0==Bitmap;1=="Column1";2=="Column2"
 997     SvTreeListBox::InitEntry( pEntry, rStr, rImg1, rImg2, eButtonKind );
 998     SvLBoxString* pCol = (SvLBoxString*)pEntry->GetItem( nColToHilite );
 999     TTLBoxString* pStr = new TTLBoxString( pEntry, 0, pCol->GetText() );
1000     pEntry->ReplaceItem( pStr, nColToHilite );
1001 }
1002