Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
C
clim-tos
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Container Registry
Model registry
Operate
Environments
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Alastair Bridgewater
clim-tos
Commits
5eea0021
Commit
5eea0021
authored
33 years ago
by
cer
Browse files
Options
Downloads
Patches
Plain Diff
fixes
parent
8c519c0f
No related branches found
Branches containing commit
No related tags found
No related merge requests found
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
Makefile
+2
-2
2 additions, 2 deletions
Makefile
misc/dev-load-xm.lisp
+4
-1
4 additions, 1 deletion
misc/dev-load-xm.lisp
notes/clim.todo
+6
-148
6 additions, 148 deletions
notes/clim.todo
sys/defsystem.lisp
+12
-12
12 additions, 12 deletions
sys/defsystem.lisp
with
24 additions
and
163 deletions
Makefile
+
2
−
2
View file @
5eea0021
# $fiHeader: Makefile,v 1.1
2
92/02/2
6 10:23:58
cer Exp Locker: cer $
# $fiHeader: Makefile,v 1.1
3
92/02/2
8 09:18:01
cer Exp Locker: cer $
#
#
# Makefile for CLIM 2.0
# Makefile for CLIM 2.0
#
#
...
@@ -267,7 +267,7 @@ swm-tape:
...
@@ -267,7 +267,7 @@ swm-tape:
dist
:
dist
:
tar
-cf
-
\
tar
-cf
-
\
*
/
*
.lisp
*
.lisp Makefile
*
/Makefile
\
*
/
*
.lisp
*
.lisp Makefile
*
/Makefile
\
| compress
>
/home/s1/1/franz/clim-2.0/
Dist/src.tar.Z
| compress
>
Dist/src.tar.Z
rcscheck
:
rcscheck
:
rcscheck
$(
DIRS
)
|
grep
-v
.fasl
rcscheck
$(
DIRS
)
|
grep
-v
.fasl
...
...
This diff is collapsed.
Click to expand it.
misc/dev-load-xm.lisp
+
4
−
1
View file @
5eea0021
...
@@ -20,13 +20,16 @@
...
@@ -20,13 +20,16 @@
;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
;; applicable.
;; applicable.
;;
;;
;; $fiHeader: dev-load-xm.lisp,v 1.
2
92/02/2
4
1
3:09:42
cer Exp Locker: cer $
;; $fiHeader: dev-load-xm.lisp,v 1.
3
92/02/2
6
1
0:24:03
cer Exp Locker: cer $
(
excl::free
(
excl::malloc
131072
))
(
excl::free
(
excl::malloc
131072
))
(
setq
*ignore-package-name-case*
t
)
(
setq
*ignore-package-name-case*
t
)
(
set-case-mode
:case-insensitive-lower
)
(
set-case-mode
:case-insensitive-lower
)
;; (warn "Setting excl::*libfasl* to t")
;; (setq excl::*libfasl* t)
(
tenuring
(
tenuring
(
let
((
*load-source-file-info*
t
)
(
let
((
*load-source-file-info*
t
)
(
*load-xref-info*
nil
))
(
*load-xref-info*
nil
))
...
...
This diff is collapsed.
Click to expand it.
notes/clim.todo
+
6
−
148
View file @
5eea0021
%% $fiHeader: clim.todo,v 1.3 92/02/14 18:57:52 cer Exp Locker: cer $
%% $fiHeader: clim.todo,v 1.4 92/02/28 09:17:42 cer Exp Locker: cer $
%%%%%%%%%%%%%%%%%%%%%%%%% CLIM 2.0 plan
%%% Things that are currently unassigned.
% Silica back-ends
% Silica back-ends
* Genera
* [??] Postscript
* Raw CLX
* Xt
- Motif
- OpenLook
* Postscript
% Holes to fill in
% Holes to fill in
* [cer] input-protocol and the handle-event problem
* [cer] Why does INPUT-PROTOCOL-MIXIN define an input buffer? What's wrong with the
sheet event queue?
* [cer] Define cursor protocol
* [cer] Rename DEFSYS package to CLIM-DEFSYS.
* [swm] Complete abstract gadgets.
- Take whatever is needed from ILA CLIM in order to get the non-adaptive
gadgets together.
* [swm] Write a "null" frame manager that implements the same look and feel for all
ports.
- Genera's frame manager will inherit from this.
* [swm] Take the keyboard gesture stuff code from ILA CLIM, but make it more
cons-efficient.
* [swm] Stream defprotocols: be sure that all of the sheet and medium protocol
functions are explicitly defined with DEFOPERATION so that the stream
trampolines are properly created.
* [all] Layout for gadgets within ACCEPTING-VALUES.
* [all] Layout for gadgets within ACCEPTING-VALUES.
* [all] ACCEPTING-VALUES :OWN-WINDOW architecture that allows integration with
* [all] ACCEPTING-VALUES :OWN-WINDOW architecture that allows integration with
toolkit dialogs.
toolkit dialogs.
...
@@ -34,7 +14,6 @@
...
@@ -34,7 +14,6 @@
* [all] Interprocess communication, i.e., one process to another to execute a frame
* [all] Interprocess communication, i.e., one process to another to execute a frame
command.
command.
* Temporary-medium sheets.
* Temporary-medium sheets.
- [swm] Medium accessors on a sheet with no medium?
- [all] Temporary medium need to have their state decached. This looks
- [all] Temporary medium need to have their state decached. This looks
like it should be a method on deallocate-medium since the medium
like it should be a method on deallocate-medium since the medium
is not degrafted. Just not associated with a window. This does
is not degrafted. Just not associated with a window. This does
...
@@ -43,146 +22,25 @@
...
@@ -43,146 +22,25 @@
- [all] Where do event queues come from?
- [all] Where do event queues come from?
- [all] Repaint protocol: who clears the area and sets the clipping region when
- [all] Repaint protocol: who clears the area and sets the clipping region when
doing the repaint?
doing the repaint?
- [cer] How do we deal with the case where a sheet has one children and its
mirror allows one children only but the sheet actually has two children,
e.g., (FRAME (HORIZONTALLY () () ())).
- [all] What is the precise value returned by EVENT-SHEET? Does the EVENT-SHEET
- [all] What is the precise value returned by EVENT-SHEET? Does the EVENT-SHEET
accessor return the sheet that the event was dispatched to? We
accessor return the sheet that the event was dispatched to? We
had to do this for correct distribution of keyboard events.
had to do this for correct distribution of keyboard events.
* [cer] Multiple layouts need to allow different size reqs for the sheets.
* [cer] The code for switching layouts needs to be cleaned up.
* [swm] Implement compatibility code for CLIM 1.0's :LAYOUT language.
* [cer] Protocol to compute to the WM the desired geometry of the frame.
* [cer] When the viewport is resized in might need to be moved, for example, if it
becomes big enough to display the entire window: in the ALLOCATE-SPACE for
viewport.
* [cer] Pointer documentation panes and other pane types,
* [cer] Gadget enable/disable protocol.
* Event protocol:
* Event protocol:
- Consider design of DISTRIBUTE-EVENT.
- Consider design of DISTRIBUTE-EVENT.
- [all] Timestamp.
- [all] Timestamp.
- [all] Native region.
- [all] Native region.
* [cer] On-demand scrollbars.
* [all] Should we do "stream relative" coordinates (as opposed to the current
* [all] Should we do "stream relative" coordinates (as opposed to the current
"parent relative" scheme) for output records? It solves some problems, but
"parent relative" scheme) for output records? It solves some problems, but
introduces others.
introduces others.
* [swm] Should we divide the drawing protocol into a medium and a port layer, or
should it be a single layer as Bill suggests?
* [swm] Spiff up the code for defining new graphics operators.
- DEFINE-GRAPHICS-OPERATOR is like DEFGENERIC.
- DEFINE-GRAPHICS-METHOD is like DEFMETHOD.
- DEFINE-GRAPHICS-RECORDING.
- What of this goes into the spec?
* [swm] Figure out what things are part of the frame manager protocol and which are
part of the port protocol.
- PORT-MENU-CHOOSE should really be FRAME-MANAGER-MENU-CHOOSE.
- Ditto, PORT-DIALOG-VIEW.
* [swm] Figure out how views really interact with frame managers and dialogs.
- Indirect views.
* [swm] Implement more of DRAW-DESIGN for composites.
- Create a table that describes what works and what doesn't, for each port.
* [swm] Figure out which WINDOW-xxx functions from CLIM 1.0 make sense. It's OK to
change the names to correspond to newthink.
- WINDOW-VIEWPORT
- WINDOW-VIEWPORT-POSITION* and WINDOW-SET-VIEWPORT-POSITION*.
- WINDOW-INSIDE-xxx and WINDOW-SET-INSIDE-xxx.
* [jdi] Design and implement a colormap scheme
% Cleanups
* [swm] What should we retain from previous versions of CLIM?
- Go through CLIM 1.0 to make sure we didn't miss anything.
- Go through ILA CLIM with a fine-tooth comb.
* [swm] Flush all of the DRAW-xxx-INTERNAL junk.
* [swm ] Find all the #+Silica/#-Silica stuff.
- Make sure that the #+Silica branch really does the right thing.
- Flush the #-Silica branch.
* [swm] Must we really convert all of the code to lowercase? Do it if we must.
* [cer] Sort out the whole server path mechanism and make sure we can
windows where we want.
% Bugs to fix
% Final spec conformance checking
* [cer] What's the problem with radio-boxes and move-cursor-after. The alternative
% Final Testing and bug fixing
definitions almost work except for exit-buttons. I think the bounding
rectangle of gadget output records is computed incorrectly and that it
works because the update-gadget-position is broken to match.
* [swm] No output-recording for draw-text*. Hence the compass menu is
broken.
* [cer] why? #<standard-method stream-read-char-no-hang (motif-top-level-sheet) @ #x1b18eee>
* [cer] When default-text-margin slot yet bound. Drawing on a unexposed window
can cause problems.
% Performance
% Performance
* [all] Meet CLIM 1.0 performance goals.
* [all] Meet CLIM 1.0 performance goals.
* [all] Surpass CLIM 1.0 performance goals.
* [all] Surpass CLIM 1.0 performance goals.
* [swm] Simplify transformation classes so that there is a single class of
transformation. Special-case +IDENTITY-TRANSFORMATION+.
* [swm] Make use of volatile transformations.
- Be careful never to modify +IDENTITY-TRANSFORMATION+.
* [swm] Make use of volatile rectangular regions.
* [swm] Reinstate sheet region and transformation caches (as in ILA CLIM).
* Add port-level caches for inks.
* Add port-level caches for inks.
* [swm] (deftype coordinate () ...)
- Flush all inappropriate FIXNUM declarations from the code and replace them
with the new COORDINATE declaration.
- Look at callers of FLOOR, CEILING, TRUNCATE, and ROUND, and decide what of
those really mean to coerce to the COORDINATE type.
- The per-port code will needs to "devicize" all coordinates. For example,
for CLX that means integerizing, but not for PostScript.
* [swm] Reinstate graphics function optimizers.
- Is any of the CLIM 1.0 graphics-defining stuff useful?
- Is any of the ILA CLIM graphics-defining stuff useful?
% Size issues
* [swm] Modularize with load on demand/required modules
- Extended geometry (lines, ellipses, polygons).
- DRAW-DESIGN and MAKE-DESIGN-FROM-OUTPUT-RECORD.
- Some formatted output stuff: graph formatting, FILLING-OUTPUT.
% [swm] Specification
* Write up the Silica API and protocol.
* Write up the gadget API and protocol.
- Document new callback function architecture.
* Specify and implement DEFINE-PANE-TYPE.
- Implement all of the CLIM 1.0 pane types.
* Write up the application frame and pane API and protocol.
- Include the layout protocol.
- What about RWK's "mosaics"?
* Rename all of the "POSITION*" functions to "POSITION", because a "position"
is unambiguously an (X,Y) pair. That is, POSITION, POSITION*, and POINT*
all mean the same thing.
- Update the code accordingly.
* What happens when you draw on a sheet that is not grafted?
* Who enables a frame?
- RUN-FRAME-TOP-LEVEL?
- or DEFAULT-FRAME-TOP-LEVEL?
- The "command loop" proposal needs to explicitly address this.
* Who calls REALIZE-MIRROR?
* ENABLE-MIRROR and ENABLE->MIRROR, MIRROR->ENABLE?
* SHEET-REGION/TRANSFORMATION can change for two reasons: program does a SETF
or the port sends a configure notify. Should we use that :PORT-TRIGGER
keyword in the notification protocol?
* Enumerate the implicit inputs to all functions.
- *APPLICATION-FRAME*
- *INPUT-CONTEXT* and *NULL-PRESENTATION*
- *COMMAND-PARSER*, *COMMAND-UNPARSER*, and *PARTIAL-COMMAND-PARSER*
- *UNSUPPLIED-ARGUMENT-MARKER* and *NUMERIC-ARGUMENT-MARKER*
- *NUMERIC-ARGUMENT*
- *DELIMITER-GESTURES* and *ACTIVATION-GESTURES*
- *COMPLETION-GESTURES*, *HELP-GESTURES*, and *POSSIBILITIES-GESTURES*
- *ABORT-GESTURES* and *ACCELERATOR-GESTURES*
- *INPUT-WAIT-TEST* and *INPUT-WAIT-HANDLER*
- *POINTER-BUTTON-PRESS-HANDLER*
- *DEFAULT-TEXT-STYLE*, *NULL-TEXT-STYLE*, and *UNDEFINED-TEXT-STYLE*
* Unify the sheet and output record protocols by giving the same name to
generic functions that (conceptually) do the same thing. This could lay the
groundwork for tighter unification later, and costs us very little.
- SHEET-ADOPT-CHILD and ADD-OUTPUT-RECORD
- SHEET-DISOWN-CHILD and DELETE-OUTPUT-RECORD
- SHEET-PARENT and OUTPUT-RECORD-PARENT
- SHEET-CHILDREN and OUTPUT-RECORD-CHILDREN
- The mapping functions.
- SHEET-REGION and BOUNDING-RECTANGLE*
- What else?
% User Guide.
% User Guide.
...
...
This diff is collapsed.
Click to expand it.
sys/defsystem.lisp
+
12
−
12
View file @
5eea0021
...
@@ -18,10 +18,10 @@
...
@@ -18,10 +18,10 @@
;;;
;;;
;;; $Author: cer $
;;; $Author: cer $
;;; $Source: /repo/cvs.copy/clim2/sys/defsystem.lisp,v $
;;; $Source: /repo/cvs.copy/clim2/sys/defsystem.lisp,v $
;;; $Revision: 1.
4
$
;;; $Revision: 1.
5
$
;;; $Date: 1992/0
2/24 13:09:0
0 $
;;; $Date: 1992/0
3/02 18:38:4
0 $
;;;
;;;
;;; $Revision: 1.
4
$
;;; $Revision: 1.
5
$
;;; Hacked by smL to convert it to lisp from C.
;;; Hacked by smL to convert it to lisp from C.
;;; No, seriously folks. Lots of changes here. Added support for multiple
;;; No, seriously folks. Lots of changes here. Added support for multiple
;;; source file-types. Cleaned up a *lot* of code.
;;; source file-types. Cleaned up a *lot* of code.
...
@@ -30,19 +30,19 @@
...
@@ -30,19 +30,19 @@
;;; Added support for different modules applicable only in certain features.
;;; Added support for different modules applicable only in certain features.
;;; -smL 17-April-89
;;; -smL 17-April-89
;;;
;;;
;;; $Revision: 1.
4
$
;;; $Revision: 1.
5
$
;;; Added support for sysdcl files.
;;; Added support for sysdcl files.
;;; -smL
;;; -smL
;;;
;;;
;;; $Revision: 1.
4
$
;;; $Revision: 1.
5
$
;;; Cleaned up a lot of syntax. Made some fields of the defsystem macro be eval'ed.
;;; Cleaned up a lot of syntax. Made some fields of the defsystem macro be eval'ed.
;;; -smL
;;; -smL
;;;
;;;
;;; $Revision: 1.
4
$
;;; $Revision: 1.
5
$
;;; Added "temporary" hack *load-all-before-compile*.
;;; Added "temporary" hack *load-all-before-compile*.
;;; -smL
;;; -smL
;;;
;;;
;;; $Revision: 1.
4
$
;;; $Revision: 1.
5
$
;;; Incorporated changes from Bill York @ ILA to deal with Genera.
;;; Incorporated changes from Bill York @ ILA to deal with Genera.
;;; Added the :default-binary-pathname option to defsystem and :binary-pathname
;;; Added the :default-binary-pathname option to defsystem and :binary-pathname
;;; to each module.
;;; to each module.
...
@@ -55,12 +55,12 @@
...
@@ -55,12 +55,12 @@
;;; Fixed the spelling of "propagate".
;;; Fixed the spelling of "propagate".
;;; -smL
;;; -smL
;;;
;;;
;;; $Revision: 1.
4
$
;;; $Revision: 1.
5
$
;;; Fixed a bug that caused many too many calls to file-write-date during a
;;; Fixed a bug that caused many too many calls to file-write-date during a
;;; load-system.
;;; load-system.
;;; -smL
;;; -smL
;;;
;;;
;;; $Revision: 1.
4
$
;;; $Revision: 1.
5
$
;;; Incorporated changes from Bill York <york@ila-west.dialnet.symbolics.com>
;;; Incorporated changes from Bill York <york@ila-west.dialnet.symbolics.com>
;;; to make string --> pathname coersion cleaner under Genera.
;;; to make string --> pathname coersion cleaner under Genera.
;;; Also made some trivial changes to the messages printed out when *tracep*
;;; Also made some trivial changes to the messages printed out when *tracep*
...
@@ -75,7 +75,7 @@
...
@@ -75,7 +75,7 @@
;;; load-system and compile-system now return the system name.
;;; load-system and compile-system now return the system name.
;;; -smL
;;; -smL
;;;
;;;
;;; $Revision: 1.
4
$
;;; $Revision: 1.
5
$
;;; Fixed bug with pretty-pathname-component. Added message when compiling a
;;; Fixed bug with pretty-pathname-component. Added message when compiling a
;;; file in Genera, since it doesn't print one by default. Fixed a small bug
;;; file in Genera, since it doesn't print one by default. Fixed a small bug
;;; with handling of *features*. Fixed a bug with *tracep*.
;;; with handling of *features*. Fixed a bug with *tracep*.
...
@@ -91,7 +91,7 @@
...
@@ -91,7 +91,7 @@
;;;
;;;
;;;-----------------------------------------------------------
;;;-----------------------------------------------------------
;; $fiHeader: defsystem.lisp,v 1.
6
9
1
/0
3
/2
6
1
2:59:59
cer Exp $
;; $fiHeader: defsystem.lisp,v 1.
4
9
2
/0
2
/2
4
1
3:09:00
cer Exp
Locker: cer
$
;; Add a feature for ANSI-adhering Lisps. So far, only Apple's
;; Add a feature for ANSI-adhering Lisps. So far, only Apple's
;; version 2.0 tries to do adhere to the ANSI spec instead of CLtL rev 1.
;; version 2.0 tries to do adhere to the ANSI spec instead of CLtL rev 1.
...
@@ -121,7 +121,7 @@
...
@@ -121,7 +121,7 @@
#+
ANSI-90
#+
ANSI-90
(
defpackage
"DEFSYSTEM"
(
defpackage
"DEFSYSTEM"
(
:use
"COMMON-LISP"
)
(
:use
"COMMON-LISP"
)
(
:nicknames
"DEFSYS"
)
(
:nicknames
"DEFSYS"
"DS"
)
(
:export
(
:export
*current-system*
*current-system*
*defsystem-version*
*defsystem-version*
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment