require "lib/rwd/ruby"
require "lib/rwd/xml"
require "lib/rwd/net"
require "lib/rwd/browser"
require "lib/rwd/thread"
require "md5"
require "rbconfig"



begin
  require "win32ole"
  require "win32/registry"
rescue LoadError
  $".push "win32ole.so"
  $".push "win32/registry.rb"
end

$rwd_exit	= ARGV.include?("--rwd-exit")	# Hack ???
$rwd_exit	= true	if defined?(REQUIRE2LIB)
$rwd_debug	= ($rwd_debug or $DEBUG or false)
$rwd_border	= ($rwd_border or 0)
$rwd_dir	= Dir.pwd
$rwd_files	= File.expand_path("rwd_files", Dir.pwd)
$rwd_html	= {}

ARGV.delete_if do |arg|
  arg =~ /^--rwd-/
end

RWDEmptyline	= "..."

#module RWD

rcfile	= nil
s	= ENV["HOME"]		; s = File.expand_path(".rwdrc", s)	unless s.nil?	; rcfile = s	if (not s.nil? and rcfile.nil? and File.file?(s))
s	= ENV["USERPROFILE"]	; s = File.expand_path("rwd.cfg", s)	unless s.nil?	; rcfile = s	if (not s.nil? and rcfile.nil? and File.file?(s))
s	= ENV["windir"]		; s = File.expand_path("rwd.cfg", s)	unless s.nil?	; rcfile = s	if (not s.nil? and rcfile.nil? and File.file?(s))

AL	= "align='left'"
AC	= "align='center'"
AR	= "align='right'"
VA	= "valign='middle'"

Format	= "\n<!-- %-10s %-10s -->\t"

unless rcfile.nil?
  puts "Reading #{rcfile} ..."

  Hash.file(rcfile).each do |k, v|
    ENV[k]	= v	unless ENV.include?(k)
  end
end

if ENV["RWDTHEME"]
	if ENV["RWDTHEME"] = "PDA"
		load 'lib/rwdthemes/default.rwd'
	end
	if ENV["RWDTHEME"] = "DEFAULT"
		$rwdtinkerlog.info "rwd: loading theme DEFAULT"
           
          load 'lib/rwdthemes/default.rwd'
       end
        if ENV["RWDTHEME"] = "WINDOWSLOOKALIKE"
         load 'lib/rwdthemes/windowslike.rwd'
 end
 else
	 load 'lib/rwdthemes/default.rwd'
 end
 
ENV["RWDBROWSER"]	= (ENV["RWDBROWSER"] or defaultbrowser) or puts "No browser found."
ENV["RWDPORTS"]		= (ENV["RWDPORTS"] or "7701-7709")
ENV["RWDTHEME"]		= (ENV["RWDTHEME"] or "DEFAULT")

#trap("INT")	{puts "Terminating..." ; exit}

$SAFE	= 0

class IE
  def initialize(url)
    @ie = WIN32OLE.new("InternetExplorer.Application")
    @ev	= WIN32OLE_EVENT.new(@ie, "DWebBrowserEvents2")

    @ie.navigate(url)

    @ie.menubar		= false
    @ie.toolbar		= false
    @ie.addressbar	= false
    @ie.statusbar	= false

    @ie.visible		= true

    at_exit do
      @ie.visible	= false
    end

    @ev.on_event("OnQuit") do
      Thread.main.exit
    end

    Thread.new do
      loop do
        WIN32OLE_EVENT.message_loop
      end
    end
  end
end

class Array
  def rwd_options(emptyline=nil)
    if emptyline.nil?
      a	= self
    else
      a	= [emptyline].concat(self)
    end

    a.numsort.collect{|s| "<option>#{s.to_s.to_html}</option>" }.join("\n")
  end

  def rwd_method(method)
    res	= ""

    self.each do |s|
      s		= s.join("/")	if s.kind_of?(Array)
      s2	= s.dup
      s2[0..0]	= s2[0..0].upcase
      res	= res + "<p align='left'><a action='#{method}/#{s.to_html}'>#{s2.to_html}</a></p>"
    end

    return res
  end

  def rwd_row(key=nil, value=nil, bold=false)
    res	= ""

    res	= res + "<row valign='top'>"
    res	= res + "<radio name='#{key.to_html}' value='#{value.to_html}'/>"	unless key.nil?
    res	= res + self.collect{|s| "<p align='#{(s.kind_of?(Numeric) or s =~ /^\d+\.\d+$/) ? "right" : "left"}'>#{"<b>" if bold}#{s.to_s.to_html}#{"</b>" if bold}</p>"}.join("")
    res	= res + "</row>"

    return res
  end

  def rwd_table(headers=nil, highlightrows=[])
    res	= ""

    highlightrows	= [highlightrows].flatten

    n	= -1

    res	= res + "<table>"
    res	= res + headers.rwd_row(nil, nil, true)	unless headers.nil?
    res	= res + self.collect{|a| a.rwd_row(nil, nil, highlightrows.include?(n+=1))}.join("")
    res	= res + "</table>"

    return res
  end

  def rwd_headers(emptyfield=false)
    res	= ""

    res	= res + "<row>"
    res	= res + "<p/>"	if emptyfield
    res	= res + self.collect{|s| "<p align='left'><b>#{s.to_html}</b></p>" }.join("")
    res	= res + "</row>"

    return res
  end

  def rwd_form(prefix, values=[], twoparts=0, options={})
    res	= []

    res << "<table>"
    self.each_index do |n|
      name	= "#{prefix.to_html}#{self[n].downcase.to_html}"

      res << "<row>"
      res << "<p align='right'>"
      res << "#{self[n].to_html}:"
      res << "</p>"

      if options.keys.include?(self[n])
        res << "<select name='#{name}'>"
        res << options[self[n]].rwd_options(RWDEmptyline)
        res << "</select>"
      else
        s	= ""

        s << "<text name='#{name}'"
        s << " value='#{values[n].to_s.to_html}'"	if n < values.length
        s << "/>"

        res << s
      end

      res << "</row>"

      if twoparts > 0 and n == twoparts-1
        res << "<row><empty/></row>"
      end
    end
    res << "</table>"

    return res.join("\n")
  end
end

class Hash
  def rwd_table(field=nil, joinwith=nil, headers=nil)
    res	= []

    res << "<table>"
    res << headers.rwd_headers((not field.nil?))	if not headers.nil?
    self.keys.numsort.each do |key|
      key2	= key
      value2	= self[key]

      key2	= key2.join(joinwith)	if key2.kind_of?(Array)
      value2	= [value2]		if value2.kind_of?(String)

      res << value2.rwd_row(field, key2)
    end
    res << "</table>"

    res.join("\n")
  end
end

class EVTable
  def rwd_table(field=nil, joinwith=@sep)
    super(field, joinwith, @headers)
  end

  def rwd_form(prefix="", key=nil, twoparts=false)
    values	= self[key]	if not key.nil?
    values	= []		if values.nil?
    options	= {}

    if File.file?(oldlocation("constraints.tsv"))
      table	= File.basename(@file).gsub(/\.tsv$/, "")

      TSVFile.new(oldlocation("constraints.tsv")).subset(["Table", "Constraint"], [table, "key"], ["Column", "Value"]).values.each do |column, table2|
        options[column]	= TSVFile.new(oldlocation("#{table2}.tsv")).keys.collect{|a| a.join("\t")}
      end
    end

    @headers.rwd_form(prefix, values, twoparts ? @key : 0, options)
  end

  def rwd_metadata
    res	= []

    res << "<table>"
    res << "<row>"
    res << "  <empty/>"
    res << "  <text name='header_new' value=''/>"
    res << "</row>"
    @headers.each_index do |n|
      res << "<row>"
      res << "  <text name='header_#{n}_old' value='#{@headers[n]}'/>"
      res << "  <text name='header_#{n}_new' value=''/>"
      res << "</row>"
    end
    res << "</table>"

    return res.join("\n")
  end
end

class OpenTag
  def prechildren(res, before, after, varshtml, varsstring, switches, help, oneormorefields, firstaction, tabs, tab, pda=false)
    bef	= before[-1]
    res << Format % ["Before", @subtype]	if ($rwd_debug and not bef.nil?)
    res << bef	if not bef.nil?

    res << Format % ["Pre", @subtype]	if $rwd_debug

    align	= AC
    align	= "align='#{@args["align"]}'"	if @args.include?("align")

    valign	= VA
    valign	= "valign='#{@args["valign"]}'"	if @args.include?("valign")

    value1	= ""
    value1	= varshtml[@args["name"]]	if varshtml.include?(@args["name"])
    value1	= @args["value"]		if @args.include?("value")

    value2	= ""
    value2	= varsstring[@args["name"]]	if varsstring.include?(@args["name"])
    value2	= @args["value"]		if @args.include?("value")

    cellspacing	= 3
    cellspacing	= 0	if pda

    case @subtype
    when "application"
    when "window", "helpwindow"
      args	= @args.deep_dup

      args["nohelpbutton"]	= (not help)

      template	= $rwd_html_1
      # template	= $rwd_html_PDA_1	if pda

      res << (template(template, args))
    when "p"		then res << "<p #{align}>"
    when "pre"		then res << "<pre #{align}>"
    when "big"		then res << "<p #{align}><big>"
    when "small"	then res << "<p #{align}><small>"
    when "list"		then res << "<ul #{align}>"
    when "item"		then res << "<li #{align}>"
    when "empty"	then res << "<p><br>"
    when "image"
      width	= "width='#{@args["width"]}"	if @args.include?("width")
      height	= "height='#{@args["height"]}'"	if @args.include?("height")

      res << "<img src='#{@args["src"]}' alt='#{@args["alt"]}' #{width} #{height}>"
    when "progressbar"
      width	= 200

      res << "<table>"
      res << "  <tr>"
      res << "    <td colspan='2'><img src='rwd_pixel.gif' height='1' width='#{width+5}'></td>"
      res << "  </tr>"
      res << "  <tr>"
      res << "    <td bgcolor='#DDDDDD'><img src='rwd_pixel.gif' height='10' width='#{(width*@args["value"].to_f).to_i}'></td>"
      res << "    <td bgcolor='#EEEEEE'><img src='rwd_pixel.gif' height='10' width='#{(width*(1.0-@args["value"].to_f)).to_i}'></td>"
      res << "  </tr>"
      res << "</table>"
    when "br"		then res << "<br>"
    when "hr"		then res << "<hr>"
    when "b"		then res << "<b>"
    when "i"		then res << "<i>"
    when "a"
      if @args.include?("href")
        res << "<a href='#{@args["href"]}' target='#{@args["target"] or "_blank"}'>"
      else
        res << "<a href='javascript:document.bodyform.rwd_action.value=\"#{@args["action"]}\";document.bodyform.submit();'>"
      end
    when "vertical"	then res << "<table #{AC} border='#{$rwd_border}' cellspacing='#{cellspacing}' cellpadding='0'>"
    when "horizontal"	then res << "<table #{AC} border='#{$rwd_border}' cellspacing='#{cellspacing}' cellpadding='0'><tr #{align} #{valign}>"
    when "table"	then res << "<table #{AC} border='#{$rwd_border}' cellspacing='#{cellspacing}' cellpadding='0'>"
    when "row"		then res << "<tr #{align} #{valign}>"
    when "hidden"	then res << "<p #{align}><input name='#{@args["name"]}' value='#{value1}' type='hidden'>"
    when "text"
      maxlength	= ""
      maxlength	= "maxlength='%s'" % @args["maxlength"]	if @args.include?("maxlength")
      size	= ""
      size	= "size='%s'" % @args["size"]		if @args.include?("size")
      size	= "size='%s'" % 10			if pda
      res << "<p #{align}><input name='#{@args["name"]}' value='#{value1}' type='text' #{maxlength} #{size}>"
      oneormorefields	<< "true"
    when "textarea"
      res << "<p #{align}><textarea name='#{@args["name"]}' rows='25' cols='80'>#{value2.crlf}</textarea>"
      oneormorefields	<< "true"
    when "password"
      maxlength	= ""
      maxlength	= "maxlength='%s'" % @args["maxlength"]	if @args.include?("maxlength")
      size	= ""
      size	= "size='%s'" % 10			if pda
      res << "<p #{align}><input name='#{@args["name"]}' value='#{value1}' type='password' #{maxlength} #{size}>"
      oneormorefields	<< "true"
    when "checkbox"
      if varshtml[@args["name"]] == "on"
        switches[@args["name"]]	= true
        res << "<p #{align}><input name='#{@args["name"]}' checked='on' type='checkbox'>"
      else
        switches[@args["name"]]	= false
        res << "<p #{align}><input name='#{@args["name"]}' type='checkbox'>"
      end
      oneormorefields	<< "true"
    when "radio"
      if varshtml[@args["name"]] == value1	# ??? 1 or 2?
        res << "<p #{align}><input name='#{@args["name"]}' checked='on' value='#{value1}' type='radio'>"
      else
        res << "<p #{align}><input name='#{@args["name"]}' value='#{value1}' type='radio'>"
      end
      oneormorefields	<< "true"
    when "select"
     res << "<select #{align} name='#{@args["name"]}' width='#{@args["width"]} size='#{@args["size"]}'>"	# ??? Misschien nog iets met 'multiple'?
      name	= @args["name"]
      $select	= varshtml[name]
      oneormorefields	<< "true"
    when "option"
      if $select == @children[0].text
        res << "<option selected='true'>"
      else
        res << "<option>"
      end
    when "button"
      res << "<input type='submit' value='#{@args["caption"]}' onclick='document.bodyform.rwd_action.value=\"#{@args["action"]}\";'>"
      firstaction	<< @args["action"]	if (firstaction.empty? and @args.include?("action"))
      oneormorefields	<< "true"
    when "back"
      res << "<input type='submit' value='Back' onclick='document.bodyform.rwd_action.value=\"rwd_back\";'>"
      firstaction	<< "rwd_back"	if firstaction.empty?
      oneormorefields	<< "true"
    when "cancel"
      res << "<input type='submit' value='Cancel' onclick='document.bodyform.rwd_action.value=\"rwd_cancel\";'>"
      firstaction	<< "rwd_cancel"	if firstaction.empty?
      oneormorefields	<< "true"
    when "help"
      res << "<input type='submit' value='Help' onclick='document.bodyform.rwd_action.value=\"rwd_help\";'>"
      firstaction	<< "rwd_help"	if firstaction.empty?
      oneormorefields	<< "true"
    when "quit"
      res << "<input type='submit' value='Quit' onclick='document.bodyform.rwd_action.value=\"rwd_quit\";'>"
      firstaction	<< "rwd_quit"	if firstaction.empty?
      oneormorefields	<< "true"
    when "close"
      res << "<input type='submit' value='Close' onclick='window.close();'>"
      firstaction	<< "rwd_quit"	if firstaction.empty?
      oneormorefields	<< "true"
    when "main"
      res << "<input type='submit' value='Main' onclick='document.bodyform.rwd_action.value=\"rwd_main\";'>"
      firstaction	<< "rwd_main"	if firstaction.empty?
      oneormorefields	<< "true"
    when "reset"
      res << "<input type='reset'  value='Reset'>"
      firstaction	<< "rwd_quit"	if firstaction.empty?	# ???
      oneormorefields	<< "true"
    when "closewindow"
      #res << "<script type='text/javascript'>\n"	# ???
      #res << "<!--\n"
      #res << "  window.close();\n"
      #res << "//-->\n"
      #res << "</script>"
    when "tabs"
      res << "<table #{AC} border='#{$rwd_border}' cellspacing='0' cellpadding='0'>"
      res << "  <tr #{AL}>"
      res << "    <td #{AL} class='tabs'>"
      res << "      <table #{AL} border='#{$rwd_border}' cellspacing='0' cellpadding='0'>"
      res << "        <tr #{AL}>"
      #res << "          <td class='notab'>&nbsp;</td>"
      tabs.each do |obj|
        name	= obj.args["name"]
        caption	= obj.args["caption"]

        res << "<td #{AL} class='notab'>&nbsp;</td>"	unless obj == tabs[0]

        if name == tab
          res << "<td #{AC} class='activetab'><tt>&nbsp;#{caption}&nbsp;</tt></td>"
        else
          res << "<td #{AC} class='passivetab'><a href='javascript:document.bodyform.rwd_action.value=\"rwd_tab_#{name}\";document.bodyform.submit();'><tt>&nbsp;#{caption}&nbsp;</tt></a></td>"
        end
      end
      res << "          <td class='notab' width='100%'>&nbsp;</td>"
      res << "        </tr>"
      res << "      </table>"
      res << "    </td>"
      res << "  </tr>"
      res << "  <tr #{align}>"
      res << "    <td #{align} class='tabblad'>"
    when "tab"
      res << "<table #{AC} border='#{$rwd_border}' cellspacing='3' cellpadding='0'>"
    when "panel"
      level	= (@args["level"] or "normal")
      res << "<table #{AC} border='#{$rwd_border}' cellspacing='0' cellpadding='0'>"
      res << "  <tr #{align}>"
      res << "    <td #{align} class='panel1'>"		if level == "normal"
      res << "    <td #{align} class='panel1high'>"	if level == "high"
      res << "    <td #{align} class='panel1low'>"	if level == "low"
      res << "      <table #{AC} border='#{$rwd_border}' cellspacing='0' cellpadding='0'>"
      res << "        <tr #{align}>"
      res << "          <td #{align} class='panel2'>"		if level == "normal"
      res << "          <td #{align} class='panel2high'>"	if level == "high"
      res << "          <td #{align} class='panel2low'>"	if level == "low"
      res << "            <table #{AC} border='#{$rwd_border}' cellspacing='3' cellpadding='0'>"
    else
      puts "<#{@subtype}>"
      res << "&lt;#{@subtype}&gt;"
    end

    bef	= nil
    aft	= nil

    case @subtype
    when "vertical", "window", "helpwindow", "tab", "panel"
      res << Format % ["AftPre", @subtype]	if $rwd_debug
      if @args.include?("spacing")
        s	= "<tr><td>&nbsp;</td></tr>" * (@args["spacing"].to_i)
      else
        s	= ""
      end
      bef	= "#{s}<tr #{align} #{valign}><td #{align}>"
      aft	= "</td></tr>"
    when "horizontal", "row"
      res << Format % ["AftPre", @subtype]	if $rwd_debug
      bef	= "<td #{align}>"
      aft	= "</td>"
    end

    before.push(bef)
    after.push(aft)
  end

  def postchildren(res, before, after, varshtml, varsstring, switches, help, oneormorefields, firstaction, tabs, tab, pda=false)
    case @subtype
    when "vertical", "window", "helpwindow", "tab", "panel"
      res << Format % ["BefPost", @subtype]	if $rwd_debug
      if @args.include?("spacing")
        res << "<tr><td>&nbsp;</td></tr>" * (@args["spacing"].to_i)
      end
    when "horizontal", "row"
      res << Format % ["BefPost", @subtype]	if $rwd_debug
    end

    res << Format % ["Post", @subtype]		if $rwd_debug

    case @subtype
    when "application"
    when "window", "helpwindow"
      args	= @args.deep_dup

      args["nohelpbutton"]	= (not help)

      template	= $rwd_html_2
      template	= $rwd_html_PDA_2	if pda

      res << (template(template, args))
    when "p"		then res << "</p>"
    when "pre"		then res << "</pre>"
    when "big"		then res << "</big></p>"
    when "small"	then res << "</small></p>"
    when "list"		then res << "</ul>"
    when "item"		then res << "</li>"
    when "empty"	then res << "</p>"
    when "image"	then res << ""
    when "progressbar"	then res << ""
    when "br"		then res << ""
    when "hr"		then res << ""
    when "b"		then res << "</b>"
    when "i"		then res << "</i>"
    when "a"		then res << "</a>"
    when "vertical"	then res << "</table>"
    when "horizontal"	then res << "</tr></table>"
    when "table"	then res << "</table>"
    when "row"		then res << "</tr>"
    when "hidden"	then res << "</p>"
    when "text"		then res << "</p>"
    when "textarea"	then res << "</p>"
    when "password"	then res << "</p>"
    when "checkbox"	then res << "</p>"
    when "radio"	then res << "</p>"
    when "select"
      res << "</select>"
      $select	= nil
    when "option"	then res << "</option>"
    when "button"	then res << ""
    when "back"		then res << ""
    when "cancel"	then res << ""
    when "help"		then res << ""
    when "quit"		then res << ""
    when "close"	then res << ""
    when "main"		then res << ""
    when "reset"	then res << ""
    when "closewindow"	then res << ""
    when "tabs"
      res << "    </td>"
      res << "  </tr>"
      res << "</table>"
    when "tab"
      res << "</table>"
    when "panel"
      res << "            </table>"
      res << "          </td>"
      res << "        </tr>"
      res << "      </table>"
      res << "    </td>"
      res << "  </tr>"
      res << "</table>"
    else
      puts "</#{@subtype}>"
      res << "&lt;/#{@subtype}&gt;"
    end

    before.pop
    after.pop

    aft	= after[-1]
    res << Format % ["After", @subtype]		if ($rwd_debug and not aft.nil?)
    res << aft	if not aft.nil?
  end

  def template(html, vars)
    res	= []

    a	= {}

    vars.each do |k, v|
      a[k.upcase]	= v
    end

    logo	= nil
    logo	= File.expand_path(vars["logo"], $rwd_files)		if vars.include?("logo")
    logo	= nil							unless logo.nil? or File.file?(logo)

    watermark	= nil
    watermark	= File.expand_path(vars["watermark"], $rwd_files)	if vars.include?("watermark")
    watermark	= nil							unless watermark.nil? or File.file?(watermark)

    a["LOGO"]		= ""	unless not logo.nil?
    a["WATERMARK"]	= ""	unless not watermark.nil?

    a["HELPBUTTON"]	= (not (vars["nohelpbutton"]))
    a["BACKBUTTONS"]	= (not (vars["nobackbuttons"]))
    a["BACKBUTTONS"]	= (not (vars["nobackbuttons"]))
    a["CLOSEBUTTON"]	= (not (vars["noclosebutton"]))

    if a.include?("WIDTH")
      a["WIDTH1"]	= "width='#{a["WIDTH"]}'"
      a["WIDTH2"]	= a["WIDTH"]
    else
      a["WIDTH1"]	= " "
      a["WIDTH2"]	= "1"
    end

    html.split(/\r*\n/).each do |line|
      if line =~ /%[A-Z0-9]+%/
        a.each do |k, v|
          v	= false	if (v.kind_of?(String) and v.empty?)

          if line.include?("%#{k}%")
            line.gsub!("%#{k}%", "#{v}")	if v
          end
        end

        line	= "<!-- #{line.scan(/%[A-Z0-9]+%/).join(" ")} -->"	if line =~ /%[A-Z0-9]+%/
      end

      res << line
    end

    res.join("\n")
  end
end

class Text
  def prechildren(res, before, after, varshtml, varsstring, switches, help, oneormorefields, firstaction, tabs, tab, pda=false)
    if not @text.scan(/[^ \t\r\n]/).empty?
      res << Format % ["Text", ""]	if $rwd_debug
      res << "#{@text}"
    end
  end
end

class RWDTree < XML
end

class RWDWindow
  @@windows	= {}	# Kind of caching.
  @@helpwindows	= {}	# Kind of caching.

  def initialize(rwd, window=nil)
    rwd	= rwd.join("\n")	if rwd.kind_of?(Array)
  
    if @@windows[rwd].nil?
      @@windows[rwd]		= {}
      @@helpwindows[rwd]	= {}

      tree	= XML.new(rwd)

      tree.parse(OpenTag, "window") do |type, obj|
        $rwd_appvars.each{|k, v| obj.args[k] = v}
        @@windows[rwd][obj.args["name"]]	= obj.to_h
      end

      tree.parse(OpenTag, "helpwindow") do |type, obj|
        $rwd_appvars.each{|k, v| obj.args[k] = v}
        @@helpwindows[rwd][obj.args["name"]]	= obj.to_h
      end
    end

    @rwd	= (@@windows[rwd][window] or "").dup
    @helprwd	= (@@helpwindows[rwd][window] or "").dup
  end

  def render(pda, action=nil, vars=Hash.new, switches=Hash.new, help=false, tab="")
    varshtml		= Hash.new
    varsstring		= Hash.new
    oneormorefields	= ""
    firstaction		= ""
    html		= []

    vars	= vars.deep_dup

    begin # error wrap

           vars.each do |key, value|
                                 if not key.empty?
                                             if value.respond_to? "to_s"
                                                   @rwd.gsub!(/%%#{key}%%/, value.to_s)
                                                  @rwd.gsub!(/%#{key}%/, value.to_s.to_html)

                                                  @helprwd.gsub!(/%%#{key}%%/, value.to_s)
                                                  @helprwd.gsub!(/%#{key}%/, value.to_s.to_html)

                                                  varshtml[key]		= value.to_s.to_html
                                                  varsstring[key]	= value.to_s
                                            end
                                  end
                           end

                           windowobject	= RWDTree.new(@rwd).children.dup.delete_if{|obj| obj.subtype != "window"}[0]
                             helpobject		= RWDTree.new(@helprwd).children.dup.delete_if{|obj| obj.subtype != "helpwindow"}[0]

                                   tabsobj	= windowobject.children.dup.delete_if{|obj| obj.subtype != "tabs"}[0]

                     if not tabsobj.nil?
                              tabs	= tabsobj.children.dup.delete_if{|obj| (not obj.kind_of?(OpenTag)) or (obj.subtype != "tab")}

                                    if tab.empty?
                                              tab			= tabs[0].args["name"]
                                      end

                                      tabsobj.children.delete_if{|obj| (obj.kind_of?(OpenTag)) and (obj.subtype == "tab") and obj.args["name"] != tab}
                           end

                     if help
                                helpobject.parsetree("prechildren", "postchildren", html, [""], [""], varshtml, varsstring, switches, false, oneormorefields, firstaction, tabs, tab, pda)
                        else
                                  windowobject.parsetree("prechildren", "postchildren", html, [""], [""], varshtml, varsstring, switches, (not @helprwd.empty?), oneormorefields, firstaction, tabs, tab, pda)
                        end

           html	= html.join("")	# ???

             html.gsub!(/%%*[[:alnum:]_\-]+%%*/, "")	if not $rwd_debug
             html.gsub!(/%%/, "%")
             html.gsub!(/\n\n*/, "\n")

           if oneormorefields.empty?
                focus	= ""
             else
                focus	= "document.bodyform.elements[0].focus();"
            end

              firstaction	= action	if windowobject.args.keys.include?("refresh")	unless action.nil?

                                                  html.gsub!(/\$RWD_FIRSTACTION\$/	, firstaction)
                                             html.gsub!(/\$RWD_FOCUS\$/		, focus)

                                          html
                                          end
  
  rescue 
		$rwdtinkerlog.error 	"error in RWDWindow - render method"
  
  end
  end


class RWDMessage < RWDWindow
  def initialize(msg)
    super("<window title='RWD Message' nobackbuttons noclosebutton><p>#{msg}</p><back/></window>")
  end
end

class RWDError < RWDWindow
  def initialize(msg)
    super("<window title='RWD Error' nobackbuttons noclosebutton><p><b>Error:</b> #{msg}</p><back/></window>")
  end
end

class RWDProgressBar < RWDWindow
  def initialize(refresh, progress)
    s	= ""
    s << "<window title='RWD Progress' nobackbuttons noclosebutton refresh='#{refresh}'>"
    if progress.length == 1
      progress.each do |caption, value|
        s << "<p>#{caption}</p><progressbar value='#{value}'/><p>#{(100*value).to_i}%%</p>"
      end
    else
      s << "<table>"
      progress.each do |caption, value|
        s << "<row><p align='left'>#{caption}</p><progressbar value='#{value}'/><p align='right'>#{(100*value).to_i}%%</p></row>"
      end
      s << "</table>"
    end
    s << "<cancel/>"
    s << "</window>"
    super(s)
  end
end

class RWDDone < RWDWindow
  def initialize(exitbrowser)
    super("<window title='RWD Message' nobackbuttons noclosebutton><p>Done.</p><i>(Some browsers don't close,<br>because of security reasons.)</i><horizontal><close/>#{exitbrowser ? "" : "<button caption='Again'/>"}</horizontal>#{exitbrowser ? "<closewindow/>" : ""}</window>")
  end
end

class RWDialog
	
  def initialize(xml)
    @rwd_xml			=  $rwd_gui_tinker
    # change from default ev - was xml
    @rwd_exitbrowser		= false
    @rwd_history		= []
    @rwd_ignore_vars		= []
    @rwd_call_after_back	= []
    @rwd_time			= Time.now

    $rwd_appvars	= {}	if $rwd_appvars.nil?
    XML.new(xml).parse(OpenTag, "application") do |type, obj|
      obj.args.deep_dup.each do |k, v|
        $rwd_appvars[k]	= v
      end
    end
  end

  def self.file(rwdfile, *args)
    new(File.new(rwdfile).readlines, *args)
  end

  def serve(port=nil, auth=nil, realm=self.class.to_s)
    exit	if $rwd_exit

    raise "RWD is not initialized."	if @rwd_xml.nil?

    low, high	= ENV["RWDPORTS"].split(/[^\d+]/)
    high	= low	if high.nil?
    low, high	= low.to_i, high.to_i

    io		= nil

    port, io	= TCPServer.freeport(low, high, (not auth.nil?))	if port.nil?
    raise "No free TCP port."						if port.nil?

    port	= port.to_i

    @rwd_server	= RWDServer.new(self, port, io, auth, realm)

    self
  end
  

  
  def render(res, path, post, download, downloadfile, pda, sessionid)
		# Avoid a timeout.

    @rwd_time		= Time.now

		# Initialize some vars.

    vars		= Hash.new	if vars.nil?
    @rwd_switches	= Hash.new	if @rwd_switches.nil?

    done		= false
    help		= false
    back		= false
    tab			= ""
    @rwd_progress_thread = nil
    @rwd_msgtype	= nil	if @rwd_progress_thread.nil?
    @rwd_download	= nil
    @rwd_download_file	= nil

		# Switches are used for checkboxes.

    @rwd_switches.each do |key, value|
      vars[key]	= "off"
    end

    @rwd_switches	= Hash.new

		# Copy the vars from the window to vars. vars wil later on be copied to instance variables.

    post.sort.each do |key, value|
      puts  "Post: #{key} -> #{value.from_html.inspect}"	if $rwd_debug
      $rwdtinkerlog.info "Post: #{key} -> #{value.from_html.inspect}\n"

      vars[key]	= value.from_html
      $rwdtinkerlog.info  "rwd: #{value.from_html}\n"
    
    end

		# Stack handling for rwd_action, rwd_window and rwd_tab.

    @rwd_action			= vars["rwd_action"]		if vars.include?("rwd_action")
    @rwd_action, @rwd_args	= @rwd_action.split(/\//, 2)	unless @rwd_action.nil?
    @rwd_action, rest		= @rwd_action.split(/\?/)	unless @rwd_action.nil?

    @rwd_refresh_action		= (@rwd_action or @rwd_refresh_action or "main")

    unless rest.nil?
      rest.each do |s|
        k, v	= s.split(/=/, 2)
        vars[k]	= v
      end
    end

    if @rwd_action == "rwd_cancel"
      @rwd_progress_thread.kill		unless @rwd_progress_thread.nil?
      @rwd_progress_thread	= nil
      @rwd_action		= "rwd_back"
    end

    @rwd_history	= [["main", [], "main", ""]]	if @rwd_history.empty?

    if @rwd_action =~ /^rwd_tab_/
      @rwd_tab	= @rwd_action.sub(/^rwd_tab_/, "")
      @rwd_history[-1][3]	= @rwd_tab
    else
      case @rwd_action
      when "rwd_back"
        @rwd_history.pop
        @rwd_action			= (@rwd_history[-1] or [nil, nil, nil])[0]
        @rwd_args			= (@rwd_history[-1] or [nil, nil, nil])[1]
        @rwd_window			= (@rwd_history[-1] or [nil, nil, nil])[2]
        @rwd_tab			= (@rwd_history[-1] or [nil, nil, nil])[3]
        back				= true
      when "rwd_help"
        help				= true
      when "rwd_main"
        @rwd_action			= nil
        @rwd_window			= nil
        @rwd_tab			= nil
        @rwd_history			= []
      when "rwd_quit"
        done				= true
      else
      end

		# History stuff

      @rwd_history	= @rwd_history[-100..-1]	if @rwd_history.length >= 100
      @rwd_action	= "main"			if @rwd_action.nil?
      @rwd_action	= "main"			if @rwd_action.empty?
      @rwd_window	= "main"			if @rwd_window.nil?
      @rwd_window	= "main"			if @rwd_window.empty?
      @rwd_tab		= ""				if @rwd_tab.nil?
      @rwd_args		= []				if @rwd_args.nil?
      @rwd_args		= []				if @rwd_action == "main"

      vars["rwd_action"]	= @rwd_action
      vars["rwd_window"]	= @rwd_window
      vars["rwd_tab"]		= @rwd_tab

		# Copy vars from window to instance.

      vars.each do |k, v|
	      $rwdtinkerlog.info "rwd: Post: #{k} -> #{v}\n"
	 
       		if ((not k.empty?) and k.scan(/^rwd_/).empty? and not @rwd_ignore_vars.include?("@#{k}"))
			
			 instance_eval "@#{k}	= ''"
			instance_variable_set("@#{k}", vars.fetch("#{k}"))   
			$rwdtinkerlog.info "rwd: Post: #{k} -> #{v}\n"

		end	 
      end

		# Callback.

      if (not back) or @rwd_call_after_back.include?(@rwd_action)
        unless @rwd_action =~ /^rwd_/
	
	$rwdtinkerlog.debug  "Method: #{@rwd_action}(#{@rwd_args})"	
       
          if methods.include?(@rwd_action)
            method(@rwd_action).call(*@rwd_args)
          else
            puts "Method '%s' is not defined." % @rwd_action
          end
        end

		# History stuff

        @rwd_history	= [["main", [], "main", ""]]	if @rwd_action == "main"
        @rwd_history	= [["main", [], "main", ""]]	if @rwd_history.empty?

        a		= [@rwd_action, @rwd_args, @rwd_window, @rwd_tab]

        @rwd_history.push a				if (@rwd_history[-1] != a or not @rwd_msgtype.nil?)

        if @rwd_window == "rwd_back"
          @rwd_history.pop
          @rwd_history.pop
          @rwd_action			= (@rwd_history[-1] or [nil, nil, nil])[0]
          @rwd_args			= (@rwd_history[-1] or [nil, nil, nil])[1]
          @rwd_window			= (@rwd_history[-1] or [nil, nil, nil])[2]
          @rwd_tab			= (@rwd_history[-1] or [nil, nil, nil])[3]
        end
      end
    end

		# Copy vars from instance to window.

    instance_variables.each do |k|
      k.sub!(/^@/, "")
      instance_eval "vars['#{k}'] = @#{k}.to_s"	if (k.scan(/^rwd_/).empty? and not @rwd_ignore_vars.include?("@#{k}"))
    end

		# just ignore.

    vars.sort.each do |key, value|
      puts  "Pre: #{key} -> #{value.inspect}"	if $rwd_debug
    end


		# Answer to browser.

    if done
      res << RWDDone.new(@rwd_exitbrowser).render(pda)
    else
      if not @rwd_download.nil?
        puts "Download: #{@rwd_window}"		if $rwd_debug

        download	<< @rwd_download
        downloadfile	<< @rwd_download_file
      else
        if not @rwd_progress_thread.nil?
          res << RWDProgressBar.new(@rwd_progress_refresh, @rwd_progress_progress).render(pda, @rwd_refresh_action)
        else
          if not @rwd_msgtype.nil?
            res << RWDMessage.new(@rwd_msg).render(pda)	if @rwd_msgtype == "message"
            res << RWDError.new(@rwd_msg).render(pda)	if @rwd_msgtype == "error"
            res << @rwd_msg				if @rwd_msgtype == "text"
          else
           puts   "Window: #{@rwd_window}"		if $rwd_debug
            puts  "Tab: #{@rwd_tab}"		if $rwd_debug

begin # error block
      if @rwd_window.empty? 
	      @rwd_window = "main"
	      end
            res << RWDWindow.new($rwd_gui_tinker, @rwd_window).render(pda, @rwd_refresh_action, vars, @rwd_switches, help, @rwd_tab)
rescue

$rwdtinkerlog.error "rwd: error in render"

 end
end
        end
      end
    end

    return done
  end

  def samewindow?
    @rwd_history[-1][2] == @rwd_window
  end

  def message(msg, &block)
    @rwd_msg		= msg
    @rwd_msgtype	= "message"
  end

  def error(msg, &block)
    @rwd_msg		= msg
    @rwd_msgtype	= "error"
  end

  def text(msg)
    @rwd_msg		= "<html><body><pre>#{msg}</pre></body></html>"
    @rwd_msgtype	= "text"
  end

  def progressbar(refresh, *progress)
    @rwd_progress_refresh	= (refresh or 1)
    @rwd_progress_progress	= []

    while not progress.empty?
      s	= (progress.shift or "")
      if s.kind_of?(Array)
        caption, value	= s
        value	= (value or 0.0).to_f
      else
        caption	= s
        value	= (progress.shift or 0.0).to_f
      end

      @rwd_progress_progress << [caption, value]
    end

    if @rwd_progress_thread.nil?
      @rwd_progress_progress.each do |a|
        a[1]	= 0.0
      end

      @rwd_progress_thread =
      Thread.new do
        yield
      end
      Thread.pass
    end

    @rwd_progress_thread	= nil	unless @rwd_progress_thread.alive?
  end

  def download(data, filename="")
    @rwd_download	= data
    @rwd_download_file	= filename
  end

  def exitbrowser
    @rwd_exitbrowser	= true
  end

  def timeout(timeout, interval=1)
    @rwd_timeout	= timeout

    unless @rwd_timeout_thread
      @rwd_timeout_thread =
      Thread.new do
        loop do
          if Time.now - @rwd_time > @rwd_timeout
		  
		  $rwdtinkerlog.info "rwd: Exiting due to timeout (#{@rwd_timeout} seconds)."
            
            exit 1
          end
          sleep interval
        end
      end
    end
  end
end

class RWDLogin < RWDialog
  def initialize(realm)
    super("<window name='main' title='RWD Login for #{realm}' nobackbuttons noclosebutton><table><row><p align='right'>Username:</p><text name='rwd_a'/></row><row><p align='right'>Password:</p><password name='rwd_b'/></row></table><button caption='Login'/></window>")
  end
end

class RWDTimeOut < RWDialog
  def initialize
    super("<window name='main' title='RWD Error' nobackbuttons noclosebutton><p><b>Error:</b> Session has expired.</p><button caption='New session'/></window>")
  end
end

class SessionCleanup
  def initialize(sessions, interval, timeout)
    every(interval) do
      sessions.delete_if do |id, session|
        time	= Time.now.to_i - session.lastaccess.to_i

        puts "Session %s deleted" % id	if time > timeout

        time > timeout
      end
    end
  end
end

class Sessions
  def initialize(rack, cleanup)
    @rack	= rack.to_s
    @cleanup	= SessionCleanup.new(self, 3600, 24*3600)	if cleanup
    @sessions	= {}
  end

  def [](sessionid)
    @sessions[sessionid]
  end

  def []=(sessionid, value)
    @sessions[sessionid]	= value
  end

  def delete(sessionid)
    @sessions.delete(sessionid)
  end

  def delete_if(&block)
    @sessions.delete_if{|k, v| block.call(k, v)}
  end

  def include?(sessionid)
    @sessions.include?(sessionid)
  end
end

class RWDSession < Hash
  attr_reader :sessionid
  attr_reader :lastaccess
  attr_reader :authenticated
  attr_writer :authenticated

  def initialize(sessionid=nil)
    @sessionid		= sessionid
    @lastaccess		= Time.now
    @authenticated	= false
  end

  def touch
    @lastaccess	= Time.now
  end

  def render(res, path, post, download, downloadfile, pda=false)
    done	= self["object"].render(res, path, post, download, downloadfile, pda, @sessionid)

    res.gsub!(/\$RWD_SESSION\$/, done ? "" : "#{@sessionid}")

    return done
  end
end

class RWDServer
  def initialize(obj, port, io, auth, realm)
    @object		= obj
    @localbrowsing	= false
    @browserstarted	= false
    @sessions		= Sessions.new(obj.class, (not auth.nil?))

    if auth.nil?
      @localbrowsing	= true

      if ENV.include?("RWDBROWSER") and not ENV["RWDBROWSER"].nil? and not ENV["RWDBROWSER"].empty?
        @browserstarted	= true
        @object.exitbrowser

	# Start browser.

        @browserthread	=
        Thread.new do
		$rwdtinkerlog.warn "rwd: Starting the browser..."
       

          #if ENV["RWDBROWSER"].downcase =~ /iexplore/	# ???
            #@ie	= IE.new("http://localhost:#{port}/")
          #else
            browser	= ENV["RWDBROWSER"].dup
            url		= "http://localhost:%s/" % [port]

            re		= /[$%]1\b/
            command	= "%s \"%s\"" % [browser, url]
            command	= browser.gsub(re, url)	if browser =~ re

            command.gsub!(/%port%/, port.to_s)

            system(command) or $rwdtinkerlog.error "Starting of the browser failed, or the browser terminated abnormally.\nCommand => #{command}"
          #end

          puts "The browser has terminated."
        end
      end
    end

	# Start server.

    portio		= port
    portio		= [port, io]	unless io.nil?
    threadlimiter	= ThreadLimiter.new(1)

    HTTPServer.serve(portio, (not auth.nil?)) do |req, resp|
      threadlimiter.wait do
        vars	= {}
        req.vars.each do |k, v|
          vars[k]	= v.join("\t")
        end
        pad	= (req.request.path or "/")

        if auth.kind_of? String
          file	= "#{home}/#{auth}"
          auths	= {}
          auths	= Hash.file(file)	if File.file?(file)
        else
          auths	= auth
        end

        #oldsessionid	= vars["rwd_session"]
        oldsessionid	= req.cookies["sessionid"]

		# Retrieve session.

        session	= @sessions[oldsessionid]

		# Eventually create new session.

        if session.nil?
          sessionid	= MD5.new(req.peeraddr[3].to_s + @object.inspect.to_s + ("%1.6f" % Time.now.to_f)).to_s	while (sessionid == nil or @sessions.include?(sessionid))
          session		= RWDSession.new(sessionid)

          if auth.nil?
            session["object"]		= @object
          else
            session["object"]		= @object.clone
          end

          if oldsessionid.nil? or oldsessionid.empty?
            if not auth.nil? and not auth.empty? and not session.authenticated and pad !~ /^\/rwd_/

		# Check authentication

              us	= vars["rwd_a"]
              pa	= vars["rwd_b"]

              if us.nil? or pa.nil? or auths[us] != pa
                session				= RWDSession.new
                session["object"]		= RWDLogin.new(realm)
                pad				= "/"
              else
                session.authenticated		= true
                @sessions[session.sessionid]	= session
              end
            else
              session.authenticated		= true
              @sessions[session.sessionid]	= session
            end
          else
            session		= RWDSession.new
            session["object"]	= RWDTimeOut.new
          end

          vars	= {}
        end

		# Avoid timeout.

        session.touch

        if pad == "/"

		# Serve methods/callbacks.

		# Build new page.

          download	= ""
          downloadfile	= ""
          res		= ""

          done	= session.render(res, pad, vars, download, downloadfile, req.pda?)

          begin
            if download.empty?
              resp["Content-Type"]		= "text/html"
              if done
                resp.cookies["sessionid"]	= ""
              else
                resp.cookies["sessionid"]	= session.sessionid
              end

              resp << res
            else
              resp["Content-Type"]		= "application/octet-stream"
              resp["Content-Disposition"]	= "attachment;"
              resp["Content-Disposition"]	= "attachment; filename=%s" % downloadfile	unless downloadfile.empty?

              resp << download
            end
          rescue
           
     $rwdtinkerlog.error "rwd: Sending response to browser failed."
            @sessions.delete(session.sessionid)
          end

		# Eventually delete this session.

          if done
            @sessions.delete(session.sessionid)

            if @localbrowsing
              resp.stop

              if @browserstarted and not @browserthread.nil? and @browserthread.alive?
                resp.stop do
                 
         $rwdtinkerlog.warn "rwd: Waiting for the browser to terminate..."
	 
                  @browserthread.join
                end
              end
            end
          end

        else

		# Serve files.

          if pad == "/rwd_pixel.gif"
            resp["Cache-Control"]	= "max-age=86400"
            resp["Content-Type"]	= "image/gif"
            resp << $rwd_pixel
          else
            if session.authenticated
              pwd	= Dir.pwd
              file	= File.expand_path(pad.gsub(/^\/*/, ""), $rwd_files)

              if not file.index(pwd) == 0
                resp["Content-Type"]	= "text/html"
                resp.response		= "HTTP/1.0 400 BAD REQUEST"
                resp << "<html><body><p><b>Bad Request.</b> (<tt>#{pad}</tt>)</p></body></html>"
              elsif File.file?(file)
                resp << File.new(file, "rb").read	rescue nil
              else
                resp["Content-Type"]	= "text/html"
                resp.response		= "HTTP/1.0 404 NOT FOUND"
                resp << "<html><body><p><b>Not found.</b> (<tt>#{pad}</tt>)</p></body></html>"
              end
            else
              resp["Content-Type"]	= "text/html"
              resp.response		= "HTTP/1.0 ??? NOT AUTHORIZED"
              resp << "<html><body><p><b>Not Authorized.</b></p></body></html>"
            end
          end

        end

      end
    end
  end
end



$rwd_pixel	= "
R0lGODlhAQABAMIAAAAAAP///+7u7kREiP///////////////yH5BAEKAAMA
LAAAAAABAAEAAAMCOAkAOw==
".unpack("m").shift

$rwd_logo	= "
R0lGODlhEAAQAMIAAAAAAP///+7u7kREiP///////////////yH5BAEKAAQA
LAAAAAAQABAAAANCSErQ/k21QKulrIrNu8heuAGUcJ0BuQVD676DasK0zNKv
jefB+oo6l6AxBAx7M2HRePQph5xga0RsJqfELPI2DSUAADs=
".unpack("m").shift


$rwd_html_1, $rwd_html_2		= $rwd_html[ENV["RWDTHEME"]].split(/^\s*%BODY%\s*\r*$/)
#if ENV["RWDTHEME"] == "PDA"
#$rwd_html_PDA_1, $rwd_html_PDA_2	= $rwd_html["PDA"].split(/^\s*%BODY%\s*\r*$/)
#end
#end
#
#class RWDialog < RWD::RWDialog
#end