otpbp_ets: add first_lookup/1, last_lookup/1, next_lookup/2, prev_loo…

…kup/2
Ledest · Jan 10, 2024 · 41bc95a · 41bc95a
1 parent 9fb8a74
commit 41bc95a
Show file tree

Hide file tree

Showing 3 changed files with 54 additions and 0 deletions.
diff --git a/rebar.config.script b/rebar.config.script
@@ -154,7 +154,11 @@ Funs = [{application, get_supervisor, 1},
         {erts_internal, binary_to_integer, 2},
         {erts_internal, list_to_integer, 2},
         {erts_internal, map_next, 3},
+        {ets, first_lookup, 1},
+        {ets, last_lookup, 1},
         {ets, lookup_element, 4},
+        {ets, next_lookup, 2},
+        {ets, prev_lookup, 2},
         {ets, whereis, 1},
         {file, del_dir_r, 1},
         {file, delete, 2},

diff --git a/src/otpbp_ets.erl b/src/otpbp_ets.erl
@@ -8,6 +8,22 @@
 % OTP 26.0
 -export([lookup_element/4]).
 -endif.
+-ifndef(HAVE_ets__first_lookup_1).
+% OTP 27.0
+-export([first_lookup/1]).
+-endif.
+-ifndef(HAVE_ets__last_lookup_1).
+% OTP 27.0
+-export([last_lookup/1]).
+-endif.
+-ifndef(HAVE_ets__next_lookup_2).
+% OTP 27.0
+-export([next_lookup/2]).
+-endif.
+-ifndef(HAVE_ets__prev_lookup_2).
+% OTP 27.0
+-export([prev_lookup/2]).
+-endif.
 
 -ifndef(HAVE_ets__whereis_1).
 whereis(T) ->
@@ -32,3 +48,35 @@ lookup_element(Table, Key, Pos, Default) ->
         _ -> Default
     end.
 -endif.
+
+-ifndef(HAVE_ets__first_lookup_1).
+first_lookup(Tab) ->
+    case ets:first(Tab) of
+        '$end_of_table' -> '$end_of_table';
+        Key -> ets:lookup(Tab, Key)
+    end.
+-endif.
+
+-ifndef(HAVE_ets__last_lookup_1).
+last_lookup(Tab) ->
+    case ets:last(Tab) of
+        '$end_of_table' -> '$end_of_table';
+        Key -> ets:lookup(Tab, Key)
+    end.
+-endif.
+
+-ifndef(HAVE_ets__next_lookup_2).
+next_lookup(Tab, Key) ->
+    case ets:next(Tab, Key) of
+        '$end_of_table' -> '$end_of_table';
+        KeyN -> ets:lookup(Tab, KeyN)
+    end.
+-endif.
+
+-ifndef(HAVE_ets__prev_lookup_2).
+prev_lookup(Tab, Key) ->
+    case ets:prev(Tab, Key) of
+        '$end_of_table' -> '$end_of_table';
+        KeyN -> ets:lookup(Tab, KeyN)
+    end.
+-endif.
diff --git a/src/otpbp_pt.erl b/src/otpbp_pt.erl
@@ -105,7 +105,9 @@
                               {{error_logger, limit_term, 1}, otpbp_error_logger},
                               {{erts_internal, [binary_to_integer, list_to_integer], 2}, otpbp_erts_internal},
                               {{erts_internal, map_next, 3}, otpbp_erts_internal},
+                              {{ets, [first_lookup, last_lookup], 1}, otpbp_ets},
                               {{ets, lookup_element, 4}, otpbp_ets},
+                              {{ets, [next_lookup, prev_lookup], 2}, otpbp_ets},
                               {{ets, whereis, 1}, otpbp_ets},
                               {{file, del_dir_r, 1}, otpbp_file},
                               {{file, [delete, read_file], 2}, otpbp_file},