Patch title: Release 85 bulk changes
Abstract:
File: /pliant/appli/type_browser/page.pli
Key:
    Removed line
    Added line
module "/pliant/language/compiler.pli"
module "/pliant/admin/file.pli"
submodule "internals.pli"
module "/pliant/protocol/http/server.pli"
module "/pliant/protocol/http/style/default.style"

public

abstract
  [Helpers function to format some language object in a .page]

doc
  [Show a module as a link if file exists and is under /pliant, a a bold text, otherwise.]

method page show_module m
 arg_rw HtmlPage page; arg Module m
 var Str true_path := m:name 0 (m:name search " " m:name:len)
 if (true_path 0 8)="/pliant/" and (file_query "/pliant"+true_path standard)=defined
   page link m:name m:name
 else
   page text m:name

doc
  [Show function prototype]

method page show_function f
  arg_rw HtmlPage page; arg Function f
  var Pointer:FunctionPrototype fp
  implicit page
    table columns f:nb_args_with_result+1
     cell header
       [Argument]
     for (var Int i) 0 f:nb_args-1
       fp :> f arg i
       cell
         fixed 
           text fp:name
     if (f:nb_args <> f:nb_args_with_result)
       cell header
         [Result]
     cell header
       [Type]
     for (var Int i) 0 f:nb_args_with_result-1
       fp :> f arg i
       cell
         text fp:type:name
     cell header
       [Access]
     for (var Int i) 0 f:nb_args_with_result-1
       fp :> f arg i
       cell
         text access_to_string:(fp access)

doc
  [Show type fields]

method page show_type t
  arg_rw HtmlPage page; arg Type t
  implicit page
    table columns 2 border 1
      cell header
        [Field]
      cell header
        [Type]
    table border 1
      row
        cell header
          [Field]
        cell header
          [Type]
      for (var Int i) 0 t:nb_fields-1
        var Pointer:TypeField f :> t field i
        cell color lsh 100 50 180
          text f:name
        cell color lsh 100 50 240
          text f:type:name 
        row
          cell color (color hsl 180 50 75)
            text f:name
          cell color (color hsl 240 50 75)
            text f:type:name 
      if t:nb_fields=0
        html "<tr><td colspan=2>"
        color rgb 255 0 0
          text "No registered field"
        html "</td></tr>"
        cell colspan 2
          font color (color rgb 255 0 0)
            text "No registered field"