You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdebindings/kjsembed/bindwizard/doxygen2imp_cpp.xsl

561 lines
23 KiB

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="text" />
<xsl:template match="/doxygen/compounddef">
<!-- Find the name of the class -->
<xsl:variable name="clazz" select="compoundname" />
<!-- Find the constructors and methods -->
<xsl:variable name="consmeth" select="sectiondef/memberdef[@kind='function' and @prot='public']" />
<!-- Find the enums -->
<xsl:variable name="enums" select="sectiondef/memberdef[@kind='enum' and @prot='public']" />
#include &lt;qcstring.h>
#include &lt;qimage.h>
#include &lt;qpainter.h>
#include &lt;qpalette.h>
#include &lt;qpixmap.h>
#include &lt;qfont.h>
#include &lt;kjs/object.h>
#include &lt;kjsembed/global.h>
#include &lt;kjsembed/jsobjectproxy.h>
#include &lt;kjsembed/jsopaqueproxy.h>
#include &lt;kjsembed/jsbinding.h>
#include &lt;<xsl:value-of select="includes" />>
#include "<xsl:value-of select="translate($clazz,'ABCDEFGHIJKLMNOPQRSTUVWXYZ','abcdefghijklmnopqrstuvwxyz')"/>_imp.h"
/**
* Namespace containing the KJSEmbed library.
*/
namespace KJSEmbed {
<xsl:value-of select="$clazz" />Imp::<xsl:value-of select="$clazz" />Imp( KJS::ExecState *exec, int mid, bool constructor )
: JSProxyImp(exec), id(mid), cons(constructor)
{
}
<xsl:value-of select="$clazz" />Imp::~<xsl:value-of select="$clazz" />Imp()
{
}
/**
* Adds bindings for static methods and enum constants to the specified Object.
*/
void <xsl:value-of select="$clazz" />Imp::addStaticBindings( KJS::ExecState *exec, KJS::Object &amp;object )
{
JSProxy::MethodTable methods[] = {
<xsl:for-each select="consmeth">
<xsl:variable name="method_name"><xsl:value-of select="name" />_<xsl:value-of select="position()" /></xsl:variable>
<xsl:variable name="method_id">Method_<xsl:value-of select="$method_name" /></xsl:variable>
<xsl:choose>
<xsl:when test="@static = 'yes'">
{ <xsl:value-of select="$method_id" />, "<xsl:value-of select="name" />" },</xsl:when></xsl:choose>
</xsl:for-each>
{ 0, 0 }
};
int idx = 0;
TQCString lastName;
while( methods[idx].name ) {
if ( lastName != methods[idx].name ) {
<xsl:value-of select="$clazz" />Imp *meth = new <xsl:value-of select="$clazz" />Imp( exec, methods[idx].id );
object.put( exec , methods[idx].name, KJS::Object(meth) );
lastName = methods[idx].name;
}
++idx;
}
<xsl:if test="count($enums) != 0">
//
// Define the enum constants
//
struct EnumValue {
const char *id;
int val;
};
EnumValue enums[] = {
<xsl:for-each select="$enums">
// enum <xsl:value-of select="./name" />
<xsl:for-each select="./enumvalue">
{ "<xsl:value-of select="./name" />", <xsl:value-of select="$clazz" />::<xsl:value-of select="./name" /> },</xsl:for-each>
</xsl:for-each>
{ 0, 0 }
};
int enumidx = 0;
while( enums[enumidx].id ) {
object.put( exec, enums[enumidx].id, KJS::Number(enums[enumidx].val), KJS::ReadOnly );
++enumidx;
}
</xsl:if>
}
/**
* Adds bindings for instance methods to the specified Object.
*/
void <xsl:value-of select="$clazz" />Imp::addBindings( KJS::ExecState *exec, KJS::Object &amp;object )
{
JSProxy::MethodTable methods[] = {
<xsl:for-each select="$consmeth">
<xsl:variable name="method_name"><xsl:value-of select="name" />_<xsl:value-of select="position()" /></xsl:variable>
<xsl:variable name="method_id">Method_<xsl:value-of select="$method_name" /></xsl:variable>
<xsl:choose>
<xsl:when test="not( @static = 'yes'
or starts-with( name, 'operator' )
or starts-with( name, '~' )
or starts-with( name, $clazz ))">
{ <xsl:value-of select="$method_id" />, "<xsl:value-of select="name" />" },</xsl:when></xsl:choose>
</xsl:for-each>
{ 0, 0 }
};
int idx = 0;
TQCString lastName;
while( methods[idx].name ) {
if ( lastName != methods[idx].name ) {
<xsl:value-of select="$clazz" />Imp *meth = new <xsl:value-of select="$clazz" />Imp( exec, methods[idx].id );
object.put( exec , methods[idx].name, KJS::Object(meth) );
lastName = methods[idx].name;
}
++idx;
}
}
/**
* Extract a <xsl:value-of select="$clazz" /> pointer from an Object.
*/
<xsl:value-of select="$clazz" /> *<xsl:value-of select="$clazz" />Imp::to<xsl:value-of select="$clazz" />( KJS::Object &amp;self )
{
JSObjectProxy *ob = JSProxy::toObjectProxy( self.imp() );
if ( ob ) {
TQObject *obj = ob->object();
if ( obj )
return dynamic_cast&lt;<xsl:value-of select="$clazz" /> *>( obj );
}
JSOpaqueProxy *op = JSProxy::toOpaqueProxy( self.imp() );
if ( !op )
return 0;
if ( op->typeName() != "<xsl:value-of select="$clazz" />" )
return 0;
return (<xsl:value-of select="$clazz" /> *)( op->toVoidStar() );
}
/**
* Select and invoke the correct constructor.
*/
KJS::Object <xsl:value-of select="$clazz" />Imp::construct( KJS::ExecState *exec, const KJS::List &amp;args )
{
switch( id ) {
<xsl:for-each select="$consmeth">
<xsl:choose>
<xsl:when test="name = $clazz">
<xsl:variable name="cons_name"><xsl:value-of select="name" />_<xsl:value-of select="position()" /></xsl:variable>
<xsl:variable name="cons_id">Constructor_<xsl:value-of select="$cons_name" /></xsl:variable>
case <xsl:value-of select="$cons_id" />:
return <xsl:value-of select="$cons_name" />( exec, args );
break;
</xsl:when>
</xsl:choose>
</xsl:for-each>
default:
break;
}
TQString msg = i18n("<xsl:value-of select="$clazz" />Cons has no constructor with id '%1'").arg(id);
KJS::Object err = KJS::Error::create( exec, KJS::ReferenceError, msg.utf8() );
exec->setException( err );
return err;
}
<!-- Implementations of the constructors. -->
<xsl:for-each select="$consmeth">
<xsl:choose>
<xsl:when test="(name = $clazz)">
<xsl:variable name="cons_name"><xsl:value-of select="name" />_<xsl:value-of select="position()" /></xsl:variable>
<xsl:variable name="cons_id">Constructor_<xsl:value-of select="$cons_name" /></xsl:variable>
KJS::Object <xsl:value-of select="$clazz" />Imp::<xsl:value-of select="$cons_name" />( KJS::ExecState *exec, const KJS::List &amp;args )
{
<xsl:if test="($clazz = 'TQCanvasItem') or ($clazz = 'TQCanvasPolygonalItem')">
#if 0 // This constructor has been disabled by the XSL template
</xsl:if>
<xsl:for-each select="param/type">
<xsl:variable name="idx" select="position()-1" />
<xsl:choose>
<xsl:when test=". = 'TQString'">
TQString arg<xsl:value-of select="$idx" /> = extractTQString(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQString &amp;'">
TQString arg<xsl:value-of select="$idx" /> = extractTQString(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'TQString &amp;'">
TQString arg<xsl:value-of select="$idx" /> = extractTQString(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQCString &amp;'">
const TQCString arg<xsl:value-of select="$idx" /> = (args.size() >= <xsl:value-of select="position()" />) ? args[<xsl:value-of select="$idx" />].toString(exec).ascii() : 0;
</xsl:when>
<xsl:when test=". = 'const char *'">
const char *arg<xsl:value-of select="$idx" /> = (args.size() >= <xsl:value-of select="position()" />) ? args[<xsl:value-of select="$idx" />].toString(exec).ascii() : 0;
</xsl:when>
<xsl:when test=". = 'int'">
int arg<xsl:value-of select="$idx" /> = extractInt(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'uint'">
uint arg<xsl:value-of select="$idx" /> = extractUInt(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'double'">
double arg<xsl:value-of select="$idx" /> = extractDouble(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'bool'">
bool arg<xsl:value-of select="$idx" /> = extractBool(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQFont &amp;'">
TQFont arg<xsl:value-of select="$idx" /> = extractTQFont(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQPalette &amp;'">
TQPalette arg<xsl:value-of select="$idx" /> = extractTQPalette(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQStringList &amp;'">
TQStringList arg<xsl:value-of select="$idx" /> = extractTQStringList(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQStrList &amp;'">
TQStrList arg<xsl:value-of select="$idx" /> = extractTQStrList(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQPoint &amp;'">
TQPoint arg<xsl:value-of select="$idx" /> = extractTQPoint(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQRect &amp;'">
TQRect arg<xsl:value-of select="$idx" /> = extractTQRect(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQSize &amp;'">
TQSize arg<xsl:value-of select="$idx" /> = extractTQSize(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQPixmap &amp;'">
TQPixmap arg<xsl:value-of select="$idx" /> = extractTQPixmap(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQImage &amp;'">
TQImage arg<xsl:value-of select="$idx" /> = extractTQImage(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQColor &amp;'">
TQColor arg<xsl:value-of select="$idx" /> = extractTQColor(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQDate &amp;'">
TQDate arg<xsl:value-of select="$idx" /> = extractTQDate(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQTime &amp;'">
TQTime arg<xsl:value-of select="$idx" /> = extractTQTime(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQDateTime &amp;'">
TQDateTime arg<xsl:value-of select="$idx" /> = extractTQDateTime(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'WFlags'">
TQt::WFlags arg<xsl:value-of select="$idx" />; // TODO (hack for TQCanvasView)
</xsl:when>
<xsl:otherwise>
// Unsupported parameter <xsl:value-of select="." />
return KJS::Object();
<xsl:value-of select="." /> arg<xsl:value-of select="$idx" />; // Dummy
</xsl:otherwise>
</xsl:choose>
</xsl:for-each>
// We should now create an instance of the <xsl:value-of select="$clazz" /> object
<xsl:value-of select="$clazz" /> *ret = new <xsl:value-of select="$clazz" />(
<xsl:for-each select="param">
arg<xsl:value-of select="position()-1" /><xsl:if test="position() != count(../param)">,</xsl:if>
</xsl:for-each> );
<xsl:if test="($clazz = 'TQCanvasItem') or ($clazz = 'TQCanvasPolygonalItem')">
#endif // This constructor has been disabled by the XSL template
</xsl:if>
}
</xsl:when>
</xsl:choose>
</xsl:for-each>
<!-- Select and invoke the correct method. -->
KJS::Value <xsl:value-of select="$clazz" />Imp::call( KJS::ExecState *exec, KJS::Object &amp;self, const KJS::List &amp;args )
{
instance = <xsl:value-of select="$clazz" />Imp::to<xsl:value-of select="$clazz" />( self );
switch( id ) {
<xsl:for-each select="$consmeth">
<xsl:variable name="method_name"><xsl:value-of select="name" />_<xsl:value-of select="position()" /></xsl:variable>
<xsl:variable name="method_id">Method_<xsl:value-of select="$method_name" /></xsl:variable>
<xsl:choose>
<xsl:when test="not(starts-with( name, 'operator' ) or starts-with( name, '~' ) or starts-with( name, $clazz ))">
case <xsl:value-of select="$method_id" />:
return <xsl:value-of select="$method_name" />( exec, self, args );
break;
</xsl:when>
</xsl:choose>
</xsl:for-each>
default:
break;
}
TQString msg = i18n( "<xsl:value-of select="$clazz" />Imp has no method with id '%1'" ).arg( id );
KJS::Object err = KJS::Error::create( exec, KJS::ReferenceError, msg.utf8() );
exec->setException( err );
return err;
}
<!-- Create the implementation for each method. -->
<xsl:for-each select="$consmeth">
<xsl:variable name="method">
<xsl:value-of select="$clazz" />Imp::<xsl:value-of select="name" />_<xsl:value-of select="position()" />
</xsl:variable>
<xsl:choose>
<xsl:when test="(name != $clazz) and not(starts-with(name, 'operator') or starts-with(name, '~'))">
<!-- Binding defined for a specific method. -->
KJS::Value <xsl:value-of select="$method" />( KJS::ExecState *exec, KJS::Object &amp;obj, const KJS::List &amp;args )
{
<xsl:for-each select="param/type">
<xsl:variable name="idx" select="position()-1" />
<xsl:choose>
<xsl:when test=". = 'TQString'">
TQString arg<xsl:value-of select="$idx" /> = extractTQString(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQString &amp;'">
TQString arg<xsl:value-of select="$idx" /> = extractTQString(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'TQString &amp;'">
TQString arg<xsl:value-of select="$idx" /> = extractTQString(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQCString &amp;'">
const TQCString arg<xsl:value-of select="$idx" /> = (args.size() >= <xsl:value-of select="position()" />) ? args[<xsl:value-of select="$idx" />].toString(exec).ascii() : 0;
</xsl:when>
<xsl:when test=". = 'const char *'">
const char *arg<xsl:value-of select="$idx" /> = (args.size() >= <xsl:value-of select="position()" />) ? args[<xsl:value-of select="$idx" />].toString(exec).ascii() : 0;
</xsl:when>
<xsl:when test=". = 'int'">
int arg<xsl:value-of select="$idx" /> = extractInt(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'uint'">
uint arg<xsl:value-of select="$idx" /> = extractUInt(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'double'">
double arg<xsl:value-of select="$idx" /> = extractDouble(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'bool'">
bool arg<xsl:value-of select="$idx" /> = extractBool(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQFont &amp;'">
TQFont arg<xsl:value-of select="$idx" /> = extractTQFont(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQPalette &amp;'">
TQPalette arg<xsl:value-of select="$idx" /> = extractTQPalette(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQStringList &amp;'">
TQStringList arg<xsl:value-of select="$idx" /> = extractTQStringList(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQStrList &amp;'">
TQStrList arg<xsl:value-of select="$idx" /> = extractTQStrList(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQPoint &amp;'">
TQPoint arg<xsl:value-of select="$idx" /> = extractTQPoint(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQRect &amp;'">
TQRect arg<xsl:value-of select="$idx" /> = extractTQRect(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQSize &amp;'">
TQSize arg<xsl:value-of select="$idx" /> = extractTQSize(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQPixmap &amp;'">
TQPixmap arg<xsl:value-of select="$idx" /> = extractTQPixmap(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQImage &amp;'">
TQImage arg<xsl:value-of select="$idx" /> = extractTQImage(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQColor &amp;'">
TQColor arg<xsl:value-of select="$idx" /> = extractTQColor(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQDate &amp;'">
TQDate arg<xsl:value-of select="$idx" /> = extractTQDate(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQTime &amp;'">
TQTime arg<xsl:value-of select="$idx" /> = extractTQTime(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<xsl:when test=". = 'const TQDateTime &amp;'">
TQDateTime arg<xsl:value-of select="$idx" /> = extractTQDateTime(exec, args, <xsl:value-of select="$idx" />);
</xsl:when>
<!-- Hacks for enum types, this should be handled in a much cleaner way. -->
<xsl:when test=". = 'Policy'">
TQComboBox::Policy arg<xsl:value-of select="$idx" />; // TODO (hack for combo box)
</xsl:when>
<xsl:when test=". = 'Shape'">
TQFrame::Shape arg<xsl:value-of select="$idx" />; // TODO (hack for frame)
</xsl:when>
<xsl:when test=". = 'Shadow'">
TQFrame::Shadow arg<xsl:value-of select="$idx" />; // TODO (hack for frame)
</xsl:when>
<xsl:when test=". = 'FILE *'">
FILE *arg<xsl:value-of select="$idx" />; // TODO (hack for qfile)
</xsl:when>
<xsl:when test=". = 'Offset'">
TQFile::Offset arg<xsl:value-of select="$idx" />; // TODO (hack for qfile)
</xsl:when>
<xsl:when test=". = 'EncoderFn'">
TQFile::EncoderFn arg<xsl:value-of select="$idx" />; // TODO (hack for qfile)
</xsl:when>
<xsl:when test=". = 'DecoderFn'">
TQFile::DecoderFn arg<xsl:value-of select="$idx" />; // TODO (hack for qfile)
</xsl:when>
<xsl:when test=". = 'FrameAnimationType'">
TQCanvasSprite::FrameAnimationType arg<xsl:value-of select="$idx" />; // TODO (hack for TQCanvasSprite)
</xsl:when>
<xsl:when test=". = 'WFlags'">
TQt::WFlags arg<xsl:value-of select="$idx" />; // TODO (hack for TQCanvasView)
</xsl:when>
<!-- Unsupported for now -->
<xsl:when test=". = 'const TQByteArray &amp;'">
TQByteArray arg<xsl:value-of select="$idx" />; // TODO (hack for qfile)
</xsl:when>
<xsl:when test=". = 'const TQPointArray &amp;'">
TQPointArray arg<xsl:value-of select="$idx" />; // TODO (hack for qcanvas)
</xsl:when>
<xsl:when test=". = 'TQPainter &amp;'">
TQPainter arg<xsl:value-of select="$idx" />; // TODO (hack for qcanvas)
</xsl:when>
<xsl:when test=". = 'const TQPainter &amp;'">
TQPainter arg<xsl:value-of select="$idx" />; // TODO (hack for qcanvas)
</xsl:when>
<xsl:when test=". = 'const TQWMatrix &amp;'">
TQWMatrix arg<xsl:value-of select="$idx" />; // TODO (hack for qcanvasview)
</xsl:when>
<xsl:otherwise>
// Unsupported parameter <xsl:value-of select="." />
return KJS::Value();
<xsl:value-of select="." /> arg<xsl:value-of select="$idx" />; // Dummy
</xsl:otherwise>
</xsl:choose>
</xsl:for-each>
<!-- Specifies the return type -->
<xsl:variable name="rettype">
<xsl:choose>
<xsl:when test="starts-with(type,'virtual ')">
<xsl:value-of select="substring-after(type,'virtual ')" />
</xsl:when>
<xsl:otherwise><xsl:value-of select="type" /></xsl:otherwise>
</xsl:choose>
</xsl:variable>
<xsl:choose>
<xsl:when test="$rettype = 'bool'">
bool ret;
ret = instance-><xsl:value-of select="name" />( <xsl:for-each select="param">
arg<xsl:value-of select="position()-1" /><xsl:if test="position() != count(../param)">,</xsl:if></xsl:for-each> );
return KJS::Boolean( ret );
</xsl:when>
<xsl:when test="$rettype = 'int'">
int ret;
ret = instance-><xsl:value-of select="name" />( <xsl:for-each select="param">
arg<xsl:value-of select="position()-1" /><xsl:if test="position() != count(../param)">,</xsl:if></xsl:for-each> );
return KJS::Number( ret );
</xsl:when>
<xsl:when test="$rettype = 'uint'">
uint ret;
ret = instance-><xsl:value-of select="name" />( <xsl:for-each select="param">
arg<xsl:value-of select="position()-1" /><xsl:if test="position() != count(../param)">,</xsl:if></xsl:for-each> );
return KJS::Number( ret );
</xsl:when>
<xsl:when test="$rettype = 'double'">
double ret;
ret = instance-><xsl:value-of select="name" />( <xsl:for-each select="param">
arg<xsl:value-of select="position()-1" /><xsl:if test="position() != count(../param)">,</xsl:if></xsl:for-each> );
return KJS::Number( ret );
</xsl:when>
<xsl:when test="$rettype = 'TQString'">
TQString ret;
ret = instance-><xsl:value-of select="name" />( <xsl:for-each select="param">
arg<xsl:value-of select="position()-1" /><xsl:if test="position() != count(../param)">,</xsl:if></xsl:for-each> );
return KJS::String( ret );
</xsl:when>
<xsl:when test="$rettype = 'const char *'">
const char *ret;
ret = instance-><xsl:value-of select="name" />( <xsl:for-each select="param">
arg<xsl:value-of select="position()-1" /><xsl:if test="position() != count(../param)">,</xsl:if></xsl:for-each> );
return KJS::String( ret );
</xsl:when>
<!-- Value returns -->
<xsl:when test="($rettype = 'TQRect') or ($rettype = 'TQSize') or ($rettype = 'TQPoint')
or ($rettype = 'TQPixmap') or ($rettype = 'TQImage') or ($rettype = 'TQBrush')
or ($rettype = 'TQPen') or ($rettype = 'TQDate') or ($rettype = 'TQDateTime')
or ($rettype = 'TQTime')">
<xsl:value-of select="$rettype"/> ret;
ret = instance-><xsl:value-of select="name" />( <xsl:for-each select="param">
arg<xsl:value-of select="position()-1" /><xsl:if test="position() != count(../param)">,</xsl:if></xsl:for-each> );
return convertToValue( exec, ret );
</xsl:when>
<xsl:when test="$rettype = 'TQStringList'">
TQStringList ret;
ret = instance-><xsl:value-of select="name" />( <xsl:for-each select="param">
arg<xsl:value-of select="position()-1" /><xsl:if test="position() != count(../param)">,</xsl:if></xsl:for-each> );
return convertToValue( exec, ret );
</xsl:when>
<!-- Special returns -->
<xsl:when test="$rettype = 'void'">
instance-><xsl:value-of select="name" />( <xsl:for-each select="param">
arg<xsl:value-of select="position()-1" /><xsl:if test="position() != count(../param)">,</xsl:if></xsl:for-each> );
return KJS::Value(); // Returns void
</xsl:when>
<xsl:otherwise>
instance-><xsl:value-of select="name" />( <xsl:for-each select="param">
arg<xsl:value-of select="position()-1" /><xsl:if test="position() != count(../param)">,</xsl:if></xsl:for-each> );
return KJS::Value(); // Returns '<xsl:value-of select="$rettype" />'
</xsl:otherwise>
</xsl:choose>
}
</xsl:when>
</xsl:choose>
</xsl:for-each>
} // namespace KJSEmbed
// Local Variables:
// c-basic-offset: 4
// End:
</xsl:template>
</xsl:stylesheet>