diff options
Diffstat (limited to 'node-inspect/core.el')
| -rw-r--r-- | node-inspect/core.el | 169 |
1 files changed, 169 insertions, 0 deletions
diff --git a/node-inspect/core.el b/node-inspect/core.el new file mode 100644 index 0000000..b3a13f1 --- /dev/null +++ b/node-inspect/core.el @@ -0,0 +1,169 @@ +;;; Copyright (C) 2015-2018 Rocky Bernstein <rocky@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/>. + +(eval-when-compile (require 'cl-lib)) + +(require 'realgud) + +(declare-function realgud:expand-file-name-if-exists 'realgud-core) +(declare-function realgud-lang-mode? 'realgud-lang) +(declare-function realgud-parse-command-arg 'realgud-core) +(declare-function realgud-query-cmdline 'realgud-core) + +;; FIXME: I think the following could be generalized and moved to +;; realgud-... probably via a macro. +(declare-function realgud:expand-file-name-if-exists 'realgud-core) +(declare-function realgud-parse-command-arg 'realgud-core) +(declare-function realgud-query-cmdline 'realgud-core) +(declare-function realgud-suggest-invocation 'realgud-core) + +;; FIXME: I think the following could be generalized and moved to +;; realgud-... probably via a macro. +(defvar realgud:node-inspect-minibuffer-history nil + "minibuffer history list for the command `node-inspect'.") + +(easy-mmode-defmap realgud:node-inspect-minibuffer-local-map + '(("\C-i" . comint-dynamic-complete-filename)) + "Keymap for minibuffer prompting of node-inspect startup command." + :inherit minibuffer-local-map) + +;; FIXME: I think this code and the keymaps and history +;; variable chould be generalized, perhaps via a macro. +(defun node-inspect-query-cmdline (&optional opt-debugger) + (realgud-query-cmdline + 'realgud:node-inspect-suggest-invocation + realgud:node-inspect-minibuffer-local-map + 'realgud:node-inspect-minibuffer-history + opt-debugger)) + +;;; FIXME: DRY this with other *-parse-cmd-args routines +(defun node-inspect-parse-cmd-args (orig-args) + "Parse command line ORIG-ARGS for the name of script to debug. + +ORIG-ARGS should contain a tokenized list of the command line to run. + +We return the a list containing +* the name of the debugger given (e.g. node-inspect) and its arguments - a list of strings +* the script name and its arguments - list of strings + +For example for the following input: + (map 'list 'symbol-name + '(node --interactive --debugger-port 5858 /tmp node-inspect ./gcd.js a b)) + +we might return: + ((\"node\" \"--interactive\" \"--debugger-port\" \"5858\") nil (\"/tmp/gcd.js\" \"a\" \"b\")) + +Note that path elements have been expanded via `expand-file-name'. +" + + ;; Parse the following kind of pattern: + ;; node node-inspect-options script-name script-options + (let ( + (args orig-args) + (pair) ;; temp return from + (node-two-args '("-debugger_port" "C" "D" "i" "l" "m" "-module" "x")) + ;; node doesn't have any optional two-arg options + (node-opt-two-args '()) + + ;; One dash is added automatically to the below, so + ;; h is really -h and -debugger_port is really --debugger_port. + (node-inspect-two-args '("-debugger_port")) + (node-inspect-opt-two-args '()) + + ;; Things returned + (script-name nil) + (debugger-name nil) + (interpreter-args '()) + (script-args '()) + ) + (if (not (and args)) + ;; Got nothing: return '(nil, nil, nil) + (list interpreter-args nil script-args) + ;; else + (progn + ;; Remove "node-inspect" (or "nodemon" or "node") from invocation like: + ;; node-inspect --node-inspect-options script --script-options + (setq debugger-name (file-name-sans-extension + (file-name-nondirectory (car args)))) + (unless (string-match "^node\\(?:js\\|mon\\)?$" debugger-name) + (message + "Expecting debugger name `%s' to be `node', `nodemon', or `node-inspect'" + debugger-name)) + (setq interpreter-args (list (pop args))) + + ;; Skip to the first non-option argument. + (while (and args (not script-name)) + (let ((arg (car args))) + (cond + ((equal "debug" arg) + (nconc interpreter-args (list arg)) + (setq args (cdr args)) + ) + + ;; Options with arguments. + ((string-match "^-" arg) + (setq pair (realgud-parse-command-arg + args node-inspect-two-args node-inspect-opt-two-args)) + (nconc interpreter-args (car pair)) + (setq args (cadr pair))) + ;; Anything else must be the script to debug. + (t (setq script-name (realgud:expand-file-name-if-exists arg)) + (setq script-args (cons script-name (cdr args)))) + ))) + (list interpreter-args nil script-args))) + )) + +;; To silence Warning: reference to free variable +(defvar realgud:node-inspect-command-name) + +(defun realgud:node-inspect-suggest-invocation (debugger-name) + "Suggest a node-inspect command invocation via `realgud-suggest-invocaton'" + (realgud-suggest-invocation realgud:node-inspect-command-name + realgud:node-inspect-minibuffer-history + "js" "\\.js$")) + +(defun realgud:node-inspect-remove-ansi-shmutz() + "Remove ASCII escape sequences that node.js 'decorates' in +prompts and interactive output with" + (add-to-list + 'comint-preoutput-filter-functions + (lambda (output) + (replace-regexp-in-string "\033\\[[0-9]+[GKJ]" "" output))) + ) + +(defun realgud:node-inspect-reset () + "Node-Inspect cleanup - remove debugger's internal buffers (frame, +breakpoints, etc.)." + (interactive) + ;; (node-inspect-breakpoint-remove-all-icons) + (dolist (buffer (buffer-list)) + (when (string-match "\\*node-inspect-[a-z]+\\*" (buffer-name buffer)) + (let ((w (get-buffer-window buffer))) + (when w + (delete-window w))) + (kill-buffer buffer)))) + +;; (defun node-inspect-reset-keymaps() +;; "This unbinds the special debugger keys of the source buffers." +;; (interactive) +;; (setcdr (assq 'node-inspect-debugger-support-minor-mode minor-mode-map-alist) +;; node-inspect-debugger-support-minor-mode-map-when-deactive)) + + +(defun realgud:node-inspect-customize () + "Use `customize' to edit the settings of the `node-inspect' debugger." + (interactive) + (customize-group 'realgud:node-inspect)) + +(provide-me "realgud:node-inspect-") |