//
// (C) 2002,2003 Ximian, Inc. (http://www.ximian.com)
//
+
+//
+// Permission is hereby granted, free of charge, to any person obtaining
+// a copy of this software and associated documentation files (the
+// "Software"), to deal in the Software without restriction, including
+// without limitation the rights to use, copy, modify, merge, publish,
+// distribute, sublicense, and/or sell copies of the Software, and to
+// permit persons to whom the Software is furnished to do so, subject to
+// the following conditions:
+//
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Software.
+//
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
using System;
using System.CodeDom.Compiler;
using System.Collections;
using System.Reflection;
using System.Web;
using System.Web.Compilation;
+using System.Web.Configuration;
using System.Web.Util;
namespace System.Web.UI
bool debug;
string compilerOptions;
string language;
-
- public TemplateParser ()
+ bool strictOn = false;
+ bool explicitOn = false;
+ bool output_cache;
+ int oc_duration;
+ string oc_header, oc_custom, oc_param, oc_controls;
+ bool oc_shared;
+ OutputCacheLocation oc_location;
+ Assembly srcAssembly;
+ int appAssemblyIndex = -1;
+
+ internal TemplateParser ()
{
imports = new ArrayList ();
imports.Add ("System");
imports.Add ("System.Web.UI.HtmlControls");
assemblies = new ArrayList ();
- assemblies.Add ("System.dll");
- assemblies.Add ("System.Drawing.dll");
- assemblies.Add ("System.Data.dll");
- assemblies.Add ("System.Web.dll");
- assemblies.Add ("System.Xml.dll");
- AddAssembliesInBin ();
+ assemblies.AddRange (CompilationConfig.Assemblies);
+ if (CompilationConfig.AssembliesInBin)
+ AddAssembliesInBin ();
+
+ language = CompilationConfig.DefaultLanguage;
+ }
+
+ internal void AddApplicationAssembly ()
+ {
+ string location = Context.ApplicationInstance.AssemblyLocation;
+ if (location != typeof (TemplateParser).Assembly.Location) {
+ appAssemblyIndex = assemblies.Add (location);
+ }
}
protected abstract Type CompileIntoType ();
- protected virtual void HandleOptions (object obj)
+ internal virtual void HandleOptions (object obj)
{
}
return;
}
+ cmp = String.Compare ("OutputCache", directive, true);
+ if (cmp == 0) {
+ output_cache = true;
+
+ if (atts ["Duration"] == null)
+ ThrowParseException ("The directive is missing a 'duration' attribute.");
+ if (atts ["VaryByParam"] == null)
+ ThrowParseException ("This directive is missing a 'VaryByParam' " +
+ "attribute, which should be set to \"none\", \"*\", " +
+ "or a list of name/value pairs.");
+
+ foreach (DictionaryEntry entry in atts) {
+ string key = (string) entry.Key;
+ switch (key.ToLower ()) {
+ case "duration":
+ oc_duration = Int32.Parse ((string) entry.Value);
+ if (oc_duration < 1)
+ ThrowParseException ("The 'duration' attribute must be set " +
+ "to a positive integer value");
+ break;
+ case "varybyparam":
+ oc_param = (string) entry.Value;
+ if (String.Compare (oc_param, "none") == 0)
+ oc_param = null;
+ break;
+ case "varybyheader":
+ oc_header = (string) entry.Value;
+ break;
+ case "varybycustom":
+ oc_custom = (string) entry.Value;
+ break;
+ case "location":
+ if (!(this is PageParser))
+ goto default;
+
+ try {
+ oc_location = (OutputCacheLocation) Enum.Parse (
+ typeof (OutputCacheLocation), (string) entry.Value, true);
+ } catch {
+ ThrowParseException ("The 'location' attribute is case sensitive and " +
+ "must be one of the following values: Any, Client, " +
+ "Downstream, Server, None, ServerAndClient.");
+ }
+ break;
+ case "varybycontrol":
+ if (this is PageParser)
+ goto default;
+
+ oc_controls = (string) entry.Value;
+ break;
+ case "shared":
+ if (this is PageParser)
+ goto default;
+
+ try {
+ oc_shared = Boolean.Parse ((string) entry.Value);
+ } catch {
+ ThrowParseException ("The 'shared' attribute is case sensitive" +
+ " and must be set to 'true' or 'false'.");
+ }
+ break;
+ default:
+ ThrowParseException ("The '" + key + "' attribute is not " +
+ "supported by the 'Outputcache' directive.");
+ break;
+ }
+
+ }
+
+ return;
+ }
+
ThrowParseException ("Unknown directive: " + directive);
}
-
+
internal Type LoadType (string typeName)
{
// First try loaded assemblies, then try assemblies in Bin directory.
- // By now i do this 'by hand' but may be this is a runtime/gac task.
Type type = null;
+ bool seenBin = false;
Assembly [] assemblies = AppDomain.CurrentDomain.GetAssemblies ();
foreach (Assembly ass in assemblies) {
type = ass.GetType (typeName);
- if (type != null) {
+ if (type == null)
+ continue;
+
+ if (Path.GetDirectoryName (ass.Location) != PrivateBinPath) {
AddAssembly (ass, false);
- AddDependency (ass.Location);
- return type;
+ } else {
+ seenBin = true;
}
+
+ AddDependency (ass.Location);
+ return type;
}
- return null;
- }
+ if (seenBin)
+ return null;
- void AddAssembliesInBin ()
- {
+ // Load from bin
if (!Directory.Exists (PrivateBinPath))
- return;
+ return null;
string [] binDlls = Directory.GetFiles (PrivateBinPath, "*.dll");
- foreach (string dll in binDlls) {
- Assembly assembly = Assembly.LoadFrom (dll);
- AddAssembly (assembly, true);
+ foreach (string s in binDlls) {
+ Assembly binA = Assembly.LoadFrom (s);
+ type = binA.GetType (typeName);
+ if (type == null)
+ continue;
+
+ AddDependency (binA.Location);
+ return type;
}
+
+ return null;
}
- Assembly LoadAssemblyFromBin (string name)
+ void AddAssembliesInBin ()
{
- Assembly assembly;
if (!Directory.Exists (PrivateBinPath))
- return null;
+ return;
string [] binDlls = Directory.GetFiles (PrivateBinPath, "*.dll");
- foreach (string dll in binDlls) {
- string fn = Path.GetFileName (dll);
- fn = Path.ChangeExtension (fn, null);
- if (fn != name)
- continue;
-
- assembly = Assembly.LoadFrom (dll);
- return assembly;
+ foreach (string s in binDlls) {
+ assemblies.Add (s);
}
-
- return null;
}
internal virtual void AddInterface (string iface)
return (Assembly) o;
}
- bool fullpath = true;
- Assembly assembly = LoadAssemblyFromBin (name);
- if (assembly != null) {
- AddAssembly (assembly, fullpath);
- return assembly;
- }
-
+ bool fullpath = false;
+ Assembly assembly = null;
try {
assembly = Assembly.Load (name);
string loc = assembly.Location;
{
atts.Remove ("Description"); // ignored
atts.Remove ("CodeBehind"); // ignored
+ atts.Remove ("AspCompat"); // ignored
debug = GetBool (atts, "Debug", true);
- compilerOptions = GetString (atts, "CompilerOptions", null);
- language = GetString (atts, "Language", "C#");
- if (String.Compare (language, "c#", true) != 0)
- ThrowParseException ("Only C# supported.");
-
+ compilerOptions = GetString (atts, "CompilerOptions", "");
+ language = GetString (atts, "Language", CompilationConfig.DefaultLanguage);
+ strictOn = GetBool (atts, "Strict", CompilationConfig.Strict);
+ explicitOn = GetBool (atts, "Explicit", CompilationConfig.Explicit);
string src = GetString (atts, "Src", null);
- Assembly srcAssembly = null;
if (src != null)
srcAssembly = GetAssemblyFromSource (src);
string inherits = GetString (atts, "Inherits", null);
- if (inherits != null) {
- Type parent;
- if (srcAssembly != null)
- parent = srcAssembly.GetType (inherits);
- else
- parent = LoadType (inherits);
-
- if (parent == null)
- ThrowParseException ("Cannot find type " + inherits);
-
- if (!DefaultBaseType.IsAssignableFrom (parent))
- ThrowParseException ("The parent type does not derive from " + DefaultBaseType);
-
- baseType = parent;
- }
+ if (inherits != null)
+ SetBaseType (inherits);
className = GetString (atts, "ClassName", null);
+ if (className != null && !CodeGenerator.IsValidLanguageIndependentIdentifier (className))
+ ThrowParseException (String.Format ("'{0}' is not valid for 'className'", className));
+
if (atts.Count > 0)
ThrowParseException ("Unknown attribute: " + GetOneKey (atts));
}
+ internal void SetBaseType (string type)
+ {
+ if (type == DefaultBaseTypeName)
+ return;
+
+ Type parent = null;
+ if (srcAssembly != null)
+ parent = srcAssembly.GetType (type);
+
+ if (parent == null)
+ parent = LoadType (type);
+
+ if (parent == null)
+ ThrowParseException ("Cannot find type " + type);
+
+ if (!DefaultBaseType.IsAssignableFrom (parent))
+ ThrowParseException ("The parent type does not derive from " + DefaultBaseType);
+
+ baseType = parent;
+ }
+
Assembly GetAssemblyFromSource (string vpath)
{
vpath = UrlUtils.Combine (BaseVirtualDir, vpath);
AddDependency (realPath);
- CompilerResults result = CachingCompiler.Compile (realPath, assemblies);
+ CompilerResults result = CachingCompiler.Compile (language, realPath, realPath, assemblies);
if (result.NativeCompilerReturnValue != 0) {
- StringWriter writer = new StringWriter();
StreamReader reader = new StreamReader (realPath);
throw new CompilationException (realPath, result.Errors, reader.ReadToEnd ());
}
return result.CompiledAssembly;
}
- protected abstract Type DefaultBaseType { get; }
-
- protected internal abstract string DefaultDirectiveName { get; }
+ internal abstract Type DefaultBaseType { get; }
+ internal abstract string DefaultBaseTypeName { get; }
+ internal abstract string DefaultDirectiveName { get; }
internal string InputFile
{
className = Path.GetFileName (inputFile).Replace ('.', '_');
className = className.Replace ('-', '_');
className = className.Replace (' ', '_');
+
+ if (Char.IsDigit(className[0])) {
+ className = "_" + className;
+ }
+
return className;
}
}
return privateBinPath;
AppDomainSetup setup = AppDomain.CurrentDomain.SetupInformation;
- privateBinPath = setup.PrivateBinPath;
-
- if (!Path.IsPathRooted (privateBinPath)) {
- string appbase = setup.ApplicationBase;
- if (appbase.StartsWith ("file://")) {
- appbase = appbase.Substring (7);
- if (Path.DirectorySeparatorChar != '/')
- appbase = appbase.Replace ('/', Path.DirectorySeparatorChar);
- }
- privateBinPath = Path.Combine (appbase, privateBinPath);
- }
+ privateBinPath = Path.Combine (setup.ApplicationBase, setup.PrivateBinPath);
return privateBinPath;
}
}
internal ArrayList Assemblies {
- get { return assemblies; }
+ get {
+ if (appAssemblyIndex != -1) {
+ object o = assemblies [appAssemblyIndex];
+ assemblies.RemoveAt (appAssemblyIndex);
+ assemblies.Add (o);
+ appAssemblyIndex = -1;
+ }
+
+ return assemblies;
+ }
}
internal ArrayList Interfaces {
get { return language; }
}
+ internal bool StrictOn {
+ get { return strictOn; }
+ }
+
+ internal bool ExplicitOn {
+ get { return explicitOn; }
+ }
+
internal bool Debug {
get { return debug; }
}
+
+ internal bool OutputCache {
+ get { return output_cache; }
+ }
+
+ internal int OutputCacheDuration {
+ get { return oc_duration; }
+ }
+
+ internal string OutputCacheVaryByHeader {
+ get { return oc_header; }
+ }
+
+ internal string OutputCacheVaryByCustom {
+ get { return oc_custom; }
+ }
+
+ internal string OutputCacheVaryByControls {
+ get { return oc_controls; }
+ }
+
+ internal bool OutputCacheShared {
+ get { return oc_shared; }
+ }
+
+ internal OutputCacheLocation OutputCacheLocation {
+ get { return oc_location; }
+ }
+
+ internal string OutputCacheVaryByParam {
+ get { return oc_param; }
+ }
+
+ internal PagesConfiguration PagesConfig {
+ get { return PagesConfiguration.GetInstance (Context); }
+ }
}
}