michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
lean2/src/emacs/lean-variable.el

61 lines
1.8 KiB
EmacsLisp
Raw Normal View History

feat(emacs): implement lean-show-type
2014-08-14 00:02:49 +00:00
;; Copyright (c) 2014 Microsoft Corporation. All rights reserved.
;; Released under Apache 2.0 license as described in the file LICENSE.
;;
;; Author: Soonho Kong
;;
refactor(emacs/lean-server): use global-server-message-to-process We are using asynchronous process mechanism to communicate between lean-server and emacs. A sender function like lean-eldoc-documentation-function sends a command and waits until lean-global-server-message-to-process is non-nil. When a message is received from lean-server, a filter function lean-server-output-filter is triggered. This filter function concatenates a received message to the buffer until it sees the end of message markers (-- END[INFO|SET|EVAL]). When it sees a marker, it splits the buffer messages into pre, body, and post parts. Then it assembles a message to process and attaches the message to lean-global-server-message-to-process variable. A sender function which is watching for the variable will recognize it, exit the polling, and process the message.
2014-08-25 18:40:37 +00:00
(defvar lean-global-info-record nil
"A placeholder we save the info-record that we get from lean server")
feat(emacs): implement lean-show-type
2014-08-14 00:02:49 +00:00
refactor(emacs/lean-server): use global-server-message-to-process We are using asynchronous process mechanism to communicate between lean-server and emacs. A sender function like lean-eldoc-documentation-function sends a command and waits until lean-global-server-message-to-process is non-nil. When a message is received from lean-server, a filter function lean-server-output-filter is triggered. This filter function concatenates a received message to the buffer until it sees the end of message markers (-- END[INFO|SET|EVAL]). When it sees a marker, it splits the buffer messages into pre, body, and post parts. Then it assembles a message to process and attaches the message to lean-global-server-message-to-process variable. A sender function which is watching for the variable will recognize it, exit the polling, and process the message.
2014-08-25 18:40:37 +00:00
(defvar lean-global-server-message-to-process nil
"A shared variable contains a received message to process.
feat(emacs): implement lean-show-type
2014-08-14 00:02:49 +00:00
refactor(emacs/lean-server): use global-server-message-to-process We are using asynchronous process mechanism to communicate between lean-server and emacs. A sender function like lean-eldoc-documentation-function sends a command and waits until lean-global-server-message-to-process is non-nil. When a message is received from lean-server, a filter function lean-server-output-filter is triggered. This filter function concatenates a received message to the buffer until it sees the end of message markers (-- END[INFO|SET|EVAL]). When it sees a marker, it splits the buffer messages into pre, body, and post parts. Then it assembles a message to process and attaches the message to lean-global-server-message-to-process variable. A sender function which is watching for the variable will recognize it, exit the polling, and process the message.
2014-08-25 18:40:37 +00:00
A message is in the form of (TYPE PRE BODY)
feat(emacs/lean-cmd): add FINDG cmd
2014-09-08 20:14:15 +00:00
where TYPE := INFO | SET | EVAL | OPTIONS | SHOW | FINDP | FINDG | ERROR,
refactor(emacs/lean-server): use global-server-message-to-process We are using asynchronous process mechanism to communicate between lean-server and emacs. A sender function like lean-eldoc-documentation-function sends a command and waits until lean-global-server-message-to-process is non-nil. When a message is received from lean-server, a filter function lean-server-output-filter is triggered. This filter function concatenates a received message to the buffer until it sees the end of message markers (-- END[INFO|SET|EVAL]). When it sees a marker, it splits the buffer messages into pre, body, and post parts. Then it assembles a message to process and attaches the message to lean-global-server-message-to-process variable. A sender function which is watching for the variable will recognize it, exit the polling, and process the message.
2014-08-25 18:40:37 +00:00
PRE is a server message comes before the message
BODY is a body of the received message.")
(defvar lean-global-server-process nil
"lean server process")
refactor(lean-variable): init server-buffer and current-file-name with nil
2014-08-25 23:25:53 +00:00
(defvar lean-global-server-buffer nil
refactor(emacs/lean-server): use global-server-message-to-process We are using asynchronous process mechanism to communicate between lean-server and emacs. A sender function like lean-eldoc-documentation-function sends a command and waits until lean-global-server-message-to-process is non-nil. When a message is received from lean-server, a filter function lean-server-output-filter is triggered. This filter function concatenates a received message to the buffer until it sees the end of message markers (-- END[INFO|SET|EVAL]). When it sees a marker, it splits the buffer messages into pre, body, and post parts. Then it assembles a message to process and attaches the message to lean-global-server-message-to-process variable. A sender function which is watching for the variable will recognize it, exit the polling, and process the message.
2014-08-25 18:40:37 +00:00
"Global buffer used to store messages sent by lean server")
feat(emacs): implement lean-show-type
2014-08-14 00:02:49 +00:00
refactor(lean-variable): init server-buffer and current-file-name with nil
2014-08-25 23:25:53 +00:00
(defvar lean-global-server-current-file-name nil
feat(emacs): implement lean-show-type
2014-08-14 00:02:49 +00:00
"Current filename that lean server is processing")
feat(emacs/lean-server): add 'SLEEP ms' for trace
2014-08-30 14:51:53 +00:00
(defvar lean-global-server-last-time-sent nil
"Last time lean-mode sent a command to lean-server")
fix(emacs/lean-server): limit the number of NAY retries Also, only retry when there is no continuation other than the current one.
2014-09-06 06:04:22 +00:00
(defvar lean-global-nay-retry-counter 0
"Counter for the number of retries for NAY INFO.")
(defvar lean-global-nay-retry-counter-max 10
"The maximum number of retries for NAY INFO.")
feat(emacs): implement non-blocking communication The key idea is to pass a continuation function when we call lean-server-send-cmd function. The passed continuation function is called by lean-server-event-handler. Until the buffer is ready, the event handler will be called in interval (lean-server-retry-time, 0.1 sec by default). When we have 'NAY' for INFO command, it will re-send INFO commands to lean-server until we have one without 'NAY'. Close #123
2014-09-03 07:39:54 +00:00
(defvar lean-global-retry-timer nil
"Timer used to re-try event-handler-function.")
feat(emacs/lean-type): maintain nay-retry timer
2014-08-27 07:48:55 +00:00
feat(emacs/lean-server): add sync/async send-cmd
2014-09-04 23:31:20 +00:00
(defvar lean-global-async-task-queue nil
"Tasks (continuations) to be executed.")
feat(emacs): implement lean-show-type
2014-08-14 00:02:49 +00:00
(defvar lean-global-before-change-beg nil
"Before-change BEG")
feat(emacs/lean-changes): handle before/after-revert
2014-09-12 21:22:39 +00:00
feat(emacs): implement lean-show-type
2014-08-14 00:02:49 +00:00
(defvar lean-global-before-change-end nil
"Before-change END")
feat(emacs/lean-changes): handle before/after-revert
2014-09-12 21:22:39 +00:00
feat(emacs): implement lean-show-type
2014-08-14 00:02:49 +00:00
(defvar lean-global-before-change-beg-line-number nil
"Before-change BEG line-number")
feat(emacs/lean-changes): handle before/after-revert
2014-09-12 21:22:39 +00:00
feat(emacs): implement lean-show-type
2014-08-14 00:02:49 +00:00
(defvar lean-global-before-change-end-line-number nil
"Before-change END line-number")
feat(emacs/lean-changes): handle before/after-revert
2014-09-12 21:22:39 +00:00
feat(emacs): implement lean-show-type
2014-08-14 00:02:49 +00:00
(defvar lean-global-before-change-text ""
"Before-change text")
feat(emacs/lean-option): save lean-options to lean-global-option-alist
2014-09-15 16:46:06 +00:00
(defvar lean-global-option-alist nil
"Current Lean options set by lean-set-option command")
feat(emacs): implement lean-show-type
2014-08-14 00:02:49 +00:00
(provide 'lean-variable)
Reference in a new issue Copy permalink