Module Wiki_self_services

module Wiki_self_services : sig..end

This file define some tables that contain the services that are dynamically associated to a given wiki:

• the service that answers for a page of the wiki (two services: attached and non-attached).
• the service that answers for the css of the wiki

The other services for wikis take the wiki as argument, and are defined in Wiki_services.

The tables below are updated in the function register_wiki of Wiki_services.

module Servpages : Hashtbl.Make(sig  type t = Wiki_types.wiki  val equal : 'a -> 'a -> bool  val hash : 'a -> intend)

val naservpages : 
  (string, unit, [ `Get ], Eliom_service.non_attached_kind,
   [ `NonattachedCoservice ], [ `WithoutSuffix ],
   [ `One of string ] Eliom_parameter.param_name, unit,
   [ `Registrable ], Eliom_registration.appl_service)
  Eliom_service.service Servpages.t

val servpages : 
  (string list, unit, Eliom_service.get_service_kind,
   Eliom_service.attached, Eliom_service.service_kind, [ `WithSuffix ],
   [ `One of string list ] Eliom_parameter.param_name, unit,
   [ `Registrable ], Eliom_registration.appl_service)
  Eliom_service.service Servpages.t

val servwikicss : 
  ((Wiki_types.wikibox * int32 option) list, unit,
   Eliom_service.get_service_kind, Eliom_service.attached_kind,
   [ `AttachedCoservice | `Service ], [ `WithoutSuffix ],
   ([ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
    [ `One of int32 ] Eliom_parameter.param_name)
   Eliom_parameter.listnames, unit, [ `Registrable ],
   Eliom_registration.CssText.return)
  Eliom_service.service Servpages.t

val add_naservpage : 
  Servpages.key ->
  (string, unit, [ `Get ], Eliom_service.non_attached_kind,
   [ `NonattachedCoservice ], [ `WithoutSuffix ],
   [ `One of string ] Eliom_parameter.param_name, unit,
   [ `Registrable ], Eliom_registration.appl_service)
  Eliom_service.service -> unit

val add_servpage : 
  Servpages.key ->
  (string list, unit, Eliom_service.get_service_kind,
   Eliom_service.attached, Eliom_service.service_kind, [ `WithSuffix ],
   [ `One of string list ] Eliom_parameter.param_name, unit,
   [ `Registrable ], Eliom_registration.appl_service)
  Eliom_service.service -> unit

val add_servwikicss : 
  Servpages.key ->
  ((Wiki_types.wikibox * int32 option) list, unit,
   Eliom_service.get_service_kind, Eliom_service.attached_kind,
   [ `AttachedCoservice | `Service ], [ `WithoutSuffix ],
   ([ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
    [ `One of int32 ] Eliom_parameter.param_name)
   Eliom_parameter.listnames, unit, [ `Registrable ],
   Eliom_registration.CssText.return)
  Eliom_service.service -> unit

val find_naservpage : 
  Servpages.key ->
  (string, unit, [ `Get ], Eliom_service.non_attached_kind,
   [ `NonattachedCoservice ], [ `WithoutSuffix ],
   [ `One of string ] Eliom_parameter.param_name, unit,
   [ `Registrable ], Eliom_registration.appl_service)
  Eliom_service.service

val find_servpage : 
  Servpages.key ->
  (string list, unit, Eliom_service.get_service_kind,
   Eliom_service.attached, Eliom_service.service_kind, [ `WithSuffix ],
   [ `One of string list ] Eliom_parameter.param_name, unit,
   [ `Registrable ], Eliom_registration.appl_service)
  Eliom_service.service option

val find_servwikicss : 
  Servpages.key ->
  ((Wiki_types.wikibox * int32 option) list, unit,
   Eliom_service.get_service_kind, Eliom_service.attached_kind,
   [ `AttachedCoservice | `Service ], [ `WithoutSuffix ],
   ([ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
    [ `One of int32 ] Eliom_parameter.param_name)
   Eliom_parameter.listnames, unit, [ `Registrable ],
   Eliom_registration.CssText.return)
  Eliom_service.service option