protected override void ShallowCopyFrom(XObject copyFrom)
{
base.ShallowCopyFrom(copyFrom);
WebFormsDirective copyFromEl = (WebFormsDirective)copyFrom;
name = copyFromEl.name; //XName is immutable value type
}
public override XmlParserState PushChar (char c, IXmlParserContext context, ref string rollback)
{
var directive = context.Nodes.Peek () as WebFormsDirective;
if (directive == null || directive.IsComplete) {
directive = new WebFormsDirective (context.LocationMinus (4)); // 4 == <%@ + current char
context.Nodes.Push (directive);
}
if (c == '<') {
context.LogError ("Unexpected '<' in directive.");
rollback = string.Empty;
return Parent;
}
Debug.Assert (!directive.IsComplete);
if (context.StateTag != ENDING && c == '%') {
context.StateTag = ENDING;
return null;
}
if (context.StateTag == ENDING) {
if (c == '>') {
//have already checked that directive is not null, i.e. top of stack is our directive
context.Nodes.Pop ();
if (!directive.IsNamed) {
context.LogError ("Directive closed prematurely.");
} else {
directive.End (context.Location);
if (context.BuildTree) {
var container = (XContainer)context.Nodes.Peek ();
container.AddChildNode (directive);
}
}
return Parent;
}
//ending but not '>'? Error; go to end.
} else if (char.IsLetter (c)) {
rollback = string.Empty;
if (!directive.IsNamed) {
return NameState;
} else {
return AttributeState;
}
} else if (char.IsWhiteSpace (c))
return null;
rollback = string.Empty;
context.LogError ("Unexpected character '" + c + "' in tag.");
return Parent;
}
void HandleDirective (WebFormsDirective directive, List<Error> errors)
{
switch (directive.Name.Name.ToLowerInvariant ()) {
case "page":
MasterPageFile = GetAttributeValueCI (directive.Attributes, "masterpagefile");
SetSubtype (WebSubtype.WebForm, directive, errors);
break;
case "control":
SetSubtype (WebSubtype.WebControl, directive, errors);
break;
case "webservice":
SetSubtype (WebSubtype.WebService, directive, errors);
break;
case "webhandler":
SetSubtype (WebSubtype.WebHandler, directive, errors);
break;
case "application":
SetSubtype (WebSubtype.Global, directive, errors);
break;
case "master":
SetSubtype (WebSubtype.MasterPage, directive, errors);
break;
case "mastertype":
if (MasterPageTypeVPath != null || MasterPageTypeName != null) {
errors.Add (new Error (ErrorType.Error, GettextCatalog.GetString ("Unexpected second mastertype directive"), directive.Region));
return;
}
MasterPageTypeName = GetAttributeValueCI (directive.Attributes, "typename");
MasterPageTypeVPath = GetAttributeValueCI (directive.Attributes, "virtualpath");
if (string.IsNullOrEmpty (MasterPageTypeName) == string.IsNullOrEmpty (MasterPageTypeVPath))
errors.Add (new Error (
ErrorType.Error,
GettextCatalog.GetString ("Mastertype directive must have non-empty 'typename' or 'virtualpath' attribute"),
directive.Region
)
);
break;
case "register":
string tagPrefix = GetAttributeValueCI (directive.Attributes, "tagprefix");
string tagName = GetAttributeValueCI (directive.Attributes, "tagname");
string src = GetAttributeValueCI (directive.Attributes, "src");
string nspace = GetAttributeValueCI (directive.Attributes, "namespace");
string assembly = GetAttributeValueCI (directive.Attributes, "assembly");
if (!string.IsNullOrEmpty (tagPrefix)) {
if (!string.IsNullOrEmpty (tagName) && !string.IsNullOrEmpty (src))
registeredTags.Add (new ControlRegisterDirective (tagPrefix, tagName, src));
else if (!string.IsNullOrEmpty (nspace) && !string.IsNullOrEmpty (assembly))
registeredTags.Add (new AssemblyRegisterDirective (tagPrefix, nspace, assembly));
}
break;
case "assembly":
var assm = new AssemblyDirective (
GetAttributeValueCI (directive.Attributes, "name"),
GetAttributeValueCI (directive.Attributes, "src"));
if (assm.IsValid ())
assemblies.Add (assm);
else
errors.Add (new Error (
ErrorType.Error,
GettextCatalog.GetString ("Assembly directive must have non-empty 'name' or 'src' attribute"),
directive.Region
)
);
break;
case "import":
string ns = GetAttributeValueCI (directive.Attributes, "namespace");
if (!string.IsNullOrEmpty (ns))
imports.Add (ns);
else
errors.Add (new Error (
ErrorType.Error,
GettextCatalog.GetString ("Import directive must have non-empty 'namespace' attribute"),
directive.Region
)
);
break;
case "implements":
string interf = GetAttributeValueCI (directive.Attributes, "interface");
if (!string.IsNullOrEmpty (interf))
implements.Add (interf);
else
errors.Add (new Error (
ErrorType.Error,
GettextCatalog.GetString ("Implements directive must have non-empty 'interface' attribute"),
directive.Region
)
);
break;
default:
break;
}
}
void SetSubtype (WebSubtype type, WebFormsDirective directive, List<Error> errors)
{
if (Subtype != WebSubtype.None) {
errors.Add (new Error (ErrorType.Error, GettextCatalog.GetString ("Unexpected directive {0}", directive.Name.FullName), directive.Region));
return;
}
Subtype = type;
InheritedClass = GetAttributeValueCI (directive.Attributes, "inherits");
if (ClassName == null)
ClassName = GetAttributeValueCI (directive.Attributes, "classname");
CodeBehindFile = GetAttributeValueCI (directive.Attributes, "codebehind");
Language = GetAttributeValueCI (directive.Attributes, "language");
CodeFile = GetAttributeValueCI (directive.Attributes, "codefile");
}
