[elpa] master 703e087 185/215: Correct cmd capabilities for perldb and trepanjs

[Rocky Bernstein]

branch: master
commit 703e08727ee97116f8df36cc7ae2be6c87a64591
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    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 <address@hidden>
+;;; Copyright (C) 2011, 2014-2016 Free Software Foundation, Inc
+
+;; Author: Rocky Bernstein <address@hidden>
+;; 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 <address@hidden>
 
@@ -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-")