2005-08-17 Florian Gross <flgr@ccan.de>
[mono.git] / mcs / class / Microsoft.JScript / Microsoft.JScript / ErrorConstructor.cs
1 //
2 // ErrorConstructor.cs:
3 //
4 // Author: Cesar Octavio Lopez Nataren
5 //
6 // (C) 2003, Cesar Octavio Lopez Nataren, <cesar@ciencias.unam.mx>
7 //
8
9 //
10 // Permission is hereby granted, free of charge, to any person obtaining
11 // a copy of this software and associated documentation files (the
12 // "Software"), to deal in the Software without restriction, including
13 // without limitation the rights to use, copy, modify, merge, publish,
14 // distribute, sublicense, and/or sell copies of the Software, and to
15 // permit persons to whom the Software is furnished to do so, subject to
16 // the following conditions:
17 // 
18 // The above copyright notice and this permission notice shall be
19 // included in all copies or substantial portions of the Software.
20 // 
21 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
22 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
23 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
24 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
25 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
26 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
27 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
28 //
29
30 using System;
31 using System.Reflection;
32
33 namespace Microsoft.JScript {
34
35         public enum ErrorType : int {
36                 OtherError,
37                 EvalError,
38                 RangeError,
39                 ReferenceError,
40                 SyntaxError,
41                 TypeError,
42                 URIError
43         };
44
45         public class ErrorConstructor : ScriptFunction {
46
47                 ErrorType error_type;
48                 internal static ErrorConstructor Ctr = new ErrorConstructor ();
49                 internal static ErrorConstructor EvalErrorCtr = new ErrorConstructor (ErrorType.EvalError);
50                 internal static ErrorConstructor RangeErrorCtr = new ErrorConstructor (ErrorType.RangeError);
51                 internal static ErrorConstructor ReferenceErrorCtr = new ErrorConstructor (ErrorType.ReferenceError);
52                 internal static ErrorConstructor SyntaxErrorCtr = new ErrorConstructor (ErrorType.SyntaxError);
53                 internal static ErrorConstructor TypeErrorCtr = new ErrorConstructor (ErrorType.TypeError);
54                 internal static ErrorConstructor URIErrorCtr = new ErrorConstructor (ErrorType.URIError);
55
56                 static Type ErrorTypeToClass (ErrorType type)
57                 {
58                         switch (type) {
59                         case ErrorType.EvalError:
60                                 return typeof (EvalErrorObject);
61                         case ErrorType.RangeError:
62                                 return typeof (RangeErrorObject);
63                         case ErrorType.ReferenceError:
64                                 return typeof (ReferenceErrorObject);
65                         case ErrorType.SyntaxError:
66                                 return typeof (SyntaxErrorObject);
67                         case ErrorType.TypeError:
68                                 return typeof (TypeErrorObject);
69                         case ErrorType.URIError:
70                                 return typeof (URIErrorObject);
71                         }
72
73                         Console.WriteLine ("ErrorTypeToClass: unknown type {0}", type);
74                         throw new NotImplementedException ();
75                 }
76
77                 static string ErrorTypeToName (ErrorType type)
78                 {
79                         switch (type) {
80                         case ErrorType.EvalError:
81                                 return "EvalError";
82                         case ErrorType.OtherError:
83                                 return "Error"; // TODO: Is this correct?
84                         case ErrorType.RangeError:
85                                 return "RangeError";
86                         case ErrorType.ReferenceError:
87                                 return "ReferenceError";
88                         case ErrorType.SyntaxError:
89                                 return "SyntaxError";
90                         case ErrorType.TypeError:
91                                 return "TypeError";
92                         case ErrorType.URIError:
93                                 return "URIError";
94                         }
95
96                         Console.WriteLine ("ErrorTypeToName: unknown type {0}", type);
97                         throw new NotImplementedException ();
98                 }
99
100                 internal ErrorConstructor ()
101                 {
102                         name = "Error";
103                         _prototype = ErrorPrototype.Proto;
104                         _length = 1;
105                 }
106
107                 internal ErrorConstructor (ErrorType errorType)
108                 {
109                         error_type = errorType;
110                         name = ErrorTypeToName (errorType);
111                         _prototype = ErrorPrototype.Proto;
112                         _length = 1;
113                 }
114
115                 [JSFunctionAttribute (JSFunctionAttributeEnum.HasVarArgs)]
116                 public new ErrorObject CreateInstance (params Object [] args)
117                 {
118                         string message = "";
119                         if (args.Length >= 1)
120                                 message = Convert.ToString (args[0]);
121
122                         Type type = ErrorTypeToClass (error_type);
123                         return (ErrorObject) Activator.CreateInstance (type, new object [] { message });
124                 }
125
126                 [JSFunctionAttribute(JSFunctionAttributeEnum.HasVarArgs)]
127                 public Object Invoke (params Object [] args)
128                 {
129                         return CreateInstance (args);
130                 }
131         }
132 }