github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-13 07:29:52 +00:00
Code Issues Projects Releases Wiki Activity
Interlisp.medley/lispusers/EXAMINEDEFS.TEDIT
rmkaplan b791bff070
Rmk19: Updates and remaining components for managing comparisons and interactions between git and Medley (#658) 
* PSEUDOHOSTS: Overlay a file system at the end of a path in another file system

New package, please look through it.

* REGIONMANAGER:  added RELCREATEPOSITION, allow for arguments to be spread

If the WIDTH argument looks like a list of arguments, the arguments are spread out.  Means that a relative region can be passed through intermediate functions.

* EXAMINEDEFS:  More control over regions and windows

Examination windows are returned so that callers can manipulate them

* TEDIT-PF-SEE:  tf respects reader environment and bold faces of DEFUN and DEFMACRO names

* COMPAREDIRECTORIES:  refactored for more flexibility and easier maintenance

Also, based on SPY, made more internal operations work on streams that are located and created once, rather than on file

Added CDMERGE to merge CDVALUES for different subdirectories, to permit scrolling of all differences in a single browser window

* COMPARESOURCES:  Region for CS browser is passed through, window is returned

Also tried to eliminate mismatching of simple edit timestamps

* COMPARETEXT: Files can be input streams, region is passed in, window is returned

* COMPAREDIRECTORIES again:  Fixed a promptwindow bug

* GITFNS:  New package for comparing and copying back and forth from My Medley to the git clone
2022-01-27 22:32:49 -08:00

20 lines
4.8 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

Medley EXAMINEDEFS2
4
1
EXAMINEDEFS
1
4
By:
Ron Kaplan
This document created in December 2021.
EXAMINEDEFS brings up side-by-side windows for comparison of the definitions of NAME as TYPE from sources SOURCE1 and SOURCE2.
(EXAMINEDEFS NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION) [Function]
The kind of comparison is determined by the value of the variable EXAMINEWITH. If EXAMINEWITH is SEDIT, the different definitions are shown in sided-by-side SEDIT windows. This allows for examination--but not editing--of the definitions: The structures shown in SEDIT are copies of the definitions that GETDEF obtains from the sources and so any changes in either SEDIT will have no lasting effect. A separate SEDIT session with a particular definition (maybe different from either of the sources) can be used in parallelI for edits guided by the separate examination. Also, currently, the particular locations of differences in the two definitions are not highlighted by SEDIT selections.
If EXAMINEWITH is COMPARETEXT (the initial value), then the definitions are printed in read-only TEDIT windows (as per PF-TEDIT) and compared with COMPARETEXT. The COMPARETEXT browser makes it easy to iterate from difference to difference.
If SOURCE1 or SOURCE2 is a list and not a GETDEF source specification, then a copy of that structure will be taken as the definition to be shown.
If REGION is a region, it is used as the initial suggestion for the constellation region that side-by-side SEDIT windows will share. (COMPARETEXT windows are determined by the COMPARETEXT protocols.)
TITLE1 and TITLE2 if provided are used to override the default titles of the examination windows. The windows are attached, in that they move, reshape, and close together, but scroll independently.
A second function is provided to bring up side-by-side TEDIT-SEE windows as an aid in examining the differences between files. The optional REGION again specifies a constellation region that the TEDIT's for the two files will share.
(EXAMINEFILES FILE1 FILE2 TITLE1 TITLE2 REGION) [Function](LIST ((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))) (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)))))4<01><01>4<01><01>.<01>.<00><00>8.<00><00>8J<01><01> PAGEHEADING RUNNINGHEAD
TIMESROMAN$TERMINALMODERN
MODERN MODERN
MODERN
  HRULE.GETFN HRULE.GETFNMODERN
 HRULE.GETFNMODERN
  HRULE.GETFNMODERN  HRULE.GETFNMODERN  ) E@ B  7e$7B  Z  Ab}  
<00>7 MW=!ez<65>
Reference in New Issue View Git Blame Copy Permalink