/*

  * Licensed to the Apache Software Foundation (ASF) under one or more

  * contributor license agreements.  See the NOTICE file distributed with

  * this work for additional information regarding copyright ownership.

  * The ASF licenses this file to You under the Apache License, Version 2.0

  * (the "License"); you may not use this file except in compliance with

  * the License.  You may obtain a copy of the License at

  *

  *      http://www.apache.org/licenses/LICENSE-2.0

  *

  * Unless required by applicable law or agreed to in writing, software

  * distributed under the License is distributed on an "AS IS" BASIS,

  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

  * See the License for the specific language governing permissions and

  * limitations under the License.

  */

 package org.apache.commons.nabla.forward.instructions;

 import org.apache.commons.nabla.DifferentiationException;

 import org.apache.commons.nabla.forward.analysis.InstructionsTransformer;

 import org.apache.commons.nabla.forward.analysis.MethodDifferentiator;

 import org.objectweb.asm.Opcodes;

 import org.objectweb.asm.Type;

 import org.objectweb.asm.tree.AbstractInsnNode;

 import org.objectweb.asm.tree.InsnList;

 import org.objectweb.asm.tree.InsnNode;

 import org.objectweb.asm.tree.MethodInsnNode;

 /** Differentiation transformer for DCMPx instructions.

  * @version $Id$

  */

 public class DcmpTransformer implements InstructionsTransformer {

     /** Name of the {@link org.apache.commons.math3.analysis.differentiation.DerivativeStructure} method corresponding to the value getter. */

     private static final String VALUE_GETTER_METHOD = "getValue";

     /** Indicator for top stack element conversion. */

     private final boolean stack0Converted;

     /** Indicator for next to top stack element conversion. */

     private final boolean stack1Converted;

     /** Simple constructor.

      * @param stack0Converted if true, the top level stack element has already been converted

      * @param stack1Converted if true, the next to top level stack element has already been converted

      */

     public DcmpTransformer(final boolean stack0Converted, final boolean stack1Converted) {

         this.stack0Converted = stack0Converted;

         this.stack1Converted = stack1Converted;

     }

     /** {@inheritDoc} */

     public InsnList getReplacement(final AbstractInsnNode insn,

                                    final MethodDifferentiator methodDifferentiator)

         throws DifferentiationException {

         final InsnList list = new InsnList();

         if (stack1Converted) {

             if (stack0Converted) {

                 // operand stack initial state: ds_a, ds_b

                 list.add(new InsnNode(Opcodes.SWAP));                                              // => ds_b, ds_a

                 list.add(new MethodInsnNode(Opcodes.INVOKEVIRTUAL, DS_TYPE.getInternalName(),

                                             VALUE_GETTER_METHOD,

                                             Type.getMethodDescriptor(Type.DOUBLE_TYPE)));          // => ds_b, a0

                 list.add(new InsnNode(Opcodes.DUP2_X2));                                           // => a0, ds_b, a0

                 list.add(new InsnNode(Opcodes.POP2));                                              // => a0, ds_b

                 list.add(new MethodInsnNode(Opcodes.INVOKEVIRTUAL, DS_TYPE.getInternalName(),

                                             VALUE_GETTER_METHOD,

                                             Type.getMethodDescriptor(Type.DOUBLE_TYPE)));          // => a0, b0

             } else {

                 // operand stack initial state: ds_a, b0

                 list.add(new InsnNode(Opcodes.DUP2_X2));                                           // => b0, ds_a, b0

                 list.add(new InsnNode(Opcodes.POP2));                                              // => b0, ds_a

                 list.add(new MethodInsnNode(Opcodes.INVOKEVIRTUAL, DS_TYPE.getInternalName(),

                                             VALUE_GETTER_METHOD,

                                             Type.getMethodDescriptor(Type.DOUBLE_TYPE)));          // => b0, a0

                 list.add(new InsnNode(Opcodes.DUP2_X2));                                           // => a0, b0, a0

                 list.add(new InsnNode(Opcodes.POP2));                                              // => a0, b0

             }

         } else {

             // operand stack initial state: a, ds_b

             list.add(new MethodInsnNode(Opcodes.INVOKEVIRTUAL, DS_TYPE.getInternalName(),

                                         VALUE_GETTER_METHOD,

                                         Type.getMethodDescriptor(Type.DOUBLE_TYPE)));              // => a0, b0

         }

         list.add(new InsnNode(insn.getOpcode()));                                                  // => bool

         return list;

     }

 }