//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
// PLEASE DO NOT EDIT WITHOUT THE EXPLICIT CONSENT OF THE AUTHOR! \\
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

package ilog.language.design.base;

/**
 * @version     Last modified on Sun Dec 15 12:38:44 2002 by hak
 * @author      <a href="mailto:hak@ilog.fr">Hassan A&iuml;t-Kaci</a>
 * @copyright   &copy; 2002 <a href="http://www.ilog.fr/">ILOG, S.A.</a>
 */

import ilog.language.util.IntIterator;

import ilog.language.design.backend.Runtime;
import ilog.language.design.backend.Iteratable;
import ilog.language.design.backend.Block;

public class ApplyInPlaceIntHomomorphism extends Instruction
{
  public  ApplyInPlaceIntHomomorphism ()
    {
      setName("APPLY_IP_HOM_I");
    }

  public final void execute (Runtime r) throws Exception
    {
      Iteratable collection = (Iteratable)r.popObject();
      Block function  = (Block)r.popObject();

      r.saveState();

      Instruction[] code = function.code();
      int ip = function.address();
      r.pushIntEnv(0);
 
      IntIterator i = collection.intIterator(true);

      while (i.hasNext())
        {
          r.setIntValue(i.next());
          Instruction inst = r.currentInstruction();
          while (!inst.isReturn())
            {
              inst.execute(r);
              inst = r.currentInstruction();
            }
        }

      r.restoreState();
    }
}