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

package ilog.language.design.kernel;

/**
 * @version     Last modified on Wed Jul 24 12:17:56 2002 by pviry
 * @version          modified on Fri Mar 08 12:36:39 2002 by hak
 * @author      <a href="mailto:hak@ilog.fr">Hassan A&iuml;t-Kaci</a>
 * @copyright   &copy; 2000-2002 <a href="http://www.ilog.fr/">ILOG, S.A.</a>
 */

import ilog.language.design.types.*;
import ilog.language.design.base.*;

/**
 * This is the class of boxed chars.
 */
public class Char extends Constant
{
  private char _value;

  public Char (char value, boolean flag)
    {
      if (flag)
        _type = Type.CHAR;
      else
        _type = Type.CHAR();      
      _value = value;
    }

  public Char (char value)
    {
      super(Type.CHAR());
      _value = value;
    }

  public final char value ()
    {
      return _value;
    }

  public final void compile (Compiler compiler)
    {
      compiler.generate(new PushValueInt(_value));
    }

  public final boolean equals (Object other)
    {
      if (!(other instanceof Char))
        return false;
      
      return _value == ((Char)other).value();
    }

  public final String toString ()
    {
      return "'"+String.valueOf(_value)+"'";
    }

  // Added by PV
  public final String toTypedString ()
    {
        return typed("'"+String.valueOf(_value)+"'");
    }
}