/*

 * Copyright (c) 2015, Oracle and/or its affiliates. All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 *

 *   - Redistributions of source code must retain the above copyright

 *     notice, this list of conditions and the following disclaimer.

 *

 *   - Redistributions in binary form must reproduce the above copyright

 *     notice, this list of conditions and the following disclaimer in the

 *     documentation and/or other materials provided with the distribution.

 *

 *   - Neither the name of Oracle nor the names of its

 *     contributors may be used to endorse or promote products derived

 *     from this software without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS

 * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,

 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR

 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR

 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 */

// Simple sample to demonstrate openjdk asmtools assembler with

// nashorn dynalink linker in a invokedynamic instruction.

//

// To assemble this file, use the following command:

//

//    java -cp <asmtools.jar> org.openjdk.asmtools.Main jasm Main.asm

//

// See also: https://wiki.openjdk.java.net/display/CodeTools/asmtools

//

// NOTE: Uses dynalink API defined by JEP-276 (http://openjdk.java.net/jeps/276)

super public class Main

	version 52:0

{

private static final Field linker:"Ljdk/dynalink/DynamicLinker;";

/*

   static {

        // create dynalink linker factory

        final DynamicLinkerFactory factory = new DynamicLinkerFactory();

        // create standard linker that can handle Java POJOs

        linker = factory.createLinker();

   }

*/

static Method "<clinit>":"()V"

        stack 2 locals 1

{

    new     class jdk/dynalink/DynamicLinkerFactory;

    dup;

    invokespecial   Method jdk/dynalink/DynamicLinkerFactory."<init>":"()V";

    astore_0;

    aload_0;

    invokevirtual   Method jdk/dynalink/DynamicLinkerFactory.createLinker:"()Ljdk/dynalink/DynamicLinker;";

    putstatic       Field linker:"Ljdk/dynalink/DynamicLinker;";

    return;

}

/*

    // Bootstrap method used with invokedynamic methods

    public static CallSite bootstrap(MethodHandles.Lookup caller, String name, MethodType type) {

        // use dynalink linker to perform the actual linking

        return linker.link(

            new SimpleRelinkableCallSite(

                new CallSiteDescriptor(

                    MethodHandles.publicLookup(), 

                    new NamedOperation(StandardOperation.GET_PROPERTY, name), type)

            )

        );

    }

 */

public static Method bootstrap:"(Ljava/lang/invoke/MethodHandles$Lookup;Ljava/lang/String;Ljava/lang/invoke/MethodType;)Ljava/lang/invoke/CallSite;"

        stack 10 locals 3

{

    getstatic       Field linker:"Ljdk/dynalink/DynamicLinker;";

    new     class jdk/dynalink/support/SimpleRelinkableCallSite;

    dup;

    new     class jdk/dynalink/CallSiteDescriptor;

    dup;

    invokestatic    Method java/lang/invoke/MethodHandles.publicLookup:"()Ljava/lang/invoke/MethodHandles$Lookup;";

    new     class jdk/dynalink/NamedOperation;

    dup;

    getstatic       Field jdk/dynalink/StandardOperation.GET_PROPERTY:"Ljdk/dynalink/StandardOperation;";

    aload_1;

    invokespecial   Method jdk/dynalink/NamedOperation."<init>":"(Ljdk/dynalink/Operation;Ljava/lang/Object;)V";

    aload_2;

    invokespecial   Method jdk/dynalink/CallSiteDescriptor."<init>":"(Ljava/lang/invoke/MethodHandles$Lookup;Ljdk/dynalink/Operation;Ljava/lang/invoke/MethodType;)V";

    invokespecial   Method jdk/dynalink/support/SimpleRelinkableCallSite."<init>":"(Ljdk/dynalink/CallSiteDescriptor;)V";

    invokevirtual   Method jdk/dynalink/DynamicLinker.link:"(Ljdk/dynalink/RelinkableCallSite;)Ljdk/dynalink/RelinkableCallSite;";

    checkcast       class java/lang/invoke/CallSite;

    areturn;

}

// default constructor that does nothing!

public Method "<init>":"()V"

	stack 1 locals 1

{

    aload_0;

    invokespecial	Method java/lang/Object."<init>":"()V";

    return;

}

public static Method main:"([Ljava/lang/String;)V"

	stack 2 locals 2

{

    // List l = new ArrayList();

    new	class java/util/ArrayList;

    dup;

    invokespecial	Method java/util/ArrayList."<init>":"()V";

    astore_1;

    aload_1;

    // l.add("hello");

    ldc	String "hello";

    invokeinterface	InterfaceMethod java/util/List.add:"(Ljava/lang/Object;)Z",  2;

    pop;

    // l.add("world");

    aload_1;

    ldc	String "world";

    invokeinterface	InterfaceMethod java/util/List.add:"(Ljava/lang/Object;)Z",  2;

    pop;

    // printLength(l);

    aload_1;

    invokestatic	Method printLength:"(Ljava/lang/Object;)V";

    // printLength(args); // args is argument of main method

    aload_0;

    invokestatic	Method printLength:"(Ljava/lang/Object;)V";

    return;

}

private static Method printLength:"(Ljava/lang/Object;)V"

	stack 2 locals 1

{

    getstatic	Field java/lang/System.out:"Ljava/io/PrintStream;";

    aload_0;

    // Using bootstrap method in this class with the following invokedynamic

    // which uses dynalink linker. Dynalink's bean linker handles Java beans.

    // 'length' property on a bean - arrays, lists supported

    invokedynamic   InvokeDynamic REF_invokeStatic:Main.bootstrap:"(Ljava/lang/invoke/MethodHandles$Lookup;Ljava/lang/String;Ljava/lang/invoke/MethodType;)Ljava/lang/invoke/CallSite;":"length":"(Ljava/lang/Object;)Ljava/lang/Object;";

    // print 'length' value

    invokevirtual	Method java/io/PrintStream.println:"(Ljava/lang/Object;)V";

    return;

}

} // end Class Main