lean2/src/emacs/lean-variable.el

61 lines
1.8 KiB
EmacsLisp
Raw Normal View History

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
;;
(defvar lean-global-info-record nil
"A placeholder we save the info-record that we get from lean server")
2014-08-14 00:02:49 +00:00
(defvar lean-global-server-message-to-process nil
"A shared variable contains a received message to process.
2014-08-14 00:02:49 +00:00
A message is in the form of (TYPE PRE BODY)
2014-09-08 20:14:15 +00:00
where TYPE := INFO | SET | EVAL | OPTIONS | SHOW | FINDP | FINDG | ERROR,
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")
(defvar lean-global-server-buffer nil
"Global buffer used to store messages sent by lean server")
2014-08-14 00:02:49 +00:00
(defvar lean-global-server-current-file-name nil
2014-08-14 00:02:49 +00:00
"Current filename that lean server is processing")
(defvar lean-global-server-last-time-sent nil
"Last time lean-mode sent a command to lean-server")
(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.")
(defvar lean-global-retry-timer nil
"Timer used to re-try event-handler-function.")
(defvar lean-global-async-task-queue nil
"Tasks (continuations) to be executed.")
2014-08-14 00:02:49 +00:00
(defvar lean-global-before-change-beg nil
"Before-change BEG")
2014-08-14 00:02:49 +00:00
(defvar lean-global-before-change-end nil
"Before-change END")
2014-08-14 00:02:49 +00:00
(defvar lean-global-before-change-beg-line-number nil
"Before-change BEG line-number")
2014-08-14 00:02:49 +00:00
(defvar lean-global-before-change-end-line-number nil
"Before-change END line-number")
2014-08-14 00:02:49 +00:00
(defvar lean-global-before-change-text ""
"Before-change text")
(defvar lean-global-option-alist nil
"Current Lean options set by lean-set-option command")
2014-08-14 00:02:49 +00:00
(provide 'lean-variable)