[elpa] externals/realgud-trepan-ni 66d4e1c 02/25: trepan-ni adds more tracking that realgud can make use of

[Rocky Bernstein]

branch: externals/realgud-trepan-ni
commit 66d4e1c1ad2fdbc9d6a82f1f5479ed0a5d209a6a
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    trepan-ni adds more tracking that realgud can make use of
---
 ...p-node-inspect.el => test-loc-regexp-trepan-ni.el} |  0
 ...test-node-inspect.el => test-trepan-ni.inspect.el} |  2 +-
 trepan-ni/init.el                                     | 19 +++++++++++--------
 3 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/test/test-loc-regexp-node-inspect.el 
b/test/test-loc-regexp-trepan-ni.el
similarity index 100%
rename from test/test-loc-regexp-node-inspect.el
rename to test/test-loc-regexp-trepan-ni.el
diff --git a/test/test-node-inspect.el b/test/test-trepan-ni.inspect.el
similarity index 97%
rename from test/test-node-inspect.el
rename to test/test-trepan-ni.inspect.el
index d8180de..72d53d0 100644
--- a/test/test-node-inspect.el
+++ b/test/test-trepan-ni.inspect.el
@@ -24,7 +24,7 @@
     (assert-equal  expanded-name script-filename "file name check")
     ))
 
-(note "nodejs-parse-cmd-args")
+(note "trepan-ni-parse-cmd-args")
 (assert-equal (list '("node" "inspect") nil '("foo"))
              (nodejs-parse-cmd-args '("node" "inspect" "foo")))
 
diff --git a/trepan-ni/init.el b/trepan-ni/init.el
index fe25481..af6b6c4 100644
--- a/trepan-ni/init.el
+++ b/trepan-ni/init.el
@@ -46,21 +46,24 @@ realgud-loc-pat struct")
 ;;   debug>
 (setf (gethash "prompt" realgud:trepan-ni-pat-hash)
       (make-realgud-loc-pat
-       :regexp (format "^\\(?:%s\\)*debug> " realgud:js-term-escape)
+       :regexp (format "^\\(?:%s\\)*(trepan-ni) " realgud:js-term-escape)
        ))
 
 ;; realgud-loc-pat that describes a "breakpoint set" line
 ;; For example:
-;;  Breakpoint set in file /tmp/gcd.js, line 2.
+;;  Breakpoint 1 set in file /tmp/gcd.js, line 2.
 ;;  Breakpoint set in file /usr/lib/nodejs/module.js [module.js], line 380.
-(setf (gethash "brkpt-set" realgud:trepanjs-pat-hash)
+(setf (gethash "brkpt-set" realgud:trepan-ni-pat-hash)
       (make-realgud-loc-pat
-       :regexp (format "^Breakpoint set in file %s, line %s.\n"
+       :regexp (format "^Breakpoint %s set in file %s, line %s.\n"
+                      realgud:regexp-captured-num
                       realgud:trepanjs-file-regexp
                       realgud:regexp-captured-num)
+       :num 1
        :file-group 2
        :line-group 3))
 
+
 ;; Regular expression that describes a V8 backtrace line.
 ;; For example:
 ;;    at repl:1:7
@@ -114,9 +117,9 @@ realgud-loc-pat struct")
 
 (defconst realgud:trepan-ni-debugger-name "trepan-ni" "Name of debugger")
 
-;; ;; Regular expression that for a termination message.
-;; (setf (gethash "termination" realgud:trepan-ni-pat-hash)
-;;        "^trepan-ni: That's all, folks...\n")
+;; Regular expression that for a termination message.
+(setf (gethash "termination" realgud:trepan-ni-pat-hash)
+       "^trepan-ni: That's all, folks!\n")
 
 (setf (gethash "font-lock-keywords" realgud:trepan-ni-pat-hash)
       '(
@@ -159,7 +162,7 @@ realgud-loc-pat struct")
 
 (setf (gethash "backtrace"  realgud:trepan-ni-command-hash) "backtrace")
 (setf (gethash "break"      realgud:trepan-ni-command-hash)
-      "break('%X',%l)")
+      "setBreakpoint('%X',%l)")
 (setf (gethash "continue"   realgud:trepan-ni-command-hash) "cont")
 (setf (gethash "kill"       realgud:trepan-ni-command-hash) "kill")
 (setf (gethash "quit"       realgud:trepan-ni-command-hash) "")