Skip to content

Commit ac3ec18

Browse files
committed
4.00.0 and 5.00.0 compatibility...
1 parent fb554cb commit ac3ec18

File tree

2 files changed

+13
-3
lines changed

2 files changed

+13
-3
lines changed

depext.ml

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -79,9 +79,9 @@ let run_command ?(no_stderr=false) c =
7979
let ask ?(default=false) fmt =
8080
Printf.ksprintf (fun s ->
8181
Printf.printf "%s [%s] %!" s (if default then "Y/n" else "y/N");
82-
try match String.lowercase (read_line ()) with
83-
| "y" | "yes" -> true
84-
| "n" | "no" -> false
82+
try match read_line () with
83+
| "y" | "Y" | "yes" | "Yes" | "yEs" | "yeS" | "YEs" | "yES" | "YeS" | "YES" -> true
84+
| "n" | "N" | "no" | "nO" | "No" | "NO" -> false
8585
| _ -> default
8686
with End_of_file -> false)
8787
fmt

src_ext/Makefile

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -24,7 +24,17 @@ build: clone
2424
all: bcl ncl
2525

2626
clone: $(SRC_EXTS:=.stamp)
27+
ifneq ($(filter 4.%,$(shell $(OCAMLC) -vnum)),)
2728
@
29+
else
30+
@mv cmdliner/src/cmdliner.ml cmdliner/src/t
31+
@echo 'module String = struct include String' > cmdliner/src/cmdliner.ml
32+
@echo ' let uppercase = uppercase_ascii' >> cmdliner/src/cmdliner.ml
33+
@echo ' let lowercase = lowercase_ascii' >> cmdliner/src/cmdliner.ml
34+
@echo ' let capitalize = capitalize_ascii' >> cmdliner/src/cmdliner.ml
35+
@echo 'end' >> cmdliner/src/cmdliner.ml
36+
@cat cmdliner/src/t >> cmdliner/src/cmdliner.ml
37+
endif
2838

2939
archives: $(SRC_EXTS:=.download)
3040
@

0 commit comments

Comments
 (0)