mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 07:19:57 +00:00
68 lines
2.0 KiB
Plaintext
Executable File
68 lines
2.0 KiB
Plaintext
Executable File
;;; -*- Mode:TEXT; -*-
|
|
|
|
WORK TO BE DONE ON XTEACH
|
|
|
|
0. numbered dumps for...
|
|
1. fix files
|
|
|
|
2. Think about handlers for the control characters that do fun things
|
|
like explain that they've typed ^B or ^D or whatever and ask them if
|
|
they are losing utterly or have some idea of what magic they've
|
|
tripped over.
|
|
|
|
3. Think about having lessons that enable features of the system so
|
|
that once they're at a certain level of sophistication, they can hack
|
|
fun things like breakpoints and stuff.
|
|
|
|
4. Make the lessons go lots farther so that these are fun things to
|
|
think 'bout.
|
|
|
|
5. RENAMEF and back copies. KMP says:
|
|
|
|
I suspect the right thing is to write a subroutine which reaps
|
|
all but the most recent version and/or to set the generation
|
|
retention count of that file to 1.
|
|
|
|
6. MORE stuff...
|
|
|
|
(defvar **more**-chars nil)
|
|
(defmacro bind-**more**-chars (specs &body body)
|
|
`(let ((**more**-chars (append **more**-chars ',specs))) ;or some such
|
|
,@body))
|
|
(defun some-lesson-part ()
|
|
(bind-**more**-chars ((#^A abort-lesson "Abort lesson"))
|
|
...cruft...))
|
|
(defun **maybe-more** (...)
|
|
(cond ...
|
|
((assq c **more**-chars)
|
|
(funcall (assq c **more**-chars)))
|
|
...
|
|
(flag
|
|
(format t ...hair...))))
|
|
the hair comes from what happens if you do
|
|
(bind-**more**-chars ((#^A thing1))
|
|
(bind-**more**-chars ((#^A thing2))
|
|
...))
|
|
to get (SPACE=Continue,RUBOUT=Flush,^A=thing2)
|
|
and not thing1. the reason i suggest append is you can do
|
|
(do ((l **more**-chars (cdr l)))
|
|
((null l))
|
|
(cond ((not (assq (caar l) (cdr l))) ;no other awaits us
|
|
(format outstream "...")))) ;so type out info...
|
|
|
|
7. Should we give them a script file to play with? (mention it
|
|
in LESSON INFO, if so.
|
|
|
|
8. Lessons--
|
|
|
|
INFO
|
|
is there to be a special lisp for them, or just xteach itself?
|
|
|
|
EVAL
|
|
makes the claim that evaluation will be talked about "in greater detail"
|
|
later. Hah!
|
|
application does not seem to be addressed any place.
|
|
|
|
OBJECT
|
|
says we'll deal with uses of TYPEP in later lessons. we don't.
|