sig
val init_fragment_polling : unit -> JSOO.obj
val add_on_fragment_change_event : (unit -> unit) -> unit
val remove_on_fragment_change_event : (unit -> unit) -> unit
val get_location : unit -> JSOO.obj
val get_fragment_ : unit -> string
val get_host_ : unit -> string
val get_port_ : unit -> int
val get_protocol_ : unit -> string
val get_arguments_ : unit -> string
val get_path_ : unit -> string
val get_argument : string -> string
val get_path : unit -> string list
end