/[mcclim]/mcclim/ESA/esa-buffer.lisp
ViewVC logotype

Contents of /mcclim/ESA/esa-buffer.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations)
Sat Dec 15 10:18:15 2007 UTC (6 years, 4 months ago) by thenriksen
Branch: MAIN
CVS Tags: McCLIM-0-9-6, HEAD
Changes since 1.3: +2 -0 lines
Added my copyright statement to a bunch of ESA files.
1 ;;; -*- Mode: Lisp; Package: ESA-IO -*-
2
3 ;;; (c) copyright 2006 by
4 ;;; Robert Strandh (strandh@labri.fr)
5 ;;; (c) copyright 2007 by
6 ;;; Troels Henriksen (athas@sigkill.dk)
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 (in-package :esa-buffer)
24
25 (defgeneric frame-make-buffer-from-stream (application-frame stream)
26 (:documentation "Create a fresh buffer by reading the external
27 representation from STREAM"))
28
29 (defun make-buffer-from-stream (stream)
30 "Create a fresh buffer by reading the external representation
31 from STREAM"
32 (frame-make-buffer-from-stream *application-frame* stream))
33
34 (defgeneric frame-make-new-buffer (application-frame &key &allow-other-keys)
35 (:documentation "Create a empty buffer for the application frame."))
36
37 (defun make-new-buffer (&rest args &key &allow-other-keys)
38 "Create a empty buffer for the current frame."
39 (apply #'frame-make-new-buffer *application-frame* args))
40
41 (defgeneric frame-save-buffer-to-stream (application-frame buffer stream)
42 (:documentation "Save the entire BUFFER to STREAM in the appropriate
43 external representation"))
44
45 (defun save-buffer-to-stream (buffer stream)
46 "Save the entire BUFFER to STREAM in the appropriate external
47 representation"
48 (frame-save-buffer-to-stream *application-frame* buffer stream))
49
50 (defclass esa-buffer-mixin (name-mixin)
51 ((%filepath :initform nil :accessor filepath)
52 (%needs-saving :initform nil :accessor needs-saving)
53 (%file-write-time :initform nil :accessor file-write-time)
54 (%file-saved-p :initform nil :accessor file-saved-p)
55 (%read-only-p :initform nil :accessor read-only-p))
56 (:default-initargs :name "*scratch*"))

  ViewVC Help
Powered by ViewVC 1.1.5