;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\313\314\315\316\317DD\320\321\322\323\324&\210\313\325\315\316\326DD\327\321\322\323\330&\210\313\331\315\316\332DD\333\321\322\323\334&\207" [require lsp-mode json f dash dap-overlays cl-lib ansi-color posframe ht dap-launch custom-declare-variable dap-breakpoints-file funcall function #[0 "\300\301\302!!\207" [expand-file-name locate-user-emacs-file ".dap-breakpoints"] 3] "Where to persist breakpoints" :group dap-mode :type file dap-print-io #[0 "\300\207" [nil] 1] "If non-nil, print all messages to and from the DAP to messages." boolean dap-external-terminal #[0 "\300\207" [("xterm" "-T" "{title}" "-hold" "-e" "sh" "-c" "exec {command}")] 1] "Command to launch the external terminal for debugging.\nWhen specifying that the program be run in an external terminal,\nthis command is used to launch it. It shall be a list of strings,\nthe first of which is the program to run and the rest of which\nare arguments to pass to it. Special expansion is performed:\n\n{command} will be replaced with the program to execute.\n{display} will be replaced with window title.\n\nSee also `dap-default-terminal-kind'." (repeat string)] 8) #@174 Generate an internal terminal buffer. The name is derived from TITLE and DEBUG-SESSION. This function should be used in `dap-internal-terminal-*'. (fn TITLE DEBUG-SESSION) (defalias 'dap--make-terminal-buffer #[514 "\301\302\303\304!>\204\305\306\307D\"\210\310H\203!\311P\202\"\312#!\207" [cl-struct-dap--debug-session-tags generate-new-buffer format "*%s %s*" type-of signal wrong-type-argument dap--debug-session 1 "- " "console"] 9 (#$ . 1370)]) #@36 (fn COMMAND TITLE DEBUG-SESSION) (defalias 'dap-internal-terminal-vterm #[771 "r\302\"q\210\303\304!\210\305\306 \210\307p!+\207" [vterm-kill-buffer-on-exit vterm-shell dap--make-terminal-buffer require vterm nil vterm-mode display-buffer] 6 (#$ . 1839)]) #@36 (fn COMMAND TITLE DEBUG-SESSION) (defalias 'dap-internal-terminal-shell #[771 "\300\"\301\211#\207" [dap--make-terminal-buffer async-shell-command] 8 (#$ . 2108)]) #@165 Run COMMAND with an auto-detected terminal. If `vterm' is loaded or auto-loaded, use vterm. Otherwise, use `async-shell-command'. (fn COMMAND TITLE DEBUG-SESSION) (defalias 'dap-internal-terminal-auto #[771 "\300\301!\203\f\302#\207\303#\207" [fboundp vterm dap-internal-terminal-vterm dap-internal-terminal-shell] 7 (#$ . 2285)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\321&\210\300\322\302\303\323DD\324\306\307\310\321&\210\300\325\302\303\326DD\327\306\307\310\330&\210\300\331\302\303\332DD\333\306\307\310\330&\210\300\334\302\303\335DD\336\306\307\310\321&\210\300\337\302\303\340DD\341\310\342\306\307&\210\300\343\302\303\344DD\345\310\342\306\307&\210\300\346\302\303\347DD\350\310\342\306\307&\210\300\351\302\303\352DD\353\310\342\306\307&\210\300\354\302\303\355DD\356\310\342\306\307&\210\300\357\302\303\360DD\361\310\342\306\307&\210\300\362\302\303\363DD\364\310\342\306\307&\210\300\365\302\303\366DD\367\310\342\306\307&\210\300\370\302\303\371DD\372\310\342\306\307&\210\300\373\302\303\374DD\375\310\342\306\307&\207" [custom-declare-variable dap-internal-terminal funcall function #[0 "\300\207" [dap-internal-terminal-auto] 1] "Terminal used with :console \"integratedTerminal\".\nIt is a function that shall take three arguments: the command to\nrun, as a string, the title from the debug adapter (may be nil)\nand the debug session and it should execute COMMAND. Aside from\nthat, it can do anything and is itself responsible for displaying\nany buffers, ....\n\nIf you are looking at implementing your own such function, see\nalso `dap--make-terminal-buffer'." :group dap-mode :type (radio (const :tag "auto-detect" :value dap-internal-terminal-auto) (const :tag "vterm" :value dap-internal-terminal-vterm) (const :tag "asnyc-shell" :value dap-internal-terminal-shell) (function :tag "Custom function")) dap-output-buffer-filter #[0 "\300\207" [("stdout" "stderr")] 1] "If non-nil, a list of output types to display in the debug output buffer." list dap-label-output-buffer-category #[0 "\300\207" [nil] 1] "If non-nil, content that is printed to the output buffer will be labelled\nbased on DAP protocol category." boolean dap-auto-show-output #[0 "\300\207" [t] 1] "If non-nil, the output buffer will be shown automatically." dap-output-window-min-height #[0 "\300\207" [10] 1] "The minimum height of the output window." number dap-output-window-max-height #[0 "\300\207" [20] 1] "The maximum height of the output window." dap-inhibit-io #[0 "\300\207" [t] 1] "If non-nil, the messages will be inhibited." dap-terminated-hook #[0 "\300\207" [nil] 1] "List of functions to be called after a debug session has been terminated.\n\nThe functions will received the debug dession that\nhas been terminated." hook dap-stopped-hook #[0 "\300\207" [nil] 1] "List of functions to be called after a breakpoint has been hit." dap-session-changed-hook #[0 "\300\207" [nil] 1] "List of functions to be called after sessions have changed." dap-loaded-sources-changed-hook #[0 "\300\207" [nil] 1] "List of functions to be called after loaded sources have changed for\nthe session." dap-session-created-hook #[0 "\300\207" [nil] 1] "List of functions to be called after session have been created.\nIt will be called with one argument - the created session." dap-continue-hook #[0 "\300\207" [nil] 1] "List of functions to be called after application started.\n\nThe hook is called after application has been stopped/started(e.\ng. after calling `dap-continue')" dap-executed-hook #[0 "\300\207" [nil] 1] "List of functions that will be called after execution and processing request." dap-breakpoints-changed-hook #[0 "\300\207" [nil] 1] "List of functions that will be called after breakpoints have changed.\nThe hook will be called with the session file and the new set of breakpoint\nlocations." dap-position-changed-hook #[0 "\300\207" [nil] 1] "List of functions that will be called after cursor position has changed." dap-stack-frame-changed-hook #[0 "\300\207" [nil] 1] "List of functions that will be called after active stack frame has changed."] 8) (defvar dap--debug-providers (make-hash-table :test 'equal)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\310\311\312\317&\207" [custom-declare-variable dap-debug-template-configurations funcall function #[0 "\300\207" [nil] 1] "Plist Template configurations for DEBUG/RUN." :safe listp :group dap-mode :type (plist) dap-auto-configure-features #[0 "\300\207" [(sessions locals breakpoints expressions controls tooltip)] 1] "Windows to auto show on debugging when in dap-ui-auto-configure-mode." (set (const :tag "Show sessions popup window when debugging" sessions) (const :tag "Show locals popup window when debugging" locals) (const :tag "Show breakpoints popup window when debugging" breakpoints) (const :tag "Show expressions popup window when debugging" expressions) (const :tag "Show REPL popup window when debugging" repl) (const :tag "Enable `dap-ui-controls-mode` with controls to manage the debug session when debugging" controls) (const :tag "Enable `dap-tooltip-mode` that enables mouse hover support when debugging" tooltip))] 10) (defconst dap-features->windows '((sessions dap-ui-sessions . dap-ui--sessions-buffer) (locals dap-ui-locals . dap-ui--locals-buffer) (breakpoints dap-ui-breakpoints . dap-ui--breakpoints-buffer) (expressions dap-ui-expressions . dap-ui--expressions-buffer) (repl dap-ui-repl . dap-ui--repl-buffer))) (defconst dap-features->modes '((controls dap-ui-controls-mode . posframe) (tooltip . dap-tooltip-mode))) #@61 List of the previous configuration that have been executed. (defvar dap--debug-configuration nil (#$ . 7993)) #@30 Retry count for dap connect. (defvar dap-connect-retry-count 1000 (#$ . 8109)) #@33 Retry interval for dap connect. (defvar dap-connect-retry-interval 0.02 (#$ . 8194)) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&dap-session #[514 "\300\301\302\303!\"!D\207" [intern-soft format "dap--debug-session-%s" eval] 7 (#$ . 8285)]) #@77 compiler-macro for inlining `dap--debug-session-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-p (and (memq (type-of cl-x) cl-struct-dap--debug-session-tags) t)) nil] 9 (#$ . 8447)]) (put 'dap--debug-session-p 'compiler-macro 'dap--debug-session-p--cmacro) #@13 (fn CL-X) (defalias 'dap--debug-session-p #[257 "\301!>\205 \302\207" [cl-struct-dap--debug-session-tags type-of t] 3 (#$ . 8829)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put dap--debug-session-p side-effect-free error-free put dap--debug-session cl-deftype-satisfies] 5) #@80 compiler-macro for inlining `dap--debug-session-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-name (progn (aref cl-x 1))) nil] 9 (#$ . 9135)]) (put 'dap--debug-session-name 'compiler-macro 'dap--debug-session-name--cmacro) #@68 Access slot "name" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-name #[257 "\211\300H\207" [1] 3 (#$ . 9490)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-name side-effect-free t] 4) #@83 compiler-macro for inlining `dap--debug-session-last-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-last-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-last-id (progn (aref cl-x 2))) nil] 9 (#$ . 9740)]) (put 'dap--debug-session-last-id 'compiler-macro 'dap--debug-session-last-id--cmacro) #@71 Access slot "last-id" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-last-id #[257 "\211\300H\207" [2] 3 (#$ . 10110)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-last-id side-effect-free t] 4) #@80 compiler-macro for inlining `dap--debug-session-proc'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-proc--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-proc (progn (aref cl-x 3))) nil] 9 (#$ . 10370)]) (put 'dap--debug-session-proc 'compiler-macro 'dap--debug-session-proc--cmacro) #@68 Access slot "proc" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-proc #[257 "\211\300H\207" [3] 3 (#$ . 10726)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put dap--debug-session-proc side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" dap--debug-session-proc] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@93 compiler-macro for inlining `dap--debug-session-response-handlers'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-response-handlers--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-response-handlers (progn (aref cl-x 4))) nil] 9 (#$ . 11115)]) (put 'dap--debug-session-response-handlers 'compiler-macro 'dap--debug-session-response-handlers--cmacro) #@81 Access slot "response-handlers" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-response-handlers #[257 "\211\300H\207" [4] 3 (#$ . 11536)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put dap--debug-session-response-handlers side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" dap--debug-session-response-handlers] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@82 compiler-macro for inlining `dap--debug-session-parser'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-parser--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-parser (progn (aref cl-x 5))) nil] 9 (#$ . 11977)]) (put 'dap--debug-session-parser 'compiler-macro 'dap--debug-session-parser--cmacro) #@70 Access slot "parser" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-parser #[257 "\211\300H\207" [5] 3 (#$ . 12343)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put dap--debug-session-parser side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" dap--debug-session-parser] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@89 compiler-macro for inlining `dap--debug-session-output-buffer'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-output-buffer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-output-buffer (progn (aref cl-x 6))) nil] 9 (#$ . 12740)]) (put 'dap--debug-session-output-buffer 'compiler-macro 'dap--debug-session-output-buffer--cmacro) #@77 Access slot "output-buffer" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-output-buffer #[257 "\211\300H\207" [6] 3 (#$ . 13141)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-output-buffer side-effect-free t] 4) #@85 compiler-macro for inlining `dap--debug-session-thread-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-thread-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-thread-id (progn (aref cl-x 7))) nil] 9 (#$ . 13419)]) (put 'dap--debug-session-thread-id 'compiler-macro 'dap--debug-session-thread-id--cmacro) #@73 Access slot "thread-id" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-thread-id #[257 "\211\300H\207" [7] 3 (#$ . 13800)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-thread-id side-effect-free t] 4) #@85 compiler-macro for inlining `dap--debug-session-workspace'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-workspace--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-workspace (progn (aref cl-x 8))) nil] 9 (#$ . 14066)]) (put 'dap--debug-session-workspace 'compiler-macro 'dap--debug-session-workspace--cmacro) #@73 Access slot "workspace" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-workspace #[257 "\211\300H\207" [8] 3 (#$ . 14447)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-workspace side-effect-free t] 4) #@83 compiler-macro for inlining `dap--debug-session-threads'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-threads--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-threads (progn (aref cl-x 9))) nil] 9 (#$ . 14713)]) (put 'dap--debug-session-threads 'compiler-macro 'dap--debug-session-threads--cmacro) #@71 Access slot "threads" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-threads #[257 "\211\300H\207" [9] 3 (#$ . 15084)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-threads side-effect-free t] 4) #@89 compiler-macro for inlining `dap--debug-session-thread-states'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-thread-states--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-thread-states (progn (aref cl-x 10))) nil] 9 (#$ . 15344)]) (put 'dap--debug-session-thread-states 'compiler-macro 'dap--debug-session-thread-states--cmacro) #@77 Access slot "thread-states" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-thread-states #[257 "\211\300H\207" [10] 3 (#$ . 15746)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put dap--debug-session-thread-states side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" dap--debug-session-thread-states] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@91 compiler-macro for inlining `dap--debug-session-active-frame-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-active-frame-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-active-frame-id (progn (aref cl-x 11))) nil] 9 (#$ . 16172)]) (put 'dap--debug-session-active-frame-id 'compiler-macro 'dap--debug-session-active-frame-id--cmacro) #@79 Access slot "active-frame-id" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-active-frame-id #[257 "\211\300H\207" [11] 3 (#$ . 16584)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-active-frame-id side-effect-free t] 4) #@88 compiler-macro for inlining `dap--debug-session-active-frame'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-active-frame--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-active-frame (progn (aref cl-x 12))) nil] 9 (#$ . 16869)]) (put 'dap--debug-session-active-frame 'compiler-macro 'dap--debug-session-active-frame--cmacro) #@76 Access slot "active-frame" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-active-frame #[257 "\211\300H\207" [12] 3 (#$ . 17266)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-active-frame side-effect-free t] 4) #@89 compiler-macro for inlining `dap--debug-session-cursor-marker'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-cursor-marker--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-cursor-marker (progn (aref cl-x 13))) nil] 9 (#$ . 17542)]) (put 'dap--debug-session-cursor-marker 'compiler-macro 'dap--debug-session-cursor-marker--cmacro) #@77 Access slot "cursor-marker" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-cursor-marker #[257 "\211\300H\207" [13] 3 (#$ . 17944)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-cursor-marker side-effect-free t] 4) #@81 compiler-macro for inlining `dap--debug-session-state'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-state--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-state (progn (aref cl-x 14))) nil] 9 (#$ . 18223)]) (put 'dap--debug-session-state 'compiler-macro 'dap--debug-session-state--cmacro) #@69 Access slot "state" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-state #[257 "\211\300H\207" [14] 3 (#$ . 18585)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-state side-effect-free t] 4) #@87 compiler-macro for inlining `dap--debug-session-breakpoints'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-breakpoints--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-breakpoints (progn (aref cl-x 15))) nil] 9 (#$ . 18840)]) (put 'dap--debug-session-breakpoints 'compiler-macro 'dap--debug-session-breakpoints--cmacro) #@75 Access slot "breakpoints" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-breakpoints #[257 "\211\300H\207" [15] 3 (#$ . 19232)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put dap--debug-session-breakpoints side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" dap--debug-session-breakpoints] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@95 compiler-macro for inlining `dap--debug-session-thread-stack-frames'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-thread-stack-frames--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-thread-stack-frames (progn (aref cl-x 16))) nil] 9 (#$ . 19650)]) (put 'dap--debug-session-thread-stack-frames 'compiler-macro 'dap--debug-session-thread-stack-frames--cmacro) #@83 Access slot "thread-stack-frames" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-thread-stack-frames #[257 "\211\300H\207" [16] 3 (#$ . 20082)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put dap--debug-session-thread-stack-frames side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" dap--debug-session-thread-stack-frames] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@87 compiler-macro for inlining `dap--debug-session-launch-args'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-launch-args--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-launch-args (progn (aref cl-x 17))) nil] 9 (#$ . 20532)]) (put 'dap--debug-session-launch-args 'compiler-macro 'dap--debug-session-launch-args--cmacro) #@75 Access slot "launch-args" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-launch-args #[257 "\211\300H\207" [17] 3 (#$ . 20924)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-launch-args side-effect-free t] 4) #@96 compiler-macro for inlining `dap--debug-session-current-capabilities'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-current-capabilities--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-current-capabilities (progn (aref cl-x 18))) nil] 9 (#$ . 21197)]) (put 'dap--debug-session-current-capabilities 'compiler-macro 'dap--debug-session-current-capabilities--cmacro) #@84 Access slot "current-capabilities" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-current-capabilities #[257 "\211\300H\207" [18] 3 (#$ . 21634)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-current-capabilities side-effect-free t] 4) #@89 compiler-macro for inlining `dap--debug-session-error-message'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-error-message--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-error-message (progn (aref cl-x 19))) nil] 9 (#$ . 21934)]) (put 'dap--debug-session-error-message 'compiler-macro 'dap--debug-session-error-message--cmacro) #@77 Access slot "error-message" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-error-message #[257 "\211\300H\207" [19] 3 (#$ . 22336)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-error-message side-effect-free t] 4) #@90 compiler-macro for inlining `dap--debug-session-loaded-sources'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-loaded-sources--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-loaded-sources (progn (aref cl-x 20))) nil] 9 (#$ . 22615)]) (put 'dap--debug-session-loaded-sources 'compiler-macro 'dap--debug-session-loaded-sources--cmacro) #@78 Access slot "loaded-sources" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-loaded-sources #[257 "\211\300H\207" [20] 3 (#$ . 23022)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-loaded-sources side-effect-free t] 4) #@88 compiler-macro for inlining `dap--debug-session-program-proc'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-program-proc--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-program-proc (progn (aref cl-x 21))) nil] 9 (#$ . 23304)]) (put 'dap--debug-session-program-proc 'compiler-macro 'dap--debug-session-program-proc--cmacro) #@76 Access slot "program-proc" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-program-proc #[257 "\211\300H\207" [21] 3 (#$ . 23701)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-program-proc side-effect-free t] 4) #@84 compiler-macro for inlining `dap--debug-session-metadata'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-metadata--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-metadata (progn (aref cl-x 22))) nil] 9 (#$ . 23977)]) (put 'dap--debug-session-metadata 'compiler-macro 'dap--debug-session-metadata--cmacro) #@72 Access slot "metadata" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-metadata #[257 "\211\300H\207" [22] 3 (#$ . 24354)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--debug-session-metadata side-effect-free t] 4) #@92 compiler-macro for inlining `dap--debug-session-output-displayed'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--debug-session-output-displayed--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--debug-session-output-displayed (progn (aref cl-x 23))) nil] 9 (#$ . 24618)]) (put 'dap--debug-session-output-displayed 'compiler-macro 'dap--debug-session-output-displayed--cmacro) #@80 Access slot "output-displayed" of `dap--debug-session' struct CL-X. (fn CL-X) (defalias 'dap--debug-session-output-displayed #[257 "\211\300H\207" [23] 3 (#$ . 25035)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put dap--debug-session-output-displayed side-effect-free t defalias copy-dap--debug-session copy-sequence] 4) #@367 compiler-macro for inlining `make-dap--debug-session'. (fn CL-WHOLE &cl-quote &key NAME LAST-ID PROC RESPONSE-HANDLERS PARSER OUTPUT-BUFFER THREAD-ID WORKSPACE THREADS THREAD-STATES ACTIVE-FRAME-ID ACTIVE-FRAME CURSOR-MARKER STATE BREAKPOINTS THREAD-STACK-FRAMES LAUNCH-ARGS CURRENT-CAPABILITIES ERROR-MESSAGE LOADED-SOURCES PROGRAM-PROC METADATA OUTPUT-DISPLAYED) (defalias 'make-dap--debug-session--cmacro #[385 "\300\301\"A@\300\302\"\206\303A@\300\304\"A@\300\305\"\206\306A@\300\307\"\206(\310A@\300\311\"A@\300\312\"A@\300\313\"A@\300 \314\"A@\300\n\315\"\206O\316A@\300 \317\"A@\300\f\320\"A@\300 \321\"A@\300\322\"\206o\323A@\300\324\"\206z\325A@\300\326\"\206\205\327A@\300\330\"A@\300\331\"\206\227\332A@\300\333\"A@\300\334\"A@\300\335\"A@\300\336\"\206\267\337A@\300\340\"A@\341\342\343\344\344&\207" [plist-member :name :last-id (nil 0) :proc :response-handlers (nil (make-hash-table :test 'eql)) :parser (nil (make-dap--parser)) :output-buffer :thread-id :workspace :threads :thread-states (nil (make-hash-table :test 'eql)) :active-frame-id :active-frame :cursor-marker :state (nil 'pending) :breakpoints (nil (make-hash-table :test 'equal)) :thread-stack-frames (nil (make-hash-table :test 'eql)) :launch-args :current-capabilities (nil (make-hash-table :test 'equal)) :error-message :loaded-sources :program-proc :metadata (nil (make-hash-table :test 'eql)) :output-displayed cl--defsubst-expand (name last-id proc response-handlers parser output-buffer thread-id workspace threads thread-states active-frame-id active-frame cursor-marker state breakpoints thread-stack-frames launch-args current-capabilities error-message loaded-sources program-proc metadata output-displayed) (cl-block make-dap--debug-session (record 'dap--debug-session name last-id proc response-handlers parser output-buffer thread-id workspace threads thread-states active-frame-id active-frame cursor-marker state breakpoints thread-stack-frames launch-args current-capabilities error-message loaded-sources program-proc metadata output-displayed)) nil] 54 (#$ . 25381)]) (put 'make-dap--debug-session 'compiler-macro 'make-dap--debug-session--cmacro) #@347 Constructor for objects of type `dap--debug-session'. (fn &key NAME LAST-ID PROC RESPONSE-HANDLERS PARSER OUTPUT-BUFFER THREAD-ID WORKSPACE THREADS THREAD-STATES ACTIVE-FRAME-ID ACTIVE-FRAME CURSOR-MARKER STATE BREAKPOINTS THREAD-STACK-FRAMES LAUNCH-ARGS CURRENT-CAPABILITIES ERROR-MESSAGE LOADED-SOURCES PROGRAM-PROC METADATA OUTPUT-DISPLAYED) (defalias 'make-dap--debug-session #[128 "\300\301\"A@\300\302\"\206\303A@\300\304\"A@\300\305\"\206#\306\307\310\311\"DA@\300\312\"\206:\306\313\314\306\211\211\211\211\211\315\306& DA@\300\316\"A@\300\317\"A@\300\320\"A@\300 \321\"A@\300\n\322\"\206f\306\307\310\311\"DA@\300 \323\"A@\300\f\324\"A@\300 \325\"A@\300\326\"\206\206\327A@\300\330\"\206\226\306\307\310\331\"DA@\300\332\"\206\246\306\307\310\311\"DA@\300\333\"A@\300\334\"\206\275\306\307\310\331\"DA@\300\335\"A@\300\336\"A@\300\337\"A@\300\340\"\206\342\306\307\310\311\"DA@\300\341\"A@\313\342&\207" [plist-member :name :last-id (nil 0) :proc :response-handlers nil make-hash-table :test eql :parser record dap--parser 0 :output-buffer :thread-id :workspace :threads :thread-states :active-frame-id :active-frame :cursor-marker :state (nil pending) :breakpoints equal :thread-stack-frames :launch-args :current-capabilities :error-message :loaded-sources :program-proc :metadata :output-displayed dap--debug-session] 49 (#$ . 27629)]) (cl-struct-define 'dap--debug-session nil 'cl-structure-object 'record nil '((cl-tag-slot) (name nil) (last-id 0) (proc nil :read-only t) (response-handlers (make-hash-table :test 'eql) :read-only t) (parser (make-dap--parser) :read-only t) (output-buffer nil) (thread-id nil) (workspace nil) (threads nil) (thread-states (make-hash-table :test 'eql) :read-only t) (active-frame-id nil) (active-frame nil) (cursor-marker nil) (state 'pending) (breakpoints (make-hash-table :test 'equal) :read-only t) (thread-stack-frames (make-hash-table :test 'eql) :read-only t) (launch-args nil) (current-capabilities (make-hash-table :test 'equal)) (error-message nil) (loaded-sources nil) (program-proc) (metadata (make-hash-table :test 'eql)) (output-displayed)) 'cl-struct-dap--debug-session-tags 'dap--debug-session t) #@70 compiler-macro for inlining `dap--parser-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--parser-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--parser-p (and (memq (type-of cl-x) cl-struct-dap--parser-tags) t)) nil] 9 (#$ . 29888)]) (put 'dap--parser-p 'compiler-macro 'dap--parser-p--cmacro) #@13 (fn CL-X) (defalias 'dap--parser-p #[257 "\301!>\205 \302\207" [cl-struct-dap--parser-tags type-of t] 3 (#$ . 30229)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put dap--parser-p side-effect-free error-free put dap--parser cl-deftype-satisfies] 5) #@89 compiler-macro for inlining `dap--parser-waiting-for-response'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--parser-waiting-for-response--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--parser-waiting-for-response (progn (aref cl-x 1))) nil] 9 (#$ . 30508)]) (put 'dap--parser-waiting-for-response 'compiler-macro 'dap--parser-waiting-for-response--cmacro) #@77 Access slot "waiting-for-response" of `dap--parser' struct CL-X. (fn CL-X) (defalias 'dap--parser-waiting-for-response #[257 "\211\300H\207" [1] 3 (#$ . 30909)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--parser-waiting-for-response side-effect-free t] 4) #@84 compiler-macro for inlining `dap--parser-response-result'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--parser-response-result--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--parser-response-result (progn (aref cl-x 2))) nil] 9 (#$ . 31187)]) (put 'dap--parser-response-result 'compiler-macro 'dap--parser-response-result--cmacro) #@72 Access slot "response-result" of `dap--parser' struct CL-X. (fn CL-X) (defalias 'dap--parser-response-result #[257 "\211\300H\207" [2] 3 (#$ . 31563)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--parser-response-result side-effect-free t] 4) #@76 compiler-macro for inlining `dap--parser-headers'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--parser-headers--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--parser-headers (progn (aref cl-x 3))) nil] 9 (#$ . 31826)]) (put 'dap--parser-headers 'compiler-macro 'dap--parser-headers--cmacro) #@64 Access slot "headers" of `dap--parser' struct CL-X. (fn CL-X) (defalias 'dap--parser-headers #[257 "\211\300H\207" [3] 3 (#$ . 32162)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--parser-headers side-effect-free t] 4) #@73 compiler-macro for inlining `dap--parser-body'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--parser-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--parser-body (progn (aref cl-x 4))) nil] 9 (#$ . 32401)]) (put 'dap--parser-body 'compiler-macro 'dap--parser-body--cmacro) #@61 Access slot "body" of `dap--parser' struct CL-X. (fn CL-X) (defalias 'dap--parser-body #[257 "\211\300H\207" [4] 3 (#$ . 32722)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--parser-body side-effect-free t] 4) #@81 compiler-macro for inlining `dap--parser-reading-body'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--parser-reading-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--parser-reading-body (progn (aref cl-x 5))) nil] 9 (#$ . 32952)]) (put 'dap--parser-reading-body 'compiler-macro 'dap--parser-reading-body--cmacro) #@69 Access slot "reading-body" of `dap--parser' struct CL-X. (fn CL-X) (defalias 'dap--parser-reading-body #[257 "\211\300H\207" [5] 3 (#$ . 33313)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--parser-reading-body side-effect-free t] 4) #@80 compiler-macro for inlining `dap--parser-body-length'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--parser-body-length--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--parser-body-length (progn (aref cl-x 6))) nil] 9 (#$ . 33567)]) (put 'dap--parser-body-length 'compiler-macro 'dap--parser-body-length--cmacro) #@68 Access slot "body-length" of `dap--parser' struct CL-X. (fn CL-X) (defalias 'dap--parser-body-length #[257 "\211\300H\207" [6] 3 (#$ . 33923)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--parser-body-length side-effect-free t] 4) #@82 compiler-macro for inlining `dap--parser-body-received'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--parser-body-received--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--parser-body-received (progn (aref cl-x 7))) nil] 9 (#$ . 34174)]) (put 'dap--parser-body-received 'compiler-macro 'dap--parser-body-received--cmacro) #@70 Access slot "body-received" of `dap--parser' struct CL-X. (fn CL-X) (defalias 'dap--parser-body-received #[257 "\211\300H\207" [7] 3 (#$ . 34540)]) (byte-code "\300\301\302\303#\300\207" [function-put dap--parser-body-received side-effect-free t] 4) #@78 compiler-macro for inlining `dap--parser-leftovers'. (fn CL-WHOLE-ARG CL-X) (defalias 'dap--parser-leftovers--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block dap--parser-leftovers (progn (aref cl-x 8))) nil] 9 (#$ . 34797)]) (put 'dap--parser-leftovers 'compiler-macro 'dap--parser-leftovers--cmacro) #@66 Access slot "leftovers" of `dap--parser' struct CL-X. (fn CL-X) (defalias 'dap--parser-leftovers #[257 "\211\300H\207" [8] 3 (#$ . 35143)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put dap--parser-leftovers side-effect-free t defalias copy-dap--parser copy-sequence] 4) #@178 compiler-macro for inlining `make-dap--parser'. (fn CL-WHOLE &cl-quote &key WAITING-FOR-RESPONSE RESPONSE-RESULT HEADERS BODY READING-BODY BODY-LENGTH BODY-RECEIVED LEFTOVERS) (defalias 'make-dap--parser--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"\206\304A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"\2062\311A@\300\312\"A@\313\314\315\316 \316        & \207" [plist-member :waiting-for-response :response-result :headers (nil 'nil) :body :reading-body :body-length :body-received (nil 0) :leftovers cl--defsubst-expand (waiting-for-response response-result headers body reading-body body-length body-received leftovers) (cl-block make-dap--parser (record 'dap--parser waiting-for-response response-result headers body reading-body body-length body-received leftovers)) nil] 24 (#$ . 35439)]) (put 'make-dap--parser 'compiler-macro 'make-dap--parser--cmacro) #@158 Constructor for objects of type `dap--parser'. (fn &key WAITING-FOR-RESPONSE RESPONSE-RESULT HEADERS BODY READING-BODY BODY-LENGTH BODY-RECEIVED LEFTOVERS) (defalias 'make-dap--parser #[128 "\300\301\"A@\300\302\"A@\300\303\"\206\304A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"\2062\311A@\300\312\"A@\313\314        & \207" [plist-member :waiting-for-response :response-result :headers (nil nil) :body :reading-body :body-length :body-received (nil 0) :leftovers record dap--parser] 19 (#$ . 36338)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-dap--parser side-effect-free t cl-struct-define dap--parser nil cl-structure-object record ((cl-tag-slot) (waiting-for-response nil) (response-result nil) (headers 'nil) (body nil) (reading-body nil) (body-length nil) (body-received 0) (leftovers nil)) cl-struct-dap--parser-tags] 11) #@29 Get sessions for WORKSPACE. (defalias 'dap--get-sessions #[0 "\300\301!\207" [lsp-workspace-get-metadata "debug-sessions"] 2 (#$ . 37253)]) #@44 Get currently active `dap--debug-session'. (defalias 'dap--cur-session #[0 "\300\301!\207" [lsp-workspace-get-metadata "default-session"] 2 (#$ . 37399)]) #@277 Generate a response handler, for use in `dap--send-message'. If the request is successful, call SUCCESS-CALLBACK with the entire resulting messsage. The handler will call ERROR-CALLBACK with the message or `error' on failure. (fn &optional SUCCESS-CALLBACK ERROR-CALLBACK) (defalias 'dap--resp-handler #[512 "\300\301#\207" [make-closure #[257 "\211\302\303\"\302\304\"\203\300\205 \300!\207\301\203\301!\207\305!\207" [V0 V1 gethash "success" "message" error] 6 "\n\n(fn INPUT0)"]] 6 (#$ . 37561)]) #@207 Returned handler will mark the DEBUG-SESSION as failed if call return error. SUCCESS-CALLBACK will be called if it is provided and if the call has succeeded. (fn DEBUG-SESSION &optional SUCCESS-CALLBACK) (defalias 'dap--session-init-resp-handler #[513 "\300\301#\207" [make-closure #[257 "\211\302\303\"\302\304\"\203\301\2059\301!\207\305\306\"\210\307\300\310H!\210\300\211\311\312I\266\300\211\313I\266\314 \210\315\316\300\"\210\317\320!\207" [V0 V1 gethash "success" "message" warn "Initialize request failed: %s" delete-process 3 14 failed 19 dap--refresh-breakpoints run-hook-with-args dap-terminated-hook run-hooks dap-session-changed-hook] 8 "\n\n(fn INPUT0)"]] 6 (#$ . 38084)]) #@54 Get currently selection `dap--debug-session' or die. (defalias 'dap--cur-session-or-die #[0 "\300 \206\301\302!\207" [dap--cur-session error "No active current session"] 2 (#$ . 38793)]) #@64 Check whether DEBUG-SESSION still running. (fn DEBUG-SESSION) (defalias 'dap--session-running #[257 "\211\205\n\211\300H\301>?\207" [14 (terminated failed)] 3 (#$ . 38988)]) #@60 Get currently non-terminated `dap--debug-session' or die. (defalias 'dap--cur-active-session-or-die #[0 "\300 \211\301!\203\n\207\302\303\304H\"\207" [dap--cur-session-or-die dap--session-running error "Session %s is terminated" 1] 6 (#$ . 39170)]) #@46 Get position of BREAKPOINT. (fn BREAKPOINT) (defalias 'dap-breakpoint-get-point #[257 "\211\211\205 \300\301\"\262\211\205\302!\262\206\300\303\"\207" [plist-get :marker marker-position :point] 5 (#$ . 39429)]) #@71 Change the active debug session to DEBUG-SESSION. (fn DEBUG-SESSION) (defalias 'dap--set-cur-session #[257 "\300\301\"\207" [lsp-workspace-set-metadata "default-session"] 4 (#$ . 39657)]) #@81 Update KEY to FORM if KEY does not exist in plist CONFIG. (fn CONFIG KEY FORM) (defalias 'dap--put-if-absent '(macro . #[771 "\300\301\302EEF\207" [plist-put or plist-get] 10 (#$ . 39853)])) #@392 Wrap `completing-read' to provide tranformation function. TRANSFORM-FN will be used to transform each of the items before displaying. PROMPT COLLECTION PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD will be proxied to `completing-read' without changes. (fn PROMPT COLLECTION TRANSFORM-FN &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD) (defalias 'dap--completing-read #[2307 "\300\301\302 \" \"\303\n\304\305\"      &\306\"A\207" [mapcar make-closure #[257 "\300!B\207" [V0] 3 "\n\n(fn IT)"] completing-read -map cl-first assoc] 19 (#$ . 40059)]) #@97 Delete PROPERTY from PLIST. This is in contrast to merely setting it to 0. (fn PLIST PROPERTY) (defalias 'dap--plist-delete #[514 "\300\203@=\204\301@A@#\262AA\262\202\207" [nil plist-put] 7 (#$ . 40682)]) #@84 Create a LSP message from PARAMS, after encoding it to a JSON string. (fn PARAMS) (defalias 'dap--json-encode #[257 "\303\304!*\207" [dap-print-io json-encoding-pretty-print json-false :json-false json-encode] 3 (#$ . 40910)]) #@84 Create a LSP message from PARAMS, after encoding it to a JSON string. (fn PARAMS) (defalias 'dap--make-message #[257 "\300!\301\302\303!#\207" [dap--json-encode format "Content-Length: %d \n \n%s" string-bytes] 6 (#$ . 41148)]) #@53 Parse string S as a DAP (KEY . VAL) header. (fn S) (defalias 'dap--parse-header #[257 "\300\301\"\302\211\204\303\304C\"\210\305O\262\306\\\302O\262B\207" [string-match ":" nil signal lsp-invalid-header-name 0 2] 7 (#$ . 41386)]) #@31 Get breakpoints in WORKSPACE. (defalias 'dap--get-breakpoints #[0 "\300\301!\206\302\303\304\"\305\301\"\210\211\262\207" [lsp-workspace-get-metadata "Breakpoints" make-hash-table :test equal lsp-workspace-set-metadata] 4 (#$ . 41636)]) #@53 Serialize TO-PERSIST to FILE. (fn FILE TO-PERSIST) (defalias 'dap--persist #[514 "\30012\301\302!\303\"\210\304\305\303\"\306\307\"\216r\211q\210\310 \210\311!c)rq\210\312\313\211\313\314%\210*\266\2020\207\315\316\"\210\313\207" [(debug error) make-directory file-name-directory t generate-new-buffer " *temp file*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] erase-buffer prin1-to-string write-region nil 0 message "Failed to persist file: %S"] 11 (#$ . 41883)]) #@85 Update list of debug sessions for WORKSPACE to DEBUG-SESSIONS. (fn DEBUG-SESSIONS) (defalias 'dap--set-sessions #[257 "\300\301\"\210\302\303!\207" [lsp-workspace-set-metadata "debug-sessions" run-hook-with-args dap-session-changed-hook] 4 (#$ . 42399)]) #@40 Persist BREAKPOINTS. (fn BREAKPOINTS) (defalias 'dap--persist-breakpoints #[257 "\301\302\303\"\304\305\306\"\"\210\307\"\207" [dap-breakpoints-file make-hash-table :test equal maphash make-closure #[514 "\301\302\303\"\300#\207" [V0 puthash -map #[257 "\211\300\301\"\300\302\"\303\304\211\302\"\301\"\302\203\305!\202#\207" [plist-get :marker :point plist-put dap--plist-delete marker-position] 9 "\n\n(fn INPUT0)"]] 7 "\n\n(fn K V)"] dap--persist] 6 (#$ . 42662)]) #@189 Common logic breakpoints related methods UPDATED-FILE-BREAKPOINTS. FILE-NAME is the filename in which the breakpoints have been udpated. (fn UPDATED-FILE-BREAKPOINTS &optional FILE-NAME) (defalias 'dap--breakpoints-changed #[513 "\211\206 \206 \301\302!\303 \203\304#\210\202\305\"\210\306 \203+\307\306 !\204<\310!\211\203;r\211q\210\311\312!\210)\210\313\"\314 \315\307\"\211\316\317C\317\203r\211A\262\242\240\210\262T\262\320\321\322\323 #!\242#\210\202K\266\324!\207" [buffer-file-name error "No file name" dap--get-breakpoints puthash remhash dap--cur-session dap--session-running find-buffer-visiting run-hooks dap-breakpoints-changed-hook dap--set-breakpoints-request dap--get-sessions -filter 0 nil dap--send-message dap--resp-handler make-closure #[257 "\302\301\242\300#\207" [V0 V1 dap--update-breakpoints] 5 "\n\n(fn RESP)"] dap--persist-breakpoints] 18 (#$ . 43154)]) #@40 Toggle breakpoint on the current line. (defalias 'dap-breakpoint-toggle #[0 "\301\302 \"\303\304!\211\203)\211\211\205\305\306\"\262\211\203!\211\307\211\223\210\210\310\"\2024\306\311 \312`FB\211\262\262!\207" [buffer-file-name gethash dap--get-breakpoints dap--breakpoints-changed dap--get-breakpoint-at-point plist-get :marker nil cl-remove point-marker :point] 7 (#$ . 44082) nil]) #@136 Get breakpoint on the current point. FILE-BREAKPOINTS is the list of breakpoints in the current file. (fn &optional FILE-BREAKPOINTS) (defalias 'dap--get-breakpoint-at-point #[256 "\301`!\302\303\304\"\206\305\306 \"\"\207" [buffer-file-name line-number-at-pos -first make-closure #[257 "\300\301\302!!U\207" [V0 line-number-at-pos dap-breakpoint-get-point] 5 "\n\n(fn BP)"] gethash dap--get-breakpoints] 7 (#$ . 44489)]) #@67 Delete breakpoint on the current line. (fn BREAKPOINT FILE-NAME) (defalias 'dap-breakpoint-delete #[514 "\205'\211\205 \300\301\"\262\211\203\211\302\211\223\210\210\303\304\305\306\"\307\310 \"\"\"\207" [plist-get :marker nil dap--breakpoints-changed -remove make-closure #[257 "\301!\301\300!=\207" [V0 dap-breakpoint-get-point] 4 "\n\n(fn BP)"] gethash dap--get-breakpoints] 8 (#$ . 44924) (byte-code "\301 \211\205\n\302\"\262\211\205\303!\262D\207" [buffer-file-name dap--get-breakpoints gethash dap--get-breakpoint-at-point] 4)]) #@186 Common code for updating breakpoint. MESSAGE to be displayed to the user. PROPERTY is the breakpoint property that will be udpated. (fn PROPERTY MESSAGE FILE-NAME EXISTING-BREAKPOINT) (defalias 'dap--breakpoint-update #[1028 "\300\301 \"\2037\302\303\"\"\304!\203+\305\211\211\306\"\307\"\310\"\311\"B\262\2022\312#\210\313\"\207\314\315!\207" [gethash dap--get-breakpoints read-string plist-get s-blank\? dap--plist-delete :hit-condition :condition :log-message delete plist-put dap--breakpoints-changed error "No breakpoint found."] 11 (#$ . 45489)]) #@82 Set breakpoint condition for the breakpoint at point. (fn FILE-NAME BREAKPOINT) (defalias 'dap-breakpoint-condition #[514 "\300\301\302$\207" [dap--breakpoint-update :condition "Enter breakpoint condition: "] 7 (#$ . 46069) (byte-code "\301 D\207" [buffer-file-name dap--get-breakpoint-at-point] 2)]) #@86 Set breakpoint hit condition for the breakpoint at point. (fn FILE-NAME BREAKPOINT) (defalias 'dap-breakpoint-hit-condition #[514 "\300\301\302$\207" [dap--breakpoint-update :hit-condition "Enter hit condition: "] 7 (#$ . 46380) (byte-code "\301 D\207" [buffer-file-name dap--get-breakpoint-at-point] 2)]) #@195 Set breakpoint log message for the breakpoint at point. If log message for the breakpoint is specified it won't stop thread exection but the server will log message. (fn FILE-NAME BREAKPOINT) (defalias 'dap-breakpoint-log-message #[514 "\300\301\302$\207" [dap--breakpoint-update :log-message "Enter log message: "] 7 (#$ . 46697) (byte-code "\301 D\207" [buffer-file-name dap--get-breakpoint-at-point] 2)]) #@37 Add breakpoint on the current line. (defalias 'dap-breakpoint-add #[0 "\301\302 \"\303!?\205\304\305\306 \307`FB\211\262!\207" [buffer-file-name gethash dap--get-breakpoints dap--get-breakpoint-at-point dap--breakpoints-changed :marker point-marker :point] 6 (#$ . 47116) nil]) #@45 Get body length from HEADERS. (fn HEADERS) (defalias 'dap--get-body-length #[257 "\300\301\"A\211\203 \302!\207\303\304!\207" [assoc "Content-Length" string-to-number error "No Content-Length header"] 4 (#$ . 47406)]) #@32 Reset `dap--parser' P. (fn P) (defalias 'dap--parser-reset #[257 "\211\211\300\301I\266\211\211\302\303I\266\211\211\304\303I\266\211\211\305\303I\266\211\211\306\303I\266\211\211\307\303I\207" [8 "" 6 nil 7 3 4 5] 5 (#$ . 47634)]) #@46 Parser OUTPUT using parser P. (fn P OUTPUT) (defalias 'dap--parser-read #[514 "\301\302\303\304#\305HP\211\211\306\230\262\204\321\307H\204\203\310\301\311\312#)\266\203\211\203x\313O\314\\\301O\315\316\317\320\"\"\321! \211\322I\266 \211\307\311I\266 \211\323I\266 \211\324\313I\266 \211\314\325\313\"I\266 \211\305\301I\266\266\206\202 \211\305I\266\306\202 \323H\324H\326!Z\313^O\326!\301O\327 \314H#\210\n\211\324 \324H\326!\\I\266Y\203\314\330 \314H\303\" B\262 \331 !\210\266\206\202 \237\207" [inhibit-changing-match-data nil encode-coding-string utf-8 nocopy 8 "" 5 " \n \n" t string-match 0 4 mapcar dap--parse-header split-string " \n" dap--get-body-length 3 6 7 make-string string-bytes store-substring decode-coding-string dap--parser-reset] 17 (#$ . 47878)]) #@64 Read the JSON object contained in STR and return it. (fn STR) (defalias 'dap--read-json #[257 "\303\304\305\306!+\207" [json-array-type json-object-type json-false list hash-table nil json-read-from-string] 3 (#$ . 48724)]) #@43 Resume DEBUG-SESSION. (fn DEBUG-SESSION) (defalias 'dap--resume-application #[257 "\211\300H\301\302\303H#\210\304\305H\"\266\211\211\306\307I\266\211\211\300\307I\266\310\311\"\207" [7 puthash "running" 10 remhash 16 12 nil run-hook-with-args dap-continue-hook] 7 (#$ . 48959)]) #@90 Call continue for the currently active session and thread. (fn DEBUG-SESSION THREAD-ID) (defalias 'dap-continue #[514 "\211\203\300\301\302\303D\"\304 #\210\305!\207\306\307!\207" [dap--send-message dap--make-request "continue" :threadId dap--resp-handler dap--resume-application lsp--error "Currently active thread is not stopped. Use `dap-switch-thread' or select stopped thread from sessions view."] 7 (#$ . 49254) (byte-code "\300 \300 \211\301H\262D\207" [dap--cur-active-session-or-die 7] 4)]) #@61 Disconnect from the currently active session. (fn SESSION) (defalias 'dap-disconnect #[257 "\300\301\302\303\304D\"\305\306\"#\210\307!\207" [dap--send-message dap--make-request "disconnect" :restart :json-false make-closure #[257 "\300\301H\211\205\302\303\"\210\304!\207" [V0 21 lsp--info "Killing process %s" kill-process] 5 "\n\n(fn RESULT)"] dap--resume-application] 6 (#$ . 49767) (byte-code "\300 C\207" [dap--cur-active-session-or-die] 1)]) #@141 Send a request for CMD, a step command. DEBUG-SESSION is the debug session in which the stepping is to be executed. (fn CMD DEBUG-SESSION) (defalias 'dap--step #[514 "\211\300H\211\203\301\302\303D\"\304 #\210\305!\207\306\307!\207" [7 dap--send-message dap--make-request :threadId dap--resp-handler dap--resume-application lsp--error "Currently active thread is not stopped. Use `dap-switch-thread' or select stopped thread from sessions view."] 8 (#$ . 50231)]) #@43 Step over statements. (fn DEBUG-SESSION) (defalias 'dap-next #[257 "\300\301\"\207" [dap--step "next"] 4 (#$ . 50708) (byte-code "\300 C\207" [dap--cur-session-or-die] 1)]) #@68 Like `dap-next', but step into function calls. (fn DEBUG-SESSION) (defalias 'dap-step-in #[257 "\300\301\"\207" [dap--step "stepIn"] 4 (#$ . 50889) (byte-code "\300 C\207" [dap--cur-session-or-die] 1)]) #@37 Debug step out. (fn DEBUG-SESSION) (defalias 'dap-step-out #[257 "\300\301\"\207" [dap--step "stepOut"] 4 (#$ . 51100) (byte-code "\300 C\207" [dap--cur-session-or-die] 1)]) #@54 Restarts current frame. (fn DEBUG-SESSION FRAME-ID) (defalias 'dap-restart-frame #[514 "\300\301\302\303D\"\304 #\210\305!\207" [dap--send-message dap--make-request "restartFrame" :frameId dap--resp-handler dap--resume-application] 7 (#$ . 51282) (byte-code "\300 \211\211\205 \211\301H\262\211\205\302\303\"\262D\207" [dap--cur-active-session-or-die 12 gethash "id"] 6)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable dap-debug-restart-keep-session funcall function #[0 "\300\207" [t] 1] "Set if `dap-debug-restart' should use a new session.\nWhen running `dap-debug-restart' with this variable set, the old\nsession will still be visible and accessible after restarting. If\nnot, the old session will be deleted, `dap-debug-restart'\nbehaving like an in-place restart instead. Note that you can\noverride this variable by calling `dap-debug-restart' with a\nprefix argument (the effect will be reversed)." :group dap-mode :type boolean] 8) #@207 Restarts current frame. If TOGGLE-KEEP-SESSION is set (in interactive mode this is the prefix argument), the effect of `dap-debug-restart-keep-session' will be reversed. (fn &optional TOGGLE-KEEP-SESSION) (defalias 'dap-debug-restart #[256 "\301 \211\203*\302!\203$\303\304\305H\"\210=\203 \306!\210\202$\307!\210\310\311H!\207\312\313!\207" [dap-debug-restart-keep-session dap--cur-session dap--session-running message "Disconnecting from %s" 1 dap-delete-session dap-disconnect dap-debug 17 user-error "There is session to restart"] 6 (#$ . 52283) "P"]) #@52 Get file path for a STACK-FRAME. (fn STACK-FRAME) (defalias 'dap--get-path-for-frame #[257 "\301\302\"\211\2055\301\303\"\211\2053\304\305!!\306!>\204$\307\310\311D\"\210\211\312H\262\2032\313!\2023\211\262\207" [cl-struct-url-tags gethash "source" "path" url-generic-parse-url url-unhex-string type-of signal wrong-type-argument url 1 lsp--uri-to-path] 8 (#$ . 52857)]) #@91 Make STACK-FRAME the active STACK-FRAME of DEBUG-SESSION. (fn DEBUG-SESSION STACK-FRAME) (defalias 'dap--go-to-stack-frame #[514 "\301H\211\203M\302\303\"\302\304\"\302\305\"\306!\211\307I\266\211\203C\310!\203C\311\312\313 \314\"!\210\315!\210eb\210Sy\210u\266\202M\316\317$\266\320\321\")\207" [lsp--cur-workspace 8 gethash "line" "column" "name" dap--get-path-for-frame 12 file-exists-p select-window get-mru-window selected-frame nil find-file message "No source code for %s. Cursor at %s:%s." run-hook-with-args dap-stack-frame-changed-hook] 11 (#$ . 53249)]) #@118 Make the thread with id=THREAD-ID the active thread for DEBUG-SESSION. (fn DEBUG-SESSION THREAD-ID &optional FORCE) (defalias 'dap--select-thread-id #[770 "\211\204\n\300H\204\211\300I\266\301\302\"\210\303\304\305\306D\"\307\310\311#!#\207" [7 run-hook-with-args dap-stopped-hook dap--send-message dap--make-request "stackTrace" :threadId dap--resp-handler make-closure #[257 "\302\303\302\304\"\"\305\301\300\306H#\210\300\307 =\205'\301\307 \211\310H\262=\205'\311\300@\"\207" [V0 V1 gethash "stackFrames" "body" puthash 16 dap--cur-session 7 dap--go-to-stack-frame] 7 "\n\n(fn INPUT0)"]] 10 (#$ . 53848)]) #@30 Get all file backed buffers. (defalias 'dap--buffer-list #[0 "\300\301\302 \"\207" [-filter buffer-file-name buffer-list] 3 (#$ . 54485)]) #@40 Refresh breakpoints for DEBUG-SESSION. (defalias 'dap--refresh-breakpoints #[0 "\301 \302\303\211\205/\211A\262\242\262\262T\262\304!\203rq\210\305\306\307 \"\"\210)\202\207" [buffer-file-name dap--buffer-list 0 nil buffer-live-p dap--set-breakpoints-in-file gethash dap--get-breakpoints] 9 (#$ . 54630)]) #@55 Mark DEBUG-SESSION as terminated. (fn DEBUG-SESSION) (defalias 'dap--mark-session-as-terminated #[257 "\211\211\300\301I\266\211\211\302\303I\266\3041\305\306H!0\210\202\"\307\310\"\266\311\312H!\210\313\314\"\210\313\315\"\210\316 \210\317\320H\321\"\211\205B\211!\207" [14 terminated 12 nil (debug error) delete-process 3 message "Process cleanup failed with %s" clrhash 15 run-hook-with-args dap-stack-frame-changed-hook dap-terminated-hook dap--refresh-breakpoints plist-get 17 :cleanup-function] 5 (#$ . 54959)]) #@110 Formats a string suitable for printing to the output buffer using CATEGORY and OUTPUT. (fn CATEGORY OUTPUT) (defalias 'dap--output-buffer-format-with-category #[514 "\300\301#\211\302\303O\304\230\203\207\211\304P\207" [format "%s: %s" -1 nil "\n"] 6 (#$ . 55499)]) #@101 Formats a string suitable for printing to the output buffer using an OUTPUT-BODY. (fn OUTPUT-BODY) (defalias 'dap--output-buffer-format #[257 "\203\301\302\303\"\302\304\"\"\207\302\304\"\207" [dap-label-output-buffer-category dap--output-buffer-format-with-category gethash "category" "output"] 6 (#$ . 55777)]) #@51 Inserts STR at point-max of the buffer. (fn STR) (defalias 'dap--insert-at-point-max #[257 "db\210\300!c\207" [ansi-color-apply] 3 (#$ . 56103)]) #@103 Insert content from STR into the output buffer associated with DEBUG-SESSION. (fn DEBUG-SESSION STR) (defalias 'dap--print-to-output-buffer #[514 "r\302\303H!q\210\304\305!\210\306\300!\210\307p\310\311 !=\203*`dU\204*\212\312!\210)\202.\312!\210\306\300!\210\305) \205L\313H?\205L\211\313\305I\266\212\314\305!)\207" [buffer-read-only dap-auto-show-output get-buffer-create 6 font-lock-mode t make-local-variable nil window-buffer selected-window dap--insert-at-point-max 23 dap-go-to-output-buffer] 6 (#$ . 56258)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\307\304\310%\207" [defalias dap-handle-event cl-generic-define (event-type session params) nil "Extension point for handling custom events.\nEVENT-TYPE is the event to handle.\nSESSION is the session that has triggered the event.\nPARAMS are the event params.\n\n(fn EVENT-TYPE SESSION PARAMS)" cl-generic-define-method (event-type _session _params) #[771 "\300\301\"\207" [message "No message handler for %s"] 6 "\n\n(fn EVENT-TYPE SESSION PARAMS)"]] 6) #@61 Dispatch EVENT for DEBUG-SESSION. (fn DEBUG-SESSION EVENT) (defalias 'dap--on-event #[514 "\301\302\"\301\303\"\211\304\267\202Q\305!\211\205@\306\307H\310\"\211\203%\211!\202&\262\211\205>\2039\301\311\"\235\205>\312\"\262\207\205I\301\313\"\211\205{\301\314\"\211\205y\315\316\317#\320H\"@\211\205w\321 =\205wr\322!q\210\323\324!)\262\262\207\301\325\"\301\326\"\327\330H#\210\323\331!\210\332\333\334!\316\335 \"#\207\336!\207\301\325\"\337\330H\"\210\211\340H\232\203\301\321 \232\203\301\341!\207\323\331!\207\301\325\"\301\342\"\301\326\"\327\206\330 \330H#\210\343\"\210\211\344\230\203\367\332\333\345\346D\"\347 #\210\323\331!\207\336!\207\301\350\"\301\351\"\352\353\354#!\207\355\356 \357\360\"#\207\301\361\301\302\"\"\211\362\362H\363\"\2034\211\2027B\262I\266\364\365\"\207\301\366\301\302\"\"\367\370H\"\207\371\372!#\207" [dap-output-buffer-filter gethash "body" "event" #s(hash-table size 11 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("output" 14 "breakpoint" 65 "thread" 124 "exited" 158 "continued" 162 "stopped" 197 "terminated" 251 "usernotification" 255 "initialized" 271 "loadedSource" 282 "capabilities" 322)) dap--output-buffer-format plist-get 17 :output-filter-function "category" dap--print-to-output-buffer "breakpoint" "id" ht-find make-closure #[514 "\302\303\304\300\301#\"\207" [V0 V1 -first make-closure #[257 "\211\302\303\"\211\301=\205\304!\210\305\306\307\"\300\"\210\310\207" [V0 V1 gethash "id" clrhash ht-each make-closure #[514 "\301\302\300#\210\207" [V0 nil puthash] 7 "\n\n(fn KEY VALUE)"] t] 7 "\n\n(fn INPUT0)"]] 7 "\n\n(fn _ BREAKPOINTS)"] 15 dap--cur-session find-file run-hooks dap-breakpoints-changed-hook "threadId" "reason" puthash 10 dap-session-changed-hook dap--send-message dap--make-request "threads" #[257 "\301\302\"\300\211\303\205\301\304\"I\266\305\306!\207" [V0 gethash "body" 9 "threads" run-hooks dap-session-changed-hook] 8 "\n\n(fn INPUT0)"] dap--mark-session-as-terminated remhash 7 dap--resume-application "type" dap--select-thread-id "exception" "exceptionInfo" :threadId #[257 "\300\301\"\211\211\205 \300\302\"\262\211\205\300\303\"\262\304\305#\207" [gethash "body" "description" "exceptionId" lsp--error "Exception has occurred: %s\n%s"] 8 "\n\n(fn INPUT0)"] "notificationType" "message" warn format "[%s] %s" dap--configure-breakpoints dap--get-breakpoints apply-partially dap--send-configuration-done "source" 20 memql run-hook-with-args dap-loaded-sources-changed-hook "capabilities" ht-update! 18 dap-handle-event intern] 12 (#$ . 57311)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable dap-default-terminal-kind funcall function #[0 "\300\207" [#1="integrated"] 1 #1#] "Default terminal type used for :console." :type (radio (const :tag "Terminal within Emacs" :value "integrated") (const :tag "External terminal program (`dap-external-terminal')" :value "external")) :group dap-mode] 8) #@33 (fn DEBUG-SESSION PARSED-MSG) (defalias 'dap--start-process #[514 "\304\305\"\211\211\205 \304\306\"\262\211\205\304\307\"\262\211\205#\304\310\"\262\211\205.\304\311\"\262\304\312\"\313\314\315#\266\202\206E \211\316\230\203\261\206U \317H\320P\n\321\211:\203x@\262\322\323\322\324##B\262A\262\202X\211\237\266\203\3251\214\326\327\211$\210\3300\202\234\331\332\333!\314\334\313##\210\321\262\205\254\335\336\337\"\340 #\210\330\266\202\206\344\211\341\230\204\275\211\316\230\203\324 \f#\210\335\336\337\"\340 \f#\210\330\202\344\335\342\337\321\343\344\"$\340 \f#)\207" [default-directory dap-default-terminal-kind dap-external-terminal dap-internal-terminal gethash "arguments" "args" "cwd" "title" "kind" "seq" " " mapconcat identity "external" 1 "- terminal" nil s-replace "{command}" "{display}" (debug error) apply start-process t lsp--warn "dap-debug: failed to start external\nterminal: %S (launch command was: \"%s\"). Set\n`dap-external-terminal' to the correct value or install the\nterminal configured (probably xterm)." error-message-string shell-quote-argument dap--send-message dap--make-success-response "runInTerminal" dap--resp-handler "integrated" dap--make-error-response format "unknown terminal kind %s"] 21 (#$ . 60378)]) #@63 Create filter function for DEBUG-SESSION. (fn DEBUG-SESSION) (defalias 'dap--create-filter-function #[257 "\211\300H\301H\302\303$\207" [5 4 make-closure #[514 "\303\304\305\300\302#\306\301\"\"\207" [V0 V1 V2 mapc make-closure #[257 "\305!\306\307\310#\n\203 \311\312\313!\"\210)\306\314\"\211\315\267\202N\316\300\"\207\306\301\310#\211\203A\211!\210\317\301\"\210\320\321\300\306\322\"#\207\311\323\324!\"\207\325\300\"\207\310\207" [V0 V1 dap-print-io dap-inhibit-io inhibit-message dap--read-json gethash "request_seq" nil message "Received:\n%s" dap--json-encode "type" #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("event" 32 "response" 37 "request" 73)) dap--on-event remhash run-hook-with-args dap-executed-hook "command" "Unable to find handler for %s." pp dap--start-process] 11 "\n\n(fn M)"] dap--parser-read] 7 "\n\n(fn _ MSG)"]] 8 (#$ . 61705)]) #@74 Creates an output buffer with with name SESSION-NAME. (fn SESSION-NAME) (defalias 'dap--create-output-buffer #[257 "r\301\302\303Q!q\210\304 \210\305\300!\210\306p)\207" [window-point-insertion-type get-buffer-create "*" " out*" special-mode make-local-variable t] 5 (#$ . 62638)]) #@76 Make request for COMMAND with arguments ARGS. (fn COMMAND &optional ARGS) (defalias 'dap--make-request #[513 "\211\203 \300\301\302\303\257\207\300\302\303F\207" [:command :arguments :type "request"] 8 (#$ . 62929)]) #@50 (fn ID COMMAND SUCCESS &optional BODY MESSAGE) (defalias 'dap--make-response #[1283 "\300\301\302\303\304\n\257\205\305D\244\205\306D\244\207" [:type "response" :request_seq :success :command :message :body] 13 (#$ . 63158)]) #@265 Make a successful DAP response. The result is aplist usable with `json-encode'. ID, COMMAND, BODY and MESSAGE correspond to "request_seq", "command", "body" and "message". Consult the DAP protocol specification for details. (fn ID COMMAND &optional BODY MESSAGE) (defalias 'dap--make-success-response #[1026 "\300\301%\207" [dap--make-response t] 10 (#$ . 63407)]) #@165 Like `dap--make-success-response', but for failure. In the future, this function may do logging, call `user-error', etc.... (fn ID COMMAND &optional BODY MESSAGE) (defalias 'dap--make-error-response #[1026 "\300\301%\207" [dap--make-response nil] 10 (#$ . 63784)]) #@79 Create initialize message. ADAPTER-ID the id of the adapter. (fn ADAPTER-ID) (defalias 'dap--initialize-message #[257 "\300\301\302\303\304\305\306\307\310\311\312\313\314\313\315\313\316\313\317\313\320\321\257\322\323\257\207" [:command "initialize" :arguments :clientID "vscode" :clientName "Visual Studio Code" :adapterID :pathFormat "path" :linesStartAt1 t :columnsStartAt1 :supportsVariableType :supportsVariablePaging :supportsRunInTerminalRequest :locale "en-us" :type "request"] 24 (#$ . 64060)]) #@66 Convert json MSG string to pretty printed json string. (fn MSG) (defalias 'dap--json-pretty-print #[257 "\301\302\303!!)\207" [json-encoding-pretty-print t json-encode json-read-from-string] 4 (#$ . 64577)]) #@70 MESSAGE DEBUG-SESSION CALLBACK. (fn MESSAGE CALLBACK DEBUG-SESSION) (defalias 'dap--send-message #[771 "\303!\2034\211\211\304\304HTI\262\305\306#\307\310H#\210\203+ \311\312\313!\"\210)\314\315H\316!\"\207\317\320\321H\"\207" [dap-print-io dap-inhibit-io inhibit-message dap--session-running 2 plist-put :seq puthash 4 message "Sending: \n%s" dap--json-encode process-send-string 3 dap--make-message error "Session %s is already terminated" 1] 10 (#$ . 64794)]) #@47 Sync request. (fn SESSION METHOD &rest ARGS) (defalias 'dap-request #[642 "\300C\301\302\"\303\304\"#\210\211\242\204\305\300\306\"\210\202\211\242\307=\203%\300\207\310\242!\203<\311\312\242\"\204<\313\311\314\242\"!\207\311\315\242\"\207" [nil dap--send-message dap--make-request make-closure #[257 "\300\206\301\240\207" [V0 :finished] 3 "\n\n(fn RES)"] accept-process-output 0.001 :finished ht\? gethash "success" error "message" "body"] 9 (#$ . 65280)]) #@31 (fn SESSION-NAME HOST PORT) (defalias 'dap--open-network-stream #[771 "\303\304\211\204GW\203G\3051+\306\304\307\310\311\312&\211\262\313\312\211#\2100\210\202\314\315\316\317!$\210\320\n!\210T\211\262)\266\202\211\206O\321\322\"\207" [dap-connect-retry-count inhibit-message dap-connect-retry-interval 0 nil (file-error) open-network-stream :type plain :coding no-conversion set-process-coding-system t message "Failed to connect to %s:%s with error message %s" error-message-string sit-for error "Failed to connect to port %s"] 14 (#$ . 65765)]) #@58 Create debug session from LAUNCH-ARGS. (fn LAUNCH-ARGS) (defalias 'dap--create-session #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\203+\305\303\306\307\310\311\312\n\313\314\f\315Q\316\317&\f\2020\320#\321\322\323\303\324\325 !&\326\327\330\"\"\210\331\332!\"\210\207" [plist-get :host :dap-server-path :name :debugServer make-process :connection-type pipe :coding no-conversion :command :stderr "*" " stderr*" :noquery t dap--open-network-stream make-dap--debug-session :launch-args :proc :output-buffer dap--create-output-buffer set-process-sentinel make-closure #[514 "\301\302\"\210\303\300!\207" [V0 message "Debug session process exited with status: %s" dap--mark-session-as-terminated] 5 "\n\n(fn PROCESS EXIT-STR)"] set-process-filter dap--create-filter-function] 18 (#$ . 66349)]) #@73 Send 'configurationDone' message for DEBUG-SESSION. (fn DEBUG-SESSION) (defalias 'dap--send-configuration-done #[257 "\300\301\302!\303\304\305\"!#\207" [dap--send-message dap--make-request "configurationDone" dap--resp-handler make-closure #[257 "\300\301H\302=\205\300\211\301\303I\266\304\305!\207" [V0 14 pending running run-hook-with-args dap-session-changed-hook] 5 "\n\n(fn _)"]] 7 (#$ . 67175)]) #@147 Make `setBreakpoints' request for FILE-NAME. FILE-BREAKPOINTS is a list of the breakpoints to set for FILE-NAME. (fn FILE-NAME FILE-BREAKPOINTS) (defalias 'dap--set-breakpoints-request #[514 "\301\302\303\"r\211q\210\304\305\"\216\306!\210\307\310\311\312\313!\314\315=\203)\316\317\320 #\202+F\321\322\323\324\325\n\"\"\326\327\330\322\323\331\332\"\"\257\"*\207" [system-type generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents dap--make-request "setBreakpoints" :source :name f-filename :path windows-nt s-replace "/" "\\" :breakpoints apply vector -map #[257 "\211\300\301\"\300\302\"\300\303\"\304\305\306!!D\203 \307\301#\210\203*\307\310#\210\2034\307\311#\210\207" [plist-get :condition :hit-condition :log-message :line line-number-at-pos dap-breakpoint-get-point plist-put :logMessage :hitCondition] 10 "\n\n(fn INPUT0)"] :sourceModified :json-false :lines mapcar #[257 "\300\301!!\207" [line-number-at-pos dap-breakpoint-get-point] 4 "\n\n(fn IT)"]] 17 (#$ . 67592)]) #@167 Update breakpoints in FILE-NAME. RESP is the result from the `setBreakpoints' request. DEBUG-SESSION is the active debug session. (fn DEBUG-SESSION RESP FILE-NAME) (defalias 'dap--update-breakpoints #[771 "\211\205 \300\301\"\262\211\205\300\302\"\262\211\203&\303\304H#\266\202.\305\304H\"\266\306 =\205F\307!\211\205Dr\211q\210\310\311!)\262\207" [gethash "body" "breakpoints" puthash 15 remhash dap--cur-session find-buffer-visiting run-hooks dap-breakpoints-changed-hook] 9 (#$ . 68693)]) #@28 (fn FILTER TYPE DEFAULT) (defalias 'dap--breakpoint-filter-enabled #[771 "\301\301\302\211\303%\302\303%\207" [dap-exception-breakpoints alist-get nil equal] 11 (#$ . 69217)]) #@31 (fn DEBUG-SESSION CALLBACK) (defalias 'dap--set-exception-breakpoints #[514 "\300H\301\302H\303\"\304\305\306\307\211\205\310\311\"\262\211\205$\312\313\314\"\"\262\206*\315D\"\313\316\"#\207" [18 plist-get 17 :type dap--send-message dap--make-request "setExceptionBreakpoints" :filters gethash "exceptionBreakpointFilters" -keep make-closure #[257 "\301\302\"\301\303\"\304\300#\205\211\207" [V0 gethash "default" "filter" dap--breakpoint-filter-enabled] 7 "\n\n(fn INPUT0)"] [] #[257 "\300 \207" [V0] 2 "\n\n(fn RESULT)"]] 13 (#$ . 69405)]) #@214 Configure breakpoints for DEBUG-SESSION. BREAKPOINTS is the list of breakpoints to set. CALLBACK will be called once configure is finished. RESULT to use for the callback. (fn DEBUG-SESSION BREAKPOINTS CALLBACK) (defalias 'dap--configure-breakpoints #[771 "\300!\301C\301U\203 \207\302\303\304&\"\207" [hash-table-count 0 maphash make-closure #[514 "\3051\306\307\"\310\311\312\300\302\303\304\n&!\300#0\207\304\211\242T\240\210\313\301\"\210\304\242\303U\203.\302 \210\314\301!\207" [V0 V1 V2 V3 V4 (file-missing) dap--send-message dap--set-breakpoints-request dap--resp-handler make-closure #[257 "\303\211\242T\240\210\305\300\304#\210\303\242\302U\205\306\300\301\"\207" [V0 V1 V2 V3 V4 dap--update-breakpoints dap--set-exception-breakpoints] 5 "\n\n(fn RESP)"] remhash dap--persist-breakpoints] 12 "\n\n(fn FILE-NAME FILE-BREAKPOINTS)"]] 13 (#$ . 69980)]) #@45 Eval and print EXPRESSION. (fn EXPRESSION) (defalias 'dap-eval #[257 "\300 \211\211\205\n\211\301H\262\211\205\302\303\"\262\211\203,\304\305\306\307\310\311\312\257\"\313#\207\314\315!\207" [dap--cur-active-session-or-die 12 gethash "id" dap--send-message dap--make-request "evaluate" :expression :frameId :context "hover" #[257 "\300\301\"\300\302\"\300\303\"\304\203\300\305\"\202`\"\207" [gethash "success" "message" "body" dap-overlays--display-interactive-eval-result "result"] 8 "\n\n(fn INPUT0)"] error "There is no stopped debug session"] 12 (#$ . 70876) "sEval: "]) #@28 Eval and print EXPRESSION. (defalias 'dap-eval-thing-at-point #[0 "\300\301\302!!\207" [dap-eval thing-at-point symbol] 3 (#$ . 71482) nil]) #@60 Evaluate the region between START and END. (fn START END) (defalias 'dap-eval-region #[514 "\300\301\"!\207" [dap-eval buffer-substring-no-properties] 6 (#$ . 71629) "r"]) #@84 Switch stackframe by selecting another stackframe stackframes from current thread. (defalias 'dap-switch-stack-frame #[0 "\300 \204 \301\302!\210\300 \211\303H\262\211\203A\304\300 \211\305H\262\"\211\2034\306C\307\310\311\312\"\313\314%\315\300 \"\207\301\316\317\300 \211\320H\262\"!\207\301\321\300 \211\320H\262\"\207" [dap--cur-session error "There is no active session" 7 gethash 16 0 dap--completing-read "Select active frame: " make-closure #[257 "\211\301\302\"\303!\211\203\304\305\300\211\242T\240$\207\304\306\300\211\242T\240#\207" [V0 gethash "name" dap--get-path-for-frame format "%s: %s (in %s)" "%s: %s"] 9 "\n\n(fn INPUT0)"] nil t dap--go-to-stack-frame format "Current session %s is not stopped" 1 "No thread is currently active %s"] 9 (#$ . 71810) nil]) #@112 Switch stackframe up FRAMES frames on the current thread. A negative value will move down frames. (fn FRAMES) (defalias 'dap-up-stack-frame #[257 "\300 \211\203o\211\301H\211\203k\302\303H\"\211\203g\304H\211\203c\305\"\211\203_G\211\203[\211S\306 \\]^\211\203W=\203N\307\310\306X\203K\311\202L\312\"\207\3138\"\207\307\314!\207\307\314!\207\307\314!\207\307\314!\207\307\314!\207\307\314!\207\307\314!\207" [dap--cur-session-or-die 7 gethash 16 12 cl-position 0 error "Already at the %s of the stack" "bottom" "top" dap--go-to-stack-frame "Unable to find active session, thread, or frame."] 12 (#$ . 72609) "p"]) #@112 Switch stackframe down FRAMES frames on the current thread. A negative value will move up frames. (fn FRAMES) (defalias 'dap-down-stack-frame #[257 "\300[!\207" [dap-up-stack-frame] 3 (#$ . 73257) "p"]) #@151 Calculate unique name with prefix DEBUG-SESSION-NAME. DEBUG-SESSIONS - list of the currently active sessions. (fn DEBUG-SESSION-NAME DEBUG-SESSIONS) (defalias 'dap--calculate-unique-name #[514 "\300\301\"A@\206\n\302\303\304\303\211\211\203E\211A\262\242\262\262\211\262\203E\302H\230\2038\303\262\203E\262\262T\262\202\266\211\262\203[\305\306#\262T\262\202\f\207" [s-match "\\(.*\\)<.*>" 1 nil 0 format "%s<%s>"] 14 (#$ . 73469)]) (defvar dap-server-log-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [dap-server-log-mode-hook variable-documentation put "Hook run after entering Debug Adapter mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp dap-server-log-mode-map definition-name dap-server-log-mode] 4) (defvar dap-server-log-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [dap-server-log-mode-abbrev-table dap-server-log-mode-map variable-documentation put purecopy "Keymap for `dap-server-log-mode'." boundp dap-server-log-mode-syntax-table definition-name dap-server-log-mode (lambda (#1=#:def-tmp-var) (defvar dap-server-log-mode-syntax-table #1#)) make-syntax-table "Syntax table for `dap-server-log-mode'." (lambda (#1#) (defvar dap-server-log-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `dap-server-log-mode'." derived-mode-parent compilation-mode] 5) #@535 Major mode derived from `compilation-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `dap-server-log-mode-map', `dap-server-log-mode-abbrev-table' and `dap-server-log-mode-syntax-table' which more-or-less shadow compilation-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `dap-server-log-mode-hook', as the final or penultimate step during initialization. \{dap-server-log-mode-map} (defalias 'dap-server-log-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R \"=\204R\326 \325\"C#\210\327 !\210\330\f!\210 \"\331\332!\210\306\333!\210\307\334\335\336\337p$\210)\340\341!\207" [delay-mode-hooks major-mode mode-name dap-server-log-mode-map dap-server-log-mode-syntax-table dap-server-log-mode-abbrev-table make-local-variable t compilation-mode dap-server-log-mode "Debug Adapter" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table read-only-mode 1 window-point-insertion-type run-with-idle-timer 0 nil #[257 "r\211q\210\300\301\302 \")\207" [mapc #[257 "\300d\"\207" [set-window-point] 4 "\n\n(fn W)"] get-buffer-window-list] 4 "\n\n(fn BUF)"] run-mode-hooks dap-server-log-mode-hook local-abbrev-table] 5 (#$ . 75213) nil]) #@55 Expand dap-mode launch configuration CONF. (fn CONF) (defalias 'dap-variables-expand-in-launch-configuration #[257 "\301\302!\210\303\304!)\207" [dap-variables-project-root-function require dap-variables lsp-workspace-root dap-variables-expand] 3 (#$ . 76803)]) #@77 Establish markers for FILE-BREAKPOINTS in FILE. (fn FILE FILE-BREAKPOINTS) (defalias 'dap--set-breakpoints-in-file #[514 "\300!\211\205r\211q\210\301\302\"\210\303\304!)\207" [get-file-buffer mapc #[257 "\300\301\"\206 \302 \211\303!\304\223\210\305\301#\207" [plist-get :marker make-marker dap-breakpoint-get-point nil plist-put] 6 "\n\n(fn BKP)"] run-hooks dap-breakpoints-changed-hook] 6 (#$ . 77074)]) #@46 Read a lisp expression from FILE. (fn FILE) (defalias 'dap--read-from-file #[257 "\300\301\302\"r\211q\210\303\304\"\216\305!\210\306\307ed\"!@*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents read-from-string buffer-substring-no-properties] 6 (#$ . 77496)]) #@27 After initialize handler. (defalias 'dap--after-initialize #[0 "\3011\302!\205\303!\304\305\"\210\306\307\"\262\2620\207\310\311\"\210\312\207" [dap-breakpoints-file (debug error) f-exists\? dap--read-from-file maphash #[514 "\300\"\207" [dap--set-breakpoints-in-file] 5 "\n\n(fn FILE FILE-BREAKPOINTS)"] lsp-workspace-set-metadata "Breakpoints" message "Failed to load breakpoints for the current workspace with error: %S" nil] 5 (#$ . 77855)]) #@25 Calculate DAP modeline. (defalias 'dap-mode-line #[0 "\205%\301 \211\205#\211\302H\211\205!\211\303>?\205!\304\305\306H\302H#\262\262\207" [lsp-mode dap--cur-session 14 (failed terminated) format " %s - %s" 1] 7 (#$ . 78321)]) #@81 Calculate thread name for THREAD from DEBUG-SESSION. (fn DEBUG-SESSION THREAD) (defalias 'dap--thread-label #[514 "\300\301\"\300\302\"\300\303H\"\211\203\304\305#\207\207" [gethash "id" "name" 10 format "%s (%s)"] 9 (#$ . 78563)]) #@24 Switch current thread. (defalias 'dap-switch-thread #[0 "\300 \301\302\303!\304\305\"#\207" [dap--cur-active-session-or-die dap--send-message dap--make-request "threads" make-closure #[257 "\301\302\301\303\"\"\300\211\304I\266\301\305\306\307\310\311\300\"#\"\312\300\313#\207" [V0 gethash "threads" "body" 9 "id" dap--completing-read "Select active thread: " apply-partially dap--thread-label dap--select-thread-id t] 10 "\n\n(fn INPUT0)"]] 6 (#$ . 78811) nil]) #@32 (fn DEBUG-SESSION THREAD-ID) (defalias 'dap-stop-thread-1 #[514 "\300\301\302\303D\"\304 #\207" [dap--send-message dap--make-request "pause" :threadId dap--resp-handler] 7 (#$ . 79288)]) #@23 Stop selected thread. (defalias 'dap-stop-thread #[0 "\300 \301\302\303!\304\305\"#\207" [dap--cur-active-session-or-die dap--send-message dap--make-request "threads" make-closure #[257 "\301\302\301\303\"\"\300\211\304I\266\301\305\306\307\310\301\311\"#\"\312\300\"\207" [V0 gethash "threads" "body" 9 "id" dap--completing-read "Select active thread: " apply-partially "name" dap-stop-thread-1] 10 "\n\n(fn INPUT0)"]] 6 (#$ . 79485) nil]) #@62 Make NEW-SESSION the active debug session. (fn NEW-SESSION) (defalias 'dap--switch-to-session #[257 "\302!\210\211\2035\303 \304 \305\306\211\2033\211A\262\242\262\262T\262rq\210\307\310\"\"\210)\202\266\311\312 \"\210\211\211\205B\211\313H\262\211\205L\314\"\207" [buffer-file-name lsp--cur-workspace dap--set-cur-session dap--get-breakpoints dap--buffer-list 0 nil dap--set-breakpoints-in-file gethash run-hook-with-args dap-session-changed-hook 12 dap--go-to-stack-frame] 11 (#$ . 79939)]) #@39 Switch current session interactively. (defalias 'dap-switch-session #[0 "\300 \210\301\302\303\304 \305\303\211\2033\211A\262\242\262\262T\262\306!\203 \307 =\204 B\262\202 \266\211\237\262!\211\204B\310\311!\207\211:\203X\211\242\243\211\204T\312!\207!\207!\207" [lsp--cur-workspace-check #[257 "\300\301\302\303#!\207" [dap--switch-to-session dap--completing-read "Select session: " dap--debug-session-name] 6 "\n\n(fn TARGET-DEBUG-SESSIONS)"] reverse nil dap--get-sessions 0 dap--session-running dap--cur-session error "No active session to switch to" dap--switch-to-session] 9 (#$ . 80463) nil]) #@373 Register debug configuration provider for LANGUAGE-ID. PROVIDE-CONFIGURATION-FN is a function which will be called when function `dap-mode' has received a request to start debug session which has language id = LANGUAGE-ID. The function must return debug arguments which contain the debug port to use for opening TCP connection. (fn LANGUAGE-ID PROVIDE-CONFIGURATION-FN) (defalias 'dap-register-debug-provider #[514 "\301#\207" [dap--debug-providers puthash] 6 (#$ . 81100)]) #@250 Register configuration template CONFIGURATION-NAME. CONFIGURATION-SETTINGS is a plist containing the preset settings for the configuration. If its :name is omitted, it defaults to CONFIGURATION-NAME. (fn CONFIGURATION-NAME CONFIGURATION-SETTINGS) (defalias 'dap-register-debug-template #[514 "\301\302\"\"\303\304\"\204B\262\304B\262\305\300B\"\207" [dap-debug-template-configurations delq assoc plist-member :name add-to-list] 6 (#$ . 81587)]) #@58 Find available port on HOST starting from STARTING-PORT. (defalias 'dap--find-available-port #[0 "\300\301\302\303\304\305\306\307\310&\311\305\"\312!\210\207" [make-network-process :name " *dap test-connection*" :family ipv4 :service 0 :server t process-contact delete-process] 9 (#$ . 82054)]) #@188 Wait for PORT to be open on HOST. RETRY-COUNT is the number of the retries. SLEEP-INTERVAL is the sleep interval between each retry. (fn HOST PORT &optional RETRY-COUNT SLEEP-INTERVAL) (defalias 'dap--wait-for-port #[1026 "\301\302\204M\211\206\f\303W\203M\3041-\305\306\307\301  \310\311\312\313&!\210\314\211\2620\210\202\314\315\316\317!$\210\320\206@\321!\210T\211\262)\266\202\207" [inhibit-message nil 0 100 (file-error) delete-process open-network-stream "*connection-test*" :type plain :coding no-conversion t message "Failed to connect to %s:%s with error message %s" error-message-string sit-for 0.02] 16 (#$ . 82360)]) #@132 Select the configuration to launch. If ORIGIN is t, return the original configuration without prepopulation (fn &optional ORIGIN) (defalias 'dap--select-template #[256 "\302\303\304\305\306\307%A!\203\207\310\311\"\211\205\312 \"\262\211\205$\211!\262\2064\313\314\310\311\"\2063\315\"\207" [dap-debug-template-configurations dap--debug-providers copy-tree dap--completing-read "Select configuration template: " cl-first nil t plist-get :type gethash error "There is no debug provider for language %s" "'Not specified'"] 8 (#$ . 83025)]) (defalias 'dap-debug-template-configurations-provider #[0 "\207" [dap-debug-template-configurations] 1]) #@273 List of functions that can contribute launch configurations to dap-debug. When the user invokes dap-debug, all of the functions in this list are called and their results (which must be lists) are concatenated. The user can then choose one of them from the resulting list. (defconst dap-launch-configuration-providers '(dap-launch-find-parse-launch-json dap-debug-template-configurations-provider) (#$ . 83692)) #@147 Like `dap-start-debugging-noexpand', but expand variables. CONF's variables are expanded before being passed to `dap-start-debugging'. (fn CONF) (defalias 'dap-start-debugging #[257 "\300\301!!\207" [dap-start-debugging-noexpand dap-variables-expand-in-launch-configuration] 4 (#$ . 84110)]) #@305 Start debug session with LAUNCH-ARGS. Special arguments: :wait-for-port - boolean defines whether the debug configuration should be started after the :port argument is taken. :program-to-start - when set it will be started using `compilation-start' before starting the debug process. (fn LAUNCH-ARGS) (defalias 'dap-start-debugging-noexpand #[257 "\305\306\"\305\307\"\305\310\"\305\311\"\305\312\"\305\313\"\305\314\"\305\315\"\305 \316\"\305\n\317\"\305 \320\"\321 \322 \" \206>\203I\323 !\202J \324\325\326\"\210\327\306#\210 \203k\330\331 \332\333\334\"#!\262\203x\335\n $\210\203\201!\210 ?\205\267\336!\211\211\337I\266\340\341\n!\342\333\343$\"#\210\344!\210B\fB\345\346\"\262*\207" [default-directory process-environment dap-connect-retry-count dap-connect-retry-interval dap--debug-configuration plist-get :name :skip-debug-session :cwd :program-to-start :wait-for-port :type :request :port :startup-function :environment-variables :hostName dap--calculate-unique-name dap--get-sessions cl-copy-list nil mapc #[257 "\211\211A\262\242\300\301#\207" [setenv t] 8 "\n\n(fn INPUT0)"] plist-put get-buffer-process compilation-start dap-server-log-mode make-closure #[257 "\301\300\302Q\207" [V0 "*" " server log*"] 4 "\n\n(fn _)"] dap--wait-for-port dap--create-session 21 dap--send-message dap--initialize-message dap--session-init-resp-handler #[257 "\303\304\"\305 \306\302\307H\"\210\310\302B!\266\311\312\301\313\211\211\211\211\211\211\211\211\314\300!\315\"\316\"\317\"\320\"\321\"\322\"\323\"\324\"\325\"\"\326\302!\302#\207" [V0 V1 V2 gethash "body" dap--get-sessions ht-update! 18 dap--set-sessions dap--send-message dap--make-request dap--plist-delete cl-copy-list :dap-compilation :dap-compilation-dir :cleanup-function :startup-function :dap-server-path :environment-variables :wait-for-port :skip-debug-session :program-to-start dap--session-init-resp-handler] 16 "\n\n(fn INPUT0)"] dap--set-cur-session run-hook-with-args dap-session-created-hook] 24 (#$ . 84411)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable dap-debug-compilation-keep funcall function #[0 "\300\207" [nil] 1] "Whether `dap-debug' should keep the compile window on success.\nBy default, it is hidden." :type boolean :group dap-mode] 8) #@334 Run debug configuration DEBUG-ARGS. If DEBUG-ARGS is not specified the configuration is generated after selecting configuration template. :dap-compilation specifies a shell command to be run using `compilation-start' before starting the debug session. It could be used to compile the project, spin up docker, .... (fn DEBUG-ARGS) (defalias 'dap-debug #[257 "\302!\303\304\"\211\205\305\"\262\211\205\211!\262\206+\306\307\303\304\"\206*\306\310\"\"\311\312\"\303\313\"\211\203n\303\314\"\206D\315 \206D r\316\317\320#q\210\321C\321C\211\311\322$\240\210\323\324\242\321\317$\210\325p!\240\262\262*\207 \207" [dap--debug-providers default-directory dap-variables-expand-in-launch-configuration plist-get :type gethash user-error "Have you loaded the `%s' specific dap package?" "%s does not specify :type" make-closure #[0 "\301\300!\203\n\300\302!\207\302\300!\207" [V0 functionp dap-start-debugging-noexpand] 2] :dap-compilation :dap-compilation-dir lsp-workspace-root compilation-start t #[128 "\300\207" ["*DAP compilation*"] 2 "*DAP compilation*\n\n(fn &rest _)"] nil #[642 "rq\210\304\305\302\242\306#\210\307\230\203/ \204*\310\301\242!\203*\311\301\242!=\203*\312\301\242!\210\300 \2022\313\314!)\207" [V0 V1 V2 dap-debug-compilation-keep remove-hook compilation-finish-functions t "finished\n" window-live-p window-buffer delete-window lsp--error "Compilation step failed"] 7 "\n\n(fn BUF STATUS &rest ##)"] add-hook compilation-finish-functions display-buffer] 13 (#$ . 86762) (byte-code "\301\302\303\304\305\"\306\307\310%A!C\207" [dap-launch-configuration-providers copy-tree dap--completing-read "Select configuration template: " -mapcat funcall cl-first nil t] 7)]) #@274 Edit registered template DEBUG-ARGS. When being invoked with prefix argument, poping up the prepopulated version of the template. Otherwise, return its original version. After registration, the new template can be used normally with `dap-debug' (fn &optional DEBUG-ARGS) (defalias 'dap-debug-edit-template #[256 "\211\204\n\301?!\262r\302\303!\206r\304\303!q\210\305 \210p)q\210db\210\306\307 !\203+\310c\210\311\312\313\314\"\2039\315\202:\316#c\210\317c\210i\211A\262\242\211A\262\242\311\320\321!#c\210\211\322\211\211:\203\245\262\211A\262\242\262\211@\262\323=\204\235\324c\210\325\322W\203\222\262T\262\326c\210\202\266\311\320\321!#c\210AA\262\202^\266 \327c\210)\330\303!\210db\207" [current-prefix-arg dap--select-template get-buffer "*DAP Templates*" get-buffer-create emacs-lisp-mode s-blank\? buffer-string ";; Eval Buffer with `M-x eval-buffer' to register the newly created template." format "\n\n(dap-register-debug-template\n \"%s%s\"\n" plist-get :name " - Copy" "" " (list " "%s %s" prin1-to-string nil :program-to-start "\n" 0 " " "))" pop-to-buffer] 17 (#$ . 88494) nil]) #@27 Debug last configuration. (defalias 'dap-debug-last #[0 "@A\211\203 \301!\207\302\301!\207" [dap--debug-configuration dap-debug call-interactively] 3 (#$ . 89643) nil]) #@27 Debug last configuration. (defalias 'dap-debug-recent #[0 "\301\302\303\304\305\306%A!\207" [dap--debug-configuration dap-debug dap--completing-read "Select configuration: " cl-first nil t] 7 (#$ . 89821) nil]) #@48 Go to output buffer. (fn &optional NO-SELECT) (defalias 'dap-go-to-output-buffer #[256 "\302\303 \211\304H\262\305\"\306\307\"\210\204\310!\210\311 #\207" [dap-output-window-max-height dap-output-window-min-height display-buffer-in-side-window dap--cur-session-or-die 6 ((side . bottom) (slot . 5) (window-width . 0.2)) set-window-dedicated-p t select-window fit-window-to-buffer] 6 (#$ . 90039) nil]) #@89 Remove DEBUG-SESSION. If the current session it will be terminated. (fn DEBUG-SESSION) (defalias 'dap-delete-session #[257 "\300\301\"\302!\204 \211 \207\303\304\305\306\307D\"\310\300\311#!#\207" [make-closure #[0 "\301\302\300\303 \"!\210\304 \300=\203\305\306!\210\300\307H\211\203\310!\210\210\311 \207" [V0 dap--set-sessions -remove-item dap--get-sessions dap--cur-session dap--switch-to-session nil 6 kill-buffer dap--refresh-breakpoints] 4] dap--session-running dap--send-message dap--make-request "disconnect" :restart :json-false dap--resp-handler #[257 "\300\302H\211\203\303!\203\304!\210\210\301 \207" [V0 V1 21 process-live-p kill-process] 4 "\n\n(fn RESP)"]] 9 (#$ . 90456) (byte-code "\300 C\207" [dap--cur-session-or-die] 1)]) #@32 Terminate/remove all sessions. (defalias 'dap-delete-all-sessions #[0 "\300\301\302 \"\207" [mapc dap-delete-session dap--get-sessions] 3 (#$ . 91225) nil]) #@25 Delete all breakpoints. (defalias 'dap-breakpoint-delete-all #[0 "\300\301\302 \"\207" [maphash #[514 "\300\301\"\207" [dap--breakpoints-changed nil] 5 "\n\n(fn FILE-NAME _)"] dap--get-breakpoints] 3 (#$ . 91388) nil]) #@24 Buffer killed handler. (defalias 'dap--buffer-killed #[0 "\301 \302\"\303\304\"\211\203\305#\210\202\306\"\210\307!\207" [buffer-file-name dap--get-breakpoints gethash -map #[257 "\211\300\301\"\300\302\"\303\304\211\302\"\301\"\302\203\305!\202#\207" [plist-get :marker :point plist-put dap--plist-delete marker-position] 9 "\n\n(fn INPUT0)"] puthash remhash dap--persist-breakpoints] 7 (#$ . 91614)]) #@29 Handler of after open hook. (defalias 'dap--after-open #[0 "\300 \205\301\302\303 \"\"\210\304\305\306\307\310$\207" [buffer-file-name dap--set-breakpoints-in-file gethash dap--get-breakpoints add-hook kill-buffer-hook dap--buffer-killed nil t] 5 (#$ . 92046)]) #@153 Set or remove a breakpoint at the position represented by an `event' mouse click. If `dap-mode' is not enabled, then only the point is set. (fn EVENT) (defalias 'dap-mode-mouse-set-clear-breakpoint #[257 "\301!\210\302!\303\211@\262!r\304\305\"\216\306@\307\"\210\310 \203:\311\300!\203:\203:\312!\247\203:\212\312!b\210\313 \210)\314!*\207" [dap-mode mouse-minibuffer-check event-end internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord buffer-file-name boundp posn-point dap-breakpoint-toggle posn-set-point] 6 (#$ . 92319) "e"]) #@24 Keymap for `dap-mode'. (defvar dap-mode-map (byte-code "\301 \302\303\304#\210\302\305\304#\210)\207" [dap-mode-map make-sparse-keymap define-key [left-margin mouse-1] dap-mode-mouse-set-clear-breakpoint [left-fringe mouse-1]] 4) (#$ . 92958)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\301\315\301& \207" [custom-declare-variable dap-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Dap mode is enabled.\nSee the `dap-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `dap-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group :require] 14) #@590 Global minor mode for DAP mode. This is a minor mode. If called interactively, toggle the `Dap mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'dap-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'dap-mode #[256 "\301 \302\303\304=\203\305\303!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\303\"\305\303!\2038\303B\313 \210\314\315\316\"\210\317\320\305\303!\203L\321\202M\322\"\210\323\324!\203u\325\303!\210\301 \203e\211\301 \232\203u\326\327\305\303!\203q\330\202r\331\332#\210\210\333 \210\305\303!\207" [global-minor-modes current-message set-default dap-mode toggle default-value 1 nil t boundp delq dap--after-initialize add-hook lsp-after-open-hook dap--after-open run-hooks dap-mode-hook dap-mode-on-hook dap-mode-off-hook called-interactively-p any customize-mark-as-set message "Dap mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 93725) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar dap-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [dap-mode-map dap-mode-hook variable-documentation put "Hook run after entering or leaving `dap-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode dap-mode (:eval (dap-mode-line)) boundp] 6) #@30 Turn on function `dap-mode'. (defalias 'dap-turn-on-dap-mode #[0 "\300\301!\207" [dap-mode t] 2 (#$ . 95622) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable dap-auto-configure-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Dap-Auto-Configure mode is enabled.\nSee the `dap-auto-configure-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `dap-auto-configure-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group dap-mode] 12) #@619 Auto configure dap minor mode. This is a minor mode. If called interactively, toggle the `Dap-Auto-Configure mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'dap-auto-configure-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'dap-auto-configure-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203P\314\307!\210\315\307!\210\316\317\n\"\210\320\307!\210\202a\314\321!\210\315\321!\210\316\322\n\"\210\320\321!\210\323\324\306\301!\203m\325\202n\326\"\210\327\330!\203\226\331\301!\210\303 \203\206\211\303 \232\203\226\332\333\306\301!\203\222\334\202\223\335\336#\210\210\337 \210\306\301!\207" [global-minor-modes dap-auto-configure-mode dap-auto-configure-features current-message set-default toggle default-value 1 nil t boundp delq dap-mode dap-ui-mode seq-do #[257 "\301\"\211\205\211:\203\302A\303\304#\205\211@\305!\207\211\305!\207" [dap-features->modes alist-get require nil t 1] 6 "\n\n(fn FEATURE)"] dap-ui-many-windows-mode -1 #[257 "\301\"\211\205\211:\203\211@\302!\207\211\302!\207" [dap-features->modes alist-get -1] 4 "\n\n(fn FEATURE)"] run-hooks dap-auto-configure-mode-hook dap-auto-configure-mode-on-hook dap-auto-configure-mode-off-hook called-interactively-p any customize-mark-as-set message "Dap-Auto-Configure mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 96308) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar dap-auto-configure-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315!\207" [dap-auto-configure-mode-map dap-auto-configure-mode-hook variable-documentation put "Hook run after entering or leaving `dap-auto-configure-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode dap-auto-configure-mode boundp provide dap-mode] 6)