Logo
Distributed Genetic Programming Framework
print print

File org.dgpf.gp.vm.instructions.base.MemInstr1Handler.java

Here you can find all the information about the file org.dgpf.gp.vm.instructions.base.MemInstr1Handler.java. You may explore it here or download it onto your local disk.
/*
 * Copyright (c) 2006 Thomas Weise
 * 
 * E-Mail           : tweise@gmx.de
 * Creation Date    : 2006-07-03 04:10:21
 * Original Filename: org.dgpf.gp.vm.instructions.base.MemInstr1Handler.java
 * Version          : 1.0.0
 * Last modification: 2006-07-03
 *                by: Thomas Weise
 * 
 * License          : GNU LESSER GENERAL PUBLIC LICENSE
 *                    Version 2.1, February 1999
 *                    You should have received a copy of this license along
 *                    with this library; if not, write to the Free Software
 *                    Foundation, Inc., 59 Temple Place, Suite 330, Boston,
 *                    MA 02111-1307, USA or download the license under
 *                    http://www.gnu.org/copyleft/lesser.html.
 *                    
 * Warranty         : This software is provided "as is" without any
 *                    warranty; without even the implied warranty of
 *                    merchantability or fitness for a particular purpose.
 *                    See the Gnu Lesser General Public License for more
 *                    details.
 */

 
package org.dgpf.gp.vm.instructions.base;

import org.dgpf.gp.vm.base.IInstructionHandler;
import org.dgpf.gp.vm.base.Instruction;
import org.dgpf.gp.vm.base.VMContext;
import org.dgpf.gp.vm.mutation.MutationInfo;
import org.dgpf.search.api.utils.IMutator;
import org.dgpf.search.api.utils.WeightedMutator;
import org.dgpf.search.api.utils.WeightedSet;
import org.dgpf.search.api.utils.WeightedSetBuilder;


/**
 * The base class for memory 1 instruction handlers.
 *
 * @author Thomas Weise
 */

public abstract class       MemInstr1Handler 
                extends     WeightedMutator<Instruction, VMContext,
                                            MutationInfo>
                implements  IInstructionHandler
  {
///**
// * The first internal mutator.
// */

//  private static  final IMutator<Instruction, VMContext, MutationInfo> M11 =
//    new IMutator<Instruction, VMContext, MutationInfo>()
//      {
//      public  final  Instruction  mutate  (final Instruction  p_source,
//                                           final VMContext    p_context,
//                                           final MutationInfo p_info)
//        {
//        MemInstr1 l_i;
//        
//        if(p_context.can_relative())
//          {        
//          l_i = ((MemInstr1)(p_source.clone()));
//          l_i.m_relative_1 = !(l_i.m_relative_1);
//          return l_i;
//          }
//        
//        return p_source;
//        }
//      };
//      
///**
// * The second internal mutator.
// */

//  private static  final IMutator<Instruction, VMContext, MutationInfo> M12 =
//    new IMutator<Instruction, VMContext, MutationInfo>()
//      {
//      public  final  Instruction  mutate  (final Instruction  p_source,
//                                           final VMContext    p_context,
//                                           final MutationInfo p_info)
//        {
//        MemInstr1 l_i;
//        
//        l_i = ((MemInstr1)(p_source.clone()));
//        l_i.m_addr_1 = p_context.mutate_address(l_i.m_addr_1, p_info);
//        return l_i;
//        }
//      };
      

/**
 * The third internal mutator.
 */

  private static  final IMutator<Instruction, VMContext, MutationInfo> M13 =
    new IMutator<Instruction, VMContext, MutationInfo>()
      {
      public  final  Instruction  mutate  (final Instruction  p_source,
                                           final VMContext    p_context,
                                           final MutationInfo p_info)
        {
        MemInstr1                                 l_i, l_i2;
        IInstructionHandler                       l_ii, l_io;
        WeightedSet<IInstructionHandler>.Session  l_s;
        
        l_i  = ((MemInstr1)(p_source));
        l_io = l_i.get_handler();
        l_s  = p_context.get_instruction_set().open_session(
                                               p_context.get_randomizer());
        
        while(l_s.hasNext())
          {
          l_ii = l_s.next();
          if((l_ii != l_io) && (l_ii instanceof MemInstr1Handler))
            {
            l_i2 = ((MemInstr1)(l_ii.create(p_context, p_info)));
            l_i2.m_addr_1     = l_i.m_addr_1;
            l_i2.m_relative_1 = l_i.m_relative_1;
            l_s.close();
            return l_i2;
            }
          }
        
        l_s.close();
        return l_i;
        }
      };
  
      

/**
 * The third mutator weight.
 */

      static  final double  M3_WEIGHT = 1.0d;
///**
// * The second mutator weight.
// */

//      static  final double  M2_WEIGHT = (M3_WEIGHT * 0.25d);
///**
// * The first mutator weight.
// */

//      static  final double  M1_WEIGHT = (M2_WEIGHT * 0.25d);
      
/**
 * The default weighted set builder.
 */

  static  final WeightedSetBuilder<IMutator
                             <Instruction, VMContext, MutationInfo>>
    MI1B = new WeightedSetBuilder<IMutator
                   <Instruction, VMContext, MutationInfo>>(IMutator.class);
  
  static
    {
//    MI1B.add(M11, M1_WEIGHT);    
//    MI1B.add(M12, M2_WEIGHT);    
    MI1B.add(M13, M3_WEIGHT);
    }
      
/**
 * Create a new mem instr 1 handler. Such handlers use internal mutator
 * lists.
 * @param p_wsb The weighted set builder to use. Leave this
 *              <code>null</code> if no additional mutators are needed. 
 */

  protected MemInstr1Handler(final WeightedSetBuilder<IMutator
                             <Instruction, VMContext, MutationInfo>> p_wsb)
    {
    super(build_set(p_wsb));
    }
  
/**
 * The internal set conversion routine.
 * @param p_set The normal mutator set.
 * @return  The modified mutator set.
 */

  private static final WeightedSetBuilder<IMutator
                       <Instruction, VMContext, MutationInfo>> build_set
                       (final WeightedSetBuilder<IMutator
                        <Instruction, VMContext, MutationInfo>> p_set)
    {
    if(p_set == null) return MI1B;
    
//    if(!(p_set.contains(M11))) p_set.add(M11, M1_WEIGHT);    
//    if(!(p_set.contains(M12))) p_set.add(M12, M2_WEIGHT);    
    if(!(p_set.contains(M13))) p_set.add(M13, M3_WEIGHT);
    
    return p_set;
    }
                                        

/**
 * Replace a memory access address by another one.
 * @param p_instruction The instruction to replace the address.
 * @param p_old         The old address.
 * @param p_new         The new address.
 * @return  The new instruction where the address relacement has been
 *          performed, or the old one if no replacement was needed.  
 */

  public Instruction swap_address(final Instruction p_instruction,
                                  final int         p_old,
                                  final int         p_new)
    {
    MemInstr1 l_m1;
    
    l_m1 = ((MemInstr1)p_instruction);
    if(l_m1.m_addr_1 == p_old)
      {
      l_m1          = ((MemInstr1)(p_instruction.clone()));
      l_m1.m_addr_1 = p_new;
      return l_m1;
      }
    
    return p_instruction;
    }
  
  
/**
 * This method tells if this instruction can be useful at the end of a
 * procedure. A comparison, for example, will never be useful, since
 * its result will always get lost.
 * @return <code>true</code> if and only if an instruction is useful at the
 *         end of a procedure.
 */

  public boolean is_useful_at_end()
    {
    return true;
    }
  
/**
 * This method tells if this instruction can be useful at the beginning of
 * a procedure. A pop, for example, will never be useful, since the stack
 * of a procedure is initially empty.
 * @return <code>true</code> if and only if an instruction is useful at the
 *         beginning of a procedure.
 */

  public boolean is_useful_at_begin()
    {
    return true;
    }
  
  
/**
 * Get an instruction that better represents the passed in instruction.
 * @param p_i   The instruction to replace.
 * @return  An instruction that better represents <code>p_i</code>, or
 *          <code>p_i</code> if it is already perfect, or <code>null</code>
 *          if <code>p_i</code> itself is totally useless.
 */

  public Instruction get_replacement (final Instruction p_i)
    {
    return p_i;
    }
  

  
/**
 * Try to melt two instructions together. The second instruction is of
 * the type this instruction handler handles.
 * @param p_first   The first instruction.
 * @param p_second  The second instruction.
 * @return  An instruction able to replace the sequence of these both
 *          instructions, or <code>null</code> if no valid replacement
 *          coult be found.
 */
  
  public  Instruction try_melt  (final Instruction p_first,
                                 final Instruction p_second)
    {        
    int       l_a11, l_a12, l_a13, l_a21, l_a22, l_a23;
    boolean   l_r11, l_r12, l_r13, l_r21, l_r22, l_r23;
    MemInstr1 l_m11, l_m12;
    MemInstr2 l_m2;
    MemInstr3 l_m3;
    
    if(p_first instanceof MemInstr1)
      {
      l_m11 = ((MemInstr1)p_first);
      l_r11 = l_m11.m_relative_1;
      l_a11 = l_m11.m_addr_1;
      l_a13 = (Integer.MAX_VALUE-1);
      l_r13 = false;
      l_a12 = Integer.MAX_VALUE;
      l_r12 = false;
                  
      if(p_first instanceof MemInstr2)
        {         
        l_m2  = ((MemInstr2)p_first);
        l_a12 = l_m2.m_addr_2;
        l_r12 = l_m2.m_relative_2;
              
        if(p_first instanceof MemInstr3)
          {   
          l_m3  = ((MemInstr3)p_first);
          l_a13 = l_m3.m_addr_3;
          l_r13 = l_m3.m_relative_3;
          }
        }
      }
    else return null;
        
    
    if(p_second instanceof MemInstr2)
      {
      l_a23 = (Integer.MAX_VALUE-3);
      l_r23 = false;
      l_a22 = (Integer.MAX_VALUE-2);
      l_r22 = false;
      l_m12 = ((MemInstr2)p_second);
      l_r21 = l_m12.m_relative_1;
      l_a21 = l_m12.m_addr_1;
                  
      if(p_second instanceof MemInstr2)
        {   
        l_m2  = ((MemInstr2)p_second);
        l_a22 = l_m2.m_addr_2;
        l_r22 = l_m2.m_relative_2;
              
        if(p_second instanceof MemInstr3)
          {   
          l_m3  = ((MemInstr3)p_second);
          l_a23 = l_m3.m_addr_3;
          l_r23 = l_m3.m_relative_3;
          }
        }
      }
    else return null;
    
    if( (l_m11.get_access(1) & 2) != 0 )
      {
      if(l_r11) return null;
      
      if( ((l_m12.get_access(1) & 2) != 0) &&
          (!l_r21) && (l_a11 == l_a21) )  return p_second;
      
      if( ((l_m12.get_access(2) & 2) != 0) &&
          (!l_r22) && (l_a11 == l_a22) )  return p_second;
            
      if( ((l_m12.get_access(3) & 2) != 0) &&
          (!l_r23) && (l_a11 == l_a23) )  return p_second;
      }
    
    if( (l_m11.get_access(2) & 2) != 0 )
      {
      if(l_r12) return null;
      
      if( ((l_m12.get_access(1) & 2) != 0) &&
          (!l_r21) && (l_a12 == l_a21) )  return p_second;
      
      if( ((l_m12.get_access(2) & 2) != 0) &&
          (!l_r22) && (l_a12 == l_a22) )  return p_second;
            
      if( ((l_m12.get_access(3) & 2) != 0) &&
          (!l_r23) && (l_a12 == l_a23) )  return p_second;
      }
    
    if( (l_m11.get_access(3) & 2) != 0 )
      {
      if(l_r13) return null;
      
      if( ((l_m12.get_access(1) & 2) != 0) &&
          (!l_r21) && (l_a13 == l_a21) )  return p_second;
      
      if( ((l_m12.get_access(2) & 2) != 0) &&
          (!l_r22) && (l_a13 == l_a22) )  return p_second;
            
      if( ((l_m12.get_access(3) & 2) != 0) &&
          (!l_r23) && (l_a13 == l_a23) )  return p_second;
      }
    
    return null;
    }
  
  }

File Information:

file name:MemInstr1Handler.java
package:org.dgpf.gp.vm.instructions.base
qualified name:org.dgpf.gp.vm.instructions.base.MemInstr1Handler.java
file type:Java Source File
download location:download http://dgpf.sourceforge.net/source/org/dgpf/gp/vm/instructions/base/MemInstr1Handler.java
size:11.733 KB (12015 B)
uploaded: 2015-07-22 04:10:58 GMT+0000
last update: 2006-07-28 08:09:53 GMT+0000
last access: 2017-11-20 02:15:34 GMT+0000

statistics online since 2006-01-02.   RSS Feed
Contact us by sending an email to tweise@gmx.de to receive further information, to report errors, or to join our project.
All content on this site (http://dgpf.sourceforge.net/) is LGPL-licensed.
http://dgpf.sourceforge.net/scripts/source/source.php last modified at 2015-07-22 04:10:53 GMT+0000 served at 2017-11-20 02:15:34 GMT+0000.
Valid CSS Valid XHTML 1.1
Valid RSS SourceForge.net Logo