diff options
Diffstat (limited to 'l/src/main.lisp')
| -rw-r--r-- | l/src/main.lisp | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/l/src/main.lisp b/l/src/main.lisp index 6e74ab7..afa79d8 100644 --- a/l/src/main.lisp +++ b/l/src/main.lisp @@ -31,30 +31,6 @@ (wait-group:wait *wg*))) -(defun target-get-targets-msg (call-id) - (jsown:to-json - `(:obj ("id" . ,call-id) - ("method" . "Target.getTargets")))) - -(defun target-attach-to-target-msg (call-id target-id) - (jsown:to-json - `(:obj ("id" . ,call-id) - ("method" . "Target.attachToTarget") - ("params" . (:obj ("targetId" . ,target-id) - ("flatten" . t)))))) - -(defun target-attached-to-target-msg-p (message) - (equal - (json-obj-get message "method") - "Target.attachedToTarget")) - -(defun runtime-evaluate-msg (call-id session-id expression) - (jsown:to-json - `(:obj ("id" . ,call-id) - ("sessionId" . ,session-id) - ("method" . "Runtime.evaluate") - ("params" . (:obj ("expression" . ,expression)))))) - (defun ws-on-message (message) (let* ((response (jsown:parse message)) (targets (parse-get-targets-response response))) @@ -71,11 +47,6 @@ (wait-group:done *wg*))) -(defun parse-get-targets-response (response) - (let* ((result (json-obj-get response "result")) - (targetInfos (json-obj-get result "targetInfos"))) - targetInfos)) - (defun json-obj-get (obj key) (handler-case (jsown:val obj key) |