+++ /dev/null
-# ChangeLog for dev-ml/obrowser
-# Copyright 1999-2013 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-ml/obrowser/ChangeLog,v 1.11 2013/08/19 20:54:42 aballier Exp $
-
- 19 Aug 2013; Alexis Ballier <aballier@gentoo.org> obrowser-1.1.1.ebuild,
- +files/obrowser-1.1.1-ocaml41.patch:
- fix build with ocaml 4.01
-
- 10 Mar 2013; Alexis Ballier <aballier@gentoo.org> obrowser-1.1.1.ebuild:
- define subslot for real this time
-
- 10 Mar 2013; Alexis Ballier <aballier@gentoo.org> obrowser-1.1.1.ebuild:
- eapi5: define subslot, slot dep on ocaml packages, remove useless || die
-
- 10 Oct 2012; Alexis Ballier <aballier@gentoo.org> obrowser-1.1.1.ebuild,
- +files/obrowser-1.1.1-ocaml4.patch:
- fix build with ocaml-4
-
- 04 May 2012; Alexis Ballier <aballier@gentoo.org> obrowser-1.1.1.ebuild:
- depend on lwt, by Sergey Kishchenko in bug #413885
-
- 26 Jun 2011; Alexis Ballier <aballier@gentoo.org> obrowser-1.1.1.ebuild:
- inhibit the ocaml version check so that it builds with 3.12.1rc1
-
- 28 Apr 2011; Alexis Ballier <aballier@gentoo.org> -obrowser-1.1.ebuild,
- -files/obrowser-1.1-ocaml312.patch:
- remove old
-
-*obrowser-1.1.1 (28 Apr 2011)
-
- 28 Apr 2011; Alexis Ballier <aballier@gentoo.org> +obrowser-1.1.1.ebuild:
- version bump
-
- 15 Feb 2011; Thomas Kahle <tomka@gentoo.org> obrowser-1.1.ebuild:
- ~x86 per bug 352299
-
- 20 Jan 2011; Alexis Ballier <aballier@gentoo.org> obrowser-1.1.ebuild,
- +files/obrowser-1.1-ocaml312.patch:
- Fix pervasives conflict with ocaml 3.12
-
-*obrowser-1.1 (07 Nov 2010)
-
- 07 Nov 2010; Alexis Ballier <aballier@gentoo.org> +obrowser-1.1.ebuild,
- +metadata.xml:
- initial import, ebuild by me
+++ /dev/null
-Index: obrowser-1.1.1/rt/caml/pervasives.ml
-===================================================================
---- obrowser-1.1.1.orig/rt/caml/pervasives.ml
-+++ obrowser-1.1.1/rt/caml/pervasives.ml
-@@ -91,6 +90,8 @@ external acos : float -> float = "caml_a
- external asin : float -> float = "caml_asin_float" "asin" "float"
- external atan : float -> float = "caml_atan_float" "atan" "float"
- external atan2 : float -> float -> float = "caml_atan2_float" "atan2" "float"
-+external hypot : float -> float -> float
-+ = "caml_hypot_float" "caml_hypot" "float"
- external cos : float -> float = "caml_cos_float" "cos" "float"
- external cosh : float -> float = "caml_cosh_float" "cosh" "float"
- external log : float -> float = "caml_log_float" "log" "float"
-@@ -104,6 +105,8 @@ external tanh : float -> float = "caml_t
- external ceil : float -> float = "caml_ceil_float" "ceil" "float"
- external floor : float -> float = "caml_floor_float" "floor" "float"
- external abs_float : float -> float = "%absfloat"
-+external copysign : float -> float -> float
-+ = "caml_copysign_float" "caml_copysign" "float"
- external mod_float : float -> float -> float = "caml_fmod_float" "fmod" "float"
- external frexp : float -> float * int = "caml_frexp_float"
- external ldexp : float -> int -> float = "caml_ldexp_float"
-Index: obrowser-1.1.1/rt/caml/pervasives.mli
-===================================================================
---- obrowser-1.1.1.orig/rt/caml/pervasives.mli
-+++ obrowser-1.1.1/rt/caml/pervasives.mli
-@@ -310,10 +310,18 @@ external atan : float -> float = "caml_a
- Result is in radians and is between [-pi/2] and [pi/2]. *)
-
- external atan2 : float -> float -> float = "caml_atan2_float" "atan2" "float"
--(** [atan x y] returns the arc tangent of [y /. x]. The signs of [x]
-+(** [atan2 y x] returns the arc tangent of [y /. x]. The signs of [x]
- and [y] are used to determine the quadrant of the result.
- Result is in radians and is between [-pi] and [pi]. *)
-
-+external hypot : float -> float -> float
-+ = "caml_hypot_float" "caml_hypot" "float"
-+(** [hypot x y] returns [sqrt(x *. x + y *. y)], that is, the length
-+ of the hypotenuse of a right-angled triangle with sides of length
-+ [x] and [y], or, equivalently, the distance of the point [(x,y)]
-+ to origin.
-+ @since 4.00.0 *)
-+
- external cosh : float -> float = "caml_cosh_float" "cosh" "float"
- (** Hyperbolic cosine. Argument is in radians. *)
-
-@@ -337,6 +345,14 @@ external floor : float -> float = "caml_
- external abs_float : float -> float = "%absfloat"
- (** [abs_float f] returns the absolute value of [f]. *)
-
-+external copysign : float -> float -> float
-+ = "caml_copysign_float" "caml_copysign" "float"
-+(** [copysign x y] returns a float whose absolute value is that of [x]
-+ and whose sign is that of [y]. If [x] is [nan], returns [nan].
-+ If [y] is [nan], returns either [x] or [-. x], but it is not
-+ specified which.
-+ @since 4.00.0 *)
-+
- external mod_float : float -> float -> float = "caml_fmod_float" "fmod" "float"
- (** [mod_float a b] returns the remainder of [a] with respect to
- [b]. The returned value is [a -. n *. b], where [n]
+++ /dev/null
-Index: obrowser-1.1.1/rt/caml/pervasives.ml
-===================================================================
---- obrowser-1.1.1.orig/rt/caml/pervasives.ml
-+++ obrowser-1.1.1/rt/caml/pervasives.ml
-@@ -24,6 +24,11 @@ let invalid_arg s = raise(Invalid_argume
-
- exception Exit
-
-+(* Composition operators *)
-+
-+external ( |> ) : 'a -> ('a -> 'b) -> 'b = "%revapply"
-+external ( @@ ) : ('a -> 'b) -> 'a -> 'b = "%apply"
-+
- (* Comparisons *)
-
- external (=) : 'a -> 'a -> bool = "%equal"
-Index: obrowser-1.1.1/rt/caml/pervasives.mli
-===================================================================
---- obrowser-1.1.1.orig/rt/caml/pervasives.mli
-+++ obrowser-1.1.1/rt/caml/pervasives.mli
-@@ -137,6 +137,19 @@ external ( || ) : bool -> bool -> bool =
- external ( or ) : bool -> bool -> bool = "%sequor"
- (** @deprecated {!Pervasives.( || )} should be used instead.*)
-
-+(** {6 Composition operators} *)
-+
-+external ( |> ) : 'a -> ('a -> 'b) -> 'b = "%revapply"
-+(** Reverse-application operator: [x |> f |> g] is exactly equivalent
-+ to [g (f (x))].
-+ @since 4.01
-+*)
-+
-+external ( @@ ) : ('a -> 'b) -> 'a -> 'b = "%apply"
-+(** Application operator: [g @@ f @@ x] is exactly equivalent to
-+ [g (f (x))].
-+ @since 4.01
-+*)
-
- (** {6 Integer arithmetic} *)
-
-Index: obrowser-1.1.1/rt/caml/printexc.ml
-===================================================================
---- obrowser-1.1.1.orig/rt/caml/printexc.ml
-+++ obrowser-1.1.1/rt/caml/printexc.ml
-@@ -78,6 +78,11 @@ let catch fct arg =
- eprintf "Uncaught exception: %s\n" (to_string x);
- exit 2
-
-+type raw_backtrace
-+
-+external get_raw_backtrace:
-+ unit -> raw_backtrace = "caml_get_exception_raw_backtrace"
-+
- type loc_info =
- | Known_location of bool (* is_raise *)
- * string (* filename *)
-@@ -86,8 +91,13 @@ type loc_info =
- * int (* end char *)
- | Unknown_location of bool (*is_raise*)
-
--external get_exception_backtrace:
-- unit -> loc_info array option = "caml_get_exception_backtrace"
-+(* to avoid warning *)
-+let _ = [Known_location (false, "", 0, 0, 0); Unknown_location false]
-+
-+type backtrace = loc_info array
-+
-+external convert_raw_backtrace:
-+ raw_backtrace -> backtrace option = "caml_convert_raw_backtrace"
-
- let format_loc_info pos li =
- let is_raise =
-@@ -108,8 +118,8 @@ let format_loc_info pos li =
- sprintf "%s unknown location"
- info
-
--let print_backtrace outchan =
-- match get_exception_backtrace() with
-+let print_exception_backtrace outchan backtrace =
-+ match backtrace with
- | None ->
- fprintf outchan
- "(Program not linked with -g, cannot print stack backtrace)\n"
-@@ -119,8 +129,15 @@ let print_backtrace outchan =
- fprintf outchan "%s\n" (format_loc_info i a.(i))
- done
-
--let get_backtrace () =
-- match get_exception_backtrace() with
-+let print_raw_backtrace outchan raw_backtrace =
-+ print_exception_backtrace outchan (convert_raw_backtrace raw_backtrace)
-+
-+(* confusingly named: prints the global current backtrace *)
-+let print_backtrace outchan =
-+ print_raw_backtrace outchan (get_raw_backtrace ())
-+
-+let backtrace_to_string backtrace =
-+ match backtrace with
- | None ->
- "(Program not linked with -g, cannot print stack backtrace)\n"
- | Some a ->
-@@ -131,8 +148,22 @@ let get_backtrace () =
- done;
- Buffer.contents b
-
-+let raw_backtrace_to_string raw_backtrace =
-+ backtrace_to_string (convert_raw_backtrace raw_backtrace)
-+
-+(* confusingly named:
-+ returns the *string* corresponding to the global current backtrace *)
-+let get_backtrace () =
-+ (* we could use the caml_get_exception_backtrace primitive here, but
-+ we hope to deprecate it so it's better to just compose the
-+ raw stuff *)
-+ backtrace_to_string (convert_raw_backtrace (get_raw_backtrace ()))
-+
- external record_backtrace: bool -> unit = "caml_record_backtrace"
- external backtrace_status: unit -> bool = "caml_backtrace_status"
-
- let register_printer fn =
- printers := fn :: !printers
-+
-+
-+external get_callstack: int -> raw_backtrace = "caml_get_current_callstack"
-Index: obrowser-1.1.1/rt/caml/printexc.mli
-===================================================================
---- obrowser-1.1.1.orig/rt/caml/printexc.mli
-+++ obrowser-1.1.1/rt/caml/printexc.mli
-@@ -79,3 +79,33 @@ val register_printer: (exn -> string opt
- generic printer).
- @since 3.11.2
- *)
-+
-+(** {6 Raw backtraces} *)
-+
-+type raw_backtrace
-+
-+(** The abstract type [backtrace] stores exception backtraces in
-+ a low-level format, instead of directly exposing them as string as
-+ the [get_backtrace()] function does.
-+
-+ This allows to pay the performance overhead of representation
-+ conversion and formatting only at printing time, which is useful
-+ if you want to record more backtrace than you actually print.
-+*)
-+
-+val get_raw_backtrace: unit -> raw_backtrace
-+val print_raw_backtrace: out_channel -> raw_backtrace -> unit
-+val raw_backtrace_to_string: raw_backtrace -> string
-+
-+
-+(** {6 Current call stack} *)
-+
-+val get_callstack: int -> raw_backtrace
-+
-+(** [Printexc.get_callstack n] returns a description of the top of the
-+ call stack on the current program point (for the current thread),
-+ with at most [n] entries. (Note: this function is not related to
-+ exceptions at all, despite being part of the [Printexc] module.)
-+
-+ @since 4.01.0
-+*)
-Index: obrowser-1.1.1/rt/caml/list.ml
-===================================================================
---- obrowser-1.1.1.orig/rt/caml/list.ml
-+++ obrowser-1.1.1/rt/caml/list.ml
-@@ -73,6 +73,18 @@ let rec fold_left f accu l =
- [] -> accu
- | a::l -> fold_left f (f accu a) l
-
-+let rec mapi i f = function
-+ [] -> []
-+ | a::l -> let r = f i a in r :: mapi (i + 1) f l
-+
-+let mapi f l = mapi 0 f l
-+
-+let rec iteri i f = function
-+ [] -> ()
-+ | a::l -> f i a; iteri (i + 1) f l
-+
-+let iteri f l = iteri 0 f l
-+
- let rec fold_right f l accu =
- match l with
- [] -> accu
-Index: obrowser-1.1.1/rt/caml/list.mli
-===================================================================
---- obrowser-1.1.1.orig/rt/caml/list.mli
-+++ obrowser-1.1.1/rt/caml/list.mli
-@@ -75,11 +75,25 @@ val iter : ('a -> unit) -> 'a list -> un
- [a1; ...; an]. It is equivalent to
- [begin f a1; f a2; ...; f an; () end]. *)
-
-+val iteri : (int -> 'a -> unit) -> 'a list -> unit
-+(** Same as {!List.iter}, but the function is applied to the index of
-+ the element as first argument (counting from 0), and the element
-+ itself as second argument.
-+ @since 4.00.0
-+*)
-+
- val map : ('a -> 'b) -> 'a list -> 'b list
- (** [List.map f [a1; ...; an]] applies function [f] to [a1, ..., an],
- and builds the list [[f a1; ...; f an]]
- with the results returned by [f]. Not tail-recursive. *)
-
-+val mapi : (int -> 'a -> 'b) -> 'a list -> 'b list
-+(** Same as {!List.map}, but the function is applied to the index of
-+ the element as first argument (counting from 0), and the element
-+ itself as second argument. Not tail-recursive.
-+ @since 4.00.0
-+*)
-+
- val rev_map : ('a -> 'b) -> 'a list -> 'b list
- (** [List.rev_map f l] gives the same result as
- {!List.rev}[ (]{!List.map}[ f l)], but is tail-recursive and
projects / gentoo.git / commitdiff