basic/source/runtime/basrdll.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: basrdll.cxx,v $
  10  * $Revision: 1.8 $
  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 #include <tools/shl.hxx>
  34 #include <vcl/svapp.hxx>
  35 #ifndef _SOLAR_HRC
  36 #include <svtools/solar.hrc>
  37 #endif
  38 #include <tools/debug.hxx>
  39 #include <vcl/msgbox.hxx>
  40
  41 #include <basic/sbstar.hxx>
  42 #include <basic/basrdll.hxx>
  43 #include <basrid.hxx>
  44 #include <sb.hrc>
  45
  46 SttResId::SttResId( sal_uInt32 nId ) :
  47     ResId( nId, *((*(BasicDLL**)GetAppData(SHL_BASIC))->GetSttResMgr()) )
  48 {
  49 }
  50
  51 BasResId::BasResId( sal_uInt32 nId ) :
  52     ResId( nId, *((*(BasicDLL**)GetAppData(SHL_BASIC))->GetBasResMgr()) )
  53 {
  54 }
  55
  56 BasicDLL::BasicDLL()
  57 {
  58      *(BasicDLL**)GetAppData(SHL_BASIC) = this;
  59     ::com::sun::star::lang::Locale aLocale = Application::GetSettings().GetUILocale();
  60     pSttResMgr = ResMgr::CreateResMgr(CREATEVERSIONRESMGR_NAME(stt), aLocale );
  61     pBasResMgr = ResMgr::CreateResMgr(CREATEVERSIONRESMGR_NAME(sb), aLocale );
  62     bDebugMode = FALSE;
  63     bBreakEnabled = TRUE;
  64 }
  65
  66 BasicDLL::~BasicDLL()
  67 {
  68     delete pSttResMgr;
  69     delete pBasResMgr;
  70 }
  71
  72 void BasicDLL::EnableBreak( BOOL bEnable )
  73 {
  74     BasicDLL* pThis = *(BasicDLL**)GetAppData(SHL_BASIC);
  75     DBG_ASSERT( pThis, "BasicDLL::EnableBreak: Noch keine Instanz!" );
  76     if ( pThis )
  77         pThis->bBreakEnabled = bEnable;
  78 }
  79
  80 void BasicDLL::SetDebugMode( BOOL bDebugMode )
  81 {
  82     BasicDLL* pThis = *(BasicDLL**)GetAppData(SHL_BASIC);
  83     DBG_ASSERT( pThis, "BasicDLL::EnableBreak: Noch keine Instanz!" );
  84     if ( pThis )
  85         pThis->bDebugMode = bDebugMode;
  86 }
  87
  88
  89 void BasicDLL::BasicBreak()
  90 {
  91     //bJustStopping: Wenn jemand wie wild x-mal STOP drueckt, aber das Basic
  92     // nicht schnell genug anhaelt, kommt die Box ggf. oefters...
  93     static BOOL bJustStopping = FALSE;
  94
  95     BasicDLL* pThis = *(BasicDLL**)GetAppData(SHL_BASIC);
  96     DBG_ASSERT( pThis, "BasicDLL::EnableBreak: Noch keine Instanz!" );
  97     if ( pThis )
  98     {
  99         if ( StarBASIC::IsRunning() && !bJustStopping && ( pThis->bBreakEnabled || pThis->bDebugMode ) )
 100         {
 101             bJustStopping = TRUE;
 102             StarBASIC::Stop();
 103             String aMessageStr( BasResId( IDS_SBERR_TERMINATED ) );
 104             InfoBox( 0, aMessageStr ).Execute();
 105             bJustStopping = FALSE;
 106         }
 107     }
 108 }
 109