branch: master
commit 703e08727ee97116f8df36cc7ae2be6c87a64591
Author: rocky <ro...@gnu.org>
Commit: rocky <ro...@gnu.org>
Correct cmd capabilities for perldb and trepanjs
---
realgud/debugger/perldb/init.el | 24 +++++++++++++++++++++++-
realgud/debugger/trepanjs/init.el | 6 +++++-
2 files changed, 28 insertions(+), 2 deletions(-)
diff --git a/realgud/debugger/perldb/init.el b/realgud/debugger/perldb/init.el
index 537703d..9e9c556 100644
--- a/realgud/debugger/perldb/init.el
+++ b/realgud/debugger/perldb/init.el
@@ -1,4 +1,19 @@
-;;; Copyright (C) 2011, 2014-2015 Rocky Bernstein <ro...@gnu.org>
+;;; Copyright (C) 2011, 2014-2016 Free Software Foundation, Inc
+
+;; Author: Rocky Bernstein <ro...@gnu.org>
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+;;; Regular expressions for nodejs Javascript debugger.
;;; Stock Perl debugger perldb
(eval-when-compile (require 'cl))
@@ -119,4 +134,11 @@ realgud-loc-pat struct")
(setf (gethash "until" realgud:perldb-command-hash) "c %l")
(setf (gethash "perldb" realgud-command-hash) realgud:perldb-command-hash)
+;; Unsupported features:
+(setf (gethash "frame" realgud:perldb-command-hash) "*not-implemented*")
+(setf (gethash "shell" realgud:perldb-command-hash) "*not-implemented*")
+(setf (gethash "up" realgud:perldb-command-hash) "*not-implemented*")
+(setf (gethash "down" realgud:perldb-command-hash) "*not-implemented*")
+(setf (gethash "kill" realgud:perldb-command-hash) "*not-implemented*")
+
(provide-me "realgud:perldb-")
diff --git a/realgud/debugger/trepanjs/init.el
b/realgud/debugger/trepanjs/init.el
index 77c7da6..4caf050 100644
--- a/realgud/debugger/trepanjs/init.el
+++ b/realgud/debugger/trepanjs/init.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2015 Free Software Foundation, Inc
+;; Copyright (C) 2015-2016 Free Software Foundation, Inc
;; Author: Rocky Bernstein <ro...@gnu.org>
@@ -142,5 +142,9 @@ realgud-loc-pat struct")
;; do step 1 and trepanjs doesn't handle this. Or when it does,
;; it will probably look like step(1)
(setf (gethash "eval" realgud:trepanjs-command-hash) "eval('%s')")
+(setf (gethash "quit" realgud:trepanjs-command-hash) "quit()")
+
+;; Unsupported features:
+(setf (gethash "kill" realgud:trepanjs-command-hash) "*not-implemented*")
(provide-me "realgud:trepanjs-")
