virtualx-engine/core/make_binders.py

# -*- coding: ibm850 -*-


template_typed="""
#ifdef TYPED_METHOD_BIND
template<class T $ifret ,class R$ $ifargs ,$ $arg, class P@$>
class MethodBind$argc$$ifret R$$ifconst C$ : public MethodBind {
public:

	$ifret R$ $ifnoret void$ (T::*method)($arg, P@$) $ifconst const$;
#ifdef DEBUG_METHODS_ENABLED
	virtual Variant::Type _gen_argument_type(int p_arg) const { return _get_argument_type(p_arg); }
	Variant::Type _get_argument_type(int p_argument) const {
		$ifret if (p_argument==-1) return Variant::get_type_for<R>();$
		$arg if (p_argument==(@-1)) return Variant::get_type_for<P@>();
		$
		return Variant::NIL;
	}
#endif
	virtual String get_instance_type() const {
		return T::get_type_static();
	}

	virtual Variant call(Object* p_object,const Variant** p_args,int p_arg_count, Variant::CallError& r_error) {

		T *instance=p_object->cast_to<T>();
		r_error.error=Variant::CallError::CALL_OK;
#ifdef DEBUG_METHODS_ENABLED

		ERR_FAIL_COND_V(!instance,Variant());
		if (p_arg_count>get_argument_count()) {
			r_error.error=Variant::CallError::CALL_ERROR_TOO_MANY_ARGUMENTS;
			r_error.argument=get_argument_count();
			return Variant();

		}
		if (p_arg_count<(get_argument_count()-get_default_argument_count())) {

			r_error.error=Variant::CallError::CALL_ERROR_TOO_FEW_ARGUMENTS;
			r_error.argument=get_argument_count()-get_default_argument_count();
			return Variant();
		}
		$arg CHECK_ARG(@);
		$
#endif
		$ifret Variant ret = $(instance->*method)($arg, _VC(@)$);
		$ifret return Variant(ret);$
		$ifnoret return Variant();$
	}

#ifdef PTRCALL_ENABLED
	virtual void ptrcall(Object*p_object,const void** p_args,void *r_ret) {

		T *instance=p_object->cast_to<T>();
		$ifret PtrToArg<R>::encode( $ (instance->*method)($arg, PtrToArg<P@>::convert(p_args[@-1])$) $ifret ,r_ret)$ ;
	}
#endif
	MethodBind$argc$$ifret R$$ifconst C$ () {
#ifdef DEBUG_METHODS_ENABLED
		_set_const($ifconst true$$ifnoconst false$);
		_generate_argument_types($argc$);
#else
		set_argument_count($argc$);
#endif
	};
};

template<class T $ifret ,class R$ $ifargs ,$ $arg, class P@$>
MethodBind* create_method_bind($ifret R$ $ifnoret void$ (T::*p_method)($arg, P@$) $ifconst const$ ) {

	MethodBind$argc$$ifret R$$ifconst C$<T $ifret ,R$ $ifargs ,$ $arg, P@$> * a = memnew( (MethodBind$argc$$ifret R$$ifconst C$<T $ifret ,R$ $ifargs ,$ $arg, P@$>) );
	a->method=p_method;
	return a;
}
#endif
"""

template="""
#ifndef TYPED_METHOD_BIND
$iftempl template<$ $ifret class R$ $ifretargs ,$ $arg, class P@$ $iftempl >$
class MethodBind$argc$$ifret R$$ifconst C$ : public MethodBind {

public:

	StringName type_name;
	$ifret R$ $ifnoret void$ (__UnexistingClass::*method)($arg, P@$) $ifconst const$;

#ifdef DEBUG_METHODS_ENABLED
	virtual Variant::Type _gen_argument_type(int p_arg) const { return _get_argument_type(p_arg); }

	Variant::Type _get_argument_type(int p_argument) const {
		$ifret if (p_argument==-1) return Variant::get_type_for<R>();$
		$arg if (p_argument==(@-1)) return Variant::get_type_for<P@>();
		$
		return Variant::NIL;
	}
#endif
	virtual String get_instance_type() const {
		return type_name;
	}

	virtual Variant call(Object* p_object,const Variant** p_args,int p_arg_count, Variant::CallError& r_error) {

		__UnexistingClass *instance = (__UnexistingClass*)p_object;

		r_error.error=Variant::CallError::CALL_OK;
#ifdef DEBUG_METHODS_ENABLED

		ERR_FAIL_COND_V(!instance,Variant());
		if (p_arg_count>get_argument_count()) {
			r_error.error=Variant::CallError::CALL_ERROR_TOO_MANY_ARGUMENTS;
			r_error.argument=get_argument_count();
			return Variant();
		}

		if (p_arg_count<(get_argument_count()-get_default_argument_count())) {

			r_error.error=Variant::CallError::CALL_ERROR_TOO_FEW_ARGUMENTS;
			r_error.argument=get_argument_count()-get_default_argument_count();
			return Variant();
		}

		$arg CHECK_ARG(@);
		$
#endif
		$ifret Variant ret = $(instance->*method)($arg, _VC(@)$);
		$ifret return Variant(ret);$
		$ifnoret return Variant();$
	}
#ifdef PTRCALL_ENABLED
	virtual void ptrcall(Object*p_object,const void** p_args,void *r_ret) {
		__UnexistingClass *instance = (__UnexistingClass*)p_object;
		$ifret PtrToArg<R>::encode( $ (instance->*method)($arg, PtrToArg<P@>::convert(p_args[@-1])$) $ifret ,r_ret) $ ;
	}
#endif
	MethodBind$argc$$ifret R$$ifconst C$ () {
#ifdef DEBUG_METHODS_ENABLED
		_set_const($ifconst true$$ifnoconst false$);
		_generate_argument_types($argc$);
#else
		set_argument_count($argc$);
#endif
	};
};

template<class T $ifret ,class R$ $ifargs ,$ $arg, class P@$>
MethodBind* create_method_bind($ifret R$ $ifnoret void$ (T::*p_method)($arg, P@$) $ifconst const$ ) {

	MethodBind$argc$$ifret R$$ifconst C$ $iftempl <$  $ifret R$ $ifretargs ,$ $arg, P@$ $iftempl >$ * a = memnew( (MethodBind$argc$$ifret R$$ifconst C$ $iftempl <$ $ifret R$ $ifretargs ,$ $arg, P@$ $iftempl >$) );
	union {

		$ifret R$ $ifnoret void$ (T::*sm)($arg, P@$) $ifconst const$;
		$ifret R$ $ifnoret void$ (__UnexistingClass::*dm)($arg, P@$) $ifconst const$;
	} u;
	u.sm=p_method;
	a->method=u.dm;
	a->type_name=T::get_type_static();
	return a;
}
#endif
"""


def make_version(template,nargs,argmax,const,ret):

    intext=template
    from_pos=0
    outtext=""

    while(True):
        to_pos=intext.find("$",from_pos)
        if (to_pos==-1):
            outtext+=intext[from_pos:]
            break
        else:
            outtext+=intext[from_pos:to_pos]
        end=intext.find("$",to_pos+1)
        if (end==-1):
            break # ignore
        macro=intext[to_pos+1:end]
        cmd=""
        data=""

        if (macro.find(" ")!=-1):
            cmd=macro[0:macro.find(" ")]
            data=macro[macro.find(" ")+1:]
        else:
            cmd=macro

        if (cmd=="argc"):
            outtext+=str(nargs)
        if (cmd=="ifret" and ret):
            outtext+=data
        if (cmd=="ifargs" and nargs):
            outtext+=data
        if (cmd=="ifretargs" and nargs and ret):
            outtext+=data
        if (cmd=="ifconst" and const):
            outtext+=data
        elif (cmd=="ifnoconst" and not const):
            outtext+=data
        elif (cmd=="ifnoret" and not ret):
            outtext+=data
        elif (cmd=="iftempl" and (nargs>0 or ret)):
            outtext+=data
        elif (cmd=="arg,"):
            for i in range(1,nargs+1):
                if (i>1):
                    outtext+=", "
                outtext+=data.replace("@",str(i))
        elif (cmd=="arg"):
            for i in range(1,nargs+1):
                outtext+=data.replace("@",str(i))
        elif (cmd=="noarg"):
            for i in range(nargs+1,argmax+1):
                outtext+=data.replace("@",str(i))
        elif (cmd=="noarg"):
            for i in range(nargs+1,argmax+1):
                outtext+=data.replace("@",str(i))

        from_pos=end+1

    return outtext


def run(target, source, env):

    versions=10
    versions_ext=6
    text=""
    text_ext=""

    for i in range(0,versions+1):

        t=""
        t+=make_version(template,i,versions,False,False)
        t+=make_version(template_typed,i,versions,False,False)
        t+=make_version(template,i,versions,False,True)
        t+=make_version(template_typed,i,versions,False,True)
        t+=make_version(template,i,versions,True,False)
        t+=make_version(template_typed,i,versions,True,False)
        t+=make_version(template,i,versions,True,True)
        t+=make_version(template_typed,i,versions,True,True)
        if (i>=versions_ext):
            text_ext+=t
        else:
            text+=t


    f=open(target[0].path,"w")
    f.write(text)
    f.close()

    f=open(target[1].path,"w")
    f.write(text_ext)
    f.close()