Rmk19 (#664)

* 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

* REGIONMANAGER:  Added CLOSEWITH and MOVEWITh

Primitives for building hierarchically dependent window clusters

* PSEUDOHOSTS:  Added PSEUDOHOSTNAME, hierarchical hosts #663

For hierarchical hosts (hosts whose prefixes are extensions of the prefixes of other pseudohosts), always the pseudofilename is always the shortest one.  See #663 for more details

* EXAMINEDEFS:  Fix prettyprint of non-function expressions

* GITFNS, Comparison files:  Use CLOSEWITH and MOVEWITH abstractions for window hierarchies

lispusers/REGIONMANAGER

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "27-Jan-2022 13:24:29" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>REGIONMANAGER.;106
 34264  
+
(FILECREATED "28-Jan-2022 23:52:21" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>REGIONMANAGER.;113
 36064  
 
-      :CHANGES-TO (FNS RELCREATEREGION \RELCREATEREGION.SIZE RELGETREGION)
+      :CHANGES-TO (FNS CLOSEWITH MOVEWITH MOVEWITH.DOIT CLOSEWITH.DOIT)
 
-      :PREVIOUS-DATE "25-Jan-2022 15:38:10" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>REGIONMANAGER.;105)
+      :PREVIOUS-DATE "28-Jan-2022 16:55:38" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>REGIONMANAGER.;108)
 
 
 (PRETTYCOMPRINT REGIONMANAGERCOMS)
@@ -36,6 +36,7 @@
         (* ;; "Composite application construction")

 
         (COMS (FNS RM-ATTACHWINDOW)
+              (FNS CLOSEWITH CLOSEWITH.DOIT MOVEWITH MOVEWITH.DOIT)
               (P (MOVD? 'ATTACHWINDOW 'ATTACHWINDOW.ORIG)
                  (MOVD 'RM-ATTACHWINDOW 'ATTACHWINDOW))
               (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS RFIELDDIFF])
@@ -613,6 +614,39 @@
                      (WINDOWPROP WINDOWTOATTACH 'PASSTOMAINCOMS WINDOWCOMACTION))))
          VAL])
 )
+(DEFINEQ
+
+(CLOSEWITH

+  [LAMBDA (CHILDREN PARENT)
                                  (* ; "Edited 28-Jan-2022 23:51 by rmk")

+    [FOR
 C ONE INSIDE
 CHILDREN WHEN
 (AND C (SETQ C (WFROMDS C))) DO
 (SETQ ONE T)
+                                                                    (WINDOWADDPROP PARENT
+                                                                           'CLOSECHILDREN C)
+       FINALLY
 (CL:WHEN ONE
+                   (WINDOWADDPROP PARENT 'CLOSEFN (FUNCTION CLOSEWITH.DOIT)))]
+    PARENT])
+
+(CLOSEWITH.DOIT

+  [LAMBDA (PARENT)
                                           (* ; "Edited 28-Jan-2022 17:54 by rmk")

+    (FOR
 C IN
 (WINDOWPROP PARENT 'CLOSECHILDREN) WHEN
 (OPENWP C) DO
 (CLOSEW C))
+    (WINDOWPROP PARENT 'CLOSECHILDREN NIL)
+    PARENT])
+
+(MOVEWITH

+  [LAMBDA (CHILDREN PARENT)
                                  (* ; "Edited 28-Jan-2022 23:43 by rmk")

+    [FOR
 C ONE INSIDE
 CHILDREN WHEN
 (AND C (SETQ C (WFROMDS C))) DO
 (SETQ ONE T)
+                                                                    (WINDOWADDPROP PARENT
+                                                                           'MOVECHILDREN C)
+       FINALLY
 (CL:WHEN ONE
+                   (WINDOWADDPROP PARENT 'MOVEFN (FUNCTION MOVEWITH.DOIT)))]
+    PARENT])
+
+(MOVEWITH.DOIT

+  [LAMBDA (PARENT NEWPOS)
                                    (* ; "Edited 28-Jan-2022 22:34 by rmk")

+    [FOR
 C (DELTA _ (PTDIFFERENCE NEWPOS (WINDOWPOSITION PARENT))) IN
 (WINDOWPROP PARENT 
+                                                                             'MOVECHILDREN)
+       DO
 (MOVEW C (PTPLUS DELTA (WINDOWPOSITION C]
+    PARENT])
+)
 
 (MOVD? 'ATTACHWINDOW 'ATTACHWINDOW.ORIG)
 
@@ -626,9 +660,10 @@
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1612 3799 (SET-TYPED-REGIONS 1622 . 3797)) (3800 10801 (RM-CREATEW 3810 . 6317) (
-RM-CLOSEW 6319 . 7720) (RM-GETREGION 7722 . 10308) (CLOSE-TYPED-W 10310 . 10799)) (11717 19196 (
-RELCREATEREGION 11727 . 16350) (RELGETREGION 16352 . 18959) (RELCREATEPOSITION 18961 . 19194)) (19197 
-24499 (\RELCREATEREGION.REF 19207 . 22239) (\RELCREATEREGION.SIZE 22241 . 24497)) (24552 33894 (
-RM-ATTACHWINDOW 24562 . 33892)))))
+  (FILEMAP (NIL (1677 3864 (SET-TYPED-REGIONS 1687 . 3862)) (3865 10866 (RM-CREATEW 3875 . 6382) (
+RM-CLOSEW 6384 . 7785) (RM-GETREGION 7787 . 10373) (CLOSE-TYPED-W 10375 . 10864)) (11782 19261 (
+RELCREATEREGION 11792 . 16415) (RELGETREGION 16417 . 19024) (RELCREATEPOSITION 19026 . 19259)) (19262 
+24564 (\RELCREATEREGION.REF 19272 . 22304) (\RELCREATEREGION.SIZE 22306 . 24562)) (24617 33959 (
+RM-ATTACHWINDOW 24627 . 33957)) (33960 35694 (CLOSEWITH 33970 . 34497) (CLOSEWITH.DOIT 34499 . 34779) 
+(MOVEWITH 34781 . 35304) (MOVEWITH.DOIT 35306 . 35692)))))
 STOP