-exception UnableToQualify
+exception NoRootFor of string
+
val find_root : string -> string
-val is_prefix_of : string -> string -> bool
-val filename : unit -> string
-(* baseuri_of_script ?(inc:REG[matita.includes] fname -> root, buri, fullpath
+(* baseuri_of_script ?(inc:REG[matita.includes]) fname -> root, buri, fullpath
* sample: baseuri_of_script a.ma -> /home/pippo/devel/, cic:/matita/a,
* /home/pippo/devel/a.ma *)
val baseuri_of_script: