Patch title: Release 96 bulk changes
Abstract:
File: /pliant/fullpliant/run.pli
Key:
    Removed line
    Added line
   
abstract
  [This is the script that will start the FullPLiant operati


abstract
  [This is the script that will start the FullPLiant operati


if (constant this_computer:env:"pliant":"browser":"service"=
  constant (compile_message "Compiling Pliant browser server
  precompile += "/pliant/graphic/browser/server/main.pli[lf]
  module "/pliant/graphic/browser/server/main.pli"
  constant (compile_message "Compiling browser basic applica
  module "/pliant/graphic/browser/sample/run.pli" # FIXME
if (constant this_computer:env:"pliant":"ui":"service"="true") or (constant this_computer:env:"pliant":"ui":"http_proxy"="true") or (constant this_computer:env:"pliant":"ui":"console"="true")
  constant (compile_message "Compiling Pliant ui server. Please wait ...")
  precompile += "/pliant/graphic/ui/server/main.pli[lf]"
  module "/pliant/graphic/ui/server/main.pli"
  constant (compile_message "Compiling ui applets. Please wait ...")
  module "/pliant/graphic/ui/sample/run.pli" # FIXME
  compile_message ""
  compile_message ""
  browser_server
  console "Pliant browser server is running." eol
if (constant this_computer:env:"pliant":"multiplexer":"servi
  ui_server
  console "Pliant ui server is running." eol
if (constant this_computer:env:"pliant":"multiplexer":"service"="true") or (constant this_computer:env:"pliant":"ui":"service"="true") or (constant this_computer:env:"pliant":"ui":"http_proxy"="true") or (constant this_computer:env:"pliant":"ui":"console"="true")
  constant (compile_message "Compiling Pliant TCP port multi
  precompile += "/pliant/util/pml/multiplexer.pli[lf]"
  module "/pliant/util/pml/multiplexer.pli"
  compile_message ""
  gvar Int mx_port := multiplexer_server
  if mx_port<>undefined
    console "Pliant multiplexer is running on TCP port " mx_
  constant (compile_message "Compiling Pliant TCP port multi
  precompile += "/pliant/util/pml/multiplexer.pli[lf]"
  module "/pliant/util/pml/multiplexer.pli"
  compile_message ""
  gvar Int mx_port := multiplexer_server
  if mx_port<>undefined
    console "Pliant multiplexer is running on TCP port " mx_
if (constant this_computer:env:"pliant":"browser":"console"=
  constant (compile_message "Compiling Pliant browser client
  precompile += "/pliant/graphic/browser/client/main.pli[lf]
  module "/pliant/graphic/browser/client/main.pli"
if (constant this_computer:env:"pliant":"ui":"console"="true")
  constant (compile_message "Compiling Pliant ui client. Please wait ...")
  precompile += "/pliant/graphic/ui/client/main.pli[lf]"
  module "/pliant/graphic/ui/client/main.pli"
  module "/pliant/language/stream/loopback.pli"
  module "/pliant/language/stream/loopback.pli"
  module "/pliant/util/pml/multiplexer.pli"
  multiplexer_port "loopback:/server/browser" "loopback:/cli
  multiplexer_port "loopback:/server/ui" "loopback:/client/ui"
  compile_message ""
  compile_message ""
  function run_browser
  function run_ui
    thread
    thread
      console "Pliant browser console is running." eol
      var ExtendedStatus status := browser_client "console [
      console "Pliant ui console is running." eol
      var ExtendedStatus status := ui_client "console [dq]framebuffer[dq] terminal 2 url [dq]loopback:/[dq] windows_manager [dq]loopback:/windows_manager[dq]"
      if status=failure
      if status=failure
        console "No. in facts, the browser returned error: "
  run_browser
        console "No. in facts, the ui returned error: " status:message eol
  run_ui




compile_message "Compiling HTTP server. Please wait ..."
precompile += "/pliant/protocol/http/server.pli[lf]"
precompile += "/pliant/protocol/http/style/default.style[lf]
module "/pliant/protocol/http/server.pli"
compile_message ""
if (constant this_computer:env:"pliant":"ui":"http_proxy"="true")
  compile_message "Compiling HTTP proxy server. Please wait ..."
  module "/pliant/graphic/console/http_proxy.pli"
  compile_message ""
else
  compile_message "Compiling HTTP server. Please wait ..."
  precompile += "/pliant/protocol/http/server.pli[lf]"
  precompile += "/pliant/protocol/http/style/default.style[lf]"
  module "/pliant/protocol/http/server.pli"
  compile_message ""


if (constant this_computer:env:"pliant":"system":"distributi
  if (constant (file_query "file:/boot/boot.flag" standard)=
    file_delete "file:/boot/boot.flag"
    if (constant this_computer:env:"pliant":"system":"embedd
      module "embedded/command.pli"
      function run_embedded
        thread
          sleep 2
          embedded_command "xsetroot -solid #407060" ""
          embedded_command "mozilla" "user [dq]me[dq] detach
          # embedded_command "/usr/lib/mozilla/mozilla-bin" 
      run_embedded
eif os_api="win32"
  function os_ShellExecute hwnd op file params dir bshow
    arg Int hwnd ; arg CStr op file params dir ; arg Int bsh
    external "shell32.dll" "ShellExecuteA"
  gvar Str login := ""
  if (exists user_database:data:user:"pliant") and user_secr
    login := "pliant:"+user_secret_database:data:password+"@
  gvar Str url := "http://"+login+"localhost"+(shunt this_co
  function run_web_browser
    thread
      sleep 2
      os_ShellExecute 0 "open" url "" "c:\" 1
  run_web_browser


if (constant this_computer:env:"pliant":"system":"distributi
  if (constant (file_query "file:/boot/boot.flag" standard)=
    file_delete "file:/boot/boot.flag"
    if (constant this_computer:env:"pliant":"system":"embedd
      module "embedded/command.pli"
      function run_embedded
        thread
          sleep 2
          embedded_command "xsetroot -solid #407060" ""
          embedded_command "mozilla" "user [dq]me[dq] detach
          # embedded_command "/usr/lib/mozilla/mozilla-bin" 
      run_embedded
eif os_api="win32"
  function os_ShellExecute hwnd op file params dir bshow
    arg Int hwnd ; arg CStr op file params dir ; arg Int bsh
    external "shell32.dll" "ShellExecuteA"
  gvar Str login := ""
  if (exists user_database:data:user:"pliant") and user_secr
    login := "pliant:"+user_secret_database:data:password+"@
  gvar Str url := "http://"+login+"localhost"+(shunt this_co
  function run_web_browser
    thread
      sleep 2
      os_ShellExecute 0 "open" url "" "c:\" 1
  run_web_browser
if (constant this_computer:env:"pliant":"http":"autoload"<>"

if (constant this_computer:env:"pliant":"http":"autoload"<>"no") and (constant this_computer:env:"pliant":"ui":"http_proxy"<>"true")
  function run_autoload
    thread
      sleep 5
      pliant_compiler_semaphore request
      http_precompile "/pliant/protocol/http/default.page"
      http_precompile "/pliant/browse/virtual_tree.page"
      pliant_compiler_semaphore release
  run_autoload


function run_http
  pliant_compiler_semaphore release
  if not (this_computer:env:"pliant":"http":"port" parse (va
    port := 80
  function run_autoload
    thread
      sleep 5
      pliant_compiler_semaphore request
      http_precompile "/pliant/protocol/http/default.page"
      http_precompile "/pliant/browse/virtual_tree.page"
      pliant_compiler_semaphore release
  run_autoload


function run_http
  pliant_compiler_semaphore release
  if not (this_computer:env:"pliant":"http":"port" parse (va
    port := 80
  if (constant this_computer:env:"pliant":"system":"distribu
  if (constant this_computer:env:"pliant":"ui":"http_proxy"="true")
    if (constant this_computer:env:"pliant":"ui":"console"<>"true")
      module "/pliant/language/stream/loopback.pli"
      multiplexer_port "loopback:/server/ui" "loopback:/client/ui"
      sleep 0.1
    console_http_proxy port port protocol "loopback"
  eif (constant this_computer:env:"pliant":"system":"distribution"="fullpliant")
    http_server port port secured log this_computer:env:"pli
  eif os_api="win32"
    http_server port port secured log this_computer:env:"pli
  else
    http_server port port secured log this_computer:env:"pli
run_http
    http_server port port secured log this_computer:env:"pli
  eif os_api="win32"
    http_server port port secured log this_computer:env:"pli
  else
    http_server port port secured log this_computer:env:"pli
run_http