Merge (rebase) Cleanup-character-IO-interfaces with master (#356)

* Cleanup  of character IO interface

Committing this branch for further testing.  I know at least that the TTY output stream somehow is defaulting to :XCCS, which is wrong, but I haven't yet found the interface for that.

* Clean out \NSIN etc

No top-level calls to the NS specific functions, just to the generic \OUTCHAR etc.

Updated full.database

* MODERNIZE: added dragging for fixed-menu windows

They can be dragged by their title bars

* UNICODE:  Added Greek to the default set

Also made spelling of default-externalformats consistent with FILEIO

* FASLOAD: EOL conversion in FASL::READ-TEXT

EOL's printed as LF's will be read as EOL

* LLREAD:  Added meta as a CHARACTERSETNAME

meta,a maps to 1,a now.  But slowly propagating this to TEDIT, SEDIT, etc will make it easier to change the coding of meta characters, e.g. as part of a Unicode transition.

* APRINT FILEIO LLREAD: \OUTCHAR now a closed function

Removed the macro

* LLKEY: call CHARCODE.DECODE directory in \KEYACTION1

Minor cleanup, avoid typical user entry and APPLY*

* WHEELSCROLL: re-enable on AFTERMAKESYS/SYSOUT FORMS

Also sets up mappings in the \COMMANDKEYACTIONS, whatever that is

* ABASIC:  NILL and ZERO change from LAMBDA NOBIND to LAMBDA NIL

So that things like Masterscope don't break

* MASTERSCOPE:  Added WHEREIS as last-resort for CONTAINS

Looks at the WHEREIS database, if present, for FNS and FUNCTIONS if it has no other information.  . WHO CONTAINS ANY CALLING FOO works, but not the inverse:  . WHO DOES FUM CONTAIN.  We still need to figure out why the CONTAINS table isn't populated

* POSTSCRIPTSTREAM: use standard \OUTCHAR conventions

Now uses generic \OUTCHAR to get the proper function from the stream (or default)

* Recompile with right EXPORTS.ALL

Some of the macros weren't correct.

* Fix POSTSCRIPTSTREAM

Cleaner separation between external \OUTCHAR and internal BOUT

* POSTSCRIPTSTREAM gets its own external format

* Minor fix

* Compile-time warning about EXPORTS.ALL

* MODERNIZE:  Modern button fn has same args as the original

For Notecards  #343

* Fixed another glitch in the MODERNIZE  arglist thing

\TEDIT.BUTTONEVENTFN actually takes a second STREAM argument.  I don't see where it is ever called with that.  The modernize replacement binds that argument, but it isn't being passed to the original.

* FILEWATCH:  added missing record field

* Update FILEWATCH.LCOM

* Eliminating record/type name conflicts

Mostly just qualifying references, more work to get BIGBITMAP stuff out of ADISPLAY and to eliminate ambiguity of LINE record (now XXLINE in XXGEOM)

* Compile away open calls to \OUTCHAR, add loadups/full.database

Mostly new LCOMS where \OUTCHAR calls were compiled open

* Remove garbage library/XCCS

Old tools for reading wikipedia XCCS tables, sources/XCCS will deal with XCCS external format

* Next step:  Remove open input-character calls, factor XCCS to separate file

XCCS is the default, but can be swapped out (eventually) by setting a few variables, without recompiling everything

* Lots of residual cleanup for XCCS isolation

* Delete old file MACINTERFACE (migrated to MODERNIZE)

* Eliminate straggling NS calls:  LAFITE, READINTERPRESS

* Typo

* READINTERPRESS:  removed CHARSET

* MODERNIZE: Interface to control title-bar response (for Notecards)

* Many changes for external format name consistency

Very close to the end of this

* Put :FORMAT in file info, fix TEDIT plaintext hardcopy

I distributed :FORMAT :XCCS as the default marking, but somehow one of the variables seems to get revert during the loadup.  This is correct, as far as it goes.

* Getting the format in the file-info

This is all very twisty, different variables set in different places.  It now seems to do the right thing, at least for new files.  Marks them with :FORMAT :XCCS.

* Another fileinfo glitch

* CLIPBOARD -UNICODE:  Make UTF8 to UTF-8 to match standards

* MODERNIZE:  fix bug in MODERWINDOW

* External format as MAKEFILE option, LOAD applies the file's format

(MAKEFILE 'XX '((FORMAT :UTF-8)))
  will dump XX as a UTF-8 file.  LOAD will load it back to XCCS internal.

* Compilers respect DEFINE-FILE-INFO format

* MODERNIZE:  little glitch

* Delete old FILEIO.LCOM

* More edge cases of external format thru MAKEFILE, PRETTY, PRETTYFILEINDEX etc.

* FILEBROWSER:  Can SEE UTF-8 Lisp sourcefile

* INSPECT:  Better macro for inspecting readtables

* recompile changed files and do new loadup

Co-authored-by: rmkaplan <ron.kaplan@post.harvard.edu>

sources/ABASIC

@@ -1,13 +1,15 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "16-May-90 11:43:16" {DSK}<usr>local>lde>lispcore>sources>ABASIC.;2
 24522  
+
(FILECREATED " 9-Jun-2021 19:40:59" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ABASIC.;2
 24528  
 
-      changes to%:  (VARS ABASICCOMS)
+      changes to%:  (FNS NILL ZERO)
 
-      previous date%: "10-Nov-87 13:01:39" {DSK}<usr>local>lde>lispcore>sources>ABASIC.;1)
+      previous date%: "16-May-90 11:43:16" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ABASIC.;1)
 
 
 (* ; "
-Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1982-1987, 1990, 2021 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT ABASICCOMS)
@@ -17,8 +19,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat
         (FNS NILL EVQ TRUE ZERO CL:IDENTITY DUMMYDEF NOTIMP)
         (P (DUMMYDEF (WINDOWWORLDP NILL)))
         (FNS EQUAL NEQ NULL NOT)
-        (COMS                                                (* ; 
-
                                     "Belong on ACODE except they would clobber 10-versions in ABC")

+        (COMS                                                (* ; 
+
                                     "Belong on ACODE except they would clobber 10-versions in ABC")

               (FNS LAPRD DEFC CGETD))
         (FNS NCONC \NCONC2 SORT MERGE SORT1 FASSOC FLAST FLENGTH FMEMB FNTH LIST LIST* COUNT)
         (FNS CHANGENAME1 CHANGENAME1A)
@@ -26,15 +28,15 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat
              CDDADR CDDAAR CDAAAR CADADR CDADDR CDADAR CAADDR CDAADR CAADAR CADDDR CADAAR CADDAR 
              CAAADR)
         (FNS SYSTEMTYPE)
-        (COMS                                                (* ; 
-
                                              "Because can't have bignums in code at makeinit time")

+        (COMS                                                (* ; 
+
                                              "Because can't have bignums in code at makeinit time")

               (VARS (\IMAX.FLOAT (FIX MAX.FLOAT))
                     (\IMIN.FLOAT (FIX MIN.FLOAT)))
               (GLOBALVARS \IMAX.FLOAT \IMIN.FLOAT))
         (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
                (ADDVARS (NLAMA DUMMYDEF)
                       (NLAML)
-                      (LAMA LIST* LIST NCONC NOTIMP ZERO TRUE NILL])
+                      (LAMA LIST* LIST NCONC NOTIMP ZERO NILL])
 (DEFINEQ
 
 (EVALQT

@@ -62,7 +64,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat
 (DEFINEQ
 
 (NILL

-  [LAMBDA NOBIND                                             (* lmm " 4-OCT-83 03:05")
+  [LAMBDA NIL
                                           (* ; "Edited  9-Jun-2021 19:40 by rmk:")

     NIL])
 
 (EVQ

@@ -74,7 +76,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat
     T])
 
 (ZERO

-  [LAMBDA NOBIND                                             (* lmm " 4-OCT-83 03:05")
+  [LAMBDA NIL
                                           (* ; "Edited  9-Jun-2021 19:40 by rmk:")

     0])
 
 (CL:IDENTITY

@@ -644,7 +646,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat
 
 (ADDTOVAR NLAML
 )
 
-(ADDTOVAR LAMA
 LIST* LIST NCONC NOTIMP ZERO TRUE NILL)
+(ADDTOVAR LAMA
 LIST* LIST NCONC NOTIMP ZERO NILL)
 )
 (PRETTYCOMPRINT ABASICCOMS)
 
@@ -653,8 +655,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat
         (FNS NILL EVQ TRUE ZERO CL:IDENTITY DUMMYDEF NOTIMP)
         (P (DUMMYDEF (WINDOWWORLDP NILL)))
         (FNS EQUAL NEQ NULL NOT)
-        (COMS                                                (* ; 
-
                                     "Belong on ACODE except they would clobber 10-versions in ABC")

+        (COMS                                                (* ; 
+
                                     "Belong on ACODE except they would clobber 10-versions in ABC")

               (FNS LAPRD DEFC CGETD))
         (FNS NCONC \NCONC2 SORT MERGE SORT1 FASSOC FLAST FLENGTH FMEMB FNTH LIST LIST* COUNT)
         (FNS CHANGENAME1 CHANGENAME1A)
@@ -662,38 +664,38 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat
              CDDADR CDDAAR CDAAAR CADADR CDADDR CDADAR CAADDR CDAADR CAADAR CADDDR CADAAR CADDAR 
              CAAADR)
         (FNS SYSTEMTYPE)
-        (COMS                                                (* ; 
-
                                              "Because can't have bignums in code at makeinit time")

+        (COMS                                                (* ; 
+
                                              "Because can't have bignums in code at makeinit time")

               (VARS (\IMAX.FLOAT (FIX MAX.FLOAT))
                     (\IMIN.FLOAT (FIX MIN.FLOAT)))
               (GLOBALVARS \IMAX.FLOAT \IMIN.FLOAT))
         (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
                (ADDVARS (NLAMA DUMMYDEF)
                       (NLAML)
-                      (LAMA LIST* LIST NCONC NOTIMP ZERO NILL])
+                      (LAMA LIST* LIST NCONC NOTIMP])
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
 (ADDTOVAR NLAMA
 DUMMYDEF)
 
 (ADDTOVAR NLAML
 )
 
-(ADDTOVAR LAMA
 LIST* LIST NCONC NOTIMP ZERO NILL)
+(ADDTOVAR LAMA
 LIST* LIST NCONC NOTIMP)
 )
-(PUTPROPS ABASIC COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990))
+(PUTPROPS ABASIC COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1772 2517 (EVALQT 1782 . 2275) (\SystemERROR 2277 . 2515)) (2518 3516 (NILL 2528 . 2634
-) (EVQ 2636 . 2737) (TRUE 2739 . 2843) (ZERO 2845 . 2949) (CL:IDENTITY 2951 . 3064) (DUMMYDEF 3066 . 
-3377) (NOTIMP 3379 . 3514)) (3553 8305 (EQUAL 3563 . 8173) (NEQ 8175 . 8222) (NULL 8224 . 8263) (NOT 
-8265 . 8303)) (8383 10259 (LAPRD 8393 . 8884) (DEFC 8886 . 10169) (CGETD 10171 . 10257)) (10260 19969 
-(NCONC 10270 . 10673) (\NCONC2 10675 . 10870) (SORT 10872 . 11256) (MERGE 11258 . 14142) (SORT1 14144
- . 17315) (FASSOC 17317 . 17553) (FLAST 17555 . 17801) (FLENGTH 17803 . 18118) (FMEMB 18120 . 18479) (
-FNTH 18481 . 18963) (LIST 18965 . 19268) (LIST* 19270 . 19640) (COUNT 19642 . 19967)) (19970 20799 (
-CHANGENAME1 19980 . 20471) (CHANGENAME1A 20473 . 20797)) (20800 22254 (CDDR 20810 . 20851) (CDAR 20853
- . 20894) (CADR 20896 . 20937) (CAAR 20939 . 20980) (CDDDR 20982 . 21029) (CDDAR 21031 . 21078) (CDADR
- 21080 . 21127) (CDAAR 21129 . 21176) (CADDR 21178 . 21225) (CADAR 21227 . 21274) (CAADR 21276 . 21323
-) (CAAAR 21325 . 21372) (CDDDDR 21374 . 21427) (CAAAAR 21429 . 21482) (CDDDAR 21484 . 21537) (CDDADR 
-21539 . 21592) (CDDAAR 21594 . 21647) (CDAAAR 21649 . 21702) (CADADR 21704 . 21757) (CDADDR 21759 . 
-21812) (CDADAR 21814 . 21867) (CAADDR 21869 . 21922) (CDAADR 21924 . 21977) (CAADAR 21979 . 22032) (
-CADDDR 22034 . 22087) (CADAAR 22089 . 22142) (CADDAR 22144 . 22197) (CAAADR 22199 . 22252)) (22255 
-22481 (SYSTEMTYPE 22265 . 22479)))))
+  (FILEMAP (NIL (1762 2507 (EVALQT 1772 . 2265) (\SystemERROR 2267 . 2505)) (2508 3542 (NILL 2518 . 2642
+) (EVQ 2644 . 2745) (TRUE 2747 . 2851) (ZERO 2853 . 2975) (CL:IDENTITY 2977 . 3090) (DUMMYDEF 3092 . 
+3403) (NOTIMP 3405 . 3540)) (3579 8331 (EQUAL 3589 . 8199) (NEQ 8201 . 8248) (NULL 8250 . 8289) (NOT 
+8291 . 8329)) (8409 10285 (LAPRD 8419 . 8910) (DEFC 8912 . 10195) (CGETD 10197 . 10283)) (10286 19995 
+(NCONC 10296 . 10699) (\NCONC2 10701 . 10896) (SORT 10898 . 11282) (MERGE 11284 . 14168) (SORT1 14170
+ . 17341) (FASSOC 17343 . 17579) (FLAST 17581 . 17827) (FLENGTH 17829 . 18144) (FMEMB 18146 . 18505) (
+FNTH 18507 . 18989) (LIST 18991 . 19294) (LIST* 19296 . 19666) (COUNT 19668 . 19993)) (19996 20825 (
+CHANGENAME1 20006 . 20497) (CHANGENAME1A 20499 . 20823)) (20826 22280 (CDDR 20836 . 20877) (CDAR 20879
+ . 20920) (CADR 20922 . 20963) (CAAR 20965 . 21006) (CDDDR 21008 . 21055) (CDDAR 21057 . 21104) (CDADR
+ 21106 . 21153) (CDAAR 21155 . 21202) (CADDR 21204 . 21251) (CADAR 21253 . 21300) (CAADR 21302 . 21349
+) (CAAAR 21351 . 21398) (CDDDDR 21400 . 21453) (CAAAAR 21455 . 21508) (CDDDAR 21510 . 21563) (CDDADR 
+21565 . 21618) (CDDAAR 21620 . 21673) (CDAAAR 21675 . 21728) (CADADR 21730 . 21783) (CDADDR 21785 . 
+21838) (CDADAR 21840 . 21893) (CAADDR 21895 . 21948) (CDAADR 21950 . 22003) (CAADAR 22005 . 22058) (
+CADDDR 22060 . 22113) (CADAAR 22115 . 22168) (CADDAR 22170 . 22223) (CAAADR 22225 . 22278)) (22281 
+22507 (SYSTEMTYPE 22291 . 22505)))))
 STOP