2005-07-17 Florian Gross <flgr@ccan.de>

[mono.git] / mcs / class / Microsoft.JScript / Microsoft.JScript / FunctionObject.cs

diff --git a/mcs/class/Microsoft.JScript/Microsoft.JScript/FunctionObject.cs b/mcs/class/Microsoft.JScript/Microsoft.JScript/FunctionObject.cs
index a2136e47aaed422d156c563feb1dc4a49a45197a..8fdcb5c2f9342f9d1503f5b2483c4a4ffc4d8bf7 100644 (file)
--- a/mcs/class/Microsoft.JScript/Microsoft.JScript/FunctionObject.cs
+++ b/mcs/class/Microsoft.JScript/Microsoft.JScript/FunctionObject.cs
@@ -1,18 +1,136 @@
 //
 // FunctionObject.cs:
 //
-// Author: Cesar Octavio Lopez Nataren
+// Author:
+//     Cesar Octavio Lopez Nataren
 //
+// (C) 2003, Cesar Octavio Lopez Nataren, <cesar@ciencias.unam.mx>
+//
+
+//
+// Permission is hereby granted, free of charge, to any person obtaining
+// a copy of this software and associated documentation files (the
+// "Software"), to deal in the Software without restriction, including
+// without limitation the rights to use, copy, modify, merge, publish,
+// distribute, sublicense, and/or sell copies of the Software, and to
+// permit persons to whom the Software is furnished to do so, subject to
+// the following conditions:
+// 
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Software.
+// 
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+using System;
+using System.Text;
+using System.Reflection;
+using System.Collections;
+
+namespace Microsoft.JScript {
+
+       public class FunctionObject : ScriptFunction {
+
+               internal string name;
+               internal string type_annot;
+               internal Type return_type;
+               internal FormalParameterList parameters;
+               internal Block body;
+
+               internal FunctionObject (string name)
+               {
+                       this.name = name;
+               }
+
+               internal FunctionObject (MethodInfo info)
+               {
+                       this.method = info;
+                       this.name = info.Name;
+                       this.attr = info.Attributes;
+                       this.return_type = info.ReturnType;
+               }
+
+               internal FunctionObject (string name, FormalParameterList p, string ret_type, Block body)
+               {
+                       //
+                       // FIXME
+                       // 1) Must collect the attributes given.
+                       // 2) Check if they are semantically correct.
+                       // 3) Assign those values to 'attr'.
+                       //
+                       this.attr = MethodAttributes.Public | MethodAttributes.Static;
+
+                       this.name = name;
+                       this.parameters = p;
 
-namespace Microsoft.JScript
-{
-       using System;
+                       this.type_annot = ret_type;
+                       //
+                       // FIXME: Must check that return_type it's a valid type,
+                       // and assign that to 'return_type' field.
+                       //
+                       this.return_type = typeof (void);
+
+                       this.body = body;
+               }
+           
+               internal FunctionObject ()
+               {
+                       this.parameters = new FormalParameterList ();
+               }
 
-       public class FunctionObject : ScriptFunction
-       {
                public override string ToString ()
                {
-                       throw new NotImplementedException ();
+                       StringBuilder sb = new StringBuilder ();
+
+                       sb.Append ("function ");
+                       sb.Append (name);
+                       sb.Append ("(");
+
+                       if (parameters != null)
+                               sb.Append (this.parameters.ToString ());
+                                       
+                       sb.Append (")");
+                       if (return_type != null && return_type != typeof (void))
+                               sb.Append (" : " + return_type);
+                       sb.Append (" {\n");
+
+                       if (body != null)
+                               sb.Append (body.ToString ());
+                       else
+                               sb.Append ("    [native code]");
+
+                       sb.Append ("\n}");
+
+                       return sb.ToString ();          
+               }
+
+               internal Type [] params_types ()
+               {
+                       if (parameters == null)
+                               return 
+                                       new Type [] {typeof (Object), typeof (Microsoft.JScript.Vsa.VsaEngine)};
+                       else {
+                               int i, size;
+                               ArrayList p = parameters.ids;
+
+                               size = p.Count + 2;
+
+                               Type [] types = new Type [size];
+
+                               types [0] = typeof (Object);
+                               types [1] = typeof (Microsoft.JScript.Vsa.VsaEngine);
+
+                               for (i = 2; i < size; i++)
+                                       types [i] = ((FormalParam) p [i - 2]).type;
+
+                               return types;
+                       }
                }
        }
-}
\ No newline at end of file
+}