File 1851-erts-Print-string-that-failed-to-eval.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1851-erts-Print-string-that-failed-to-eval.patch of Package erlang (Revision b1ddc78860c1f178c6361caad002e77d)

Currently displaying revision b1ddc78860c1f178c6361caad002e77d , Show latest

From a393cd27e02df1c5cd8ea4d1035c5efba92dcccb Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang.org>
Date: Tue, 9 Aug 2022 16:20:51 +0200
Subject: [PATCH] erts: Print string that failed to eval

With the way quoting is done in various shells it is not
always obvious what the string entered actually was so we
print it to help the user debug.
---
 erts/preloaded/ebin/init.beam | Bin 61584 -> 61568 bytes
 erts/preloaded/src/init.erl   |  23 +++++++++++++++--------
 2 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/erts/preloaded/src/init.erl b/erts/preloaded/src/init.erl
index 5ea349511d..ceee24e629 100644
--- a/erts/preloaded/src/init.erl
+++ b/erts/preloaded/src/init.erl
@@ -1225,14 +1225,21 @@ start_it([]) ->
     ok;
 start_it({eval,Bin}) ->
     Str = b2s(Bin),
-    {ok,Ts,_} = erl_scan:string(Str),
-    Ts1 = case reverse(Ts) of
-	      [{dot,_}|_] -> Ts;
-	      TsR -> reverse([{dot,erl_anno:new(1)} | TsR])
-	  end,
-    {ok,Expr} = erl_parse:parse_exprs(Ts1),
-    {value, _Value, _Bs} = erl_eval:exprs(Expr, erl_eval:new_bindings()),
-    ok;
+    try
+        {ok,Ts,_} = erl_scan:string(Str),
+        Ts1 = case reverse(Ts) of
+                  [{dot,_}|_] -> Ts;
+                  TsR -> reverse([{dot,erl_anno:new(1)} | TsR])
+              end,
+        {ok,Expr} = erl_parse:parse_exprs(Ts1),
+        {value, _Value, _Bs} = erl_eval:exprs(Expr, erl_eval:new_bindings()),
+        ok
+    catch E:R:ST ->
+            erlang:display_string(
+              binary_to_list(
+                iolist_to_binary(["Failed to eval: ",Bin,"\n"]))),
+            erlang:raise(E,R,ST)
+    end;
 start_it([_|_]=MFA) ->
     case MFA of
 	[M]        -> M:start();
-- 
2.35.3

Places

File 1851-erts-Print-string-that-failed-to-eval.patch of Package erlang (Revision b1ddc78860c1f178c6361caad002e77d)

Places