1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski // MARKER(update_precomp.py): autogen include statement, do not remove
25*b1cdbd2cSJim Jagielski #include "precompiled_basic.hxx"
26*b1cdbd2cSJim Jagielski #include <tools/shl.hxx>
27*b1cdbd2cSJim Jagielski #include <vcl/svapp.hxx>
28*b1cdbd2cSJim Jagielski #include <svl/solar.hrc>
29*b1cdbd2cSJim Jagielski #include <tools/debug.hxx>
30*b1cdbd2cSJim Jagielski #include <vcl/msgbox.hxx>
31*b1cdbd2cSJim Jagielski
32*b1cdbd2cSJim Jagielski #include <basic/sbstar.hxx>
33*b1cdbd2cSJim Jagielski #include <basic/basrdll.hxx>
34*b1cdbd2cSJim Jagielski #include <basrid.hxx>
35*b1cdbd2cSJim Jagielski #include <sb.hrc>
36*b1cdbd2cSJim Jagielski
SttResId(sal_uInt32 nId)37*b1cdbd2cSJim Jagielski SttResId::SttResId( sal_uInt32 nId ) :
38*b1cdbd2cSJim Jagielski ResId( nId, *((*(BasicDLL**)GetAppData(SHL_BASIC))->GetSttResMgr()) )
39*b1cdbd2cSJim Jagielski {
40*b1cdbd2cSJim Jagielski }
41*b1cdbd2cSJim Jagielski
BasResId(sal_uInt32 nId)42*b1cdbd2cSJim Jagielski BasResId::BasResId( sal_uInt32 nId ) :
43*b1cdbd2cSJim Jagielski ResId( nId, *((*(BasicDLL**)GetAppData(SHL_BASIC))->GetBasResMgr()) )
44*b1cdbd2cSJim Jagielski {
45*b1cdbd2cSJim Jagielski }
46*b1cdbd2cSJim Jagielski
BasicDLL()47*b1cdbd2cSJim Jagielski BasicDLL::BasicDLL()
48*b1cdbd2cSJim Jagielski {
49*b1cdbd2cSJim Jagielski *(BasicDLL**)GetAppData(SHL_BASIC) = this;
50*b1cdbd2cSJim Jagielski ::com::sun::star::lang::Locale aLocale = Application::GetSettings().GetUILocale();
51*b1cdbd2cSJim Jagielski pSttResMgr = ResMgr::CreateResMgr(CREATEVERSIONRESMGR_NAME(stt), aLocale );
52*b1cdbd2cSJim Jagielski pBasResMgr = ResMgr::CreateResMgr(CREATEVERSIONRESMGR_NAME(sb), aLocale );
53*b1cdbd2cSJim Jagielski bDebugMode = sal_False;
54*b1cdbd2cSJim Jagielski bBreakEnabled = sal_True;
55*b1cdbd2cSJim Jagielski }
56*b1cdbd2cSJim Jagielski
~BasicDLL()57*b1cdbd2cSJim Jagielski BasicDLL::~BasicDLL()
58*b1cdbd2cSJim Jagielski {
59*b1cdbd2cSJim Jagielski delete pSttResMgr;
60*b1cdbd2cSJim Jagielski delete pBasResMgr;
61*b1cdbd2cSJim Jagielski }
62*b1cdbd2cSJim Jagielski
EnableBreak(sal_Bool bEnable)63*b1cdbd2cSJim Jagielski void BasicDLL::EnableBreak( sal_Bool bEnable )
64*b1cdbd2cSJim Jagielski {
65*b1cdbd2cSJim Jagielski BasicDLL* pThis = *(BasicDLL**)GetAppData(SHL_BASIC);
66*b1cdbd2cSJim Jagielski DBG_ASSERT( pThis, "BasicDLL::EnableBreak: Noch keine Instanz!" );
67*b1cdbd2cSJim Jagielski if ( pThis )
68*b1cdbd2cSJim Jagielski pThis->bBreakEnabled = bEnable;
69*b1cdbd2cSJim Jagielski }
70*b1cdbd2cSJim Jagielski
SetDebugMode(sal_Bool bDebugMode)71*b1cdbd2cSJim Jagielski void BasicDLL::SetDebugMode( sal_Bool bDebugMode )
72*b1cdbd2cSJim Jagielski {
73*b1cdbd2cSJim Jagielski BasicDLL* pThis = *(BasicDLL**)GetAppData(SHL_BASIC);
74*b1cdbd2cSJim Jagielski DBG_ASSERT( pThis, "BasicDLL::EnableBreak: Noch keine Instanz!" );
75*b1cdbd2cSJim Jagielski if ( pThis )
76*b1cdbd2cSJim Jagielski pThis->bDebugMode = bDebugMode;
77*b1cdbd2cSJim Jagielski }
78*b1cdbd2cSJim Jagielski
79*b1cdbd2cSJim Jagielski
BasicBreak()80*b1cdbd2cSJim Jagielski void BasicDLL::BasicBreak()
81*b1cdbd2cSJim Jagielski {
82*b1cdbd2cSJim Jagielski //bJustStopping: Wenn jemand wie wild x-mal STOP drueckt, aber das Basic
83*b1cdbd2cSJim Jagielski // nicht schnell genug anhaelt, kommt die Box ggf. oefters...
84*b1cdbd2cSJim Jagielski static sal_Bool bJustStopping = sal_False;
85*b1cdbd2cSJim Jagielski
86*b1cdbd2cSJim Jagielski BasicDLL* pThis = *(BasicDLL**)GetAppData(SHL_BASIC);
87*b1cdbd2cSJim Jagielski DBG_ASSERT( pThis, "BasicDLL::EnableBreak: Noch keine Instanz!" );
88*b1cdbd2cSJim Jagielski if ( pThis )
89*b1cdbd2cSJim Jagielski {
90*b1cdbd2cSJim Jagielski if ( StarBASIC::IsRunning() && !bJustStopping && ( pThis->bBreakEnabled || pThis->bDebugMode ) )
91*b1cdbd2cSJim Jagielski {
92*b1cdbd2cSJim Jagielski bJustStopping = sal_True;
93*b1cdbd2cSJim Jagielski StarBASIC::Stop();
94*b1cdbd2cSJim Jagielski String aMessageStr( BasResId( IDS_SBERR_TERMINATED ) );
95*b1cdbd2cSJim Jagielski InfoBox( 0, aMessageStr ).Execute();
96*b1cdbd2cSJim Jagielski bJustStopping = sal_False;
97*b1cdbd2cSJim Jagielski }
98*b1cdbd2cSJim Jagielski }
99*b1cdbd2cSJim Jagielski }
100*b1cdbd2cSJim Jagielski
101