Search in sources :

Example 6 with InstructionBuilderCallback

use of org.apache.tapestry5.plastic.InstructionBuilderCallback in project tapestry-5 by apache.

the class ThunkCreatorImpl method createInstantiator.

private <T> ClassInstantiator<T> createInstantiator(final Class<T> interfaceType) {
    return proxyFactory.createProxy(interfaceType, new PlasticClassTransformer() {

        @Override
        public void transform(PlasticClass plasticClass) {
            final PlasticField objectCreatorField = plasticClass.introduceField(ObjectCreator.class, "creator").injectFromInstanceContext();
            PlasticMethod delegateMethod = plasticClass.introducePrivateMethod(interfaceType.getName(), "delegate", null, null);
            delegateMethod.changeImplementation(new InstructionBuilderCallback() {

                @Override
                public void doBuild(InstructionBuilder builder) {
                    builder.loadThis().getField(objectCreatorField);
                    builder.invoke(CREATE_OBJECT);
                    builder.checkcast(interfaceType).returnResult();
                }
            });
            for (Method method : interfaceType.getMethods()) {
                plasticClass.introduceMethod(method).delegateTo(delegateMethod);
            }
            if (!plasticClass.isMethodImplemented(PlasticUtils.TO_STRING_DESCRIPTION)) {
                final PlasticField descriptionField = plasticClass.introduceField(String.class, "description").injectFromInstanceContext();
                plasticClass.introduceMethod(PlasticUtils.TO_STRING_DESCRIPTION, new InstructionBuilderCallback() {

                    @Override
                    public void doBuild(InstructionBuilder builder) {
                        builder.loadThis().getField(descriptionField).returnResult();
                    }
                });
            }
        }
    });
}
Also used : PlasticClass(org.apache.tapestry5.plastic.PlasticClass) InstructionBuilder(org.apache.tapestry5.plastic.InstructionBuilder) PlasticClassTransformer(org.apache.tapestry5.plastic.PlasticClassTransformer) PlasticField(org.apache.tapestry5.plastic.PlasticField) PlasticMethod(org.apache.tapestry5.plastic.PlasticMethod) PlasticMethod(org.apache.tapestry5.plastic.PlasticMethod) Method(java.lang.reflect.Method) InstructionBuilderCallback(org.apache.tapestry5.plastic.InstructionBuilderCallback)

Example 7 with InstructionBuilderCallback

use of org.apache.tapestry5.plastic.InstructionBuilderCallback in project tapestry-5 by apache.

the class ClojureBuilderImpl method build.

@Override
public <T> T build(final Class<T> interfaceType) {
    assert interfaceType != null;
    assert interfaceType.isInterface();
    Namespace annotation = interfaceType.getAnnotation(Namespace.class);
    if (annotation == null) {
        throw new IllegalArgumentException(String.format("Interface type %s does not have the Namespace annotation.", interfaceType.getName()));
    }
    final String namespace = annotation.value();
    ClassInstantiator<T> instantiator = proxyFactory.createProxy(interfaceType, new PlasticClassTransformer() {

        @Override
        public void transform(PlasticClass plasticClass) {
            for (final Method m : interfaceType.getMethods()) {
                bridgeToClojure(plasticClass, m);
            }
        }

        private void bridgeToClojure(final PlasticClass plasticClass, final Method method) {
            final MethodDescription desc = new MethodDescription(method);
            if (method.getReturnType() == void.class) {
                throw new IllegalArgumentException(String.format("Method %s may not be void when bridging to Clojure functions.", desc));
            }
            final Symbol symbol = mapper.mapMethod(namespace, method);
            tracker.run(String.format("Mapping %s method %s to Clojure function %s", interfaceType.getName(), desc.toShortString(), symbol.toString()), new Runnable() {

                @Override
                public void run() {
                    Symbol namespaceSymbol = Symbol.create(symbol.getNamespace());
                    REQUIRE.invoke(namespaceSymbol);
                    IFn clojureFunction = Clojure.var(symbol);
                    final PlasticField fnField = plasticClass.introduceField(IFn.class, method.getName() + "IFn").inject(clojureFunction);
                    plasticClass.introduceMethod(desc).changeImplementation(new InstructionBuilderCallback() {

                        @Override
                        public void doBuild(InstructionBuilder builder) {
                            bridgeToClojure(builder, desc, fnField);
                        }
                    });
                }
            });
        }

        private void bridgeToClojure(InstructionBuilder builder, MethodDescription description, PlasticField ifnField) {
            builder.loadThis().getField(ifnField);
            int count = description.argumentTypes.length;
            Class[] invokeParameterTypes = new Class[count];
            for (int i = 0; i < count; i++) {
                invokeParameterTypes[i] = Object.class;
                builder.loadArgument(i).boxPrimitive(description.argumentTypes[i]);
            }
            Method ifnMethod = null;
            try {
                ifnMethod = IFn.class.getMethod("invoke", invokeParameterTypes);
            } catch (NoSuchMethodException ex) {
                throw new RuntimeException(String.format("Unable to find correct IFn.invoke() method: %s", ExceptionUtils.toMessage(ex)), ex);
            }
            builder.invoke(ifnMethod);
            builder.castOrUnbox(description.returnType);
            builder.returnResult();
        }
    });
    return instantiator.newInstance();
}
Also used : Symbol(clojure.lang.Symbol) Method(java.lang.reflect.Method) Namespace(org.apache.tapestry5.clojure.Namespace) IFn(clojure.lang.IFn)

Example 8 with InstructionBuilderCallback

use of org.apache.tapestry5.plastic.InstructionBuilderCallback in project tapestry-5 by apache.

the class TryCatchBlockImpl method doCatch.

private void doCatch(String exceptionInternalName, InstructionBuilderCallback callback) {
    check();
    Label handler = state.newLabel();
    callback.doBuild(builder);
    state.visitor.visitTryCatchBlock(startLabel, endLabel, handler, exceptionInternalName);
}
Also used : Label(org.apache.tapestry5.internal.plastic.asm.Label)

Aggregations

InstructionBuilder (org.apache.tapestry5.plastic.InstructionBuilder)6 InstructionBuilderCallback (org.apache.tapestry5.plastic.InstructionBuilderCallback)6 Method (java.lang.reflect.Method)3 PlasticClass (org.apache.tapestry5.plastic.PlasticClass)3 PlasticField (org.apache.tapestry5.plastic.PlasticField)3 PlasticClassTransformer (org.apache.tapestry5.plastic.PlasticClassTransformer)2 IFn (clojure.lang.IFn)1 Symbol (clojure.lang.Symbol)1 OnEvent (org.apache.tapestry5.annotations.OnEvent)1 Namespace (org.apache.tapestry5.clojure.Namespace)1 StrategyRegistry (org.apache.tapestry5.commons.util.StrategyRegistry)1 InternalComponentResources (org.apache.tapestry5.internal.InternalComponentResources)1 Label (org.apache.tapestry5.internal.plastic.asm.Label)1 JSONArray (org.apache.tapestry5.json.JSONArray)1 JSONObject (org.apache.tapestry5.json.JSONObject)1 ClassInstantiator (org.apache.tapestry5.plastic.ClassInstantiator)1 Condition (org.apache.tapestry5.plastic.Condition)1 LocalVariable (org.apache.tapestry5.plastic.LocalVariable)1 LocalVariableCallback (org.apache.tapestry5.plastic.LocalVariableCallback)1 MethodDescription (org.apache.tapestry5.plastic.MethodDescription)1