namespace Sioux
{

using Nemerle.Collections;
using Nemerle.Xml;
using System.Xml;
 
public class HelloApp : Application
{
  /*override protected virtual Run () : void
  {
    
  }*/

  override protected virtual DoGet() : void
  {
      def buf = System.Text.StringBuilder();
      def cookies = System.Text.StringBuilder();
      def loop (lst : list <string * string>) : void
      {
          match(lst)
          {
              | [] => ()
              | (name,val) :: rest => ignore(buf.Append(name + " = " + val )) ;loop(rest)
          }
      }
      loop((request.Headers :> list <string * string> ));
      
      
      foreach(cookie : Cookie in (request.Cookies :> list[Cookie]))
      {
          ignore(cookies.Append(cookie.Name+ " - " + cookie.Value +" ;"));
      }
      def Template = XmlTemplate ("hello.xml");
      Template.SetText ("fname", request.GetSession().SessionID);
      request.GetSession().Timeout = 1;
      FormTemplate = Some(Template);  
  }
 
}


} // end Sioux