File 3131-ssh-Add-is_on-0-is_off-0-in-ssh_dbg.patch of Package erlang

From 5526a88e73b96972b99918797642fcf1f3ad56a9 Mon Sep 17 00:00:00 2001
From: Hans Nilsson <hans@erlang.org>
Date: Fri, 17 Apr 2020 15:03:50 +0200
Subject: [PATCH 1/5] ssh: Add is_on/0 is_off/0 in ssh_dbg

---
 lib/ssh/src/ssh_dbg.erl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/ssh/src/ssh_dbg.erl b/lib/ssh/src/ssh_dbg.erl
index 1809b14099..5e3c48d468 100644
--- a/lib/ssh/src/ssh_dbg.erl
+++ b/lib/ssh/src/ssh_dbg.erl
@@ -54,6 +54,8 @@
          start_tracer/0, start_tracer/1,
          on/1,  on/0,
          off/1, off/0,
+         is_on/0,
+         is_off/0,
          go_on/0,
          %% Circular buffer
          cbuf_start/0, cbuf_start/1,
@@ -134,10 +136,13 @@ start_tracer(WriteFun, InitAcc) when is_function(WriteFun, 3) ->
 %%%----------------------------------------------------------------
 on() -> on(?ALL_DBG_TYPES).
 on(Type) -> switch(on, Type).
-
+is_on() -> gen_server:call(?SERVER, get_on, ?CALL_TIMEOUT).
+    
 
 off() -> off(?ALL_DBG_TYPES). % A bit overkill...
 off(Type) -> switch(off, Type).
+is_off() -> ?ALL_DBG_TYPES -- is_on().
+    
     
 go_on() ->
     IsOn = gen_server:call(?SERVER, get_on, ?CALL_TIMEOUT),
-- 
2.26.1

openSUSE Build Service is sponsored by