This commit was manufactured by cvs2svn to create branch

[helm.git] / helm / interface / uriManager.ml.implementazione_banale

diff --git a/helm/interface/uriManager.ml.implementazione_banale b/helm/interface/uriManager.ml.implementazione_banale
deleted file mode 100644 (file)
index cd0d71f..0000000
--- a/helm/interface/uriManager.ml.implementazione_banale
+++ /dev/null
@@ -1,18 +0,0 @@
-type uri = string;;
-
-let eq uri1 uri2 =
- uri1 = uri2
-;;
-
-let string_of_uri uri = uri;;
-let uri_of_string str = str;;
-
-let name_of_uri uri =
- let l = Str.split (Str.regexp "/") uri in
-  let name_suf = List.nth l (List.length l - 1) in
-   List.hd (Str.split (Str.regexp "\.") name_suf)
-;;
-
-let depth_of_uri uri =
- List.length (Str.split (Str.regexp "/") uri) - 2
-;;