Changeset 711

Timestamp:

Mar 24, 2004, 8:44:53 AM (17 years ago)

Author:

gb

Message:

New (shared) gap-cache stuff.

Location:

trunk/ccl/hemlock/src

Files:

• decls.lisp (modified) (1 diff)
• struct.lisp (modified) (2 diffs)

trunk/ccl/hemlock/src/decls.lisp

@@ -63 +63 @@
 ;;; need to invent a new language to advise the compiler of that ...
 (declaim (special *mode-names* *current-buffer* *echo-area-buffer*
-                  *open-line* *left-open-pos* *right-open-pos*
-                  *line-cache-length* *open-chars* *the-sentinel*
+                  *buffer-gap-context*
+                  *the-sentinel*
                   *in-the-editor* *buffer-list* *things-to-do-once*
                   *gc-notify-before* *gc-notify-after*))

trunk/ccl/hemlock/src/struct.lisp

@@ -105 +105 @@
   (external-format :unix)     ; Line-termination, for the time being
   process                     ; Maybe a listener
-  (line-cache-length 200)     ; initial/current length of open-chars
-  (open-line nil)             ; the current open line
-  (open-chars (make-string 200)) ; gap
-  (left-open-pos 0)
-  (right-open-pos 0)
-  
+  (gap-context )                        ; The value of *buffer-gap-context*
+                              ; in the thread that can modify the buffer.
   )
 
@@ -668 +664 @@
   "Sets a modeline-field's function and updates this field for all windows in
    any buffer whose fields list contains the field.")
+
+;;; Shared buffer-gap context, used to communicate between command threads
+;;; and the event thread.  Note that this isn't buffer-specific; in particular,
+;;; OPEN-LINE and friends may not point at a line that belongs to any
+;;; buffer.
+
+(defstruct buffer-gap-context
+  (lock (ccl::make-lock))
+  (left-open-pos 0)
+  (right-open-pos 0)
+  (line-cache-length 200)
+  (open-line nil)
+  (open-chars (make-string 200)))
+
+(define-symbol-macro *line-cache-length* (buffer-gap-context-line-cache-length *buffer-gap-context*))
+(define-symbol-macro *open-line* (buffer-gap-context-open-line *buffer-gap-context*))
+(define-symbol-macro *open-chars* (buffer-gap-context-open-chars *buffer-gap-context*))
+(define-symbol-macro *left-open-pos* (buffer-gap-context-left-open-pos *buffer-gap-context*))
+(define-symbol-macro *right-open-pos* (buffer-gap-context-right-open-pos *buffer-gap-context*))