/[climacs]/climacs/packages.lisp
ViewVC logotype

Contents of /climacs/packages.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.16 - (hide annotations)
Fri Dec 31 13:33:06 2004 UTC (9 years, 3 months ago) by rstrandh
Branch: MAIN
Changes since 1.15: +1 -1 lines
Simplified the redisplay routine.  Introduced a cache of lines in
the form of a flexichain.

The ultra-fast redisplay is not yet in place, because I thought the
bottle neck was in Climacs, whereas it is in McCLIM.  I know how to
fix that, though, by using :cache-test #'eq for cached lines.  The
only problem with that is that the line has to be traversed (despite
being cached) in order that we can compute the position of the cursor.
This might involve either invalidating the line with the cursor on it,
so that it will be rescanned, or else rescanning it anyway, despite it
being cached.
1 strandh 1.1 ;;; -*- Mode: Lisp; Package: COMMON-LISP-USER -*-
2    
3     ;;; (c) copyright 2004 by
4 strandh 1.6 ;;; Robert Strandh (strandh@labri.fr)
5 strandh 1.1
6     ;;; This library is free software; you can redistribute it and/or
7     ;;; modify it under the terms of the GNU Library General Public
8     ;;; License as published by the Free Software Foundation; either
9     ;;; version 2 of the License, or (at your option) any later version.
10     ;;;
11     ;;; This library is distributed in the hope that it will be useful,
12     ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13     ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14     ;;; Library General Public License for more details.
15     ;;;
16     ;;; You should have received a copy of the GNU Library General Public
17     ;;; License along with this library; if not, write to the
18     ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19     ;;; Boston, MA 02111-1307 USA.
20    
21     ;;; Package definitions for the Climacs editor.
22    
23     (defpackage :climacs-buffer
24 strandh 1.4 (:use :clim-lisp :flexichain)
25 strandh 1.1 (:export #:buffer #:standard-buffer
26     #:mark #:left-sticky-mark #:right-sticky-mark
27     #:standard-left-sticky-mark #:standard-right-sticky-mark
28     #:clone-mark #:no-such-offset #:size #:number-of-lines
29     #:offset #:mark< #:mark<= #:mark= #:mark> #:mark>=
30     #:beginning-of-buffer #:end-of-buffer
31     #:beginning-of-buffer-p #:end-of-buffer-p
32     #:beginning-of-line #:end-of-line
33     #:beginning-of-line-p #:end-of-line-p
34     #:line-number #:column-number
35 strandh 1.3 #:insert-buffer-object #:insert-buffer-sequence
36     #:insert-object #:insert-sequence
37     #:delete-buffer-range #:delete-range
38 strandh 1.1 #:delete-region
39 strandh 1.3 #:buffer-object #:buffer-sequence
40 rstrandh 1.7 #:object-before #:object-after #:region-to-sequence
41 rstrandh 1.13 #:low-mark #:high-mark #:modified-p #:clear-modify))
42 strandh 1.1
43     (defpackage :climacs-base
44     (:use :clim-lisp :climacs-buffer)
45     (:export #:previous-line #:next-line
46     #:open-line #:kill-line
47 rstrandh 1.11 #:number-of-lines-in-region
48 rstrandh 1.15 #:constituentp #:whitespacep
49 strandh 1.4 #:forward-word #:backward-word
50 rstrandh 1.15 #:delete-word #:backward-delete-word
51 strandh 1.4 #:input-from-stream #:output-to-stream))
52 strandh 1.1
53 strandh 1.2 (defpackage :climacs-abbrev
54     (:use :clim-lisp :clim :climacs-buffer :climacs-base)
55     (:export #:abbrev-expander #:dictionary-abbrev-expander #:dictionary
56 strandh 1.5 #:expand-abbrev #:abbrev-mixin #:possibly-expand-abbrev))
57 strandh 1.2
58 rstrandh 1.8 (defpackage :climacs-syntax
59 rstrandh 1.16 (:use :clim-lisp :clim :climacs-buffer :climacs-base :flexichain)
60 rstrandh 1.9 (:export #:syntax #:basic-syntax #:texinfo-syntax
61 rstrandh 1.10 #:redisplay-pane #:redisplay-with-syntax #:full-redisplay
62 rstrandh 1.9 #:url))
63 rstrandh 1.8
64 ejohnson 1.12 (defpackage :climacs-kill-ring
65     (:use :clim-lisp :climacs-buffer :flexichain)
66 ejohnson 1.14 (:export #:initialize-kill-ring #:kr-length
67     #:kr-resize #:kr-rotate #:kill-ring
68     #:kr-copy #:kr-push #:kr-pop))
69 ejohnson 1.12
70 strandh 1.1 (defpackage :climacs-gui
71 ejohnson 1.12 (:use :clim-lisp :clim :climacs-buffer :climacs-base :climacs-abbrev :climacs-syntax :climacs-kill-ring))
72 strandh 1.1

  ViewVC Help
Powered by ViewVC 1.1.5