public ElaLiteralValue(ElaTypeCode type)
{
data = new Conv();
objval = null;
Postfix = '\0';
LiteralType = type;
}
public static string GetShortForm(ElaTypeCode @this)
{
switch (@this)
{
case ElaTypeCode.Char: return CHAR;
case ElaTypeCode.Integer: return INT;
case ElaTypeCode.Long: return LONG;
case ElaTypeCode.Single: return SINGLE;
case ElaTypeCode.Double: return DOUBLE;
case ElaTypeCode.Boolean: return BOOL;
case ElaTypeCode.String: return STRING;
case ElaTypeCode.List: return LIST;
case ElaTypeCode.Tuple: return TUPLE;
case ElaTypeCode.Record: return RECORD;
case ElaTypeCode.Function: return FUN;
case ElaTypeCode.Unit: return UNIT;
case ElaTypeCode.Module: return MOD;
case ElaTypeCode.Object: return OBJ;
case ElaTypeCode.Lazy: return LAZ;
default: return ERR;
}
}
public static string GetShortForm(ElaTypeCode @this)
{
switch (@this)
{
case ElaTypeCode.Char: return(CHAR);
case ElaTypeCode.Integer: return(INT);
case ElaTypeCode.Long: return(LONG);
case ElaTypeCode.Single: return(SINGLE);
case ElaTypeCode.Double: return(DOUBLE);
case ElaTypeCode.Boolean: return(BOOL);
case ElaTypeCode.String: return(STRING);
case ElaTypeCode.List: return(LIST);
case ElaTypeCode.Tuple: return(TUPLE);
case ElaTypeCode.Record: return(RECORD);
case ElaTypeCode.Function: return(FUN);
case ElaTypeCode.Unit: return(UNIT);
case ElaTypeCode.Module: return(MOD);
case ElaTypeCode.Object: return(OBJ);
case ElaTypeCode.Lazy: return(LAZ);
default: return(ERR);
}
}
private static Exception InvalidCast(ElaValue val, ElaTypeCode type)
{
return(new ElaRuntimeException(ElaRuntimeError.InvalidType, TCF.GetShortForm(type), val.GetTypeName()));
}
private Exception InvalidCast(ElaTypeCode type)
{
return(InvalidCast(this, type));
}
public TypeData(ElaTypeCode typeCode) : this((Int32)typeCode, TCF.GetShortForm(typeCode))
{
}
public TypeData(ElaTypeCode typeCode)
: this((Int32)typeCode, TCF.GetShortForm(typeCode))
{
}
internal ElaObject(ElaTypeCode type)
{
TypeId = (Int32)type;
}
public static TreeNode Literal(this TreeNode par, ElaExpression exp, ElaTypeCode typeCode, object data)
{
return(Element(par, exp, TCF.GetShortForm(typeCode), data, "Literal", "{1} ({0})"));
}
internal ElaObject(ElaTypeCode type)
{
TypeId = (Int32)type;
}
