(*
- ||M|| This file is part of HELM, an Hypertextual, Electronic
- ||A|| Library of Mathematics, developed at the Computer Science
- ||T|| Department, University of Bologna, Italy.
- ||I||
- ||T|| HELM is free software; you can redistribute it and/or
- ||A|| modify it under the terms of the GNU General Public License
- \ / version 2 or (at your option) any later version.
- \ / This software is distributed as is, NO WARRANTY.
+ ||M|| This file is part of HELM, an Hypertextual, Electronic
+ ||A|| Library of Mathematics, developed at the Computer Science
+ ||T|| Department, University of Bologna, Italy.
+ ||I||
+ ||T|| HELM is free software; you can redistribute it and/or
+ ||A|| modify it under the terms of the GNU General Public License
+ \ / version 2 or (at your option) any later version.
+ \ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
module A = Array
module O = Options
module E = Engine
+module X = Error
let chop_extension file =
try F.chop_extension file
let file = mk_file path in
if Y.file_exists (F.concat base file) then
scan_entry (is_script devel) base devel file
- else E.missing path
- else E.unsupported protocol
+ else X.missing path
+ else X.unsupported protocol
let from_string base devel s =
from_uri base devel (U.uri_of_string s)