public CGTextConst(TextValue value) {
this.value = value;
this.index = TextValue.GetIndex(value.value);
}
public TextConst(String s) { value = TextValue.MakeInterned(s); }
public readonly TextValue value; // Non-null
public QuoteCell(String s) {
Debug.Assert(s != null);
value = TextValue.Make(s); // No interning
}
private QuoteCell(QuoteCell cell) { value = cell.value; }
public static char ToNakedChar(TextValue v) { return v.value.Length >= 1 ? v.value[0] : '\0'; }
private TextCell(TextCell cell) { this.value = cell.value; }
public static char ToNakedChar(TextValue v)
{
return(v.value.Length >= 1 ? v.value[0] : '\0');
}
public static String ToString(Value v)
{
TextValue tv = v as TextValue;
return(tv != null ? tv.value : null);
}
public static Object ToChar(Value v)
{
TextValue tv = v as TextValue;
return(tv != null && tv.value.Length >= 1 ? (Object)tv.value[0] : null); // causes boxing
}
