Rmk49: responds to #800 (#803)

* TEDIT, TEXTOFD:  Pass FORMAT in PROPS to OPENSTREAM

In TEDIT and OPENTEXTSTREAM.  I don't think TEDIT interprets the external format, but at least the info is there

* WINDOW: CREATEW prompts on one line

It was calling PROMPTPRINT twice, which resulted in orphan-looking lines

* EXAMINEDEFS: Propagate textwidth to COMPARETEXT

* COMPARETEXT: propagate height/width of text windows, for linelength

#800

* GREP:  Will work with external formats, after FILEPOS update

Line printout could be better, if e.g. it is a Lisp source file, but...

* EXAMINEDEFS:  Propagate window width to COMPARETEXT, for LINELENGTH

* GITFNS: added fetch before git log

* PSEUDOHOSTS: Pseudohost-streams are now registered on the PH device, not the target device

* EXTERNALFORMAT, XCCS:  Globalvar declaration in wrong place

Also updated \CHECKEOLC macro

* GITFNS:  moved git fetch to beginning of prc

* GREP:  Propagated OUTSTREAM

sources/XCCS

@@ -1,10 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "10-Sep-2021 19:49:22" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;47
 13404  
 
-      changes to%:  (FNS \CREATE.XCCS.EXTERNALFORMAT)
+
(FILECREATED "26-Jun-2022 14:33:06" {DSK}<users>kaplan>local>medley3.5>working-medley>sources>XCCS.;48
 13142  
 
-      previous date%: "13-Aug-2021 14:08:48" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;46)
+      :CHANGES-TO (VARS XCCSCOMS)
+
+      :PREVIOUS-DATE "10-Sep-2021 19:49:22" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>sources>XCCS.;47)
 
 
 (PRETTYCOMPRINT XCCSCOMS)
@@ -15,7 +16,6 @@
         (FNS \CREATE.XCCS.EXTERNALFORMAT)
         (FNS \NSIN.24BITENCODING.ERROR)
         (INITVARS (*SIGNAL-24BIT-NSENCODING-ERROR*))
-        (GLOBALVARS \DEFAULTINCCODE \DEFAULTOUTCHAR \DEFAULTBACKCCODE \DEFAULTPEEKCCODE)
         (INITVARS (\DEFAULTINCCODE '\XCCSINCCODE)
                (\DEFAULTOUTCHAR '\XCCSOUTCHAR)
                (\DEFAULTPEEKCCODE '\XCCSPEEKCCODE)
@@ -241,10 +241,6 @@
 )
 
 (RPAQ? *SIGNAL-24BIT-NSENCODING-ERROR*
 )
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS \DEFAULTINCCODE \DEFAULTOUTCHAR \DEFAULTBACKCCODE \DEFAULTPEEKCCODE)
-)
 
 (RPAQ? \DEFAULTINCCODE
 '\XCCSINCCODE)
 
@@ -268,19 +264,19 @@
 
 (PUTPROPS \RUNCODED
 MACRO
 (OPENLAMBDA (STREAM)
 
-                                    (* ;; "returns NIL is the stream is not runcoded, that is, if the stream has 16 bit bytes explicitly represented")

+                            (* ;; "returns NIL is the stream is not runcoded, that is, if the stream has 16 bit bytes explicitly represented")

                                                              (* ; 
-
                                      "note that neq is ok since charsets are known to be SMALLP's")

-                                    (NEQ (fetch
 CHARSET of
 STREAM)
-                                         \NORUNCODE)))
+
                                        "note that neq is ok since charsets are known to be SMALLP's")

+                            (NEQ (fetch
 CHARSET of
 STREAM)
+                                 \NORUNCODE)))
 )
 
 (DEFOPTIMIZER ACCESS-CHARSET
 (STREAM &OPTIONAL NEWVALUE)
-                                 `((OPENLAMBDA (STRM)
-                                     (FDEVOP 'CHARSETFN (fetch
 (STREAM DEVICE) of
 STRM)
-                                            STRM
-                                            ,NEWVALUE))
-                                   ,STREAM))
+                             `((OPENLAMBDA (STRM)
+                                 (FDEVOP 'CHARSETFN (fetch
 (STREAM DEVICE) of
 STRM)
+                                        STRM
+                                        ,NEWVALUE))
+                               ,STREAM))
 
 (* "END EXPORTED DEFINITIONS")
 
@@ -290,8 +286,8 @@
 (\CREATE.XCCS.EXTERNALFORMAT
)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1319 1548 (ACCESS-CHARSET 1329 . 1546)) (1549 10417 (\XCCSINCCODE 1559 . 4331) (
-\XCCSPEEKCCODE 4333 . 6869) (\XCCSOUTCHAR 6871 . 9091) (\XCCSBACKCCODE 9093 . 10088) (
-\XCCSFORMATBYTESTREAM 10090 . 10415)) (10418 10976 (\CREATE.XCCS.EXTERNALFORMAT 10428 . 10974)) (10977
- 11808 (\NSIN.24BITENCODING.ERROR 10987 . 11806)))))
+  (FILEMAP (NIL (1218 1447 (ACCESS-CHARSET 1228 . 1445)) (1448 10316 (\XCCSINCCODE 1458 . 4230) (
+\XCCSPEEKCCODE 4232 . 6768) (\XCCSOUTCHAR 6770 . 8990) (\XCCSBACKCCODE 8992 . 9987) (
+\XCCSFORMATBYTESTREAM 9989 . 10314)) (10317 10875 (\CREATE.XCCS.EXTERNALFORMAT 10327 . 10873)) (10876 
+11707 (\NSIN.24BITENCODING.ERROR 10886 . 11705)))))
 STOP