// (C) 2001 Ximian, Inc (http://www.ximian.com)
//
//
-// FIXME: We should deprecate ParameterCollection as it is mostly slow
-// to access (it uses an arraylist instead of a hashtable) and exposes
-// no method to quickly locate parameters by name.
-//
-// Look at the implementation for GetParameterByName for an example.
//
+using System;
+using System.Reflection;
+using System.Reflection.Emit;
+using System.Collections;
-namespace CIR {
+namespace Mono.CSharp {
- using System;
+ /// <summary>
+ /// Represents a single method parameter
+ /// </summary>
public class Parameter {
- public enum Modifier {
- NONE,
- REF,
- OUT,
- PARAMS,
+ [Flags]
+ public enum Modifier : byte {
+ NONE = 0,
+ REF = 1,
+ OUT = 2,
+ PARAMS = 4,
+ // This is a flag which says that it's either REF or OUT.
+ ISBYREF = 8
}
- public readonly string Type;
- public readonly string Name;
+ public readonly Expression TypeName;
public readonly Modifier ModFlags;
+ public Attributes OptAttributes;
+ public readonly string Name;
+ public Type parameter_type;
- public Parameter (string type, string name, Modifier mod)
+ public Parameter (Expression type, string name, Modifier mod, Attributes attrs)
{
Name = name;
ModFlags = mod;
- Type = type = type;
+ TypeName = type;
+ OptAttributes = attrs;
}
- string ModSignature ()
+ // <summary>
+ // Resolve is used in method definitions
+ // </summary>
+ public bool Resolve (DeclSpace ds, Location l)
{
- switch (ModFlags){
- case Modifier.NONE:
- return "";
- case Modifier.REF:
- return "&";
- case Modifier.OUT:
- return ">";
- case Modifier.PARAMS:
- return "";
+ parameter_type = ds.ResolveType (TypeName, false, l);
+
+ if (parameter_type == TypeManager.void_type){
+ Report.Error (1536, l, "`void' parameter is not permitted");
+ return false;
}
- // This should not happen.
- return (string) null;
+
+ return parameter_type != null;
}
- // <summary>
- // Returns the signature for this parameter evaluating it on the
- // @tc context
- // </summary>
- public string GetSignature (TypeContainer tc)
+ public Type ExternalType (DeclSpace ds, Location l)
{
- Type t = tc.LookupType (Type, false);
-
- if (t == null)
- return "";
+ if ((ModFlags & Parameter.Modifier.ISBYREF) != 0)
+ return TypeManager.GetReferenceType (parameter_type);
- return ModSignature () + t.FullName;
+ return parameter_type;
+ }
+
+ public Type ParameterType {
+ get {
+ return parameter_type;
+ }
+ }
+
+ public ParameterAttributes Attributes {
+ get {
+ int flags = ((int) ModFlags) & ~((int) Parameter.Modifier.ISBYREF);
+ switch ((Modifier) flags) {
+ case Modifier.NONE:
+ return ParameterAttributes.None;
+ case Modifier.REF:
+ return ParameterAttributes.None;
+ case Modifier.OUT:
+ return ParameterAttributes.Out;
+ case Modifier.PARAMS:
+ return 0;
+ }
+
+ return ParameterAttributes.None;
+ }
+ }
+
+ /// <summary>
+ /// Returns the signature for this parameter evaluating it on the
+ /// @tc context
+ /// </summary>
+ public string GetSignature (DeclSpace ds, Location loc)
+ {
+ if (parameter_type == null){
+ if (!Resolve (ds, loc))
+ return null;
+ }
+
+ return ExternalType (ds, loc).FullName;
}
}
+ /// <summary>
+ /// Represents the methods parameters
+ /// </summary>
public class Parameters {
- ParameterCollection fixed_parameters;
- Parameter array_parameter;
+ public Parameter [] FixedParameters;
+ public readonly Parameter ArrayParameter;
string signature;
+ Type [] types;
+ Location loc;
+
+ static Parameters empty_parameters;
- public Parameters (ParameterCollection fixed_parameters, Parameter array_parameter)
+ public Parameters (Parameter [] fixed_parameters, Parameter array_parameter, Location l)
{
- this.fixed_parameters = fixed_parameters;
- this.array_parameter = array_parameter;
+ FixedParameters = fixed_parameters;
+ ArrayParameter = array_parameter;
+ loc = l;
}
- // <summary>
- // Returns the fixed parameters element
- // </summary>
- public ParameterCollection FixedParameters {
+ /// <summary>
+ /// This is used to reuse a set of empty parameters, because they
+ /// are common
+ /// </summary>
+ public static Parameters EmptyReadOnlyParameters {
get {
- return fixed_parameters;
+ if (empty_parameters == null)
+ empty_parameters = new Parameters (null, null, Location.Null);
+
+ return empty_parameters;
}
}
-
- // <summary>
- // Returns the array parameter.
- // </summary>
- public Parameter ArrayParameter {
+
+ public bool Empty {
get {
- return array_parameter;
+ return (FixedParameters == null) && (ArrayParameter == null);
}
}
-
- public void ComputeSignature (TypeContainer tc)
+
+ public void ComputeSignature (DeclSpace ds)
{
signature = "";
- if (fixed_parameters != null){
- for (int i = 0; i < fixed_parameters.Count; i++){
- Parameter par = (Parameter) fixed_parameters [i];
+ if (FixedParameters != null){
+ for (int i = 0; i < FixedParameters.Length; i++){
+ Parameter par = FixedParameters [i];
- signature += par.GetSignature (tc);
+ signature += par.GetSignature (ds, loc);
}
}
//
- // Note: as per the spec, the `params' arguments (array_parameter)
+ // Note: as per the spec, the `params' arguments (ArrayParameter)
// are not used in the signature computation for a method
//
}
- // <summary>
- // Returns the signature of the Parameters evaluated in
- // the @tc environment
- // </summary>
- public string GetSignature (TypeContainer tc)
+ static void Error_DuplicateParameterName (string name)
{
- if (signature == null)
- ComputeSignature (tc);
+ Report.Error (
+ 100, "The parameter name `" + name + "' is a duplicate");
+ }
+
+ public bool VerifyArgs ()
+ {
+ int count;
+ int i, j;
+
+ if (FixedParameters == null)
+ return true;
+
+ count = FixedParameters.Length;
+ string array_par_name = ArrayParameter != null ? ArrayParameter.Name : null;
+ for (i = 0; i < count; i++){
+ string base_name = FixedParameters [i].Name;
+
+ for (j = i + 1; j < count; j++){
+ if (base_name != FixedParameters [j].Name)
+ continue;
+ Error_DuplicateParameterName (base_name);
+ return false;
+ }
+
+ if (base_name == array_par_name){
+ Error_DuplicateParameterName (base_name);
+ return false;
+ }
+ }
+ return true;
+ }
+
+ /// <summary>
+ /// Returns the signature of the Parameters evaluated in
+ /// the @tc environment
+ /// </summary>
+ public string GetSignature (DeclSpace ds)
+ {
+ if (signature == null){
+ VerifyArgs ();
+ ComputeSignature (ds);
+ }
return signature;
}
- // <summary>
- // Returns the paramenter information based on the name
- // </summary>
- public Parameter GetParameterByName (string name)
+ /// <summary>
+ /// Returns the paramenter information based on the name
+ /// </summary>
+ public Parameter GetParameterByName (string name, out int idx)
{
- if (fixed_parameters == null)
- return null;
+ idx = 0;
+ int i = 0;
- foreach (Parameter par in fixed_parameters)
- if (par.Name == name)
- return par;
+ if (FixedParameters != null){
+ foreach (Parameter par in FixedParameters){
+ if (par.Name == name){
+ idx = i;
+ return par;
+ }
+ i++;
+ }
+ }
+ if (ArrayParameter != null){
+ if (name == ArrayParameter.Name){
+ idx = i;
+ return ArrayParameter;
+ }
+ }
+
return null;
}
- // <summary>
- // Returns the argument types as an array
- // </summary>
- public Type [] GetTypes (TypeContainer tc)
+ bool ComputeParameterTypes (DeclSpace ds)
+ {
+ int extra = (ArrayParameter != null) ? 1 : 0;
+ int i = 0;
+ int pc;
+
+ if (FixedParameters == null)
+ pc = extra;
+ else
+ pc = extra + FixedParameters.Length;
+
+ types = new Type [pc];
+
+ if (!VerifyArgs ()){
+ FixedParameters = null;
+ return false;
+ }
+
+ bool failed = false;
+ if (FixedParameters != null){
+ foreach (Parameter p in FixedParameters){
+ Type t = null;
+
+ if (p.Resolve (ds, loc))
+ t = p.ExternalType (ds, loc);
+ else
+ failed = true;
+
+ types [i] = t;
+ i++;
+ }
+ }
+
+ if (extra > 0){
+ if (ArrayParameter.Resolve (ds, loc))
+ types [i] = ArrayParameter.ExternalType (ds, loc);
+ else
+ failed = true;
+ }
+
+ if (failed){
+ types = null;
+ return false;
+ }
+
+ return true;
+ }
+
+ //
+ // This variant is used by Delegates, because they need to
+ // resolve/define names, instead of the plain LookupType
+ //
+ public bool ComputeAndDefineParameterTypes (DeclSpace ds)
{
- int extra = (array_parameter != null) ? 1 : 0;
- Type [] types = new Type [fixed_parameters.Count + extra];
+ int extra = (ArrayParameter != null) ? 1 : 0;
int i = 0;
+ int pc;
+
+ if (FixedParameters == null)
+ pc = extra;
+ else
+ pc = extra + FixedParameters.Length;
+
+ types = new Type [pc];
- foreach (Parameter p in fixed_parameters){
- types [i++] = tc.LookupType (p.Name, false);
+ if (!VerifyArgs ()){
+ FixedParameters = null;
+ return false;
}
- if (extra > 0)
- types [i] = Type.GetType ("System.Object");
+ bool ok_flag = true;
+
+ if (FixedParameters != null){
+ foreach (Parameter p in FixedParameters){
+ Type t = null;
+
+ if (p.Resolve (ds, loc))
+ t = p.ExternalType (ds, loc);
+ else
+ ok_flag = false;
+
+ types [i] = t;
+ i++;
+ }
+ }
+
+ if (extra > 0){
+ if (ArrayParameter.Resolve (ds, loc))
+ types [i] = ArrayParameter.ExternalType (ds, loc);
+ else
+ ok_flag = false;
+ }
+
+ //
+ // invalidate the cached types
+ //
+ if (!ok_flag){
+ types = null;
+ }
+
+ return ok_flag;
+ }
+
+ /// <summary>
+ /// Returns the argument types as an array
+ /// </summary>
+ static Type [] no_types = new Type [0];
+
+ public Type [] GetParameterInfo (DeclSpace ds)
+ {
+ if (types != null)
+ return types;
+
+ if (FixedParameters == null && ArrayParameter == null)
+ return no_types;
+
+ if (ComputeParameterTypes (ds) == false){
+ types = null;
+ return null;
+ }
return types;
}
+
+ /// <summary>
+ /// Returns the type of a given parameter, and stores in the `is_out'
+ /// boolean whether this is an out or ref parameter.
+ ///
+ /// Note that the returned type will not contain any dereference in this
+ /// case (ie, you get "int" for a ref int instead of "int&"
+ /// </summary>
+ public Type GetParameterInfo (DeclSpace ds, int idx, out Parameter.Modifier mod)
+ {
+ mod = Parameter.Modifier.NONE;
+
+ if (!VerifyArgs ()){
+ FixedParameters = null;
+ return null;
+ }
+
+ if (FixedParameters == null && ArrayParameter == null)
+ return null;
+
+ if (types == null)
+ if (ComputeParameterTypes (ds) == false)
+ return null;
+
+ //
+ // If this is a request for the variable lenght arg.
+ //
+ int array_idx = (FixedParameters != null ? FixedParameters.Length : 0);
+ if (idx == array_idx)
+ return types [idx];
+
+ //
+ // Otherwise, it is a fixed parameter
+ //
+ Parameter p = FixedParameters [idx];
+ mod = p.ModFlags;
+
+ if ((mod & (Parameter.Modifier.REF | Parameter.Modifier.OUT)) != 0)
+ mod |= Parameter.Modifier.ISBYREF;
+
+ return p.ParameterType;
+ }
+
+ public CallingConventions GetCallingConvention ()
+ {
+ // For now this is the only correc thing to do
+ return CallingConventions.Standard;
+ }
}
}