File tree Expand file tree Collapse file tree 2 files changed +13
-3
lines changed Expand file tree Collapse file tree 2 files changed +13
-3
lines changed Original file line number Diff line number Diff line change @@ -79,9 +79,9 @@ let run_command ?(no_stderr=false) c =
79
79
let ask ?(default =false ) fmt =
80
80
Printf. ksprintf (fun s ->
81
81
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
85
85
| _ -> default
86
86
with End_of_file -> false )
87
87
fmt
Original file line number Diff line number Diff line change @@ -24,7 +24,17 @@ build: clone
24
24
all : bcl ncl
25
25
26
26
clone : $(SRC_EXTS:=.stamp )
27
+ ifneq ($(filter 4.% ,$(shell $(OCAMLC ) -vnum) ) ,)
27
28
@
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
28
38
29
39
archives : $(SRC_EXTS:=.download )
30
40
@
You can’t perform that action at this time.
0 commit comments