module R = Helm_registry
-let template = "matita.ma.templ"
+let template = "../../../matita/matita.ma.templ"
let myself = F.basename Sys.argv.(0)
-let get_preamble conf =
- R.load_from conf;
- let rt_base_dir = R.get_string "matita.rt_base_dir" in
- F.concat rt_base_dir template
+let rt_base_dir = F.dirname Sys.argv.(0)
+
+let get_preamble () =
+ F.concat rt_base_dir template
let copy_preamble preamble och =
- let ich = open_in preamble in
- let rec read () =
- Printf.fprintf och "%s\n" (input_line ich); read ()
- in
- try read () with End_of_file -> close_in ich
+ let ich = open_in preamble in
+ let rec read () =
+ Printf.fprintf och "%s\n" (input_line ich); read ()
+ in
+ try read () with End_of_file -> close_in ich
let print_header def och =
let msg = if def then "LOGIC" else "GROUND NOTATION" in
- let stars = String.make (72 - String.length msg) '*' in
- Printf.fprintf och "(* %s %s*)\n\n" msg stars
+ let stars = String.make (72 - String.length msg) '*' in
+ Printf.fprintf och "(* %s %s*)\n\n" msg stars
let print_comment och =
- let msg = Printf.sprintf "NOTE: This file was generated by %s, do not edit" myself in
- let stars = String.make (72 - String.length msg) '*' in
- Printf.fprintf och "(* %s %s*)\n\n" msg stars
+ let msg = Printf.sprintf "NOTE: This file was generated by %s, do not edit" myself in
+ let stars = String.make (72 - String.length msg) '*' in
+ Printf.fprintf och "(* %s %s*)\n\n" msg stars
let exists_out name =
- let path = [
- R.get_string "xoa.output_dir";
- name
- ] in
- let name = List.fold_left F.concat "" path in
- K.file_exists (name ^ ".ma")
+ let path = [
+ R.get_string "xoa.output_dir";
+ name
+ ] in
+ let name = List.fold_left F.concat "" path in
+ K.file_exists (name ^ ".ma")
let open_out def preamble name =
- let path = [
- R.get_string "xoa.output_dir";
- name
- ] in
- let name = List.fold_left F.concat "" path in
- let och = open_out (name ^ ".ma") in
- copy_preamble preamble och;
- print_header def och;
- print_comment och;
- och
+ let path = [
+ R.get_string "xoa.output_dir";
+ name
+ ] in
+ let name = List.fold_left F.concat "" path in
+ let och = open_out (name ^ ".ma") in
+ copy_preamble preamble och;
+ print_header def och;
+ print_comment och;
+ och
let out_include och s =
- Printf.fprintf och "include \"%s\".\n\n" s
+ Printf.fprintf och "include \"%s\".\n\n" s