Patch title: Release 92 bulk changes
Abstract:
File: /protocol/http/uvar.pli
Key:
    Removed line
    Added line
   
abstract
  [Per user permanent variables for the HTTP server.]



function uvar_map page uv d
  arg HtmlPage page ; arg UserVariable uv ; arg_rw Data_ d
  var Str uname := page:http_request user_name
  if uname=""
    d := data_null
    if (exists uv:default)
      d interface :> uv default
    return
  var Data:(Set Set:Anything) session :> user_database2:data
  if not (exists session)
    user_database2:data:user create uname
    session :> user_database2:data:user:uname:session
  var (Pointer Data:Anything) data :>> addressof:d map Data:
  data :> (session uv:module) uv:variable
abstract
  [Per user permanent variables for the HTTP server.]



function uvar_map page uv d
  arg HtmlPage page ; arg UserVariable uv ; arg_rw Data_ d
  var Str uname := page:http_request user_name
  if uname=""
    d := data_null
    if (exists uv:default)
      d interface :> uv default
    return
  var Data:(Set Set:Anything) session :> user_database2:data
  if not (exists session)
    user_database2:data:user create uname
    session :> user_database2:data:user:uname:session
  var (Pointer Data:Anything) data :>> addressof:d map Data:
  data :> (session uv:module) uv:variable
  if not exists:data
  if d:adr=null # FIXME: should be: not exists:data
    session create uv:module
    (session uv:module) create uv:variable
    data :> (session uv:module) uv:variable
    if (exists uv:default)
      d:base:sem request
      d:interface set d uv:default:value (entry_type uv:defa
      d:base:sem release


export uvar
    session create uv:module
    (session uv:module) create uv:variable
    data :> (session uv:module) uv:variable
    if (exists uv:default)
      d:base:sem request
      d:interface set d uv:default:value (entry_type uv:defa
      d:base:sem release


export uvar