Skip to content

Commit

Permalink
Fix ocaml-system and ocaml scripts for Cygwin
Browse files Browse the repository at this point in the history
  • Loading branch information
dra27 committed May 6, 2018
1 parent d62e65f commit f402530
Show file tree
Hide file tree
Showing 66 changed files with 696 additions and 168 deletions.
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
let () =
let ocamlc = Sys.executable_name ^ "c" in
let exe = ".exe" in
let ocamlc =
let (base, suffix) =
let s = Sys.executable_name in
if Filename.check_suffix s exe then
(Filename.chop_suffix s exe, exe)
else
(s, "") in
base ^ "c" ^ suffix in
if Sys.ocaml_version <> "%{_:version}%" then
(Printf.eprintf
"ERROR: The compiler found at %%s has version %%s,\n\
Expand Down
Loading

0 comments on commit f402530

Please sign in to comment.