**** Merged from MCS ****

[mono-project.git] / mcs / tools / sample_cast_const.cs

using System;

class X {
        static void w (string s)
        {
                Console.WriteLine ("\t" + s);
        }
        
        static void Main ()
        {
                object [,] names = 
                        { { "Byte", "byte" },
                          { "SByte", "sbyte" },
                          { "Short", "short" },
                          { "UShort", "ushort" },
                          { "Int", "int32" },
                          { "UInt", "uint32" },
                          { "Long", "int64" },
                          { "ULong", "uint64" },
                          { "Float", "float" },
                          { "Double", "double" },
                          { null, null }
                        };

                for (int i = 0; names [i,0] != null; i++){
                        string big = names [i, 0] + "Constant";
                        string small = "TypeManager." + names [i, 1] + "_type";
                        string nat = ((string) names [i,0]).ToLower ();
                        
                        w ("\t\tif (expr is " + big + "){");
                        w ("\t\t\t" + nat + " v = ((" + big + ") expr).Value;");
                        w ("");

                        for (int j = 0; names [j,0] != null; j++){
                                string b = names [j, 0] + "Constant";
                                string s = "TypeManager." + names [j, 1] + "_type";
                                string n = ((string) names [j,0]).ToLower ();

                                if (i == j)
                                        continue;
                                
                                w ("\t\t\tif (target_type == " + s + ")");
                                w ("\t\t\t\treturn new " + b + " ((" + n + ") v);");
                        }
                        w ("\t\t}");
                }
        }
}