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

Contents of /climacs/packages.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.91 - (show annotations)
Mon May 1 18:36:41 2006 UTC (7 years, 11 months ago) by thenriksen
Branch: MAIN
Changes since 1.90: +1 -0 lines
Changed the colors of `climacs-rv' slightly and exported the symbol
from the :climacs-gui package.
1 ;;; -*- Mode: Lisp; Package: COMMON-LISP-USER -*-
2
3 ;;; (c) copyright 2004-2005 by
4 ;;; Robert Strandh (strandh@labri.fr)
5 ;;; (c) copyright 2005 by
6 ;;; Matthieu Villeneuve (matthieu.villeneuve@free.fr)
7
8 ;;; This library is free software; you can redistribute it and/or
9 ;;; modify it under the terms of the GNU Library General Public
10 ;;; License as published by the Free Software Foundation; either
11 ;;; version 2 of the License, or (at your option) any later version.
12 ;;;
13 ;;; This library is distributed in the hope that it will be useful,
14 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 ;;; Library General Public License for more details.
17 ;;;
18 ;;; You should have received a copy of the GNU Library General Public
19 ;;; License along with this library; if not, write to the
20 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 ;;; Boston, MA 02111-1307 USA.
22
23 ;;; Package definitions for the Climacs editor.
24
25 (defpackage :climacs-buffer
26 (:use :clim-lisp :flexichain :binseq)
27 (:export #:buffer #:standard-buffer
28 #:mark #:left-sticky-mark #:right-sticky-mark
29 #:standard-left-sticky-mark #:standard-right-sticky-mark
30 #:clone-mark
31 #:no-such-offset #:offset-before-beginning #:offset-after-end
32 #:invalid-motion #:motion-before-beginning #:motion-after-end
33 #:size #:number-of-lines
34 #:offset #:mark< #:mark<= #:mark= #:mark> #:mark>=
35 #:forward-object #:backward-object
36 #:beginning-of-buffer #:end-of-buffer
37 #:beginning-of-buffer-p #:end-of-buffer-p
38 #:beginning-of-line #:end-of-line
39 #:beginning-of-line-p #:end-of-line-p
40 #:buffer-line-number #:buffer-column-number
41 #:line-number #:column-number
42 #:insert-buffer-object #:insert-buffer-sequence
43 #:buffer-substring
44 #:insert-object #:insert-sequence
45 #:delete-buffer-range #:delete-range
46 #:delete-region
47 #:buffer-object #:buffer-sequence
48 #:object-before #:object-after #:region-to-sequence
49 #:low-mark #:high-mark #:modified-p #:clear-modify
50
51 #:binseq-buffer #:obinseq-buffer #:binseq2-buffer
52 #:persistent-left-sticky-mark #:persistent-right-sticky-mark
53 #:persistent-left-sticky-line-mark #:persistent-right-sticky-line-mark
54 #:p-line-mark-mixin #:buffer-line-offset
55
56 #:delegating-buffer #:implementation))
57
58 (defpackage :climacs-base
59 (:use :clim-lisp :climacs-buffer)
60 (:export #:do-buffer-region
61 #:do-buffer-region-lines
62 #:previous-line #:next-line
63 #:open-line #:kill-line
64 #:empty-line-p
65 #:line-indentation
66 #:buffer-display-column
67 #:number-of-lines-in-region
68 #:constituentp #:whitespacep
69 #:forward-word #:backward-word
70 #:delete-word #:backward-delete-word
71 #:buffer-region-case
72 #:upcase-buffer-region #:upcase-region
73 #:downcase-buffer-region #:downcase-region
74 #:capitalize-buffer-region #:capitalize-region
75 #:upcase-word #:downcase-word #:capitalize-word
76 #:tabify-region #:untabify-region
77 #:indent-line
78 #:indent-region
79 #:delete-indentation
80 #:fill-line
81 #:input-from-stream #:output-to-stream
82 #:name-mixin #:name
83 #:buffer-looking-at #:looking-at
84 #:buffer-search-forward #:buffer-search-backward
85 #:buffer-re-search-forward #:buffer-re-search-backward
86 #:search-forward #:search-backward
87 #:re-search-forward #:re-search-backward))
88
89 (defpackage :climacs-abbrev
90 (:use :clim-lisp :clim :climacs-buffer :climacs-base)
91 (:export #:abbrev-expander #:dictionary-abbrev-expander #:dictionary
92 #:expand-abbrev #:abbrev-mixin #:possibly-expand-abbrev
93 #:add-abbrev))
94
95 (defpackage :climacs-syntax
96 (:use :clim-lisp :clim :climacs-buffer :climacs-base :flexichain)
97 (:export #:syntax #:define-syntax
98 #:eval-option
99 #:define-option-for-syntax
100 #:syntax-from-name
101 #:basic-syntax
102 #:update-syntax #:update-syntax-for-display
103 #:grammar #:grammar-rule #:add-rule
104 #:parser #:initial-state
105 #:advance-parse
106 #:parse-tree #:start-offset #:end-offset
107 #:lexer #:nb-lexemes #:lexeme #:insert-lexeme
108 #:incremental-lexer #:next-lexeme
109 #:delete-invalid-lexemes #:inter-lexeme-object-p
110 #:skip-inter-lexeme-objects #:update-lex
111 #:parse-stack-top #:target-parse-tree #:parse-state-empty-p
112 #:parse-stack-next #:parse-stack-symbol
113 #:parse-stack-parse-trees #:map-over-parse-trees
114 #:no-such-operation #:no-expression
115 #:name-for-info-pane
116 #:syntax-line-indentation
117 #:forward-expression #:backward-expression
118 #:eval-defun
119 #:beginning-of-definition #:end-of-definition
120 #:redisplay-pane-with-syntax
121 #:backward-paragraph #:forward-paragraph
122 #:backward-sentence #:forward-sentence
123 #:forward-list #:backward-list
124 #:down-list #:up-list
125 #:backward-down-list #:backward-up-list
126 #:syntax-line-comment-string
127 #:line-comment-region #:comment-region
128 #:line-uncomment-region #:uncomment-region))
129
130 (defpackage :climacs-kill-ring
131 (:use :clim-lisp :flexichain)
132 (:export #:kill-ring #:kill-ring-length #:kill-ring-max-size
133 #:append-next-p
134 #:reset-yank-position #:rotate-yank-position #:kill-ring-yank
135 #:kill-ring-standard-push #:kill-ring-concatenating-push
136 #:kill-ring-reverse-concatenating-push))
137
138 (defpackage :undo
139 (:use :common-lisp)
140 (:export #:no-more-undo
141 #:undo-tree #:standard-undo-tree
142 #:undo-record #:standard-undo-record
143 #:add-undo #:flip-undo-record #:undo #:redo))
144
145 (defpackage :climacs-pane
146 (:use :clim-lisp :clim :climacs-buffer :climacs-base :climacs-abbrev
147 :climacs-syntax :flexichain :undo)
148 (:export #:climacs-buffer #:needs-saving #:filepath
149 #:read-only-p #:buffer-read-only
150 #:climacs-pane #:point #:mark
151 #:clear-cache
152 #:redisplay-pane #:full-redisplay
153 #:display-cursor
154 #:display-mark
155 #:page-down #:page-up
156 #:top #:bot
157 #:tab-space-count #:space-width #:tab-width
158 #:indent-tabs-mode
159 #:auto-fill-mode #:auto-fill-column
160 #:isearch-state #:search-string #:search-mark
161 #:search-forward-p #:search-success-p
162 #:isearch-mode #:isearch-states #:isearch-previous-string
163 #:query-replace-state #:string1 #:string2
164 #:query-replace-mode
165 #:mark-visible-p
166 #:with-undo
167 #:url
168 #:climacs-textual-view #:+climacs-textual-view+))
169
170 (defpackage :climacs-gui
171 (:use :clim-lisp :clim :climacs-buffer :climacs-base
172 :climacs-abbrev :climacs-syntax
173 :climacs-kill-ring :climacs-pane :clim-extensions :undo :esa)
174 ;;(:import-from :lisp-string)
175 (:export :climacs ; Main entry point.
176 ;; GUI functions follow.
177 :climacs-rv ; Entry point with alternate colors.
178 :current-window
179 :point
180 :syntax
181 :mark
182 :insert-character))
183
184 (defpackage :climacs-fundamental-syntax
185 (:use :clim-lisp :clim :climacs-buffer :climacs-base
186 :climacs-syntax :flexichain :climacs-pane)
187 (:export))
188
189 (defpackage :climacs-html-syntax
190 (:use :clim-lisp :clim :climacs-buffer :climacs-base
191 :climacs-syntax :flexichain :climacs-pane))
192
193 (defpackage :climacs-prolog-syntax
194 (:use :clim-lisp :clim :climacs-buffer :climacs-base
195 :climacs-syntax :flexichain :climacs-pane)
196 (:shadow #:atom #:close #:exp #:integer #:open #:variable))
197
198 (defpackage :climacs-cl-syntax
199 (:use :clim-lisp :clim :climacs-buffer :climacs-base
200 :climacs-syntax :flexichain :climacs-pane)
201 (:export))
202
203 (defpackage :climacs-lisp-syntax
204 (:use :clim-lisp :clim :clim-extensions :climacs-buffer :climacs-base
205 :climacs-syntax :flexichain :climacs-pane :climacs-gui)
206 (:export :lisp-string))
207
208

  ViewVC Help
Powered by ViewVC 1.1.5