/usr/lib/ocaml/eliom/server/eliom_tools_common.mli is in libeliom-ocaml-dev 2.2.2-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 | (* Ocsigen
* Copyright (C) 2005 Vincent Balat
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published by
* the Free Software Foundation, with linking exception;
* either version 2.1 of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*)
open Eliom_service
open Eliom_parameter
open Eliom_state
(** {2 Menus } *)
type ('a, 'b, 'c) one_page =
(unit, unit,
'a,
[ `WithoutSuffix ],
unit, unit,
'b, 'c) service
constraint 'c = [< Eliom_registration.non_caml_service ]
type get_page =
(Eliom_service.get_service_kind,
Eliom_service.registrable,
Eliom_registration.non_caml_service) one_page
(** {2 Hierchical sites } *)
type ('a, 'b, 'c) hierarchical_site_item =
| Disabled
| Site_tree of ('a, 'b, 'c) hierarchical_site
constraint 'b = [< Eliom_service.registrable ]
and ('a, 'b) main_page =
| Main_page of ('a, 'b, Eliom_registration.non_caml_service) one_page
| Default_page of ('a, 'b, Eliom_registration.non_caml_service) one_page
| Not_clickable
constraint 'b = [< Eliom_service.registrable ]
and ('a, 'b, 'c) hierarchical_site =
(('a, 'b) main_page *
('c * ('a, 'b, 'c) hierarchical_site_item) list)
constraint 'b = [< Eliom_service.registrable ]
(** The type of hierarchical sites.
A hierarchical site is a pair (main page, subpages).
The difference between
[Main_page], [Default_page] and [Not_clickable] is a bit subtle:
- [Main_page] is when you want to create a main page for your
subsite. All the subpages are subsections of that page.
- [Default_page] is like [Main_page] but is not taken into account
for computing which is the current page in the menu.
Use it for example when there is no main page, but you want
one of the subpages to be the default page for your subsite.
The service you use as default page
must appear another time in the subtree!
- [Not_clickable] is when you do not want the menu entry to be a link
but you want subpages.
Each subpage is defined by the text to be displayed in menus
and a [hierarchical_site_item].
If the latter is [Disabled], the menu entry is disabled.
*)
(**/**)
val menu_class : string
val last_class : string
val current_class : string
val current_path_class : string
val disabled_class : string
val first_class : string
val level_class : string
|