-let set_baseuri st name =
- let baseuri = Filename.concat st.output_base_uri name in
- set_items st name [T.BaseUri baseuri]
-
-let require st name =
- set_items st name [T.Include st.package]
-
+let require st name inc =
+ set_items st name [T.Include inc]
+
+let get_coercion st str =
+ try List.assoc str st.coercions with Not_found -> ""
+
+let make_path path =
+ List.fold_left Filename.concat "" (List.rev path)
+
+let make_prefix path =
+ String.concat "__" (List.rev path) ^ "__"
+
+let make_script_name st script name =
+ let ext = if script.is_ma then ".ma" else ".mma" in
+ Filename.concat st.output_path (name ^ ext)
+