2010-03-12 Jb Evain <jbevain@novell.com>
[mono.git] / mcs / class / System.Web / System.Web.Compilation / TemplateControlCompiler.cs
1 //
2 // System.Web.Compilation.TemplateControlCompiler
3 //
4 // Authors:
5 //      Gonzalo Paniagua Javier (gonzalo@ximian.com)
6 //      Marek Habersack (mhabersack@novell.com)
7 //
8 // (C) 2003 Ximian, Inc (http://www.ximian.com)
9 // (C) 2004-2008 Novell, Inc (http://novell.com)
10
11 //
12 // Permission is hereby granted, free of charge, to any person obtaining
13 // a copy of this software and associated documentation files (the
14 // "Software"), to deal in the Software without restriction, including
15 // without limitation the rights to use, copy, modify, merge, publish,
16 // distribute, sublicense, and/or sell copies of the Software, and to
17 // permit persons to whom the Software is furnished to do so, subject to
18 // the following conditions:
19 // 
20 // The above copyright notice and this permission notice shall be
21 // included in all copies or substantial portions of the Software.
22 // 
23 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
24 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
25 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
26 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
27 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
28 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
29 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
30 //
31 using System;
32 using System.CodeDom;
33 using System.Collections;
34 using System.ComponentModel;
35 using System.Configuration;
36 using System.Collections.Specialized;
37 using System.Collections.Generic;
38 using System.Drawing;
39 using System.Globalization;
40 using System.Reflection;
41 using System.Resources;
42 using System.Text;
43 using System.Web;
44 using System.Web.Configuration;
45 using System.Web.UI;
46 using System.Web.UI.WebControls;
47 using System.Web.Util;
48 using System.ComponentModel.Design.Serialization;
49 using System.Text.RegularExpressions;
50
51 namespace System.Web.Compilation
52 {
53         class TemplateControlCompiler : BaseCompiler
54         {
55                 static BindingFlags noCaseFlags = BindingFlags.Public | BindingFlags.NonPublic |
56                                                   BindingFlags.Instance | BindingFlags.IgnoreCase;
57                 static Type monoTypeType = Type.GetType ("System.MonoType");
58                 
59                 TemplateControlParser parser;
60                 int dataBoundAtts;
61                 internal ILocation currentLocation;
62
63                 static TypeConverter colorConverter;
64
65                 internal static CodeVariableReferenceExpression ctrlVar = new CodeVariableReferenceExpression ("__ctrl");
66                 
67                 List <string> masterPageContentPlaceHolders;
68                 static Regex startsWithBindRegex = new Regex (@"^Bind\s*\(", RegexOptions.Compiled | RegexOptions.IgnoreCase);
69                 // When modifying those, make sure to look at the SanitizeBindCall to make sure it
70                 // picks up correct groups.
71                 static Regex bindRegex = new Regex (@"Bind\s*\(\s*[""']+(.*?)[""']+((\s*,\s*[""']+(.*?)[""']+)?)\s*\)\s*%>", RegexOptions.Compiled | RegexOptions.IgnoreCase);
72                 static Regex bindRegexInValue = new Regex (@"Bind\s*\(\s*[""']+(.*?)[""']+((\s*,\s*[""']+(.*?)[""']+)?)\s*\)\s*$", RegexOptions.Compiled | RegexOptions.IgnoreCase);
73                 static Regex evalRegexInValue = new Regex (@"(.*)Eval\s*\(\s*[""']+(.*?)[""']+((\s*,\s*[""']+(.*?)[""']+)?)\s*\)(.*)", RegexOptions.Compiled | RegexOptions.IgnoreCase);
74
75                 List <string> MasterPageContentPlaceHolders {
76                         get {
77                                 if (masterPageContentPlaceHolders == null)
78                                         masterPageContentPlaceHolders = new List <string> ();
79                                 return masterPageContentPlaceHolders;
80                         }
81                 }
82
83                 public TemplateControlCompiler (TemplateControlParser parser)
84                         : base (parser)
85                 {
86                         this.parser = parser;
87                 }
88
89                 protected void EnsureID (ControlBuilder builder)
90                 {
91                         if (builder.ID == null || builder.ID.Trim () == "")
92                                 builder.ID = builder.GetNextID (null);
93                 }
94
95                 void CreateField (ControlBuilder builder, bool check)
96                 {
97                         if (builder == null || builder.ID == null || builder.ControlType == null)
98                                 return;
99
100                         if (partialNameOverride [builder.ID] != null)
101                                 return;
102
103                         MemberAttributes ma = MemberAttributes.Family;
104                         currentLocation = builder.Location;
105                         if (check && CheckBaseFieldOrProperty (builder.ID, builder.ControlType, ref ma))
106                                 return; // The field or property already exists in a base class and is accesible.
107
108                         CodeMemberField field;
109                         field = new CodeMemberField (builder.ControlType.FullName, builder.ID);
110                         field.Attributes = ma;
111                         field.Type.Options |= CodeTypeReferenceOptions.GlobalReference;
112
113                         if (partialClass != null)
114                                 partialClass.Members.Add (AddLinePragma (field, builder));
115                         else
116                                 mainClass.Members.Add (AddLinePragma (field, builder));
117                 }
118
119                 bool CheckBaseFieldOrProperty (string id, Type type, ref MemberAttributes ma)
120                 {
121                         FieldInfo fld = parser.BaseType.GetField (id, noCaseFlags);
122
123                         Type other = null;
124                         if (fld == null || fld.IsPrivate) {
125                                 PropertyInfo prop = parser.BaseType.GetProperty (id, noCaseFlags);
126                                 if (prop != null) {
127                                         MethodInfo setm = prop.GetSetMethod (true);
128                                         if (setm != null)
129                                                 other = prop.PropertyType;
130                                 }
131                         } else {
132                                 other = fld.FieldType;
133                         }
134                         
135                         if (other == null)
136                                 return false;
137
138                         if (!other.IsAssignableFrom (type)) {
139                                 ma |= MemberAttributes.New;
140                                 return false;
141                         }
142
143                         return true;
144                 }
145                 
146                 void AddParsedSubObjectStmt (ControlBuilder builder, CodeExpression expr) 
147                 {
148                         if (!builder.HaveParserVariable) {
149                                 CodeVariableDeclarationStatement p = new CodeVariableDeclarationStatement();
150                                 p.Name = "__parser";
151                                 p.Type = new CodeTypeReference (typeof (IParserAccessor));
152                                 p.InitExpression = new CodeCastExpression (typeof (IParserAccessor), ctrlVar);
153                                 builder.MethodStatements.Add (p);
154                                 builder.HaveParserVariable = true;
155                         }
156
157                         CodeVariableReferenceExpression var = new CodeVariableReferenceExpression ("__parser");
158                         CodeMethodInvokeExpression invoke = new CodeMethodInvokeExpression (var, "AddParsedSubObject");
159                         invoke.Parameters.Add (expr);
160                         builder.MethodStatements.Add (AddLinePragma (invoke, builder));
161                 }
162                 
163                 void InitMethod (ControlBuilder builder, bool isTemplate, bool childrenAsProperties)
164                 {
165                         currentLocation = builder.Location;
166                         
167                         string tailname = ((builder is RootBuilder) ? "Tree" : ("_" + builder.ID));
168                         CodeMemberMethod method = new CodeMemberMethod ();
169                         builder.Method = method;
170                         builder.MethodStatements = method.Statements;
171
172                         method.Name = "__BuildControl" + tailname;
173                         method.Attributes = MemberAttributes.Private | MemberAttributes.Final;
174                         Type type = builder.ControlType;
175
176                         /* in the case this is the __BuildControlTree
177                          * method, allow subclasses to insert control
178                          * specific code. */
179                         if (builder is RootBuilder) {
180                                 SetCustomAttributes (method);
181                                 AddStatementsToInitMethod (method);
182                         }
183                         
184                         if (builder.HasAspCode) {
185                                 CodeMemberMethod renderMethod = new CodeMemberMethod ();
186                                 builder.RenderMethod = renderMethod;
187                                 renderMethod.Name = "__Render" + tailname;
188                                 renderMethod.Attributes = MemberAttributes.Private | MemberAttributes.Final;
189                                 CodeParameterDeclarationExpression arg1 = new CodeParameterDeclarationExpression ();
190                                 arg1.Type = new CodeTypeReference (typeof (HtmlTextWriter));
191                                 arg1.Name = "__output";
192                                 CodeParameterDeclarationExpression arg2 = new CodeParameterDeclarationExpression ();
193                                 arg2.Type = new CodeTypeReference (typeof (Control));
194                                 arg2.Name = "parameterContainer";
195                                 renderMethod.Parameters.Add (arg1);
196                                 renderMethod.Parameters.Add (arg2);
197                                 mainClass.Members.Add (renderMethod);
198                         }
199                         
200                         if (childrenAsProperties || builder.ControlType == null) {
201                                 string typeString;
202                                 if (builder is RootBuilder)
203                                         typeString = parser.ClassName;
204                                 else {
205                                         if (builder.ControlType != null && builder.IsProperty &&
206                                             !typeof (ITemplate).IsAssignableFrom (builder.ControlType))
207                                                 typeString = builder.ControlType.FullName;
208                                         else 
209                                                 typeString = "System.Web.UI.Control";
210                                         ProcessTemplateChildren (builder);
211                                 }
212
213                                 method.Parameters.Add (new CodeParameterDeclarationExpression (typeString, "__ctrl"));
214                         } else {
215                                 
216                                 if (typeof (Control).IsAssignableFrom (type))
217                                         method.ReturnType = new CodeTypeReference (typeof (Control));
218
219                                 // _ctrl = new $controlType ($parameters);
220                                 //
221                                 CodeObjectCreateExpression newExpr = new CodeObjectCreateExpression (type);
222
223                                 object [] atts = type.GetCustomAttributes (typeof (ConstructorNeedsTagAttribute), true);
224                                 if (atts != null && atts.Length > 0) {
225                                         ConstructorNeedsTagAttribute att = (ConstructorNeedsTagAttribute) atts [0];
226                                         if (att.NeedsTag)
227                                                 newExpr.Parameters.Add (new CodePrimitiveExpression (builder.TagName));
228                                 } else if (builder is DataBindingBuilder) {
229                                         newExpr.Parameters.Add (new CodePrimitiveExpression (0));
230                                         newExpr.Parameters.Add (new CodePrimitiveExpression (1));
231                                 }
232
233                                 method.Statements.Add (new CodeVariableDeclarationStatement (builder.ControlType, "__ctrl"));
234                                 CodeAssignStatement assign = new CodeAssignStatement ();
235                                 assign.Left = ctrlVar;
236                                 assign.Right = newExpr;
237                                 method.Statements.Add (AddLinePragma (assign, builder));
238                                                                 
239                                 // this.$builderID = _ctrl;
240                                 //
241                                 CodeFieldReferenceExpression builderID = new CodeFieldReferenceExpression ();
242                                 builderID.TargetObject = thisRef;
243                                 builderID.FieldName = builder.ID;
244                                 assign = new CodeAssignStatement ();
245                                 assign.Left = builderID;
246                                 assign.Right = ctrlVar;
247                                 method.Statements.Add (AddLinePragma (assign, builder));
248
249                                 if (typeof (UserControl).IsAssignableFrom (type)) {
250                                         CodeMethodReferenceExpression mref = new CodeMethodReferenceExpression ();
251                                         mref.TargetObject = builderID;
252                                         mref.MethodName = "InitializeAsUserControl";
253                                         CodeMethodInvokeExpression initAsControl = new CodeMethodInvokeExpression (mref);
254                                         initAsControl.Parameters.Add (new CodePropertyReferenceExpression (thisRef, "Page"));
255                                         method.Statements.Add (initAsControl);
256                                 }
257
258                                 if (builder.ParentTemplateBuilder is System.Web.UI.WebControls.ContentBuilderInternal) {
259                                         PropertyInfo pi;
260
261                                         try {
262                                                 pi = type.GetProperty ("TemplateControl");
263                                         } catch (Exception) {
264                                                 pi = null;
265                                         }
266
267                                         if (pi != null && pi.CanWrite) {
268                                                 // __ctrl.TemplateControl = this;
269                                                 assign = new CodeAssignStatement ();
270                                                 assign.Left = new CodePropertyReferenceExpression (ctrlVar, "TemplateControl");;
271                                                 assign.Right = thisRef;
272                                                 method.Statements.Add (assign);
273                                         }
274                                 }
275                                 
276                                 // _ctrl.SkinID = $value
277                                 // _ctrl.ApplyStyleSheetSkin (this);
278                                 //
279                                 // the SkinID assignment needs to come
280                                 // before the call to
281                                 // ApplyStyleSheetSkin, for obvious
282                                 // reasons.  We skip SkinID in
283                                 // CreateAssignStatementsFromAttributes
284                                 // below.
285                                 // 
286                                 string skinid = builder.GetAttribute ("skinid");
287                                 if (!String.IsNullOrEmpty (skinid))
288                                         CreateAssignStatementFromAttribute (builder, "skinid");
289
290                                 if (typeof (WebControl).IsAssignableFrom (type)) {
291                                         CodeMethodInvokeExpression applyStyleSheetSkin = new CodeMethodInvokeExpression (ctrlVar, "ApplyStyleSheetSkin");
292                                         if (typeof (Page).IsAssignableFrom (parser.BaseType))
293                                                 applyStyleSheetSkin.Parameters.Add (thisRef);
294                                         else
295                                                 applyStyleSheetSkin.Parameters.Add (new CodePropertyReferenceExpression (thisRef, "Page"));
296                                         method.Statements.Add (applyStyleSheetSkin);
297                                 }
298
299                                 // Process template children before anything else
300                                 ProcessTemplateChildren (builder);
301
302                                 // process ID here. It should be set before any other attributes are
303                                 // assigned, since the control code may rely on ID being set. We
304                                 // skip ID in CreateAssignStatementsFromAttributes
305                                 string ctl_id = builder.GetAttribute ("id");
306                                 if (ctl_id != null && ctl_id.Length != 0)
307                                         CreateAssignStatementFromAttribute (builder, "id");
308                                 
309                                 if (typeof (ContentPlaceHolder).IsAssignableFrom (type)) {
310                                         List <string> placeHolderIds = MasterPageContentPlaceHolders;
311                                         string cphID = builder.ID;
312                                         
313                                         if (!placeHolderIds.Contains (cphID))
314                                                 placeHolderIds.Add (cphID);
315
316                                         CodeConditionStatement condStatement;
317
318                                         // Add the __Template_* field
319                                         string templateField = "__Template_" + cphID;
320                                         CodeMemberField fld = new CodeMemberField (typeof (ITemplate), templateField);
321                                         fld.Attributes = MemberAttributes.Private;
322                                         mainClass.Members.Add (fld);
323
324                                         CodeFieldReferenceExpression templateID = new CodeFieldReferenceExpression ();
325                                         templateID.TargetObject = thisRef;
326                                         templateID.FieldName = templateField;
327
328                                         CreateContentPlaceHolderTemplateProperty (templateField, "Template_" + cphID);
329                                         
330                                         // if ((this.ContentTemplates != null)) {
331                                         //      this.__Template_$builder.ID = ((System.Web.UI.ITemplate)(this.ContentTemplates["$builder.ID"]));
332                                         // }
333                                         //
334                                         CodeFieldReferenceExpression contentTemplates = new CodeFieldReferenceExpression ();
335                                         contentTemplates.TargetObject = thisRef;
336                                         contentTemplates.FieldName = "ContentTemplates";
337
338                                         CodeIndexerExpression indexer = new CodeIndexerExpression ();
339                                         indexer.TargetObject = new CodePropertyReferenceExpression (thisRef, "ContentTemplates");
340                                         indexer.Indices.Add (new CodePrimitiveExpression (cphID));
341
342                                         assign = new CodeAssignStatement ();
343                                         assign.Left = templateID;
344                                         assign.Right = new CodeCastExpression (new CodeTypeReference (typeof (ITemplate)), indexer);
345
346                                         condStatement = new CodeConditionStatement (new CodeBinaryOperatorExpression (contentTemplates,
347                                                                                                                       CodeBinaryOperatorType.IdentityInequality,
348                                                                                                                       new CodePrimitiveExpression (null)),
349                                                                                     assign);
350
351                                         method.Statements.Add (condStatement);
352
353                                         // if ((this.__Template_mainContent != null)) {
354                                         //      this.__Template_mainContent.InstantiateIn(__ctrl);
355                                         // }
356                                         // and also set things up such that any additional code ends up in:
357                                         // else {
358                                         //      ...
359                                         // }
360                                         //
361                                         CodeMethodReferenceExpression methodRef = new CodeMethodReferenceExpression ();
362                                         methodRef.TargetObject = templateID;
363                                         methodRef.MethodName = "InstantiateIn";
364
365                                         CodeMethodInvokeExpression instantiateInInvoke;
366                                         instantiateInInvoke = new CodeMethodInvokeExpression (methodRef, ctrlVar);
367
368                                         condStatement = new CodeConditionStatement (new CodeBinaryOperatorExpression (templateID,
369                                                                                                                       CodeBinaryOperatorType.IdentityInequality,
370                                                                                                                       new CodePrimitiveExpression (null)),
371                                                                                     new CodeExpressionStatement (instantiateInInvoke));
372                                         method.Statements.Add (condStatement);
373
374                                         // this is the bit that causes the following stuff to end up in the else { }
375                                         builder.MethodStatements = condStatement.FalseStatements;
376                                 }
377                         }
378                         
379                         mainClass.Members.Add (method);
380                 }
381
382                 void ProcessTemplateChildren (ControlBuilder builder)
383                 {
384                         ArrayList templates = builder.TemplateChildren;
385                         if (templates != null && templates.Count > 0) {
386                                 foreach (TemplateBuilder tb in templates) {
387                                         CreateControlTree (tb, true, false);
388                                         if (tb.BindingDirection == BindingDirection.TwoWay) {
389                                                 string extractMethod = CreateExtractValuesMethod (tb);
390                                                 AddBindableTemplateInvocation (builder, tb.TagName, tb.Method.Name, extractMethod);
391                                         } else
392                                                 AddTemplateInvocation (builder, tb.TagName, tb.Method.Name);
393                                 }
394                         }
395                 }
396                 
397                 void SetCustomAttribute (CodeMemberMethod method, UnknownAttributeDescriptor uad)
398                 {
399                         CodeAssignStatement assign = new CodeAssignStatement ();
400                         assign.Left = new CodePropertyReferenceExpression (
401                                 new CodeArgumentReferenceExpression("__ctrl"),
402                                 uad.Info.Name);
403                         assign.Right = GetExpressionFromString (uad.Value.GetType (), uad.Value.ToString (), uad.Info);
404                         
405                         method.Statements.Add (assign);
406                 }
407                 
408                 void SetCustomAttributes (CodeMemberMethod method)
409                 {
410                         Type baseType = parser.BaseType;
411                         if (baseType == null)
412                                 return;
413                         
414                         List <UnknownAttributeDescriptor> attrs = parser.UnknownMainAttributes;
415                         if (attrs == null || attrs.Count == 0)
416                                 return;
417
418                         foreach (UnknownAttributeDescriptor uad in attrs)
419                                 SetCustomAttribute (method, uad);
420                 }
421                 
422                 protected virtual void AddStatementsToInitMethod (CodeMemberMethod method)
423                 {
424                 }
425
426                 void AddLiteralSubObject (ControlBuilder builder, string str)
427                 {
428                         if (!builder.HasAspCode) {
429                                 CodeObjectCreateExpression expr;
430                                 expr = new CodeObjectCreateExpression (typeof (LiteralControl), new CodePrimitiveExpression (str));
431                                 AddParsedSubObjectStmt (builder, expr);
432                         } else {
433                                 CodeMethodReferenceExpression methodRef = new CodeMethodReferenceExpression ();
434                                 methodRef.TargetObject = new CodeArgumentReferenceExpression ("__output");
435                                 methodRef.MethodName = "Write";
436
437                                 CodeMethodInvokeExpression expr;
438                                 expr = new CodeMethodInvokeExpression (methodRef, new CodePrimitiveExpression (str));
439                                 builder.RenderMethod.Statements.Add (expr);
440                         }
441                 }
442
443                 string TrimDB (string value, bool trimTail)
444                 {
445                         string str = value.Trim ();
446                         int len = str.Length;
447                         int idx = str.IndexOf ('#', 2) + 1;
448                         if (idx >= len)
449                                 return String.Empty;
450                         if (trimTail)
451                                 len -= 2;
452                         
453                         return str.Substring (idx, len - idx).Trim ();
454                 }
455
456                 CodeExpression CreateEvalInvokeExpression (Regex regex, string value, bool isBind)
457                 {
458                         Match match = regex.Match (value);
459                         if (!match.Success) {
460                                 if (isBind)
461                                         throw new HttpParseException ("Bind invocation wasn't formatted properly.");
462                                 return null;
463                         }
464                         
465                         string sanitizedSnippet;
466                         if (isBind)
467                                 sanitizedSnippet = SanitizeBindCall (match);
468                         else
469                                 sanitizedSnippet = value;
470                         
471                         return new CodeSnippetExpression (sanitizedSnippet);
472                 }
473
474                 string SanitizeBindCall (Match match)
475                 {
476                         GroupCollection groups = match.Groups;
477                         StringBuilder sb = new StringBuilder ("Eval(\"" + groups [1] + "\"");
478                         Group second = groups [4];
479                         if (second != null) {
480                                 string v = second.Value;
481                                 if (v != null && v.Length > 0)
482                                         sb.Append (",\"" + second + "\"");
483                         }
484                         
485                         sb.Append (")");
486                         return sb.ToString ();
487                 }
488                 
489                 string DataBoundProperty (ControlBuilder builder, Type type, string varName, string value)
490                 {
491                         value = TrimDB (value, true);
492                         CodeMemberMethod method;
493                         string dbMethodName = builder.Method.Name + "_DB_" + dataBoundAtts++;
494                         CodeExpression valueExpression = null;
495                         value = value.Trim ();
496                         
497                         bool need_if = false;
498                         if (startsWithBindRegex.Match (value).Success) {
499                                 valueExpression = CreateEvalInvokeExpression (bindRegexInValue, value, true);
500                                 if (valueExpression != null)
501                                         need_if = true;
502                         } else
503                                 if (StrUtils.StartsWith (value, "Eval", true))
504                                         valueExpression = CreateEvalInvokeExpression (evalRegexInValue, value, false);
505                         
506                         if (valueExpression == null)
507                                 valueExpression = new CodeSnippetExpression (value);
508                         
509                         method = CreateDBMethod (builder, dbMethodName, GetContainerType (builder), builder.ControlType);
510                         CodeVariableReferenceExpression targetExpr = new CodeVariableReferenceExpression ("target");
511
512                         // This should be a CodePropertyReferenceExpression for properties... but it works anyway
513                         CodeFieldReferenceExpression field = new CodeFieldReferenceExpression (targetExpr, varName);
514
515                         CodeExpression expr;
516                         if (type == typeof (string)) {
517                                 CodeMethodInvokeExpression tostring = new CodeMethodInvokeExpression ();
518                                 CodeTypeReferenceExpression conv = new CodeTypeReferenceExpression (typeof (Convert));
519                                 tostring.Method = new CodeMethodReferenceExpression (conv, "ToString");
520                                 tostring.Parameters.Add (valueExpression);
521                                 expr = tostring;
522                         } else
523                                 expr = new CodeCastExpression (type, valueExpression);
524
525                         CodeAssignStatement assign = new CodeAssignStatement (field, expr);
526                         if (need_if) {
527                                 CodeExpression page = new CodePropertyReferenceExpression (thisRef, "Page");
528                                 CodeExpression left = new CodeMethodInvokeExpression (page, "GetDataItem");
529                                 CodeBinaryOperatorExpression ce = new CodeBinaryOperatorExpression (left, CodeBinaryOperatorType.IdentityInequality, new CodePrimitiveExpression (null));
530                                 CodeConditionStatement ccs = new CodeConditionStatement (ce, assign);
531                                 method.Statements.Add (ccs);
532                         } else
533                                 method.Statements.Add (assign);
534
535                         mainClass.Members.Add (method);
536                         return method.Name;
537                 }
538
539                 void AddCodeForPropertyOrField (ControlBuilder builder, Type type, string var_name, string att, MemberInfo member, bool isDataBound, bool isExpression)
540                 {
541                         CodeMemberMethod method = builder.Method;
542                         bool isWritable = IsWritablePropertyOrField (member);
543                         
544                         if (isDataBound && isWritable) {
545                                 string dbMethodName = DataBoundProperty (builder, type, var_name, att);
546                                 AddEventAssign (method, builder, "DataBinding", typeof (EventHandler), dbMethodName);
547                                 return;
548                         } else if (isExpression && isWritable) {
549                                 AddExpressionAssign (method, builder, member, type, var_name, att);
550                                 return;
551                         }
552
553                         CodeAssignStatement assign = new CodeAssignStatement ();
554                         assign.Left = new CodePropertyReferenceExpression (ctrlVar, var_name);
555                         currentLocation = builder.Location;
556                         assign.Right = GetExpressionFromString (type, att, member);
557
558                         method.Statements.Add (AddLinePragma (assign, builder));
559                 }
560
561                 bool IsDirective (string value, char directiveChar)
562                 {
563                         if (value == null || value == String.Empty)
564                                 return false;
565                         
566                         value = value.Trim ();
567                         if (!StrUtils.StartsWith (value, "<%") || !StrUtils.EndsWith (value, "%>"))
568                                 return false;
569
570                         int dcIndex = value.IndexOf (directiveChar, 2);
571                         if (dcIndex == -1)
572                                 return false;
573
574                         if (dcIndex == 2)
575                                 return true;
576                         dcIndex--;
577                         
578                         while (dcIndex >= 2) {
579                                 if (!Char.IsWhiteSpace (value [dcIndex]))
580                                         return false;
581                                 dcIndex--;
582                         }
583
584                         return true;
585                 }
586                 
587                 bool IsDataBound (string value)
588                 {
589                         return IsDirective (value, '#');
590                 }
591
592                 bool IsExpression (string value)
593                 {
594                         return IsDirective (value, '$');
595                 }               
596
597                 void RegisterBindingInfo (ControlBuilder builder, string propName, ref string value)
598                 {
599                         string str = TrimDB (value, false);
600                         if (StrUtils.StartsWith (str, "Bind", true)) {
601                                 Match match = bindRegex.Match (str);
602                                 if (match.Success) {
603                                         string bindingName = match.Groups [1].Value;
604                                         TemplateBuilder templateBuilder = builder.ParentTemplateBuilder;
605                                         
606                                         if (templateBuilder == null)
607                                                 throw new HttpException ("Bind expression not allowed in this context.");
608
609                                         if (templateBuilder.BindingDirection == BindingDirection.OneWay)
610                                                 return;
611                                         
612                                         string id = builder.GetAttribute ("ID");
613                                         if (String.IsNullOrEmpty (id))
614                                                 throw new HttpException ("Control of type '" + builder.ControlType + "' using two-way binding on property '" + propName + "' must have an ID.");
615                                         
616                                         templateBuilder.RegisterBoundProperty (builder.ControlType, propName, id, bindingName);
617                                 }
618                         }
619                 }
620
621                 /*
622                 static bool InvariantCompare (string a, string b)
623                 {
624                         return (0 == String.Compare (a, b, false, Helpers.InvariantCulture));
625                 }
626                 */
627
628                 static bool InvariantCompareNoCase (string a, string b)
629                 {
630                         return (0 == String.Compare (a, b, true, Helpers.InvariantCulture));
631                 }
632
633                 static MemberInfo GetFieldOrProperty (Type type, string name)
634                 {
635                         MemberInfo member = null;
636                         try {
637                                 member = type.GetProperty (name, noCaseFlags & ~BindingFlags.NonPublic);
638                         } catch {}
639                         
640                         if (member != null)
641                                 return member;
642
643                         try {
644                                 member = type.GetField (name, noCaseFlags & ~BindingFlags.NonPublic);
645                         } catch {}
646
647                         return member;
648                 }
649
650                 static bool IsWritablePropertyOrField (MemberInfo member)
651                 {
652                         PropertyInfo pi = member as PropertyInfo;
653                         if (pi != null)
654                                 return pi.GetSetMethod (false) != null;
655                         FieldInfo fi = member as FieldInfo;
656                         if (fi != null)
657                                 return !fi.IsInitOnly;
658                         throw new ArgumentException ("Argument must be of PropertyInfo or FieldInfo type", "member");
659                 }
660
661                 bool ProcessPropertiesAndFields (ControlBuilder builder, MemberInfo member, string id,
662                                                  string attValue, string prefix)
663                 {
664                         int hyphen = id.IndexOf ('-');
665                         bool isPropertyInfo = (member is PropertyInfo);
666                         bool isDataBound = IsDataBound (attValue);
667                         bool isExpression = !isDataBound && IsExpression (attValue);
668                         Type type;
669                         if (isPropertyInfo) {
670                                 type = ((PropertyInfo) member).PropertyType;
671                         } else {
672                                 type = ((FieldInfo) member).FieldType;
673                         }
674
675                         if (InvariantCompareNoCase (member.Name, id)) {
676                                 if (isDataBound)
677                                         RegisterBindingInfo (builder, member.Name, ref attValue);                               
678
679                                 if (!IsWritablePropertyOrField (member))
680                                         return false;
681                                 
682                                 AddCodeForPropertyOrField (builder, type, member.Name, attValue, member, isDataBound, isExpression);
683                                 return true;
684                         }
685                         
686                         if (hyphen == -1)
687                                 return false;
688
689                         string prop_field = id.Replace ('-', '.');
690                         string [] parts = prop_field.Split (new char [] {'.'});
691                         int length = parts.Length;
692                         
693                         if (length < 2 || !InvariantCompareNoCase (member.Name, parts [0]))
694                                 return false;
695
696                         if (length > 2) {
697                                 MemberInfo sub_member = GetFieldOrProperty (type, parts [1]);
698                                 if (sub_member == null)
699                                         return false;
700
701                                 string new_prefix = prefix + member.Name + ".";
702                                 string new_id = id.Substring (hyphen + 1);
703                                 return ProcessPropertiesAndFields (builder, sub_member, new_id, attValue, new_prefix);
704                         }
705
706                         MemberInfo subpf = GetFieldOrProperty (type, parts [1]);
707                         if (!(subpf is PropertyInfo))
708                                 return false;
709
710                         PropertyInfo subprop = (PropertyInfo) subpf;
711                         if (subprop.CanWrite == false)
712                                 return false;
713
714                         bool is_bool = (subprop.PropertyType == typeof (bool));
715                         if (!is_bool && attValue == null)
716                                 return false; // Font-Size -> Font-Size="" as html
717
718                         string val = attValue;
719                         if (attValue == null && is_bool)
720                                 val = "true"; // Font-Bold <=> Font-Bold="true"
721
722                         if (isDataBound)
723                                 RegisterBindingInfo (builder, prefix + member.Name + "." + subprop.Name, ref attValue);
724
725                         AddCodeForPropertyOrField (builder, subprop.PropertyType,
726                                                    prefix + member.Name + "." + subprop.Name,
727                                                    val, subprop, isDataBound, isExpression);
728
729                         return true;
730                 }
731
732                 CodeExpression CompileExpression (MemberInfo member, Type type, string value, bool useSetAttribute)
733                 {
734                         // First let's find the correct expression builder
735                         value = value.Substring (3, value.Length - 5).Trim ();
736                         int colon = value.IndexOf (':');
737                         if (colon == -1)
738                                 return null;
739                         string prefix = value.Substring (0, colon).Trim ();
740                         string expr = value.Substring (colon + 1).Trim ();
741                         
742                         CompilationSection cs = (CompilationSection)WebConfigurationManager.GetWebApplicationSection ("system.web/compilation");
743                         if (cs == null)
744                                 return null;
745                         
746                         if (cs.ExpressionBuilders == null || cs.ExpressionBuilders.Count == 0)
747                                 return null;
748
749                         System.Web.Configuration.ExpressionBuilder ceb = cs.ExpressionBuilders[prefix];
750                         if (ceb == null)
751                                 return null;
752                         
753                         string builderType = ceb.Type;
754                         Type t;
755                         
756                         try {
757                                 t = HttpApplication.LoadType (builderType, true);
758                         } catch (Exception e) {
759                                 throw new HttpException (String.Format ("Failed to load expression builder type `{0}'", builderType), e);
760                         }
761
762                         if (!typeof (System.Web.Compilation.ExpressionBuilder).IsAssignableFrom (t))
763                                 throw new HttpException (String.Format ("Type {0} is not descendant from System.Web.Compilation.ExpressionBuilder", builderType));
764
765                         System.Web.Compilation.ExpressionBuilder eb = null;
766                         object parsedData;
767                         ExpressionBuilderContext ctx;
768                         
769                         try {
770                                 eb = Activator.CreateInstance (t) as System.Web.Compilation.ExpressionBuilder;
771                                 ctx = new ExpressionBuilderContext (HttpContext.Current.Request.FilePath);
772                                 parsedData = eb.ParseExpression (expr, type, ctx);
773                         } catch (Exception e) {
774                                 throw new HttpException (String.Format ("Failed to create an instance of type `{0}'", builderType), e);
775                         }
776                         
777                         BoundPropertyEntry bpe = CreateBoundPropertyEntry (member as PropertyInfo, prefix, expr, useSetAttribute);
778                         return eb.GetCodeExpression (bpe, parsedData, ctx);
779                 }
780                 
781                 void AddExpressionAssign (CodeMemberMethod method, ControlBuilder builder, MemberInfo member, Type type, string name, string value)
782                 {
783                         CodeExpression expr = CompileExpression (member, type, value, false);
784
785                         if (expr == null)
786                                 return;
787                         
788                         CodeAssignStatement assign = new CodeAssignStatement ();
789                         assign.Left = new CodePropertyReferenceExpression (ctrlVar, name);
790                         assign.Right = expr;
791                         
792                         builder.Method.Statements.Add (AddLinePragma (assign, builder));
793                 }
794
795                 BoundPropertyEntry CreateBoundPropertyEntry (PropertyInfo pi, string prefix, string expr, bool useSetAttribute)
796                 {
797                         BoundPropertyEntry ret = new BoundPropertyEntry ();
798                         ret.Expression = expr;
799                         ret.ExpressionPrefix = prefix;
800                         ret.Generated = false;
801                         if (pi != null) {
802                                 ret.Name = pi.Name;
803                                 ret.PropertyInfo = pi;
804                                 ret.Type = pi.PropertyType;
805                         }
806                         ret.UseSetAttribute = useSetAttribute;
807                         
808                         return ret;
809                 }
810
811                 bool ResourceProviderHasObject (string key)
812                 {
813                         IResourceProvider rp = HttpContext.GetResourceProvider (InputVirtualPath.Absolute, true);
814                         if (rp == null)
815                                 return false;
816
817                         IResourceReader rr = rp.ResourceReader;
818                         if (rr == null)
819                                 return false;
820
821                         try {
822                                 IDictionaryEnumerator ide = rr.GetEnumerator ();
823                                 if (ide == null)
824                                         return false;
825                         
826                                 string dictKey;
827                                 while (ide.MoveNext ()) {
828                                         dictKey = ide.Key as string;
829                                         if (String.IsNullOrEmpty (dictKey))
830                                                 continue;
831                                         if (String.Compare (key, dictKey, StringComparison.Ordinal) == 0)
832                                                 return true;
833                                 }
834                         } finally {
835                                 rr.Close ();
836                         }
837                         
838                         return false;
839                 }
840                 
841                 void AssignPropertyFromResources (ControlBuilder builder, MemberInfo mi, string attvalue)
842                 {
843                         bool isProperty = mi.MemberType == MemberTypes.Property;
844                         bool isField = !isProperty && (mi.MemberType == MemberTypes.Field);
845
846                         if (!isProperty && !isField || !IsWritablePropertyOrField (mi))
847                                 return;                 
848
849                         object[] attrs = mi.GetCustomAttributes (typeof (LocalizableAttribute), true);
850                         if (attrs != null && attrs.Length > 0 && !((LocalizableAttribute)attrs [0]).IsLocalizable)
851                                 return;
852                         
853                         string memberName = mi.Name;
854                         string resname = String.Concat (attvalue, ".", memberName);
855
856                         if (!ResourceProviderHasObject (resname))
857                                 return;
858                         
859                         // __ctrl.Text = System.Convert.ToString(HttpContext.GetLocalResourceObject("ButtonResource1.Text"));
860                         string inputFile = parser.InputFile;
861                         string physPath = HttpContext.Current.Request.PhysicalApplicationPath;
862         
863                         if (StrUtils.StartsWith (inputFile, physPath))
864                                 inputFile = parser.InputFile.Substring (physPath.Length - 1);
865                         else
866                                 return;
867
868                         char dsc = System.IO.Path.DirectorySeparatorChar;
869                         if (dsc != '/')
870                                 inputFile = inputFile.Replace (dsc, '/');
871
872                         object obj = HttpContext.GetLocalResourceObject (inputFile, resname);
873                         if (obj == null)
874                                 return;
875
876                         if (!isProperty && !isField)
877                                 return; // an "impossible" case
878                         
879                         CodeAssignStatement assign = new CodeAssignStatement ();
880                         
881                         assign.Left = new CodePropertyReferenceExpression (ctrlVar, memberName);
882                         assign.Right = ResourceExpressionBuilder.CreateGetLocalResourceObject (mi, resname);
883                         
884                         builder.Method.Statements.Add (AddLinePragma (assign, builder));
885                 }
886
887                 void AssignPropertiesFromResources (ControlBuilder builder, Type controlType, string attvalue)
888                 {
889                         // Process all public fields and properties of the control. We don't use GetMembers to make the code
890                         // faster
891                         FieldInfo [] fields = controlType.GetFields (
892                                 BindingFlags.Instance | BindingFlags.Static |
893                                 BindingFlags.Public | BindingFlags.FlattenHierarchy);
894                         PropertyInfo [] properties = controlType.GetProperties (
895                                 BindingFlags.Instance | BindingFlags.Static |
896                                 BindingFlags.Public | BindingFlags.FlattenHierarchy);
897
898                         foreach (FieldInfo fi in fields)
899                                 AssignPropertyFromResources (builder, fi, attvalue);
900                         foreach (PropertyInfo pi in properties)
901                                 AssignPropertyFromResources (builder, pi, attvalue);
902                 }
903                 
904                 void AssignPropertiesFromResources (ControlBuilder builder, string attvalue)
905                 {
906                         if (attvalue == null || attvalue.Length == 0)
907                                 return;
908                         
909                         Type controlType = builder.ControlType;
910                         if (controlType == null)
911                                 return;
912
913                         AssignPropertiesFromResources (builder, controlType, attvalue);
914                 }
915                 
916                 void AddEventAssign (CodeMemberMethod method, ControlBuilder builder, string name, Type type, string value)
917                 {
918                         //"__ctrl.{0} += new {1} (this.{2});"
919                         CodeEventReferenceExpression evtID = new CodeEventReferenceExpression (ctrlVar, name);
920
921                         CodeDelegateCreateExpression create;
922                         create = new CodeDelegateCreateExpression (new CodeTypeReference (type), thisRef, value);
923
924                         CodeAttachEventStatement attach = new CodeAttachEventStatement (evtID, create);
925                         method.Statements.Add (attach);
926                 }
927                 
928                 void CreateAssignStatementFromAttribute (ControlBuilder builder, string id)
929                 {
930                         EventInfo [] ev_info = null;
931                         Type type = builder.ControlType;
932                         
933                         string attvalue = builder.GetAttribute (id);
934                         if (id.Length > 2 && String.Compare (id.Substring (0, 2), "ON", true, Helpers.InvariantCulture) == 0){
935                                 if (ev_info == null)
936                                         ev_info = type.GetEvents ();
937
938                                 string id_as_event = id.Substring (2);
939                                 foreach (EventInfo ev in ev_info){
940                                         if (InvariantCompareNoCase (ev.Name, id_as_event)){
941                                                 AddEventAssign (builder.Method,
942                                                                 builder,
943                                                                 ev.Name,
944                                                                 ev.EventHandlerType,
945                                                                 attvalue);
946                                                 
947                                                 return;
948                                         }
949                                 }
950
951                         }
952
953                         if (String.Compare (id, "meta:resourcekey", StringComparison.OrdinalIgnoreCase) == 0) {
954                                 AssignPropertiesFromResources (builder, attvalue);
955                                 return;
956                         }
957                         
958                         int hyphen = id.IndexOf ('-');
959                         string alt_id = id;
960                         if (hyphen != -1)
961                                 alt_id = id.Substring (0, hyphen);
962
963                         MemberInfo fop = GetFieldOrProperty (type, alt_id);
964                         if (fop != null) {
965                                 if (ProcessPropertiesAndFields (builder, fop, id, attvalue, null))
966                                         return;
967                         }
968
969                         if (!typeof (IAttributeAccessor).IsAssignableFrom (type))
970                                 throw new ParseException (builder.Location, "Unrecognized attribute: " + id);
971
972                         CodeMemberMethod method = builder.Method;
973                         bool isDatabound = IsDataBound (attvalue);
974                         bool isExpression = !isDatabound && IsExpression (attvalue);
975
976                         if (isDatabound) {
977                                 string value = attvalue.Substring (3, attvalue.Length - 5).Trim ();
978                                 CodeExpression valueExpression = null;
979                                 if (startsWithBindRegex.Match (value).Success)
980                                         valueExpression = CreateEvalInvokeExpression (bindRegexInValue, value, true);
981                                 else
982                                         if (StrUtils.StartsWith (value, "Eval", true))
983                                                 valueExpression = CreateEvalInvokeExpression (evalRegexInValue, value, false);
984                                 
985                                 if (valueExpression == null && value != null && value.Trim () != String.Empty)
986                                         valueExpression = new CodeSnippetExpression (value);
987                                 
988                                 CreateDBAttributeMethod (builder, id, valueExpression);
989                         } else {
990                                 CodeCastExpression cast;
991                                 CodeMethodReferenceExpression methodExpr;
992                                 CodeMethodInvokeExpression expr;
993
994                                 cast = new CodeCastExpression (typeof (IAttributeAccessor), ctrlVar);
995                                 methodExpr = new CodeMethodReferenceExpression (cast, "SetAttribute");
996                                 expr = new CodeMethodInvokeExpression (methodExpr);
997                                 expr.Parameters.Add (new CodePrimitiveExpression (id));
998
999                                 CodeExpression valueExpr = null;
1000                                 if (isExpression)
1001                                         valueExpr = CompileExpression (null, typeof (string), attvalue, true);
1002
1003                                 if (valueExpr == null)
1004                                         valueExpr = new CodePrimitiveExpression (attvalue);
1005                                 
1006                                 expr.Parameters.Add (valueExpr);
1007                                 method.Statements.Add (AddLinePragma (expr, builder));
1008                         }
1009                 }
1010
1011                 protected void CreateAssignStatementsFromAttributes (ControlBuilder builder)
1012                 {
1013                         this.dataBoundAtts = 0;
1014                         IDictionary atts = builder.Attributes;
1015                         if (atts == null || atts.Count == 0)
1016                                 return;
1017                         
1018                         foreach (string id in atts.Keys) {
1019                                 if (InvariantCompareNoCase (id, "runat"))
1020                                         continue;
1021                                 // ID is assigned in BuildControltree
1022                                 if (InvariantCompareNoCase (id, "id"))
1023                                         continue;                               
1024
1025                                 /* we skip SkinID here as it's assigned in BuildControlTree */
1026                                 if (InvariantCompareNoCase (id, "skinid"))
1027                                         continue;
1028                                 if (InvariantCompareNoCase (id, "meta:resourcekey"))
1029                                         continue; // ignore, this one's processed at the very end of
1030                                                   // the method
1031                                 CreateAssignStatementFromAttribute (builder, id);
1032                         }
1033                 }
1034
1035                 void CreateDBAttributeMethod (ControlBuilder builder, string attr, CodeExpression code)
1036                 {
1037                         if (code == null)
1038                                 return;
1039
1040                         string id = builder.GetNextID (null);
1041                         string dbMethodName = "__DataBind_" + id;
1042                         CodeMemberMethod method = builder.Method;
1043                         AddEventAssign (method, builder, "DataBinding", typeof (EventHandler), dbMethodName);
1044
1045                         method = CreateDBMethod (builder, dbMethodName, GetContainerType (builder), builder.ControlType);
1046                         builder.DataBindingMethod = method;
1047
1048                         CodeCastExpression cast;
1049                         CodeMethodReferenceExpression methodExpr;
1050                         CodeMethodInvokeExpression expr;
1051
1052                         CodeVariableReferenceExpression targetExpr = new CodeVariableReferenceExpression ("target");
1053                         cast = new CodeCastExpression (typeof (IAttributeAccessor), targetExpr);
1054                         methodExpr = new CodeMethodReferenceExpression (cast, "SetAttribute");
1055                         expr = new CodeMethodInvokeExpression (methodExpr);
1056                         expr.Parameters.Add (new CodePrimitiveExpression (attr));
1057                         CodeMethodInvokeExpression tostring = new CodeMethodInvokeExpression ();
1058                         tostring.Method = new CodeMethodReferenceExpression (
1059                                                         new CodeTypeReferenceExpression (typeof (Convert)),
1060                                                         "ToString");
1061                         tostring.Parameters.Add (code);
1062                         expr.Parameters.Add (tostring);
1063                         method.Statements.Add (expr);
1064                         mainClass.Members.Add (method);
1065                 }
1066
1067                 void AddRenderControl (ControlBuilder builder)
1068                 {
1069                         CodeIndexerExpression indexer = new CodeIndexerExpression ();
1070                         indexer.TargetObject = new CodePropertyReferenceExpression (
1071                                                         new CodeArgumentReferenceExpression ("parameterContainer"),
1072                                                         "Controls");
1073                                                         
1074                         indexer.Indices.Add (new CodePrimitiveExpression (builder.RenderIndex));
1075                         
1076                         CodeMethodInvokeExpression invoke = new CodeMethodInvokeExpression (indexer, "RenderControl");
1077                         invoke.Parameters.Add (new CodeArgumentReferenceExpression ("__output"));
1078                         builder.RenderMethod.Statements.Add (invoke);
1079                         builder.IncreaseRenderIndex ();
1080                 }
1081
1082                 protected void AddChildCall (ControlBuilder parent, ControlBuilder child)
1083                 {
1084                         if (parent == null || child == null)
1085                                 return;
1086                         
1087                         CodeMethodReferenceExpression m = new CodeMethodReferenceExpression (thisRef, child.Method.Name);
1088                         CodeMethodInvokeExpression expr = new CodeMethodInvokeExpression (m);
1089
1090                         object [] atts = null;
1091
1092                         if (child.ControlType != null)
1093                                 atts = child.ControlType.GetCustomAttributes (typeof (PartialCachingAttribute), true);
1094                         
1095                         if (atts != null && atts.Length > 0) {
1096                                 PartialCachingAttribute pca = (PartialCachingAttribute) atts [0];
1097                                 CodeTypeReferenceExpression cc = new CodeTypeReferenceExpression("System.Web.UI.StaticPartialCachingControl");
1098                                 CodeMethodInvokeExpression build = new CodeMethodInvokeExpression (cc, "BuildCachedControl");
1099                                 build.Parameters.Add (new CodeArgumentReferenceExpression("__ctrl"));
1100                                 build.Parameters.Add (new CodePrimitiveExpression (child.ID));
1101 #if NET_1_1
1102                                 if (pca.Shared)
1103                                         build.Parameters.Add (new CodePrimitiveExpression (child.ControlType.GetHashCode ().ToString ()));
1104                                 else
1105 #endif
1106                                         build.Parameters.Add (new CodePrimitiveExpression (Guid.NewGuid ().ToString ()));
1107                                         
1108                                 build.Parameters.Add (new CodePrimitiveExpression (pca.Duration));
1109                                 build.Parameters.Add (new CodePrimitiveExpression (pca.VaryByParams));
1110                                 build.Parameters.Add (new CodePrimitiveExpression (pca.VaryByControls));
1111                                 build.Parameters.Add (new CodePrimitiveExpression (pca.VaryByCustom));
1112                                 build.Parameters.Add (new CodeDelegateCreateExpression (
1113                                                               new CodeTypeReference (typeof (System.Web.UI.BuildMethod)),
1114                                                               thisRef, child.Method.Name));
1115
1116                                 parent.MethodStatements.Add (AddLinePragma (build, parent));
1117                                 if (parent.HasAspCode)
1118                                         AddRenderControl (parent);
1119                                 return;
1120                         }
1121                                 
1122                         if (child.IsProperty || parent.ChildrenAsProperties) {
1123                                 expr.Parameters.Add (new CodeFieldReferenceExpression (ctrlVar, child.TagName));
1124                                 parent.MethodStatements.Add (AddLinePragma (expr, parent));
1125                                 return;
1126                         }
1127
1128                         parent.MethodStatements.Add (AddLinePragma (expr, parent));
1129                         CodeFieldReferenceExpression field = new CodeFieldReferenceExpression (thisRef, child.ID);
1130                         if (parent.ControlType == null || typeof (IParserAccessor).IsAssignableFrom (parent.ControlType))
1131                                 AddParsedSubObjectStmt (parent, field);
1132                         else {
1133                                 CodeMethodInvokeExpression invoke = new CodeMethodInvokeExpression (ctrlVar, "Add");
1134                                 invoke.Parameters.Add (field);
1135                                 parent.MethodStatements.Add (AddLinePragma (invoke, parent));
1136                         }
1137                                 
1138                         if (parent.HasAspCode)
1139                                 AddRenderControl (parent);
1140                 }
1141
1142                 void AddTemplateInvocation (ControlBuilder builder, string name, string methodName)
1143                 {
1144                         CodePropertyReferenceExpression prop = new CodePropertyReferenceExpression (ctrlVar, name);
1145
1146                         CodeDelegateCreateExpression newBuild = new CodeDelegateCreateExpression (
1147                                 new CodeTypeReference (typeof (BuildTemplateMethod)), thisRef, methodName);
1148
1149                         CodeObjectCreateExpression newCompiled = new CodeObjectCreateExpression (typeof (CompiledTemplateBuilder));
1150                         newCompiled.Parameters.Add (newBuild);
1151
1152                         CodeAssignStatement assign = new CodeAssignStatement (prop, newCompiled);
1153                         builder.Method.Statements.Add (AddLinePragma (assign, builder));
1154                 }
1155
1156                 void AddBindableTemplateInvocation (ControlBuilder builder, string name, string methodName, string extractMethodName)
1157                 {
1158                         CodePropertyReferenceExpression prop = new CodePropertyReferenceExpression (ctrlVar, name);
1159
1160                         CodeDelegateCreateExpression newBuild = new CodeDelegateCreateExpression (
1161                                 new CodeTypeReference (typeof (BuildTemplateMethod)), thisRef, methodName);
1162
1163                         CodeDelegateCreateExpression newExtract = new CodeDelegateCreateExpression (
1164                                 new CodeTypeReference (typeof (ExtractTemplateValuesMethod)), thisRef, extractMethodName);
1165
1166                         CodeObjectCreateExpression newCompiled = new CodeObjectCreateExpression (typeof (CompiledBindableTemplateBuilder));
1167                         newCompiled.Parameters.Add (newBuild);
1168                         newCompiled.Parameters.Add (newExtract);
1169                         
1170                         CodeAssignStatement assign = new CodeAssignStatement (prop, newCompiled);
1171                         builder.Method.Statements.Add (AddLinePragma (assign, builder));
1172                 }
1173                 
1174                 string CreateExtractValuesMethod (TemplateBuilder builder)
1175                 {
1176                         CodeMemberMethod method = new CodeMemberMethod ();
1177                         method.Name = "__ExtractValues_" + builder.ID;
1178                         method.Attributes = MemberAttributes.Private | MemberAttributes.Final;
1179                         method.ReturnType = new CodeTypeReference (typeof(IOrderedDictionary));
1180                         
1181                         CodeParameterDeclarationExpression arg = new CodeParameterDeclarationExpression ();
1182                         arg.Type = new CodeTypeReference (typeof (Control));
1183                         arg.Name = "__container";
1184                         method.Parameters.Add (arg);
1185                         mainClass.Members.Add (method);
1186                         
1187                         CodeObjectCreateExpression newTable = new CodeObjectCreateExpression ();
1188                         newTable.CreateType = new CodeTypeReference (typeof(OrderedDictionary));
1189                         method.Statements.Add (new CodeVariableDeclarationStatement (typeof(OrderedDictionary), "__table", newTable));
1190                         CodeVariableReferenceExpression tableExp = new CodeVariableReferenceExpression ("__table");
1191                         
1192                         if (builder.Bindings != null) {
1193                                 Hashtable hash = new Hashtable ();
1194                                 foreach (TemplateBinding binding in builder.Bindings) {
1195                                         CodeConditionStatement sif;
1196                                         CodeVariableReferenceExpression control;
1197                                         CodeAssignStatement assign;
1198
1199                                         if (hash [binding.ControlId] == null) {
1200
1201                                                 CodeVariableDeclarationStatement dec = new CodeVariableDeclarationStatement (binding.ControlType, binding.ControlId);
1202                                                 method.Statements.Add (dec);
1203                                                 CodeVariableReferenceExpression cter = new CodeVariableReferenceExpression ("__container");
1204                                                 CodeMethodInvokeExpression invoke = new CodeMethodInvokeExpression (cter, "FindControl");
1205                                                 invoke.Parameters.Add (new CodePrimitiveExpression (binding.ControlId));
1206
1207                                                 assign = new CodeAssignStatement ();
1208                                                 control = new CodeVariableReferenceExpression (binding.ControlId);
1209                                                 assign.Left = control;
1210                                                 assign.Right = new CodeCastExpression (binding.ControlType, invoke);
1211                                                 method.Statements.Add (assign);
1212
1213                                                 sif = new CodeConditionStatement ();
1214                                                 sif.Condition = new CodeBinaryOperatorExpression (control, CodeBinaryOperatorType.IdentityInequality, new CodePrimitiveExpression (null));
1215
1216                                                 method.Statements.Add (sif);
1217
1218                                                 hash [binding.ControlId] = sif;
1219                                         }
1220
1221                                         sif = (CodeConditionStatement) hash [binding.ControlId];
1222                                         control = new CodeVariableReferenceExpression (binding.ControlId);
1223                                         assign = new CodeAssignStatement ();
1224                                         assign.Left = new CodeIndexerExpression (tableExp, new CodePrimitiveExpression (binding.FieldName));
1225                                         assign.Right = new CodePropertyReferenceExpression (control, binding.ControlProperty);
1226                                         sif.TrueStatements.Add (assign);
1227                                 }
1228                         }
1229
1230                         method.Statements.Add (new CodeMethodReturnStatement (tableExp));
1231                         return method.Name;
1232                 }
1233
1234                 void AddContentTemplateInvocation (ContentBuilderInternal cbuilder, CodeMemberMethod method, string methodName)
1235                 {
1236                         CodeDelegateCreateExpression newBuild = new CodeDelegateCreateExpression (
1237                                 new CodeTypeReference (typeof (BuildTemplateMethod)), thisRef, methodName);
1238
1239                         CodeObjectCreateExpression newCompiled = new CodeObjectCreateExpression (typeof (CompiledTemplateBuilder));
1240                         newCompiled.Parameters.Add (newBuild);
1241                         
1242                         CodeMethodInvokeExpression invoke = new CodeMethodInvokeExpression (thisRef, "AddContentTemplate");
1243                         invoke.Parameters.Add (new CodePrimitiveExpression (cbuilder.ContentPlaceHolderID));
1244                         invoke.Parameters.Add (newCompiled);
1245
1246                         method.Statements.Add (AddLinePragma (invoke, cbuilder));
1247                 }
1248
1249                 void AddCodeRender (ControlBuilder parent, CodeRenderBuilder cr)
1250                 {
1251                         if (cr.Code == null || cr.Code.Trim () == "")
1252                                 return;
1253
1254                         if (!cr.IsAssign) {
1255                                 CodeSnippetStatement code = new CodeSnippetStatement (cr.Code);
1256                                 parent.RenderMethod.Statements.Add (AddLinePragma (code, cr));
1257                                 return;
1258                         }
1259
1260                         CodeMethodInvokeExpression expr = new CodeMethodInvokeExpression ();
1261                         expr.Method = new CodeMethodReferenceExpression (
1262                                                         new CodeArgumentReferenceExpression ("__output"),
1263                                                         "Write");
1264
1265                         expr.Parameters.Add (new CodeSnippetExpression (cr.Code));
1266                         parent.RenderMethod.Statements.Add (AddLinePragma (expr, cr));
1267                 }
1268                 
1269                 static Type GetContainerType (ControlBuilder builder)
1270                 {
1271                         return builder.BindingContainerType;
1272                 }
1273                 
1274                 CodeMemberMethod CreateDBMethod (ControlBuilder builder, string name, Type container, Type target)
1275                 {
1276                         CodeMemberMethod method = new CodeMemberMethod ();
1277                         method.Attributes = MemberAttributes.Public | MemberAttributes.Final;
1278                         method.Name = name;
1279                         method.Parameters.Add (new CodeParameterDeclarationExpression (typeof (object), "sender"));
1280                         method.Parameters.Add (new CodeParameterDeclarationExpression (typeof (EventArgs), "e"));
1281
1282                         CodeTypeReference containerRef = new CodeTypeReference (container);
1283                         CodeTypeReference targetRef = new CodeTypeReference (target);
1284
1285                         CodeVariableDeclarationStatement decl = new CodeVariableDeclarationStatement();
1286                         decl.Name = "Container";
1287                         decl.Type = containerRef;
1288                         method.Statements.Add (decl);
1289                         
1290                         decl = new CodeVariableDeclarationStatement();
1291                         decl.Name = "target";
1292                         decl.Type = targetRef;
1293                         method.Statements.Add (decl);
1294
1295                         CodeVariableReferenceExpression targetExpr = new CodeVariableReferenceExpression ("target");
1296                         CodeAssignStatement assign = new CodeAssignStatement ();
1297                         assign.Left = targetExpr;
1298                         assign.Right = new CodeCastExpression (targetRef, new CodeArgumentReferenceExpression ("sender"));
1299                         method.Statements.Add (AddLinePragma (assign, builder));
1300
1301                         assign = new CodeAssignStatement ();
1302                         assign.Left = new CodeVariableReferenceExpression ("Container");
1303                         assign.Right = new CodeCastExpression (containerRef,
1304                                                 new CodePropertyReferenceExpression (targetExpr, "BindingContainer"));
1305                         method.Statements.Add (AddLinePragma (assign, builder));
1306
1307                         return method;
1308                 }
1309
1310                 void AddDataBindingLiteral (ControlBuilder builder, DataBindingBuilder db)
1311                 {
1312                         if (db.Code == null || db.Code.Trim () == "")
1313                                 return;
1314
1315                         EnsureID (db);
1316                         CreateField (db, false);
1317
1318                         string dbMethodName = "__DataBind_" + db.ID;
1319                         // Add the method that builds the DataBoundLiteralControl
1320                         InitMethod (db, false, false);
1321                         CodeMemberMethod method = db.Method;
1322                         AddEventAssign (method, builder, "DataBinding", typeof (EventHandler), dbMethodName);
1323                         method.Statements.Add (new CodeMethodReturnStatement (ctrlVar));
1324
1325                         // Add the DataBind handler
1326                         method = CreateDBMethod (builder, dbMethodName, GetContainerType (builder), typeof (DataBoundLiteralControl));
1327                         builder.DataBindingMethod = method;
1328
1329                         CodeVariableReferenceExpression targetExpr = new CodeVariableReferenceExpression ("target");
1330                         CodeMethodInvokeExpression invoke = new CodeMethodInvokeExpression ();
1331                         invoke.Method = new CodeMethodReferenceExpression (targetExpr, "SetDataBoundString");
1332                         invoke.Parameters.Add (new CodePrimitiveExpression (0));
1333
1334                         CodeMethodInvokeExpression tostring = new CodeMethodInvokeExpression ();
1335                         tostring.Method = new CodeMethodReferenceExpression (
1336                                                         new CodeTypeReferenceExpression (typeof (Convert)),
1337                                                         "ToString");
1338                         tostring.Parameters.Add (new CodeSnippetExpression (db.Code));
1339                         invoke.Parameters.Add (tostring);
1340                         method.Statements.Add (AddLinePragma (invoke, builder));
1341                         
1342                         mainClass.Members.Add (method);
1343                         
1344                         AddChildCall (builder, db);
1345                 }
1346
1347                 void FlushText (ControlBuilder builder, StringBuilder sb)
1348                 {
1349                         if (sb.Length > 0) {
1350                                 AddLiteralSubObject (builder, sb.ToString ());
1351                                 sb.Length = 0;
1352                         }
1353                 }
1354
1355                 protected void CreateControlTree (ControlBuilder builder, bool inTemplate, bool childrenAsProperties)
1356                 {
1357                         EnsureID (builder);
1358                         bool isTemplate = (typeof (TemplateBuilder).IsAssignableFrom (builder.GetType ()));
1359                         
1360                         if (!isTemplate && !inTemplate) {
1361                                 CreateField (builder, true);
1362                         } else if (!isTemplate) {
1363                                 bool doCheck = false;                           
1364                                 bool singleInstance = false;
1365                                 ControlBuilder pb = builder.ParentBuilder;
1366                                 TemplateBuilder tpb;
1367                                 while (pb != null) {
1368                                         tpb = pb as TemplateBuilder;
1369                                         if (tpb == null) {
1370                                                 pb = pb.ParentBuilder;
1371                                                 continue;
1372                                         }
1373                                         
1374                                         if (tpb.TemplateInstance == TemplateInstance.Single)
1375                                                 singleInstance = true;
1376                                         break;
1377                                 }
1378                                 
1379                                 if (!singleInstance)
1380                                         builder.ID = builder.GetNextID (null);
1381                                 else
1382                                         doCheck = true;
1383
1384                                 CreateField (builder, doCheck);
1385                         }
1386
1387                         InitMethod (builder, isTemplate, childrenAsProperties);
1388                         if (!isTemplate || builder.GetType () == typeof (RootBuilder))
1389                                 CreateAssignStatementsFromAttributes (builder);
1390
1391                         if (builder.Children != null && builder.Children.Count > 0) {
1392                                 StringBuilder sb = new StringBuilder ();
1393                                 foreach (object b in builder.Children) {
1394                                         if (b is string) {
1395                                                 sb.Append ((string) b);
1396                                                 continue;
1397                                         }
1398
1399                                         FlushText (builder, sb);
1400                                         if (b is ObjectTagBuilder) {
1401                                                 ProcessObjectTag ((ObjectTagBuilder) b);
1402                                         } else if (b is StringPropertyBuilder) {
1403                                                 StringPropertyBuilder pb = b as StringPropertyBuilder;
1404                                                 if (pb.Children != null && pb.Children.Count > 0) {
1405                                                         StringBuilder asb = new StringBuilder ();
1406                                                         foreach (string s in pb.Children)
1407                                                                 asb.Append (s);
1408                                                         CodeMemberMethod method = builder.Method;
1409                                                         CodeAssignStatement assign = new CodeAssignStatement ();
1410                                                         assign.Left = new CodePropertyReferenceExpression (ctrlVar, pb.PropertyName);
1411                                                         assign.Right = new CodePrimitiveExpression (asb.ToString ());
1412                                                         method.Statements.Add (AddLinePragma (assign, builder));
1413                                                 }
1414                                         } else if (b is ContentBuilderInternal) {
1415                                                 ContentBuilderInternal cb = (ContentBuilderInternal) b;
1416                                                 CreateControlTree (cb, false, true);
1417                                                 AddContentTemplateInvocation (cb, builder.Method, cb.Method.Name);
1418                                                 continue;
1419                                         }
1420
1421                                         // Ignore TemplateBuilders - they are processed in InitMethod
1422                                         else if (b is TemplateBuilder) {
1423                                         } else if (b is CodeRenderBuilder) {
1424                                                 AddCodeRender (builder, (CodeRenderBuilder) b);
1425                                         } else if (b is DataBindingBuilder) {
1426                                                 AddDataBindingLiteral (builder, (DataBindingBuilder) b);
1427                                         } else if (b is ControlBuilder) {
1428                                                 ControlBuilder child = (ControlBuilder) b;
1429                                                 CreateControlTree (child, inTemplate, builder.ChildrenAsProperties);
1430                                                 AddChildCall (builder, child);
1431                                                 continue;
1432                                         } else
1433                                                 throw new Exception ("???");
1434
1435                                         ControlBuilder bldr = b as ControlBuilder;
1436                                         bldr.ProcessGeneratedCode (CompileUnit, BaseType, DerivedType, bldr.Method, bldr.DataBindingMethod);
1437                                 }
1438
1439                                 FlushText (builder, sb);
1440                         }
1441
1442                         ControlBuilder defaultPropertyBuilder = builder.DefaultPropertyBuilder;
1443                         if (defaultPropertyBuilder != null) {
1444                                 CreateControlTree (defaultPropertyBuilder, false, true);
1445                                 AddChildCall (builder, defaultPropertyBuilder);
1446                         }
1447                         
1448                         if (builder.HasAspCode) {
1449                                 CodeMemberMethod renderMethod = builder.RenderMethod;
1450                                 CodeMethodReferenceExpression m = new CodeMethodReferenceExpression ();
1451                                 m.TargetObject = thisRef;
1452                                 m.MethodName = renderMethod.Name;
1453
1454                                 CodeDelegateCreateExpression create = new CodeDelegateCreateExpression ();
1455                                 create.DelegateType = new CodeTypeReference (typeof (RenderMethod));
1456                                 create.TargetObject = thisRef;
1457                                 create.MethodName = renderMethod.Name;
1458
1459                                 CodeMethodInvokeExpression invoke = new CodeMethodInvokeExpression ();
1460                                 invoke.Method = new CodeMethodReferenceExpression (ctrlVar, "SetRenderMethodDelegate");
1461                                 invoke.Parameters.Add (create);
1462
1463                                 builder.MethodStatements.Add (invoke);
1464                         }
1465
1466                         if (builder is RootBuilder)
1467                                 if (!String.IsNullOrEmpty (parser.MetaResourceKey))
1468                                         AssignPropertiesFromResources (builder, parser.BaseType, parser.MetaResourceKey);
1469                         
1470                         if ((!isTemplate || builder is RootBuilder) && !String.IsNullOrEmpty (builder.GetAttribute ("meta:resourcekey")))
1471                                 CreateAssignStatementFromAttribute (builder, "meta:resourcekey");
1472
1473                         if (!childrenAsProperties && typeof (Control).IsAssignableFrom (builder.ControlType))
1474                                 builder.Method.Statements.Add (new CodeMethodReturnStatement (ctrlVar));
1475
1476                         builder.ProcessGeneratedCode (CompileUnit, BaseType, DerivedType, builder.Method, builder.DataBindingMethod);
1477                 }
1478
1479                 protected override void AddStatementsToConstructor (CodeConstructor ctor)
1480                 {
1481                         if (masterPageContentPlaceHolders == null || masterPageContentPlaceHolders.Count == 0)
1482                                 return;
1483                         
1484                         var ilist = new CodeVariableDeclarationStatement ();
1485                         ilist.Name = "__contentPlaceHolders";
1486                         ilist.Type = new CodeTypeReference (typeof (IList));
1487                         ilist.InitExpression = new CodePropertyReferenceExpression (thisRef, "ContentPlaceHolders");
1488                         
1489                         var ilistRef = new CodeVariableReferenceExpression ("__contentPlaceHolders");
1490                         CodeStatementCollection statements = ctor.Statements;
1491                         statements.Add (ilist);
1492
1493                         CodeMethodInvokeExpression mcall;
1494                         foreach (string id in masterPageContentPlaceHolders) {
1495                                 mcall = new CodeMethodInvokeExpression (ilistRef, "Add");
1496                                 mcall.Parameters.Add (new CodePrimitiveExpression (id.ToLowerInvariant ()));
1497                                 statements.Add (mcall);
1498                         }
1499                 }
1500                 
1501                 protected internal override void CreateMethods ()
1502                 {
1503                         base.CreateMethods ();
1504
1505                         CreateProperties ();
1506                         CreateControlTree (parser.RootBuilder, false, false);
1507                         CreateFrameworkInitializeMethod ();
1508                 }
1509
1510                 protected override void InitializeType ()
1511                 {
1512                         List <string> registeredTagNames = parser.RegisteredTagNames;
1513                         RootBuilder rb = parser.RootBuilder;
1514                         if (rb == null || registeredTagNames == null || registeredTagNames.Count == 0)
1515                                 return;
1516
1517                         AspComponent component;
1518                         foreach (string tagName in registeredTagNames) {
1519                                 component = rb.Foundry.GetComponent (tagName);
1520                                 if (component == null || component.Type == null) // unlikely
1521                                         throw new HttpException ("Custom control '" + tagName + "' cannot be found.");
1522                                 if (!(typeof (UserControl).IsAssignableFrom (component.Type)))
1523                                         throw new ParseException (parser.Location, "Type '" + component.Type.ToString () + "' does not derive from 'System.Web.UI.UserControl'.");
1524                                 AddReferencedAssembly (component.Type.Assembly);
1525                         }
1526                 }
1527                 
1528                 void CallBaseFrameworkInitialize (CodeMemberMethod method)
1529                 {
1530                         CodeBaseReferenceExpression baseRef = new CodeBaseReferenceExpression ();
1531                         CodeMethodInvokeExpression invoke = new CodeMethodInvokeExpression (baseRef, "FrameworkInitialize");
1532                         method.Statements.Add (invoke);
1533                 }
1534                 
1535                 void CallSetStringResourcePointer (CodeMemberMethod method)
1536                 {
1537                         CodeFieldReferenceExpression stringResource = GetMainClassFieldReferenceExpression ("__stringResource");
1538                         method.Statements.Add (
1539                                 new CodeMethodInvokeExpression (
1540                                         thisRef,
1541                                         "SetStringResourcePointer",
1542                                         new CodeExpression[] {stringResource, new CodePrimitiveExpression (0)})
1543                         );
1544                 }
1545                 
1546                 void CreateFrameworkInitializeMethod ()
1547                 {
1548                         CodeMemberMethod method = new CodeMemberMethod ();
1549                         method.Name = "FrameworkInitialize";
1550                         method.Attributes = MemberAttributes.Family | MemberAttributes.Override;
1551                         PrependStatementsToFrameworkInitialize (method);
1552                         CallBaseFrameworkInitialize (method);
1553                         CallSetStringResourcePointer (method);
1554                         AppendStatementsToFrameworkInitialize (method);
1555                         mainClass.Members.Add (method);
1556                 }
1557
1558                 protected virtual void PrependStatementsToFrameworkInitialize (CodeMemberMethod method)
1559                 {
1560                 }
1561
1562                 protected virtual void AppendStatementsToFrameworkInitialize (CodeMemberMethod method)
1563                 {
1564                         if (!parser.EnableViewState) {
1565                                 CodeAssignStatement stmt = new CodeAssignStatement ();
1566                                 stmt.Left = new CodePropertyReferenceExpression (thisRef, "EnableViewState");
1567                                 stmt.Right = new CodePrimitiveExpression (false);
1568                                 method.Statements.Add (stmt);
1569                         }
1570
1571                         CodeMethodReferenceExpression methodExpr;
1572                         methodExpr = new CodeMethodReferenceExpression (thisRef, "__BuildControlTree");
1573                         CodeMethodInvokeExpression expr = new CodeMethodInvokeExpression (methodExpr, thisRef);
1574                         method.Statements.Add (new CodeExpressionStatement (expr));
1575                 }
1576
1577                 protected override void AddApplicationAndSessionObjects ()
1578                 {
1579                         foreach (ObjectTagBuilder tag in GlobalAsaxCompiler.ApplicationObjects) {
1580                                 CreateFieldForObject (tag.Type, tag.ObjectID);
1581                                 CreateApplicationOrSessionPropertyForObject (tag.Type, tag.ObjectID, true, false);
1582                         }
1583
1584                         foreach (ObjectTagBuilder tag in GlobalAsaxCompiler.SessionObjects) {
1585                                 CreateApplicationOrSessionPropertyForObject (tag.Type, tag.ObjectID, false, false);
1586                         }
1587                 }
1588
1589                 protected override void CreateStaticFields ()
1590                 {
1591                         base.CreateStaticFields ();
1592
1593                         CodeMemberField fld = new CodeMemberField (typeof (object), "__stringResource");
1594                         fld.Attributes = MemberAttributes.Private | MemberAttributes.Static;
1595                         fld.InitExpression = new CodePrimitiveExpression (null);
1596                         mainClass.Members.Add (fld);
1597                 }
1598                 
1599                 protected void ProcessObjectTag (ObjectTagBuilder tag)
1600                 {
1601                         string fieldName = CreateFieldForObject (tag.Type, tag.ObjectID);
1602                         CreatePropertyForObject (tag.Type, tag.ObjectID, fieldName, false);
1603                 }
1604
1605                 void CreateProperties ()
1606                 {
1607                         if (!parser.AutoEventWireup) {
1608                                 CreateAutoEventWireup ();
1609                         } else {
1610                                 CreateAutoHandlers ();
1611                         }
1612
1613                         CreateApplicationInstance ();
1614                 }
1615                 
1616                 void CreateApplicationInstance ()
1617                 {
1618                         CodeMemberProperty prop = new CodeMemberProperty ();
1619                         Type appType = typeof (HttpApplication);
1620                         prop.Type = new CodeTypeReference (appType);
1621                         prop.Name = "ApplicationInstance";
1622                         prop.Attributes = MemberAttributes.Family | MemberAttributes.Final;
1623
1624                         CodePropertyReferenceExpression propRef = new CodePropertyReferenceExpression (thisRef, "Context");
1625
1626                         propRef = new CodePropertyReferenceExpression (propRef, "ApplicationInstance");
1627
1628                         CodeCastExpression cast = new CodeCastExpression (appType.FullName, propRef);
1629                         prop.GetStatements.Add (new CodeMethodReturnStatement (cast));
1630                         if (partialClass != null)
1631                                 partialClass.Members.Add (prop);
1632                         else
1633                                 mainClass.Members.Add (prop);
1634                 }
1635
1636                 void CreateContentPlaceHolderTemplateProperty (string backingField, string name)
1637                 {
1638                         CodeMemberProperty prop = new CodeMemberProperty ();
1639                         prop.Type = new CodeTypeReference (typeof (ITemplate));
1640                         prop.Name = name;
1641                         prop.Attributes = MemberAttributes.Public;
1642
1643                         var ret = new CodeMethodReturnStatement ();
1644                         var fldRef = new CodeFieldReferenceExpression (thisRef, backingField);
1645                         ret.Expression = fldRef;
1646                         prop.GetStatements.Add (ret);
1647                         prop.SetStatements.Add (new CodeAssignStatement (fldRef, new CodePropertySetValueReferenceExpression ()));
1648
1649                         prop.CustomAttributes.Add (new CodeAttributeDeclaration ("TemplateContainer", new CodeAttributeArgument [] {
1650                                                 new CodeAttributeArgument (new CodeTypeOfExpression (new CodeTypeReference (typeof (MasterPage))))
1651                                         }
1652                                 )
1653                         );
1654
1655                         var enumValueRef = new CodeFieldReferenceExpression (new CodeTypeReferenceExpression (typeof (TemplateInstance)), "Single");
1656                         prop.CustomAttributes.Add (new CodeAttributeDeclaration ("TemplateInstanceAttribute", new CodeAttributeArgument [] {
1657                                                 new CodeAttributeArgument (enumValueRef)
1658                                         }
1659                                 )
1660                         );
1661
1662                         mainClass.Members.Add (prop);
1663                 }
1664                 
1665                 void CreateAutoHandlers ()
1666                 {
1667                         // Create AutoHandlers property
1668                         CodeMemberProperty prop = new CodeMemberProperty ();
1669                         prop.Type = new CodeTypeReference (typeof (int));
1670                         prop.Name = "AutoHandlers";
1671                         prop.Attributes = MemberAttributes.Family | MemberAttributes.Override;
1672                         
1673                         CodeMethodReturnStatement ret = new CodeMethodReturnStatement ();
1674                         CodeFieldReferenceExpression fldRef ;
1675                         fldRef = new CodeFieldReferenceExpression (mainClassExpr, "__autoHandlers");
1676                         ret.Expression = fldRef;
1677                         prop.GetStatements.Add (ret);
1678                         prop.SetStatements.Add (new CodeAssignStatement (fldRef, new CodePropertySetValueReferenceExpression ()));
1679
1680                         CodeAttributeDeclaration attr = new CodeAttributeDeclaration ("System.Obsolete");
1681                         prop.CustomAttributes.Add (attr);                       
1682                         mainClass.Members.Add (prop);
1683
1684                         // Add the __autoHandlers field
1685                         CodeMemberField fld = new CodeMemberField (typeof (int), "__autoHandlers");
1686                         fld.Attributes = MemberAttributes.Private | MemberAttributes.Static;
1687                         mainClass.Members.Add (fld);
1688                 }
1689
1690                 void CreateAutoEventWireup ()
1691                 {
1692                         // The getter returns false
1693                         CodeMemberProperty prop = new CodeMemberProperty ();
1694                         prop.Type = new CodeTypeReference (typeof (bool));
1695                         prop.Name = "SupportAutoEvents";
1696                         prop.Attributes = MemberAttributes.Family | MemberAttributes.Override;
1697                         prop.GetStatements.Add (new CodeMethodReturnStatement (new CodePrimitiveExpression (false)));
1698                         mainClass.Members.Add (prop);
1699                 }
1700
1701                 protected virtual string HandleUrlProperty (string str, MemberInfo member)
1702                 {
1703                         return str;
1704                 }
1705
1706                 TypeConverter GetConverterForMember (MemberInfo member)
1707                 {
1708                         TypeDescriptionProvider prov = TypeDescriptor.GetProvider (member.ReflectedType);
1709                         if (prov == null)
1710                                 return null;
1711
1712                         ICustomTypeDescriptor desc = prov.GetTypeDescriptor (member.ReflectedType);
1713                         PropertyDescriptorCollection coll = desc != null ? desc.GetProperties () : null;
1714
1715                         if (coll == null || coll.Count == 0)
1716                                 return null;
1717
1718                         PropertyDescriptor pd = coll.Find (member.Name, false);
1719                         if (pd == null)
1720                                 return null;
1721
1722                         return pd.Converter;
1723                 }
1724                 
1725                 CodeExpression CreateNullableExpression (Type type, CodeExpression inst, bool nullable)
1726                 {
1727                         if (!nullable)
1728                                 return inst;
1729                         
1730                         return new CodeObjectCreateExpression (type, new CodeExpression[] {inst});
1731                 }
1732
1733                 bool SafeCanConvertFrom (Type type, TypeConverter cvt)
1734                 {
1735                         try {
1736                                 return cvt.CanConvertFrom (type);
1737                         } catch (NotImplementedException) {
1738                                 return false;
1739                         }
1740                 }
1741
1742                 bool SafeCanConvertTo (Type type, TypeConverter cvt)
1743                 {
1744                         try {
1745                                 return cvt.CanConvertTo (type);
1746                         } catch (NotImplementedException) {
1747                                 return false;
1748                         }
1749                 }
1750                 
1751                 CodeExpression GetExpressionFromString (Type type, string str, MemberInfo member)
1752                 {
1753                         TypeConverter cvt = GetConverterForMember (member);
1754                         if (cvt != null && !SafeCanConvertFrom (typeof (string), cvt))
1755                                 cvt = null;
1756                         
1757                         object convertedFromAttr = null;
1758                         bool preConverted = false;
1759                         if (cvt != null && str != null) {
1760                                 convertedFromAttr = cvt.ConvertFromInvariantString (str);
1761                                 if (convertedFromAttr != null) {
1762                                         type = convertedFromAttr.GetType ();
1763                                         preConverted = true;
1764                                 }
1765                         }
1766
1767                         bool wasNullable = false;
1768                         Type originalType = type;
1769
1770                         if (type.IsGenericType && type.GetGenericTypeDefinition() == typeof(Nullable<>)) {
1771                                 Type[] types = type.GetGenericArguments();
1772                                 originalType = type;
1773                                 type = types[0]; // we're interested only in the first type here
1774                                 wasNullable = true;
1775                         }
1776
1777                         if (type == typeof (string)) {
1778                                 object[] urlAttr = member.GetCustomAttributes (typeof (UrlPropertyAttribute), true);
1779                                 if (urlAttr.Length != 0)
1780                                         str = HandleUrlProperty ((preConverted && convertedFromAttr is string) ? (string)convertedFromAttr : str, member);
1781                                 else if (preConverted)
1782                                         return CreateNullableExpression (originalType,
1783                                                                          new CodePrimitiveExpression ((string) convertedFromAttr),
1784                                                                          wasNullable);
1785
1786                                 return CreateNullableExpression (originalType, new CodePrimitiveExpression (str), wasNullable);
1787                         } else if (type == typeof (bool)) {
1788                                 if (preConverted)
1789                                         return CreateNullableExpression (originalType,
1790                                                                          new CodePrimitiveExpression ((bool) convertedFromAttr),
1791                                                                          wasNullable);
1792                                 
1793                                 if (str == null || str == "" || InvariantCompareNoCase (str, "true"))
1794                                         return CreateNullableExpression (originalType, new CodePrimitiveExpression (true), wasNullable);
1795                                 else if (InvariantCompareNoCase (str, "false"))
1796                                         return CreateNullableExpression (originalType, new CodePrimitiveExpression (false), wasNullable);
1797                                 else if (wasNullable && InvariantCompareNoCase(str, "null"))
1798                                         return new CodePrimitiveExpression (null);
1799                                 else
1800                                         throw new ParseException (currentLocation,
1801                                                         "Value '" + str  + "' is not a valid boolean.");
1802                         } else if (type == monoTypeType)
1803                                 type = typeof (System.Type);
1804                         
1805                         if (str == null)
1806                                 return new CodePrimitiveExpression (null);
1807
1808                         if (type.IsPrimitive)
1809                                 return CreateNullableExpression (originalType,
1810                                                                  new CodePrimitiveExpression (
1811                                                                          Convert.ChangeType (preConverted ? convertedFromAttr : str,
1812                                                                                              type, Helpers.InvariantCulture)),
1813                                                                  wasNullable);
1814
1815                         if (type == typeof (string [])) {
1816                                 string [] subs;
1817
1818                                 if (preConverted)
1819                                         subs = (string[])convertedFromAttr;
1820                                 else
1821                                         subs = str.Split (',');
1822                                 CodeArrayCreateExpression expr = new CodeArrayCreateExpression ();
1823                                 expr.CreateType = new CodeTypeReference (typeof (string));
1824                                 foreach (string v in subs)
1825                                         expr.Initializers.Add (new CodePrimitiveExpression (v.Trim ()));
1826
1827                                 return CreateNullableExpression (originalType, expr, wasNullable);
1828                         }
1829                         
1830                         if (type == typeof (Color)) {
1831                                 Color c;
1832                                 
1833                                 if (!preConverted) {
1834                                         if (colorConverter == null)
1835                                                 colorConverter = TypeDescriptor.GetConverter (typeof (Color));
1836                                 
1837                                         if (str.Trim().Length == 0) {
1838                                                 CodeTypeReferenceExpression ft = new CodeTypeReferenceExpression (typeof (Color));
1839                                                 return CreateNullableExpression (originalType,
1840                                                                                  new CodeFieldReferenceExpression (ft, "Empty"),
1841                                                                                  wasNullable);
1842                                         }
1843
1844                                         try {
1845                                                 if (str.IndexOf (',') == -1) {
1846                                                         c = (Color) colorConverter.ConvertFromString (str);
1847                                                 } else {
1848                                                         int [] argb = new int [4];
1849                                                         argb [0] = 255;
1850
1851                                                         string [] parts = str.Split (',');
1852                                                         int length = parts.Length;
1853                                                         if (length < 3)
1854                                                                 throw new Exception ();
1855
1856                                                         int basei = (length == 4) ? 0 : 1;
1857                                                         for (int i = length - 1; i >= 0; i--) {
1858                                                                 argb [basei + i] = (int) Byte.Parse (parts [i]);
1859                                                         }
1860                                                         c = Color.FromArgb (argb [0], argb [1], argb [2], argb [3]);
1861                                                 }
1862                                         } catch (Exception e) {
1863                                                 // Hack: "LightGrey" is accepted, but only for ASP.NET, as the
1864                                                 // TypeConverter for Color fails to ConvertFromString.
1865                                                 // Hence this hack...
1866                                                 if (InvariantCompareNoCase ("LightGrey", str)) {
1867                                                         c = Color.LightGray;
1868                                                 } else {
1869                                                         throw new ParseException (currentLocation,
1870                                                                                   "Color " + str + " is not a valid color.", e);
1871                                                 }
1872                                         }
1873                                 } else
1874                                         c = (Color)convertedFromAttr;
1875                                 
1876                                 if (c.IsKnownColor) {
1877                                         CodeFieldReferenceExpression expr = new CodeFieldReferenceExpression ();
1878                                         if (c.IsSystemColor)
1879                                                 type = typeof (SystemColors);
1880
1881                                         expr.TargetObject = new CodeTypeReferenceExpression (type);
1882                                         expr.FieldName = c.Name;
1883                                         return CreateNullableExpression (originalType, expr, wasNullable);
1884                                 } else {
1885                                         CodeMethodReferenceExpression m = new CodeMethodReferenceExpression ();
1886                                         m.TargetObject = new CodeTypeReferenceExpression (type);
1887                                         m.MethodName = "FromArgb";
1888                                         CodeMethodInvokeExpression invoke = new CodeMethodInvokeExpression (m);
1889                                         invoke.Parameters.Add (new CodePrimitiveExpression (c.A));
1890                                         invoke.Parameters.Add (new CodePrimitiveExpression (c.R));
1891                                         invoke.Parameters.Add (new CodePrimitiveExpression (c.G));
1892                                         invoke.Parameters.Add (new CodePrimitiveExpression (c.B));
1893                                         return CreateNullableExpression (originalType, invoke, wasNullable);
1894                                 }
1895                         }
1896
1897                         TypeConverter converter = preConverted ? cvt : wasNullable ? TypeDescriptor.GetConverter (type) : null;
1898                         if (converter == null) {
1899                                 PropertyDescriptor pdesc = TypeDescriptor.GetProperties (member.DeclaringType) [member.Name];
1900                                 if (pdesc != null)
1901                                         converter = pdesc.Converter;
1902                                 else {
1903                                         Type memberType;
1904                                         switch (member.MemberType) {
1905                                                 case MemberTypes.Field:
1906                                                         memberType = ((FieldInfo)member).FieldType;
1907                                                         break;
1908
1909                                                 case MemberTypes.Property:
1910                                                         memberType = ((PropertyInfo)member).PropertyType;
1911                                                         break;
1912
1913                                                 default:
1914                                                         memberType = null;
1915                                                         break;
1916                                         }
1917
1918                                         if (memberType == null)
1919                                                 return null;
1920
1921                                         converter = TypeDescriptor.GetConverter (memberType);
1922                                 }
1923                         }
1924                         
1925                         if (preConverted || (converter != null && SafeCanConvertFrom (typeof (string), converter))) {
1926                                 object value = preConverted ? convertedFromAttr : converter.ConvertFromInvariantString (str);
1927
1928                                 if (SafeCanConvertTo (typeof (InstanceDescriptor), converter)) {
1929                                         InstanceDescriptor idesc = (InstanceDescriptor) converter.ConvertTo (value, typeof(InstanceDescriptor));
1930                                         if (wasNullable)
1931                                                 return CreateNullableExpression (originalType, GenerateInstance (idesc, true),
1932                                                                                  wasNullable);
1933
1934                                         CodeExpression instance = GenerateInstance (idesc, true);
1935                                         if (type.IsPublic)
1936                                                 return new CodeCastExpression (type, instance);
1937                                         else
1938                                                 return instance;
1939                                 }
1940
1941                                 CodeExpression exp = GenerateObjectInstance (value, false);
1942                                 if (exp != null)
1943                                         return CreateNullableExpression (originalType, exp, wasNullable);
1944                                 
1945                                 CodeMethodReferenceExpression m = new CodeMethodReferenceExpression ();
1946                                 m.TargetObject = new CodeTypeReferenceExpression (typeof (TypeDescriptor));
1947                                 m.MethodName = "GetConverter";
1948                                 CodeMethodInvokeExpression invoke = new CodeMethodInvokeExpression (m);
1949                                 CodeTypeReference tref = new CodeTypeReference (type);
1950                                 invoke.Parameters.Add (new CodeTypeOfExpression (tref));
1951                                 
1952                                 invoke = new CodeMethodInvokeExpression (invoke, "ConvertFrom");
1953                                 invoke.Parameters.Add (new CodePrimitiveExpression (str));
1954
1955                                 if (wasNullable)
1956                                         return CreateNullableExpression (originalType, invoke, wasNullable);
1957
1958                                 return new CodeCastExpression (type, invoke);
1959                         }
1960
1961                         Console.WriteLine ("Unknown type: " + type + " value: " + str);
1962                         
1963                         return CreateNullableExpression (originalType, new CodePrimitiveExpression (str), wasNullable);
1964                 }
1965                 
1966                 CodeExpression GenerateInstance (InstanceDescriptor idesc, bool throwOnError)
1967                 {
1968                         CodeExpression[] parameters = new CodeExpression [idesc.Arguments.Count];
1969                         int n = 0;
1970                         foreach (object ob in idesc.Arguments) {
1971                                 CodeExpression exp = GenerateObjectInstance (ob, throwOnError);
1972                                 if (exp == null) return null;
1973                                 parameters [n++] = exp;
1974                         }
1975                         
1976                         switch (idesc.MemberInfo.MemberType) {
1977                         case MemberTypes.Constructor:
1978                                 CodeTypeReference tob = new CodeTypeReference (idesc.MemberInfo.DeclaringType);
1979                                 return new CodeObjectCreateExpression (tob, parameters);
1980
1981                         case MemberTypes.Method:
1982                                 CodeTypeReferenceExpression mt = new CodeTypeReferenceExpression (idesc.MemberInfo.DeclaringType);
1983                                 return new CodeMethodInvokeExpression (mt, idesc.MemberInfo.Name, parameters);
1984
1985                         case MemberTypes.Field:
1986                                 CodeTypeReferenceExpression ft = new CodeTypeReferenceExpression (idesc.MemberInfo.DeclaringType);
1987                                 return new CodeFieldReferenceExpression (ft, idesc.MemberInfo.Name);
1988
1989                         case MemberTypes.Property:
1990                                 CodeTypeReferenceExpression pt = new CodeTypeReferenceExpression (idesc.MemberInfo.DeclaringType);
1991                                 return new CodePropertyReferenceExpression (pt, idesc.MemberInfo.Name);
1992                         }
1993                         throw new ParseException (currentLocation, "Invalid instance type.");
1994                 }
1995                 
1996                 CodeExpression GenerateObjectInstance (object value, bool throwOnError)
1997                 {
1998                         if (value == null)
1999                                 return new CodePrimitiveExpression (null);
2000
2001                         if (value is System.Type) {
2002                                 CodeTypeReference tref = new CodeTypeReference (value.ToString ());
2003                                 return new CodeTypeOfExpression (tref);
2004                         }
2005                         
2006                         Type t = value.GetType ();
2007
2008                         if (t.IsPrimitive || value is string)
2009                                 return new CodePrimitiveExpression (value);
2010                         
2011                         if (t.IsArray) {
2012                                 Array ar = (Array) value;
2013                                 CodeExpression[] items = new CodeExpression [ar.Length];
2014                                 for (int n=0; n<ar.Length; n++) {
2015                                         CodeExpression exp = GenerateObjectInstance (ar.GetValue (n), throwOnError);
2016                                         if (exp == null) return null; 
2017                                         items [n] = exp;
2018                                 }
2019                                 return new CodeArrayCreateExpression (new CodeTypeReference (t), items);
2020                         }
2021                         
2022                         TypeConverter converter = TypeDescriptor.GetConverter (t);
2023                         if (converter != null && converter.CanConvertTo (typeof (InstanceDescriptor))) {
2024                                 InstanceDescriptor idesc = (InstanceDescriptor) converter.ConvertTo (value, typeof(InstanceDescriptor));
2025                                 return GenerateInstance (idesc, throwOnError);
2026                         }
2027                         
2028                         InstanceDescriptor desc = GetDefaultInstanceDescriptor (value);
2029                         if (desc != null) return GenerateInstance (desc, throwOnError);
2030                         
2031                         if (throwOnError)
2032                                 throw new ParseException (currentLocation, "Cannot generate an instance for the type: " + t);
2033                         else
2034                                 return null;
2035                 }
2036                 
2037                 InstanceDescriptor GetDefaultInstanceDescriptor (object value)
2038                 {
2039                         if (value is System.Web.UI.WebControls.Unit) {
2040                                 System.Web.UI.WebControls.Unit s = (System.Web.UI.WebControls.Unit) value;
2041                                 if (s.IsEmpty) {
2042                                         FieldInfo f = typeof (Unit).GetField ("Empty");
2043                                         return new InstanceDescriptor (f, null);
2044                                 }
2045                                 ConstructorInfo c = typeof(System.Web.UI.WebControls.Unit).GetConstructor (
2046                                         BindingFlags.Instance | BindingFlags.Public,
2047                                         null,
2048                                         new Type[] {typeof(double), typeof(System.Web.UI.WebControls.UnitType)},
2049                                         null);
2050                                 
2051                                 return new InstanceDescriptor (c, new object[] {s.Value, s.Type});
2052                         }
2053                         
2054                         if (value is System.Web.UI.WebControls.FontUnit) {
2055                                 System.Web.UI.WebControls.FontUnit s = (System.Web.UI.WebControls.FontUnit) value;
2056                                 if (s.IsEmpty) {
2057                                         FieldInfo f = typeof (FontUnit).GetField ("Empty");
2058                                         return new InstanceDescriptor (f, null);
2059                                 }
2060
2061                                 Type cParamType = null;
2062                                 object cParam = null;
2063
2064                                 switch (s.Type) {
2065                                         case FontSize.AsUnit:
2066                                         case FontSize.NotSet:
2067                                                 cParamType = typeof (System.Web.UI.WebControls.Unit);
2068                                                 cParam = s.Unit;
2069                                                 break;
2070
2071                                         default:
2072                                                 cParamType = typeof (string);
2073                                                 cParam = s.Type.ToString ();
2074                                                 break;
2075                                 }
2076                                 
2077                                 ConstructorInfo c = typeof(System.Web.UI.WebControls.FontUnit).GetConstructor (
2078                                         BindingFlags.Instance | BindingFlags.Public,
2079                                         null,
2080                                         new Type[] {cParamType},
2081                                         null);
2082                                 if (c != null)
2083                                         return new InstanceDescriptor (c, new object[] {cParam});
2084                         }
2085                         return null;
2086                 }
2087
2088 #if DEBUG
2089                 CodeMethodInvokeExpression CreateConsoleWriteLineCall (string format, params CodeExpression[] parms)
2090                 {
2091                         CodeMethodReferenceExpression cwl = new CodeMethodReferenceExpression (new CodeTypeReferenceExpression (typeof (System.Console)), "WriteLine");
2092                         CodeMethodInvokeExpression cwlCall = new CodeMethodInvokeExpression (cwl);
2093
2094                         cwlCall.Parameters.Add (new CodePrimitiveExpression (format));
2095                         if (parms != null && parms.Length > 0)
2096                                 foreach (CodeExpression expr in parms)
2097                                         cwlCall.Parameters.Add (expr);
2098
2099                         return cwlCall;
2100                 }
2101 #endif
2102         }
2103 }
2104
2105
2106