1d119d52dSAndrew Rist /**************************************************************
2cdf0e10cSrcweir *
3d119d52dSAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one
4d119d52dSAndrew Rist * or more contributor license agreements. See the NOTICE file
5d119d52dSAndrew Rist * distributed with this work for additional information
6d119d52dSAndrew Rist * regarding copyright ownership. The ASF licenses this file
7d119d52dSAndrew Rist * to you under the Apache License, Version 2.0 (the
8d119d52dSAndrew Rist * "License"); you may not use this file except in compliance
9d119d52dSAndrew Rist * with the License. You may obtain a copy of the License at
10d119d52dSAndrew Rist *
11d119d52dSAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0
12d119d52dSAndrew Rist *
13d119d52dSAndrew Rist * Unless required by applicable law or agreed to in writing,
14d119d52dSAndrew Rist * software distributed under the License is distributed on an
15d119d52dSAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16d119d52dSAndrew Rist * KIND, either express or implied. See the License for the
17d119d52dSAndrew Rist * specific language governing permissions and limitations
18d119d52dSAndrew Rist * under the License.
19d119d52dSAndrew Rist *
20d119d52dSAndrew Rist *************************************************************/
21d119d52dSAndrew Rist
22d119d52dSAndrew Rist
23cdf0e10cSrcweir
24cdf0e10cSrcweir // MARKER(update_precomp.py): autogen include statement, do not remove
25cdf0e10cSrcweir #include "precompiled_sfx2.hxx"
26cdf0e10cSrcweir
27cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 1
28cdf0e10cSrcweir #include <tools/stream.hxx>
29cdf0e10cSrcweir #endif
30cdf0e10cSrcweir
31cdf0e10cSrcweir #include "macro.hxx"
32cdf0e10cSrcweir #include <sfx2/request.hxx>
33cdf0e10cSrcweir #include <sfx2/msg.hxx>
34cdf0e10cSrcweir
35cdf0e10cSrcweir //====================================================================
36cdf0e10cSrcweir
37cdf0e10cSrcweir SV_DECL_PTRARR_DEL( SfxStatements_Impl, SfxMacroStatement*, 16, 8 )
38cdf0e10cSrcweir SV_IMPL_PTRARR( SfxStatements_Impl, SfxMacroStatement* );
39cdf0e10cSrcweir
40cdf0e10cSrcweir //--------------------------------------------------------------------
41cdf0e10cSrcweir
42cdf0e10cSrcweir struct SfxMacro_Impl
43cdf0e10cSrcweir
44cdf0e10cSrcweir /* [Beschreibung]
45cdf0e10cSrcweir
46cdf0e10cSrcweir Implementations-Struktur der Klasse <SfxMacro>.
47cdf0e10cSrcweir */
48cdf0e10cSrcweir
49cdf0e10cSrcweir {
50cdf0e10cSrcweir SfxMacroMode eMode; /* Zweck der <SfxMacro>-Instanz,
51cdf0e10cSrcweir Bedeutung siehe enum <SfxMacroMode> */
52cdf0e10cSrcweir SfxStatements_Impl aList; /* Liste von aufgezeichneten Statements */
53cdf0e10cSrcweir };
54cdf0e10cSrcweir
55cdf0e10cSrcweir //====================================================================
56cdf0e10cSrcweir
SfxMacroStatement(const SfxShell &,const String &,sal_Bool,const SfxSlot & rSlot,sal_Bool bRequestDone,::com::sun::star::uno::Sequence<::com::sun::star::beans::PropertyValue> & rArgs)57cdf0e10cSrcweir SfxMacroStatement::SfxMacroStatement
58cdf0e10cSrcweir (
59cdf0e10cSrcweir const SfxShell& /*rShell*/, // <SfxShell>, die den Request ausf"uhrte
60cdf0e10cSrcweir const String& /*rTarget*/, // Name des Zielobjektes vor der Ausf"urhung
61cdf0e10cSrcweir sal_Bool /*bAbsolute*/, // obsolet
62cdf0e10cSrcweir const SfxSlot& rSlot, // der <SfxSlot>, der das Statement abspielen kann
63cdf0e10cSrcweir sal_Bool bRequestDone, // wurde der Request tats"achlich ausgef"uhrt
64cdf0e10cSrcweir ::com::sun::star::uno::Sequence < ::com::sun::star::beans::PropertyValue >& rArgs
65cdf0e10cSrcweir )
66cdf0e10cSrcweir
67cdf0e10cSrcweir /* [Beschreibung]
68cdf0e10cSrcweir
69cdf0e10cSrcweir Dieser Konstruktor der Klasse SfxMacroStatement erzeugt ein Statement,
70cdf0e10cSrcweir bei dem ein Objekt angesprochen wird, welches durch 'rShell' angegeben
71cdf0e10cSrcweir ist. Dabei erfolgt die Addressierung je nach 'bAbsolute' absolut,
72cdf0e10cSrcweir also z.B. als '[mydoc.sdc]' oder relativ, also z.B. 'ActiveDocument'.
73cdf0e10cSrcweir
74cdf0e10cSrcweir Je nach Art der Subklasse von 'rShell' ergeben sich folgende
75cdf0e10cSrcweir Ausdr"ucke:
76cdf0e10cSrcweir
77cdf0e10cSrcweir | absolut relativ
78cdf0e10cSrcweir -----------------------------------------------------------------------
79cdf0e10cSrcweir SfxApplication' | 'StarCalc' 'Application'
80cdf0e10cSrcweir SfxViewFrame' | '[mydoc.sdc:1]' 'ActiveWindow'
81cdf0e10cSrcweir SfxViewShell' | '[mydoc.sdc:1]' 'AvtiveWindow'
82cdf0e10cSrcweir SfxObjectShell' | '[mydoc.sdc]' 'ActiveDocument'
83cdf0e10cSrcweir sonstige (Sub-Shells) | '[mydoc.sdc:1]' 'ActiveWindow'
84cdf0e10cSrcweir
85cdf0e10cSrcweir Dabei sind 'StarCalc' stellvertretend fuer den Namen der Applikation
86cdf0e10cSrcweir (Application::GetAppName()const). In der absoluten Fassung k"onnte
87cdf0e10cSrcweir die Selektion auch deskriptiv z.B. als 'CellSelection("A5-D8")')
88cdf0e10cSrcweir angesprochen werden, dazu mu\ jedoch vom Anwendungsprogrammierer der
89cdf0e10cSrcweir Konstruktor <SfxMacroStatement::SfxMacroStatement(const String&,
90cdf0e10cSrcweir const SfxSlot&,sal_Bool,SfxArguments*)> verwendet werden.
91cdf0e10cSrcweir
92cdf0e10cSrcweir F"ur das so bezeichnete Objekt wird dann je nach Typ des Slots
93cdf0e10cSrcweir eine Zuweisung an eines seiner Properties oder der Aufruf einer seiner
94cdf0e10cSrcweir Methoden ausgedr"uckt.
95cdf0e10cSrcweir
96cdf0e10cSrcweir
97cdf0e10cSrcweir [Beispiele]
98cdf0e10cSrcweir
99cdf0e10cSrcweir absolut:
100cdf0e10cSrcweir SCalc3.OpenDocument( "\docs\mydoc.sdd", "StarDraw Presentation", 0, 0 )
101cdf0e10cSrcweir [mydoc.sdd].Activate()
102cdf0e10cSrcweir [mydoc.sdd:1].SwitchToView( 2 )
103cdf0e10cSrcweir [mydoc.sdc:1:1].CellSelection( "A5-D8" ).LineColor = 192357
104cdf0e10cSrcweir
105cdf0e10cSrcweir relativ:
106cdf0e10cSrcweir ActiveWindow.LineColor = 192357
107cdf0e10cSrcweir
108cdf0e10cSrcweir
109cdf0e10cSrcweir [Querverweise]
110cdf0e10cSrcweir
111cdf0e10cSrcweir <SfxMacroStatement::SfxMacroStatement(const String&,const SfxSlot&,sal_Bool,SfxArguments*)>
112cdf0e10cSrcweir <SfxMacroStatement::SfxMacroStatement(const String&)>
113cdf0e10cSrcweir */
114cdf0e10cSrcweir
115cdf0e10cSrcweir : nSlotId( rSlot.GetSlotId() ),
116cdf0e10cSrcweir aArgs( rArgs ),
117cdf0e10cSrcweir bDone( bRequestDone ),
118cdf0e10cSrcweir pDummy( 0 )
119cdf0e10cSrcweir {
120cdf0e10cSrcweir // Workaround Recording nicht exportierter Slots (#25386#)
121cdf0e10cSrcweir if ( !rSlot.pName )
122cdf0e10cSrcweir return;
123cdf0e10cSrcweir /*
124cdf0e10cSrcweir // Objekt-Typ bestimmen
125cdf0e10cSrcweir bool bIsApp = rShell.ISA(SfxApplication);
126cdf0e10cSrcweir bool bIsDoc = rShell.ISA(SfxObjectShell);
127cdf0e10cSrcweir bool bIsWin = !bIsApp && !bIsDoc &&
128cdf0e10cSrcweir ( rShell.ISA(SfxViewShell) || rShell.ISA(SfxViewFrame) );
129cdf0e10cSrcweir bool bIsSel = !bIsApp && !bIsDoc && !bIsWin;
130cdf0e10cSrcweir
131cdf0e10cSrcweir // Objekt nicht schon im Slot-Namen enthalten?
132cdf0e10cSrcweir if ( bIsSel || rSlot.pName[0] == '.' )
133cdf0e10cSrcweir {
134cdf0e10cSrcweir // absolutes Aufzeichnen?
135cdf0e10cSrcweir if ( rSlot.IsMode( SFX_SLOT_RECORDABSOLUTE ) )
136cdf0e10cSrcweir {
137cdf0e10cSrcweir // an der Applikation oder am Modul
138cdf0e10cSrcweir if ( rShell.ISA(SfxApplication) || rShell.ISA(SfxModule) )
139cdf0e10cSrcweir aStatement = rTarget;
140cdf0e10cSrcweir
141cdf0e10cSrcweir // am Dokument?
142cdf0e10cSrcweir // '[' = 5Bh
143cdf0e10cSrcweir // ']' = 5Dh
144cdf0e10cSrcweir else if ( rShell.ISA(SfxObjectShell) )
145cdf0e10cSrcweir {
146cdf0e10cSrcweir aStatement = 0x005B;
147cdf0e10cSrcweir aStatement += rTarget;
148cdf0e10cSrcweir aStatement += 0x005D;
149cdf0e10cSrcweir }
150cdf0e10cSrcweir
151cdf0e10cSrcweir else if ( rShell.ISA(SfxViewFrame) )
152cdf0e10cSrcweir {
153cdf0e10cSrcweir aStatement = 0x005B;
154cdf0e10cSrcweir aStatement += String::CreateFromAscii("ViewFrame");//rShell.GetSbxObject()->GetName();
155cdf0e10cSrcweir aStatement += 0x005D;
156cdf0e10cSrcweir }
157cdf0e10cSrcweir
158cdf0e10cSrcweir else
159cdf0e10cSrcweir {
160cdf0e10cSrcweir // an der View oder Sub-Shell
161cdf0e10cSrcweir SfxViewShell *pViewShell = rShell.GetViewShell();
162cdf0e10cSrcweir aStatement = 0x005B;
163cdf0e10cSrcweir aStatement += String::CreateFromAscii("ViewShell");//pViewShell->GetViewFrame()->GetSbxObject()->GetName();
164cdf0e10cSrcweir aStatement += 0x005D;
165cdf0e10cSrcweir if ( !rShell.ISA(SfxViewFrame) )
166cdf0e10cSrcweir // an einer Sub-Shell zus"atlich ".Selection" anh"angen
167cdf0e10cSrcweir aStatement += DEFINE_CONST_UNICODE(".Selection");
168cdf0e10cSrcweir }
169cdf0e10cSrcweir }
170cdf0e10cSrcweir else // relatives Aufzeichnen
171cdf0e10cSrcweir {
172cdf0e10cSrcweir // an der Application?
173cdf0e10cSrcweir if ( rShell.ISA(SfxApplication) )
174cdf0e10cSrcweir aStatement = DEFINE_CONST_UNICODE("Application");
175cdf0e10cSrcweir
176cdf0e10cSrcweir // am Modul?
177cdf0e10cSrcweir else if ( rShell.ISA(SfxModule) )
178cdf0e10cSrcweir aStatement = DEFINE_CONST_UNICODE("ActiveModule");
179cdf0e10cSrcweir
180cdf0e10cSrcweir // am Dokument
181cdf0e10cSrcweir else if ( rShell.ISA(SfxObjectShell) )
182cdf0e10cSrcweir aStatement = DEFINE_CONST_UNICODE("ActiveDocument");
183cdf0e10cSrcweir
184cdf0e10cSrcweir // am Window
185cdf0e10cSrcweir else if ( rShell.ISA(SfxViewShell) || rShell.ISA(SfxViewFrame) )
186cdf0e10cSrcweir aStatement = DEFINE_CONST_UNICODE("ActiveWindow");
187cdf0e10cSrcweir
188cdf0e10cSrcweir else
189cdf0e10cSrcweir // an einer Sub-Shell
190cdf0e10cSrcweir aStatement = DEFINE_CONST_UNICODE("Selection");
191cdf0e10cSrcweir }
192cdf0e10cSrcweir }
193cdf0e10cSrcweir
194cdf0e10cSrcweir if ( bIsSel )
195cdf0e10cSrcweir {
196cdf0e10cSrcweir // bei Selection ggf. noch den Namen der SubShell anh"angen
197cdf0e10cSrcweir const SfxShellObject *pShObj =
198cdf0e10cSrcweir (const SfxShellObject*) rShell.GetSbxObject();
199cdf0e10cSrcweir if ( pShObj )
200cdf0e10cSrcweir {
201cdf0e10cSrcweir const SfxShellObject *pParentObj =
202cdf0e10cSrcweir (const SfxShellObject*) pShObj->GetParent();
203cdf0e10cSrcweir SfxShell *pParentSh = pParentObj->GetShell();
204cdf0e10cSrcweir DBG_ASSERT( pParentSh->ISA(SfxViewFrame),
205cdf0e10cSrcweir "parent of SubShell must be a Frame" );
206cdf0e10cSrcweir if ( rSlot.pName[0] == '.' )
207cdf0e10cSrcweir {
208cdf0e10cSrcweir aStatement += '.';
209cdf0e10cSrcweir aStatement += rShell.GetSbxObject()->GetName();
210cdf0e10cSrcweir }
211cdf0e10cSrcweir }
212cdf0e10cSrcweir else
213cdf0e10cSrcweir DBG_ASSERT( rSlot.pName[0] != '0', "recording unnamed object" );
214cdf0e10cSrcweir }
215cdf0e10cSrcweir */
216cdf0e10cSrcweir aStatement = DEFINE_CONST_UNICODE("Selection");
217cdf0e10cSrcweir
218cdf0e10cSrcweir // an diesen Objekt-Ausdruck den Methoden-/Property-Namen und Parameter
219cdf0e10cSrcweir GenerateNameAndArgs_Impl( SfxRequest::GetRecordingMacro(), rSlot, bRequestDone, aArgs);
220cdf0e10cSrcweir }
221cdf0e10cSrcweir
222cdf0e10cSrcweir //--------------------------------------------------------------------
223cdf0e10cSrcweir
SfxMacroStatement(const String & rTarget,const SfxSlot & rSlot,sal_Bool bRequestDone,::com::sun::star::uno::Sequence<::com::sun::star::beans::PropertyValue> & rArgs)224cdf0e10cSrcweir SfxMacroStatement::SfxMacroStatement
225cdf0e10cSrcweir (
226cdf0e10cSrcweir const String& rTarget, // Objekt, was beim Playing angesprochen wird
227cdf0e10cSrcweir const SfxSlot& rSlot, // der <SfxSlot>, der das Statement abspielen kann
228cdf0e10cSrcweir sal_Bool bRequestDone, // wurde der Request tats"achlich ausgef"uhrt
229cdf0e10cSrcweir ::com::sun::star::uno::Sequence < ::com::sun::star::beans::PropertyValue >& rArgs
230cdf0e10cSrcweir )
231cdf0e10cSrcweir
232cdf0e10cSrcweir /* [Beschreibung]
233cdf0e10cSrcweir
234cdf0e10cSrcweir
235cdf0e10cSrcweir [Querverweise]
236cdf0e10cSrcweir
237cdf0e10cSrcweir <SfxMacroStatement::SfxMacroStatement(const String&)>
238cdf0e10cSrcweir <SfxMacroStatement::SfxMacroStatement(const SfxShell&,sal_Bool,const SfxSlot&,sal_Bool,SfxArguments*)>
239cdf0e10cSrcweir */
240cdf0e10cSrcweir
241cdf0e10cSrcweir : nSlotId( rSlot.GetSlotId() ),
242cdf0e10cSrcweir aArgs( rArgs ),
243cdf0e10cSrcweir bDone( bRequestDone ),
244cdf0e10cSrcweir pDummy( 0 )
245cdf0e10cSrcweir {
246cdf0e10cSrcweir aStatement = rTarget;
247cdf0e10cSrcweir aStatement += '.';
248cdf0e10cSrcweir GenerateNameAndArgs_Impl( SfxRequest::GetRecordingMacro(), rSlot, bRequestDone, aArgs);
249cdf0e10cSrcweir }
250cdf0e10cSrcweir
251cdf0e10cSrcweir //--------------------------------------------------------------------
252cdf0e10cSrcweir
SfxMacroStatement(const String & rStatement)253cdf0e10cSrcweir SfxMacroStatement::SfxMacroStatement
254cdf0e10cSrcweir (
255cdf0e10cSrcweir const String& rStatement // manuell erzeugte(s) Statement(s)
256cdf0e10cSrcweir )
257cdf0e10cSrcweir
258cdf0e10cSrcweir /* [Beschreibung]
259cdf0e10cSrcweir
260cdf0e10cSrcweir Dieser Konstruktor erzeugt eine SfxMacroStatement-Instanz, deren
261cdf0e10cSrcweir Aufbau vollst"andig vom Applikationsentwickler bestimmt wird. Da der
262cdf0e10cSrcweir angegebene String auch mehrere mit CR/LF getrennte Statements
263cdf0e10cSrcweir enthalten darf, ist damit ein weitgehender Eingriff in das Aufzeichnen
264cdf0e10cSrcweir von BASIC-Makros m"oglich, um Spezialf"alle zu behandeln.
265cdf0e10cSrcweir
266cdf0e10cSrcweir
267cdf0e10cSrcweir [Querverweise]
268cdf0e10cSrcweir
269cdf0e10cSrcweir <SfxMacroStatement::SfxMacroStatement(const String&,const SfxSlot&,sal_Bool,SfxArguments*)>
270cdf0e10cSrcweir <SfxMacroStatement::SfxMacroStatement(const SfxShell&,sal_Bool,const SfxSlot&,sal_Bool,SfxArguments*)>
271cdf0e10cSrcweir */
272cdf0e10cSrcweir
273cdf0e10cSrcweir : nSlotId( 0 ),
274cdf0e10cSrcweir aStatement( rStatement ),
275cdf0e10cSrcweir bDone( sal_True ),
276cdf0e10cSrcweir pDummy( 0 )
277cdf0e10cSrcweir {
278cdf0e10cSrcweir }
279cdf0e10cSrcweir
280cdf0e10cSrcweir //--------------------------------------------------------------------
281cdf0e10cSrcweir
SfxMacroStatement(const SfxMacroStatement & rOrig)282cdf0e10cSrcweir SfxMacroStatement::SfxMacroStatement
283cdf0e10cSrcweir (
284cdf0e10cSrcweir const SfxMacroStatement& rOrig // Original, von dem kopiert wird
285cdf0e10cSrcweir )
286cdf0e10cSrcweir
287cdf0e10cSrcweir /* [Beschreibung]
288cdf0e10cSrcweir
289cdf0e10cSrcweir Copy-Konstruktor der SfxMacroStatement-Klasse.
290cdf0e10cSrcweir */
291cdf0e10cSrcweir
292cdf0e10cSrcweir : nSlotId( rOrig.nSlotId ),
293cdf0e10cSrcweir aStatement( rOrig.aStatement ),
294cdf0e10cSrcweir bDone( rOrig.bDone ),
295cdf0e10cSrcweir pDummy( 0 )
296cdf0e10cSrcweir {
297cdf0e10cSrcweir aArgs = rOrig.aArgs;
298cdf0e10cSrcweir }
299cdf0e10cSrcweir
300cdf0e10cSrcweir //--------------------------------------------------------------------
301cdf0e10cSrcweir
~SfxMacroStatement()302cdf0e10cSrcweir SfxMacroStatement::~SfxMacroStatement()
303cdf0e10cSrcweir
304cdf0e10cSrcweir /* [Beschreibung]
305cdf0e10cSrcweir
306cdf0e10cSrcweir Destruktor der Klasse SfxMacroStatement. Gibt die Liste der
307cdf0e10cSrcweir aktuellen Parameter frei.
308cdf0e10cSrcweir */
309cdf0e10cSrcweir
310cdf0e10cSrcweir {
311cdf0e10cSrcweir }
312cdf0e10cSrcweir
313cdf0e10cSrcweir //--------------------------------------------------------------------
314cdf0e10cSrcweir
GenerateNameAndArgs_Impl(SfxMacro *,const SfxSlot & rSlot,sal_Bool bRequestDone,::com::sun::star::uno::Sequence<::com::sun::star::beans::PropertyValue> &)315cdf0e10cSrcweir void SfxMacroStatement::GenerateNameAndArgs_Impl
316cdf0e10cSrcweir (
317cdf0e10cSrcweir SfxMacro* /*pMacro*/, // darin wird aufgezeichnet
318cdf0e10cSrcweir const SfxSlot& rSlot, // der Slot, der das Statement abspielen kann
319cdf0e10cSrcweir sal_Bool bRequestDone, // sal_True=wurde ausgef"uhrt, sal_False=abgebrochen
320cdf0e10cSrcweir ::com::sun::star::uno::Sequence < ::com::sun::star::beans::PropertyValue >& /*rArgs*/
321cdf0e10cSrcweir )
322cdf0e10cSrcweir
323cdf0e10cSrcweir /* [Beschreibung]
324cdf0e10cSrcweir
325cdf0e10cSrcweir Interne Hilfsmethode zum generieren des Funktions-/Property-Names
326cdf0e10cSrcweir sowie der Parameter. Diese Methode wird nur verwendet, wenn der
327cdf0e10cSrcweir Anwendungsprogrammierer keinen eigenen Source an den <SfxRequest>
328cdf0e10cSrcweir geh"angt hat.
329cdf0e10cSrcweir */
330cdf0e10cSrcweir
331cdf0e10cSrcweir {
332cdf0e10cSrcweir if ( aStatement.Len() && aStatement.GetChar( aStatement.Len() - 1 ) != '.'
333cdf0e10cSrcweir && rSlot.pName[0] != '.' )
334cdf0e10cSrcweir aStatement += '.';
335cdf0e10cSrcweir
336cdf0e10cSrcweir // der Name des Slots ist der Name der Methode / des Properties
337*24c56ab9SHerbert Dürr aStatement += String( rtl::OStringToOUString( rSlot.pName, RTL_TEXTENCODING_UTF8));
338cdf0e10cSrcweir if ( rSlot.IsMode(SFX_SLOT_METHOD) )
339cdf0e10cSrcweir aStatement += DEFINE_CONST_UNICODE("( ");
340cdf0e10cSrcweir else
341cdf0e10cSrcweir aStatement += DEFINE_CONST_UNICODE(" = ");
342cdf0e10cSrcweir
343cdf0e10cSrcweir // alle zusammengesuchten Parameter rausschreiben
344cdf0e10cSrcweir if ( aArgs.getLength() )
345cdf0e10cSrcweir for ( sal_uInt16 nArg = 0; nArg < aArgs.getLength(); ++nArg )
346cdf0e10cSrcweir {
347cdf0e10cSrcweir // den Parameter textuell darstellen
348cdf0e10cSrcweir String aArg;
349cdf0e10cSrcweir ::com::sun::star::uno::Any& rValue = aArgs[nArg].Value;
350cdf0e10cSrcweir ::com::sun::star::uno::Type pType = rValue.getValueType();
351cdf0e10cSrcweir if ( pType == ::getBooleanCppuType() )
352cdf0e10cSrcweir {
353cdf0e10cSrcweir sal_Bool bTemp = false;
354cdf0e10cSrcweir rValue >>= bTemp;
355cdf0e10cSrcweir aArg = bTemp ? DEFINE_CONST_UNICODE("TRUE") : DEFINE_CONST_UNICODE("FALSE");
356cdf0e10cSrcweir }
357cdf0e10cSrcweir else if ( pType == ::getCppuType((const sal_Int16*)0) )
358cdf0e10cSrcweir {
359cdf0e10cSrcweir sal_uInt16 nTemp = 0;
360cdf0e10cSrcweir rValue >>= nTemp;
361cdf0e10cSrcweir aArg = String::CreateFromInt32( (sal_Int32) nTemp );
362cdf0e10cSrcweir }
363cdf0e10cSrcweir else if ( pType == ::getCppuType((const sal_Int32*)0) )
364cdf0e10cSrcweir {
365cdf0e10cSrcweir sal_uInt32 nTemp = 0;
366cdf0e10cSrcweir rValue >>= nTemp;
367cdf0e10cSrcweir aArg = String::CreateFromInt32( nTemp );
368cdf0e10cSrcweir }
369cdf0e10cSrcweir else if ( pType == ::getCppuType((const ::rtl::OUString*)0) )
370cdf0e10cSrcweir {
371cdf0e10cSrcweir ::rtl::OUString sTemp;
372cdf0e10cSrcweir rValue >>= sTemp;
373cdf0e10cSrcweir
374cdf0e10cSrcweir // Anf"uhrungszeichen werden verdoppelt
375cdf0e10cSrcweir XubString aRecordable( sTemp );
376cdf0e10cSrcweir sal_uInt16 nPos = 0;
377cdf0e10cSrcweir while ( sal_True )
378cdf0e10cSrcweir {
379cdf0e10cSrcweir nPos = aRecordable.SearchAndReplace( DEFINE_CONST_UNICODE('"'), DEFINE_CONST_UNICODE("\"\""), nPos );
380cdf0e10cSrcweir if ( STRING_NOTFOUND == nPos )
381cdf0e10cSrcweir break;
382cdf0e10cSrcweir nPos += 2;
383cdf0e10cSrcweir }
384cdf0e10cSrcweir
385cdf0e10cSrcweir // nicht druckbare Zeichen werden als chr$(...) geschrieben
386cdf0e10cSrcweir bool bPrevReplaced = sal_False;
387cdf0e10cSrcweir for ( sal_uInt16 n = 0; n < aRecordable.Len(); ++n )
388cdf0e10cSrcweir {
389cdf0e10cSrcweir sal_Unicode cChar = aRecordable.GetChar(n);
390cdf0e10cSrcweir if ( !( cChar>=32 && cChar!=127 ) ) // ALS ERSATZ FUER String::IsPrintable()!
391cdf0e10cSrcweir {
392cdf0e10cSrcweir XubString aReplacement( DEFINE_CONST_UNICODE("+chr$(") );
393cdf0e10cSrcweir aReplacement += cChar;
394cdf0e10cSrcweir
395cdf0e10cSrcweir if ( bPrevReplaced )
396cdf0e10cSrcweir {
397cdf0e10cSrcweir aRecordable.Insert( aReplacement, n - 2 );
398cdf0e10cSrcweir n = n + aReplacement.Len();
399cdf0e10cSrcweir aRecordable.SetChar((unsigned short) (n-2), 0x0029);// ')' = 29h
400cdf0e10cSrcweir aRecordable.Replace( n-1, 2, DEFINE_CONST_UNICODE("+\"") );
401cdf0e10cSrcweir // ++n;
402cdf0e10cSrcweir }
403cdf0e10cSrcweir else
404cdf0e10cSrcweir {
405cdf0e10cSrcweir aReplacement += DEFINE_CONST_UNICODE(")+\"");
406cdf0e10cSrcweir aRecordable.SetChar(n, 0x0022 );// '"' = 22h
407cdf0e10cSrcweir aRecordable.Insert( aReplacement, n + 1 );
408cdf0e10cSrcweir n = n + aReplacement.Len();
409cdf0e10cSrcweir }
410cdf0e10cSrcweir bPrevReplaced = sal_True;
411cdf0e10cSrcweir }
412cdf0e10cSrcweir else
413cdf0e10cSrcweir bPrevReplaced = sal_False;
414cdf0e10cSrcweir
415cdf0e10cSrcweir // Argument in Anf"uhrungszeichen
416cdf0e10cSrcweir aArg = '"';
417cdf0e10cSrcweir aArg += aRecordable;
418cdf0e10cSrcweir aArg += '"';
419cdf0e10cSrcweir }
420cdf0e10cSrcweir /*
421cdf0e10cSrcweir case SbxBYTE:
422cdf0e10cSrcweir {
423cdf0e10cSrcweir // als Zahl darstellen
424cdf0e10cSrcweir aArg = (sal_uInt16) rVar.GetByte();
425cdf0e10cSrcweir break;
426cdf0e10cSrcweir }
427cdf0e10cSrcweir */
428cdf0e10cSrcweir }
429cdf0e10cSrcweir else
430cdf0e10cSrcweir {
431cdf0e10cSrcweir OSL_ENSURE(
432cdf0e10cSrcweir pType == ::getVoidCppuType(), "Unknown Type in recorder!" );
433cdf0e10cSrcweir }
434cdf0e10cSrcweir
435cdf0e10cSrcweir // den Parameter anh"angen
436cdf0e10cSrcweir aStatement += aArg;
437cdf0e10cSrcweir aStatement += DEFINE_CONST_UNICODE(", ");
438cdf0e10cSrcweir }
439cdf0e10cSrcweir
440cdf0e10cSrcweir // Statement beeden
441cdf0e10cSrcweir if ( aArgs.getLength() )
442cdf0e10cSrcweir aStatement.Erase( aStatement.Len() - 2, 1 );
443cdf0e10cSrcweir else
444cdf0e10cSrcweir aStatement.Erase( aStatement.Len() - 1, 1 );
445cdf0e10cSrcweir if ( rSlot.IsMode(SFX_SLOT_METHOD) )
446cdf0e10cSrcweir aStatement += ')';
447cdf0e10cSrcweir
448cdf0e10cSrcweir if ( !bRequestDone )
449cdf0e10cSrcweir // nicht als "Done()" gekennzeichnete Statements auskommentieren
450cdf0e10cSrcweir aStatement.InsertAscii( "rem ", 0 );
451cdf0e10cSrcweir }
452cdf0e10cSrcweir
453cdf0e10cSrcweir //--------------------------------------------------------------------
454cdf0e10cSrcweir
SfxMacro(SfxMacroMode eMode)455cdf0e10cSrcweir SfxMacro::SfxMacro
456cdf0e10cSrcweir (
457cdf0e10cSrcweir SfxMacroMode eMode // Zweck der Instanz, siehe <SfxMacroMode>
458cdf0e10cSrcweir )
459cdf0e10cSrcweir
460cdf0e10cSrcweir /* [Beschreibung]
461cdf0e10cSrcweir
462cdf0e10cSrcweir Konstruktor der Klasse SfxMacro. Instanzen dieser Klasse werden im
463cdf0e10cSrcweir SFx zu zwei Zwecken ben"otigt:
464cdf0e10cSrcweir
465cdf0e10cSrcweir 1. zum Aufzeichnen von Makros
466cdf0e10cSrcweir In diesem Fall wird der Konstruktor mit SFX_MACRO_RECORDINGABSOLUTE
467cdf0e10cSrcweir oder SFX_MACRO_RECORDINGRELATIVE aufgerufen. Es sollte sich um eine
468cdf0e10cSrcweir Instanz einer abgeleiteten Klasse handeln, um in der Ableitung
469cdf0e10cSrcweir die Information dar"uber unterzubringen, wo das Makro gespeichert
470cdf0e10cSrcweir werden soll. Ein solches Makro solle sich dann in seinem Destruktor
471cdf0e10cSrcweir an der vom Benutzer gew"ahlten Stelle speichern.
472cdf0e10cSrcweir
473cdf0e10cSrcweir 2. zum Zuordnen von exisitierenden Makros
474cdf0e10cSrcweir In diesem Fall wird der Konstruktor mit SFX_MACRO_EXISTING aufgerufen.
475cdf0e10cSrcweir Eine solche Instanz wird z.B. ben"otigt, wenn Makros auf Events
476cdf0e10cSrcweir oder <SfxControllerItem>s konfiguriert werden sollen.
477cdf0e10cSrcweir */
478cdf0e10cSrcweir
479cdf0e10cSrcweir : pImp( new SfxMacro_Impl )
480cdf0e10cSrcweir
481cdf0e10cSrcweir {
482cdf0e10cSrcweir pImp->eMode = eMode;
483cdf0e10cSrcweir }
484cdf0e10cSrcweir
485cdf0e10cSrcweir //--------------------------------------------------------------------
486cdf0e10cSrcweir
~SfxMacro()487cdf0e10cSrcweir SfxMacro::~SfxMacro()
488cdf0e10cSrcweir
489cdf0e10cSrcweir /* [Beschreibung]
490cdf0e10cSrcweir
491cdf0e10cSrcweir Virtueller Destruktor der Klasse SfxMacro. Dieser sollte in den
492cdf0e10cSrcweir abgeleiteten Klassen "uberladen werden, um in den Modi
493cdf0e10cSrcweir SFX_MACRO_RECORDINGABSOLUTE und SFX_MACRO_RECORDINGRELATIVE den
494cdf0e10cSrcweir aufgezeichneten Source abzuspeichern.
495cdf0e10cSrcweir
496cdf0e10cSrcweir
497cdf0e10cSrcweir [Querverweise]
498cdf0e10cSrcweir
499cdf0e10cSrcweir <SfxMacro::GenerateSource()const>
500cdf0e10cSrcweir */
501cdf0e10cSrcweir
502cdf0e10cSrcweir {
503cdf0e10cSrcweir #if OSL_DEBUG_LEVEL > 1
504cdf0e10cSrcweir SvFileStream aStream( String::CreateFromAscii("file:///f:/testmacro.bas" ), STREAM_STD_READWRITE | STREAM_TRUNC );
505cdf0e10cSrcweir aStream << ByteString( GenerateSource(), RTL_TEXTENCODING_UTF8 ).GetBuffer();
506cdf0e10cSrcweir #endif
507cdf0e10cSrcweir delete pImp;
508cdf0e10cSrcweir }
509cdf0e10cSrcweir
510cdf0e10cSrcweir //--------------------------------------------------------------------
511cdf0e10cSrcweir
GetMode() const512cdf0e10cSrcweir SfxMacroMode SfxMacro::GetMode() const
513cdf0e10cSrcweir
514cdf0e10cSrcweir /* [Beschreibung]
515cdf0e10cSrcweir
516cdf0e10cSrcweir Liefert den Modus, der besagt zu welchem Zweck das SfxMacro konstruiert
517cdf0e10cSrcweir wurde.
518cdf0e10cSrcweir
519cdf0e10cSrcweir
520cdf0e10cSrcweir [Querverweise]
521cdf0e10cSrcweir
522cdf0e10cSrcweir enum <SfxMacroMode>
523cdf0e10cSrcweir */
524cdf0e10cSrcweir
525cdf0e10cSrcweir {
526cdf0e10cSrcweir return pImp->eMode;
527cdf0e10cSrcweir }
528cdf0e10cSrcweir
529cdf0e10cSrcweir //--------------------------------------------------------------------
530cdf0e10cSrcweir
Record(SfxMacroStatement * pStatement)531cdf0e10cSrcweir void SfxMacro::Record
532cdf0e10cSrcweir (
533cdf0e10cSrcweir SfxMacroStatement* pStatement // aufzuzeichnendes <SfxMacroStatement>
534cdf0e10cSrcweir )
535cdf0e10cSrcweir
536cdf0e10cSrcweir /* [Beschreibung]
537cdf0e10cSrcweir
538cdf0e10cSrcweir Diese Methode zeichnet das als Parameter "ubergeben Statement auf.
539cdf0e10cSrcweir Die Instanz auf die der "ubergebe Pointer zeigt, geht in das Eigentum
540cdf0e10cSrcweir des SfxMacro "uber.
541cdf0e10cSrcweir
542cdf0e10cSrcweir Der Aufruf ist nur g"ultig, wenn es sich um ein SfxMacro handelt,
543cdf0e10cSrcweir welches mit SFX_MACRO_RECORDINGABSOLUTE oder SFX_MACRO_RECORDINGRELATIVE
544cdf0e10cSrcweir konstruiert wirde.
545cdf0e10cSrcweir
546cdf0e10cSrcweir
547cdf0e10cSrcweir [Querverweise]
548cdf0e10cSrcweir
549cdf0e10cSrcweir <SfxMacro::Replace(SfxMacroStatement*)>
550cdf0e10cSrcweir <SfxMacro::Remove()>
551cdf0e10cSrcweir <SfxMacro::GetLastStatement()const>
552cdf0e10cSrcweir */
553cdf0e10cSrcweir
554cdf0e10cSrcweir {
555cdf0e10cSrcweir DBG_ASSERT( pImp->eMode != SFX_MACRO_EXISTING, "invalid call to non-recording SfxMacro" );
556cdf0e10cSrcweir pImp->aList.C40_INSERT( SfxMacroStatement, pStatement, pImp->aList.Count() );
557cdf0e10cSrcweir }
558cdf0e10cSrcweir
559cdf0e10cSrcweir //--------------------------------------------------------------------
560cdf0e10cSrcweir
Replace(SfxMacroStatement * pStatement)561cdf0e10cSrcweir void SfxMacro::Replace
562cdf0e10cSrcweir (
563cdf0e10cSrcweir SfxMacroStatement* pStatement // aufzuzeichnendes <SfxMacroStatement>
564cdf0e10cSrcweir )
565cdf0e10cSrcweir
566cdf0e10cSrcweir /* [Beschreibung]
567cdf0e10cSrcweir
568cdf0e10cSrcweir Diese Methode zeichnet das als Parameter "ubergeben Statement auf.
569cdf0e10cSrcweir Dabei wird das jeweils zuletzt aufgezeichnete Statement "uberschrieben.
570cdf0e10cSrcweir Die Instanz auf die der "ubergebe Pointer zeigt, geht in das Eigentum
571cdf0e10cSrcweir des SfxMacro "uber.
572cdf0e10cSrcweir
573cdf0e10cSrcweir Mit dieser Methode ist es m"oglich, Statements zusammenzufassen. Z.B.
574cdf0e10cSrcweir anstelle f"unfmal hintereinander 'CursorLeft()' aufzurufen, k"onnte
575cdf0e10cSrcweir das zu 'CursorLeft(5)' zusammengefa\st werden. Oder anstelle ein Wort
576cdf0e10cSrcweir Buchstabe f"ur Buchstabe aufzubauen, k"onnte dies durch ein einziges
577cdf0e10cSrcweir Statement 'InsertString("Hallo")' ersetzt werden.
578cdf0e10cSrcweir
579cdf0e10cSrcweir Der Aufruf ist nur g"ultig, wenn es sich um ein SfxMacro handelt,
580cdf0e10cSrcweir welches mit SFX_MACRO_RECORDINGABSOLUTE oder SFX_MACRO_RECORDINGRELATIVE
581cdf0e10cSrcweir konstruiert wurde und bereits ein aufgezeichnetes Statement vorhanden
582cdf0e10cSrcweir ist.
583cdf0e10cSrcweir
584cdf0e10cSrcweir
585cdf0e10cSrcweir [Anmerkung]
586cdf0e10cSrcweir
587cdf0e10cSrcweir Diese Methode wird typischerweise aus den Execute-Methoden der
588cdf0e10cSrcweir <SfxSlot>s von den Applikationsentwicklern gerufen.
589cdf0e10cSrcweir
590cdf0e10cSrcweir
591cdf0e10cSrcweir [Querverweise]
592cdf0e10cSrcweir
593cdf0e10cSrcweir <SfxMacro::Record(SfxMacroStatement*)>
594cdf0e10cSrcweir <SfxMacro::Remove()>
595cdf0e10cSrcweir <SfxMacro::GetLastStatement()const>
596cdf0e10cSrcweir */
597cdf0e10cSrcweir
598cdf0e10cSrcweir {
599cdf0e10cSrcweir DBG_ASSERT( pImp->eMode != SFX_MACRO_EXISTING, "invalid call to non-recording SfxMacro" );
600cdf0e10cSrcweir DBG_ASSERT( pImp->aList.Count(), "no replaceable statement available" );
601cdf0e10cSrcweir pImp->aList.Remove( pImp->aList.Count() - 1 );
602cdf0e10cSrcweir pImp->aList.C40_INSERT( SfxMacroStatement,pStatement, pImp->aList.Count() );
603cdf0e10cSrcweir }
604cdf0e10cSrcweir
605cdf0e10cSrcweir //--------------------------------------------------------------------
606cdf0e10cSrcweir
Remove()607cdf0e10cSrcweir void SfxMacro::Remove()
608cdf0e10cSrcweir
609cdf0e10cSrcweir /* [Beschreibung]
610cdf0e10cSrcweir
611cdf0e10cSrcweir Diese Methode l"oscht das zuletzt aufgezeichnete <SfxMacroStatement>
612cdf0e10cSrcweir und entfernt es aus dem Macro.
613cdf0e10cSrcweir
614cdf0e10cSrcweir Mit dieser Methode ist es m"oglich, Statements zusammenzufassen. Z.B.
615cdf0e10cSrcweir anstelle f"unfmal hintereinander 'CursorLeft()' aufzurufen, k"onnte
616cdf0e10cSrcweir das zu 'CursorLeft(5)' zusammengefa\st werden. Oder anstelle ein Wort
617cdf0e10cSrcweir Buchstabe f"ur Buchstabe aufzubauen, k"onnte dies durch ein einziges
618cdf0e10cSrcweir Statement 'InsertString("Hallo")' ersetzt werden.
619cdf0e10cSrcweir
620cdf0e10cSrcweir Der Aufruf ist nur g"ultig, wenn es sich um ein SfxMacro handelt,
621cdf0e10cSrcweir welches mit SFX_MACRO_RECORDINGABSOLUTE oder SFX_MACRO_RECORDINGRELATIVE
622cdf0e10cSrcweir konstruiert wurde und bereits ein aufgezeichnetes Statement vorhanden
623cdf0e10cSrcweir ist.
624cdf0e10cSrcweir
625cdf0e10cSrcweir
626cdf0e10cSrcweir [Anmerkung]
627cdf0e10cSrcweir
628cdf0e10cSrcweir Diese Methode wird typischerweise aus den Execute-Methoden der
629cdf0e10cSrcweir <SfxSlot>s von den Applikationsentwicklern gerufen.
630cdf0e10cSrcweir
631cdf0e10cSrcweir
632cdf0e10cSrcweir [Querverweise]
633cdf0e10cSrcweir
634cdf0e10cSrcweir <SfxMacro::Replace(SfxMacroStatement*)>
635cdf0e10cSrcweir <SfxMacro::Record(SfxMacroStatement*)>
636cdf0e10cSrcweir <SfxMacro::GetLastStatement()const>
637cdf0e10cSrcweir */
638cdf0e10cSrcweir
639cdf0e10cSrcweir {
640cdf0e10cSrcweir DBG_ASSERT( pImp->eMode != SFX_MACRO_EXISTING, "invalid call to non-recording SfxMacro" );
641cdf0e10cSrcweir DBG_ASSERT( pImp->aList.Count(), "no replaceable statement available" );
642cdf0e10cSrcweir pImp->aList.Remove( pImp->aList.Count() - 1 );
643cdf0e10cSrcweir }
644cdf0e10cSrcweir
645cdf0e10cSrcweir //--------------------------------------------------------------------
646cdf0e10cSrcweir
GetLastStatement() const647cdf0e10cSrcweir const SfxMacroStatement* SfxMacro::GetLastStatement() const
648cdf0e10cSrcweir
649cdf0e10cSrcweir /* [Beschreibung]
650cdf0e10cSrcweir
651cdf0e10cSrcweir Mit dieser Methode kann auf das jeweils zuletzt aufgezeichnete Statement
652cdf0e10cSrcweir lesend zugegriffen werden. Zusammen mit der Methode
653cdf0e10cSrcweir <SfxMacro::Replace(SfxMacroStatement*)> ergibt sich dadurch die
654cdf0e10cSrcweir M"oglichkeit, Statements zusammenzufassen.
655cdf0e10cSrcweir
656cdf0e10cSrcweir Der Aufruf ist nur g"ultig, wenn es sich um ein SfxMacro handelt,
657cdf0e10cSrcweir welches mit SFX_MACRO_RECORDINGABSOLUTE oder SFX_MACRO_RECORDINGRELATIVE
658cdf0e10cSrcweir konstruiert wurde.
659cdf0e10cSrcweir
660cdf0e10cSrcweir
661cdf0e10cSrcweir [Querverweise]
662cdf0e10cSrcweir
663cdf0e10cSrcweir <SfxMacro::Record(SfxMacroStatement*)>
664cdf0e10cSrcweir <SfxMacro::Replace(SfxMacroStatement*)>
665cdf0e10cSrcweir */
666cdf0e10cSrcweir
667cdf0e10cSrcweir {
668cdf0e10cSrcweir DBG_ASSERT( pImp->eMode != SFX_MACRO_EXISTING, "invalid call to non-recording SfxMacro" );
669cdf0e10cSrcweir if ( pImp->aList.Count() )
670cdf0e10cSrcweir return pImp->aList.GetObject( pImp->aList.Count() - 1 );
671cdf0e10cSrcweir return 0;
672cdf0e10cSrcweir }
673cdf0e10cSrcweir
674cdf0e10cSrcweir //--------------------------------------------------------------------
675cdf0e10cSrcweir
GenerateSource() const676cdf0e10cSrcweir String SfxMacro::GenerateSource() const
677cdf0e10cSrcweir
678cdf0e10cSrcweir /* [Beschreibung]
679cdf0e10cSrcweir
680cdf0e10cSrcweir Diese Funktion generiert aus den, seit dem Konstruieren der Instanz
681cdf0e10cSrcweir bis zum Zeitpunkt des Aufrufs dieser Methode aufgezeichneten
682cdf0e10cSrcweir <SfxMacroStatement>s einen BASIC-Sourcecode, der die Statements,
683cdf0e10cSrcweir jedoch nicht den Header ('Sub X') und den Footer ('End Sub') enth"alt.
684cdf0e10cSrcweir
685cdf0e10cSrcweir
686cdf0e10cSrcweir [Querverweise]
687cdf0e10cSrcweir
688cdf0e10cSrcweir <SfxMacro::Record(SfxMacroStatement*)>
689cdf0e10cSrcweir <SfxMacro::Repeat(SfxMacroStatement*)>
690cdf0e10cSrcweir */
691cdf0e10cSrcweir
692cdf0e10cSrcweir {
693cdf0e10cSrcweir DBG_ASSERT( pImp->eMode != SFX_MACRO_EXISTING, "invalid call to non-recording SfxMacro" );
694cdf0e10cSrcweir String aSource;
695cdf0e10cSrcweir for ( sal_uInt16 n = 0; n < pImp->aList.Count(); ++n )
696cdf0e10cSrcweir {
697cdf0e10cSrcweir aSource += pImp->aList.GetObject(n)->GetStatement();
698cdf0e10cSrcweir if ( (n+1) < pImp->aList.Count() )
699cdf0e10cSrcweir aSource += DEFINE_CONST_UNICODE("\n");
700cdf0e10cSrcweir }
701cdf0e10cSrcweir
702cdf0e10cSrcweir return aSource;
703cdf0e10cSrcweir }
704cdf0e10cSrcweir
705