OWLNext    7.0
Borland's Object Windows Library for the modern age
•All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Modules Pages
automacr.h
Go to the documentation of this file.
1//----------------------------------------------------------------------------
2// ObjectComponents
3// Copyright (c) 1994, 1996 by Borland International, All Rights Reserved
4/// \file
5/// Automation Symbol Table, Command, and Proxy Macro Definitions
6//----------------------------------------------------------------------------
7
8#if !defined(OCF_AUTOMACR_H)
9#define OCF_AUTOMACR_H
10
11#include <owl/private/defs.h>
12#if defined(BI_HAS_PRAGMA_ONCE)
13# pragma once
14#endif
15
16#include <ocf/autodefs.h>
17
18//
19// Suppress "Functions taking class-by-value arg(s) are not expanded inline"
20//
21#if defined(BI_COMP_BORLANDC)
22# pragma warn .inl
23#endif
24
25
26namespace ocf {
27
28//----------------------------------------------------------------------------
29//
30// Macros for defining symbol tables
31//
32//----------------------------------------------------------------------------
33//
34// DEFINE_AUTOCLASS(C++ClassName)
35//
36// EXPOSE_METHOD(IntName, ReturnTypeName, ExtName, DocString, HelpContext)
37// EXPOSE_PROPRW(IntName, PropTypeName, ExtName, DocString, HelpContext)
38// EXPOSE_PROPRO(IntName, PropTypeName, ExtName, DocString, HelpContext)
39// EXPOSE_PROPWO(IntName, PropTypeName, ExtName, DocString, HelpContext)
40// EXPOSE_APPLICATION( AppTypeName, ExtName, DocString, HelpContext)
41// EXPOSE_QUIT( ExtName, DocString, HelpContext)
42//
43// REQUIRED_ARG(TypeName, ExtArgName)
44// OPTIONAL_ARG(TypeName, ExtArgName, DefaultValueString)
45//
46// EXPOSE_INHERIT(C++ClassName, ExtClassName)
47// EXPOSE_DELEGATE(C++ClassName, ExtClassName, AddressAdjusterFunction)
48//
49// EXPOSE_FACTORY(C++ClassName, ExtClassName, C++BaseClass)
50//
51// END_AUTOCLASS(C++ClassName , Typeflags, ExtName, DocString, HelpContext)
52//
53// For automated classes which are, inherit from, or delegate to COM objects:
54// Specify the aggregator function for a pre-existing object of the aggreate.
55//
56// DEFINE_AUTOAGGREGATE(C++ClassName, AggregatorFunction)
57// END_AUTOAGGREGATE(C++ClassName, ExtClassName, DocString, HelpContext)
58//
59//----------------------------------------------------------------------------
60
61#define DEFINE_AUTOCLASS(cls) \
62 TAutoSymbol cls::SymbolTable[] = {
63
64#define END_AUTOCLASS(cls, flags, name, doc, help) {{name},{doc}, 0, \
65 flags,0,TAutoSymbol::InitAutoDestructor(cls::TCommand_dtr::Build),help} }; \
66 TAutoClass cls::ClassInfo(cls::SymbolTable, cls::SymbolTable + \
67 (sizeof(cls::SymbolTable)/sizeof(TAutoSymbol) - 1), typeid(cls), 0);
68
69#define DEFINE_AUTOAGGREGATE(cls, aggregator) \
70 IUnknown& cls::Aggregator(ObjectPtr inst, TUnknown& inner) \
71 { return ((cls*)inst)->aggregator(inner); } \
72 DEFINE_AUTOCLASS(cls)
73
74#define END_AUTOAGGREGATE(cls, flags, name, doc, help) {{name},{doc}, 0, \
75 flags,0,TAutoSymbol::InitAutoDestructor(cls::TCommand_dtr::Build),help} }; \
76 TAutoClass cls::ClassInfo(cls::SymbolTable, cls::SymbolTable + \
77 (sizeof(cls::SymbolTable)/sizeof(TAutoSymbol)-1),typeid(cls),cls::Aggregator);
78
79struct TAutoEventDummy {
80 struct TCommand_ {
81 static TAutoCommand* Build(ObjectPtr,int,TAutoStack&) {return 0;}
82 };
83};
84
85#define DEFINE_AUTOEVENTCLASS(cls) \
86 class cls {static TAutoClass ClassInfo; static TAutoSymbol SymbolTable[]; \
87 typedef TAutoEventDummy ThisClass; };\
88 TAutoSymbol cls::SymbolTable[] = {
89
90#define END_AUTOEVENTCLASS(cls, flags, name, doc, help) {{name},{doc}, 0, \
91 flags|tfEventSource, 0, 0,help} }; \
92 TAutoClass cls::ClassInfo(cls::SymbolTable, cls::SymbolTable + \
93 (sizeof(cls::SymbolTable)/sizeof(TAutoSymbol) - 1), typeid(cls), 0);
94
95#define DEFINE_AUTODISPATCH(cls) DEFINE_AUTOCLASS(cls)
96#define END_AUTODISPATCH(cls) END_AUTOCLASS(cls, 0, 0, 0)
97
98#define EXPOSE_METHOD(cmd, cls, name, doc, help) {{name},{doc},\
99 asMethod, -1, &cls::ClassInfo, ThisClass::TCommand_##cmd::Build, help},
100
101#define EXPOSE_METHOD_ID(id, cmd, cls, name, doc, help) {{name}, {doc},\
102 asMethod, id, &cls::ClassInfo, ThisClass::TCommand_##cmd::Build, help},
103
104#define EXPOSE_PROPRW(cmd, cls, name, doc, help) {{name},{doc},\
105 asGetSet, -1, &cls::ClassInfo, ThisClass::TCommand_##cmd::Build, help},
106
107#define EXPOSE_PROPRW_ID(id, cmd, cls, name, doc, help) {{name},{doc},\
108 asGetSet, id, &cls::ClassInfo, ThisClass::TCommand_##cmd::Build, help},
109
110#define EXPOSE_PROPRO(cmd, cls, name, doc, help) {{name},{doc},\
111 asGet, -1, &cls::ClassInfo, ThisClass::TCommand_##cmd::Build, help},
112
113#define EXPOSE_PROPRO_ID(id, cmd, cls, name, doc, help) {{name},{doc},\
114 asGet, id, &cls::ClassInfo, ThisClass::TCommand_##cmd::Build, help},
115
116#define EXPOSE_PROPWO(cmd, cls, name, doc, help) {{name},{doc},\
117 asSet, -1, &cls::ClassInfo, ThisClass::TCommand_##cmd::Build, help},
118
119#define EXPOSE_PROPWO_ID(id, cmd, cls, name, doc, help) {{name},{doc},\
120 asSet, id, &cls::ClassInfo, ThisClass::TCommand_##cmd::Build, help},
121
122#define EXPOSE_APPLICATION(cls, name, doc, help) {{name},{doc},\
123 asGet, -1, &cls::ClassInfo, ThisClass::TCommand_app::Build, help},
124
125#define EXPOSE_QUIT(name, doc, help) {{name},{doc},\
126 asMethod, -1, &TAutoVoid::ClassInfo, AutoQuitBuild, help},
127
128#define REQUIRED_ARG(cls, name) {{name}, {0}, \
129 asArgument, 0, &cls::ClassInfo, 0, 0},
130
131#define OPTIONAL_ARG(cls, name, dflt) {{name}, {dflt}, \
132 asArgument, 0, &cls::ClassInfo, 0, 0},
133
134#define EXPOSE_DELEGATE(cls, name, locator) {{name}, {0}, \
135 asClass, 0, &cls::ClassInfo, TAutoSymbol::InitTypeConvert(locator), 0},
136
137#define EXPOSE_INHERIT(cls, name) {{name}, {0}, asClass, 0, &cls::ClassInfo, \
138 TAutoSymbol::InitTypeConvert(TTypeConvert<cls,ThisClass>::Cast), 0},
139
140#define EXPOSE_FACTORY(cls, name, base) {{name}, {0}, asFactory, 0, \
141 &cls::ClassInfo, TAutoSymbol::InitTypeConvert(TTypeConvert<cls,base>::Cast), 0},
142
143#define EXPOSE_ITERATOR(cls, doc, help) {{_T("_NewEnum")},{doc}, asIterator, \
144 -4, &cls::ClassInfo, TAutoSymbol::InitAutoIterator(ThisClass::TIterator::Build), help},
145
146//
147// Macros to define enumeration lists
148//
149// DEFINE_AUTOENUM(EnumName, TAuto????)
150// AUTOENUM(EnumString1, constval1)
151// AUTOENUM(EnumString2, constval2)
152// AUTOENUM(EnumString3, constval3)
153// END_AUTOENUM(EnumName, TAuto????)
154//
155
156#define DEFINE_AUTOENUM(cls, type) \
157 TAutoEnumVal<type##Enum> cls##_Table[] = {
158
159#define AUTOENUM(name, val) {{name}, val},
160
161#define END_AUTOENUM(cls, type) }; \
162 struct cls { static TAutoEnumT<type##Enum> ClassInfo; }; \
163 TAutoEnumT<type##Enum> cls::ClassInfo(cls##_Table, \
164 sizeof(cls##_Table)/sizeof(TAutoEnumVal<type##Enum>),type::ClassInfo.GetType());
165
166typedef short TAutoShortEnum;
167typedef long TAutoLongEnum;
168typedef LPCTSTR TAutoStringEnum;
169typedef float TAutoFloatEnum;
170typedef double TAutoDoubleEnum;
171typedef bool TAutoBoolEnum;
172typedef TAutoCurrency TAutoCurrencyEnum;
173typedef TAutoDate TAutoDateEnum;
174typedef unsigned char TAutoByteEnum;
175
176//----------------------------------------------------------------------------
177//
178// Macros for defining command objects
179//
180//----------------------------------------------------------------------------
181//
182// DECLARE_AUTOCLASS(C++ClassName)
183// AUTOFUNC0 (InternalName, FuncName, Options)
184// AUTOFUNC1 (InternalName, FuncName, RetType, Arg1Type, Options)
185// AUTOFUNC2 (InternalName, FuncName, RetType, Arg1Type, Arg2Type, Options)
186// AUTOFUNC0V(InternalName, FuncName, Options) // void return
187// AUTOFUNC1V(InternalName, FuncName, Arg1Type, Options) // void return
188// AUTOFUNC2V(InternalName, FuncName, Arg1Type, Arg2Type, Options)
189// AUTODATA (InternalName, DataMember, DataType, Options)
190// AUTODATARO(InternalName, DataMember, DataType, Options)
191// AUTOPROP (InternalName, GetFuncName, SetFuncName, DataType, Options)
192// AUTOFLAG (InternalName, DataMember, BitMask, Options)
193// AUTOBUILD0(InternalName, Options)
194// AUTOBUILD1(InternalName, Arg1Type, Options)
195// AUTOBUILD2(InternalName, Arg1Type, Arg2Type, Options)
196// AUTOPROXY (InternalName, ProxyMember, Options)
197// AUTOITERATOR(AccessExpr, StateDefs, InitCode, TestExpr, StepCode)
198// AUTODETACH // invalidates external references upon object destruction
199//
200// For automated classes which are, inherit from, or delegate to COM objects,
201// use the following macro in place of DECLARE_AUTOCLASS:
202//
203// DECLARE_AUTOAGGREGATE(C++ClassName)
204//
205//----------------------------------------------------------------------------
206
207//
208// Macros to place in final argument to add capabilites, else leave empty
209//
210#define AUTOUNDO(code) TAutoCommand* Undo(){code} // declare an undo method
211#define AUTORECORD(code) int Record(TAutoStack& args){code}; // record method
212#define AUTOINVOKE(code) TAutoCommand& Invoke(){code return *this;}// override
213#define AUTOVALIDATE(condition) bool Validate() { return condition; }
214#define AUTONOHOOK TAutoCommand& Invoke() {Execute();}
215#define AUTOREPORT(errcode) long Report() {return errcode;}
216
217//----------------------------------------------------------------------------
218
219//
220// Autoclass declaration, adding derived TAutoCommand class with this pointer
221//
222#define DECLARE_AUTOCLASS(cls) \
223 public: \
224 static TAutoClass ClassInfo; \
225 protected: \
226 static TAutoSymbol SymbolTable[]; \
227 class TThisCommand : public TAutoCommand { \
228 protected: \
229 TThisCommand(cls* obj, int attr):TAutoCommand(attr),This(obj){} \
230 cls* This; \
231 }; \
232 typedef cls ThisClass; \
233 class TCommand_app : public TAutoCommand { \
234 public: \
235 TCommand_app(int attr, TServedObject* app) \
236 : TAutoCommand(attr), Val(app) {} \
237 void Return(TAutoVal& v) {v=(IDispatch*)Val;} \
238 TServedObject* Val; \
239 static TAutoCommand* Build(ObjectPtr obj,int attr,TAutoStack& args) \
240 { return new TCommand_app(attr, args.Owner->GetAppObject()); } \
241 }; \
242 class TCommand_dtr : public TThisCommand { \
243 public: \
244 TCommand_dtr(ThisClass* obj, int attr) \
245 : TThisCommand(obj, attr) {} \
246 void Execute(){if (Attr == TObjectDescriptor::PostQuit) \
247 ::PostQuitMessage(0);\
248 else delete This;} \
249 static TAutoCommand* Build(ObjectPtr obj,int attr) \
250 { return new TCommand_dtr((ThisClass*)obj, attr); }\
251 }; friend class TCommand_dtr;
252
253#define DECLARE_AUTODISPATCH(cls) \
254 public: \
255 static TAutoClass ClassInfo; \
256 protected: \
257 static TAutoSymbol SymbolTable[]; \
258 class TThisCommand : public TAutoCommand { \
259 protected: \
260 TThisCommand(cls* obj, int attr):TAutoCommand(attr),This(obj){} \
261 cls* This; \
262 }; typedef cls ThisClass;
263
264//
265// Autoclass declaration for COM-aggregatable classes
266//
267
268#define DECLARE_AUTOAGGREGATE(cls) \
269 public: \
270 static IUnknown& Aggregator(ObjectPtr inst, TUnknown& inner); \
271 DECLARE_AUTOCLASS(cls)
272
273//
274// Command object class definition for methods or get-only properties
275//
276#define RETARG(t) void Return(TAutoVal& v){v=Val;} t Val;
277#define RETARGO(t) void Return(TAutoVal& v){v=(TObjectDescriptor)Val;} TAutoObject<t> Val;
278
279#define AUTOFUNC_(name, invoke, defs, defargs, bldargs, ctrargs, setargs) \
280 class TCommand_##name : public TThisCommand { \
281 public: typedef TCommand_##name ThisCmd; \
282 defs defargs \
283 TCommand_##name(ThisClass* obj, int attr ctrargs) \
284 : TThisCommand(obj, attr) setargs {} \
285 void Execute() {invoke} \
286 static TAutoCommand* Build(ObjectPtr obj,int attr,TAutoStack& args) \
287 { return new TCommand_##name((ThisClass*)obj, attr bldargs); }\
288 }; friend class TCommand_##name;
289
290#define AUTOFUNC_ARG0(name, invoke, defs) \
291 class TCommand_##name : public TThisCommand { \
292 public: typedef TCommand_##name ThisCmd; \
293 defs \
294 TCommand_##name(ThisClass* obj, int attr) \
295 : TThisCommand(obj, attr){} \
296 void Execute() {invoke} \
297 static TAutoCommand* Build(ObjectPtr obj,int attr,TAutoStack& args) \
298 { return new TCommand_##name((ThisClass*)obj, attr); }\
299 }; friend class TCommand_##name;
300
301#define AUTOFUNC_ARG0_D(name, invoke) \
302 class TCommand_##name : public TThisCommand { \
303 public: typedef TCommand_##name ThisCmd; \
304 TCommand_##name(ThisClass* obj, int attr) \
305 : TThisCommand(obj, attr){} \
306 void Execute() {invoke} \
307 static TAutoCommand* Build(ObjectPtr obj,int attr,TAutoStack& args) \
308 { return new TCommand_##name((ThisClass*)obj, attr); }\
309 }; friend class TCommand_##name;
310
311#define AUTOFUNC_ARG1(name, invoke, defs, defargs) \
312 class TCommand_##name : public TThisCommand { \
313 public: typedef TCommand_##name ThisCmd; \
314 defs defargs \
315 TCommand_##name(ThisClass* obj, int attr) \
316 : TThisCommand(obj, attr){} \
317 void Execute() {invoke} \
318 static TAutoCommand* Build(ObjectPtr obj,int attr,TAutoStack& args) \
319 { return new TCommand_##name((ThisClass*)obj, attr); }\
320 }; friend class TCommand_##name;
321
322#define AUTOFUNC_ARG1_D(name, invoke) \
323 class TCommand_##name : public TThisCommand { \
324 public: typedef TCommand_##name ThisCmd; \
325 TCommand_##name(ThisClass* obj, int attr) \
326 : TThisCommand(obj, attr){} \
327 void Execute() {invoke} \
328 static TAutoCommand* Build(ObjectPtr obj,int attr,TAutoStack& args) \
329 { return new TCommand_##name((ThisClass*)obj, attr); }\
330 }; friend class TCommand_##name;
331
332#define AUTOFUNC_ARG2(name, invoke, defs, defargs, bldargs) \
333 class TCommand_##name : public TThisCommand { \
334 public: typedef TCommand_##name ThisCmd; \
335 defs defargs \
336 TCommand_##name(ThisClass* obj, int attr ) \
337 : TThisCommand(obj, attr) {} \
338 void Execute() {invoke} \
339 static TAutoCommand* Build(ObjectPtr obj,int attr,TAutoStack& args) \
340 { return new TCommand_##name((ThisClass*)obj, attr bldargs); }\
341 }; friend class TCommand_##name;
342
343#define AUTOFUNC_ARG3(name, invoke, defs, defargs, bldargs, ctrargs) \
344 class TCommand_##name : public TThisCommand { \
345 public: typedef TCommand_##name ThisCmd; \
346 defs defargs \
347 TCommand_##name(ThisClass* obj, int attr ctrargs) \
348 : TThisCommand(obj, attr) {} \
349 void Execute() {invoke} \
350 static TAutoCommand* Build(ObjectPtr obj,int attr,TAutoStack& args) \
351 { return new TCommand_##name((ThisClass*)obj, attr bldargs); }\
352 }; friend class TCommand_##name;
353
354#define AUTOFUNC_ARG4 AUTOFUNC_
355
356// Command object class definition for properties with both get and set
357//
358#define AUTOPROP_(name, getcode, setcode, defs, type) \
359 class TCommand_##name : public TThisCommand { \
360 public: typedef TCommand_##name ThisCmd; \
361 defs RETARG(type) \
362 TCommand_##name(ThisClass* obj, int attr) : TThisCommand(obj, attr) {} \
363 TCommand_##name(ThisClass* obj, int attr, type arg) \
364 : TThisCommand(obj, attr), Val(arg) {} \
365 void Execute() {if (IsPropSet()) {setcode} else {getcode}} \
366 static TAutoCommand* Build(ObjectPtr obj,int attr,TAutoStack& args) \
367 { return (attr & asGet) ? \
368 new TCommand_##name((ThisClass*)obj, attr) : \
369 new TCommand_##name((ThisClass*)obj, attr, args[TAutoStack::SetValue]);} \
370 }; friend class TCommand_##name;
371
372#if !defined(BI_TYPECASTOPERATOR_BUG)
373#define AUTOPROPBUG_ AUTOPROP_
374#else
375// Command object class definition for properties with both get and set
376//
377#define AUTOPROPBUG_(name, getcode, setcode, defs, type) \
378 class TCommand_##name : public TThisCommand { \
379 public: typedef TCommand_##name ThisCmd; \
380 defs RETARG(type) \
381 TCommand_##name(ThisClass* obj, int attr) : TThisCommand(obj, attr) {} \
382 TCommand_##name(ThisClass* obj, int attr, type arg) \
383 : TThisCommand(obj, attr), Val(arg) {} \
384 void Execute() {if (IsPropSet()) {setcode} else {getcode}} \
385 static TAutoCommand* Build(ObjectPtr obj,int attr,TAutoStack& args) \
386 { return (attr & asGet) ? \
387 new TCommand_##name((ThisClass*)obj, attr) : \
388 new TCommand_##name((ThisClass*)obj, attr,(type)(args[TAutoStack::SetValue]).operator type());}\
389 }; friend class TCommand_##name;
390#endif
391
392
393//
394// Command object class definition for constructor commands
395//
396#define AUTOBUILD_(name, invoke, defs, defargs, bldargs, ctrargs, setargs) \
397 class TCommand_##name : public TAutoCommand {\
398 public: \
399 defs defargs RETARG(TAutoMono<ThisClass>) \
400 TCommand_##name(int attr ctrargs) : TAutoCommand(attr) setargs {} \
401 void Execute() {invoke} \
402 static TAutoCommand* Build(ObjectPtr, int attr, TAutoStack& args) \
403 { return new TCommand_##name(attr bldargs); } \
404 };
405
406#define AUTOBUILD_ARG0(name, invoke, defs) \
407 class TCommand_##name : public TAutoCommand {\
408 public: \
409 defs RETARG(TAutoMono<ThisClass>) \
410 TCommand_##name(int attr ) : TAutoCommand(attr) {} \
411 void Execute() {invoke} \
412 static TAutoCommand* Build(ObjectPtr, int attr, TAutoStack& args) \
413 { return new TCommand_##name(attr); } \
414 };
415
416#define AUTOBUILD_ARG1(name, invoke, defs, defargs) \
417 class TCommand_##name : public TAutoCommand {\
418 public: \
419 defs defargs RETARG(TAutoMono<ThisClass>) \
420 TCommand_##name(int attr) : TAutoCommand(attr){} \
421 void Execute() {invoke} \
422 static TAutoCommand* Build(ObjectPtr, int attr, TAutoStack& args) \
423 { return new TCommand_##name(attr); } \
424 };
425
426#define AUTOBUILD_ARG2(name, invoke, defs, defargs, bldargs) \
427 class TCommand_##name : public TAutoCommand {\
428 public: \
429 defs defargs RETARG(TAutoMono<ThisClass>) \
430 TCommand_##name(int attr) : TAutoCommand(attr){} \
431 void Execute() {invoke} \
432 static TAutoCommand* Build(ObjectPtr, int attr, TAutoStack& args) \
433 { return new TCommand_##name(attr bldargs); } \
434 };
435
436#define AUTOBUILD_ARG3(name, invoke, defs, defargs, bldargs, ctrargs) \
437 class TCommand_##name : public TAutoCommand {\
438 public: \
439 defs defargs RETARG(TAutoMono<ThisClass>) \
440 TCommand_##name(int attr ctrargs) : TAutoCommand(attr) {} \
441 void Execute() {invoke} \
442 static TAutoCommand* Build(ObjectPtr, int attr, TAutoStack& args) \
443 { return new TCommand_##name(attr bldargs); } \
444 };
445
446#define AUTOBUILD_ARG4 AUTOBUILD_
447
448//
449// Command object class definition for external object property
450//
451#define AUTOPROXY(name, proxy, defs) \
452 AUTOPROP_(name, Val=This->proxy;, This->proxy.Bind(Val);, defs, IDispatch*)
453
454//
455// Iterator class definition
456//
457#define AUTOITERATOR(state, init, test, step, extract) \
458 class TIterator : public TAutoIterator { \
459 public: \
460 ThisClass* This; \
461 state; \
462 void Init() {init;} \
463 bool Test() {return test;} \
464 void Step() {step;} \
465 void Return(TAutoVal& v) {v=extract;} \
466 TIterator* Copy() {return new TIterator(*this);} \
467 TIterator(ThisClass* obj, TAutoCreator& creator, IUnknown* owner, TLangId lang) \
468 : This(obj), TAutoIterator(creator, owner, lang) {} \
469 static TAutoIterator* Build(ObjectPtr obj, TAutoCreator& creator, \
470 IUnknown* owner, TLangId lang) \
471 { return new TIterator((ThisClass*)obj, creator, owner, lang); }\
472 }; friend class TIterator;
473
474#define AUTOITERATOR_DECLARE(state) \
475 class TIterator : public TAutoIterator { \
476 public: \
477 ThisClass* This; \
478 state; \
479 void Init(); \
480 bool Test(); \
481 void Step(); \
482 void Return(TAutoVal& v); \
483 TIterator* Copy() {return new TIterator(*this);} \
484 TIterator(ThisClass* obj, TAutoCreator& creator, IUnknown* owner, TLangId lang) \
485 : This(obj), TAutoIterator(creator, owner, lang) {} \
486 static TAutoIterator* Build(ObjectPtr obj, TAutoCreator& creator, \
487 IUnknown* owner, TLangId lang) \
488 { return new TIterator((ThisClass*)obj, creator, owner, lang); }\
489 }; friend class TIterator;
490
491//
492// Macros for defining lists of arguments
493//
494
495#define DEFARGS0(t0) t0 Val;
496#define DEFARGS1(t1) t1 Arg1;
497#define DEFARGS2(t1,t2) t1 Arg1;t2 Arg2;
498#define DEFARGS3(t1,t2,t3) t1 Arg1;t2 Arg2;t3 Arg3;
499#define DEFARGS4(t1,t2,t3,t4) t1 Arg1;t2 Arg2;t3 Arg3;t4 Arg4;
500#define DEFARGS5(t1,t2,t3,t4,t5) t1 Arg1;t2 Arg2;t3 Arg3;t4 Arg4;t5 Arg5;
501#define DEFARGS6(t1,t2,t3,t4,t5,t6) t1 Arg1;t2 Arg2;t3 Arg3;t4 Arg4;t5 Arg5;t6 Arg6;
502#define DEFARGS7(t1,t2,t3,t4,t5,t6,t7) \
503 t1 Arg1;t2 Arg2;t3 Arg3;t4 Arg4;t5 Arg5;t6 Arg6;t7 Arg7;
504#define DEFARGS8(t1,t2,t3,t4,t5,t6,t7,t8) \
505 t1 Arg1;t2 Arg2;t3 Arg3;t4 Arg4;t5 Arg5;t6 Arg6;t7 Arg7;t8 Arg8;
506#define DEFARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9) \
507 t1 Arg1;t2 Arg2;t3 Arg3;t4 Arg4;t5 Arg5;t6 Arg6;t7 Arg7;t8 Arg8;t9 Arg9;
508#define DEFARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10) \
509 t1 Arg1;t2 Arg2;t3 Arg3;t4 Arg4;t5 Arg5;t6 Arg6;t7 Arg7;t8 Arg8;t9 Arg9;t10 Arg10;
510
511#define BLDARGS0(t0) ,(t0)args[TAutoStack::SetValue]
512#define BLDARGS1(t1) ,(t1)args[0]
513#define BLDARGS2(t1,t2) ,(t1)args[0],(t2)args[1]
514#define BLDARGS3(t1,t2,t3) ,(t1)args[0],(t2)args[1],(t3)args[2]
515#define BLDARGS4(t1,t2,t3,t4) \
516 ,(t1)args[0],(t2)args[1],(t3)args[2],(t4)args[3]
517#define BLDARGS5(t1,t2,t3,t4,t5) \
518 ,(t1)args[0],(t2)args[1],(t3)args[2],(t4)args[3],(t5)args[4]
519#define BLDARGS6(t1,t2,t3,t4,t5,t6) \
520 ,(t1)args[0],(t2)args[1],(t3)args[2],(t4)args[3],(t5)args[4],(t6)args[5]
521#define BLDARGS7(t1,t2,t3,t4,t5,t6,t7) \
522 ,(t1)args[0],(t2)args[1],(t3)args[2],(t4)args[3],(t5)args[4] \
523 ,(t6)args[5],(t7)args[6]
524#define BLDARGS8(t1,t2,t3,t4,t5,t6,t7,t8) \
525 ,(t1)args[0],(t2)args[1],(t3)args[2],(t4)args[3],(t5)args[4] \
526 ,(t6)args[5],(t7)args[6],(t8)args[7]
527#define BLDARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9) \
528 ,(t1)args[0],(t2)args[1],(t3)args[2],(t4)args[3],(t5)args[4] \
529 ,(t6)args[5],(t7)args[6],(t8)args[7],(t9)args[8]
530#define BLDARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10) \
531 ,(t1)args[0],(t2)args[1],(t3)args[2],(t4)args[3],(t5)args[4] \
532 ,(t6)args[5],(t7)args[6],(t8)args[7],(t9)args[8],(t10)args[9]
533
534#define CTRARGS0(t0) ,t0 val
535#define CTRARGS1(t1) ,t1 arg1
536#define CTRARGS2(t1,t2) ,t1 arg1,t2 arg2
537#define CTRARGS3(t1,t2,t3) ,t1 arg1,t2 arg2,t3 arg3
538#define CTRARGS4(t1,t2,t3,t4) ,t1 arg1,t2 arg2,t3 arg3,t4 arg4
539#define CTRARGS5(t1,t2,t3,t4,t5) ,t1 arg1,t2 arg2,t3 arg3,t4 arg4,t5 arg5
540#define CTRARGS6(t1,t2,t3,t4,t5,t6) ,t1 arg1,t2 arg2,t3 arg3,t4 arg4,t5 arg5,t6 arg6
541#define CTRARGS7(t1,t2,t3,t4,t5,t6,t7) ,t1 arg1,t2 arg2,t3 arg3,t4 arg4,t5 arg5,t6 arg6,t7 arg7
542#define CTRARGS8(t1,t2,t3,t4,t5,t6,t7,t8) \
543 ,t1 arg1,t2 arg2,t3 arg3,t4 arg4,t5 arg5,t6 arg6,t7 arg7,t8 arg8
544#define CTRARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9) \
545 ,t1 arg1,t2 arg2,t3 arg3,t4 arg4,t5 arg5,t6 arg6,t7 arg7,t8 arg8,t9 arg9
546#define CTRARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10) \
547 ,t1 arg1,t2 arg2,t3 arg3,t4 arg4,t5 arg5,t6 arg6,t7 arg7,t8 arg8,t9 arg9,t10 arg10
548
549#define SETARGS0 ,Val(val)
550#define SETARGS1 ,Arg1(arg1)
551#define SETARGS2 ,Arg1(arg1),Arg2(arg2)
552#define SETARGS3 ,Arg1(arg1),Arg2(arg2),Arg3(arg3)
553#define SETARGS4 ,Arg1(arg1),Arg2(arg2),Arg3(arg3),Arg4(arg4)
554#define SETARGS5 ,Arg1(arg1),Arg2(arg2),Arg3(arg3),Arg4(arg4),Arg5(arg5)
555#define SETARGS6 ,Arg1(arg1),Arg2(arg2),Arg3(arg3),Arg4(arg4),Arg5(arg5),Arg6(arg6)
556#define SETARGS7 ,Arg1(arg1),Arg2(arg2),Arg3(arg3),Arg4(arg4),Arg5(arg5),Arg6(arg6), \
557 Arg7(arg7)
558#define SETARGS8 ,Arg1(arg1),Arg2(arg2),Arg3(arg3),Arg4(arg4),Arg5(arg5),Arg6(arg6), \
559 Arg7(arg7),Arg8(arg8)
560#define SETARGS9 ,Arg1(arg1),Arg2(arg2),Arg3(arg3),Arg4(arg4),Arg5(arg5),Arg6(arg6), \
561 Arg7(arg7),Arg8(arg8),Arg9(arg9)
562#define SETARGS10 ,Arg1(arg1),Arg2(arg2),Arg3(arg3),Arg4(arg4),Arg5(arg5),Arg6(arg6), \
563 Arg7(arg7),Arg8(arg8),Arg9(arg9),Arg10(arg10)
564
565#define AUTOFUNC0(name, func, ret, defs) \
566 AUTOFUNC_ARG1(name, Val=This->func();, defs, RETARG(ret))
567// AUTOFUNC_(name, Val=This->func();, defs, RETARG(ret), , , )
568#define AUTOFUNC0O(name, func, ret, defs) \
569 AUTOFUNC_ARG1(name, Val=This->func();, defs, RETARGO(ret))
570// AUTOFUNC_(name, Val=This->func();, defs, RETARG(ret), , , )
571
572
573#define AUTOFUNC0R(name, func, ret) \
574 AUTOFUNC_ARG0(name, Val=This->func();, RETARG(ret))
575#define AUTOFUNC0OR(name, func, ret) \
576 AUTOFUNC_ARG0(name, Val=This->func();, RETARGO(ret))
577
578#define AUTOFUNC0V(name, func, defs) \
579 AUTOFUNC_ARG0(name, This->func();, defs)
580// AUTOFUNC_(name, This->func();, defs, , , , )
581
582#define AUTOFUNC0V3 AUTOFUNC0V
583
584#define AUTOFUNC0V2(name, func) \
585 AUTOFUNC_ARG1_D(name, This->func();)
586
587#define AUTOFUNC1(name, func, ret,type1, defs) \
588 AUTOFUNC_ARG4(name, Val=This->func(Arg1);, defs, RETARG(ret) \
589 DEFARGS1(type1), BLDARGS1(type1), CTRARGS1(type1), SETARGS1)
590#define AUTOFUNC1O(name, func, ret,type1, defs) \
591 AUTOFUNC_ARG4(name, Val=This->func(Arg1);, defs, RETARGO(ret) \
592 DEFARGS1(type1), BLDARGS1(type1), CTRARGS1(type1), SETARGS1)
593
594#define AUTOFUNC1R(name, func, ret,type1) \
595 AUTOFUNC_ARG4(name, Val=This->func(Arg1);, public:, RETARG(ret) \
596 DEFARGS1(type1), BLDARGS1(type1), CTRARGS1(type1), SETARGS1)
597#define AUTOFUNC1OR(name, func, ret,type1) \
598 AUTOFUNC_ARG4(name, Val=This->func(Arg1);, public:, RETARGO(ret) \
599 DEFARGS1(type1), BLDARGS1(type1), CTRARGS1(type1), SETARGS1)
600
601#define AUTOFUNC1V(name, func, type1, defs) \
602 AUTOFUNC_ARG4(name, This->func(Arg1);, defs, \
603 DEFARGS1(type1), BLDARGS1(type1), CTRARGS1(type1), SETARGS1)
604
605#define AUTOFUNC2(name, func, ret,t1,t2, defs) \
606 AUTOFUNC_ARG4(name, Val=This->func(Arg1,Arg2);, defs, RETARG(ret) \
607 DEFARGS2(t1,t2), BLDARGS2(t1,t2), CTRARGS2(t1,t2), SETARGS2)
608#define AUTOFUNC2O(name, func, ret,t1,t2, defs) \
609 AUTOFUNC_ARG4(name, Val=This->func(Arg1,Arg2);, defs, RETARGO(ret) \
610 DEFARGS2(t1,t2), BLDARGS2(t1,t2), CTRARGS2(t1,t2), SETARGS2)
611
612#define AUTOFUNC2V(name, func, t1,t2, defs) \
613 AUTOFUNC_ARG4(name, This->func(Arg1,Arg2);, defs, \
614 DEFARGS2(t1,t2), BLDARGS2(t1,t2), CTRARGS2(t1,t2), SETARGS2)
615
616#define AUTOFUNC2V4(name, func, t1,t2) \
617 AUTOFUNC_ARG4(name, This->func(Arg1,Arg2);, public:, \
618 DEFARGS2(t1,t2), BLDARGS2(t1,t2), CTRARGS2(t1,t2), SETARGS2)
619
620#define AUTOFUNC3(name, func, ret,t1,t2,t3, defs) \
621 AUTOFUNC_ARG4(name, Val=This->func(Arg1,Arg2,Arg3);, defs, RETARG(ret) \
622 DEFARGS3(t1,t2,t3), BLDARGS3(t1,t2,t3), CTRARGS3(t1,t2,t3), SETARGS3)
623#define AUTOFUNC3O(name, func, ret,t1,t2,t3, defs) \
624 AUTOFUNC_ARG4(name, Val=This->func(Arg1,Arg2,Arg3);, defs, RETARGO(ret) \
625 DEFARGS3(t1,t2,t3), BLDARGS3(t1,t2,t3), CTRARGS3(t1,t2,t3), SETARGS3)
626
627#define AUTOFUNC3V(name, func, t1,t2,t3, defs) \
628 AUTOFUNC_ARG4(name, This->func(Arg1,Arg2,Arg3);, defs, \
629 DEFARGS3(t1,t2,t3), BLDARGS3(t1,t2,t3), CTRARGS3(t1,t2,t3), SETARGS3)
630
631#define AUTOFUNC4(name, func, ret,t1,t2,t3,t4, defs) \
632 AUTOFUNC_ARG4(name, Val=This->func(Arg1,Arg2,Arg3,Arg4);, defs, RETARG(ret) \
633 DEFARGS4(t1,t2,t3,t4), BLDARGS4(t1,t2,t3,t4), CTRARGS4(t1,t2,t3,t4), SETARGS4)
634#define AUTOFUNC4O(name, func, ret,t1,t2,t3,t4, defs) \
635 AUTOFUNC_ARG4(name, Val=This->func(Arg1,Arg2,Arg3,Arg4);, defs, RETARGO(ret) \
636 DEFARGS4(t1,t2,t3,t4), BLDARGS4(t1,t2,t3,t4), CTRARGS4(t1,t2,t3,t4), SETARGS4)
637
638#define AUTOFUNC4V(name, func, t1,t2,t3,t4, defs) \
639 AUTOFUNC_ARG4(name, This->func(Arg1,Arg2,Arg3,Arg4);, defs,\
640 DEFARGS4(t1,t2,t3,t4), BLDARGS4(t1,t2,t3,t4), CTRARGS4(t1,t2,t3,t4), SETARGS4)
641
642#define AUTOFUNC5(name,func,ret,t1,t2,t3,t4,t5,defs) \
643 AUTOFUNC_ARG4(name,Val=This->func(Arg1,Arg2,Arg3,Arg4,Arg5);,defs,RETARG(ret) \
644 DEFARGS5(t1,t2,t3,t4,t5),BLDARGS5(t1,t2,t3,t4,t5),CTRARGS5(t1,t2,t3,t4,t5),SETARGS5)
645#define AUTOFUNC5O(name,func,ret,t1,t2,t3,t4,t5,defs) \
646 AUTOFUNC_ARG4(name,Val=This->func(Arg1,Arg2,Arg3,Arg4,Arg5);,defs,RETARGO(ret) \
647 DEFARGS5(t1,t2,t3,t4,t5),BLDARGS5(t1,t2,t3,t4,t5),CTRARGS5(t1,t2,t3,t4,t5),SETARGS5)
648
649#define AUTOFUNC5V(name,func,t1,t2,t3,t4,t5,defs) \
650 AUTOFUNC_ARG4(name,This->func(Arg1,Arg2,Arg3,Arg4,Arg5);,defs, \
651 DEFARGS5(t1,t2,t3,t4,t5),BLDARGS5(t1,t2,t3,t4,t5),CTRARGS5(t1,t2,t3,t4,t5),SETARGS5)
652
653#define AUTOFUNC6(name,func,ret,t1,t2,t3,t4,t5,t6,defs) \
654 AUTOFUNC_ARG4(name,Val=This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6);,defs,RETARG(ret) \
655 DEFARGS6(t1,t2,t3,t4,t5,t6),BLDARGS6(t1,t2,t3,t4,t5,t6), CTRARGS6(t1,t2,t3,t4,t5,t6),SETARGS6)
656#define AUTOFUNCO6(name,func,ret,t1,t2,t3,t4,t5,t6,defs) \
657 AUTOFUNC_ARG4(name,Val=This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6);,defs,RETARGO(ret) \
658 DEFARGS6(t1,t2,t3,t4,t5,t6),BLDARGS6(t1,t2,t3,t4,t5,t6), CTRARGS6(t1,t2,t3,t4,t5,t6),SETARGS6)
659
660#define AUTOFUNC6V(name,func,t1,t2,t3,t4,t5,t6,defs) \
661 AUTOFUNC_ARG4(name,This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6);,defs, \
662 DEFARGS6(t1,t2,t3,t4,t5,t6),BLDARGS6(t1,t2,t3,t4,t5,t6), \
663 CTRARGS6(t1,t2,t3,t4,t5,t6),SETARGS6)
664
665#define AUTOFUNC7(name,func,ret,t1,t2,t3,t4,t5,t6,t7,defs) \
666 AUTOFUNC_ARG4(name,Val=This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7);,defs,RETARG(ret) \
667 DEFARGS7(t1,t2,t3,t4,t5,t6,t7),BLDARGS7(t1,t2,t3,t4,t5,t6,t7), \
668 CTRARGS7(t1,t2,t3,t4,t5,t6,t7),SETARGS7)
669#define AUTOFUNC7O(name,func,ret,t1,t2,t3,t4,t5,t6,t7,defs) \
670 AUTOFUNC_ARG4(name,Val=This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7);,defs,RETARGO(ret) \
671 DEFARGS7(t1,t2,t3,t4,t5,t6,t7),BLDARGS7(t1,t2,t3,t4,t5,t6,t7), \
672 CTRARGS7(t1,t2,t3,t4,t5,t6,t7),SETARGS7)
673
674#define AUTOFUNC7V(name,func,t1,t2,t3,t4,t5,t6,t7,defs) \
675 AUTOFUNC_ARG4(name,This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7);,defs, \
676 DEFARGS7(t1,t2,t3,t4,t5,t6,t7),BLDARGS7(t1,t2,t3,t4,t5,t6,t7), \
677 CTRARGS7(t1,t2,t3,t4,t5,t6,t7),SETARGS7)
678
679#define AUTOFUNC8(name,func,ret,t1,t2,t3,t4,t5,t6,t7,t8,defs) \
680 AUTOFUNC_ARG4(name,Val=This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8);,defs,RETARG(ret) \
681 DEFARGS8(t1,t2,t3,t4,t5,t6,t7,t8),BLDARGS8(t1,t2,t3,t4,t5,t6,t7,t8), \
682 CTRARGS8(t1,t2,t3,t4,t5,t6,t7,t8),SETARGS8)
683#define AUTOFUNC8O(name,func,ret,t1,t2,t3,t4,t5,t6,t7,t8,defs) \
684 AUTOFUNC_ARG4(name,Val=This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8);,defs,RETARGO(ret) \
685 DEFARGS8(t1,t2,t3,t4,t5,t6,t7,t8),BLDARGS8(t1,t2,t3,t4,t5,t6,t7,t8), \
686 CTRARGS8(t1,t2,t3,t4,t5,t6,t7,t8),SETARGS8)
687
688#define AUTOFUNC8V(name,func,t1,t2,t3,t4,t5,t6,t7,t8,defs) \
689 AUTOFUNC_ARG4(name,This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8);,defs, \
690 DEFARGS8(t1,t2,t3,t4,t5,t6,t7,t8),BLDARGS8(t1,t2,t3,t4,t5,t6,t7,t8), \
691 CTRARGS8(t1,t2,t3,t4,t5,t6,t7,t8),SETARGS8)
692
693#define AUTOFUNC9(name,func,ret,t1,t2,t3,t4,t5,t6,t7,t8,t9,defs) \
694 AUTOFUNC_ARG4(name,Val=This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9);,defs,RETARG(ret) \
695 DEFARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9),BLDARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9), \
696 CTRARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9),SETARGS9)
697#define AUTOFUNC9O(name,func,ret,t1,t2,t3,t4,t5,t6,t7,t8,t9,defs) \
698 AUTOFUNC_ARG4(name,Val=This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9);,defs,RETARGO(ret) \
699 DEFARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9),BLDARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9), \
700 CTRARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9),SETARGS9)
701
702#define AUTOFUNC9V(name,func,t1,t2,t3,t4,t5,t6,t7,t8,t9,defs) \
703 AUTOFUNC_ARG4(name,This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9);,defs, \
704 DEFARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9),BLDARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9), \
705 CTRARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9),SETARGS9)
706
707#define AUTOFUNC10(name,func,ret,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,defs) \
708 AUTOFUNC_ARG4(name,Val=This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9,Arg10);,defs,RETARG(ret) \
709 DEFARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10),BLDARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10), \
710 CTRARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10),SETARGS10)
711#define AUTOFUNC10O(name,func,ret,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,defs) \
712 AUTOFUNC_ARG4(name,Val=This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9,Arg10);,defs,RETARGO(ret) \
713 DEFARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10),BLDARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10), \
714 CTRARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10),SETARGS10)
715
716#define AUTOFUNC10V(name,func,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,defs) \
717 AUTOFUNC_ARG4(name,This->func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9,Arg10);,defs, \
718 DEFARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10),BLDARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10), \
719 CTRARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10),SETARGS10)
720
721#define AUTOSTAT0(name, func, ret, defs) \
722 AUTOFUNC_ARG1(name, Val=func();, defs, RETARG(ret))
723// AUTOFUNC_(name, Val=func();, defs, RETARG(ret), , , )
724
725#define AUTOSTAT0V(name, func, defs) \
726 AUTOFUNC_ARG0(name, func();, defs)
727// AUTOFUNC_(name, func();, defs, , , , )
728
729#define AUTOSTAT1(name, func, ret,type1, defs) \
730 AUTOFUNC_ARG4(name, Val=func(Arg1);, defs, RETARG(ret) \
731 DEFARGS1(type1), BLDARGS1(type1), CTRARGS1(type1), SETARGS1)
732
733#define AUTOSTAT1V(name, func, type1, defs) \
734 AUTOFUNC_ARG4(name, func(Arg1);, defs, \
735 DEFARGS1(type1), BLDARGS1(type1), CTRARGS1(type1), SETARGS1)
736
737#define AUTOSTAT2(name, func, ret,t1,t2, defs) \
738 AUTOFUNC_ARG4(name, Val=func(Arg1,Arg2);, defs, RETARG(ret) \
739 DEFARGS2(t1,t2), BLDARGS2(t1,t2), CTRARGS2(t1,t2), SETARGS2)
740
741#define AUTOSTAT2V(name, func, t1,t2, defs) \
742 AUTOFUNC_ARG4(name, func(Arg1,Arg2);, defs, \
743 DEFARGS2(t1,t2), BLDARGS2(t1,t2), CTRARGS2(t1,t2), SETARGS2)
744
745#define AUTOSTAT3(name, func, ret,t1,t2,t3, defs) \
746 AUTOFUNC_ARG4(name, Val=func(Arg1,Arg2,Arg3);, defs, RETARG(ret) \
747 DEFARGS3(t1,t2,t3), BLDARGS3(t1,t2,t3), CTRARGS3(t1,t2,t3), SETARGS3)
748
749#define AUTOSTAT3V(name, func, t1,t2,t3, defs) \
750 AUTOFUNC_ARG4(name, func(Arg1,Arg2,Arg3);, defs, \
751 DEFARGS3(t1,t2,t3), BLDARGS3(t1,t2,t3), CTRARGS3(t1,t2,t3), SETARGS3)
752
753#define AUTOSTAT4(name, func, ret,t1,t2,t3,t4, defs) \
754 AUTOFUNC_ARG4(name, Val=func(Arg1,Arg2,Arg3,Arg4);, defs, RETARG(ret) \
755 DEFARGS4(t1,t2,t3,t4), BLDARGS4(t1,t2,t3,t4), CTRARGS4(t1,t2,t3,t4), SETARGS4)
756
757#define AUTOSTAT4V(name, func, t1,t2,t3,t4, defs) \
758 AUTOFUNC_ARG4(name, func(Arg1,Arg2,Arg3,Arg4);, defs,\
759 DEFARGS4(t1,t2,t3,t4), BLDARGS4(t1,t2,t3,t4), CTRARGS4(t1,t2,t3,t4), SETARGS4)
760
761#define AUTOSTAT5(name,func,ret,t1,t2,t3,t4,t5,defs) \
762 AUTOFUNC_ARG4(name,Val=func(Arg1,Arg2,Arg3,Arg4,Arg5);,defs,RETARG(ret) \
763 DEFARGS5(t1,t2,t3,t4,t5),BLDARGS5(t1,t2,t3,t4,t5),CTRARGS5(t1,t2,t3,t4,t5),SETARGS5)
764
765#define AUTOSTAT5V(name,func,t1,t2,t3,t4,t5,defs) \
766 AUTOFUNC_ARG4(name,func(Arg1,Arg2,Arg3,Arg4,Arg5);,defs, \
767 DEFARGS5(t1,t2,t3,t4,t5),BLDARGS5(t1,t2,t3,t4,t5),CTRARGS5(t1,t2,t3,t4,t5),SETARGS5)
768
769#define AUTOSTAT6(name,func,ret,t1,t2,t3,t4,t5,t6,defs) \
770 AUTOFUNC_ARG4(name,Val=func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6);,defs,RETARG(ret) \
771 DEFARGS6(t1,t2,t3,t4,t5,t6),BLDARGS6(t1,t2,t3,t4,t5,t6), CTRARGS6(t1,t2,t3,t4,t5,t6),SETARGS6)
772
773#define AUTOSTAT6V(name,func,t1,t2,t3,t4,t5,t6,defs) \
774 AUTOFUNC_ARG4(name,func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6);,defs, \
775 DEFARGS6(t1,t2,t3,t4,t5,t6),BLDARGS6(t1,t2,t3,t4,t5,t6), CTRARGS6(t1,t2,t3,t4,t5,t6),SETARGS6)
776
777#define AUTOSTAT7(name,func,ret,t1,t2,t3,t4,t5,t6,t7,defs) \
778 AUTOFUNC_ARG4(name,Val=func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7);,defs,RETARG(ret) \
779 DEFARGS7(t1,t2,t3,t4,t5,t6,t7),BLDARGS7(t1,t2,t3,t4,t5,t6,t7), \
780 CTRARGS7(t1,t2,t3,t4,t5,t6,t7),SETARGS7)
781
782#define AUTOSTAT7V(name,func,t1,t2,t3,t4,t5,t6,t7,defs) \
783 AUTOFUNC_ARG4(name,func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7);,defs, \
784 DEFARGS7(t1,t2,t3,t4,t5,t6,t7),BLDARGS7(t1,t2,t3,t4,t5,t6,t7), \
785 CTRARGS7(t1,t2,t3,t4,t5,t6,t7),SETARGS7)
786
787#define AUTOSTAT8(name,func,ret,t1,t2,t3,t4,t5,t6,t7,t8,defs) \
788 AUTOFUNC_ARG4(name,Val=func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8);,defs,RETARG(ret) \
789 DEFARGS8(t1,t2,t3,t4,t5,t6,t7,t8),BLDARGS8(t1,t2,t3,t4,t5,t6,t7,t8), \
790 CTRARGS8(t1,t2,t3,t4,t5,t6,t7,t8),SETARGS8)
791
792#define AUTOSTAT8V(name,func,t1,t2,t3,t4,t5,t6,t7,t8,defs) \
793 AUTOFUNC_ARG4(name,func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8);,defs, \
794 DEFARGS8(t1,t2,t3,t4,t5,t6,t7,t8),BLDARGS8(t1,t2,t3,t4,t5,t6,t7,t8), \
795 CTRARGS8(t1,t2,t3,t4,t5,t6,t7,t8),SETARGS8)
796
797#define AUTOSTAT9(name,func,ret,t1,t2,t3,t4,t5,t6,t7,t8,t9,defs) \
798 AUTOFUNC_ARG4(name,Val=func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9);,defs,RETARG(ret) \
799 DEFARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9),BLDARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9), \
800 CTRARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9),SETARGS9)
801
802#define AUTOSTAT9V(name,func,t1,t2,t3,t4,t5,t6,t7,t8,t9,defs) \
803 AUTOFUNC_ARG4(name,func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9);,defs, \
804 DEFARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9),BLDARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9), \
805 CTRARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9),SETARGS9)
806
807#define AUTOSTAT10(name,func,ret,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,defs) \
808 AUTOFUNC_ARG4(name,Val=func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9,Arg10);,defs,RETARG(ret) \
809 DEFARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10),BLDARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10), \
810 CTRARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10),SETARGS10)
811
812#define AUTOSTAT10V(name,func,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,defs) \
813 AUTOFUNC_ARG4(name,func(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9,Arg10);,defs, \
814 DEFARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10),BLDARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10), \
815 CTRARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10),SETARGS10)
816
817
818#define AUTOPROP( name, get, set, type, defs) \
819 AUTOPROP_(name, Val=This->get();, This->set(Val);, defs, type)
820
821#define AUTOPROPBUG( name, get, set, type, defs) \
822 AUTOPROPBUG_(name, Val=This->get();, This->set(Val);, defs, type)
823
824#define AUTOPROPRO(name, get, type, defs) \
825 AUTOFUNC0( name, get, type, defs)
826
827#define AUTOPROPWO( name, set, type, defs) \
828 AUTOFUNC_(name, This->set(Val);, defs, \
829 DEFARGS0(type), BLDARGS0(type), CTRARGS0(type), SETARGS0)
830
831#define AUTODATA( name, data, type, defs) \
832 AUTOPROP_(name, Val=This->data;, This->data=Val;, defs, type)
833
834#define AUTODATARO(name, data, type, defs) \
835 AUTOFUNC_ARG1(name, Val=This->data;, defs, RETARG(type))
836// AUTOFUNC_(name, Val=This->data;, defs, RETARG(type), , , )
837
838#define AUTOTHIS(name, type, defs) \
839 AUTOFUNC_ARG1(name, Val=*This;, defs, RETARG(type))
840// AUTOFUNC_(name, Val=*This;, defs, RETARG(type), , , )
841
842#define AUTOFLAG( name, data, mask, defs) \
843 AUTOPROP_(name, Val=(TBool)((This->data & (mask)) != 0);, \
844 if (Val) This->data|=(mask); else This->data&=~(mask);, defs, TBool)
845
846#define AUTOBUILD0(name, defs) \
847 AUTOBUILD_ARG0(name, Val = new ThisClass();, defs)
848// AUTOBUILD_(name, Val = new ThisClass();, defs, , , , )
849
850#define AUTOBUILD1(name, type1, defs) \
851 AUTOBUILD_ARG4(name, Val = new ThisClass(Arg1);, defs, \
852 DEFARGS1(type1), BLDARGS1(type1), CTRARGS1(type1), SETARGS1)
853
854#define AUTOBUILD2(name, t1,t2, defs) \
855 AUTOBUILD_ARG4(name, Val = new ThisClass(Arg1,Arg2);, defs, \
856 DEFARGS2(t1,t2), BLDARGS2(t1,t2), CTRARGS2(t1,t2), SETARGS2)
857
858#define AUTOBUILD3(name, t1,t2,t3, defs) \
859 AUTOBUILD_ARG4(name, Val = new ThisClass(Arg1,Arg2,Arg3);, defs, \
860 DEFARGS3(t1,t2,t3), BLDARGS3(t1,t2,t3), CTRARGS3(t1,t2,t3), SETARGS3)
861
862#define AUTOBUILD4(name, t1,t2,t3,t4, defs) \
863 AUTOBUILD_ARG4(name, Val = new ThisClass(Arg1,Arg2,Arg3,Arg4);, defs, \
864 DEFARGS4(t1,t2,t3,t4), BLDARGS4(t1,t2,t3,t4), CTRARGS4(t1,t2,t3,t4), SETARGS4)
865
866#define AUTOBUILD5(name,func,t1,t2,t3,t4,t5,defs) \
867 AUTOBUILD_ARG4(name,Val=new ThisClass(Arg1,Arg2,Arg3,Arg4,Arg5);,defs, \
868 DEFARGS5(t1,t2,t3,t4,t5),BLDARGS5(t1,t2,t3,t4,t5),CTRARGS5(t1,t2,t3,t4,t5),\
869 SETARGS5)
870
871#define AUTOBUILD6(name,func,t1,t2,t3,t4,t5,t6,defs) \
872 AUTOBUILD_ARG4(name,Val=new ThisClass(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6);,defs, \
873 DEFARGS6(t1,t2,t3,t4,t5,t6),BLDARGS6(t1,t2,t3,t4,t5,t6), \
874 CTRARGS6(t1,t2,t3,t4,t5,t6),SETARGS6)
875
876#define AUTOBUILD7(name,func,t1,t2,t3,t4,t5,t6,t7,defs) \
877 AUTOBUILD_ARG4(name,Val=new ThisClass(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7);,defs,\
878 DEFARGS7(t1,t2,t3,t4,t5,t6,t7),BLDARGS7(t1,t2,t3,t4,t5,t6,t7), \
879 CTRARGS7(t1,t2,t3,t4,t5,t6,t7),SETARGS7)
880
881#define AUTOBUILD8(name,func,t1,t2,t3,t4,t5,t6,t7,t8,defs) \
882 AUTOBUILD_ARG4(name,Val=new ThisClass(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8);,defs, \
883 DEFARGS8(t1,t2,t3,t4,t5,t6,t7,t8),BLDARGS8(t1,t2,t3,t4,t5,t6,t7,t8), \
884 CTRARGS8(t1,t2,t3,t4,t5,t6,t7,t8),SETARGS8)
885
886#define AUTOBUILD9(name,func,t1,t2,t3,t4,t5,t6,t7,t8,t9,defs) \
887 AUTOBUILD_ARG4(name,Val=new ThisClass(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9);,defs, \
888 DEFARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9),BLDARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9), \
889 CTRARGS9(t1,t2,t3,t4,t5,t6,t7,t8,t9),SETARGS9)
890
891#define AUTOBUILD10(name,func,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,defs) \
892 AUTOBUILD_ARG4(name,Val=new ThisClass(Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9,Arg10);,defs, \
893 DEFARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10),BLDARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10), \
894 CTRARGS10(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10),SETARGS10)
895
896#define AUTODETACH \
897 struct TDetach : public TAutoDetach { \
898 ~TDetach(){Notify((int)&((ThisClass*)0)->dtr_notify,typeid(ThisClass));} \
899 } dtr_notify; friend struct TDetach;
900
901//----------------------------------------------------------------------------
902//
903// Macros for defining automation proxy call wrappers
904//
905//----------------------------------------------------------------------------
906//
907// RetType|void C++ClassName::C++MethodName(C++ArgumentList)
908// {
909// AUTONAMES?(FunctionName&NamedArgs) // ? = named argument count
910// AUTOARGS?(ArgumentList) // ? = total argument count
911// AUTOCALL_? // ? = call type and return value type
912// }
913//
914//----------------------------------------------------------------------------
915
916#define AUTOCALL_ASSIGN \
917 ExtObjRef operator =(ExtObjRef ifc) {return TAutoProxy::operator =(ifc);}
918
919#define _A(a) "\0" a
920
921#define AUTONAMES0(id) static TAutoDispId i_(this, id);
922#define AUTONAMES1(id,n1) static TAutoDispIds<1> i_(this, id _A(n1));
923#define AUTONAMES2(id,n1,n2) static TAutoDispIds<2> i_(this, id _A(n2)_A(n1));
924#define AUTONAMES3(id,n1,n2,n3) \
925 static TAutoDispIds<3> i_(this, id _A(n3)_A(n2)_A(n1));
926#define AUTONAMES4(id,n1,n2,n3,n4) \
927 static TAutoDispIds<4> i_(this, id _A(n4)_A(n3)_A(n2)_A(n1));
928#define AUTONAMES5(id,n1,n2,n3,n4,n5) \
929 static TAutoDispIds<5> i_(this, id _A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
930#define AUTONAMES6(id,n1,n2,n3,n4,n5,n6) \
931 static TAutoDispIds<6> i_(this, id _A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
932#define AUTONAMES7(id,n1,n2,n3,n4,n5,n6,n7) \
933 static TAutoDispIds<7> i_(this,id,_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
934#define AUTONAMES8(id,n1,n2,n3,n4,n5,n6,n7,n8) \
935 static TAutoDispIds<8> i_(this,id,_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
936#define AUTONAMES9(id,n1,n2,n3,n4,n5,n6,n7,n8,n9) \
937 static TAutoDispIds<9> i_(this,id,_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
938#define AUTONAMES10(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10) \
939 static TAutoDispIds<10> i_(this,id,_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
940
941#define AUTONAMES11(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11) static TAutoDispIds<11> i_(this, id, _A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
942#define AUTONAMES12(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12) static TAutoDispIds<12> i_(this, id, _A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
943#define AUTONAMES13(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13) static TAutoDispIds<13> i_(this, id, _A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
944#define AUTONAMES14(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14) static TAutoDispIds<14> i_(this, id, _A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
945#define AUTONAMES15(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15) static TAutoDispIds<15> i_(this, id, _A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
946#define AUTONAMES16(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16) static TAutoDispIds<16> i_(this, id, _A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
947#define AUTONAMES17(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17) static TAutoDispIds<17> i_(this, id, _A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
948#define AUTONAMES18(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18) static TAutoDispIds<18> i_(this, id, _A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
949#define AUTONAMES19(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19) static TAutoDispIds<19> i_(this, id, _A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
950#define AUTONAMES20(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20) static TAutoDispIds<20> i_(this, id, _A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
951#define AUTONAMES21(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21) static TAutoDispIds<21> i_(this, id, _A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
952#define AUTONAMES22(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22) static TAutoDispIds<22> i_(this, id, _A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
953#define AUTONAMES23(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23) static TAutoDispIds<23> i_(this, id, _A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
954#define AUTONAMES24(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23,n24) static TAutoDispIds<24> i_(this, id, _A(n24)_A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
955#define AUTONAMES25(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23,n24,n25) static TAutoDispIds<25> i_(this, id, _A(n25)_A(n24)_A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
956#define AUTONAMES26(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23,n24,n25,n26) static TAutoDispIds<26> i_(this, id, _A(n26)_A(n25)_A(n24)_A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
957#define AUTONAMES27(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23,n24,n25,n26,n27) static TAutoDispIds<27> i_(this, id, _A(n27)_A(n26)_A(n25)_A(n24)_A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
958#define AUTONAMES28(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23,n24,n25,n26,n27,n28) static TAutoDispIds<28> i_(this, id, _A(n28)_A(n27)_A(n26)_A(n25)_A(n24)_A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
959#define AUTONAMES29(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23,n24,n25,n26,n27,n28,n29) static TAutoDispIds<29> i_(this, id, _A(n29)_A(n28)_A(n27)_A(n26)_A(n25)_A(n24)_A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
960#define AUTONAMES30(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23,n24,n25,n26,n27,n28,n29,n30) static TAutoDispIds<30> i_(this, id, _A(n30)_A(n29)_A(n28)_A(n27)_A(n26)_A(n25)_A(n24)_A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
961#define AUTONAMES31(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23,n24,n25,n26,n27,n28,n29,n30,n31) static TAutoDispIds<31> i_(this, id, _A(n31)_A(n30)_A(n29)_A(n28)_A(n27)_A(n26)_A(n25)_A(n24)_A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
962#define AUTONAMES32(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23,n24,n25,n26,n27,n28,n29,n30,n31,n32) static TAutoDispIds<32> i_(this, id, _A(n32)_A(n31)_A(n30)_A(n29)_A(n28)_A(n27)_A(n26)_A(n25)_A(n24)_A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
963#define AUTONAMES33(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23,n24,n25,n26,n27,n28,n29,n30,n31,n32,n33) static TAutoDispIds<33> i_(this, id, _A(n33)_A(n32)_A(n31)_A(n30)_A(n29)_A(n28)_A(n27)_A(n26)_A(n25)_A(n24)_A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
964#define AUTONAMES34(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23,n24,n25,n26,n27,n28,n29,n30,n31,n32,n33,n34) static TAutoDispIds<34> i_(this, id, _A(n34)_A(n33)_A(n32)_A(n31)_A(n30)_A(n29)_A(n28)_A(n27)_A(n26)_A(n25)_A(n24)_A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
965#define AUTONAMES35(id,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17,n18,n19,n20,n21,n22,n23,n24,n25,n26,n27,n28,n29,n30,n31,n32,n33,n34,n35) static TAutoDispIds<35> i_(this, id, _A(n35)_A(n34)_A(n33)_A(n32)_A(n31)_A(n30)_A(n29)_A(n28)_A(n27)_A(n26)_A(n25)_A(n24)_A(n23)_A(n22)_A(n21)_A(n20)_A(n19)_A(n18)_A(n17)_A(n16)_A(n15)_A(n14)_A(n13)_A(n12)_A(n11)_A(n10)_A(n9)_A(n8)_A(n7)_A(n6)_A(n5)_A(n4)_A(n3)_A(n2)_A(n1));
966
967
968#define AUTOARGS0() TAutoArgs<0>a_;
969#define AUTOARGS1(a1) TAutoArgs<1>a_; a_[1]=a1;
970#define AUTOARGS2(a1,a2) TAutoArgs<2>a_; a_[1]=a1; a_[2]=a2;
971#define AUTOARGS3(a1,a2,a3) TAutoArgs<3>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3;
972#define AUTOARGS4(a1,a2,a3,a4) \
973 TAutoArgs<4>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4;
974#define AUTOARGS5(a1,a2,a3,a4,a5) \
975 TAutoArgs<5>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5;
976#define AUTOARGS6(a1,a2,a3,a4,a5,a6) \
977 TAutoArgs<6>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5;a_[6]=a6;
978#define AUTOARGS7(a1,a2,a3,a4,a5,a6,a7) \
979 TAutoArgs<7>a_;a_[1]=a1;a_[2]=a2;a_[3]=a3;a_[4]=a4;a_[5]=a5; \
980 a_[6]=a6;a_[7]=a7;
981#define AUTOARGS8(a1,a2,a3,a4,a5,a6,a7,a8) \
982 TAutoArgs<8>a_;a_[1]=a1;a_[2]=a2;a_[3]=a3;a_[4]=a4;a_[5]=a5; \
983 a_[6]=a6;a_[7]=a7;a_[8]=a8;
984#define AUTOARGS9(a1,a2,a3,a4,a5,a6,a7,a8,a9) \
985 TAutoArgs<9>a_;a_[1]=a1;a_[2]=a2;a_[3]=a3;a_[4]=a4;a_[5]=a5; \
986 a_[6]=a6;a_[7]=a7;a_[8]=a8;a_[9]=a9;
987#define AUTOARGS10(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10) \
988 TAutoArgs<10>a_;a_[1]=a1;a_[2]=a2;a_[3]=a3;a_[4]=a4;a_[5]=a5; \
989 a_[6]=a6;a_[7]=a7;a_[8]=a8;a_[9]=a9;a_[10]=a10;
990
991
992#define AUTOARGS11(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11) TAutoArgs<11>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11;
993#define AUTOARGS12(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12) TAutoArgs<12>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12;
994#define AUTOARGS13(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13) TAutoArgs<13>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13;
995#define AUTOARGS14(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14) TAutoArgs<14>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14;
996#define AUTOARGS15(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15) TAutoArgs<15>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15;
997#define AUTOARGS16(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16) TAutoArgs<16>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16;
998#define AUTOARGS17(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17) TAutoArgs<17>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17;
999#define AUTOARGS18(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18) TAutoArgs<18>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18;
1000#define AUTOARGS19(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19) TAutoArgs<19>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19;
1001#define AUTOARGS20(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20) TAutoArgs<20>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20;
1002#define AUTOARGS21(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21) TAutoArgs<21>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21;
1003#define AUTOARGS22(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22) TAutoArgs<22>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22;
1004#define AUTOARGS23(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23) TAutoArgs<23>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23;
1005#define AUTOARGS24(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24) TAutoArgs<24>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24;
1006#define AUTOARGS25(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25) TAutoArgs<25>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24; a_[25]=a25;
1007#define AUTOARGS26(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26) TAutoArgs<26>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24; a_[25]=a25; a_[26]=a26;
1008#define AUTOARGS27(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27) TAutoArgs<27>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24; a_[25]=a25; a_[26]=a26; a_[27]=a27;
1009#define AUTOARGS28(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28) TAutoArgs<28>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24; a_[25]=a25; a_[26]=a26; a_[27]=a27; a_[28]=a28;
1010#define AUTOARGS29(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29) TAutoArgs<29>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24; a_[25]=a25; a_[26]=a26; a_[27]=a27; a_[28]=a28; a_[29]=a29;
1011#define AUTOARGS30(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30) TAutoArgs<30>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24; a_[25]=a25; a_[26]=a26; a_[27]=a27; a_[28]=a28; a_[29]=a29; a_[30]=a30;
1012#define AUTOARGS31(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31) TAutoArgs<31>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24; a_[25]=a25; a_[26]=a26; a_[27]=a27; a_[28]=a28; a_[29]=a29; a_[30]=a30; a_[31]=a31;
1013#define AUTOARGS31(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31) TAutoArgs<31>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24; a_[25]=a25; a_[26]=a26; a_[27]=a27; a_[28]=a28; a_[29]=a29; a_[30]=a30; a_[31]=a31;
1014#define AUTOARGS32(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32) TAutoArgs<32>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24; a_[25]=a25; a_[26]=a26; a_[27]=a27; a_[28]=a28; a_[29]=a29; a_[30]=a30; a_[31]=a31; a_[32]=a32;
1015#define AUTOARGS33(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33) TAutoArgs<33>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24; a_[25]=a25; a_[26]=a26; a_[27]=a27; a_[28]=a28; a_[29]=a29; a_[30]=a30; a_[31]=a31; a_[32]=a32; a_[33]=a33;
1016#define AUTOARGS34(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34) TAutoArgs<34>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24; a_[25]=a25; a_[26]=a26; a_[27]=a27; a_[28]=a28; a_[29]=a29; a_[30]=a30; a_[31]=a31; a_[32]=a32; a_[33]=a33; a_[34]=a34;
1017#define AUTOARGS35(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35) TAutoArgs<35>a_; a_[1]=a1; a_[2]=a2; a_[3]=a3; a_[4]=a4; a_[5]=a5; a_[6]=a6; a_[7]=a7; a_[8]=a8; a_[9]=a9; a_[10]=a10; a_[11]=a11; a_[12]=a12; a_[13]=a13; a_[14]=a14; a_[15]=a15; a_[16]=a16; a_[17]=a17; a_[18]=a18; a_[19]=a19; a_[20]=a20; a_[21]=a21; a_[22]=a22; a_[23]=a23; a_[24]=a24; a_[25]=a25; a_[26]=a26; a_[27]=a27; a_[28]=a28; a_[29]=a29; a_[30]=a30; a_[31]=a31; a_[32]=a32; a_[33]=a33; a_[34]=a34; a_[35]=a35;
1018
1019#define AUTOCALL_METHOD_RET return Invoke(acMethod, a_, i_, i_);
1020#define AUTOCALL_METHOD_VOID Invoke(acMethod|acVoidRet, a_, i_, i_);
1021#define AUTOCALL_METHOD_REF(prx) prx.Bind(Invoke(acMethod, a_, i_, i_));
1022#define AUTOCALL_METHOD_CONV(t) return t(Invoke(acMethod, a_, i_, i_));
1023
1024#define AUTOCALL_PROP_GET return Invoke(acPropGet, a_, i_, i_);
1025#define AUTOCALL_PROP_SET(val) a_[0]=val; Invoke(acPropSet, a_, i_, i_);
1026#define AUTOCALL_PROP_REF(prx) prx.Bind(Invoke(acPropGet, a_, i_, i_));
1027#define AUTOCALL_PROP_CONV(t) return t(Invoke(acPropGet, a_, i_, i_));
1028
1029
1030//
1031// Special automation macro for default 'IDispatch::Invoke' handling
1032//
1033// DISPID_CATCH_ALL is a MEMBERID which is treated specially by both the
1034// TServedObject and TDispatch implementation of 'Invoke'. When found in a
1035// class symbol table, the handler associate with this ID is called for any
1036// method for which a specific handler was not specified. This makes the
1037// associated function a 'catch-all'.
1038//
1039// NOTE: *USE WITH CARE*
1040//
1041// This support makes it ideal for event sinking. It allows a single handler
1042// to be called for all custom events. See the TOcControlEvent class for more
1043// information.
1044//
1045#define DISPID_CATCH_ALL (-999)
1046
1047#define AUTOFUNCX(name, func, ret, defs) \
1048 AUTOFUNC_(name, Val=(ret)This->func( (long *)Args);, defs, \
1049 RETARG(ret) DEFARGSX, BLDARGSX, CTRARGSX, SETARGSX)
1050
1051#define DEFARGSX TAutoStack *Args;
1052#define BLDARGSX ,&args
1053#define CTRARGSX ,TAutoStack *args
1054#define SETARGSX ,Args(args)
1055
1056
1057} // OCF namespace
1058
1059
1060#endif // OCF_AUTOMACR_H
autodefs.h
OLE Automation Class Definitions.
ocf::TAutoCommand
Automation abstract base class for command objects.
Definition autodefs.h:846
ocf::TAutoStack
Automation argument stack abstraction.
Definition autodefs.h:813
ocf
Object Component Framework (COM encapsulation)
Definition appdesc.h:22
ocf::TAutoDateEnum
TAutoDate TAutoDateEnum
Definition automacr.h:173
ocf::TAutoShortEnum
short TAutoShortEnum
Definition automacr.h:166
ocf::ObjectPtr
void * ObjectPtr
Definition autodefs.h:84
ocf::TAutoCurrencyEnum
TAutoCurrency TAutoCurrencyEnum
Definition automacr.h:172
ocf::TAutoFloatEnum
float TAutoFloatEnum
Definition automacr.h:169
ocf::TAutoDoubleEnum
double TAutoDoubleEnum
Definition automacr.h:170
ocf::TAutoStringEnum
LPCTSTR TAutoStringEnum
Definition automacr.h:168
ocf::TAutoBoolEnum
bool TAutoBoolEnum
Definition automacr.h:171
ocf::TAutoLongEnum
long TAutoLongEnum
Definition automacr.h:167
ocf::TAutoByteEnum
unsigned char TAutoByteEnum
Definition automacr.h:174
ocf::TAutoEventDummy::TCommand_
Definition automacr.h:80
ocf::TAutoEventDummy::TCommand_::Build
static TAutoCommand * Build(ObjectPtr, int, TAutoStack &)
Definition automacr.h:81