A JavaScript development environment for Emacs https://indium.readthedocs.io
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

393 lines
14 KiB

;;; indium-debugger.el --- Indium debugger -*- lexical-binding: t; -*-
;; Copyright (C) 2016-2017 Nicolas Petton
;; Author: Nicolas Petton <nicolas@petton.fr>
;; Keywords: tools
;; 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/>.
;;; Commentary:
;; - always evaluate on the current frame if any (check for inspection, etc.)
;;; Code:
(require 'seq)
(require 'map)
(require 'easymenu)
(require 'indium-structs)
(require 'indium-inspector)
(require 'indium-repl)
(require 'indium-interaction)
(require 'indium-render)
(require 'indium-workspace)
(require 'indium-debugger-frames)
(require 'indium-debugger-locals)
(require 'indium-debugger-litable)
(defgroup indium-debugger nil
"JavaScript debugger"
:prefix "indium-debugger-"
:group 'indium)
(defcustom indium-debugger-major-mode
#'js2-mode
"Major mode used in debugger buffers."
:group 'indium-debugger
:type 'function)
(defvar indium-debugger-buffer nil "Buffer used for debugging JavaScript sources.")
(defvar indium-debugger-message nil "Message to be displayed in the echo area.")
(make-local-variable 'indium-debugger-message)
(defconst indium-debugger-fringe-arrow-string
#("." 0 1 (display (left-fringe right-triangle)))
"Used as an overlay's before-string prop to place a fringe arrow.")
(defvar indium-debugger-mode-map
(let ((map (make-sparse-keymap)))
(define-key map " " #'indium-debugger-step-over)
(define-key map (kbd "i") #'indium-debugger-step-into)
(define-key map (kbd "o") #'indium-debugger-step-out)
(define-key map (kbd "c") #'indium-debugger-resume)
(define-key map (kbd "l") #'indium-debugger-locals)
(define-key map (kbd "s") #'indium-debugger-stack-frames)
(define-key map (kbd "q") #'indium-debugger-resume)
(define-key map (kbd "h") #'indium-debugger-here)
(define-key map (kbd "e") #'indium-debugger-evaluate)
(define-key map (kbd "n") #'indium-debugger-next-frame)
(define-key map (kbd "p") #'indium-debugger-previous-frame)
(easy-menu-define indium-debugger-mode-menu map
"Menu for Indium debugger"
'("Indium Debugger"
["Resume" indium-debugger-resume]
["Step over" indium-debugger-step-over]
["Step into" indium-debugger-step-into]
["Step out" indium-debugger-step-out]
["Jump here" indium-debugger-here]
"--"
["Inspect locals" indium-debugger-locals]
["Show stack" indium-debugger-stack-frames]
"--"
["Evaluate" indium-debugger-evaluate]
"--"
["Jump to the next frame" indium-debugger-next-frame]
["Jump to the previous frame" indium-debugger-previous-frame]))
map))
(define-minor-mode indium-debugger-mode
"Minor mode for debugging JS scripts.
\\{indium-debugger-mode-map}"
:group 'indium
:lighter " JS-debug"
:keymap indium-debugger-mode-map
(if indium-debugger-mode
(progn
(unless indium-interaction-mode
(indium-interaction-mode))
(add-hook 'pre-command-hook #'indium-debugger-refresh-echo-area nil t))
(remove-hook 'pre-command-hook #'indium-debugger-refresh-echo-area t)))
(defun indium-debugger-paused (frames reason &optional description)
"Handle execution pause.
Setup the debugging stack FRAMES when the execution has paused.
Display REASON in the echo area with an help message.
If DESCRIPTION is non-nil, display it in an overlay describing
the exception."
(indium-debugger-set-frames frames)
(indium-debugger-select-frame (car frames))
(when description
(indium-debugger-litable-add-exception-overlay description))
(indium-debugger-show-help-message reason))
(defun indium-debugger-resumed (&rest _args)
"Handle resumed execution.
Unset the debugging context and turn off indium-debugger-mode."
(message "Execution resumed")
(indium-debugger-unset-frames)
(seq-doseq (buf (seq-filter (lambda (buf)
(with-current-buffer buf
indium-debugger-mode))
(buffer-list)))
(with-current-buffer buf
(set-marker overlay-arrow-position nil (current-buffer))
(indium-debugger-unset-current-buffer)
(indium-debugger-litable-unset-buffer)))
(let ((locals-buffer (indium-debugger-locals-get-buffer))
(frames-buffer (indium-debugger-frames-get-buffer)))
(when locals-buffer (kill-buffer locals-buffer))
(when frames-buffer (kill-buffer frames-buffer))))
(defun indium-debugger-next-frame ()
"Jump to the next frame in the frame stack."
(interactive)
(indium-debugger--jump-to-frame 'forward))
(defun indium-debugger-previous-frame ()
"Jump to the previous frame in the frame stack."
(interactive)
(indium-debugger--jump-to-frame 'backward))
(defun indium-debugger--jump-to-frame (direction)
"Jump to the next frame in DIRECTION.
DIRECTION is `forward' or `backward' (in the frame list)."
(let* ((current-position (seq-position (indium-current-connection-frames)
(indium-current-connection-current-frame)))
(step (pcase direction
(`forward -1)
(`backward 1)))
(position (+ current-position step)))
(when (>= position (seq-length (indium-current-connection-frames)))
(user-error "End of frames"))
(when (< position 0)
(user-error "Beginning of frames"))
(indium-debugger-select-frame (seq-elt (indium-current-connection-frames) position))))
(defun indium-debugger-select-frame (frame)
"Make FRAME the current debugged stack frame.
Setup a debugging buffer for the current stack FRAME and switch
to that buffer.
Try to find the file for the stack frame locally first using
Indium worskspaces. If not local file can be found, get the
remote source for that frame."
(indium-debugger-set-current-frame frame)
(switch-to-buffer (indium-debugger-get-buffer-create))
(indium-debugger-litable-setup-buffer)
(if buffer-file-name
(indium-debugger-setup-buffer-with-file)
(indium-backend-get-script-source
(indium-current-connection-backend)
frame
(lambda (source)
(indium-debugger-setup-buffer-with-source
(map-nested-elt source '(result scriptSource)))))))
(defun indium-debugger-setup-buffer-with-file ()
"Setup the current buffer for debugging."
(when (buffer-modified-p)
(revert-buffer nil nil t))
(indium-debugger--goto-current-frame))
(defun indium-debugger-setup-buffer-with-source (source)
"Setup the current buffer with the frame SOURCE."
(unless (string= (buffer-substring-no-properties (point-min) (point-max))
source)
(let ((inhibit-read-only t))
(erase-buffer)
(insert source)))
(indium-debugger--goto-current-frame))
(defun indium-debugger--goto-current-frame ()
"Move the point to the current stack frame position in the current buffer."
(let* ((frame (indium-current-connection-current-frame))
(location (indium-script-get-frame-original-location frame)))
(goto-char (point-min))
(forward-line (indium-location-line location))
(forward-char (indium-location-column location)))
(indium-debugger-setup-overlay-arrow)
(indium-debugger-highlight-node)
(indium-debugger-locals-maybe-refresh)
(indium-debugger-frames-maybe-refresh))
(defun indium-debugger-show-help-message (&optional reason)
"Display a help message with REASON in the echo-area."
(setq indium-debugger-message
(concat (propertize (or reason "")
'face 'font-lock-warning-face)
" "
(propertize "SPC"
'face 'font-lock-keyword-face)
" over "
(propertize "i"
'face 'font-lock-keyword-face)
"nto "
(propertize "o"
'face 'font-lock-keyword-face)
"ut "
(propertize "c"
'face 'font-lock-keyword-face)
"ontinue "
(propertize "h"
'face 'font-lock-keyword-face)
"ere "
(propertize "l"
'face 'font-lock-keyword-face)
"ocals "
(propertize "e"
'face 'font-lock-keyword-face)
"val "
(propertize "s"
'face 'font-lock-keyword-face)
"tack "
(propertize "n"
'face 'font-lock-keyword-face)
"ext "
(propertize "p"
'face 'font-lock-keyword-face)
"rev"))
(indium-debugger-refresh-echo-area))
(defun indium-debugger-refresh-echo-area ()
"Refresh the echo area as motion commands clear the echo area."
(message indium-debugger-message))
(defun indium-debugger-setup-overlay-arrow ()
"Setup the overlay pointing to the current debugging line."
(let ((pos (line-beginning-position)))
(setq overlay-arrow-string "=>")
(setq overlay-arrow-position (make-marker))
(set-marker overlay-arrow-position pos (current-buffer))))
(defun indium-debugger-highlight-node ()
"Highlight the current AST node where the execution has paused."
(let ((beg (point))
(end (line-end-position)))
(indium-debugger-remove-highlights)
(overlay-put (make-overlay beg end)
'face 'indium-highlight-face)))
(defun indium-debugger-remove-highlights ()
"Remove all debugging highlighting overlays from the current buffer."
(remove-overlays (point-min) (point-max) 'face 'indium-highlight-face))
(defun indium-debugger-top-frame ()
"Return the top frame of the current debugging context."
(car (indium-current-connection-frames)))
(defun indium-debugger-step-into ()
"Request a step into."
(interactive)
(indium-backend-step-into (indium-current-connection-backend)))
(defun indium-debugger-step-over ()
"Request a step over."
(interactive)
(indium-backend-step-over (indium-current-connection-backend)))
(defun indium-debugger-step-out ()
"Request a step out."
(interactive)
(indium-backend-step-out (indium-current-connection-backend)))
(defun indium-debugger-resume ()
"Request the runtime to resume the execution."
(interactive)
(indium-backend-resume (indium-current-connection-backend)))
(defun indium-debugger-here ()
"Request the runtime to resume the execution until the point.
When the position of the point is reached, pause the execution."
(interactive)
(indium-backend-continue-to-location (indium-current-connection-backend)
(make-indium-location
:line (1- (line-number-at-pos))
:file buffer-file-name)))
(defun indium-debugger-evaluate (expression)
"Prompt for EXPRESSION to be evaluated.
Evaluation happens in the context of the current call frame."
(interactive "sEvaluate on frame: ")
(indium-backend-evaluate (indium-current-connection-backend)
expression
(lambda (value _error)
(message "%s" (indium-render-value-to-string value)))))
;; Debugging context
(defun indium-debugger-set-frames (frames)
"Set the debugger FRAMES."
(setf (indium-current-connection-frames) frames)
(indium-debugger-set-current-frame (car frames)))
(defun indium-debugger-set-current-frame (frame)
"Set FRAME as the current frame."
(setf (indium-current-connection-current-frame) frame))
(defun indium-debugger-unset-frames ()
"Remove debugging information from the current connection."
(setf (indium-current-connection-frames) nil)
(setf (indium-current-connection-current-frame) nil))
(defun indium-debugger-get-current-scopes ()
"Return the scope of the current stack frame."
(indium-frame-scope-chain (indium-current-connection-current-frame)))
;; TODO: move to backends?
(defun indium-debugger-get-scopes-properties (scopes callback)
"Request a list of all properties in SCOPES.
CALLBACK is evaluated with the result."
(seq-do (lambda (scope)
(indium-debugger-get-scope-properties scope callback))
;; ignore the objects attached to global/window
(seq-remove (lambda (scope)
(string= (map-elt scope 'type) "global"))
scopes)))
(defun indium-debugger-get-scope-properties (scope callback)
"Request the properties of SCOPE and evaluate CALLBACK.
CALLBACK is evaluated with two arguments, the properties and SCOPE."
(indium-backend-get-properties
(indium-current-connection-backend)
(map-nested-elt scope '(object objectid))
(lambda (properties)
(funcall callback properties scope))))
(defun indium-debugger-get-buffer-create ()
"Create a debugger buffer for the current connection and return it.
If a buffer already exists, just return it."
(let* ((location (indium-script-get-frame-original-location (indium-current-connection-current-frame)))
(buf (if-let ((file (indium-location-file location)))
(find-file file)
(get-buffer-create (indium-debugger--buffer-name-no-file)))))
(indium-debugger-setup-buffer buf)
buf))
(defun indium-debugger--buffer-name-no-file ()
"Return the name of a debugger buffer.
This name should used when no local file can be found for a stack
frame."
"*JS Debugger*")
(defun indium-debugger-setup-buffer (buffer)
"Setup BUFFER for debugging."
(with-current-buffer buffer
(unless (or buffer-file-name
(eq major-mode indium-debugger-major-mode))
(funcall indium-debugger-major-mode))
(indium-debugger-mode 1)
(when (and (eq major-mode 'js2-mode)
js2-mode-buffer-dirty-p)
(js2-parse))
(read-only-mode)))
(defun indium-debugger-unset-current-buffer ()
"Unset `indium-debugger-mode from the current buffer'."
(indium-debugger-remove-highlights)
(when overlay-arrow-position
(set-marker overlay-arrow-position nil (current-buffer)))
(indium-debugger-mode -1)
(read-only-mode -1)
(indium-debugger-litable-unset-buffer))
(provide 'indium-debugger)
;;; indium-debugger.el ends here