diff options
| author | Siri Hansen <[email protected]> | 2017-09-18 12:12:20 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2017-09-18 12:12:20 +0200 |
| commit | 08a93b7432b8e7f338b88328680f2aa88fb413e8 (patch) | |
| tree | 967b2aa6c5f351a8c3f0d2b1420197e1adb4768a /lib/kernel | |
| parent | 83a66e961f043720c9d353923baaefb6f5e8ed96 (diff) | |
| parent | 70dc180c85793a32e8b30c0db3b66add1b789bfb (diff) | |
| download | otp-08a93b7432b8e7f338b88328680f2aa88fb413e8.tar.gz otp-08a93b7432b8e7f338b88328680f2aa88fb413e8.tar.bz2 otp-08a93b7432b8e7f338b88328680f2aa88fb413e8.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/kernel')
| -rw-r--r-- | lib/kernel/src/error_logger.erl | 33 |
1 files changed, 24 insertions, 9 deletions
diff --git a/lib/kernel/src/error_logger.erl b/lib/kernel/src/error_logger.erl index f07ec52cfa..585507c545 100644 --- a/lib/kernel/src/error_logger.erl +++ b/lib/kernel/src/error_logger.erl @@ -499,16 +499,31 @@ display4(A = [_|_]) -> display4(A) -> erlang:display(A). - -string_p(Term) when is_list(Term) -> - string_p1(lists:flatten(Term)); -string_p(_Term) -> - false. - -string_p1([]) -> +string_p([]) -> false; -string_p1(FlatList) -> - io_lib:printable_list(FlatList). +string_p(Term) -> + string_p1(Term). + +string_p1([H|T]) when is_integer(H), H >= $\040, H =< $\176 -> + string_p1(T); +string_p1([H|T]) when is_integer(H), H >= 16#A0, H < 16#D800; + is_integer(H), H > 16#DFFF, H < 16#FFFE; + is_integer(H), H > 16#FFFF, H =< 16#10FFFF -> + string_p1(T); +string_p1([$\n|T]) -> string_p1(T); +string_p1([$\r|T]) -> string_p1(T); +string_p1([$\t|T]) -> string_p1(T); +string_p1([$\v|T]) -> string_p1(T); +string_p1([$\b|T]) -> string_p1(T); +string_p1([$\f|T]) -> string_p1(T); +string_p1([$\e|T]) -> string_p1(T); +string_p1([H|T]) when is_list(H) -> + case string_p1(H) of + true -> string_p1(T); + _ -> false + end; +string_p1([]) -> true; +string_p1(_) -> false. -spec limit_term(term()) -> term(). |