2009-02-11 Marek Safar <marek.safar@gmail.com>
[mono.git] / mcs / mcs / support.cs
index 98e3a80f02c9b6580af4e0ed0139fc58155637cf..ef0545ea0b5b9e7d2d8f9ef7cbfba9ae49e670ed 100644 (file)
@@ -5,7 +5,8 @@
 // Author:
 //   Miguel de Icaza (miguel@ximian.com)
 //
-// (C) 2001 Ximian, Inc (http://www.ximian.com)
+// Copyright 2001 Ximian, Inc (http://www.ximian.com)
+// Copyright 2003-2008 Novell, Inc
 //
 
 using System;
@@ -18,193 +19,6 @@ using System.Globalization;
 
 namespace Mono.CSharp {
 
-       public interface ParameterData {
-               Type ParameterType (int pos);
-               Type [] Types { get; }
-               int  Count { get; }
-               bool HasParams { get; }
-               string ParameterName (int pos);
-               string ParameterDesc (int pos);
-               Parameter.Modifier ParameterModifier (int pos);
-               string GetSignatureForError ();
-       }
-
-       public class ReflectionParameters : ParameterData {
-               ParameterInfo [] pi;
-               Type [] types;
-               int params_idx = -1;
-               bool is_varargs;
-               ParameterData gpd;
-
-               public ReflectionParameters (MethodBase mb)
-               {
-                       ParameterInfo [] pi = mb.GetParameters ();
-                       is_varargs = (mb.CallingConvention & CallingConventions.VarArgs) != 0;
-
-                       this.pi = pi;
-                       int count = pi.Length;
-
-                       if (count == 0) {
-                               types = Type.EmptyTypes;
-                               return;
-                       }
-
-                       types = new Type [count];
-                       for (int i = 0; i < count; i++)
-                               types [i] = pi [i].ParameterType;
-
-                       // TODO: This (if) should be done one level higher to correctly use
-                       // out caching facilities.
-                       MethodBase generic = TypeManager.DropGenericMethodArguments (mb);
-                       if (generic != mb) {
-                               gpd = TypeManager.GetParameterData (generic);
-                               if (gpd.HasParams) {
-                                       for (int i = gpd.Count; i != 0; --i) {
-                                               if ((gpd.ParameterModifier (i-1) & Parameter.Modifier.PARAMS) != 0) {
-                                                       this.params_idx = i-1;
-                                                       break;
-                                               }
-                                       }
-                               }
-                               return;
-                       }
-
-                       //
-                       // So far, the params attribute can be used in C# for the last
-                       // and next to last method parameters.
-                       // If some other language can place it anywhere we will
-                       // have to analyze all parameters and not just last 2.
-                       //
-                       --count;
-                       for (int i = count; i >= 0 && i > count - 2; --i) {
-                               if (!pi [i].ParameterType.IsArray)
-                                       continue;
-
-                               if (pi [i].IsDefined (TypeManager.param_array_type, false)) {
-                                       params_idx = i;
-                                       return;
-                               }
-                       }
-               }
-
-               public override bool Equals (object obj)
-               {
-                       ReflectionParameters rp = obj as ReflectionParameters;
-                       if (rp == null)
-                               return false;
-
-                       if (Count != rp.Count)
-                               return false;
-
-                       for (int i = 0; i < Count; ++i) {
-                       if (!types [i].Equals (rp.types [i]))
-                               return false;
-                       }
-                       return true;
-               }
-
-               public override int GetHashCode ()
-               {
-                       return base.GetHashCode ();
-               }
-
-               public string GetSignatureForError ()
-               {
-                       StringBuilder sb = new StringBuilder ("(");
-                       for (int i = 0; i < pi.Length; ++i) {
-                               if (i != 0)
-                                       sb.Append (", ");
-                               sb.Append (ParameterDesc (i));
-                       }
-                       if (is_varargs) {
-                               if (pi.Length > 0)
-                                       sb.Append (", ");
-                               sb.Append ("__arglist");
-                       }
-                       sb.Append (')');
-                       return sb.ToString ();
-               }
-
-               public Type ParameterType (int pos)
-               {
-                       if (is_varargs && pos >= pi.Length)
-                               return TypeManager.runtime_argument_handle_type;
-
-                       return pi [pos].ParameterType;
-               }
-
-               public string ParameterName (int pos)
-               {
-                       if (gpd != null)
-                               return gpd.ParameterName (pos);
-
-                       if (is_varargs && pos >= pi.Length)
-                               return "__arglist";
-
-                       return pi [pos].Name;
-               }
-
-               public string ParameterDesc (int pos)
-               {
-                       if (is_varargs && pos >= pi.Length)
-                               return "";
-
-                       StringBuilder sb = new StringBuilder ();
-
-                       if (pi [pos].IsIn)
-                               sb.Append ("in ");
-
-                       Type partype = ParameterType (pos);
-                       if (partype.IsByRef){
-                               partype = TypeManager.GetElementType (partype);
-                               if (pi [pos].IsOut)
-                                       sb.Append ("out ");
-                               else
-                                       sb.Append ("ref ");
-                       }
-
-                       if (params_idx == pos)
-                               sb.Append ("params ");
-
-                       sb.Append (TypeManager.CSharpName (partype).Replace ("&", ""));
-
-                       return sb.ToString ();
-               }
-
-               public Parameter.Modifier ParameterModifier (int pos)
-               {
-                       if (pos == params_idx)
-                               return Parameter.Modifier.PARAMS;
-                       else if (is_varargs && pos >= pi.Length)
-                               return Parameter.Modifier.ARGLIST;
-
-                       if (gpd != null)
-                               return gpd.ParameterModifier (pos);
-
-                       Type t = pi [pos].ParameterType;
-                       if (t.IsByRef){
-                               if ((pi [pos].Attributes & (ParameterAttributes.Out|ParameterAttributes.In)) == ParameterAttributes.Out)
-                                       return Parameter.Modifier.OUT;
-                               else
-                                       return Parameter.Modifier.REF;
-                       }
-
-                       return Parameter.Modifier.NONE;
-               }
-
-               public int Count {
-                       get { return is_varargs ? pi.Length + 1 : pi.Length; }
-               }
-
-               public bool HasParams {
-                       get { return params_idx != -1; }
-               }
-
-               public Type[] Types {
-                       get { return types; }
-               }
-       }
-
 #if GMCS_SOURCE
        public class ReflectionConstraints : GenericConstraints
        {
@@ -266,7 +80,11 @@ namespace Mono.CSharp {
 #endif
 
        class PtrHashtable : Hashtable {
-               sealed class PtrComparer : IComparer {
+               sealed class PtrComparer : IComparer
+#if NET_2_0
+                       , IEqualityComparer
+#endif
+               {
                        private PtrComparer () {}
 
                        public static PtrComparer Instance = new PtrComparer ();
@@ -278,12 +96,42 @@ namespace Mono.CSharp {
                                else
                                        return 1;
                        }
+#if NET_2_0
+                       bool IEqualityComparer.Equals (object x, object y)
+                       {
+                               return x == y;
+                       }
+                       
+                       int IEqualityComparer.GetHashCode (object obj)
+                       {
+                               return obj.GetHashCode ();
+                       }
+#endif
+                       
                }
 
-               public PtrHashtable ()
+#if NET_2_0
+               public PtrHashtable () : base (PtrComparer.Instance) {}
+#else
+               public PtrHashtable () 
                {
                        comparer = PtrComparer.Instance;
                }
+#endif
+
+#if MS_COMPATIBLE
+               //
+               // Workaround System.InvalidOperationException for enums
+               //
+               protected override int GetHash (object key)
+               {
+                       TypeBuilder tb = key as TypeBuilder;
+                       if (tb != null && tb.BaseType == TypeManager.enum_type)
+                               key = tb.BaseType;
+
+                       return base.GetHash (key);
+               }
+#endif
        }
 
        /*
@@ -360,28 +208,28 @@ namespace Mono.CSharp {
        /// </summary>
        public class SeekableStreamReader
        {
-               public SeekableStreamReader (TextReader reader)
-               {
-                       this.reader = reader;
-                       this.buffer = new char [AverageReadLength * 3];
-
-                       // Let the StreamWriter autodetect the encoder
-                       reader.Peek ();
-               }
-
-               public SeekableStreamReader (Stream stream, Encoding encoding)
-                       : this (new StreamReader (stream, encoding, true))
-               { }
-
+               const int AverageReadLength = 1024;
                TextReader reader;
-
-               private const int AverageReadLength = 1024;
+               Stream stream;
+               Encoding encoding;
 
                char[] buffer;
                int buffer_start;       // in chars
                int char_count;         // count buffer[] valid characters
                int pos;                // index into buffer[]
 
+               public SeekableStreamReader (Stream stream, Encoding encoding)
+               {
+                       this.stream = stream;
+                       this.encoding = encoding;
+                       
+                       this.reader = new StreamReader (stream, encoding, true);
+                       this.buffer = new char [AverageReadLength * 3];
+
+                       // Let the StreamWriter autodetect the encoder
+                       reader.Peek ();
+               }
+
                /// <remarks>
                ///   This value corresponds to the current position in a stream of characters.
                ///   The StreamReader hides its manipulation of the underlying byte stream and all
@@ -393,8 +241,25 @@ namespace Mono.CSharp {
                        get { return buffer_start + pos; }
 
                        set {
-                               if (value < buffer_start || value > buffer_start + char_count)
-                                       throw new InternalErrorException ("can't seek that far back: " + (pos - value));
+                               if (value > buffer_start + char_count)
+                                       throw new InternalErrorException ("can't seek that far forward: " + (pos - value));
+                               
+                               if (value < buffer_start){
+                                       // Reinitialize.
+                                       stream.Position = 0;
+                                       reader = new StreamReader (stream, encoding, true);
+                                       buffer_start = 0;
+                                       char_count = 0;
+                                       pos = 0;
+                                       Peek ();
+
+                                       while (value > buffer_start + char_count){
+                                               pos = char_count+1;
+                                               Peek ();
+                                       }
+                                       pos = value - buffer_start;
+                               }
+
                                pos = value - buffer_start;
                        }
                }
@@ -516,4 +381,102 @@ namespace Mono.CSharp {
                        }
                }
        }
+
+       class PartialMethodDefinitionInfo : MethodInfo
+       {
+               MethodOrOperator mc;
+               MethodAttributes attrs;
+
+               public PartialMethodDefinitionInfo (MethodOrOperator mc)
+               {
+                       this.mc = mc;
+                       if ((mc.ModFlags & Modifiers.STATIC) != 0)
+                               attrs = MethodAttributes.Static;
+               }
+
+               public override MethodInfo GetBaseDefinition ()
+               {
+                       throw new NotImplementedException ();
+               }
+
+               public override ICustomAttributeProvider ReturnTypeCustomAttributes
+               {
+                       get { throw new NotImplementedException (); }
+               }
+
+               public override MethodAttributes Attributes
+               {
+                       get { return attrs; }
+               }
+
+               public override MethodImplAttributes GetMethodImplementationFlags ()
+               {
+                       throw new NotImplementedException ();
+               }
+
+               public override ParameterInfo [] GetParameters ()
+               {
+                       throw new NotImplementedException ();
+               }
+
+               public override object Invoke (object obj, BindingFlags invokeAttr, Binder binder, object [] parameters, CultureInfo culture)
+               {
+                       throw new NotImplementedException ();
+               }
+
+               public override RuntimeMethodHandle MethodHandle
+               {
+                       get { throw new NotImplementedException (); }
+               }
+
+               public override Type DeclaringType
+               {
+                       get { return mc.Parent.TypeBuilder; }
+               }
+
+               public override object [] GetCustomAttributes (Type attributeType, bool inherit)
+               {
+                       throw new NotImplementedException ();
+               }
+
+               public override object [] GetCustomAttributes (bool inherit)
+               {
+                       throw new NotImplementedException ();
+               }
+
+               public override Type ReturnType {
+                       get {
+                               return mc.MemberType;
+                       }
+               }
+
+               public override bool IsDefined (Type attributeType, bool inherit)
+               {
+                       throw new NotImplementedException ();
+               }
+
+               public override string Name
+               {
+                       get { return mc.Name; }
+               }
+
+               public override Type ReflectedType
+               {
+                       get { throw new NotImplementedException (); }
+               }
+       }
+
+       public class UnixUtils {
+               [System.Runtime.InteropServices.DllImport ("libc", EntryPoint="isatty")]
+               extern static int _isatty (int fd);
+                       
+               public static bool isatty (int fd)
+               {
+                       try {
+                               return _isatty (fd) == 1;
+                       } catch {
+                               return false;
+                       }
+               }
+       }
 }