Patch title: Release 84 bulk changes
Abstract:
File: /pliant/protocol/http/style/listing.style
Key:
    Removed line
    Added line
module "/pliant/protocol/http/server.pli"
submodule "ultrasafe.style"

method p line_anchor l
  arg_rw HtmlPage p; arg Int l
  p html "<a name=[dq]line"+string:l+"[dq]></a>"
  
method p raw_characters line
  arg_rw HtmlPage p ; arg Str line
  p html "<tt>"+(replace html_encode:line " " "&#160;")+"</tt>"

method p raw_line line
  arg_rw HtmlPage p ; arg Str line
  p html "<tt>"+(replace html_encode:line " " "&#160;")+"<br></tt>[lf]"

method p horizontal_line
  arg_rw HtmlPage p
  p html "<hr>[lf]"

method p module_line line
  arg_rw HtmlPage p ; arg Str line
  implicit p
    raw_characters line
    if (line parse word:"module" (var Str m)) or (line parse word:"submodule" (var Str m))
      if http_request:area_root="/" or (m 0 1)<>"/"
        how m
      eif (m 0 http_request:area_root:len)=http_request:area_root
        how (m http_request:area_root:len-1 m:len)
    eol

export '. raw_characters' '. raw_line' '. horizontal_line' '. module_line'
export '. raw_characters' '. raw_line' '. horizontal_line' '. module_line' '. line_anchor'