snapphot

Author: bobzhang

lib/4.06.1/bsb.ml

@@ -2289,6 +2289,11 @@ val sort_via_array :
   ('a -> 'a -> int) -> 
   'a list  
 
+val sort_via_arrayf:
+  'a list -> 
+  ('a -> 'a -> int) ->
+  ('a -> 'b ) -> 
+   'b list  
 
 
 
@@ -3030,7 +3035,10 @@ let sort_via_array lst cmp =
   Array.sort cmp arr;
   Array.to_list arr
 
-
+let sort_via_arrayf lst cmp f  = 
+  let arr = Array.of_list lst  in
+  Array.sort cmp arr;
+  Ext_array.to_list_f arr f 
 
 
 let rec assoc_by_string lst (k : string) def  = 

lib/4.06.1/unstable/all_ounit_tests.ml

@@ -3805,6 +3805,11 @@ val sort_via_array :
   ('a -> 'a -> int) -> 
   'a list  
 
+val sort_via_arrayf:
+  'a list -> 
+  ('a -> 'a -> int) ->
+  ('a -> 'b ) -> 
+   'b list  
 
 
 
@@ -4546,7 +4551,10 @@ let sort_via_array lst cmp =
   Array.sort cmp arr;
   Array.to_list arr
 
-
+let sort_via_arrayf lst cmp f  = 
+  let arr = Array.of_list lst  in
+  Array.sort cmp arr;
+  Ext_array.to_list_f arr f 
 
 
 let rec assoc_by_string lst (k : string) def  = 

lib/4.06.1/unstable/bsb_native.ml

@@ -2289,6 +2289,11 @@ val sort_via_array :
   ('a -> 'a -> int) -> 
   'a list  
 
+val sort_via_arrayf:
+  'a list -> 
+  ('a -> 'a -> int) ->
+  ('a -> 'b ) -> 
+   'b list  
 
 
 
@@ -3030,7 +3035,10 @@ let sort_via_array lst cmp =
   Array.sort cmp arr;
   Array.to_list arr
 
-
+let sort_via_arrayf lst cmp f  = 
+  let arr = Array.of_list lst  in
+  Array.sort cmp arr;
+  Ext_array.to_list_f arr f 
 
 
 let rec assoc_by_string lst (k : string) def  =