?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
(DISTFILES): Comment out a few missing files.
[mono-project.git] / mcs / class / Microsoft.VisualBasic / Microsoft.VisualBasic / Microsoft.VisualBasic.CompilerServices / ObjectType.cs
blobd78a5672aa3b7bb19271c5c5b629de9f2825e1a5
1 //
2 // ObjectType.cs
3 //
4 // Author:
5 // Chris J Breisch (cjbreisch@altavista.net)
6 // Francesco Delfino (pluto@tipic.com)
7 //
8 // (C) 2002 Chris J Breisch
9 // 2002 Tipic, Inc (http://www.tipic.com)
10 //
11
12 //
13 // Copyright (C) 2004 Novell, Inc (http://www.novell.com)
14 //
15 // Permission is hereby granted, free of charge, to any person obtaining
16 // a copy of this software and associated documentation files (the
17 // "Software"), to deal in the Software without restriction, including
18 // without limitation the rights to use, copy, modify, merge, publish,
19 // distribute, sublicense, and/or sell copies of the Software, and to
20 // permit persons to whom the Software is furnished to do so, subject to
21 // the following conditions:
22 //
23 // The above copyright notice and this permission notice shall be
24 // included in all copies or substantial portions of the Software.
25 //
26 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
27 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
28 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
29 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
30 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
31 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
32 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
33 //
34
35 //using System;
36 //
37 //namespace Microsoft.VisualBasic.CompilerServices {
38 // [System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)]
39 // sealed public class ObjectType {
40 // // Methods
41 // [MonoTODO]
42 // public static System.Int32 ObjTst (System.Object o1, System.Object o2, System.Boolean TextCompare) { throw new NotImplementedException (); }
43 // [MonoTODO]
44 // public static System.Object PlusObj (System.Object obj) { throw new NotImplementedException (); }
45 // [MonoTODO]
46 // public static System.Object NegObj (System.Object obj) { throw new NotImplementedException (); }
47 // [MonoTODO]
48 // public static System.Object NotObj (System.Object obj) { throw new NotImplementedException (); }
49 // [MonoTODO]
50 // public static System.Object BitAndObj (System.Object obj1, System.Object obj2) { throw new NotImplementedException (); }
51 // [MonoTODO]
52 // public static System.Object BitOrObj (System.Object obj1, System.Object obj2) { throw new NotImplementedException (); }
53 // [MonoTODO]
54 // public static System.Object BitXorObj (System.Object obj1, System.Object obj2) { throw new NotImplementedException (); }
55 // [MonoTODO]
56 // public static System.Object AddObj (System.Object o1, System.Object o2) { throw new NotImplementedException (); }
57 // [MonoTODO]
58 // public static System.Object SubObj (System.Object o1, System.Object o2) { throw new NotImplementedException (); }
59 // [MonoTODO]
60 // public static System.Object MulObj (System.Object o1, System.Object o2) { throw new NotImplementedException (); }
61 // [MonoTODO]
62 // public static System.Object DivObj (System.Object o1, System.Object o2) { throw new NotImplementedException (); }
63 // [MonoTODO]
64 // public static System.Object PowObj (System.Object obj1, System.Object obj2) { throw new NotImplementedException (); }
65 // [MonoTODO]
66 // public static System.Object ModObj (System.Object o1, System.Object o2) { throw new NotImplementedException (); }
67 // [MonoTODO]
68 // public static System.Object IDivObj (System.Object o1, System.Object o2) { throw new NotImplementedException (); }
69 // [MonoTODO]
70 // public static System.Object XorObj (System.Object obj1, System.Object obj2) { throw new NotImplementedException (); }
71 // [MonoTODO]
72 // public static System.Boolean LikeObj (System.Object vLeft, System.Object vRight, Microsoft.VisualBasic.CompareMethod CompareOption) { throw new NotImplementedException (); }
73 // [MonoTODO]
74 // public static System.Object StrCatObj (System.Object vLeft, System.Object vRight) { throw new NotImplementedException (); }
75 // [MonoTODO]
76 // public static System.Object GetObjectValuePrimitive (System.Object o) { throw new NotImplementedException (); }
77 // };
78 //}
79
80
81 //
82 // ObjectType.cs
83 //
84 // Author:
85 // Chris J Breisch (cjbreisch@altavista.net)
86 // Francesco Delfino (pluto@tipic.com)
87 //
88 // (C) 2002 Chris J Breisch
89 // 2002 Tipic, Inc (http://www.tipic.com)
90 //
91
92 /*
93 * Copyright (c) 2002-2003 Mainsoft Corporation.
94 *
95 * Permission is hereby granted, free of charge, to any person obtaining a
96 * copy of this software and associated documentation files (the "Software"),
97 * to deal in the Software without restriction, including without limitation
98 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
99 * and/or sell copies of the Software, and to permit persons to whom the
100 * Software is furnished to do so, subject to the following conditions:
101 *
102 * The above copyright notice and this permission notice shall be included in
103 * all copies or substantial portions of the Software.
104 *
105 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
106 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
107 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
108 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
109 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
110 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
111 * DEALINGS IN THE SOFTWARE.
112 */
113
114 using System;
115 using System.Collections;
116 using Microsoft.VisualBasic;
117 namespace Microsoft.VisualBasic.CompilerServices {
118 [System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)]
119 sealed public class ObjectType {
120
121 private static int[,] ConversionClassTable = new int[13,13];
122 private static Type[,] WiderType = new Type[12,12];
123 private static int [] VType2FromTypeCode = new int[19];
124 private static Type [] tblTypeFromTypeCode = new Type[19];//added tbl prefix to differencate field from method
125 private static int [] VTypeFromTypeCode = new int[19];
126 private static int [] TypeCodeFromVType = new int[13];
127
128 // static {
129 // WiderType[VType.t_bad][VType.t_bad] = VType.t_bad;
130 // WiderType[VType.t_bad][VType.t_bool] = VType.t_bad;
131 // WiderType[VType.t_bad][VType.t_ui1] = VType.t_bad;
132 // WiderType[VType.t_bad][VType.t_i2] = VType.t_bad;
133 // WiderType[VType.t_bad][VType.t_i4] = VType.t_bad;
134 // WiderType[VType.t_bad][VType.t_i8] = VType.t_bad;
135 // WiderType[VType.t_bad][VType.t_dec] = VType.t_bad;
136 // WiderType[VType.t_bad][VType.t_r4] = VType.t_bad;
137 // WiderType[VType.t_bad][VType.t_r8] = VType.t_bad;
138 // WiderType[VType.t_bad][VType.t_char] = VType.t_bad;
139 // WiderType[VType.t_bad][VType.t_str] = VType.t_bad;
140 // WiderType[VType.t_bad][VType.t_date] = VType.t_bad;
141 //
142 // WiderType[VType.t_bool][VType.t_bad] = VType.t_bad;
143 // WiderType[VType.t_bool][VType.t_bool] = VType.t_bool;
144 // WiderType[VType.t_bool][VType.t_ui1] = VType.t_bool;
145 // WiderType[VType.t_bool][VType.t_i2] = VType.t_i2;
146 // WiderType[VType.t_bool][VType.t_i4] = VType.t_i4;
147 // WiderType[VType.t_bool][VType.t_i8] = VType.t_i8;
148 // WiderType[VType.t_bool][VType.t_dec] = VType.t_dec;
149 // WiderType[VType.t_bool][VType.t_r4] = VType.t_r4;
150 // WiderType[VType.t_bool][VType.t_r8] = VType.t_r8;
151 // WiderType[VType.t_bool][VType.t_char] = VType.t_bad;
152 // WiderType[VType.t_bool][VType.t_str] = VType.t_r8;
153 // WiderType[VType.t_bool][VType.t_date] = VType.t_bad;
154 //
155 // WiderType[VType.t_ui1][VType.t_bad] = VType.t_bad;
156 // WiderType[VType.t_ui1][VType.t_bool] = VType.t_bool;
157 // WiderType[VType.t_ui1][VType.t_ui1] = VType.t_ui1;
158 // WiderType[VType.t_ui1][VType.t_i2] = VType.t_i2;
159 // WiderType[VType.t_ui1][VType.t_i4] = VType.t_i4;
160 // WiderType[VType.t_ui1][VType.t_i8] = VType.t_i8;
161 // WiderType[VType.t_ui1][VType.t_dec] = VType.t_dec;
162 // WiderType[VType.t_ui1][VType.t_r4] = VType.t_r4;
163 // WiderType[VType.t_ui1][VType.t_r8] = VType.t_r8;
164 // WiderType[VType.t_ui1][VType.t_char] = VType.t_bad;
165 // WiderType[VType.t_ui1][VType.t_str] = VType.t_r8;
166 // WiderType[VType.t_ui1][VType.t_date] = VType.t_bad;
167 //
168 // WiderType[VType.t_i2][VType.t_bad] = VType.t_bad;
169 // WiderType[VType.t_i2][VType.t_bool] = VType.t_i2;
170 // WiderType[VType.t_i2][VType.t_ui1] = VType.t_i2;
171 // WiderType[VType.t_i2][VType.t_i2] = VType.t_i2;
172 // WiderType[VType.t_i2][VType.t_i4] = VType.t_i4;
173 // WiderType[VType.t_i2][VType.t_i8] = VType.t_i8;
174 // WiderType[VType.t_i2][VType.t_dec] = VType.t_dec;
175 // WiderType[VType.t_i2][VType.t_r4] = VType.t_r4;
176 // WiderType[VType.t_i2][VType.t_r8] = VType.t_r8;
177 // WiderType[VType.t_i2][VType.t_char] = VType.t_bad;
178 // WiderType[VType.t_i2][VType.t_str] = VType.t_r8;
179 // WiderType[VType.t_i2][VType.t_date] = VType.t_bad;
180 //
181 // WiderType[VType.t_i4][VType.t_bad] = VType.t_bad;
182 // WiderType[VType.t_i4][VType.t_bool] = VType.t_i4;
183 // WiderType[VType.t_i4][VType.t_ui1] = VType.t_i4;
184 // WiderType[VType.t_i4][VType.t_i2] = VType.t_i4;
185 // WiderType[VType.t_i4][VType.t_i4] = VType.t_i4;
186 // WiderType[VType.t_i4][VType.t_i8] = VType.t_i8;
187 // WiderType[VType.t_i4][VType.t_dec] = VType.t_dec;
188 // WiderType[VType.t_i4][VType.t_r4] = VType.t_r4;
189 // WiderType[VType.t_i4][VType.t_r8] = VType.t_r8;
190 // WiderType[VType.t_i4][VType.t_char] = VType.t_bad;
191 // WiderType[VType.t_i4][VType.t_str] = VType.t_r8;
192 // WiderType[VType.t_i4][VType.t_date] = VType.t_bad;
193 //
194 // WiderType[VType.t_i8][VType.t_bad] = VType.t_bad;
195 // WiderType[VType.t_i8][VType.t_bool] = VType.t_i8;
196 // WiderType[VType.t_i8][VType.t_ui1] = VType.t_i8;
197 // WiderType[VType.t_i8][VType.t_i2] = VType.t_i8;
198 // WiderType[VType.t_i8][VType.t_i4] = VType.t_i8;
199 // WiderType[VType.t_i8][VType.t_i8] = VType.t_i8;
200 // WiderType[VType.t_i8][VType.t_dec] = VType.t_dec;
201 // WiderType[VType.t_i8][VType.t_r4] = VType.t_r4;
202 // WiderType[VType.t_i8][VType.t_r8] = VType.t_r8;
203 // WiderType[VType.t_i8][VType.t_char] = VType.t_bad;
204 // WiderType[VType.t_i8][VType.t_str] = VType.t_r8;
205 // WiderType[VType.t_i8][VType.t_date] = VType.t_bad;
206 //
207 // WiderType[VType.t_dec][VType.t_bad] = VType.t_bad;
208 // WiderType[VType.t_dec][VType.t_bool] = VType.t_dec;
209 // WiderType[VType.t_dec][VType.t_ui1] = VType.t_dec;
210 // WiderType[VType.t_dec][VType.t_i2] = VType.t_dec;
211 // WiderType[VType.t_dec][VType.t_i4] = VType.t_dec;
212 // WiderType[VType.t_dec][VType.t_i8] = VType.t_dec;
213 // WiderType[VType.t_dec][VType.t_dec] = VType.t_dec;
214 // WiderType[VType.t_dec][VType.t_r4] = VType.t_r4;
215 // WiderType[VType.t_dec][VType.t_r8] = VType.t_r8;
216 // WiderType[VType.t_dec][VType.t_char] = VType.t_bad;
217 // WiderType[VType.t_dec][VType.t_str] = VType.t_r8;
218 // WiderType[VType.t_dec][VType.t_date] = VType.t_bad;
219 //
220 // WiderType[VType.t_r4][VType.t_bad] = VType.t_bad;
221 // WiderType[VType.t_r4][VType.t_bool] = VType.t_r4;
222 // WiderType[VType.t_r4][VType.t_ui1] = VType.t_r4;
223 // WiderType[VType.t_r4][VType.t_i2] = VType.t_r4;
224 // WiderType[VType.t_r4][VType.t_i4] = VType.t_r4;
225 // WiderType[VType.t_r4][VType.t_i8] = VType.t_r4;
226 // WiderType[VType.t_r4][VType.t_dec] = VType.t_r4;
227 // WiderType[VType.t_r4][VType.t_r4] = VType.t_r4;
228 // WiderType[VType.t_r4][VType.t_r8] = VType.t_r8;
229 // WiderType[VType.t_r4][VType.t_char] = VType.t_bad;
230 // WiderType[VType.t_r4][VType.t_str] = VType.t_r8;
231 // WiderType[VType.t_r4][VType.t_date] = VType.t_bad;
232 //
233 // WiderType[VType.t_r8][VType.t_bad] = VType.t_bad;
234 // WiderType[VType.t_r8][VType.t_bool] = VType.t_r8;
235 // WiderType[VType.t_r8][VType.t_ui1] = VType.t_r8;
236 // WiderType[VType.t_r8][VType.t_i2] = VType.t_r8;
237 // WiderType[VType.t_r8][VType.t_i4] = VType.t_r8;
238 // WiderType[VType.t_r8][VType.t_i8] = VType.t_r8;
239 // WiderType[VType.t_r8][VType.t_dec] = VType.t_r8;
240 // WiderType[VType.t_r8][VType.t_r4] = VType.t_r8;
241 // WiderType[VType.t_r8][VType.t_r8] = VType.t_r8;
242 // WiderType[VType.t_r8][VType.t_char] = VType.t_bad;
243 // WiderType[VType.t_r8][VType.t_str] = VType.t_r8;
244 // WiderType[VType.t_r8][VType.t_date] = VType.t_bad;
245 //
246 // WiderType[VType.t_char][VType.t_bad] = VType.t_bad;
247 // WiderType[VType.t_char][VType.t_bool] = VType.t_bad;
248 // WiderType[VType.t_char][VType.t_ui1] = VType.t_bad;
249 // WiderType[VType.t_char][VType.t_i2] = VType.t_bad;
250 // WiderType[VType.t_char][VType.t_i4] = VType.t_bad;
251 // WiderType[VType.t_char][VType.t_i8] = VType.t_bad;
252 // WiderType[VType.t_char][VType.t_dec] = VType.t_bad;
253 // WiderType[VType.t_char][VType.t_r4] = VType.t_bad;
254 // WiderType[VType.t_char][VType.t_r8] = VType.t_bad;
255 // WiderType[VType.t_char][VType.t_char] = VType.t_char;
256 // WiderType[VType.t_char][VType.t_str] = VType.t_str;
257 // WiderType[VType.t_char][VType.t_date] = VType.t_bad;
258 //
259 // WiderType[VType.t_str][VType.t_bad] = VType.t_bad;
260 // WiderType[VType.t_str][VType.t_bool] = VType.t_r8;
261 // WiderType[VType.t_str][VType.t_ui1] = VType.t_r8;
262 // WiderType[VType.t_str][VType.t_i2] = VType.t_r8;
263 // WiderType[VType.t_str][VType.t_i4] = VType.t_r8;
264 // WiderType[VType.t_str][VType.t_i8] = VType.t_r8;
265 // WiderType[VType.t_str][VType.t_dec] = VType.t_r8;
266 // WiderType[VType.t_str][VType.t_r4] = VType.t_r8;
267 // WiderType[VType.t_str][VType.t_r8] = VType.t_r8;
268 // WiderType[VType.t_str][VType.t_char] = VType.t_str;
269 // WiderType[VType.t_str][VType.t_str] = VType.t_str;
270 // WiderType[VType.t_str][VType.t_date] = VType.t_date;
271 //
272 // WiderType[VType.t_date][VType.t_bad] = VType.t_bad;
273 // WiderType[VType.t_date][VType.t_bool] = VType.t_bad;
274 // WiderType[VType.t_date][VType.t_ui1] = VType.t_bad;
275 // WiderType[VType.t_date][VType.t_i2] = VType.t_bad;
276 // WiderType[VType.t_date][VType.t_i4] = VType.t_bad;
277 // WiderType[VType.t_date][VType.t_i8] = VType.t_bad;
278 // WiderType[VType.t_date][VType.t_dec] = VType.t_bad;
279 // WiderType[VType.t_date][VType.t_r4] = VType.t_bad;
280 // WiderType[VType.t_date][VType.t_r8] = VType.t_bad;
281 // WiderType[VType.t_date][VType.t_char] = VType.t_bad;
282 // WiderType[VType.t_date][VType.t_str] = VType.t_date;
283 // WiderType[VType.t_date][VType.t_date] = VType.t_date;
284 //
285 // ConversionClassTable[VType2.t_bad][VType2.t_bad] = VType2.t_bad;
286 // ConversionClassTable[VType2.t_bad][VType2.t_bool] = VType2.t_bad;
287 // ConversionClassTable[VType2.t_bad][VType2.t_ui1] = VType2.t_bad;
288 // ConversionClassTable[VType2.t_bad][VType2.t_char] = VType2.t_bad;
289 // ConversionClassTable[VType2.t_bad][VType2.t_i2] = VType2.t_bad;
290 // ConversionClassTable[VType2.t_bad][VType2.t_i4] = VType2.t_bad;
291 // ConversionClassTable[VType2.t_bad][VType2.t_i8] = VType2.t_bad;
292 // ConversionClassTable[VType2.t_bad][VType2.t_r4] = VType2.t_bad;
293 // ConversionClassTable[VType2.t_bad][VType2.t_r8] = VType2.t_bad;
294 // ConversionClassTable[VType2.t_bad][VType2.t_date] = VType2.t_bad;
295 // ConversionClassTable[VType2.t_bad][VType2.t_dec] = VType2.t_bad;
296 // ConversionClassTable[VType2.t_bad][VType2.t_ref] = VType2.t_bad;
297 // ConversionClassTable[VType2.t_bad][VType2.t_str] = VType2.t_bad;
298 //
299 // ConversionClassTable[VType2.t_bool][VType2.t_bad] = VType2.t_bad;
300 // ConversionClassTable[VType2.t_bool][VType2.t_bool] = VType2.t_bool;
301 // ConversionClassTable[VType2.t_bool][VType2.t_ui1] = VType2.t_ui1;
302 // ConversionClassTable[VType2.t_bool][VType2.t_char] = VType2.t_bad;
303 // ConversionClassTable[VType2.t_bool][VType2.t_i2] = VType2.t_ui1;
304 // ConversionClassTable[VType2.t_bool][VType2.t_i4] = VType2.t_ui1;
305 // ConversionClassTable[VType2.t_bool][VType2.t_i8] = VType2.t_ui1;
306 // ConversionClassTable[VType2.t_bool][VType2.t_r4] = VType2.t_ui1;
307 // ConversionClassTable[VType2.t_bool][VType2.t_r8] = VType2.t_ui1;
308 // ConversionClassTable[VType2.t_bool][VType2.t_bad] = VType2.t_bad;
309 // ConversionClassTable[VType2.t_bool][VType2.t_dec] = VType2.t_ui1;
310 // ConversionClassTable[VType2.t_bool][VType2.t_dec] = VType2.t_bad;
311 // ConversionClassTable[VType2.t_bool][VType2.t_str] = VType2.t_ui1;
312 //
313 // ConversionClassTable[VType2.t_ui1][VType2.t_bad] = VType2.t_bad;
314 // ConversionClassTable[VType2.t_ui1][VType2.t_bool] = VType2.t_ui1;
315 // ConversionClassTable[VType2.t_ui1][VType2.t_ui1] = VType2.t_bool;
316 // ConversionClassTable[VType2.t_ui1][VType2.t_char] = VType2.t_bad;
317 // ConversionClassTable[VType2.t_ui1][VType2.t_i2] = VType2.t_ui1;
318 // ConversionClassTable[VType2.t_ui1][VType2.t_i4] = VType2.t_ui1;
319 // ConversionClassTable[VType2.t_ui1][VType2.t_i8] = VType2.t_ui1;
320 // ConversionClassTable[VType2.t_ui1][VType2.t_r4] = VType2.t_ui1;
321 // ConversionClassTable[VType2.t_ui1][VType2.t_r8] = VType2.t_ui1;
322 // ConversionClassTable[VType2.t_ui1][VType2.t_bad] = VType2.t_bad;
323 // ConversionClassTable[VType2.t_ui1][VType2.t_dec] = VType2.t_ui1;
324 // ConversionClassTable[VType2.t_ui1][VType2.t_dec] = VType2.t_bad;
325 // ConversionClassTable[VType2.t_ui1][VType2.t_str] = VType2.t_ui1;
326 //
327 // ConversionClassTable[VType2.t_char][VType2.t_bad] = VType2.t_bad;
328 // ConversionClassTable[VType2.t_char][VType2.t_bool] = VType2.t_bad;
329 // ConversionClassTable[VType2.t_char][VType2.t_ui1] = VType2.t_bad;
330 // ConversionClassTable[VType2.t_char][VType2.t_char] = VType2.t_bool;
331 // ConversionClassTable[VType2.t_char][VType2.t_i2] = VType2.t_bad;
332 // ConversionClassTable[VType2.t_char][VType2.t_i4] = VType2.t_bad;
333 // ConversionClassTable[VType2.t_char][VType2.t_i8] = VType2.t_bad;
334 // ConversionClassTable[VType2.t_char][VType2.t_r4] = VType2.t_bad;
335 // ConversionClassTable[VType2.t_char][VType2.t_r8] = VType2.t_bad;
336 // ConversionClassTable[VType2.t_char][VType2.t_bad] = VType2.t_bad;
337 // ConversionClassTable[VType2.t_char][VType2.t_dec] = VType2.t_bad;
338 // ConversionClassTable[VType2.t_char][VType2.t_dec] = VType2.t_bad;
339 // ConversionClassTable[VType2.t_char][VType2.t_str] = VType2.t_ui1;
340 //
341 // ConversionClassTable[VType2.t_i2][VType2.t_bad] = VType2.t_bad;
342 // ConversionClassTable[VType2.t_i2][VType2.t_bool] = VType2.t_ui1;
343 // ConversionClassTable[VType2.t_i2][VType2.t_ui1] = VType2.t_char;
344 // ConversionClassTable[VType2.t_i2][VType2.t_char] = VType2.t_bad;
345 // ConversionClassTable[VType2.t_i2][VType2.t_i2] = VType2.t_bool;
346 // ConversionClassTable[VType2.t_i2][VType2.t_i4] = VType2.t_ui1;
347 // ConversionClassTable[VType2.t_i2][VType2.t_i8] = VType2.t_ui1;
348 // ConversionClassTable[VType2.t_i2][VType2.t_r4] = VType2.t_ui1;
349 // ConversionClassTable[VType2.t_i2][VType2.t_r8] = VType2.t_ui1;
350 // ConversionClassTable[VType2.t_i2][VType2.t_bad] = VType2.t_bad;
351 // ConversionClassTable[VType2.t_i2][VType2.t_dec] = VType2.t_ui1;
352 // ConversionClassTable[VType2.t_i2][VType2.t_dec] = VType2.t_bad;
353 // ConversionClassTable[VType2.t_i2][VType2.t_str] = VType2.t_ui1;
354 //
355 // ConversionClassTable[VType2.t_i4][VType2.t_bad] = VType2.t_bad;
356 // ConversionClassTable[VType2.t_i4][VType2.t_bool] = VType2.t_ui1;
357 // ConversionClassTable[VType2.t_i4][VType2.t_ui1] = VType2.t_char;
358 // ConversionClassTable[VType2.t_i4][VType2.t_char] = VType2.t_bad;
359 // ConversionClassTable[VType2.t_i4][VType2.t_i2] = VType2.t_char;
360 // ConversionClassTable[VType2.t_i4][VType2.t_i4] = VType2.t_bool;
361 // ConversionClassTable[VType2.t_i4][VType2.t_i8] = VType2.t_ui1;
362 // ConversionClassTable[VType2.t_i4][VType2.t_r4] = VType2.t_ui1;
363 // ConversionClassTable[VType2.t_i4][VType2.t_r8] = VType2.t_ui1;
364 // ConversionClassTable[VType2.t_i4][VType2.t_bad] = VType2.t_bad;
365 // ConversionClassTable[VType2.t_i4][VType2.t_dec] = VType2.t_ui1;
366 // ConversionClassTable[VType2.t_i4][VType2.t_dec] = VType2.t_bad;
367 // ConversionClassTable[VType2.t_i4][VType2.t_str] = VType2.t_ui1;
368 //
369 // ConversionClassTable[VType2.t_i8][VType2.t_bad] = VType2.t_bad;
370 // ConversionClassTable[VType2.t_i8][VType2.t_bool] = VType2.t_ui1;
371 // ConversionClassTable[VType2.t_i8][VType2.t_ui1] = VType2.t_char;
372 // ConversionClassTable[VType2.t_i8][VType2.t_char] = VType2.t_bad;
373 // ConversionClassTable[VType2.t_i8][VType2.t_i2] = VType2.t_char;
374 // ConversionClassTable[VType2.t_i8][VType2.t_i4] = VType2.t_char;
375 // ConversionClassTable[VType2.t_i8][VType2.t_i8] = VType2.t_bool;
376 // ConversionClassTable[VType2.t_i8][VType2.t_r4] = VType2.t_ui1;
377 // ConversionClassTable[VType2.t_i8][VType2.t_r8] = VType2.t_ui1;
378 // ConversionClassTable[VType2.t_i8][VType2.t_bad] = VType2.t_bad;
379 // ConversionClassTable[VType2.t_i8][VType2.t_dec] = VType2.t_ui1;
380 // ConversionClassTable[VType2.t_i8][VType2.t_dec] = VType2.t_bad;
381 // ConversionClassTable[VType2.t_i8][VType2.t_str] = VType2.t_ui1;
382 //
383 // ConversionClassTable[VType2.t_r4][VType2.t_bad] = VType2.t_bad;
384 // ConversionClassTable[VType2.t_r4][VType2.t_bool] = VType2.t_ui1;
385 // ConversionClassTable[VType2.t_r4][VType2.t_ui1] = VType2.t_char;
386 // ConversionClassTable[VType2.t_r4][VType2.t_char] = VType2.t_bad;
387 // ConversionClassTable[VType2.t_r4][VType2.t_i2] = VType2.t_char;
388 // ConversionClassTable[VType2.t_r4][VType2.t_i4] = VType2.t_char;
389 // ConversionClassTable[VType2.t_r4][VType2.t_i8] = VType2.t_char;
390 // ConversionClassTable[VType2.t_r4][VType2.t_r4] = VType2.t_bool;
391 // ConversionClassTable[VType2.t_r4][VType2.t_r8] = VType2.t_ui1;
392 // ConversionClassTable[VType2.t_r4][VType2.t_bad] = VType2.t_bad;
393 // ConversionClassTable[VType2.t_r4][VType2.t_dec] = VType2.t_char;
394 // ConversionClassTable[VType2.t_r4][VType2.t_dec] = VType2.t_bad;
395 // ConversionClassTable[VType2.t_r4][VType2.t_str] = VType2.t_ui1;
396 //
397 // ConversionClassTable[VType2.t_r8][VType2.t_bad] = VType2.t_bad;
398 // ConversionClassTable[VType2.t_r8][VType2.t_bool] = VType2.t_ui1;
399 // ConversionClassTable[VType2.t_r8][VType2.t_ui1] = VType2.t_char;
400 // ConversionClassTable[VType2.t_r8][VType2.t_char] = VType2.t_bad;
401 // ConversionClassTable[VType2.t_r8][VType2.t_i2] = VType2.t_char;
402 // ConversionClassTable[VType2.t_r8][VType2.t_i4] = VType2.t_char;
403 // ConversionClassTable[VType2.t_r8][VType2.t_i8] = VType2.t_char;
404 // ConversionClassTable[VType2.t_r8][VType2.t_r4] = VType2.t_char;
405 // ConversionClassTable[VType2.t_r8][VType2.t_r8] = VType2.t_bool;
406 // ConversionClassTable[VType2.t_r8][VType2.t_bad] = VType2.t_bad;
407 // ConversionClassTable[VType2.t_r8][VType2.t_dec] = VType2.t_char;
408 // ConversionClassTable[VType2.t_r8][VType2.t_dec] = VType2.t_bad;
409 // ConversionClassTable[VType2.t_r8][VType2.t_str] = VType2.t_ui1;
410 //
411 // ConversionClassTable[VType2.t_bad][VType2.t_bad] = VType2.t_bad;
412 // ConversionClassTable[VType2.t_bad][VType2.t_bool] = VType2.t_bad;
413 // ConversionClassTable[VType2.t_bad][VType2.t_ui1] = VType2.t_bad;
414 // ConversionClassTable[VType2.t_bad][VType2.t_char] = VType2.t_bad;
415 // ConversionClassTable[VType2.t_bad][VType2.t_i2] = VType2.t_bad;
416 // ConversionClassTable[VType2.t_bad][VType2.t_i4] = VType2.t_bad;
417 // ConversionClassTable[VType2.t_bad][VType2.t_i8] = VType2.t_bad;
418 // ConversionClassTable[VType2.t_bad][VType2.t_r4] = VType2.t_bad;
419 // ConversionClassTable[VType2.t_bad][VType2.t_r8] = VType2.t_bad;
420 // ConversionClassTable[VType2.t_bad][VType2.t_bad] = VType2.t_bool;
421 // ConversionClassTable[VType2.t_bad][VType2.t_dec] = VType2.t_bad;
422 // ConversionClassTable[VType2.t_bad][VType2.t_dec] = VType2.t_bad;
423 // ConversionClassTable[VType2.t_bad][VType2.t_str] = VType2.t_ui1;
424 //
425 // ConversionClassTable[VType2.t_dec][VType2.t_bad] = VType2.t_bad;
426 // ConversionClassTable[VType2.t_dec][VType2.t_bool] = VType2.t_ui1;
427 // ConversionClassTable[VType2.t_dec][VType2.t_ui1] = VType2.t_char;
428 // ConversionClassTable[VType2.t_dec][VType2.t_char] = VType2.t_bad;
429 // ConversionClassTable[VType2.t_dec][VType2.t_i2] = VType2.t_char;
430 // ConversionClassTable[VType2.t_dec][VType2.t_i4] = VType2.t_char;
431 // ConversionClassTable[VType2.t_dec][VType2.t_i8] = VType2.t_char;
432 // ConversionClassTable[VType2.t_dec][VType2.t_r4] = VType2.t_ui1;
433 // ConversionClassTable[VType2.t_dec][VType2.t_r8] = VType2.t_ui1;
434 // ConversionClassTable[VType2.t_dec][VType2.t_bad] = VType2.t_bad;
435 // ConversionClassTable[VType2.t_dec][VType2.t_dec] = VType2.t_bool;
436 // ConversionClassTable[VType2.t_dec][VType2.t_dec] = VType2.t_bad;
437 // ConversionClassTable[VType2.t_dec][VType2.t_str] = VType2.t_ui1;
438 //
439 // ConversionClassTable[VType2.t_dec][VType2.t_bad] = VType2.t_bad;
440 // ConversionClassTable[VType2.t_dec][VType2.t_bool] = VType2.t_bad;
441 // ConversionClassTable[VType2.t_dec][VType2.t_ui1] = VType2.t_bad;
442 // ConversionClassTable[VType2.t_dec][VType2.t_char] = VType2.t_bad;
443 // ConversionClassTable[VType2.t_dec][VType2.t_i2] = VType2.t_bad;
444 // ConversionClassTable[VType2.t_dec][VType2.t_i4] = VType2.t_bad;
445 // ConversionClassTable[VType2.t_dec][VType2.t_i8] = VType2.t_bad;
446 // ConversionClassTable[VType2.t_dec][VType2.t_r4] = VType2.t_bad;
447 // ConversionClassTable[VType2.t_dec][VType2.t_r8] = VType2.t_bad;
448 // ConversionClassTable[VType2.t_dec][VType2.t_bad] = VType2.t_bad;
449 // ConversionClassTable[VType2.t_dec][VType2.t_dec] = VType2.t_bad;
450 // ConversionClassTable[VType2.t_dec][VType2.t_dec] = VType2.t_bad;
451 // ConversionClassTable[VType2.t_dec][VType2.t_str] = VType2.t_bad;
452 //
453 // ConversionClassTable[VType2.t_str][VType2.t_bad] = VType2.t_bad;
454 // ConversionClassTable[VType2.t_str][VType2.t_bool] = VType2.t_ui1;
455 // ConversionClassTable[VType2.t_str][VType2.t_ui1] = VType2.t_ui1;
456 // ConversionClassTable[VType2.t_str][VType2.t_char] = VType2.t_char;
457 // ConversionClassTable[VType2.t_str][VType2.t_i2] = VType2.t_ui1;
458 // ConversionClassTable[VType2.t_str][VType2.t_i4] = VType2.t_ui1;
459 // ConversionClassTable[VType2.t_str][VType2.t_i8] = VType2.t_ui1;
460 // ConversionClassTable[VType2.t_str][VType2.t_r4] = VType2.t_ui1;
461 // ConversionClassTable[VType2.t_str][VType2.t_r8] = VType2.t_ui1;
462 // ConversionClassTable[VType2.t_str][VType2.t_bad] = VType2.t_ui1;
463 // ConversionClassTable[VType2.t_str][VType2.t_dec] = VType2.t_ui1;
464 // ConversionClassTable[VType2.t_str][VType2.t_dec] = VType2.t_bad;
465 // ConversionClassTable[VType2.t_str][VType2.t_str] = VType2.t_bool;
466 //
467 // VType2FromTypeCode[TypeCode.Boolean] = VType2.t_bool;
468 // VType2FromTypeCode[TypeCode.Byte] = VType2.t_ui1;
469 // VType2FromTypeCode[TypeCode.Int16] = VType2.t_i2;
470 // VType2FromTypeCode[TypeCode.Int32] = VType2.t_i4;
471 // VType2FromTypeCode[TypeCode.Int64] = VType2.t_i8;
472 // VType2FromTypeCode[TypeCode.Decimal] = VType2.t_dec;
473 // VType2FromTypeCode[TypeCode.Single] = VType2.t_r4;
474 // VType2FromTypeCode[TypeCode.Double] = VType2.t_r8;
475 // VType2FromTypeCode[TypeCode.Char] = VType2.t_char;
476 // VType2FromTypeCode[TypeCode.string] = VType2.t_str;
477 // VType2FromTypeCode[TypeCode.DateTime] = VType2.t_date;
478 //
479 // VTypeFromTypeCode[TypeCode.Boolean] = VType.t_bool;
480 // VTypeFromTypeCode[TypeCode.Byte] = VType.t_ui1;
481 // VTypeFromTypeCode[TypeCode.Int16] = VType.t_i2;
482 // VTypeFromTypeCode[TypeCode.Int32] = VType.t_i4;
483 // VTypeFromTypeCode[TypeCode.Int64] = VType.t_i8;
484 // VTypeFromTypeCode[TypeCode.Decimal] = VType.t_dec;
485 // VTypeFromTypeCode[TypeCode.Single] = VType.t_r4;
486 // VTypeFromTypeCode[TypeCode.Double] = VType.t_r8;
487 // VTypeFromTypeCode[TypeCode.Char] = VType.t_char;
488 // VTypeFromTypeCode[TypeCode.string] = VType.t_str;
489 // VTypeFromTypeCode[TypeCode.DateTime] = VType.t_date;
490 //
491 // TypeCodeFromVType[VType.t_bool] = TypeCode.Boolean;
492 // TypeCodeFromVType[VType.t_ui1] = TypeCode.Byte;
493 // TypeCodeFromVType[VType.t_i2] = TypeCode.Int16;
494 // TypeCodeFromVType[VType.t_i4] = TypeCode.Int32;
495 // TypeCodeFromVType[VType.t_i8] = TypeCode.Int64;
496 // TypeCodeFromVType[VType.t_dec] = TypeCode.Decimal;
497 // TypeCodeFromVType[VType.t_r4] = TypeCode.Single;
498 // TypeCodeFromVType[VType.t_r8] = TypeCode.Double;
499 // TypeCodeFromVType[VType.t_char] = TypeCode.Char;
500 // TypeCodeFromVType[VType.t_str] = TypeCode.string;
501 // TypeCodeFromVType[VType.t_date] = TypeCode.DateTime;
502 //
503 // TypeFromTypeCode[TypeCode.Boolean] = Type.BooleanType;
504 // TypeFromTypeCode[TypeCode.Byte] = Type.ByteType;
505 // TypeFromTypeCode[TypeCode.Int16] = Type.Int16Type;
506 // TypeFromTypeCode[TypeCode.Int32] = Type.Int32Type;
507 // TypeFromTypeCode[TypeCode.Int64] = Type.Int64Type;
508 // TypeFromTypeCode[TypeCode.Decimal] = Type.DecimalType;
509 // TypeFromTypeCode[TypeCode.Single] = Type.SingleType;
510 // TypeFromTypeCode[TypeCode.Double] = Type.DoubleType;
511 // TypeFromTypeCode[TypeCode.Char] = Type.CharType;
512 // TypeFromTypeCode[TypeCode.string] = Type.StringType;
513 // TypeFromTypeCode[TypeCode.DateTime] = Type.DateTimeType;
514 // TypeFromTypeCode[TypeCode.SByte] = Type.SByteType;
515 // TypeFromTypeCode[TypeCode.UInt16] = Type.UInt16Type;
516 // TypeFromTypeCode[TypeCode.UInt32] = Type.UInt32Type;
517 // TypeFromTypeCode[TypeCode.UInt64] = Type.UInt64Type;
518 // TypeFromTypeCode[TypeCode.object] = Type.ObjectType;
519 // TypeFromTypeCode[TypeCode.DBNull] = Type.DBNullType;
520 // }
521
522 private static void checkIfAddValidObjects(
523 object obj1,
524 object obj2,
525 TypeCode tc1,
526 TypeCode tc2) {
527 if (tc1 == TypeCode.Object || tc1 == TypeCode.SByte
528 || tc1 == TypeCode.UInt16 || tc1 == TypeCode.UInt32
529 || tc1 == TypeCode.UInt64)
530 throwNoValidOperator(obj1, obj2);
531 if (tc2 == TypeCode.Object || tc2 == TypeCode.SByte
532 || tc2 == TypeCode.UInt16 || tc2 == TypeCode.UInt32
533 || tc2 == TypeCode.UInt64)
534 throwNoValidOperator(obj1, obj2);
535 }
536
537 //checked
538 public static object AddObj(object obj1, object obj2) {
539 TypeCode tc1 = getTypeCode(obj1);
540 if (obj1 != null && (obj1 is char[]))
541 obj1 = new string((char[]) obj1);
542
543 TypeCode tc2 = getTypeCode(obj2);
544 if (obj2 != null && (obj2 is char[]))
545 obj2 = new string((char[]) obj2);
546
547 checkIfAddValidObjects(obj1,obj2,tc1,tc2);
548
549 if (tc1 == TypeCode.DBNull || tc2 == TypeCode.DBNull)
550 return getAddDBNull(obj1,obj2,tc1,tc2);
551 else if (tc1 == TypeCode.DateTime || tc2 == TypeCode.DateTime)
552 return getAddDateTime(obj1,obj2,tc1,tc2);
553 else if (tc1 == TypeCode.Char || tc2 == TypeCode.Char)
554 return getAddChar(obj1,obj2,tc1,tc2);
555
556 if (tc1 == TypeCode.Empty)
557 return obj2;
558 else if (tc2 == TypeCode.Empty)
559 return obj1;
560
561 if (tc1 == TypeCode.String && tc2 == TypeCode.String)
562 return StringType.FromObject(obj1) + StringType.FromObject(obj2);
563 else if (tc1 == TypeCode.String || tc2 == TypeCode.String )
564 return getAddStringObject(obj1,obj2,tc1,tc2);
565
566 if (tc1 == TypeCode.Double || tc2 == TypeCode.Double)
567 return getAddDouble(obj1,obj2,tc1,tc2);
568 else if (tc1 == TypeCode.Single || tc2 == TypeCode.Single)
569 return getAddSingle(obj1,obj2,tc1,tc2);
570 else if(tc1 == TypeCode.Decimal || tc2 == TypeCode.Decimal)
571 return getAddDecimal(obj1,obj2,tc1,tc2);
572 else if (tc1 == TypeCode.Int64 || tc2 == TypeCode.Int64)
573 return getAddInt64(obj1,obj2,tc1,tc2);
574 else if (tc1 == TypeCode.Int32 || tc2 == TypeCode.Int32)
575 return getAddInt32(obj1,obj2,tc1,tc2);
576 else if (tc1 == TypeCode.Int16 || tc2 == TypeCode.Int16)
577 return getAddInt16(obj1,obj2,tc1,tc2);
578 else if (tc1 == TypeCode.Boolean || tc2 == TypeCode.Boolean)
579 return getAddInt16(obj1,obj2,tc1,tc2);
580 else if (tc1 == TypeCode.Byte || tc2 == TypeCode.Byte)
581 return getAddByte(obj1,obj2,tc1,tc2);
582
583 throwNoValidOperator(obj1, obj2);
584 return null;
585 }
586
587 private static object getAddDBNull(object obj1,object obj2,TypeCode tc1,TypeCode tc2) {
588 if (tc1 == TypeCode.DBNull) {
589 if (tc2 == TypeCode.String)
590 return obj2;
591 else
592 throwNoValidOperator(obj1, obj2);
593 }
594 else if (tc1 == TypeCode.String)
595 return obj1;
596 else
597 throwNoValidOperator(obj1, obj2);
598 return null;
599 }
600
601 private static object getAddChar(object obj1,object obj2,TypeCode tc1,TypeCode tc2) {
602 if (tc1 == TypeCode.Char) {
603 if (tc2 == TypeCode.Char || tc2 == TypeCode.String)
604 return StringType.FromObject(obj1) + StringType.FromObject(obj2);
605 else
606 throwNoValidOperator(obj1, obj2);
607 }
608 else if (tc2 == TypeCode.Char) {
609 if (tc1 == TypeCode.Char || tc1 == TypeCode.String)
610 return StringType.FromObject(obj1) + StringType.FromObject(obj2);
611 else
612 throwNoValidOperator(obj1, obj2);
613 }
614 return null;
615 }
616
617 private static object getAddDateTime(object obj1,object obj2,TypeCode tc1,TypeCode tc2) {
618 if (tc1 == TypeCode.DateTime) {
619 if (tc2 == TypeCode.DateTime || tc2 == TypeCode.String)
620 return obj1.ToString() + obj2.ToString();
621 else
622 throwNoValidOperator(obj1, obj2);
623 }
624 else if (tc2 == TypeCode.DateTime) {
625 if (tc1 == TypeCode.DateTime || tc1 == TypeCode.String)
626 return obj1.ToString() + obj2.ToString();
627 else
628 throwNoValidOperator(obj1, obj2);
629 }
630 return null;
631 }
632
633 private static object getAddByte(object obj1,object obj2,TypeCode tc1,TypeCode tc2) {
634 byte d1 = convertObjectToByte(obj1,tc1);
635 byte d2 = convertObjectToByte(obj2,tc2);
636 short s = (short) (d1 + d2);
637 if (s >= 0 && s <= 255)
638 return (byte) s;
639 return s;
640 }
641
642 private static object getAddDouble(object obj1,object obj2,TypeCode tc1,TypeCode tc2) {
643 double d1 = convertObjectToDouble(obj1,tc1);
644 double d2 = convertObjectToDouble(obj2,tc2);
645 return d1+d2;
646 }
647
648 private static object getAddDecimal(object obj1,object obj2,TypeCode tc1,TypeCode tc2) {
649 Decimal d1 = convertObjectToDecimal(obj1,tc1);
650 Decimal d2 = convertObjectToDecimal(obj2,tc2);
651 return Decimal.Add(d1,d2);
652 }
653
654 private static object getAddInt64(object obj1,object obj2,TypeCode tc1,TypeCode tc2) {
655 Decimal d1 = convertObjectToDecimal(obj1,tc1);
656 Decimal d2 = convertObjectToDecimal(obj2,tc2);
657 Decimal sum = Decimal.Add(d1,d2);
658 if (
659 Decimal.Compare(sum, new Decimal(long.MaxValue)) <= 0
660 && Decimal.Compare(sum, new Decimal(long.MinValue))
661 >= 0)
662 return Decimal.ToInt64(sum);
663
664 return sum;
665 }
666
667 private static object getAddInt32(object obj1,object obj2,TypeCode tc1,TypeCode tc2) {
668 long d1 = convertObjectToLong(obj1,tc1);
669 long d2 = convertObjectToLong(obj2,tc2);
670 long sum = d1+ d2;
671 if (sum >= Int32.MinValue && sum <= Int32.MaxValue)
672 return (Int32)sum;
673 return sum;
674 }
675
676 private static object getAddInt16(object obj1,object obj2,TypeCode tc1,TypeCode tc2) {
677 int d1 = convertObjectToInt(obj1,tc1);
678 int d2 = convertObjectToInt(obj2,tc2);
679 int sum = d1+ d2;
680 if (sum >= short.MinValue && sum <= short.MaxValue)
681 return (short)sum;
682 return sum;
683 }
684
685
686 private static object getAddSingle(object obj1,object obj2,TypeCode tc1,TypeCode tc2) {
687 float d1 = convertObjectToFloat(obj1,tc1);
688 float d2 = convertObjectToFloat(obj2,tc2);
689
690 double sum = (double) d1 + (double) d2;
691 if (sum <= 3.40282e+038 && sum>= -3.40282e+038)
692 return (Single)sum;
693 if (Double.IsInfinity(sum) &&
694 (Single.IsInfinity(d1) || Single.IsInfinity(d2)))
695 return (Single)sum;
696 return (Double)sum;
697 }
698
699 //checked
700 private static int toVBBool(IConvertible conv) {
701 if (conv.ToBoolean(null))
702 return -1;
703 return 0;
704 }
705
706
707 // checked
708 private static object getAddStringObject(object s1, object s2,TypeCode tc1,TypeCode tc2) {
709 double d1 = convertObjectToDouble(s1,tc1);
710 double d2 = convertObjectToDouble(s1,tc2);
711 return d1 + d2;
712 }
713
714 //checked !!
715 public static object BitAndObj(object obj1, object obj2) {
716 Type type1 = obj1.GetType();
717 Type type2 = obj2.GetType();
718 TypeCode typeCode = GetWidestType(obj1, obj2, false);
719
720 if (obj1 == null && obj2 == null)
721 return (int)0;
722 else if (typeCode == TypeCode.Boolean) {
723 if (type1 == type2)
724 return ((bool)obj1) & ((bool)obj2);
725 return ((short)obj1) & ((short)obj2);
726 }
727 else if (typeCode == TypeCode.Byte) {
728 byte val = (byte)(ByteType.FromObject(obj1)
729 & ByteType.FromObject(obj2));
730 return createByteAccordingToEnumCond(val,type1,type2,obj1,obj2);
731 }
732 else if (typeCode == TypeCode.Int16) {
733 short val =
734 (short)(ShortType.FromObject(obj1)
735 & ShortType.FromObject(obj2));
736 return createShortAccordingToEnumCond(val,type1,type2,obj1,obj2);
737 }
738 else if (typeCode == TypeCode.Int32) {
739 Int32 val = IntegerType.FromObject(obj1) & IntegerType.FromObject(obj2);
740 return createIntAccordingToEnumCond(val,type1,type2,obj1,obj2);
741 }
742 else if (typeCode == TypeCode.Int64) {
743 long val = LongType.FromObject(obj1) & LongType.FromObject(obj2);
744 return createLongAccordingToEnumCond(val, type1, type2, obj1, obj2);
745 }
746 else if (typeCode == TypeCode.Single || typeCode == TypeCode.Double
747 || typeCode == TypeCode.Decimal || typeCode == TypeCode.String) {
748 long val = LongType.FromObject(obj1) & LongType.FromObject(obj2);
749 return val;
750 }
751 else
752 throw new InvalidCastException(
753 Utils.GetResourceString(
754 "NoValidOperator_TwoOperands",
755 Utils.VBFriendlyName(obj1),
756 Utils.VBFriendlyName(obj2)));
757 }
758
759 private static object createByteAccordingToEnumCond(
760 byte val,
761 Type type1,
762 Type type2,
763 object obj1,
764 object obj2) {
765 bool isEnum1 = type1.IsEnum;
766 bool isEmum2 = type2.IsEnum;
767 if (isEnum1 && isEmum2 && type1 != type2)
768 return (byte)val;
769 if (isEnum1)
770 return Enum.ToObject(type1, val);
771 if (!(isEmum2))
772 throw new InvalidCastException(
773 Utils.GetResourceString(
774 "NoValidOperator_TwoOperands",
775 Utils.VBFriendlyName(obj1),
776 Utils.VBFriendlyName(obj2)));
777 return Enum.ToObject(type2, val);
778 }
779
780 private static object createShortAccordingToEnumCond(
781 short val,
782 Type type1,
783 Type type2,
784 object obj1,
785 object obj2) {
786 bool isEnum1 = type1.IsEnum;
787 bool isEmum2 = type2.IsEnum;
788 if (isEnum1 && isEmum2 && type1 != type2)
789 return val;
790 if (isEnum1)
791 return Enum.ToObject(type1, val);
792 if (!(isEmum2))
793 throw new InvalidCastException(
794 Utils.GetResourceString(
795 "NoValidOperator_TwoOperands",
796 Utils.VBFriendlyName(obj1),
797 Utils.VBFriendlyName(obj2)));
798 return Enum.ToObject(type2, val);
799 }
800
801 private static object createIntAccordingToEnumCond(
802 int val,
803 Type type1,
804 Type type2,
805 object obj1,
806 object obj2) {
807 bool isEnum1 = type1.IsEnum;
808 bool isEmum2 = type2.IsEnum;
809 if (isEnum1 && isEmum2 && type1 != type2)
810 return val;
811 if (isEnum1)
812 return Enum.ToObject(type1, val);
813 if (!(isEmum2))
814 throw new InvalidCastException(
815 Utils.GetResourceString(
816 "NoValidOperator_TwoOperands",
817 Utils.VBFriendlyName(obj1),
818 Utils.VBFriendlyName(obj2)));
819 return Enum.ToObject(type2, val);
820 }
821
822 private static object createLongAccordingToEnumCond(
823 long val,
824 Type type1,
825 Type type2,
826 object obj1,
827 object obj2) {
828 bool isEnum1 = type1.IsEnum;
829 bool isEmum2 = type2.IsEnum;
830 if (isEnum1 && isEmum2 && type1 != type2)
831 return val;
832 if (isEnum1)
833 return Enum.ToObject(type1, val);
834 if (!(isEmum2))
835 throw new InvalidCastException(
836 Utils.GetResourceString(
837 "NoValidOperator_TwoOperands",
838 Utils.VBFriendlyName(obj1),
839 Utils.VBFriendlyName(obj2)));
840 return Enum.ToObject(type2, val);
841 }
842
843 //checked !!
844 public static object BitOrObj(object obj1, object obj2) {
845 Type type1 = obj1.GetType();
846 Type type2 = obj2.GetType();
847 TypeCode typeCode = GetWidestType(obj1, obj2, false);
848
849 if (obj1 == null && obj2 == null)
850 return (int)0;
851 else if (typeCode == TypeCode.Boolean) {
852 if (type1 == type2)
853 return BooleanType.FromObject(obj1)| BooleanType.FromObject(obj2);
854 return (short)( (ushort)ShortType.FromObject(obj1) | (ushort)ShortType.FromObject(obj2));
855 }
856 else if (typeCode == TypeCode.Byte) {
857 byte val = (byte)(ByteType.FromObject(obj1)
858 | ByteType.FromObject(obj2));
859 return createByteAccordingToEnumCond(val,type1,type2,obj1,obj2);
860 }
861 else if (typeCode == TypeCode.Int16) {
862 short val = (short) ((ushort) ShortType.FromObject(obj1)
863 | (ushort)ShortType.FromObject(obj2));
864 return createShortAccordingToEnumCond(val,type1,type2,obj1,obj2);
865 }
866 else if (typeCode == TypeCode.Int32) {
867 Int32 val = IntegerType.FromObject(obj1) | IntegerType.FromObject(obj2);
868 return createIntAccordingToEnumCond(val,type1,type2,obj1,obj2);
869 }
870 else if (typeCode == TypeCode.Int64) {
871 long val = LongType.FromObject(obj1) | LongType.FromObject(obj2);
872 return createLongAccordingToEnumCond(val, type1, type2, obj1, obj2);
873 }
874 else if (typeCode == TypeCode.Single || typeCode == TypeCode.Double
875 || typeCode == TypeCode.Decimal || typeCode == TypeCode.String) {
876 long val = LongType.FromObject(obj1) | LongType.FromObject(obj2);
877 return val;
878 }
879 else
880 throw new InvalidCastException(
881 Utils.GetResourceString(
882 "NoValidOperator_TwoOperands",
883 Utils.VBFriendlyName(obj1),
884 Utils.VBFriendlyName(obj2)));
885 }
886
887 //checked !!
888 public static object BitXorObj(object obj1, object obj2) {
889 Type type1 = obj1.GetType();
890 Type type2 = obj2.GetType();
891 TypeCode typeCode = GetWidestType(obj1, obj2, false);
892
893 if (obj1 == null && obj2 == null)
894 return (int)0;
895 else if (typeCode == TypeCode.Boolean) {
896 if (type1 == type2)
897 return BooleanType.FromObject(obj1)^ BooleanType.FromObject(obj2);
898 return (short) (ShortType.FromObject(obj1) ^ ShortType.FromObject(obj2));
899 }
900 else if (typeCode == TypeCode.Byte) {
901 byte val = (Byte) (ByteType.FromObject(obj1)
902 ^ ByteType.FromObject(obj2));
903 return createByteAccordingToEnumCond(val,type1,type2,obj1,obj2);
904 }
905 else if (typeCode == TypeCode.Int16) {
906 short val =
907 (short) (ShortType.FromObject(obj1)
908 ^ ShortType.FromObject(obj2));
909 return createShortAccordingToEnumCond(val,type1,type2,obj1,obj2);
910 }
911 else if (typeCode == TypeCode.Int32) {
912 Int32 val = IntegerType.FromObject(obj1) ^ IntegerType.FromObject(obj2);
913 return createIntAccordingToEnumCond(val,type1,type2,obj1,obj2);
914 }
915 else if (typeCode == TypeCode.Int64) {
916 long val = LongType.FromObject(obj1) ^ LongType.FromObject(obj2);
917 return createLongAccordingToEnumCond(val, type1, type2, obj1, obj2);
918 }
919 else if (typeCode == TypeCode.Single || typeCode == TypeCode.Double
920 || typeCode == TypeCode.Decimal || typeCode == TypeCode.String) {
921 long val = LongType.FromObject(obj1) ^ LongType.FromObject(obj2);
922 return (Int64)val;
923 }
924 else
925 throw new InvalidCastException(
926 Utils.GetResourceString(
927 "NoValidOperator_TwoOperands",
928 Utils.VBFriendlyName(obj1),
929 Utils.VBFriendlyName(obj2)));
930 }
931
932 internal static object CTypeHelper(object obj, TypeCode toType) {
933 return CTypeHelper(obj, toType.GetType());//toType.getValue));
934 }
935
936 internal static object CTypeHelper(object obj, int toType) {
937 if (obj == null)
938 return null;
939 switch (toType) {
940 case (int)TypeCode.Boolean :
941 return BooleanType.FromObject(obj);
942 case (int)TypeCode.Byte :
943 return ByteType.FromObject(obj);
944 case (int)TypeCode.Int16 :
945 return ShortType.FromObject(obj);
946 case (int)TypeCode.Int32 :
947 return IntegerType.FromObject(obj);
948 case (int)TypeCode.Int64 :
949 return LongType.FromObject(obj);
950 case (int)TypeCode.Decimal :
951 return DecimalType.FromObject(obj);
952 case (int)TypeCode.Single :
953 return SingleType.FromObject(obj);
954 case (int)TypeCode.Double :
955 return DoubleType.FromObject(obj);
956 case (int)TypeCode.String :
957 return StringType.FromObject(obj);
958 case (int)TypeCode.Char :
959 return CharType.FromObject(obj);
960 case (int)TypeCode.DateTime :
961 return DateType.FromObject(obj);
962
963 }
964
965 throw new InvalidCastException(// ClassCastException(
966 Utils.GetResourceString(
967 "InvalidCast_FromTo",
968 Utils.VBFriendlyName(obj),
969 Utils.VBFriendlyName(ObjectType.TypeFromTypeCode(toType))));
970
971 }
972
973 //checked + string
974 public static object CTypeHelper(object obj, Type toType) {
975 if (obj == null)
976 return null;
977
978 //TODO: how to tell if is truly type of object
979 //if (toType == Type.ObjectType)
980 // return obj;
981
982 Type type = obj.GetType();
983 // if (toType.IsByRef) {
984 // toType = toType.GetElementType();
985 // local2 = true;
986 // }
987 // if (type.IsByRef)
988 // local1 = local1.GetElementType();
989 if (type == toType)
990 return obj;
991
992 TypeCode tc = Type.GetTypeCode(toType);
993 if (tc == TypeCode.Object) {
994 if (toType.IsAssignableFrom(type))
995 return obj;
996 //TODO:
997 // if (obj is string
998 // && toType == char[].class).GetType()
999 // return CharArrayType.FromString((string) obj);
1000
1001 throw new InvalidCastException(
1002 Utils.GetResourceString(
1003 "InvalidCast_FromTo",
1004 Utils.VBFriendlyName(type),
1005 Utils.VBFriendlyName(toType)));
1006 }
1007
1008 object retVal = CTypeHelper(obj, tc);
1009 if (toType.IsEnum)
1010 return Enum.ToObject(toType,retVal);
1011 return retVal;
1012 }
1013
1014 //checked + string//make typecode
1015 [MonoTODO]
1016 internal static TypeCode GetWidestType(TypeCode type1, TypeCode type2) {
1017 int index1 = getVTypeFromTypeCode(type1);
1018 int index2 = getVTypeFromTypeCode(type2);
1019 //return getTypeCodeFromVType(WiderType(index1,index2));
1020 //TODO:
1021 throw new NotImplementedException("GetWidest type nneds repair");
1022 //return (TypeCode)getTypeCodeFromVType((int)WiderType[(int)type1,(int)type2]);
1023 }
1024
1025 internal static TypeCode GetWidestType(object obj1, TypeCode typeCode2) {
1026 if (obj1 == null)
1027 return typeCode2;
1028 TypeCode tc1 = getTypeCode(obj1);
1029 return GetWidestType(tc1,typeCode2);
1030 }
1031
1032 private static TypeCode getTypeCode(object obj) {
1033 IConvertible iConvertible = null;
1034 TypeCode typeCode;
1035 if (obj is IConvertible) {
1036 iConvertible = (IConvertible)obj;
1037 }
1038 if (iConvertible != null) {
1039 typeCode = iConvertible.GetTypeCode();
1040 }
1041 else if (obj == null) {
1042 typeCode = TypeCode.Empty;
1043 }
1044 else if (obj is string) {
1045 typeCode = TypeCode.String;
1046 }
1047 else if (obj is char[]) {
1048 typeCode = TypeCode.String;
1049 }
1050 else {
1051 typeCode = TypeCode.Object;
1052 }
1053 return typeCode;
1054 }
1055
1056 internal static TypeCode GetWidestType(object obj1, object obj2, bool IsAdd) {
1057 TypeCode typeCode1 = getTypeCode(obj1);
1058 TypeCode typeCode2 = getTypeCode(obj1);
1059
1060 if (obj1 == null)
1061 return typeCode2;
1062 if (obj2 == null)
1063 return typeCode1;
1064 if ( IsAdd &&
1065 ((typeCode1 == TypeCode.DBNull && typeCode2 == TypeCode.String) ||
1066 (typeCode1 == TypeCode.String && typeCode2 == TypeCode.DBNull)))
1067 return TypeCode.DBNull;
1068 else
1069 return GetWidestType(typeCode1,typeCode2);
1070 }
1071
1072 //checked !!
1073 [MonoTODO]
1074 private static TypeCode getTypeCodeFromVType(int vartype) {
1075 throw new NotImplementedException("get typecode from vtype needs help");
1076 //TODO:
1077 //return TypeCodeFromVType[vartype];
1078 }
1079
1080 //checked !!
1081 private static int getVTypeFromTypeCode(TypeCode type) {
1082 throw new NotImplementedException("get typecode from vtype needs help");
1083 //TODO:
1084 //return VTypeFromTypeCode[type];
1085 }
1086
1087 //checked !!
1088 public static object GetObjectValuePrimitive(object o) {
1089 if (o == null || !(o is IConvertible))
1090 return o;
1091 IConvertible iConv = (IConvertible)o;
1092 TypeCode tc = getTypeCode(o);
1093 switch (tc) {
1094 //this four type code are converted in this way since they can also
1095 //be enum.
1096 case TypeCode.Byte :
1097 return iConv.ToByte(null);
1098 case TypeCode.Int16 :
1099 return iConv.ToInt16(null);
1100 case TypeCode.Int32 :
1101 return iConv.ToInt32(null);
1102 case TypeCode.Int64 :
1103 return iConv.ToInt64(null);
1104 default :
1105 return o;
1106 }
1107 }
1108
1109 //checked !!
1110 private static object getDivDecimal(object obj1, object obj2,TypeCode tc1,TypeCode tc2) {
1111 Decimal dec1 = convertObjectToDecimal(obj1,tc1);
1112 Decimal dec2 = convertObjectToDecimal(obj2,tc2);
1113 try {
1114 return Decimal.Divide(dec1, dec2);
1115 }
1116 catch(OverflowException e) {
1117 e.ToString();//TODO: Dumb way to fix compiler warning about unused e
1118 float val1 = Convert.ToSingle(dec1);
1119 float val2 = Convert.ToSingle(dec2);
1120 float val3 = val1/val2;
1121 return val3;
1122 }
1123
1124 }
1125
1126 //checked !!
1127 private static object getDivDouble(object s1, object s2, TypeCode tc1 ,TypeCode tc2) {
1128 double d1 = convertObjectToDouble(s1,tc1);
1129 double d2 = convertObjectToDouble(s2,tc2);
1130 return d1 / d2;
1131 }
1132
1133 //checked !!
1134 private static object getDivSingle(object obj1, object obj2,TypeCode tc1 , TypeCode tc2) {
1135 float d1 = convertObjectToFloat(obj1,tc1);
1136 float d2 = convertObjectToFloat(obj2,tc2);
1137
1138 float sum = d1 / d2;
1139 if (float.IsInfinity(d1)) {
1140 if (float.IsInfinity(d1) || float.IsInfinity(d2))
1141 return sum;
1142 return (double) d1 / (double) d2;
1143 }
1144 return sum;
1145 }
1146
1147 private static void checkIfValidObjects(
1148 object obj1,
1149 object obj2,
1150 TypeCode tc1,
1151 TypeCode tc2) {
1152 if (tc1 == TypeCode.Object || tc1 == TypeCode.DBNull
1153 || tc1 == TypeCode.Char || tc1 == TypeCode.SByte
1154 || tc1 == TypeCode.UInt16 || tc1 == TypeCode.UInt32
1155 || tc1 == TypeCode.UInt64 || tc1 == TypeCode.DateTime)
1156 throwNoValidOperator(obj1, obj2);
1157 if (tc2 == TypeCode.Object || tc2 == TypeCode.DBNull
1158 || tc2 == TypeCode.Char || tc2 == TypeCode.SByte
1159 || tc2 == TypeCode.UInt16 || tc2 == TypeCode.UInt32
1160 || tc2 == TypeCode.UInt64 || tc2 == TypeCode.DateTime)
1161 throwNoValidOperator(obj1, obj2);
1162 }
1163
1164 //checked !!
1165 public static object DivObj(object o1, object o2) {
1166 TypeCode tc1 = getTypeCode(o1);
1167 TypeCode tc2 = getTypeCode(o2);
1168
1169 checkIfValidObjects(o1,o2,tc1,tc2);
1170
1171 if (tc2 == TypeCode.Empty)
1172 throw new DivideByZeroException(
1173 /*Environment.GetResourceString(*/"Arg_DivideByZero")/*)*/;
1174
1175 if (tc1 == TypeCode.String || tc2 == TypeCode.String)
1176 return getDivDouble(o1,o2,tc1,tc2);
1177 else if (tc1 == TypeCode.Empty)
1178 return getDivDouble((double)0, o2,TypeCode.Double,tc2);
1179 else if (tc1 == TypeCode.Double || tc2 == TypeCode.Double)
1180 return getDivDouble(o1,o2,tc1,tc2);
1181 else if (tc1 == TypeCode.Single || tc2 == TypeCode.Single)
1182 return getDivSingle(o1, o2,tc1,tc2);
1183 else if (tc1 == TypeCode.Decimal || tc2 == TypeCode.Decimal)
1184 return getDivDecimal(o1, o2,tc1,tc2);
1185 else
1186 return getDivDouble(o1, o2,tc1,tc2);
1187 }
1188
1189 //checked
1190 private static IConvertible toVBBoolConv(IConvertible conv) {
1191 if (conv.ToBoolean(null))
1192 return (int)-1;
1193 return (int)0;
1194 }
1195
1196 private static object getIDivideByte(object o1, object o2,TypeCode tc1,TypeCode tc2) {
1197 byte d1 = convertObjectToByte(o1,tc1);
1198 byte d2 = convertObjectToByte(o2,tc2);
1199 return d1 / d2;
1200 }
1201
1202 private static object getIDivideInt16(object o1, object o2,TypeCode tc1,TypeCode tc2) {
1203 short d1 = convertObjectToShort(o1,tc1);
1204 short d2 = convertObjectToShort(o2,tc2);
1205 return (int)((short) (d1 / d2));
1206 }
1207
1208 private static object getIDivideInt32(object o1, object o2,TypeCode tc1,TypeCode tc2) {
1209 int d1 = convertObjectToInt(o1,tc1);
1210 int d2 = convertObjectToInt(o2,tc2);
1211 return d1 / d2;
1212 }
1213
1214 private static object getIDivideInt64(object o1, object o2,TypeCode tc1,TypeCode tc2) {
1215 long d1 = convertObjectToLong(o1,tc1);
1216 long d2 = convertObjectToLong(o2,tc2);
1217 return d1 / d2;
1218 }
1219
1220
1221 public static object IDivObj(object o1, object o2) {
1222 TypeCode tc1 = getTypeCode(o1);
1223 TypeCode tc2 = getTypeCode(o2);
1224 checkIfValidObjects(o1,o2,tc1,tc2);
1225
1226 if (tc2 == TypeCode.Empty)
1227 throw new DivideByZeroException(
1228 /*Environment.GetResourceString(*/"Arg_DivideByZero")/*)*/;
1229 else if (tc1 == TypeCode.Empty) {
1230 if (tc2 == TypeCode.Byte)
1231 return (byte)0;
1232 else if (tc2 == TypeCode.Int16)
1233 return (short)0;
1234 else if (tc2 == TypeCode.Int32)
1235 return (Int32)0;
1236 else
1237 return (long)0;
1238 }
1239 else if (tc1 == TypeCode.String || tc2 == TypeCode.String ||
1240 tc1 == TypeCode.Decimal || tc2 == TypeCode.Decimal ||
1241 tc1 == TypeCode.Double || tc2 == TypeCode.Double ||
1242 tc1 == TypeCode.Single || tc2 == TypeCode.Single ||
1243 tc1 == TypeCode.Int64 || tc2 == TypeCode.Int64)
1244 return getIDivideInt64(o1,o2,tc1,tc2);
1245 else if (tc1 == TypeCode.Int32 || tc2 == TypeCode.Int32)
1246 return getIDivideInt32(o1,o2,tc1,tc2);
1247 else if (tc1 == TypeCode.Int16 || tc2 == TypeCode.Int16)
1248 return getIDivideInt16(o1,o2,tc1,tc2);
1249 else if (tc1 == TypeCode.Byte || tc2 == TypeCode.Byte)
1250 return getIDivideByte(o1,o2,tc1,tc2);
1251 else
1252 return getIDivideInt16(o1,o2,tc1,tc2);
1253 }
1254
1255 private static object negObj(
1256 object obj,
1257 TypeCode tc) {
1258 IConvertible conv;
1259
1260 switch (tc) {
1261 case TypeCode.Empty :
1262 return (Int32)0;
1263 case TypeCode.Boolean :
1264 if(((bool)obj) == true)return (short)1;
1265 //else
1266 //int boolValue = (((ClrBoolean)obj).ToBoolean(null) == true)? 1 :0;
1267 //return (short)boolValue;
1268 return (short)0;
1269 case TypeCode.Byte :
1270 conv = (IConvertible)obj;
1271 short byteValue = (short) (0 - conv.ToByte(null));
1272 return (short)byteValue;
1273 case TypeCode.Int16 :
1274 conv = (IConvertible)obj;
1275 int shortValue = (0 - conv.ToInt16(null));
1276 return (int)shortValue;
1277 case TypeCode.Int32 :
1278 conv = (IConvertible)obj;
1279 long intValue = (0 - conv.ToInt32(null));
1280 return intValue;
1281 case TypeCode.Int64 :
1282 conv = (IConvertible)obj;
1283 Int64 longValue = conv.ToInt64(null);
1284 if (longValue == Int64.MinValue)return Decimal.Negate(conv.ToDecimal(null));
1285 return -longValue;
1286 case TypeCode.Decimal :
1287 return Decimal.Negate((Decimal) obj);
1288 case TypeCode.Single :
1289 return -(float)obj;
1290 case TypeCode.Double :
1291 return (double)(0 - (double) obj);
1292 case TypeCode.String :
1293 return (double)(0 - DoubleType.FromString((string) obj));
1294 }
1295
1296 throw new InvalidCastException(
1297 Utils.GetResourceString(
1298 "NoValidOperator_OneOperand",
1299 Utils.VBFriendlyName(obj)));
1300
1301 }
1302
1303
1304 internal static bool IsTypeOf(Type typSrc, Type typParent) {
1305 if (typSrc == typParent)
1306 return true;
1307 return typSrc.IsSubclassOf(typParent);
1308 }
1309
1310 internal static bool IsWideningConversion(Type FromType, Type ToType) {
1311 TypeCode typeCode1 = Type.GetTypeCode(FromType);
1312 TypeCode typeCode2 = Type.GetTypeCode(ToType);
1313 if (typeCode1 == TypeCode.Object) {
1314 //TODO:
1315 // if ((FromType == char[].class.GetType()) &&
1316 // (typeCode2 == TypeCode.String || ToType == char[].class).GetType())
1317 // {
1318 // return true;
1319 // }
1320 // if (typeCode2 != TypeCode.Object)
1321 // {
1322 // return false;
1323 // }
1324 // if (!FromType.IsArray() || !ToType.IsArray())
1325 // {
1326 // return ToType.IsAssignableFrom(FromType);
1327 // }
1328 // //if (FromType.GetArrayRank() == ToType.GetArrayRank())
1329 // //{
1330 // // return ToType.GetElementType().IsAssignableFrom(FromType.GetElementType());
1331 // //}
1332 // //else
1333 // //{
1334 // return false;
1335 // //}
1336 }
1337 if (typeCode2 == TypeCode.Object) {
1338 //TODO:
1339 // if (ToType == char[].class.GetType() && typeCode1 == TypeCode.string)
1340 // {
1341 // return false;
1342 // }
1343 return ToType.IsAssignableFrom(FromType);
1344 }
1345 if (ToType.IsEnum) {
1346 return false;
1347 }
1348 int index1 = getVType2FromTypeCode(typeCode2);
1349 int index2 = getVType2FromTypeCode(typeCode1);
1350 int cC = ConversionClassTable[index1,index2];
1351 if (cC != 3 /*CC.Wide*/ && cC != 1 /*CC.Same*/) {//TODO replace hard coded values with enum, after enum is converted
1352 return false;
1353 }
1354 else {
1355 return true;
1356 }
1357 }
1358
1359 //checked
1360 [MonoTODO]
1361 internal static bool IsWiderNumeric(Type Type1, Type Type2) {
1362 TypeCode typeCode1 = Type.GetTypeCode(Type1);
1363 TypeCode typeCode2 = Type.GetTypeCode(Type2);
1364 if (!Utils.IsNumericType(Type1) || !Utils.IsNumericType(Type2)) {
1365 return false;
1366 }
1367 if (typeCode1 == TypeCode.Boolean || typeCode2 == TypeCode.Boolean) {
1368 return false;
1369 }
1370 if (Type1.IsEnum) {
1371 return false;
1372 }
1373
1374 int index1 = getVTypeFromTypeCode(typeCode1);
1375 int index2 = getVTypeFromTypeCode(typeCode2);
1376 throw new NotImplementedException("MSVB.CS.IsWiderNumeric needs help");
1377 //TODO:
1378 //return )WiderType[index1,index2] == getVTypeFromTypeCode(typeCode1);
1379 }
1380
1381 //checked
1382 public static bool LikeObj(
1383 object vLeft,
1384 object vRight,
1385 CompareMethod compareOption) {
1386 return StringType.StrLike(
1387 StringType.FromObject(vLeft),
1388 StringType.FromObject(vRight),
1389 compareOption);
1390 }
1391
1392 private static object getModByte(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1393 byte i1 = convertObjectToByte(o1,tc1);
1394 byte i2 = convertObjectToByte(o2,tc2);
1395 return (byte) (i1 % i2);
1396 }
1397
1398 private static object getModDecimal(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1399 Decimal dec1 = convertObjectToDecimal(o1,tc1);
1400 Decimal dec2 = convertObjectToDecimal(o2,tc2);
1401 return Decimal.Remainder(dec1, dec2);
1402 }
1403
1404 private static object getModDouble(object o1, object o2 , TypeCode tc1,TypeCode tc2) {
1405 double d1 = convertObjectToDouble(o1,tc1);
1406 double d2 = convertObjectToDouble(o1,tc1);
1407 return d1 % d2;
1408 }
1409
1410 private static object getModInt16(object o1, object o2 , TypeCode tc1,TypeCode tc2) {
1411 short i1 = convertObjectToShort(o1,tc1);
1412 short i2 = convertObjectToShort(o2,tc2);
1413 Int32 mod = i1 % i2;
1414 if (mod < -32768 || mod > 32767)
1415 return mod;
1416 return (short) mod;
1417 }
1418
1419 private static object getModInt32(object o1, object o2 , TypeCode tc1,TypeCode tc2) {
1420 int i1 = convertObjectToInt(o1,tc1);
1421 int i2 = convertObjectToInt(o1,tc1);
1422 long mod = (long) i1 % (long) i2;
1423 if (mod < 2147483648L || mod > 2147483647L)
1424 return (Int64)mod;
1425 return (Int32)mod;
1426 }
1427
1428 private static object getModInt64(object o1, object o2 , TypeCode tc1,TypeCode tc2) {
1429 long l1 = convertObjectToLong(o1,tc1);
1430 long l2 = convertObjectToLong(o2,tc2);
1431 long mod = l1 % l2;
1432 return mod;
1433 }
1434
1435 public static object ModObj(object o1, object o2) {
1436 TypeCode tc1 = getTypeCode(o1);
1437 TypeCode tc2 = getTypeCode(o2);
1438
1439 checkIfValidObjects(o1,o2,tc1,tc2);
1440
1441 if (tc2 == TypeCode.Empty)
1442 throw new DivideByZeroException(
1443 /*Environment.GetResourceString(*/"Arg_DivideByZero"/*)*/);
1444 else if (tc1 == TypeCode.Empty)
1445 return createZero(tc2);
1446 else if (tc1 == TypeCode.String || tc2 == TypeCode.String)
1447 return getModDouble(o1,o2,tc1,tc2);
1448 else if (tc1 == TypeCode.Double || tc2 == TypeCode.Double)
1449 return getModDouble(o1,o2,tc1,tc2);
1450 else if (tc1 == TypeCode.Single || tc2 == TypeCode.Single)
1451 return getModSingle(o1,o2,tc1,tc2);
1452 else if (tc1 == TypeCode.Decimal || tc2 == TypeCode.Decimal)
1453 return getModDecimal(o1,o2,tc1,tc2);
1454 else if (tc1 == TypeCode.Int64 || tc2 == TypeCode.Int64)
1455 return getModInt64(o1,o2,tc1,tc2);
1456 else if (tc1 == TypeCode.Int32 || tc2 == TypeCode.Int32)
1457 return getModInt32(o1,o2,tc1,tc2);
1458 else if (tc1 == TypeCode.Int16 || tc2 == TypeCode.Int16)
1459 return getModInt16(o1,o2,tc1,tc2);
1460 else if (tc1 == TypeCode.Byte && tc2 == TypeCode.Byte)
1461 return getModByte(o1,o2,tc1,tc2);
1462 else
1463 return getModInt16(o1,o2,tc1,tc2);
1464 }
1465
1466
1467 //checked
1468 private static int getVType2FromTypeCode(TypeCode typeCode) {
1469 return VType2FromTypeCode[(int)typeCode];
1470 }
1471
1472 private static object getModSingle(object o1, object o2,TypeCode tc1,TypeCode tc2) {
1473 float sng1 = convertObjectToFloat(o1,tc1);
1474 float sng2 = convertObjectToFloat(o2,tc2);
1475 return (float)(sng1 % sng2);
1476 }
1477
1478 private static object getMulByte(object o1, object o2,TypeCode tc1,TypeCode tc2) {
1479 byte b1 = convertObjectToByte(o1,tc1);
1480 byte b2 = convertObjectToByte(o2,tc2);
1481 int i1 = b1 * b2;
1482 if (i1 >= 0 && i1 <= 255)
1483 return (byte) i1;
1484 if (i1 >= -32768 && i1 <= 32767)
1485 return (short) i1;
1486 return (int)i1;
1487 }
1488
1489 private static object getMulDouble(object o1, object o2,TypeCode tc1,TypeCode tc2) {
1490 double d1 = convertObjectToDouble(o1,tc1);
1491 double d2 = convertObjectToDouble(o2,tc2);
1492 return (double)(d1 * d2);
1493 }
1494
1495 private static object getMulInt16(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1496 short s1 = convertObjectToShort(o1,tc1);
1497 short s2 = convertObjectToShort(o2,tc2);
1498 int i1 = s1 * s2;
1499 if (i1 >= -32768 && i1 <= 32767)
1500 return (short) i1;
1501 return (int)i1;
1502 }
1503
1504 private static object getMulInt32(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1505 int i1 = convertObjectToInt(o1,tc1);
1506 int i2 = convertObjectToInt(o2,tc2);
1507 long l1 = (long) i1 * (long) i2;
1508 if (l1 >= 2147483648L && l1 <= 2147483647L)
1509 return (int) l1;
1510 return l1;
1511 }
1512
1513 private static object getMulSingle(object o1, object o2 , TypeCode tc1,TypeCode tc2) {
1514 float f1 = convertObjectToFloat(o1,tc1);
1515 float f2 = convertObjectToFloat(o2,tc2);
1516 double d = (double) f1 * (double) f2;
1517 if (d <= 3.40282e+038 && d >= -3.40282e+038)
1518 return (float) d;
1519 if (double.IsInfinity(d)
1520 && float.IsInfinity(f1)
1521 || float.IsInfinity(f2))
1522 return (float) d;
1523 return d;
1524 }
1525
1526 private static object getMulDecimal(object o1, object o2,TypeCode tc1,TypeCode tc2) {
1527 Decimal dec1 = convertObjectToDecimal(o1,tc1);
1528 Decimal dec2 = convertObjectToDecimal(o1,tc1);
1529
1530 try {
1531 Decimal dec3 = Decimal.Multiply(dec1, dec2);
1532 return dec3;
1533 }
1534 catch (OverflowException exp) {
1535 exp.ToString();//dumb way to fix compiler warning about exp not used
1536 double d1 = Convert.ToDouble(dec1);
1537 double d2 = Convert.ToDouble(dec2);
1538
1539 return (float)(d1 * d2);
1540 }
1541 }
1542
1543 private static object getMulInt64(object o1,object o2 , TypeCode tc1,TypeCode tc2) {
1544 long l1 = convertObjectToLong(o1,tc1);
1545 long l2 = convertObjectToLong(o2,tc2);
1546 if (long.MaxValue / Math.Abs(l1) >= Math.Abs(l2))
1547 return l1 * l2;
1548
1549 Decimal dec1 = new Decimal(l1);
1550 Decimal dec2 = new Decimal(l2);
1551
1552 try {
1553 Decimal dec3 = Decimal.Multiply(dec1, dec2);
1554 return dec3;
1555 }
1556 catch (OverflowException exp) {
1557 exp.ToString();//dumb way to fix exp not used compiler warning
1558 double d1 = (double) l1 * (double) l2;
1559
1560 return d1;
1561 }
1562 }
1563
1564 private static object createZero(TypeCode tc) {
1565 switch(tc) {
1566 case TypeCode.Boolean:
1567 return (short)0;
1568 case TypeCode.Byte:
1569 return (byte)0;
1570 case TypeCode.Int16:
1571 return (short)0;
1572 case TypeCode.Int32:
1573 return (int)0;
1574 case TypeCode.Int64:
1575 return (long)0;
1576 case TypeCode.Single:
1577 return (float)(0.0f);
1578 case TypeCode.Double:
1579 return (double)0.0;
1580 case TypeCode.Decimal:
1581 return Decimal.Zero;
1582 case TypeCode.String:
1583 return (double)0.0;
1584 default:
1585 return null;
1586 }
1587 }
1588
1589 public static object MulObj(object o1, object o2) {
1590 TypeCode tc1 = getTypeCode(o1);
1591 TypeCode tc2 = getTypeCode(o2);
1592 checkIfValidObjects(o1,o2,tc1,tc2);
1593
1594 if (tc1 == TypeCode.Empty && tc2 == TypeCode.Empty)
1595 return (int)0;
1596 else if (tc1 == TypeCode.Empty)
1597 return createZero(tc2);
1598 else if (tc2 == TypeCode.Empty)
1599 return createZero(tc1);
1600 else if (tc1 == TypeCode.String || tc1 == TypeCode.String)
1601 return getMulDouble(o1,o2,tc1,tc2);
1602 else if (tc1 == TypeCode.Double || tc1 == TypeCode.Double)
1603 return getMulDouble(o1,o2,tc1,tc2);
1604 else if (tc1 == TypeCode.Single || tc1 == TypeCode.Single)
1605 return getMulSingle(o1,o2,tc1,tc2);
1606 else if (tc1 == TypeCode.Decimal || tc1 == TypeCode.Decimal)
1607 return getMulDecimal(o1,o2,tc1,tc2);
1608 else if (tc1 == TypeCode.Int64 || tc1 == TypeCode.Int64)
1609 return getMulInt64(o1,o2,tc1,tc2);
1610 else if (tc1 == TypeCode.Int32 || tc1 == TypeCode.Int32)
1611 return getMulInt32(o1,o2,tc1,tc2);
1612 else if (tc1 == TypeCode.Int16 || tc1 == TypeCode.Int16)
1613 return getMulInt16(o1,o2,tc1,tc2);
1614 else if (tc1 == TypeCode.Byte || tc1 == TypeCode.Byte)
1615 return getMulByte(o1,o2,tc1,tc2);
1616 else
1617 return getMulInt16(o1,o2,tc1,tc2);
1618 }
1619
1620 //checked !!
1621 public static object NegObj(object obj) {
1622 TypeCode tc = getTypeCode(obj);
1623 return negObj(obj, tc);
1624 }
1625
1626 public static object NotObj(object obj) {
1627 IConvertible conv;
1628 Type type;
1629 TypeCode tc = getTypeCode(obj);
1630
1631 if (obj == null)
1632 return (int)-1;
1633 long val = 0;
1634 switch (tc) {
1635 case TypeCode.Boolean :
1636 return !(bool)obj;
1637 //new ClrBoolean(!((ClrBoolean)obj).ToBoolean(null));
1638 case TypeCode.Byte :
1639 type = obj.GetType();
1640 conv = (IConvertible)obj;
1641 byte byteVal = (byte) ~(conv.ToByte(null));
1642 if (type.IsEnum)
1643 return Enum.ToObject(type, byteVal);
1644 return byteVal;
1645 case TypeCode.Int16 :
1646 type = obj.GetType();
1647 conv = (IConvertible)obj;
1648 short shortVal = (short) ~(conv.ToInt16(null));
1649 if (type.IsEnum)
1650 return Enum.ToObject(type, shortVal);
1651 return shortVal;
1652 case TypeCode.Int32 :
1653 type = obj.GetType();
1654 conv = (IConvertible)obj;
1655 int intVal = ~(conv.ToInt32(null));
1656 if (type.IsEnum)
1657 return Enum.ToObject(type, intVal);
1658 return intVal;
1659 case TypeCode.Int64 :
1660 type = obj.GetType();
1661 conv = (IConvertible)obj;
1662 long longVal = ~(conv.ToInt64(null));
1663 if (type.IsEnum)
1664 return Enum.ToObject(type, longVal);
1665 return longVal;
1666 case TypeCode.Single :
1667 val = LongType.FromObject(obj);
1668 return ~val;
1669 case TypeCode.Double :
1670 val = LongType.FromObject(obj);
1671 return ~val;
1672 case TypeCode.Decimal :
1673 val = LongType.FromObject(obj);
1674 return ~val;
1675 case TypeCode.String :
1676 val = LongType.FromObject(obj);
1677 return ~val;
1678 }
1679
1680 throw new InvalidCastException(
1681 Utils.GetResourceString(
1682 "NoValidOperator_OneOperand",
1683 Utils.VBFriendlyName(obj)));
1684 }
1685
1686 private static object createZeroForCompare(TypeCode tc) {
1687 switch(tc) {
1688 case TypeCode.Boolean:
1689 return false ;
1690 case TypeCode.Char:
1691 return (char)0;
1692 case TypeCode.Byte:
1693 return (byte)0;
1694 case TypeCode.Int16:
1695 return (short)0;
1696 case TypeCode.Int32:
1697 return (int)0;
1698 case TypeCode.Int64:
1699 return (long)0;
1700 case TypeCode.Single:
1701 return (float)0.0f;
1702 case TypeCode.Double:
1703 return (double)0.0;
1704 case TypeCode.Decimal:
1705 return Decimal.Zero;
1706 case TypeCode.DateTime:
1707 return null;
1708 case TypeCode.String:
1709 return null;
1710 default:
1711 return null;
1712 }
1713 }
1714
1715 public static int ObjTst(object o1, object o2, bool textCompare) {
1716 TypeCode tc1 = getTypeCode(o1);
1717 TypeCode tc2 = getTypeCode(o2);
1718 IComparable icomp1 = (IComparable)o1;
1719 IComparable icomp2 = (IComparable)o2;
1720
1721 if (tc1 == TypeCode.Empty && tc2 == TypeCode.Empty)
1722 return 0;
1723 else if (tc1 == TypeCode.Empty)
1724 return icomp2.CompareTo(createZeroForCompare(tc2));
1725 else if (tc2 == TypeCode.Empty)
1726 return icomp1.CompareTo(createZeroForCompare(tc1));
1727 else if (tc1 == TypeCode.DateTime || tc2 == TypeCode.DateTime)
1728 return getObjTstDateTime(o1,o2,tc1,tc2);
1729 else if (tc1 == TypeCode.Char && tc2 == TypeCode.Char)
1730 return getObjTstChar(o1,o2,tc1,tc2);
1731 else if ((tc1 == TypeCode.Boolean && tc2 == TypeCode.String)||
1732 (tc2 == TypeCode.Boolean && tc1 == TypeCode.String) )
1733 return getObjTstBoolean(o1,o2,tc1,tc2);
1734 else if (tc1 == TypeCode.Double || tc2 == TypeCode.Double)
1735 return getObjTstDouble(o1,o2,tc1,tc2);
1736 else if (tc1 == TypeCode.Single || tc2 == TypeCode.Single)
1737 return getObjTstSingle(o1,o2,tc1,tc2);
1738 else if (tc1 == TypeCode.Decimal || tc2 == TypeCode.Decimal)
1739 return getObjTstDecimal(o1,o2,tc1,tc2);
1740 else if (tc1 == TypeCode.Int64 || tc2 == TypeCode.Int64)
1741 return getObjTstInt64(o1,o2,tc1,tc2);
1742 else if (tc1 == TypeCode.Int32 || tc2 == TypeCode.Int32)
1743 return getObjTstInt32(o1,o2,tc1,tc2);
1744 else if (tc1 == TypeCode.Int16 || tc2 == TypeCode.Int16)
1745 return getObjTstInt16(o1,o2,tc1,tc2);
1746 else if (tc1 == TypeCode.Byte && tc2 == TypeCode.Byte)
1747 return getObjTstByte(o1,o2,tc1,tc2);
1748 else if (tc1 == TypeCode.String || tc2 == TypeCode.String)
1749 return getObjTstString(o1,o2,tc1,tc2);
1750 else
1751 return getObjTstInt16(o1,o2,tc1,tc2);
1752 }
1753
1754 private static int getObjTstString(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1755 string s1 = (tc1 == TypeCode.String)?(string)o1:o1.ToString();
1756 string s2 = (tc2 == TypeCode.String)?(string)o2:o2.ToString();
1757 return s1.CompareTo(s2);
1758 }
1759
1760 private static int getObjTstBoolean(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1761 IConvertible iconv1 = (IConvertible)o1;
1762 IConvertible iconv2 = (IConvertible)o2;
1763 bool b1 = iconv1.ToBoolean(null);
1764 bool b2 = iconv2.ToBoolean(null);
1765 if (b1 == b2)
1766 return 0;
1767 if (b1 == false)
1768 return 1;
1769 return -1;
1770 }
1771
1772 private static int getObjTstByte(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1773 byte by1 = convertObjectToByte(o1,tc1);
1774 byte by2 = convertObjectToByte(o2,tc2);
1775 if (by1 < by2)
1776 return -1;
1777 if (by1 > by2)
1778 return 1;
1779 return 0;
1780 }
1781
1782 private static int getObjTstChar(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1783 char ch1 = convertObjectToChar(o1,tc1);
1784 char ch2 = convertObjectToChar(o2,tc2);
1785 if (ch1 < ch2)
1786 return -1;
1787 if (ch1 > ch2)
1788 return 1;
1789 return 0;
1790 }
1791
1792 private static int getObjTstDateTime(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1793 DateTime var1 = convertObjectToDateTime(o1,tc1);
1794 DateTime var2 = convertObjectToDateTime(o2,tc2);
1795 long time1 = Convert.ToInt32(var1);//Java code var1.getCalendar().getTime().getTime();
1796 long time2 = Convert.ToInt32(var2);//Java code var2.getCalendar().getTime().getTime();
1797 if (time1 < time2)
1798 return -1;
1799 if (time1 > time2)
1800 return 1;
1801 return 0;
1802 }
1803
1804 private static int getObjTstDecimal(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1805 Decimal dec1 = convertObjectToDecimal(o1,tc1);
1806 Decimal dec2 = convertObjectToDecimal(o2,tc2);
1807 int res = Decimal.Compare(dec1, dec2);
1808 if (res < 0)
1809 return -1;
1810 if (res > 0)
1811 return 1;
1812 return 0;
1813 }
1814
1815 private static int getObjTstDouble(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1816 double d1 = convertObjectToDouble(o1,tc1);
1817 double d2 = convertObjectToDouble(o2,tc2);
1818 if (d1 < d2)
1819 return -1;
1820 if (d1 > d2)
1821 return 1;
1822 return 0;
1823 }
1824
1825 private static int getObjTstInt16(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1826 short s1 = convertObjectToShort(o1,tc1);
1827 short s2 = convertObjectToShort(o2,tc2);
1828 if (s1 < s2)
1829 return -1;
1830 if (s1 > s2)
1831 return 1;
1832 return 0;
1833 }
1834
1835 private static int getObjTstInt32(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1836 int i1 = convertObjectToInt(o1,tc1);
1837 int i2 = convertObjectToInt(o2,tc2);
1838 if (i1 < i2)
1839 return -1;
1840 if (i1 > i2)
1841 return 1;
1842 return 0;
1843 }
1844
1845 private static int getObjTstInt64(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1846 long l1 = convertObjectToLong(o1,tc1);
1847 long l2 = convertObjectToLong(o1,tc1);
1848 if (l1 < l2)
1849 return -1;
1850 if (l1 > l2)
1851 return 1;
1852 return 0;
1853 }
1854
1855 private static int getObjTstSingle(object o1,object o2,TypeCode tc1,TypeCode tc2) {
1856 float f1 = convertObjectToFloat(o1,tc1);
1857 float f2 = convertObjectToFloat(o2,tc2);
1858 if (f1 < f2)
1859 return -1;
1860 if (f1 > f2)
1861 return 1;
1862 return 0;
1863 }
1864
1865 private static int getObjTstStringObject(object s1, object s2,TypeCode tc1,TypeCode tc2) {
1866 double d1 = convertObjectToDouble(s1,tc1);
1867 double d2 = convertObjectToDouble(s2,tc2);
1868 return ObjectType.getObjTstDouble(s1,s2,tc1, tc2);
1869 }
1870
1871 public static object PlusObj(object obj) {
1872 TypeCode tc = getTypeCode(obj);
1873 if (tc == TypeCode.Empty)
1874 return (int)0;
1875 else if (tc == TypeCode.Boolean) {
1876 IConvertible conv = (IConvertible)obj;
1877 //java return new short((short) conv.ToInt16(null));
1878 return (short)conv.ToInt16(null);//cast to short probably not needed.
1879 }
1880 else if (tc == TypeCode.String)
1881 return DoubleType.FromObject(obj);
1882 else if (tc == TypeCode.Byte || tc == TypeCode.Int16
1883 || tc == TypeCode.Int32 || tc == TypeCode.Int64
1884 || tc == TypeCode.Single || tc == TypeCode.Double
1885 || tc == TypeCode.Decimal)
1886 return obj;
1887 else
1888 throw new InvalidCastException(
1889 Utils.GetResourceString(
1890 "NoValidOperator_OneOperand",
1891 Utils.VBFriendlyName(obj)));
1892 }
1893
1894 public static object PowObj(object obj1, object obj2) {
1895 if (obj1 == null || obj2 == null)
1896 return (int)1;
1897 TypeCode tc1 = getTypeCode(obj1);
1898 TypeCode tc2 = getTypeCode(obj2);
1899 TypeCode widestType = GetWidestType(tc1,tc2);
1900
1901 if (widestType == TypeCode.Byte || widestType == TypeCode.Boolean
1902 || widestType == TypeCode.Int16 || widestType == TypeCode.Int32
1903 || widestType == TypeCode.Int64 || widestType == TypeCode.Single
1904 || widestType == TypeCode.Double || widestType == TypeCode.Decimal
1905 || widestType == TypeCode.String)
1906 return (double)Math.Pow(DoubleType.FromObject(obj1),DoubleType.FromObject(obj2));
1907 //return new ClrDouble(
1908 // java.lang.Math.pow(
1909 // DoubleType.FromObject(obj1),
1910 // DoubleType.FromObject(obj2)));
1911 else
1912 throw new InvalidCastException(
1913 Utils.GetResourceString(
1914 "NoValidOperator_OneOperand",
1915 Utils.VBFriendlyName(obj1)));
1916 }
1917
1918 //checked
1919 public static object StrCatObj(object vLeft, object vRight) {
1920 if (vLeft is DBNull && vRight is DBNull)
1921 return DBNull.Value;
1922 return StringType.FromObject(vLeft) + StringType.FromObject(vRight);
1923 }
1924
1925 private static object getSubByte(object o1, object o2 , TypeCode tc1,TypeCode tc2) {
1926 byte byte1 = convertObjectToByte(o1,tc1);
1927 byte byte2 = convertObjectToByte(o2,tc2);
1928 short s = (short) (byte1 - byte2);
1929 if (s >= 0 && s <= 255)
1930 return (byte) s;
1931 return s;
1932 }
1933
1934 private static object getSubDecimal(object o1, object o2,TypeCode tc1,TypeCode tc2) {
1935 Decimal dec1 = convertObjectToDecimal(o1,tc1);
1936 Decimal dec2 = convertObjectToDecimal(o2,tc2);
1937 try {
1938 Decimal dec3 = Decimal.Subtract(dec1, dec2);
1939 return dec3;
1940 }
1941 catch (OverflowException exp) {
1942 exp.ToString();//dumb way to fix compiler warning about exp not used
1943
1944 double d1 = Decimal.ToDouble(dec1);
1945 double d2 = Decimal.ToDouble(dec2);
1946
1947 return (double)(d1 * d2);
1948 }
1949 }
1950
1951 private static object getSubInt16(object o1, object o2,TypeCode tc1,TypeCode tc2) {
1952 short s1 = convertObjectToShort(o1,tc1);
1953 short s2 = convertObjectToShort(o2,tc2);
1954 int res = s1 - s2;
1955 if (res >= -32768 && res <= 32767)
1956 return (short) res;
1957 return res;
1958 }
1959
1960 private static object getSubInt32(object o1, object o2,TypeCode tc1,TypeCode tc2) {
1961 int i1 = convertObjectToInt(o1,tc1);
1962 int i2 = convertObjectToInt(o2,tc2);
1963 long res = (long) i1 - (long) i2;
1964 if (res >= 2147483648L && res <= 2147483647L)
1965 return (int) res;
1966 return res;
1967 }
1968
1969 private static object getSubInt64(object o1, object o2,TypeCode tc1,TypeCode tc2) {
1970 long l1 = convertObjectToLong(o1,tc1);
1971 long l2 = convertObjectToLong(o2,tc2);
1972
1973 //Java code if (Long.MAX_VALUE - java.lang.Math.abs(l1) <= java.lang.Math.abs(l2))
1974 if (long.MaxValue - Math.Abs(l1) <= Math.Abs(l2))
1975 return l1 - l2;
1976
1977 Decimal dec1 = new Decimal(l1);
1978 Decimal dec2 = new Decimal(l2);
1979
1980 Decimal dec3 = Decimal.Subtract(dec1, dec2);
1981 return dec3;
1982 }
1983
1984 private static object getSubSingle(object o1, object o2 ,TypeCode tc1 ,TypeCode tc2) {
1985 float d1 = convertObjectToFloat(o1,tc1);
1986 float d2 = convertObjectToFloat(o2,tc2);
1987 double res = (double) d1 - (double) d2;
1988 if (res <= 3.40282e+038 && res >= -3.40282e+038)
1989 return (float) res;
1990 if (double.IsInfinity(res)
1991 && float.IsInfinity(d1)
1992 || float.IsInfinity(d2))
1993 return (float) res;
1994 return res;
1995 }
1996
1997 private static DateTime convertObjectToDateTime(object o1, TypeCode tc1) {
1998 DateTime dateTime = new DateTime(0);//java code null
1999 if (o1 != null) {
2000 if (o1 is string)
2001 dateTime = DateType.FromString((string) o1);
2002 else if (o1 is IConvertible) {
2003 dateTime = ((IConvertible) o1).ToDateTime(null);
2004 }
2005 }
2006 return dateTime;
2007 }
2008
2009 private static char convertObjectToChar(object o1 , TypeCode tc1) {
2010 char char1 = (char)0;
2011 if (o1 != null) {
2012 if (o1 is string)
2013 char1 = CharType.FromString((string)o1);
2014 else if (o1 is IConvertible) {
2015 if (tc1 == TypeCode.Boolean) {
2016 char1 = (char)toVBBool((IConvertible)o1);
2017 }
2018 else
2019 char1 = (char)((IConvertible)o1).ToChar(null);
2020 }
2021 }
2022 return char1;
2023 }
2024
2025 private static byte convertObjectToByte(object o1 , TypeCode tc1) {
2026 byte byte1 = 0;
2027 if (o1 != null) {
2028 if (o1 is string)
2029 byte1 = (byte)ByteType.FromString((string)o1);
2030 else if (o1 is IConvertible) {
2031 if (tc1 == TypeCode.Boolean) {
2032 byte1 = (byte)toVBBool((IConvertible)o1);
2033 }
2034 else
2035 byte1 = (byte)((IConvertible)o1).ToByte(null);
2036 }
2037 }
2038 return byte1;
2039 }
2040
2041 private static short convertObjectToShort(object o1 , TypeCode tc1) {
2042 short s1 = 0;
2043 if (o1 != null) {
2044 if (o1 is string)
2045 s1 = ShortType.FromString((string)o1);
2046 else if (o1 is IConvertible) {
2047 if (tc1 == TypeCode.Boolean) {
2048 s1 = (short)toVBBool((IConvertible)o1);
2049 }
2050 else
2051 s1 = ((IConvertible)o1).ToInt16(null);
2052 }
2053 }
2054 return s1;
2055 }
2056
2057 private static int convertObjectToInt(object o1 , TypeCode tc1) {
2058 int i1=0;
2059 if (o1 != null) {
2060 if (o1 is string)
2061 i1 = IntegerType.FromString((string)o1);
2062 else if (o1 is IConvertible) {
2063 if (tc1 == TypeCode.Boolean) {
2064 i1 = (int)toVBBool((IConvertible)o1);
2065 }
2066 else
2067 i1 = ((IConvertible)o1).ToInt32(null);
2068 }
2069 }
2070 return i1;
2071 }
2072
2073 private static Decimal convertObjectToDecimal(object o1 , TypeCode tc1) {
2074 Decimal dec1 = 0;//java code null;
2075 if (o1 != null) {
2076 if (o1 is string)
2077 dec1 = DecimalType.FromString((string)o1);
2078 else if (o1 is IConvertible) {
2079 if (tc1 == TypeCode.Boolean) {
2080 dec1 = toVBBoolConv((IConvertible)o1).ToDecimal(null);
2081 }
2082 else
2083 dec1 = ((IConvertible)o1).ToDecimal(null);
2084 }
2085 }
2086 return dec1;
2087 }
2088
2089 private static long convertObjectToLong(object o1 , TypeCode tc1) {
2090 long l1 = 0;
2091 if (o1 != null) {
2092 if (o1 is string)
2093 l1 = LongType.FromString((string)o1);
2094 else if (o1 is IConvertible) {
2095 if (tc1 == TypeCode.Boolean) {
2096 l1 = (long)toVBBool((IConvertible)o1);
2097 }
2098 else
2099 l1 = ((IConvertible)o1).ToInt64(null);
2100 }
2101 }
2102 return l1;
2103 }
2104
2105 private static float convertObjectToFloat(object o1 , TypeCode tc1) {
2106 float d1 = 0;
2107 if (o1 != null) {
2108 if (o1 is string)
2109 d1 = SingleType.FromString((string)o1);
2110 else if (o1 is IConvertible) {
2111 if (tc1 == TypeCode.Boolean) {
2112 d1 = (float)toVBBool((IConvertible)o1);
2113 }
2114 else
2115 d1 = ((IConvertible)o1).ToSingle(null);
2116 }
2117 }
2118 return d1;
2119 }
2120
2121 private static double convertObjectToDouble(object o1 , TypeCode tc1) {
2122 double d1 = 0;
2123 if (o1 != null) {
2124 if (o1 is string)
2125 d1 = DoubleType.FromString((string)o1);
2126 else if (o1 is IConvertible) {
2127 if (tc1 == TypeCode.Boolean) {
2128 d1 = (double) toVBBool((IConvertible)o1);
2129 }
2130 else
2131 d1 = ((IConvertible)o1).ToDouble(null);
2132 }
2133 }
2134 return d1;
2135 }
2136
2137 private static object getSubDouble(object s1, object s2,TypeCode tc1,TypeCode tc2) {
2138 double d1 = convertObjectToDouble(s1,tc1);
2139 double d2 = convertObjectToDouble(s2,tc2);
2140 return d1 - d2;
2141 }
2142
2143
2144 public static object SubObj(object o1, object o2) {
2145 TypeCode tc1 = getTypeCode(o1);
2146 TypeCode tc2 = getTypeCode(o2);
2147 checkIfValidObjects(o1,o2,tc1,tc2);
2148
2149 if (tc1 == TypeCode.Empty && tc2 == TypeCode.Empty)
2150 return (int)0;
2151 else if (tc2 == TypeCode.Empty)
2152 return o1;
2153 else if (tc1 == TypeCode.Empty)
2154 return negObj(o2, tc2);
2155 else if (tc1 == TypeCode.Double || tc2 == TypeCode.Double)
2156 return getSubDouble(o1,o2,tc1,tc2);
2157 else if (tc1 == TypeCode.String || tc2 == TypeCode.String)
2158 return getSubDouble(o1,o2,tc1,tc2);
2159 else if (tc1 == TypeCode.Single || tc2 == TypeCode.Single)
2160 return getSubSingle(o1,o2,tc1,tc2);
2161 else if (tc1 == TypeCode.Decimal || tc2 == TypeCode.Decimal)
2162 return getSubDecimal(o1,o2,tc1,tc2);
2163 else if (tc1 == TypeCode.Int64 || tc2 == TypeCode.Int64)
2164 return getSubInt64(o1,o2,tc1,tc2);
2165 else if (tc1 == TypeCode.Int32 || tc2 == TypeCode.Int32)
2166 return getSubInt32(o1,o2,tc1,tc2);
2167 else if (tc1 == TypeCode.Int16 || tc2 == TypeCode.Int16)
2168 return getSubInt16(o1,o2,tc1,tc2);
2169 else if (tc1 == TypeCode.Byte && tc2 == TypeCode.Byte)
2170 return getSubByte(o1,o2,tc1,tc2);
2171 else
2172 return getSubInt16(o1,o2,tc1,tc2);
2173
2174 }
2175
2176 //checked
2177 private static void throwNoValidOperator(object obj1, object obj2) {
2178 string obj1MsgStr = "'Nothing'";
2179 string obj2MsgStr = "'Nothing'";
2180 string obj1Name = Utils.VBFriendlyName(obj1);
2181 string obj2Name = Utils.VBFriendlyName(obj2);
2182 if (obj1 is string)
2183 obj1MsgStr =
2184 Utils.GetResourceString(
2185 "NoValidOperator_StringType1",
2186 (string) obj1);
2187 else if (obj1 != null)
2188 obj1MsgStr =
2189 Utils.GetResourceString(
2190 "NoValidOperator_NonStringType1",
2191 obj1Name);
2192 if (obj2 is string)
2193 obj2MsgStr =
2194 Utils.GetResourceString(
2195 "NoValidOperator_StringType1",
2196 (string) obj2);
2197 else if (obj2 != null)
2198 obj2MsgStr =
2199 Utils.GetResourceString(
2200 "NoValidOperator_NonStringType1",
2201 obj2Name);
2202
2203 throw new InvalidCastException(
2204 Utils.GetResourceString(
2205 "NoValidOperator_TwoOperands",
2206 obj1MsgStr,
2207 obj2MsgStr));
2208 }
2209
2210 public static object ShiftLeftObj (object o1, int amount) {
2211 IConvertible convertible1 = (IConvertible)o1;
2212 TypeCode tc = getTypeCode(o1);
2213 //TypeCode code2;
2214 if (tc == TypeCode.Empty)
2215 return (int)0;
2216 else if (tc == TypeCode.Boolean)
2217 return (short) ((((short) - convertible1.ToInt16(null))
2218 << (amount & 15)));
2219 else if (tc == TypeCode.Byte)
2220 return (byte) ((convertible1.ToByte(null) << (amount & 7)));
2221 else if (tc == TypeCode.Int16)
2222 return (short) ((convertible1.ToInt16(null) << (amount & 15)));
2223 else if (tc == TypeCode.Int32)
2224 return (int)convertible1.ToInt32(null) << (amount & 31);
2225 else if (
2226 tc == TypeCode.Int64
2227 || tc == TypeCode.Single
2228 || tc == TypeCode.Double
2229 || tc == TypeCode.Decimal)
2230 return (Int64)(convertible1.ToInt64(null) << (amount & 63));
2231 else if (tc == TypeCode.String)
2232 return (long)((LongType.FromString(convertible1.ToString(null))
2233 << (amount & 63)));
2234 else
2235 throw new InvalidCastException(
2236 Utils.GetResourceString(
2237 "NoValidOperator_OneOperand",
2238 Utils.VBFriendlyName(o1)));
2239 }
2240
2241 public static object ShiftRightObj (object o1, int amount) {
2242 IConvertible convertible1 = (IConvertible)o1;
2243 TypeCode tc = getTypeCode(o1);
2244 //TypeCode code2;
2245 if (tc == TypeCode.Empty)
2246 return (int)0;
2247 else if (tc == TypeCode.Boolean)
2248 return (short) ((((short) - convertible1.ToInt16(null))
2249 >> (amount & 15)));
2250 else if (tc == TypeCode.Byte)
2251 return (byte) ((convertible1.ToByte(null) >> (amount & 7)));
2252 else if (tc == TypeCode.Int16)
2253 return (short) ((convertible1.ToInt16(null) >> (amount & 15)));
2254 else if (tc == TypeCode.Int32)
2255 return (int)convertible1.ToInt32(null) >> (amount & 31);
2256 else if (
2257 tc == TypeCode.Int64
2258 || tc == TypeCode.Single
2259 || tc == TypeCode.Double
2260 || tc == TypeCode.Decimal)
2261 return (long)(convertible1.ToInt64(null) >> (amount & 63));
2262 else if (tc == TypeCode.String)
2263 return (long)(LongType.FromString(convertible1.ToString(null)) >> (amount & 63));
2264 else
2265 throw new InvalidCastException(
2266 Utils.GetResourceString(
2267 "NoValidOperator_OneOperand",
2268 Utils.VBFriendlyName(o1)));
2269 }
2270
2271
2272 internal static Type TypeFromTypeCode(TypeCode vartype) {
2273 return TypeFromTypeCode((int)vartype);
2274 }
2275
2276 internal static Type TypeFromTypeCode(int vartype) {
2277 return tblTypeFromTypeCode[vartype];
2278 }
2279
2280 public static object XorObj(object obj1, object obj2) {
2281 if (obj1 == null && obj2 == null)
2282 return (int)0;
2283 TypeCode tc1 = getTypeCode(obj1);
2284 TypeCode tc2 = getTypeCode(obj2);
2285 TypeCode widestType = GetWidestType(tc1, tc2);
2286 if (widestType == TypeCode.Boolean || widestType == TypeCode.Byte
2287 || widestType == TypeCode.Int16 || widestType == TypeCode.Int32
2288 || widestType == TypeCode.Int64 || widestType == TypeCode.Single
2289 || widestType == TypeCode.Double || widestType == TypeCode.Decimal
2290 || widestType == TypeCode.String) {
2291 bool b1 = BooleanType.FromObject(obj1);
2292 bool b2 = BooleanType.FromObject(obj2);
2293 return (bool)(b1 ^ b2);
2294 }
2295 else
2296 throw new InvalidCastException(
2297 Utils.GetResourceString(
2298 "NoValidOperator_TwoOperands",
2299 Utils.VBFriendlyName(obj1),
2300 Utils.VBFriendlyName(obj2)));
2301 }
2302 //TODO:
2303 // static class VType extends Enum implements IClrInt
2304 // {
2305 // public int value__;
2306 //
2307 // public static final int t_bad = 0;
2308 // public static final VType _t_bad = new VType(0);
2309 //
2310 // public static final int t_bool = 1;
2311 // public static final VType _t_bool = new VType(1);
2312 //
2313 // public static final int t_ui1 = 2;
2314 // public static final VType _t_ui1 = new VType(2);
2315 //
2316 // public static final int t_i2 = 3;
2317 // public static final VType _t_i2 = new VType(3);
2318 //
2319 // public static final int t_i4 = 4;
2320 // public static final VType _t_i4 = new VType(4);
2321 //
2322 // public static final int t_i8 = 5;
2323 // public static final VType _t_i8 = new VType(5);
2324 //
2325 // public static final int t_dec = 6;
2326 // public static final VType _t_dec = new VType(6);
2327 //
2328 // public static final int t_r4 = 7;
2329 // public static final VType _t_r4 = new VType(7);
2330 //
2331 // public static final int t_r8 = 8;
2332 // public static final VType _t_r8 = new VType(8);
2333 //
2334 // public static final int t_char = 9;
2335 // public static final VType _t_char = new VType(9);
2336 //
2337 // public static final int t_str = 10;
2338 // public static final VType _t_str = new VType(10);
2339 //
2340 // public static final int t_date = 11;
2341 // public static final VType _t_date = new VType(11);
2342 //
2343 // public VType()
2344 // {}
2345 //
2346 // private VType(int value)
2347 // {
2348 // value__ = value;
2349 // }
2350 //
2351 // public void __ZeroInit__()
2352 // {
2353 // value__ = 0;
2354 // }
2355 //
2356 // public void __RealCtor__()
2357 // {
2358 // value__ = 0;
2359 // }
2360 //
2361 // public VType __Clone__()
2362 // {
2363 // return new VType(value__);
2364 // }
2365 //
2366 //
2367 // public int getValue()
2368 // {
2369 // return value__;
2370 // }
2371 //
2372 // public void setValue(int value)
2373 // {
2374 // value__ = value;
2375 // }
2376 //
2377 // public static VType getEnumForValue(int value)
2378 // {
2379 // switch(value)
2380 // {
2381 // case t_bad: return _t_bad;
2382 // case t_bool: return _t_bool;
2383 // case t_ui1: return _t_ui1;
2384 // case t_i2: return _t_i2;
2385 // case t_i4: return _t_i4;
2386 // case t_i8: return _t_i8;
2387 // case t_dec: return _t_dec;
2388 // case t_r4: return _t_r4;
2389 // case t_r8: return _t_r8;
2390 // case t_char: return _t_char;
2391 // case t_str: return _t_str;
2392 // case t_date: return _t_date;
2393 // }
2394 //
2395 // throw new IllegalArgumentException("The value " + value + " is not" +
2396 // " valid for enumeration VType");
2397 // }
2398 //
2399 // protected object GetValue()
2400 // {
2401 // return new system.ClrInt32(getValue());
2402 // }
2403 // }
2404 //
2405 // static class VType2 extends Enum implements IClrInt
2406 // {
2407 // public int value__;
2408 //
2409 // public static final int t_bad = 0;
2410 // public static final VType2 _t_bad = new VType2(0);
2411 //
2412 // public static final int t_bool = 1;
2413 // public static final VType2 _t_bool = new VType2(1);
2414 //
2415 // public static final int t_ui1 = 2;
2416 // public static final VType2 _t_ui1 = new VType2(2);
2417 //
2418 // public static final int t_char = 3;
2419 // public static final VType2 _t_char = new VType2(3);
2420 //
2421 // public static final int t_i2 = 4;
2422 // public static final VType2 _t_i2 = new VType2(4);
2423 //
2424 // public static final int t_i4 = 5;
2425 // public static final VType2 _t_i4 = new VType2(5);
2426 //
2427 // public static final int t_i8 = 6;
2428 // public static final VType2 _t_i8 = new VType2(6);
2429 //
2430 // public static final int t_r4 = 7;
2431 // public static final VType2 _t_r4 = new VType2(7);
2432 //
2433 // public static final int t_r8 = 8;
2434 // public static final VType2 _t_r8 = new VType2(8);
2435 //
2436 // public static final int t_date = 9;
2437 // public static final VType2 _t_date = new VType2(9);
2438 //
2439 // public static final int t_dec = 10;
2440 // public static final VType2 _t_dec = new VType2(10);
2441 //
2442 // public static final int t_ref = 11;
2443 // public static final VType2 _t_ref = new VType2(11);
2444 //
2445 // public static final int t_str = 12;
2446 // public static final VType2 _t_str = new VType2(12);
2447 //
2448 // public VType2()
2449 // {}
2450 //
2451 // private VType2(int value)
2452 // {
2453 // value__ = value;
2454 // }
2455 //
2456 // public void __ZeroInit__()
2457 // {
2458 // value__ = 0;
2459 // }
2460 //
2461 // public void __RealCtor__()
2462 // {
2463 // value__ = 0;
2464 // }
2465 //
2466 // public VType2 __Clone__()
2467 // {
2468 // return new VType2(value__);
2469 // }
2470 //
2471 //
2472 // public int getValue()
2473 // {
2474 // return value__;
2475 // }
2476 //
2477 // public void setValue(int value)
2478 // {
2479 // value__ = value;
2480 // }
2481 //
2482 // public static VType2 getEnumForValue(int value)
2483 // {
2484 // switch(value)
2485 // {
2486 // case t_bad: return _t_bad;
2487 // case t_bool: return _t_bool;
2488 // case t_ui1: return _t_ui1;
2489 // case t_char: return _t_char;
2490 // case t_i2: return _t_i2;
2491 // case t_i4: return _t_i4;
2492 // case t_i8: return _t_i8;
2493 // case t_r4: return _t_r4;
2494 // case t_r8: return _t_r8;
2495 // case t_date: return _t_date;
2496 // case t_dec: return _t_dec;
2497 // case t_ref: return _t_ref;
2498 // case t_str: return _t_str;
2499 // }
2500 //
2501 // throw new IllegalArgumentException("The value " + value + " is not" +
2502 // " valid for enumeration VType2");
2503 // }
2504 //
2505 // protected object GetValue()
2506 // {
2507 // return new system.ClrInt32(getValue());
2508 // }
2509 // }
2510 //
2511 // static class CC extends Enum implements IClrInt
2512 // {
2513 // public int value__;
2514 //
2515 // public static final int Err = 0;
2516 // public static final CC _Err = new CC(0);
2517 //
2518 // public static final int Same = 1;
2519 // public static final CC _Same = new CC(1);
2520 //
2521 // public static final int Narr = 2;
2522 // public static final CC _Narr = new CC(2);
2523 //
2524 // public static final int Wide = 3;
2525 // public static final CC _Wide = new CC(3);
2526 //
2527 // public CC()
2528 // {}
2529 //
2530 // private CC(int value)
2531 // {
2532 // value__ = value;
2533 // }
2534 //
2535 // public void __ZeroInit__()
2536 // {
2537 // value__ = 0;
2538 // }
2539 //
2540 // public void __RealCtor__()
2541 // {
2542 // value__ = 0;
2543 // }
2544 //
2545 // public CC __Clone__()
2546 // {
2547 // return new CC(value__);
2548 // }
2549 //
2550 // public int getValue()
2551 // {
2552 // return value__;
2553 // }
2554 //
2555 // public void setValue(int value)
2556 // {
2557 // value__ = value;
2558 // }
2559 //
2560 // public static CC getEnumForValue(int value)
2561 // {
2562 // switch(value)
2563 // {
2564 // case Err: return _Err;
2565 // case Same: return _Same;
2566 // case Narr: return _Narr;
2567 // case Wide: return _Wide;
2568 // }
2569 //
2570 // throw new IllegalArgumentException("The value " + value + " is not" +
2571 // " valid for enumeration CC");
2572 // }
2573 //
2574 // protected object GetValue()
2575 // {
2576 // return new system.ClrInt32(getValue());
2577 // }
2578 // }
2579 }
2580 }
Mirror of the official Mono project git repository