mcs/class/Microsoft.JScript/Microsoft.JScript/FunctionObject.cs

   1 //
   2 // FunctionObject.cs:
   3 //
   4 // Author:
   5 //      Cesar Octavio Lopez Nataren
   6 //
   7 // (C) 2003, Cesar Octavio Lopez Nataren, <cesar@ciencias.unam.mx>
   8 //
   9
  10 //
  11 // Permission is hereby granted, free of charge, to any person obtaining
  12 // a copy of this software and associated documentation files (the
  13 // "Software"), to deal in the Software without restriction, including
  14 // without limitation the rights to use, copy, modify, merge, publish,
  15 // distribute, sublicense, and/or sell copies of the Software, and to
  16 // permit persons to whom the Software is furnished to do so, subject to
  17 // the following conditions:
  18 //
  19 // The above copyright notice and this permission notice shall be
  20 // included in all copies or substantial portions of the Software.
  21 //
  22 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  23 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  24 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  25 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  26 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  27 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  28 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  29 //
  30
  31 using System;
  32 using System.Text;
  33 using System.Reflection;
  34 using System.Collections;
  35
  36 namespace Microsoft.JScript {
  37
  38         public class FunctionObject : ScriptFunction {
  39
  40                 internal string name;
  41                 internal string type_annot;
  42                 internal Type return_type;
  43                 internal FormalParameterList parameters;
  44                 internal Block body;
  45
  46                 internal FunctionObject (string name)
  47                 {
  48                         this.name = name;
  49                 }
  50
  51                 internal FunctionObject (MethodInfo info)
  52                 {
  53                         this.method = info;
  54                         this.name = info.Name;
  55                         this.attr = info.Attributes;
  56                         this.return_type = info.ReturnType;
  57                 }
  58
  59                 internal FunctionObject (string name, FormalParameterList p, string ret_type, Block body)
  60                 {
  61                         //
  62                         // FIXME
  63                         // 1) Must collect the attributes given.
  64                         // 2) Check if they are semantically correct.
  65                         // 3) Assign those values to 'attr'.
  66                         //
  67                         this.attr = MethodAttributes.Public | MethodAttributes.Static;
  68
  69                         this.name = name;
  70                         this.parameters = p;
  71
  72                         this.type_annot = ret_type;
  73                         //
  74                         // FIXME: Must check that return_type it's a valid type,
  75                         // and assign that to 'return_type' field.
  76                         //
  77                         this.return_type = typeof (void);
  78
  79                         this.body = body;
  80                 }
  81
  82                 internal FunctionObject ()
  83                 {
  84                         this.parameters = new FormalParameterList ();
  85                 }
  86
  87                 public override string ToString ()
  88                 {
  89                         StringBuilder sb = new StringBuilder ();
  90
  91                         sb.Append ("function ");
  92                         sb.Append (name);
  93                         sb.Append ("(");
  94
  95                         if (parameters != null)
  96                                 sb.Append (this.parameters.ToString ());
  97
  98                         sb.Append (")");
  99                         if (return_type != null && return_type != typeof (void))
 100                                 sb.Append (" : " + return_type);
 101                         sb.Append (" {\n");
 102
 103                         if (body != null)
 104                                 sb.Append (body.ToString ());
 105                         else
 106                                 sb.Append ("    [native code]");
 107
 108                         sb.Append ("\n}");
 109
 110                         return sb.ToString ();
 111                 }
 112
 113                 internal Type [] params_types ()
 114                 {
 115                         if (parameters == null)
 116                                 return
 117                                         new Type [] {typeof (Object), typeof (Microsoft.JScript.Vsa.VsaEngine)};
 118                         else {
 119                                 int i, size;
 120                                 ArrayList p = parameters.ids;
 121
 122                                 size = p.Count + 2;
 123
 124                                 Type [] types = new Type [size];
 125
 126                                 types [0] = typeof (Object);
 127                                 types [1] = typeof (Microsoft.JScript.Vsa.VsaEngine);
 128
 129                                 for (i = 2; i < size; i++)
 130                                         types [i] = ((FormalParam) p [i - 2]).type;
 131
 132                                 return types;
 133                         }
 134                 }
 135         }
 136 }