module Stog_types: sig
.. end
Types.
type date = {
|
year :int ; |
|
month :int ; |
|
day :int ; |
}
type body = Xtmpl.tree list
type human_id = {
|
hid_path :string list ; |
|
hid_absolute :bool ; |
}
val string_of_human_id : human_id -> string
val human_id_of_string : string -> human_id
type def = Xmlm.name * Xmlm.attribute list * body
val get_def : def list ->
Xmlm.name -> (Xmlm.attribute list * body) option
module Str_map: Map.S
with type key = string
module Str_set: Set.S
with type elt = string
type elt = {
|
elt_human_id :human_id ; |
|
elt_type :string ; |
|
elt_body :body ; |
|
elt_date :date option ; |
|
elt_title :string ; |
|
elt_keywords :string list ; |
|
elt_topics :string list ; |
|
elt_published :bool ; |
|
elt_defs :def list ; |
|
elt_src :string ; |
|
elt_sets :string list ; |
|
elt_lang_dep :bool ; |
|
elt_xml_doctype :string option ; |
|
elt_out :body option ; |
|
elt_used_mods :Str_set.t ; |
}
type elt_id = elt Stog_tmap.key
val make_elt : ?typ:string -> ?hid:human_id -> unit -> elt
val today : unit -> date
module Hid_map: Stog_trie.S
with type symbol = string
module Elt_set: Set.S
with type elt = elt_id
module Int_map: Map.S
with type key = int
type edge_type =
| |
Date |
| |
Topic of string |
| |
Keyword of string |
| |
Ref |
module Graph: Stog_graph.S
with type key = elt_id and type edge_data = edge_type
type file_tree = {
}
type stog_mod = {
|
mod_requires :Str_set.t ; |
|
mod_defs :def list ; |
}
type stog = {
|
stog_dir :string ; |
|
stog_elts :(elt, elt) Stog_tmap.t ; |
|
stog_elts_by_human_id :elt_id Hid_map.t ; |
|
stog_defs :def list ; |
|
stog_tmpl_dir :string ; |
|
stog_cache_dir :string ; |
|
stog_title :string ; |
|
stog_desc :body ; |
|
stog_graph :Graph.t ; |
|
stog_elts_by_kw :Elt_set.t Str_map.t ; |
|
stog_elts_by_topic :Elt_set.t Str_map.t ; |
|
stog_archives :Elt_set.t Int_map.t Int_map.t ; |
|
stog_base_url :Neturl.url ; |
|
stog_email :string ; |
|
:int ; |
|
stog_lang :string option ; |
|
stog_outdir :string ; |
|
stog_main_elt :elt_id option ; |
|
stog_files :file_tree ; |
|
stog_modules :stog_mod Str_map.t ; |
|
stog_used_mods :Str_set.t ; |
|
stog_depcut :bool ; |
}
val url_of_string : string -> Neturl.url
val string_of_url : Neturl.url -> string
val url_concat : Neturl.url -> string -> Neturl.url
val create_stog : string -> stog
val stog_md5 : stog -> string
val elt : stog -> elt Stog_tmap.key -> elt
val elts_by_human_id : ?typ:string ->
stog ->
human_id -> (elt_id * elt) list
val elt_by_human_id : ?typ:string ->
stog -> human_id -> elt_id * elt
val set_elt : stog ->
elt Stog_tmap.key -> elt -> stog
val add_hid : stog ->
human_id -> elt_id -> stog
val add_elt : stog -> elt -> stog
val sort_elts_by_date : elt list -> elt list
val sort_ids_elts_by_date : ('a * elt) list -> ('a * elt) list
val sort_ids_elts_by_rules : string list ->
('a * elt * Xtmpl.env) list -> ('a * elt) list
val elt_list : ?by_date:bool ->
?set:string ->
stog -> (elt Stog_tmap.key * elt) list
val merge_stogs : stog list -> stog
val make_human_id : stog -> string -> string list
val find_block_by_id : elt -> string -> Xtmpl.tree option