Skip to main content

Browse the archive

Revision 6ee5d28a8988618b187e10ebbe680be736c694c4 authored by fclement on 21 September 2006, 15:57:14 UTC, committed by fclement on 21 September 2006, 15:57:14 UTC 
Switch back to old installation scheme.
1 parent 4442830
Raw File
ocamlp3lopt.ml 
open Toolbase;;

let command, arguments, openmodule, description =
  let () = set_argu () in
  let () = dconf.exe <- Nat in
  get_cmd ();;

let open_cmd = List.map (fun x -> "open "^x^"\\;\\;") openmodule;;
let preproc_cmd = 
  ["-pp "; "\"echo " ^ (String.concat "" open_cmd) ^ " | cat - \""];;

let custom_arg = command::preproc_cmd@arguments;;

let main () =
  print_endline description;
(*
  print_endline (String.concat " " custom_arg);
*)
  if (Sys.command (String.concat " " custom_arg)) = 0 then ()
  else print_endline "Abnormal exit, something is wrong"
;;

main ();;
back to top