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_extensions.hxx"
26*b1cdbd2cSJim Jagielski
27*b1cdbd2cSJim Jagielski #include <stdio.h>
28*b1cdbd2cSJim Jagielski #include <stardiv/uno/repos/implementationregistration.hxx>
29*b1cdbd2cSJim Jagielski #include <stardiv/uno/script/script.hxx>
30*b1cdbd2cSJim Jagielski #include <stardiv/uno/beans/exactname.hxx>
31*b1cdbd2cSJim Jagielski
32*b1cdbd2cSJim Jagielski #include <rtl/ustring.hxx>
33*b1cdbd2cSJim Jagielski #include <vos/dynload.hxx>
34*b1cdbd2cSJim Jagielski #include <vos/diagnose.hxx>
35*b1cdbd2cSJim Jagielski #include <usr/services.hxx>
36*b1cdbd2cSJim Jagielski #include <vcl/svapp.hxx>
37*b1cdbd2cSJim Jagielski #include <usr/ustring.hxx>
38*b1cdbd2cSJim Jagielski #include <usr/weak.hxx>
39*b1cdbd2cSJim Jagielski #include <tools/string.hxx>
40*b1cdbd2cSJim Jagielski #include <vos/conditn.hxx>
41*b1cdbd2cSJim Jagielski
42*b1cdbd2cSJim Jagielski using namespace rtl;
43*b1cdbd2cSJim Jagielski using namespace vos;
44*b1cdbd2cSJim Jagielski using namespace usr;
45*b1cdbd2cSJim Jagielski
46*b1cdbd2cSJim Jagielski #define PCHAR_TO_USTRING(x) StringToOUString(String(x),CHARSET_SYSTEM)
47*b1cdbd2cSJim Jagielski
48*b1cdbd2cSJim Jagielski
49*b1cdbd2cSJim Jagielski
50*b1cdbd2cSJim Jagielski class NullEngineListenerRef : public XEngineListenerRef
51*b1cdbd2cSJim Jagielski {
interrupt(const InterruptEngineEvent & Evt)52*b1cdbd2cSJim Jagielski virtual void interrupt(const InterruptEngineEvent& Evt) THROWS( (UsrSystemException) ) {}
running(const EventObject & Evt)53*b1cdbd2cSJim Jagielski virtual void running(const EventObject& Evt) THROWS( (UsrSystemException) ) {}
finished(const FinishEngineEvent & Evt)54*b1cdbd2cSJim Jagielski virtual void finished(const FinishEngineEvent& Evt) THROWS( (UsrSystemException) ) {}
55*b1cdbd2cSJim Jagielski };
56*b1cdbd2cSJim Jagielski
57*b1cdbd2cSJim Jagielski #define USTRING_TO_PCHAR(x) OUStringToString(x , CHARSET_DONTKNOW ).GetCharStr()
58*b1cdbd2cSJim Jagielski
59*b1cdbd2cSJim Jagielski class CmdDebugger :
60*b1cdbd2cSJim Jagielski public XEngineListener,
61*b1cdbd2cSJim Jagielski public OWeakObject
62*b1cdbd2cSJim Jagielski {
63*b1cdbd2cSJim Jagielski public:
64*b1cdbd2cSJim Jagielski
CmdDebugger()65*b1cdbd2cSJim Jagielski CmdDebugger()
66*b1cdbd2cSJim Jagielski {
67*b1cdbd2cSJim Jagielski m_pDebuggingRef = 0;
68*b1cdbd2cSJim Jagielski m_pEngineRef = 0;
69*b1cdbd2cSJim Jagielski m_bIsTerminating = FALSE;
70*b1cdbd2cSJim Jagielski m_bIsRunning = FALSE;
71*b1cdbd2cSJim Jagielski }
72*b1cdbd2cSJim Jagielski
73*b1cdbd2cSJim Jagielski
CmdDebugger(XDebuggingRef * p,XEngineRef * pEngine,XInvokationRef * pInvokation)74*b1cdbd2cSJim Jagielski CmdDebugger( XDebuggingRef *p, XEngineRef *pEngine , XInvokationRef *pInvokation)
75*b1cdbd2cSJim Jagielski {
76*b1cdbd2cSJim Jagielski attach( p , pEngine , pInvokation );
77*b1cdbd2cSJim Jagielski }
78*b1cdbd2cSJim Jagielski
~CmdDebugger()79*b1cdbd2cSJim Jagielski ~CmdDebugger()
80*b1cdbd2cSJim Jagielski {
81*b1cdbd2cSJim Jagielski if( m_pDebuggingRef ) {
82*b1cdbd2cSJim Jagielski detach();
83*b1cdbd2cSJim Jagielski }
84*b1cdbd2cSJim Jagielski }
85*b1cdbd2cSJim Jagielski
86*b1cdbd2cSJim Jagielski BOOL queryInterface( Uik aUik, XInterfaceRef & rOut );
acquire()87*b1cdbd2cSJim Jagielski void acquire() { OWeakObject::acquire(); }
release()88*b1cdbd2cSJim Jagielski void release() { OWeakObject::release(); }
getImplementation(Reflection * p)89*b1cdbd2cSJim Jagielski void* getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); }
90*b1cdbd2cSJim Jagielski
91*b1cdbd2cSJim Jagielski
attach(XDebuggingRef * p,XEngineRef * pEngine,XInvokationRef * pInvokation)92*b1cdbd2cSJim Jagielski void attach( XDebuggingRef *p , XEngineRef *pEngine , XInvokationRef *pInvokation )
93*b1cdbd2cSJim Jagielski {
94*b1cdbd2cSJim Jagielski m_pDebuggingRef = p;
95*b1cdbd2cSJim Jagielski m_pEngineRef = pEngine;
96*b1cdbd2cSJim Jagielski m_pInvokationRef = pInvokation;
97*b1cdbd2cSJim Jagielski m_bIsRunning = FALSE;
98*b1cdbd2cSJim Jagielski m_bIsTerminating = FALSE;
99*b1cdbd2cSJim Jagielski }
100*b1cdbd2cSJim Jagielski
101*b1cdbd2cSJim Jagielski void detach( );
102*b1cdbd2cSJim Jagielski
103*b1cdbd2cSJim Jagielski
disposing(const EventObject & o)104*b1cdbd2cSJim Jagielski virtual void disposing( const EventObject &o )
105*b1cdbd2cSJim Jagielski {
106*b1cdbd2cSJim Jagielski if( m_pDebuggingRef ) {
107*b1cdbd2cSJim Jagielski detach();
108*b1cdbd2cSJim Jagielski }
109*b1cdbd2cSJim Jagielski }
interrupt(const InterruptEngineEvent & Evt)110*b1cdbd2cSJim Jagielski virtual void interrupt(const InterruptEngineEvent& Evt) THROWS( (UsrSystemException) )
111*b1cdbd2cSJim Jagielski {
112*b1cdbd2cSJim Jagielski if( m_pDebuggingRef && ! m_bIsTerminating ) {
113*b1cdbd2cSJim Jagielski (*m_pDebuggingRef)->stop();
114*b1cdbd2cSJim Jagielski fprintf( stderr, "%s\n" , USTRING_TO_PCHAR(Evt.ErrorMessage ) );
115*b1cdbd2cSJim Jagielski fprintf( stderr, "%s.%s (%d)\n", USTRING_TO_PCHAR(Evt.SourceCode),
116*b1cdbd2cSJim Jagielski USTRING_TO_PCHAR(Evt.Name ),
117*b1cdbd2cSJim Jagielski Evt.StartLine );
118*b1cdbd2cSJim Jagielski m_aDebugCondition.set();
119*b1cdbd2cSJim Jagielski m_bIsRunning = TRUE;
120*b1cdbd2cSJim Jagielski }
121*b1cdbd2cSJim Jagielski }
122*b1cdbd2cSJim Jagielski
running(const EventObject & Evt)123*b1cdbd2cSJim Jagielski virtual void running(const EventObject& Evt) THROWS( (UsrSystemException) )
124*b1cdbd2cSJim Jagielski {
125*b1cdbd2cSJim Jagielski if( m_pDebuggingRef && ! m_bIsTerminating ) {
126*b1cdbd2cSJim Jagielski (*m_pDebuggingRef)->stop();
127*b1cdbd2cSJim Jagielski
128*b1cdbd2cSJim Jagielski m_aDebugCondition.set();
129*b1cdbd2cSJim Jagielski m_bIsRunning = TRUE;
130*b1cdbd2cSJim Jagielski fprintf( stderr, "%s\n" , "Script starts\n" );
131*b1cdbd2cSJim Jagielski }
132*b1cdbd2cSJim Jagielski }
133*b1cdbd2cSJim Jagielski
finished(const FinishEngineEvent & Evt)134*b1cdbd2cSJim Jagielski virtual void finished(const FinishEngineEvent& Evt) THROWS( (UsrSystemException) )
135*b1cdbd2cSJim Jagielski {
136*b1cdbd2cSJim Jagielski if( m_pDebuggingRef && ! m_bIsTerminating ) {
137*b1cdbd2cSJim Jagielski m_aDebugCondition.set();
138*b1cdbd2cSJim Jagielski m_bIsRunning = FALSE;
139*b1cdbd2cSJim Jagielski fprintf( stderr , "%s\n", USTRING_TO_PCHAR( Evt.ErrorMessage ) );
140*b1cdbd2cSJim Jagielski }
141*b1cdbd2cSJim Jagielski }
142*b1cdbd2cSJim Jagielski
143*b1cdbd2cSJim Jagielski void dumpIntrospectionToStream( const XIntrospectionAccessRef &, FILE *f );
144*b1cdbd2cSJim Jagielski void dumpVarToStream( const char *pcName, const UsrAny &any, FILE *f );
145*b1cdbd2cSJim Jagielski
146*b1cdbd2cSJim Jagielski
147*b1cdbd2cSJim Jagielski void cmdLine();
148*b1cdbd2cSJim Jagielski protected:
149*b1cdbd2cSJim Jagielski
150*b1cdbd2cSJim Jagielski OCondition m_aDebugCondition;
151*b1cdbd2cSJim Jagielski XDebuggingRef *m_pDebuggingRef;
152*b1cdbd2cSJim Jagielski XEngineRef *m_pEngineRef;
153*b1cdbd2cSJim Jagielski XInvokationRef *m_pInvokationRef;
154*b1cdbd2cSJim Jagielski int m_bIsRunning;
155*b1cdbd2cSJim Jagielski int m_bIsTerminating; // The listeners ignore everything when set
156*b1cdbd2cSJim Jagielski };
157*b1cdbd2cSJim Jagielski
158*b1cdbd2cSJim Jagielski
159*b1cdbd2cSJim Jagielski
cmdLine()160*b1cdbd2cSJim Jagielski void CmdDebugger::cmdLine()
161*b1cdbd2cSJim Jagielski {
162*b1cdbd2cSJim Jagielski char pcLine[80];
163*b1cdbd2cSJim Jagielski fprintf( stderr, "entering debugger\n" );
164*b1cdbd2cSJim Jagielski while( TRUE ) {
165*b1cdbd2cSJim Jagielski
166*b1cdbd2cSJim Jagielski m_aDebugCondition.wait();
167*b1cdbd2cSJim Jagielski
168*b1cdbd2cSJim Jagielski fprintf( stderr , "(debug %d) : " , m_bIsRunning );
169*b1cdbd2cSJim Jagielski fflush( stderr);
170*b1cdbd2cSJim Jagielski fgets( pcLine , 79 , stdin );
171*b1cdbd2cSJim Jagielski
172*b1cdbd2cSJim Jagielski if( strlen( pcLine) ) pcLine[strlen(pcLine)-1] =0;
173*b1cdbd2cSJim Jagielski String sLine( pcLine );
174*b1cdbd2cSJim Jagielski
175*b1cdbd2cSJim Jagielski if( ! strcmp( pcLine , "g" ) ) {
176*b1cdbd2cSJim Jagielski if( m_bIsRunning ) {
177*b1cdbd2cSJim Jagielski m_aDebugCondition.reset();
178*b1cdbd2cSJim Jagielski (*m_pDebuggingRef)->doContinue();
179*b1cdbd2cSJim Jagielski }
180*b1cdbd2cSJim Jagielski else fprintf( stderr,"no script running !\n" );
181*b1cdbd2cSJim Jagielski }
182*b1cdbd2cSJim Jagielski else if( ! strcmp( pcLine , "s" ) ) {
183*b1cdbd2cSJim Jagielski if( m_bIsRunning ) {
184*b1cdbd2cSJim Jagielski m_aDebugCondition.reset();
185*b1cdbd2cSJim Jagielski (*m_pDebuggingRef)->stepOver();
186*b1cdbd2cSJim Jagielski }
187*b1cdbd2cSJim Jagielski else fprintf(stderr, "no script running !\n" );
188*b1cdbd2cSJim Jagielski }
189*b1cdbd2cSJim Jagielski else if( ! strcmp( pcLine , "so" ) ) {
190*b1cdbd2cSJim Jagielski if( m_bIsRunning ) {
191*b1cdbd2cSJim Jagielski m_aDebugCondition.reset();
192*b1cdbd2cSJim Jagielski (*m_pDebuggingRef)->stepOut();
193*b1cdbd2cSJim Jagielski }
194*b1cdbd2cSJim Jagielski else fprintf(stderr, "no script running !\n" );
195*b1cdbd2cSJim Jagielski }
196*b1cdbd2cSJim Jagielski else if( ! strcmp( pcLine , "si" ) ) {
197*b1cdbd2cSJim Jagielski if( m_bIsRunning ) {
198*b1cdbd2cSJim Jagielski m_aDebugCondition.reset();
199*b1cdbd2cSJim Jagielski (*m_pDebuggingRef)->stepIn();
200*b1cdbd2cSJim Jagielski }
201*b1cdbd2cSJim Jagielski else fprintf(stderr, "no script running !\n" );
202*b1cdbd2cSJim Jagielski }
203*b1cdbd2cSJim Jagielski else if( ! strncmp( pcLine , "sbp" , 3 ) ){
204*b1cdbd2cSJim Jagielski if( m_bIsRunning ) {
205*b1cdbd2cSJim Jagielski (*m_pDebuggingRef)->setBreakPoint( UString( L"<string>" ),
206*b1cdbd2cSJim Jagielski atoi(&pcLine[3]) , TRUE );
207*b1cdbd2cSJim Jagielski }
208*b1cdbd2cSJim Jagielski }
209*b1cdbd2cSJim Jagielski else if( ! strncmp( pcLine , "rbp" , 3 ) ){
210*b1cdbd2cSJim Jagielski if( m_bIsRunning ) {
211*b1cdbd2cSJim Jagielski (*m_pDebuggingRef)->setBreakPoint( UString( L"<string>" ),
212*b1cdbd2cSJim Jagielski atoi(&pcLine[3]) , FALSE );
213*b1cdbd2cSJim Jagielski }
214*b1cdbd2cSJim Jagielski }
215*b1cdbd2cSJim Jagielski else if( ! strncmp( pcLine , "dv " , 3 ) ) {
216*b1cdbd2cSJim Jagielski if( m_bIsRunning ) {
217*b1cdbd2cSJim Jagielski int nCallstack = 0;
218*b1cdbd2cSJim Jagielski if( sLine.GetQuotedTokenCount( String("''"),' ' ) == 3 ) {
219*b1cdbd2cSJim Jagielski nCallstack = atoi( sLine.GetQuotedToken( 3 , String("''"), ' ' ).GetCharStr() );
220*b1cdbd2cSJim Jagielski }
221*b1cdbd2cSJim Jagielski
222*b1cdbd2cSJim Jagielski UString str = (*m_pDebuggingRef)->dumpVariable(
223*b1cdbd2cSJim Jagielski PCHAR_TO_USTRING( &pcLine[3]),nCallstack);
224*b1cdbd2cSJim Jagielski fprintf( stderr, "%s\n" , USTRING_TO_PCHAR( str ) );
225*b1cdbd2cSJim Jagielski }
226*b1cdbd2cSJim Jagielski }
227*b1cdbd2cSJim Jagielski else if( ! strncmp( pcLine , "sv " , 3 ) ) {
228*b1cdbd2cSJim Jagielski int nCallstack = 0;
229*b1cdbd2cSJim Jagielski if( sLine.GetQuotedTokenCount( String("''"),' ' ) == 3 ) {
230*b1cdbd2cSJim Jagielski nCallstack = atoi( sLine.GetQuotedToken( 3 , String("''"), ' ' ).GetCharStr() );
231*b1cdbd2cSJim Jagielski }
232*b1cdbd2cSJim Jagielski (*m_pDebuggingRef)->setVariable(
233*b1cdbd2cSJim Jagielski StringToOUString( sLine.GetQuotedToken( 1 , String("''"), ' ' ), CHARSET_SYSTEM ),
234*b1cdbd2cSJim Jagielski StringToOUString( sLine.GetQuotedToken( 2 , String("''"), ' ' ), CHARSET_SYSTEM ),
235*b1cdbd2cSJim Jagielski nCallstack );
236*b1cdbd2cSJim Jagielski
237*b1cdbd2cSJim Jagielski }
238*b1cdbd2cSJim Jagielski else if( ! strncmp( pcLine , "ci" ,2 ) ) {
239*b1cdbd2cSJim Jagielski if( m_bIsRunning ) {
240*b1cdbd2cSJim Jagielski UString *aUString ;
241*b1cdbd2cSJim Jagielski ContextInformation ci = (*m_pDebuggingRef)->getContextInformation(atoi(&pcLine[2]));
242*b1cdbd2cSJim Jagielski int i,iMax;
243*b1cdbd2cSJim Jagielski
244*b1cdbd2cSJim Jagielski fprintf( stderr, "File %s (%d)\n", USTRING_TO_PCHAR(ci.Name),
245*b1cdbd2cSJim Jagielski ci.StartLine );
246*b1cdbd2cSJim Jagielski fprintf( stderr, "Available variables : \n" );
247*b1cdbd2cSJim Jagielski aUString = ci.LocalVariableNames.getArray();
248*b1cdbd2cSJim Jagielski iMax = ci.LocalVariableNames.getLen();
249*b1cdbd2cSJim Jagielski
250*b1cdbd2cSJim Jagielski for( i = 0 ; i < iMax ; i++ ) {
251*b1cdbd2cSJim Jagielski fprintf( stderr, " %s\n" , USTRING_TO_PCHAR( aUString[i]) );
252*b1cdbd2cSJim Jagielski }
253*b1cdbd2cSJim Jagielski }
254*b1cdbd2cSJim Jagielski }
255*b1cdbd2cSJim Jagielski else if ( !strcmp( pcLine , "d" ) ) {
256*b1cdbd2cSJim Jagielski if( m_bIsRunning ) {
257*b1cdbd2cSJim Jagielski UString * aUString ;
258*b1cdbd2cSJim Jagielski Sequence<UString> seq = (*m_pDebuggingRef)->getStackTrace();
259*b1cdbd2cSJim Jagielski
260*b1cdbd2cSJim Jagielski aUString = seq.getArray();
261*b1cdbd2cSJim Jagielski int iMax = seq.getLen();
262*b1cdbd2cSJim Jagielski for( int i = 0; i < iMax ; i++ ) {
263*b1cdbd2cSJim Jagielski fprintf( stderr , "%s\n" , USTRING_TO_PCHAR( aUString[i] ) );
264*b1cdbd2cSJim Jagielski }
265*b1cdbd2cSJim Jagielski }
266*b1cdbd2cSJim Jagielski }
267*b1cdbd2cSJim Jagielski else if( !strcmp( pcLine , "c" ) ) {
268*b1cdbd2cSJim Jagielski if( m_bIsRunning ) {
269*b1cdbd2cSJim Jagielski (*m_pEngineRef)->cancel();
270*b1cdbd2cSJim Jagielski m_aDebugCondition.reset();
271*b1cdbd2cSJim Jagielski }
272*b1cdbd2cSJim Jagielski else fprintf( stderr,"no script running !\n" );
273*b1cdbd2cSJim Jagielski }
274*b1cdbd2cSJim Jagielski else if( !strcmp( pcLine , "q" ) ) {
275*b1cdbd2cSJim Jagielski if( m_bIsRunning ) {
276*b1cdbd2cSJim Jagielski m_aDebugCondition.reset();
277*b1cdbd2cSJim Jagielski (*m_pEngineRef)->cancel();
278*b1cdbd2cSJim Jagielski }
279*b1cdbd2cSJim Jagielski else {
280*b1cdbd2cSJim Jagielski m_bIsTerminating = TRUE;
281*b1cdbd2cSJim Jagielski fprintf(stderr, "Debugger terminates\n" );
282*b1cdbd2cSJim Jagielski break;
283*b1cdbd2cSJim Jagielski }
284*b1cdbd2cSJim Jagielski }
285*b1cdbd2cSJim Jagielski else if( ! strcmp( pcLine , "id" ) ) {
286*b1cdbd2cSJim Jagielski
287*b1cdbd2cSJim Jagielski XIntrospectionAccessRef ref = (*m_pInvokationRef)->getIntrospection();
288*b1cdbd2cSJim Jagielski
289*b1cdbd2cSJim Jagielski dumpIntrospectionToStream( ref , stderr );
290*b1cdbd2cSJim Jagielski
291*b1cdbd2cSJim Jagielski
292*b1cdbd2cSJim Jagielski }
293*b1cdbd2cSJim Jagielski else if( ! strncmp( pcLine , "idv" , 3) ) {
294*b1cdbd2cSJim Jagielski try {
295*b1cdbd2cSJim Jagielski UsrAny any = (*m_pInvokationRef)->getValue( PCHAR_TO_USTRING( &(pcLine[4]) ) );
296*b1cdbd2cSJim Jagielski dumpVarToStream( &(pcLine[4]) , any , stderr );
297*b1cdbd2cSJim Jagielski }
298*b1cdbd2cSJim Jagielski catch(UnknownPropertyException& e ) {
299*b1cdbd2cSJim Jagielski fprintf( stderr, "UnknownPropertyException\n" );
300*b1cdbd2cSJim Jagielski }
301*b1cdbd2cSJim Jagielski catch(IllegalArgumentException& e ) {
302*b1cdbd2cSJim Jagielski fprintf( stderr, "IllegalArgumentException\n" );
303*b1cdbd2cSJim Jagielski }
304*b1cdbd2cSJim Jagielski }
305*b1cdbd2cSJim Jagielski else if( !strcmp( pcLine , "t" ) ) {
306*b1cdbd2cSJim Jagielski }
307*b1cdbd2cSJim Jagielski else if( !strcmp( pcLine , "h" ) ) {
308*b1cdbd2cSJim Jagielski fprintf( stderr , "\nvalid commands :\n"
309*b1cdbd2cSJim Jagielski "Go : g\n"
310*b1cdbd2cSJim Jagielski "StepOver : s\n"
311*b1cdbd2cSJim Jagielski "StepIn : si\n"
312*b1cdbd2cSJim Jagielski "StepOut : so\n"
313*b1cdbd2cSJim Jagielski "Set BreakPoint : sbp Line [ModuleName]\n"
314*b1cdbd2cSJim Jagielski "Remove BreakPoint : rbp [Line] [ModuleName]\n"
315*b1cdbd2cSJim Jagielski "via XDebugging Interface :\n"
316*b1cdbd2cSJim Jagielski " dump Variable : dv varname [CallStack]\n"
317*b1cdbd2cSJim Jagielski " set Variable : sv varname value [CallStack]\n"
318*b1cdbd2cSJim Jagielski "globals via XInvokation Interface :\n"
319*b1cdbd2cSJim Jagielski " dump Global vars : id\n"
320*b1cdbd2cSJim Jagielski " dump Variable : idv varname\n"
321*b1cdbd2cSJim Jagielski " set Variable : isv varname value\n"
322*b1cdbd2cSJim Jagielski "ContextInformation : ci\n"
323*b1cdbd2cSJim Jagielski "Dump callstack : d\n"
324*b1cdbd2cSJim Jagielski "Cancel : c (stops actual script)\n"
325*b1cdbd2cSJim Jagielski "Quit : q (exits debugger)\n"
326*b1cdbd2cSJim Jagielski );
327*b1cdbd2cSJim Jagielski }
328*b1cdbd2cSJim Jagielski else if( ! strlen( pcLine ) ) {
329*b1cdbd2cSJim Jagielski }
330*b1cdbd2cSJim Jagielski else {
331*b1cdbd2cSJim Jagielski fprintf( stderr , "unknown command %s\n" , pcLine );
332*b1cdbd2cSJim Jagielski }
333*b1cdbd2cSJim Jagielski }
334*b1cdbd2cSJim Jagielski }
335*b1cdbd2cSJim Jagielski
dumpIntrospectionToStream(const XIntrospectionAccessRef & ref,FILE * f)336*b1cdbd2cSJim Jagielski void CmdDebugger::dumpIntrospectionToStream( const XIntrospectionAccessRef &ref, FILE *f )
337*b1cdbd2cSJim Jagielski {
338*b1cdbd2cSJim Jagielski int i,iMax;
339*b1cdbd2cSJim Jagielski fprintf( stderr, "Callable Attributes (Methods) :\n" );
340*b1cdbd2cSJim Jagielski Sequence<XIdlMethodRef> seq = ref->getMethods( 0 );
341*b1cdbd2cSJim Jagielski iMax = seq.getLen();
342*b1cdbd2cSJim Jagielski XIdlMethodRef *aRef = seq.getArray();
343*b1cdbd2cSJim Jagielski for( i = 0; i < iMax ; i++ ) {
344*b1cdbd2cSJim Jagielski fprintf( f, " %s\n" , USTRING_TO_PCHAR( aRef[i]->getName( ) ) );
345*b1cdbd2cSJim Jagielski }
346*b1cdbd2cSJim Jagielski
347*b1cdbd2cSJim Jagielski fprintf( stderr, "Other attributes\n" );
348*b1cdbd2cSJim Jagielski Sequence<Property> seqProp = ref->getProperties( 0 );
349*b1cdbd2cSJim Jagielski iMax = seqProp.getLen();
350*b1cdbd2cSJim Jagielski Property *aProp = seqProp.getArray();
351*b1cdbd2cSJim Jagielski for( i = 0; i < iMax ; i ++ ) {
352*b1cdbd2cSJim Jagielski fprintf( f, " %s %s\n" , USTRING_TO_PCHAR( aProp[i].Type->getName() ),
353*b1cdbd2cSJim Jagielski USTRING_TO_PCHAR( aProp[i].Name ) );
354*b1cdbd2cSJim Jagielski }
355*b1cdbd2cSJim Jagielski
356*b1cdbd2cSJim Jagielski }
357*b1cdbd2cSJim Jagielski
dumpVarToStream(const char * pc,const UsrAny & aValue,FILE * f)358*b1cdbd2cSJim Jagielski void CmdDebugger::dumpVarToStream( const char *pc , const UsrAny &aValue, FILE *f )
359*b1cdbd2cSJim Jagielski {
360*b1cdbd2cSJim Jagielski TypeClass type = aValue.getReflection()->getTypeClass();
361*b1cdbd2cSJim Jagielski
362*b1cdbd2cSJim Jagielski if( TypeClass_INT == type ) {
363*b1cdbd2cSJim Jagielski fprintf( f, "INT32 %s : %d\n" , pc , aValue.getINT32() );
364*b1cdbd2cSJim Jagielski }
365*b1cdbd2cSJim Jagielski else if( TypeClass_ENUM == type ) {
366*b1cdbd2cSJim Jagielski fprintf( f, "ENUM %s : %d\n", pc , aValue.getEnumAsINT32() );
367*b1cdbd2cSJim Jagielski }
368*b1cdbd2cSJim Jagielski else if( TypeClass_STRING == type ) {
369*b1cdbd2cSJim Jagielski fprintf( f, "STRING %s : %s\n" , pc , USTRING_TO_PCHAR( aValue.getString()) );
370*b1cdbd2cSJim Jagielski }
371*b1cdbd2cSJim Jagielski else if( TypeClass_BOOLEAN == type ) {
372*b1cdbd2cSJim Jagielski fprintf( f, "BOOL %s : %d\n", pc , aValue.getBOOL() );
373*b1cdbd2cSJim Jagielski }
374*b1cdbd2cSJim Jagielski else if( TypeClass_CHAR == type ) {
375*b1cdbd2cSJim Jagielski fprintf( f, "char %s : %d\n", pc , ( INT32) aValue.getChar() );
376*b1cdbd2cSJim Jagielski }
377*b1cdbd2cSJim Jagielski else if( TypeClass_SHORT == type ) {
378*b1cdbd2cSJim Jagielski fprintf( f, "INT16 %s : %d\n", pc , (INT32) aValue.getINT16());
379*b1cdbd2cSJim Jagielski }
380*b1cdbd2cSJim Jagielski else if( TypeClass_LONG == type ) {
381*b1cdbd2cSJim Jagielski fprintf( f, "LONG %s : %d\n", pc , (INT32) aValue.getINT32());
382*b1cdbd2cSJim Jagielski }
383*b1cdbd2cSJim Jagielski else if( TypeClass_UNSIGNED_SHORT == type ) {
384*b1cdbd2cSJim Jagielski fprintf( f, "UINT16 %s : %d\n", pc , (INT32) aValue.getUINT16() );
385*b1cdbd2cSJim Jagielski }
386*b1cdbd2cSJim Jagielski else if( TypeClass_UNSIGNED_BYTE == type ) {
387*b1cdbd2cSJim Jagielski fprintf( f, "Byte %s : %d\n", pc , (INT32) aValue.getBYTE() );
388*b1cdbd2cSJim Jagielski }
389*b1cdbd2cSJim Jagielski else if( TypeClass_UNSIGNED_INT == type ) {
390*b1cdbd2cSJim Jagielski fprintf( f, "UINT32 %s : %d\n", pc , aValue.getUINT32() );
391*b1cdbd2cSJim Jagielski }
392*b1cdbd2cSJim Jagielski else if( TypeClass_FLOAT == type ) {
393*b1cdbd2cSJim Jagielski fprintf( f, "float %s : %f\n" , pc , aValue.getFloat() );
394*b1cdbd2cSJim Jagielski }
395*b1cdbd2cSJim Jagielski else if( TypeClass_DOUBLE == type ) {
396*b1cdbd2cSJim Jagielski fprintf( f, "double %s : %f\n" , pc , aValue.getDouble() );
397*b1cdbd2cSJim Jagielski }
398*b1cdbd2cSJim Jagielski else if( TypeClass_VOID == type ) {
399*b1cdbd2cSJim Jagielski fprintf( f, "void %s :\n" , pc );
400*b1cdbd2cSJim Jagielski }
401*b1cdbd2cSJim Jagielski else if( TypeClass_INTERFACE == type ) {
402*b1cdbd2cSJim Jagielski // Check, what has been put in
403*b1cdbd2cSJim Jagielski if( aValue.getReflection() == XPropertySet_getReflection() ) {
404*b1cdbd2cSJim Jagielski // XPropertySet !
405*b1cdbd2cSJim Jagielski XPropertySetRef *pRef = ( XPropertySetRef * ) aValue.get();
406*b1cdbd2cSJim Jagielski XPropertySetInfoRef refInfo = (*pRef)->getPropertySetInfo();
407*b1cdbd2cSJim Jagielski Sequence< Property > seq = refInfo->getProperties();
408*b1cdbd2cSJim Jagielski int i,iMax = seq.getLen();
409*b1cdbd2cSJim Jagielski
410*b1cdbd2cSJim Jagielski Property *pArray;
411*b1cdbd2cSJim Jagielski pArray = seq.getArray();
412*b1cdbd2cSJim Jagielski fprintf( stderr, "Property List :\n" );
413*b1cdbd2cSJim Jagielski for( i = 0; i < iMax ; i ++ ) {
414*b1cdbd2cSJim Jagielski fprintf( f, "%s\t %s\n" , USTRING_TO_PCHAR(pArray[i].Type->getName()),
415*b1cdbd2cSJim Jagielski USTRING_TO_PCHAR( pArray[i].Name ) );
416*b1cdbd2cSJim Jagielski }
417*b1cdbd2cSJim Jagielski }
418*b1cdbd2cSJim Jagielski else if( aValue.getReflection() == XInvokation_getReflection() ) {
419*b1cdbd2cSJim Jagielski XInvokationRef *pRef = ( XInvokationRef * ) aValue.get();
420*b1cdbd2cSJim Jagielski XIntrospectionAccessRef refIntro = (*pRef)->getIntrospection();
421*b1cdbd2cSJim Jagielski
422*b1cdbd2cSJim Jagielski dumpIntrospectionToStream( refIntro, stderr );
423*b1cdbd2cSJim Jagielski }
424*b1cdbd2cSJim Jagielski }
425*b1cdbd2cSJim Jagielski else if( TypeClass_SEQUENCE == type ) {
426*b1cdbd2cSJim Jagielski fprintf( f , "%s Sequence \n" , pc );
427*b1cdbd2cSJim Jagielski String s( " " );
428*b1cdbd2cSJim Jagielski s += pc;
429*b1cdbd2cSJim Jagielski SequenceReflection *pSeqRefl = ( SequenceReflection * ) aValue.getReflection();
430*b1cdbd2cSJim Jagielski
431*b1cdbd2cSJim Jagielski int i,iMax = pSeqRefl->getLen( aValue );
432*b1cdbd2cSJim Jagielski
433*b1cdbd2cSJim Jagielski for( i = 0 ; i < iMax ; i ++ ) {
434*b1cdbd2cSJim Jagielski dumpVarToStream( s.GetCharStr() , pSeqRefl->get( aValue , i ) , stderr );
435*b1cdbd2cSJim Jagielski }
436*b1cdbd2cSJim Jagielski }
437*b1cdbd2cSJim Jagielski else {
438*b1cdbd2cSJim Jagielski fprintf( f, "%s : unknown %d\n" , pc , type );
439*b1cdbd2cSJim Jagielski }
440*b1cdbd2cSJim Jagielski
441*b1cdbd2cSJim Jagielski }
442*b1cdbd2cSJim Jagielski
detach()443*b1cdbd2cSJim Jagielski void CmdDebugger::detach()
444*b1cdbd2cSJim Jagielski {
445*b1cdbd2cSJim Jagielski OSL_ASSERT( m_pDebuggingRef );
446*b1cdbd2cSJim Jagielski
447*b1cdbd2cSJim Jagielski m_bIsRunning = FALSE;
448*b1cdbd2cSJim Jagielski m_pDebuggingRef = 0;
449*b1cdbd2cSJim Jagielski m_pEngineRef = 0;
450*b1cdbd2cSJim Jagielski m_pInvokationRef = 0;
451*b1cdbd2cSJim Jagielski }
452*b1cdbd2cSJim Jagielski
453*b1cdbd2cSJim Jagielski // Methoden von XInterface
queryInterface(Uik aUik,XInterfaceRef & rOut)454*b1cdbd2cSJim Jagielski BOOL CmdDebugger::queryInterface( Uik aUik, XInterfaceRef & rOut )
455*b1cdbd2cSJim Jagielski {
456*b1cdbd2cSJim Jagielski if( aUik == XEngineListener::getSmartUik() )
457*b1cdbd2cSJim Jagielski rOut = (XEngineListener*)this;
458*b1cdbd2cSJim Jagielski else
459*b1cdbd2cSJim Jagielski return OWeakObject::queryInterface( aUik, rOut );
460*b1cdbd2cSJim Jagielski return TRUE;
461*b1cdbd2cSJim Jagielski }
462*b1cdbd2cSJim Jagielski
463*b1cdbd2cSJim Jagielski
464*b1cdbd2cSJim Jagielski
465*b1cdbd2cSJim Jagielski
466*b1cdbd2cSJim Jagielski
467*b1cdbd2cSJim Jagielski
468*b1cdbd2cSJim Jagielski /*
469*b1cdbd2cSJim Jagielski * main.
470*b1cdbd2cSJim Jagielski */
main(int argc,char ** argv)471*b1cdbd2cSJim Jagielski int __LOADONCALLAPI main (int argc, char **argv)
472*b1cdbd2cSJim Jagielski {
473*b1cdbd2cSJim Jagielski XMultiServiceFactoryRef xSMgr = createRegistryServiceManager();
474*b1cdbd2cSJim Jagielski registerUsrServices( xSMgr );
475*b1cdbd2cSJim Jagielski setProcessServiceManager( xSMgr );
476*b1cdbd2cSJim Jagielski
477*b1cdbd2cSJim Jagielski XInterfaceRef x = xSMgr->createInstance( L"stardiv.uno.repos.ImplementationRegistration" );
478*b1cdbd2cSJim Jagielski XImplementationRegistrationRef xReg( x, USR_QUERY );
479*b1cdbd2cSJim Jagielski sal_Char szBuf[1024];
480*b1cdbd2cSJim Jagielski
481*b1cdbd2cSJim Jagielski ORealDynamicLoader::computeModuleName( "pythonengine", szBuf, 1024 );
482*b1cdbd2cSJim Jagielski UString aDllName( StringToOUString( szBuf, CHARSET_SYSTEM ) );
483*b1cdbd2cSJim Jagielski xReg->registerImplementation( L"stardiv.loader.SharedLibrary", aDllName, XSimpleRegistryRef() );
484*b1cdbd2cSJim Jagielski
485*b1cdbd2cSJim Jagielski ORealDynamicLoader::computeModuleName( "aps", szBuf, 1024 );
486*b1cdbd2cSJim Jagielski aDllName = UString( StringToOUString( szBuf, CHARSET_SYSTEM ) );
487*b1cdbd2cSJim Jagielski xReg->registerImplementation( L"stardiv.loader.SharedLibrary", aDllName, XSimpleRegistryRef() );
488*b1cdbd2cSJim Jagielski
489*b1cdbd2cSJim Jagielski XInterfaceRef y = xSMgr->createInstance( L"stardiv.script.Python" );
490*b1cdbd2cSJim Jagielski XEngineRef yEngine( y, USR_QUERY );
491*b1cdbd2cSJim Jagielski
492*b1cdbd2cSJim Jagielski x = xSMgr->createInstance( L"stardiv.script.Python" );
493*b1cdbd2cSJim Jagielski XEngineRef xEngine( x, USR_QUERY );
494*b1cdbd2cSJim Jagielski
495*b1cdbd2cSJim Jagielski
496*b1cdbd2cSJim Jagielski UString Script;
497*b1cdbd2cSJim Jagielski
498*b1cdbd2cSJim Jagielski Sequence<UsrAny> args(3);
499*b1cdbd2cSJim Jagielski UsrAny *pArray = args.getArray();
500*b1cdbd2cSJim Jagielski pArray[0].setString( L"Arg_0" );
501*b1cdbd2cSJim Jagielski pArray[1].setString( L"Arg_1" );
502*b1cdbd2cSJim Jagielski pArray[2].setString( L"Arg_2" );
503*b1cdbd2cSJim Jagielski
504*b1cdbd2cSJim Jagielski if( argc > 2) {
505*b1cdbd2cSJim Jagielski Script = StringToOUString( String( argv[2] ) , CHARSET_DONTKNOW );
506*b1cdbd2cSJim Jagielski }
507*b1cdbd2cSJim Jagielski
508*b1cdbd2cSJim Jagielski XInvokationRef xInvokation( x , USR_QUERY );
509*b1cdbd2cSJim Jagielski XDebuggingRef xDebug( x , USR_QUERY );
510*b1cdbd2cSJim Jagielski
511*b1cdbd2cSJim Jagielski CmdDebugger *pDbg = new CmdDebugger( &xDebug , &xEngine , &xInvokation );
512*b1cdbd2cSJim Jagielski
513*b1cdbd2cSJim Jagielski XEngineListenerRef xDebugRef( (XEngineListener *) pDbg , USR_QUERY);
514*b1cdbd2cSJim Jagielski xEngine->addEngineListener( xDebugRef );
515*b1cdbd2cSJim Jagielski
516*b1cdbd2cSJim Jagielski
517*b1cdbd2cSJim Jagielski if( argc >1 && ! strcmp( argv[1] , "1" ) ) {
518*b1cdbd2cSJim Jagielski fprintf( stderr, "one thread only\n" );
519*b1cdbd2cSJim Jagielski Script = UString( L"print 'Hello World'\n" );
520*b1cdbd2cSJim Jagielski xEngine->runAsync( Script , XInterfaceRef(), args , XEngineListenerRef() );
521*b1cdbd2cSJim Jagielski }
522*b1cdbd2cSJim Jagielski else if( argc >1 && ! strcmp( argv[1] , "2" ) ) {
523*b1cdbd2cSJim Jagielski
524*b1cdbd2cSJim Jagielski xEngine->runAsync( UString( L"x=1\nprint 1\n") , XInterfaceRef(), args , XEngineListenerRef() );
525*b1cdbd2cSJim Jagielski xEngine->runAsync( UString( L"x=x+1\nprint 2\n") , XInterfaceRef(), args , XEngineListenerRef() );
526*b1cdbd2cSJim Jagielski xEngine->runAsync( UString( L"x=x+1\nprint 3\n") , XInterfaceRef(), args , XEngineListenerRef());
527*b1cdbd2cSJim Jagielski xEngine->runAsync( UString( L"x=x+1\nprint 4\n") , XInterfaceRef(), args , XEngineListenerRef() );
528*b1cdbd2cSJim Jagielski
529*b1cdbd2cSJim Jagielski
530*b1cdbd2cSJim Jagielski
531*b1cdbd2cSJim Jagielski }
532*b1cdbd2cSJim Jagielski else if( argc >1 && ! strcmp( argv[1] , "3" ) ) {
533*b1cdbd2cSJim Jagielski
534*b1cdbd2cSJim Jagielski fprintf( stderr , "1st thread in engine y, next 5 threads in engine x\n" );
535*b1cdbd2cSJim Jagielski yEngine->runAsync( UString( L"print 1\n") , XInterfaceRef(), args , XEngineListenerRef() );
536*b1cdbd2cSJim Jagielski xEngine->runAsync( UString( L"print 2\n") , XInterfaceRef(), args , XEngineListenerRef() );
537*b1cdbd2cSJim Jagielski xEngine->runAsync( UString( L"print 3\n") , XInterfaceRef(), args , XEngineListenerRef() );
538*b1cdbd2cSJim Jagielski xEngine->runAsync( UString( L"print 4\n") , XInterfaceRef(), args , XEngineListenerRef());
539*b1cdbd2cSJim Jagielski xEngine->runAsync( UString( L"print 5\n") , XInterfaceRef(), args , XEngineListenerRef());
540*b1cdbd2cSJim Jagielski xEngine->runAsync( UString( L"print 6\n") , XInterfaceRef(), args , XEngineListenerRef());
541*b1cdbd2cSJim Jagielski
542*b1cdbd2cSJim Jagielski
543*b1cdbd2cSJim Jagielski }
544*b1cdbd2cSJim Jagielski pDbg->cmdLine();
545*b1cdbd2cSJim Jagielski
546*b1cdbd2cSJim Jagielski xEngine->removeEngineListener( xDebugRef );
547*b1cdbd2cSJim Jagielski
548*b1cdbd2cSJim Jagielski xReg->revokeImplementation( aDllName, XSimpleRegistryRef() );
549*b1cdbd2cSJim Jagielski
550*b1cdbd2cSJim Jagielski fprintf( stderr, "main terminates\n" );
551*b1cdbd2cSJim Jagielski return 0;
552*b1cdbd2cSJim Jagielski }
553*b1cdbd2cSJim Jagielski
554