Rmk14: Browsers for COMPAREDIRECTORIES, COMPARESOURCES, COMPARETEXT for TEDIT files (#642)

* TEXTOFD:  Property OBJECTBYTE returned instead of image objects

This allows COMPARETEXT to work on TEDIT files

* ATBL: Default reader environment uses *DEFAULT-EXTERNALFORMAT* instead of :XCCS constant

* CMLEXEC:  Fix FILETYPE property

It had CL:COMPILE-FILE, but the directory had LCOMs.  Changed to :FAKE-COMPILE-FILE.

* FILEIO:  single place for EOL specification

Now only in SETFILEINFO, not separately in \DO.PARAMS.AT.OPEN

* WINDOWOBJ:  COPYINSERT now uniformly allows lists of objects

It was incomplete.

* COMPARETEXT: Now works for TEDIT files

* EXAMINEDEFS: side-by-side attached SEDIT windows for comparing alternative definitions

* OBJECTWINDOW:  container for arbitrary image objects

* ATBL: fixed typo

* MODERNIZEP: pass shape and move to main window if PASSTOMAINCOMS

* EXAMINEDEFS:  Remove EXAMINEDEFS-REGION

Replaced by equivalent functionality in new package REGIONMANAGER

* TEDIT:  adjustments to give caller control of window region

* Revert "TEDIT:  adjustments to give caller control of window region"

This reverts commit aec12b41f0.

* Revert "EXAMINEDEFS:  Remove EXAMINEDEFS-REGION"

This reverts commit 0c670bbc56.

* TEDIT, TEDITWINDOW:  Adjustments for propagating (typed) regions

* EXAMINEDEFS: added EXAMINEFILES for looking viewing files side-by-side

Fix titling glitch, add EXAMINEFILES

* OBJECTWINDOW: minor cleanup

* REGIONMANAGER: new package for managing typed regions, relative regions, and constellation regions

* TEDIT-PF-SEE:  commands for scrollable PF and SEE alternatives

* COREIO:  Fixed bug in \CORE.SETFILEINFO

* COMPAREDIRECTORIES:  Added CDBROWSER

and associated reworking

* COMPARESOURCES:  Added CSBROWSER

and associated reworking

* COMPARETEXT:  Reworked for TEDIT files

Also for better window management

lispusers/EXAMINEDEFS

@@ -1,22 +1,23 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "20-Dec-2021 11:06:33" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>EXAMINEDEFS.;7
 6367   
+
(FILECREATED " 2-Jan-2022 23:15:58" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>EXAMINEDEFS.;19
 6871   
 
-      :CHANGES-TO (FNS EXAMINEDEFS)
+      :CHANGES-TO (FNS EXAMINEFILES)
 
-      :PREVIOUS-DATE "19-Dec-2021 22:45:48" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>EXAMINEDEFS.;5)
+      :PREVIOUS-DATE "30-Dec-2021 21:49:58" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>EXAMINEDEFS.;18)
 
 
 (PRETTYCOMPRINT EXAMINEDEFSCOMS)
 
-(RPAQQ EXAMINEDEFSCOMS
 ((FNS EXAMINEDEFS EXAMINEDEFS-REGION)
+(RPAQQ EXAMINEDEFSCOMS
 ((FNS EXAMINEDEFS EXAMINEFILES)
                         (INITVARS (EXAMINEDEFS-PROCESS-LIST))))
 (DEFINEQ
 
 (EXAMINEDEFS

-  [LAMBDA (NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION)   (* ; "Edited 20-Dec-2021 11:06 by rmk")

+  [LAMBDA (NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION)   (* ; "Edited 24-Dec-2021 22:39 by rmk")

+                                                             (* ; "Edited 20-Dec-2021 11:06 by rmk")

 
     (* ;; "This provides for side-by-side examination of separate but presumably related expressions.  The (LISTP) expressions can be provided directly as SOURCE1 and SOURCE2 or, if NAME is given the copies of the definitions of NAME as TYPE on the two sources are examined.")

 
@@ -45,9 +46,11 @@
                       ELSEIF
 (GETDEF NAME TYPE SOURCE2)
                       ELSE
 (ERROR NAME " not found on " SOURCE2)))
          (CL:UNLESS TITLE1
-             (SETQ TITLE1 (OR SOURCE1 "File 1")))
+             (SETQ TITLE1 (OR (AND SOURCE1 (LITATOM SOURCE1))
+                              "File 1")))
          (CL:UNLESS TITLE2
-             (SETQ TITLE2 (OR SOURCE2 "File 2")))
+             (SETQ TITLE2 (OR (AND SOURCE2 (LITATOM SOURCE2))
+                              "File 2")))
          (SELECTQ (EDITMODE)
              (SEDIT:SEDIT 
                           (* ;; 
@@ -99,22 +102,31 @@
              (PROGN (EDITE DEF1)
                     (EDITE DEF2])
 
-(EXAMINEDEFS-REGION

-  [LAMBDA (WIDTH HEIGHT)                                     (* ; "Edited 10-Dec-2021 10:15 by rmk")

+(EXAMINEFILES

+  [LAMBDA (FILE1 FILE2 TITLE1 TITLE2 REGION)                 (* ; "Edited  2-Jan-2022 23:15 by rmk")

+                                                             (* ; "Edited 30-Dec-2021 21:49 by rmk")

 
-    (* ;; "Prompts for a WIDTH-HEIGHT region with the top-left corner positioned at the initial cursor but the cursor then moved to the bottom-right for size adjustments.  Thus the default behavior is that the upper left corner is fixed.")

+    (* ;; "We get a region, then split it in half.  Should we attach or at least co-move and co-close the 2 windows?")

 
-    (GETMOUSESTATE)
-    (LET* ((LEFT LASTMOUSEX)
-           (RIGHT (IPLUS LEFT WIDTH))
-           (TOP LASTMOUSEY)
-           (BOTTOM (IDIFFERENCE TOP HEIGHT)))
-          (\CURSORPOSITION RIGHT BOTTOM)
-          (GETREGION NIL NIL (CREATEREGION LEFT BOTTOM WIDTH HEIGHT)
-                 NIL NIL (LIST LEFT TOP RIGHT BOTTOM])
+    (CL:UNLESS REGION
+        (SETQ REGION (GETREGION)))
+    (TEDIT-SEE FILE1 (RELCREATEREGION `(,REGION 0.5 -1)
+                            REGION
+                            'RIGHT
+                            'TOP
+                            `(,REGION 0.5)
+                            (FETCH
 (REGION TOP) OF
 REGION))
+           NIL TITLE1)
+    (TEDIT-SEE FILE2 (RELCREATEREGION `(,REGION 0.5 1)
+                            REGION
+                            'LEFT
+                            'TOP
+                            `(,REGION 0.5)
+                            (FETCH
 (REGION TOP) OF
 REGION))
+           NIL TITLE2])
 )
 
 (RPAQ? EXAMINEDEFS-PROCESS-LIST
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (513 6305 (EXAMINEDEFS 523 . 5601) (EXAMINEDEFS-REGION 5603 . 6303)))))
+  (FILEMAP (NIL (510 6809 (EXAMINEDEFS 520 . 5811) (EXAMINEFILES 5813 . 6807)))))
 STOP