Patch title: Release 87 bulk changes
Abstract:
File: /pliant/protocol/http/trace.page
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "/pliant/language/context.pli"
module "/pliant/language/compiler.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/debug/trace.pli"


button "Start tracing"
  reset_http_answer
module "/pliant/language/unsafe.pli"
module "/pliant/language/context.pli"
module "/pliant/language/compiler.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/debug/trace.pli"


button "Start tracing"
  reset_http_answer
  http_request answer_mime_type := "text/plain"
  http_request send_header
  http_request send_header "mime [dq]text/plain[dq]"
  var Link:HttpTrace h :> new HttpTrace
  var Link:HttpTrace h :> new HttpTrace
  h stream :> http_request stream ; h flushed := true
  h stream :> http_request answer_stream ; h flushed := true
  h:sem request ; h locked := true
  trace_slots_sem request
  var Pointer:Arrow cc :> trace_slots:first
  while cc<>null
    var Pointer:TraceSlot slot2 :> cc map TraceSlot
    if slot2:name=service
      h bind slot2
    cc :> trace_slots next cc
  trace_slots_sem release
  h:sem request ; h:sem release
  trace_slots_sem request
  var Pointer:Arrow cc :> trace_slots:first
  while cc<>null
    var Pointer:TraceSlot slot2 :> cc map TraceSlot
    if slot2:name=service
      h unbind slot2
    cc :> trace_slots next cc
  trace_slots_sem release
  http_request send_footer

  h:sem request ; h locked := true
  trace_slots_sem request
  var Pointer:Arrow cc :> trace_slots:first
  while cc<>null
    var Pointer:TraceSlot slot2 :> cc map TraceSlot
    if slot2:name=service
      h bind slot2
    cc :> trace_slots next cc
  trace_slots_sem release
  h:sem request ; h:sem release
  trace_slots_sem request
  var Pointer:Arrow cc :> trace_slots:first
  while cc<>null
    var Pointer:TraceSlot slot2 :> cc map TraceSlot
    if slot2:name=service
      h unbind slot2
    cc :> trace_slots next cc
  trace_slots_sem release
  http_request send_footer