Compare commits
No commits in common. 'cs10' and 'c9' have entirely different histories.
@ -1,71 +0,0 @@
|
|||||||
--- calendar-2.04/configure.in~ 2014-10-29 10:03:20.000000000 +0000
|
|
||||||
+++ calendar-2.04/configure.in 2024-05-31 17:39:52.981965618 +0100
|
|
||||||
@@ -56,6 +56,7 @@
|
|
||||||
3.0*) echo "${ECHO_T}Unsupported version!"; exit 2;;
|
|
||||||
3.*) OCAMLMAJOR=3; echo "${ECHO_T}Good!";;
|
|
||||||
4.*) OCAMLMAJOR=4; echo "${ECHO_T}Good!";;
|
|
||||||
+ 5.*) OCAMLMAJOR=5; echo "${ECHO_T}Good!";;
|
|
||||||
*) echo "${ECHO_T}Unsupported version!"; exit 2;;
|
|
||||||
esac
|
|
||||||
|
|
||||||
diff -ur calendar-2.04.old/src/date.ml calendar-2.04/src/date.ml
|
|
||||||
--- calendar-2.04.old/src/date.ml 2014-10-29 10:03:20.000000000 +0000
|
|
||||||
+++ calendar-2.04/src/date.ml 2024-05-31 18:02:28.444110805 +0100
|
|
||||||
@@ -70,7 +70,7 @@
|
|
||||||
(* Constructors. *)
|
|
||||||
|
|
||||||
let lt (d1 : int * int * int) (d2 : int * int * int) =
|
|
||||||
- Pervasives.compare d1 d2 < 0
|
|
||||||
+ Stdlib.compare d1 d2 < 0
|
|
||||||
|
|
||||||
(* [date_ok] returns [true] is the date belongs to the Julian period;
|
|
||||||
[false] otherwise. *)
|
|
||||||
@@ -249,10 +249,10 @@
|
|
||||||
let sub x y = { m = x.m - y.m; d = x.d - y.d }
|
|
||||||
let opp x = { m = - x.m; d = - x.d }
|
|
||||||
|
|
||||||
- (* exactly equivalent to [Pervasives.compare] but more flexible typing *)
|
|
||||||
+ (* exactly equivalent to [Stdlib.compare] but more flexible typing *)
|
|
||||||
let compare x y =
|
|
||||||
- let n = Pervasives.compare x.m y.m in
|
|
||||||
- if n = 0 then Pervasives.compare x.d y.d else n
|
|
||||||
+ let n = Stdlib.compare x.m y.m in
|
|
||||||
+ if n = 0 then Stdlib.compare x.d y.d else n
|
|
||||||
let equal x y = compare x y = 0
|
|
||||||
let hash = Hashtbl.hash
|
|
||||||
|
|
||||||
diff -ur calendar-2.04.old/src/printer.ml calendar-2.04/src/printer.ml
|
|
||||||
--- calendar-2.04.old/src/printer.ml 2014-10-29 10:03:20.000000000 +0000
|
|
||||||
+++ calendar-2.04/src/printer.ml 2024-05-31 18:03:14.806779295 +0100
|
|
||||||
@@ -181,7 +181,7 @@
|
|
||||||
let print_int pad k n = print_number fmt pad k (Lazy.force n) in
|
|
||||||
let print_string pad s =
|
|
||||||
let pad s = match pad with
|
|
||||||
- | Uppercase -> String.uppercase s
|
|
||||||
+ | Uppercase -> String.uppercase_ascii s
|
|
||||||
| Empty | Zero | Blank -> s
|
|
||||||
in
|
|
||||||
Format.pp_print_string fmt (pad (Lazy.force s))
|
|
||||||
@@ -236,7 +236,7 @@
|
|
||||||
| 'n' -> print_char '\n'
|
|
||||||
| 'p' -> print_string pad apm
|
|
||||||
| 'P' ->
|
|
||||||
- Format.pp_print_string fmt (String.lowercase (Lazy.force apm))
|
|
||||||
+ Format.pp_print_string fmt (String.lowercase_ascii (Lazy.force apm))
|
|
||||||
| 'r' ->
|
|
||||||
print_time pad shour;
|
|
||||||
print_char ' ';
|
|
||||||
diff -ur calendar-2.04.old/src/utils.ml calendar-2.04/src/utils.ml
|
|
||||||
--- calendar-2.04.old/src/utils.ml 2014-10-29 10:03:20.000000000 +0000
|
|
||||||
+++ calendar-2.04/src/utils.ml 2024-05-31 18:02:28.445110798 +0100
|
|
||||||
@@ -29,8 +29,8 @@
|
|
||||||
|
|
||||||
module Int = struct
|
|
||||||
type t = int
|
|
||||||
- let equal = Pervasives.(=)
|
|
||||||
- let compare = Pervasives.compare
|
|
||||||
+ let equal = Stdlib.(=)
|
|
||||||
+ let compare = Stdlib.compare
|
|
||||||
let hash = Hashtbl.hash
|
|
||||||
end
|
|
||||||
|
|
Loading…
Reference in new issue