34 lines
5.1 KiB
Plaintext
34 lines
5.1 KiB
Plaintext
Medley TEDIT-PF-SEE
|
||
2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
TEDIT-PF-SEE
|
||
1
|
||
|
||
4
|
||
|
||
By: Ron Kaplan
|
||
This document created in January 2022, last edited August 2024.
|
||
This tiny package adds alternatives to the PF and SEE commands that produce their output in scrollable read-only Tedit windows rather than the unscrollable EXEC window. The new commands are tf (for t(edit)f(unction) and ts for t(edit)s(ee)
|
||
tf FUNCTION (FILE) (VERSION) [command]
|
||
prints the definition of FUNCTION that appears in FILE. If FILE is not provided, then WHEREIS is used to locate the defintions, just as with PF. If VERSION is a version as defined in lispusers/VERSIONDEFS, then the definition from that version of the designated file is shown. FUNCTION defaults to the value of the executive's LASTWORD, and LASTWORD is set to the resolved function name. FILE may also be a list of files, in which case the definition from each file appears in a separate Tedit window.
|
||
Examples:
|
||
If XFILE is the first file that WHEREIS returns for function FOO:ÿÿ
|
||
ÿ tf FOO shows FOO on the newest version of XFILEÿÿ
|
||
ÿ tf FOO 2 shows FOO on the second oldest version of XFILEÿÿ
|
||
ÿ tf FOO YFILE -3 shows FOO on the third most recent version of YFILE
|
||
ts FILE (VERSION) (WINDOW) [command]
|
||
shows the contents of version VERSION of FILE in a scrollable read-only TEDIT WINDOW. This uses the function TEDIT-SEE (also used for the FILEBROWSER See command), which interprets any font changes if FILE is a Lisp source file.
|
||
Meta,T Meta,t [Tedit command keys]
|
||
are armed in the Tedit readtable to cause the definition of the function named in the document's current selection to be shown in a separate read-only Tedit window.
|
||
TEDIT-PF-SEE loads the REGIONMANAGER package, and the default regions for tf and ts are of type PF-TEDIT and SEE-TEDIT respectively. The function SET-TYPED-REGIONS can be used to predefine the regions where the output for tf and ts (and the meta command-keys) will appear.
|
||
|
||
TEDIT-PF-SEE also loads VERSIONDEFS.
|
||
(SEQUENCE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (ALTERNATE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))))
|
||
1 $ 1 $ 1 $ 4 È $È 4 È $È 4 $È $È 1 È $ 1 Š Š8 $ 1 Š Š8 $ J È $È PAGEHEADING RUNNINGHEAD
|
||
TIMESROMAN $ ‡ y(DEFAULTFONT 1 (TERMINAL 12) (TERMINAL 8) (TERMINAL 8) (PDF (TERMINAL 8)) (TEXT (TERMINAL 12)) (POSTSCRIPT (TERMINAL 8))) MODERN
|
||
TERMINAL MODERN
|
||
|
||
HRULE.GETFN HRULE.GETFN HRULE.GETFN
|
||
HRULE.GETFN HRULE.GETFN @ ð @ ! 0 ( J * ! s B
|
||
! %
|
||
$ ' # ¥
|
||
< š DATE:i3tì Ç pzº |