+
+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)
+