Patch title: Release 95 bulk changes
Abstract:
File: /pliant/graphic/browser/client/connect.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "/pliant/language/stream.pli"
module "context.pli"
module "/pliant/util/pml/io.pli"
module "/pliant/util/pml/channel.pli"



method session connect_main url context -> s
  arg_rw BrowserSession session ; arg Str url ; arg Dictiona
  each extra session:extra_connections
    extra safe_configure "shutdown"
  session url := url
  session context := context
  session namespace := var Dictionary empty_dictionary
  s :> new Stream
  session connect_another url context s
  url_split url (var Str protocol) (var Str server) (var Str
  if protocol="tcp" and (server eparse any:(var Str server2)
    server := server2
  eif protocol="host"
    server := ""
  s otag "connect" server path
  s flush anytime
  session connection :> s
  thread
    part session "browser session instructions processor"
      var BrowserClientContext cc
      cc session :> share session
      cc connection :> s
      cc eos := false
      while not cc:eos and s=success
module "/pliant/language/compiler.pli"
module "/pliant/language/stream.pli"
module "context.pli"
module "/pliant/util/pml/io.pli"
module "/pliant/util/pml/channel.pli"



method session connect_main url context -> s
  arg_rw BrowserSession session ; arg Str url ; arg Dictiona
  each extra session:extra_connections
    extra safe_configure "shutdown"
  session url := url
  session context := context
  session namespace := var Dictionary empty_dictionary
  s :> new Stream
  session connect_another url context s
  url_split url (var Str protocol) (var Str server) (var Str
  if protocol="tcp" and (server eparse any:(var Str server2)
    server := server2
  eif protocol="host"
    server := ""
  s otag "connect" server path
  s flush anytime
  session connection :> s
  thread
    part session "browser session instructions processor"
      var BrowserClientContext cc
      cc session :> share session
      cc connection :> s
      cc eos := false
      while not cc:eos and s=success
        # if (s ipick open (var Ident id))
        #   console "instuction " (cast id Str) eol
        cc process_instruction true


export url_split '. connect_main' '. connect_another'
        cc process_instruction true


export url_split '. connect_main' '. connect_another'