//http://www.ecma-international.org/publications/files/ECMA-ST/Ecma-334.pdf section 9.4.4
public static NumberLiteral CreateCSharpNumber(string name) {
NumberLiteral term = new NumberLiteral(name);
term.DefaultIntTypes = new TypeCode[] { TypeCode.Int32, TypeCode.UInt32, TypeCode.Int64, TypeCode.UInt64 };
term.DefaultFloatType = TypeCode.Double;
term.AddPrefix("0x", NumberFlags.Hex);
term.AddSuffixCodes("u", TypeCode.UInt32, TypeCode.UInt64);
term.AddSuffixCodes("l", TypeCode.Int64, TypeCode.UInt64);
term.AddSuffixCodes("ul", TypeCode.UInt64);
term.AddSuffixCodes("f", TypeCode.Single);
term.AddSuffixCodes("d", TypeCode.Double);
term.AddSuffixCodes("m", TypeCode.Decimal);
return term;
}
//http://www.microsoft.com/downloads/details.aspx?FamilyId=6D50D709-EAA4-44D7-8AF3-E14280403E6E&displaylang=en section 2
public static NumberLiteral CreateVbNumber(string name) {
NumberLiteral term = new NumberLiteral(name);
term.DefaultIntTypes = new TypeCode[] { TypeCode.Int32, TypeCode.Int64 };
//term.DefaultFloatType = TypeCode.Double; it is default
term.AddPrefix("&H", NumberFlags.Hex);
term.AddPrefix("&O", NumberFlags.Octal);
term.AddSuffixCodes("S", TypeCode.Int16);
term.AddSuffixCodes("I", TypeCode.Int32);
term.AddSuffixCodes("%", TypeCode.Int32);
term.AddSuffixCodes("L", TypeCode.Int64);
term.AddSuffixCodes("&", TypeCode.Int64);
term.AddSuffixCodes("D", TypeCode.Decimal);
term.AddSuffixCodes("@", TypeCode.Decimal);
term.AddSuffixCodes("F", TypeCode.Single);
term.AddSuffixCodes("!", TypeCode.Single);
term.AddSuffixCodes("R", TypeCode.Double);
term.AddSuffixCodes("#", TypeCode.Double);
term.AddSuffixCodes("US", TypeCode.UInt16);
term.AddSuffixCodes("UI", TypeCode.UInt32);
term.AddSuffixCodes("UL", TypeCode.UInt64);
return term;
}
//http://docs.python.org/ref/numbers.html
public static NumberLiteral CreatePythonNumber(string name) {
NumberLiteral term = new NumberLiteral(name, NumberFlags.AllowStartEndDot);
//default int types are Integer (32bit) -> LongInteger (BigInt); Try Int64 before BigInt: Better performance?
term.DefaultIntTypes = new TypeCode[] { TypeCode.Int32, TypeCode.Int64, NumberLiteral.TypeCodeBigInt };
// term.DefaultFloatType = TypeCode.Double; -- it is default
//float type is implementation specific, thus try decimal first (higher precision)
//term.DefaultFloatTypes = new TypeCode[] { TypeCode.Decimal, TypeCode.Double };
term.AddPrefix("0x", NumberFlags.Hex);
term.AddPrefix("0", NumberFlags.Octal);
term.AddSuffixCodes("L", TypeCode.Int64, NumberLiteral.TypeCodeBigInt);
term.AddSuffixCodes("J", NumberLiteral.TypeCodeImaginary);
return term;
}
//Note - this is incomplete implementation; need to add functionality to NumberTerminal class to support type detection based
// on exponent symbol.
// From R6RS:
// ... representations of number objects may be written with an exponent marker that indicates the desired precision
// of the inexact representation. The letters s, f, d, and l specify the use of short, single, double, and long precision, respectively.
public static NumberLiteral CreateSchemeNumber(string name) {
NumberLiteral term = new NumberLiteral(name);
term.DefaultIntTypes = new TypeCode[] { TypeCode.Int32, TypeCode.Int64, NumberLiteral.TypeCodeBigInt };
term.DefaultFloatType = TypeCode.Double; // it is default
term.ExponentSymbols = "sfdl";
term.AddPrefix("#b", NumberFlags.Binary);
term.AddPrefix("#o", NumberFlags.Octal);
term.AddPrefix("#x", NumberFlags.Hex);
term.AddPrefix("#d", NumberFlags.None);
term.AddPrefix("#i", NumberFlags.None); // inexact prefix, has no effect
term.AddPrefix("#e", NumberFlags.None); // exact prefix, has no effect
term.AddSuffixCodes("J", NumberLiteral.TypeCodeImaginary);
return term;
}
