/*
 * Bernoulli Compiler
 * Copyright (c) Cornell University
 * Department of Computer Science
 * 
 * Kamen Yotov (kamen@yotov.org)
 * 
 * $Source: C:/CVS/kyotov/kyotov/Research/BC/Core/Machines/ImaginaryType.cs,v $
 * $Revision: 1.5 $
 * $Date: 2002/10/22 19:41:32 $
 */

using System;

namespace BC.Core
{
	namespace Machines
	{
		[Serializable]
		public class ImaginaryType: RealType
		{
			public ImaginaryType (Type t) :
				base(t)
			{
			}

			public override ASTs.AbstractPrimitiveType ASTType
			{
				get
				{
					ASTs.ImaginaryType t = new ASTs.ImaginaryType();

					t.Precision = Precision;

					return t;
				}
			}

			new public static ComplexType Get (int p)
			{
				return new ComplexType(RealType.Get(p).Type);
			}
		}
	}
}