;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require lsp-mode json] 2) #@341 Remove all C-style comments and trailing commas in the current buffer. Comments in strings are ignored. The buffer is modified in place. Replacement starts at point, and strings before it are ignored, so you may want to move point to `point-min' with `goto-char' first. This function moves `point'. Both // and /**/ comments are supported. (defalias 'dap-launch-sanitize-json #[0 "\300\301\302\303#\205\304\224\203\305\306\307!\206\310!\210\202\207" [re-search-forward "\\(//.*$\\|/\\*\\(?:[^*]\\|\\*+[^/]\\)*\\*+/\\|,\\([ 

[:blank:][:space:]]*[]}]\\)\\)\\|\"\\(?:[^\"\\]\\|\\\\.\\)*\"" nil t 1 replace-match match-string 2 ""] 4 (#$ . 155)]) #@113 Return the path to current project's launch.json file. Yields nil if it cannot be found or there is no project. (defalias 'dap-launch-find-launch-json #[0 "\300 \211\205\301\302!\210\303\304\"\207" [lsp-workspace-root require dap-variables dap-variables-find-vscode-config "launch.json"] 4 (#$ . 818)]) #@69 Parse the project's launch.json as json data and return the result. (defalias 'dap-launch-get-launch-json #[0 "\302 \211\205\303\211\205 \304\211\205.\305\306\307\"r\211q\210\310\311\"\216\312!\210\313 \210eb\210\314 *\262*\207" [json-object-type json-array-type dap-launch-find-launch-json plist vector generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents dap-launch-sanitize-json json-read] 6 (#$ . 1130)]) #@58 Return the name of launch configuration CONF. (fn CONF) (defalias 'dap-launch-configuration-get-name #[257 "\300\301\"\207" [plist-get :name] 4 (#$ . 1634)]) #@98 Prepend the name of CONF to it as a string. Extract the name from the :name property. (fn CONF) (defalias 'dap-launch-configuration-prepend-name #[257 "\300!B\211\262\207" [dap-launch-configuration-get-name] 3 (#$ . 1800)]) #@129 Return a list of all launch configurations in JSON. JSON must have been acquired with `dap-launch--get-launch-json'. (fn JSON) (defalias 'dap-launch-parse-launch-json #[257 "\300\301\302\303\"\206 C\"\207" [mapcar dap-launch-configuration-prepend-name plist-get :configurations] 6 (#$ . 2035)]) #@125 Return a list of all launch configurations for the current project. Usable as a dap-launch-configuration-providers backend. (defalias 'dap-launch-find-parse-launch-json #[0 "\300 \211\205 \301!\207" [dap-launch-get-launch-json dap-launch-parse-launch-json] 3 (#$ . 2341)]) (provide 'dap-launch)