X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Furimanager%2FuriManager.mli;h=8250cc83963dc058a0672c3d35d208617a0d920e;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=bed9db29ea43ce8f02d56e70490c75dc47b64ae4;hpb=e2fb8962f72096d3f0bb19f40b00a3502a11e932;p=helm.git diff --git a/helm/ocaml/urimanager/uriManager.mli b/helm/ocaml/urimanager/uriManager.mli index bed9db29e..8250cc839 100644 --- a/helm/ocaml/urimanager/uriManager.mli +++ b/helm/ocaml/urimanager/uriManager.mli @@ -34,7 +34,7 @@ val uri_of_string : string -> uri val string_of_uri : uri -> string (* complete uri *) val name_of_uri : uri -> string (* name only (without extension)*) -val buri_of_uri : uri -> string (* base uri only *) +val buri_of_uri : uri -> string (* base uri only, without trailing '/' *) (* given an uri, returns the uri of the corresponding cic file, *) (* i.e. removes the [.types][.ann] suffix *) @@ -49,6 +49,7 @@ val annuri_of_uri : uri -> uri val uri_is_annuri : uri -> bool val uri_is_var : uri -> bool val uri_is_con : uri -> bool +val uri_is_ind : uri -> bool (* given an uri of a constant, it gives back the uri of its body *) (* it gives back None if the uri refers to a Variable or MutualInductiveType *) @@ -56,6 +57,8 @@ val bodyuri_of_uri : uri -> uri option (* given an uri, it gives back the uri of its inner types *) val innertypesuri_of_uri : uri -> uri +(* given an uri, it gives back the uri of its univgraph *) +val univgraphuri_of_uri : uri -> uri (* builder for MutInd and MutConstruct URIs * [uri] -> [typeno] -> [consno option] @@ -64,3 +67,5 @@ val uri_of_uriref : uri -> int -> int option -> uri module UriSet: Set.S with type elt = uri +module UriHashtbl : Hashtbl.S with type key = uri +