reduce changes: no separate MAKEFILE-NEW but fix so it will not copy from previous version if you do MAKEFILE(something NEW).

A few fixes to UNICODE that I stumbled across.

README.md

@@ -1,45 +1,43 @@
 # Medley 
 
-This repository is for the Lisp environment of [Medley Interlisp](https://Interlisp.org).
+This repository is for the Lisp environment of [Medley](https://interlisp.org).
 
-See the [Documentation links](https://github.com/Interlisp/medley/wiki/Documentation) for an overview and pointers to documentation.
-In particular [Running](https://github.com/Interlisp/medley/wiki/Running) explains other methods of getting Medley Interlisp.
+[Install and Run](https://interlisp.org/software/install-and-run) covers ways to install and start up Medley on Linux systems, MacOS, and Windows (with or without WSL).
 
-[Interlisp/maiko](https://github.com/Interlisp/maiko), is the repo for the implementation (in C) of the Medley virtual machine.
+[Using Medley](https://interlisp.org/software/using-medley/) has an overview and pointers to documentation.
 
-## Using releases
+[Interlisp/maiko](https://github.com/Interlisp/maiko), is the repo for the implementation (in C) of the Medley virtual machine. 
 
-There currently are separate releases of medley and maiko; get the latest version of each.
+## Releases
 
-### Getting releases
+While there are installers for popular platforms, this section may be useful in some circumstances.
 
-Get the Maiko release [here](https://github.com/Interlisp/maiko/releases). You'll need the .tgz file corresponding to your operating system and processor (for Windows with WSL or Intel Linux, use `linux.x86_64`; for Macs use `darwin.x86_64` for Intel and `darwin.aarch64` for M1.)
+### Getting releases 
 
-Or, build your own maiko (the binaries `lde` `ldex` and `ldeinit`) We can build for other OS arch pairs depending on what is available for GitHub actions.
+Get the Maiko release [here](https://github.com/Interlisp/maiko/releases). You'll need the .tgz file corresponding to your operating system and processor. For Windows with WSL or Intel Linux, use `linux.x86_64`; for Macs use `darwin.x86_64` for Intel and `darwin.aarch64` for Mac silicon. Windows without WSL uses `cygwin` instead.
 
-The medley release comes in two parts, found [here](https://github.com/Interlisp/medley/releases)
-1. The "loadups" (download `medley-`YYMMDD`-loadups.tgz`)
-2. The "runtime" (download `medley-`YYMMDD`-runtime.tgz`)
+Or, build your own maiko (the binaries `lde`, `ldex` OR `ldesdl`, and `ldeinit`).
+You can also build for other architectures
 
-You don't need the "runtime" if you've cloned this (medley) repo, but you'll still need the "loadups" release.
+The medley release image and sources come in two parts, found [here](https://github.com/Interlisp/medley/releases)
+1. The "loadups" (download `medley-`_YYMMDD-XXXXX_`-loadups.tgz`)
+2. The "runtime" (download `medley-`_YYMMDD-XXXXX_`-runtime.tgz`)
 
-If you happen to have the 'gh' GitHub command line installed you can download both using
-```
-   gh release download -R Interlisp/medley -p "*"
-```
-but otherwise just click on the link(s) below to the parts you need.
+where _YYMMDD_ is the date and _XXXXX_ is the GitHub commit ID.
+
+The "runtime" isn't needed if you've cloned the (medley) repo--you have all the files. The "runtime" has extra fonts, unicode tables, and source code that aren't part of the loadups but may be called on.
 
 ### Unpacking releases
 
 From a shell/terminal window:
 
-1. Choose where you want to install medley and maiko.
-Unpack the medley loadups file
+1. Choose a directory _parent_ where you want to install medley and maiko. 
+2. Unpack the medley loadups file
 
-*  `cd ` ~parent~
-*  `tar xvzf medley-`YYMMDD`-loadups.tgz`
+* `cd ` _parent_
+* `tar xvzf medley-`_YYMMDD-XXXXX_`-loadups.tgz`
 
-2. Unpack the medley runtime OR clone the Medley repo
+3. Unpack the medley runtime OR clone the Medley repo
    (the "medley runtime" is just a subset of the whole repo)
    
 * `tar xvzf medley-`YYMMDD`-runtime.tgz` 
@@ -49,25 +47,27 @@ Unpack the medley loadups file
    git clone https://github.com/Interlisp/medley
    ```
    
-3. Unpack the maiko file for your operating system and CPU type, e.g.,
+4. Unpack the maiko file for your operating system and CPU type, e.g.,
 
    ```
    tar xvzf maiko-210823.linux.x86_64.tgz
    ```
 
-3. This should leave you with two directories, `medley` and `maiko`.
+5. This should leave you with two directories, `medley` and `maiko`.
 
 ### Setting up X
 
-Medley Interlisp currently needs an X-Server to manage its display. Most Linux desktops have one. Windows 11 with WSL includes an X-Server. For Windows 10 with WSL2, there are a number of open-source X servers; for example vcxsrv.
+In many configurations, Medley uses an X-Server to manage its display. Most Linux desktops have one. Windows 11 with WSL includes an X-Server. For Windows 10 with WSL2, there are a number of open-source X servers; for example vcxsrv.
 
 Mac users should get [XQuartz from XQuartz.org](https://xquartz.org/releases).
 
 Medley manages the display entirely, doesn't use X fonts and manages it's own window system.
 
-If you have a high-resolution display, note that much of the graphics was designed for a low-resolution display, so an X-server that does "pixel doublilng" is best. (E.g., Raspberry Pi does pixel doubling on 4K displays.) It also presumes you have a 3-button mouse; the scroll-wheel on some mice act as one with some difficulty.) XQuartz Preferences/Input has "Emulate three button mouse" option.
+If you have a high-resolution display, note that much of the graphics was designed for a low-resolution display, so an X-server that does "pixel doubling" is best. (E.g., Raspberry Pi does pixel doubling on 4K displays.)
 
-### Running Medley Interlisp
+Medley presumes you have a 3-button mouse; the scroll-wheel on some mice acts as one, with some difficulty. Go into XQuartz Preferences/Input and check "Emulate three button mouse" option.
+
+### Running Medley Interlisp (obsolete)
 
 The `run-medley` script in this repo sets up some convenient defaults. Running Medley can be done by typing:
 ```
@@ -112,7 +112,8 @@ you can continue right where you left off.
 File Names and Extensions: Most Interlisp source file names are
 UPPERCASE and Interlisp didn't use file extensions for its source
 files. A .TEDIT or .TXT file is probably documentation
-for the package of same name, at least in the library, lispusers.
+for the package of the same name, at least in the library and lispusers
+directories.
 
 The current repo has both Lisp sources and compiled .LCOM and .DFASL
 files.
@@ -121,9 +122,8 @@ Each directory should have a README.md, but briefly
 
 * BUILDING.md -- instructions on how to make your own loadups
 * clos -- early implementation of Common Lisp Object System
-* CLTL2 -- files submitted to bring Medley up to the conformance to "Common Lisp, the Language" 2nd edition. Not enough to conform to the ANSII standard lisp.
-* Dockerfile -- used when building Docker containers with Medley
-* docs -- Documentation files (in TEdit format PDFs or online help; look [here](https://github.com/Interlisp/medley/Documentation)
+* CLTL2 -- files submitted to bring Medley up to the conformance to "Common Lisp, the Language" 2nd edition. Not enough to conform to the ANSI standard lisp.
+* docs -- Documentation files (in TEdit format, PDFs, or online help; look [here](https://github.com/Interlisp/medley/Documentation))
 * fonts -- raster fonts (or font widths) in various resolutions for display, postscript, interpress, press formats
 * greetfiles -- various configuration setups
 * internal -- These _were_ internal to Venue
@@ -133,11 +133,6 @@ Each directory should have a README.md, but briefly
 * obsolete  -- files we should remove from the repo
 * rooms -- implementation of ROOMS window/desktop manager
 * run-medley -- script to enhance the options of running medley
-* scripts  -- some scripts for fixing up things
+* scripts  -- some scripts for fixing up things, building and running medley
 * sources   -- sources for Interlisp and Common Lisp implementations
 * unicode  -- data files for support of XCCS to and from Unicode mappings
-
-plus
-   Dockerfile, and scripts for building and running medley
-   tmp directory for use during build processes
-

library/HRULE

@@ -1,16 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "25-Jul-2022 15:09:26" {DSK}<Users>kaplan>Local>medley3.5>working-medley>library>HRULE.;4
 23801  
+
(FILECREATED "26-Nov-2023 09:46:44" {WMEDLEY}<library>HRULE.;5
 23918  
 
-      :CHANGES-TO (VARS HRULECOMS)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "25-Jul-2022 15:07:00" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>HRULE.;3)
+      :CHANGES-TO (FNS HRULE.CREATE VRULE.CREATE CROPMARK.CREATE)
 
+      :PREVIOUS-DATE "25-Jul-2022 15:09:26" {WMEDLEY}<library>HRULE.;4)
 
-(* ; "
-Copyright (c) 1985, 1990-1992 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT HRULECOMS)
 
@@ -90,30 +87,27 @@ Copyright (c) 1985, 1990-1992 by Venue & Xerox Corporation.
 (DEFINEQ
 
 (HRULE.CREATE

-  [LAMBDA (WIDTH)
                                        (* jds "11-Sep-85 16:36")

+  [LAMBDA (WIDTH)
                                            (* ; "Edited 26-Nov-2023 09:45 by rmk")

+                                                             (* jds "11-Sep-85 16:36")

 
-         (* * Create a Horizontal-Rule image object.
-
       WIDTH may be NIL to default, a number, for a single rule with its width in 
-
       points (and fractions thereof)%, or a list of alternating black and white 
-
       widths. E.g., to get a hairline over 1pt white over 3pt rule, specify
-
       (0.5 1 3))

+(* ;;; "Create a Horizontal-Rule image object.  WIDTH may be NIL to default, a number, for a single rule with its width in points (and fractions thereof), or a list of alternating black and white widths.  E.g., to get a hairline over 1pt white over 3pt rule, specify (0.5 1 3)")

 
     (PROG ((HRULE (IMAGEOBJCREATE NIL HRULE.IMAGEFNS)))
           (COND
-             ((NOT WIDTH)                                    (* USe the default width)

+             ((NOT WIDTH)                                    (* ; "USe the default width")

               (IMAGEOBJPROP HRULE 'RULE.WIDTH HRULE.DEFAULT.WIDTH)
               (RETURN HRULE))
              ((NUMBERP WIDTH)
               (IMAGEOBJPROP HRULE 'RULE.WIDTH WIDTH)
               (RETURN HRULE))
              ((AND (LISTP WIDTH)
-                   (EVERY WIDTH (FUNCTION NUMBERP)))         (* It's a list of numbers.
-
                                                           Add (QUOTE em) up)

+                   (EVERY WIDTH (FUNCTION NUMBERP)))         (* ; 
+
                                                         "It's a list of numbers.  Add (QUOTE em) up")

               (IMAGEOBJPROP HRULE 'RULE.WIDTH WIDTH)
               (RETURN HRULE))
-             (T                                              (* Something was specified, and 
-
                                                           there was a non-number in it...)

-                (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "Non-numeric widths not desirable: " WIDTH)
+             (T                                              (* ; 
+
                                       "Something was specified, and there was a non-number in it...")

+                (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "HRULE with non-numeric width: " WIDTH)
                        T])
 
 (HRULE.DISPLAYFN

@@ -233,8 +227,9 @@ Copyright (c) 1985, 1990-1992 by Venue & Xerox Corporation.
 (DEFINEQ
 
 (VRULE.CREATE

-  [LAMBDA (WIDTH HEIGHT DASHING)
              (* ; 
-
                                                "Edited  8-Oct-92 16:46 by sybalsky:mv:envos")

+  [LAMBDA (WIDTH HEIGHT DASHING)
                             (* ; "Edited 26-Nov-2023 09:45 by rmk")

+                                                             (* ; 
+
                                                        "Edited  8-Oct-92 16:46 by sybalsky:mv:envos")

 
     (* ;; "Create a Vertical-Rule image object.  HEIGHT may be NIL to default, a number, for a single rule with its width in points (and fractions thereof), or a list of alternating black and white widths.  E.g., to get a hairline over 1pt white over 3pt rule, specify (0.5 1 3)")

 
@@ -246,7 +241,7 @@ Copyright (c) 1985, 1990-1992 by Venue & Xerox Corporation.
               (IMAGEOBJPROP VRULE 'RULE.WIDTH WIDTH))
              ((AND (LISTP WIDTH)
                    (EVERY WIDTH (FUNCTION NUMBERP)))         (* ; 
-
                                                           "It's a list of numbers.  Add 'em up")

+
                                                             "It's a list of numbers.  Add 'em up")

               (IMAGEOBJPROP VRULE 'RULE.WIDTH WIDTH)))
           (COND
              ((NOT HEIGHT)                                   (* ; "Use the default width")

@@ -257,12 +252,12 @@ Copyright (c) 1985, 1990-1992 by Venue & Xerox Corporation.
               (RETURN VRULE))
              ((AND (LISTP HEIGHT)
                    (EVERY HEIGHT (FUNCTION NUMBERP)))        (* ; 
-
                                                           "It's a list of numbers.  Add 'em up")

+
                                                             "It's a list of numbers.  Add 'em up")

               (IMAGEOBJPROP VRULE 'RULE.HEIGHT HEIGHT)
               (RETURN VRULE))
              (T                                              (* ; 
-
                                     "Something was specified, and there was a non-number in it...")

-                (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "Non-numeric widths not desirable: " HEIGHT)
+
                                       "Something was specified, and there was a non-number in it...")

+                (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "VRULE with non-numeric height: " HEIGHT)
                        T)))
           (IMAGEOBJPROP VRULE 'RULE.DASHING DASHING])
 
@@ -392,7 +387,8 @@ Copyright (c) 1985, 1990-1992 by Venue & Xerox Corporation.
 (DEFINEQ
 
 (CROPMARK.CREATE

-  [LAMBDA (WIDTH HEIGHT)
                                 (* ; "Edited  5-Jun-91 14:56 by jds")

+  [LAMBDA (WIDTH HEIGHT)
                                     (* ; "Edited 26-Nov-2023 09:46 by rmk")


+                                                             (* ; "Edited  5-Jun-91 14:56 by jds")

 
     (* ;; "Create a CROPMARK, that prints crop-marks for a page that is WIDTH points wide and HEIGHT points high.")

 
@@ -406,12 +402,12 @@ Copyright (c) 1985, 1990-1992 by Venue & Xerox Corporation.
               (RETURN CROPMARK))
              ((AND (LISTP HEIGHT)
                    (EVERY HEIGHT (FUNCTION NUMBERP)))        (* ; 
-
                                                           "It's a list of numbers.  Add 'em up")

+
                                                             "It's a list of numbers.  Add 'em up")

               (IMAGEOBJPROP CROPMARK 'PAGE.SIZE (LIST WIDTH HEIGHT))
               (RETURN CROPMARK))
              (T                                              (* ; 
-
                                     "Something was specified, and there was a non-number in it...")

-                (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "Non-numeric widths not desirable: " HEIGHT)
+
                                       "Something was specified, and there was a non-number in it...")

+                (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "CROPMARK with non-numeric height: " HEIGHT)
                        T])
 
 (CROPMARK.DISPLAYFN

@@ -508,14 +504,13 @@ Copyright (c) 1985, 1990-1992 by Venue & Xerox Corporation.
              (FUNCTION NILL)
              (FUNCTION CROPMARK.WHENOPERATEDONFN)
              (FUNCTION NILL)))
-(PUTPROPS HRULE COPYRIGHT ("Venue & Xerox Corporation" 1985 1990 1991 1992))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4512 10691 (HRULE.CREATE 4522 . 5944) (HRULE.DISPLAYFN 5946 . 8515) (HRULE.GETFN 8517
- . 8837) (HRULE.IMAGEBOXFN 8839 . 9641) (HRULE.PUTFN 9643 . 10021) (HRULE.COPYFN 10023 . 10487) (
-HRULE.WHENOPERATEDONFN 10489 . 10689)) (11583 17788 (VRULE.CREATE 11593 . 13592) (VRULE.DISPLAYFN 
-13594 . 15788) (VRULE.GETFN 15790 . 16011) (VRULE.GETFN2 16013 . 16349) (VRULE.IMAGEBOXFN 16351 . 
-16779) (VRULE.PUTFN 16781 . 17179) (VRULE.COPYFN 17181 . 17584) (VRULE.WHENOPERATEDONFN 17586 . 17786)
-) (18427 23077 (CROPMARK.CREATE 18437 . 19704) (CROPMARK.DISPLAYFN 19706 . 21206) (CROPMARK.GETFN 
-21208 . 21502) (CROPMARK.IMAGEBOXFN 21504 . 22205) (CROPMARK.PUTFN 22207 . 22485) (CROPMARK.COPYFN 
-22487 . 22870) (CROPMARK.WHENOPERATEDONFN 22872 . 23075)))))
+  (FILEMAP (NIL (4411 10637 (HRULE.CREATE 4421 . 5890) (HRULE.DISPLAYFN 5892 . 8461) (HRULE.GETFN 8463
+ . 8783) (HRULE.IMAGEBOXFN 8785 . 9587) (HRULE.PUTFN 9589 . 9967) (HRULE.COPYFN 9969 . 10433) (
+HRULE.WHENOPERATEDONFN 10435 . 10635)) (11529 17865 (VRULE.CREATE 11539 . 13669) (VRULE.DISPLAYFN 
+13671 . 15865) (VRULE.GETFN 15867 . 16088) (VRULE.GETFN2 16090 . 16426) (VRULE.IMAGEBOXFN 16428 . 
+16856) (VRULE.PUTFN 16858 . 17256) (VRULE.COPYFN 17258 . 17661) (VRULE.WHENOPERATEDONFN 17663 . 17863)
+) (18504 23271 (CROPMARK.CREATE 18514 . 19898) (CROPMARK.DISPLAYFN 19900 . 21400) (CROPMARK.GETFN 
+21402 . 21696) (CROPMARK.IMAGEBOXFN 21698 . 22399) (CROPMARK.PUTFN 22401 . 22679) (CROPMARK.COPYFN 
+22681 . 23064) (CROPMARK.WHENOPERATEDONFN 23066 . 23269)))))
 STOP

library/UNICODE

@@ -1,18 +1,20 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "19-Jul-2023 09:26:13" {WMEDLEY}<library>UNICODE.;199
 65282  
+
(FILECREATED "26-Jan-2024 14:19:50" {LIB}UNICODE.;4
 72688  
 
-      :EDIT-BY rmk
+      :EDIT-BY "mth"
 
-      :CHANGES-TO (VARS UNICODECOMS)
+      :CHANGES-TO (FNS MAKE-UNICODE-FORMATS MAKE-UNICODE-TRANSLATION-TABLES SHOWCHARS 
+                       READ-UNICODE-MAPPING-FILENAMES)
+                  (VARS UNICODECOMS)
 
-      :PREVIOUS-DATE "19-Jul-2022 15:36:40" {WMEDLEY}<library>UNICODE.;198)
+      :PREVIOUS-DATE " 8-Jan-2024 10:58:06" {LIB}UNICODE.;1)
 
 
 (PRETTYCOMPRINT UNICODECOMS)
 
 (RPAQQ UNICODECOMS

-       [(COMS 
+       ((COMS 
               (* ;; "External formats")

 
               (FNS UTF8.OUTCHARFN UTF8.INCCODEFN UTF8.PEEKCCODEFN \UTF8.BACKCCODEFN)
@@ -23,7 +25,7 @@
               (ADDVARS (*DEFAULT-EXTERNALFORMATS* (UNIX :UTF-8)))
               (FNS UNICODE.UNMAPPED)
               (FNS XCCS-UTF8-AFTER-OPEN)
-              (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNICODE.TRANSLATE))
+              (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNICODE.TRANSLATE \UTF8.GETBASEBYTE))
               (FNS XTOUCODE UTOXCODE))
         (COMS 
               (* ;; "Unicode mapping files")

@@ -45,8 +47,10 @@
               (* ;; "Set up translation tables for UTF8 and UTFBE external formats")

 
               (FNS MAKE-UNICODE-TRANSLATION-TABLES)
-              [INITVARS (DEFAULT-XCCS-CHARSETS '(LATIN SYMBOLS1 SYMBOLS2 EXTENDED-LATIN FORMS 
-                                                       SYMBOLS3 SYMBOLS4 ACCENTED-LATIN GREEK]
+              [INITVARS (DEFAULT-XCCS-CHARSETS '(LATIN JAPANESE-SYMBOLS1 JAPANESE-SYMBOLS2 
+                                                       EXTENDED-LATIN FORMS SYMBOLS1 SYMBOLS2 
+                                                       ACCENTED-LATIN1 GREEK))
+                     (DEFAULT-XCCS-JAPANESE-CHARSETS '(HIRAGANA KATAKANA JIS]
               [DECLARE%: DONTEVAL@LOAD DOCOPY (P (MAKE-UNICODE-TRANSLATION-TABLES (
                                                                                  READ-UNICODE-MAPPING
                                                                                    
@@ -55,9 +59,11 @@
                                                         '*XCCSTOUNICODE*
                                                         '*UNICODETOXCCS*]
               (GLOBALVARS *XCCSTOUNICODE* *UNICODETOXCCS*))
-        (FNS HEXSTRING UTF8HEXSTRING NUTF8CODEBYTES NUTF8STRINGBYTES XTOUSTRING XCCSSTRING)
+        (FNS UTF-8.VALIDATE HEXSTRING UTF8HEXSTRING NUTF8CODEBYTES NUTF8STRINGBYTES XTOUSTRING 
+             XCCSSTRING)
+        (FNS \UTF8.FETCHCODE)
         (FNS SHOWCHARS)
-        (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (FROM LOADUPS)
+        [DECLARE%: EVAL@COMPILE DONTCOPY (FILES (FROM LOADUPS)
                                                 EXPORTS.ALL)
                
                (* ;; "These control the layout of the translation tables.  Since many of the upper panels are sparse, doing it per-panel (128) seems more space-efficient, and residual alists can be shorter")

@@ -66,7 +72,9 @@
                       (MAX-ALIST-LENGTH 10)
                       (N-TRANSLATION-SEGMENTS (IQUOTIENT 65536 TRANSLATION-SEGMENT-SIZE))
                       (TRANSLATION-SHIFT (INTEGERLENGTH (SUB1 TRANSLATION-SEGMENT-SIZE)))
-                      (TRANSLATION-MASK (SUB1 TRANSLATION-SEGMENT-SIZE])
+                      (TRANSLATION-MASK (SUB1 TRANSLATION-SEGMENT-SIZE]
+        (PROP (FILETYPE)
+              UNICODE)))
 
 
 
@@ -402,7 +410,8 @@
 (DEFINEQ
 
 (MAKE-UNICODE-FORMATS

-  [LAMBDA (EXTERNALEOL)
                                      (* ; "Edited 19-Jul-2022 15:36 by rmk")


+  [LAMBDA (EXTERNALEOL)
                                      (* ; "Edited  8-Dec-2023 15:19 by rmk")


+                                                             (* ; "Edited 19-Jul-2022 15:36 by rmk")


                                                             (* ; "Edited  6-Aug-2021 16:08 by rmk:")

 
     (* ;; "RAW formats do not do XCCS/Unicode translation, just deal with the byte encoding.")

@@ -413,7 +422,7 @@
            (FUNCTION UTF8.PEEKCCODEFN)
            (FUNCTION \UTF8.BACKCCODEFN)
            (FUNCTION UTF8.OUTCHARFN)
-           NIL EXTERNALEOL)
+           NIL EXTERNALEOL NIL NIL NIL (FUNCTION NILL))
     (MAKE-EXTERNALFORMAT :UTF-8-RAW [FUNCTION (LAMBDA (STREAM COUNTP)
                                                 (UTF8.INCCODEFN
 STREAM COUNTP T]
            [FUNCTION (LAMBDA (STREAM NOERROR)
@@ -422,12 +431,12 @@
                        (\UTF8.BACKCCODEFN
 STREAM COUNTP T]
            [FUNCTION (LAMBDA (STREAM CHARCODE)
                        (UTF8.OUTCHARFN
 STREAM CHARCODE T]
-           NIL EXTERNALEOL)
+           NIL EXTERNALEOL NIL NIL NIL (FUNCTION NILL))
     (MAKE-EXTERNALFORMAT :UTF-16BE (FUNCTION UTF16BE.INCCODEFN)
            (FUNCTION UTF16BE.PEEKCCODEFN)
            (FUNCTION \UTF16BE.BACKCCODEFN)
            (FUNCTION UTF16BE.OUTCHARFN)
-           NIL EXTERNALEOL)
+           NIL EXTERNALEOL NIL NIL NIL (FUNCTION NILL))
     (MAKE-EXTERNALFORMAT :UTF-16BE-RAW [FUNCTION (LAMBDA (STREAM COUNTP)
                                                    (UTF16BE.INCCODEFN
 STREAM COUNTP T]
            [FUNCTION (LAMBDA (STREAM NOERROR)
@@ -436,7 +445,7 @@
                        (\UTF16BE.BACKCCODEFN
 STREAM COUNTP T]
            [FUNCTION (LAMBDA (STREAM CHARCODE)
                        (UTF16BE.OUTCHARFN
 STREAM CHARCODE T]
-           NIL EXTERNALEOL])
+           NIL EXTERNALEOL NIL NIL NIL (FUNCTION NILL])
 )
 
 (MAKE-UNICODE-FORMATS
 EXTERNALEOL)
@@ -469,15 +478,17 @@
 (DEFINEQ
 
 (XCCS-UTF8-AFTER-OPEN

-  [LAMBDA (STREAM ACCESS PARAMETERS)
                    (* ; "Edited 13-Aug-2020 11:54 by rmk:")

+  [LAMBDA (STREAM ACCESS PARAMETERS)
                         (* ; "Edited  3-Jan-2024 10:27 by rmk")


+                                                            (* ; "Edited 13-Aug-2020 11:54 by rmk:")

 
-    (* ;; "If added to STREAM-AFTER-OPEN-FNS, causes mapping files to be opened as UTF8.")

+    (* ;; 
+
    "If added to STREAM-AFTER-OPEN-FNS, causes mapping files to be opened as UTF-8. For development")

 
     (CL:WHEN (AND (STRPOS "XCCS-" (U-CASE (FULLNAME STREAM)))
                   [EQ 'TXT (U-CASE (FILENAMEFIELD (FULLNAME STREAM)
                                           'EXTENSION]
                   (NOT (ASSOC 'EXTERNALFORMAT PARAMETERS)))
-        (STREAMPROP STREAM 'EXTERNALFORMAT :UTF8))])
+        (STREAMPROP STREAM 'EXTERNALFORMAT :UTF-8))])
 )
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 (DECLARE%: EVAL@COMPILE 
@@ -492,6 +503,15 @@
                                                  CODE))
                                             [(AND X (CL:SVREF X (LOGAND CODE TRANSLATION-MASK]
                                             (T (UNICODE.UNMAPPED
 CODE TRANSLATION-TABLE])
+
+(PUTPROPS \UTF8.GETBASEBYTE
 MACRO
 ((BASE OFFSET ERROR?)      (* ; 
+
                        "Fetches the OFFSET'th byte from BASE, checking for UTF-8 validity if ERROR?")

+                                   (IF
 ERROR?
+                                       THEN
 (LET ((BYTE (\GETBASEBYTE BASE OFFSET)))
+                                                 (CL:WHEN (ILESSP BYTE 128)
+                                                        (ERROR "INVALID UTF8 BYTE" BYTE))
+                                                 BYTE)
+                                     ELSE
 (\GETBASEBYTE BASE OFFSET))))
 )
 )
 (DEFINEQ
@@ -512,24 +532,43 @@
 (DEFINEQ
 
 (READ-UNICODE-MAPPING-FILENAMES

-  [LAMBDA (FILESPEC)
                                  (* ; "Edited  5-Aug-2020 15:59 by kaplan")


+  [LAMBDA (FILESPEC DIRS)
                                    (* ; "Edited 26-Jan-2024 14:02 by mth")


+                                                             (* ; "Edited  5-Jan-2024 17:24 by rmk")


+                                                          (* ; "Edited  5-Aug-2020 15:59 by kaplan")


                                                             (* ; "Edited  4-Aug-2020 17:31 by rmk:")

-    (FOR
 F X CSI INSIDE
 FILESPEC
-       COLLECT
 (IF
 (FINDFILE (PACKFILENAME 'BODY F 'EXTENSION 'TXT)
-                                  T UNICODEDIRECTORIES)
-                     ELSEIF
 [SETQ CSI (OR (SASSOC F XCCS-SET-NAMES)
-                                              (FIND
 N IN
 XCCS-SET-NAMES
-                                                 SUCHTHAT
 (EQ F (CADR N]
-                       THEN
 (FINDFILE (PACKFILENAME 'BODY (CONCAT 'XCCS- (CAR CSI)
-                                                                     '=
-                                                                     (CADR CSI))
-                                                 'EXTENSION
-                                                 'TXT)
-                                       T UNICODEDIRECTORIES)
-                     ELSE
 F])
+    (DECLARE
 (USEDFREE UNICODEDIRECTORIES XCCS-SET-NAMES))
+    (CL:UNLESS DIRS (SETQ DIRS UNICODEDIRECTORIES))
+    (FOR
 F X CSI INSIDE
 FILESPEC JOIN
 
+                                      (* ;; 
+
            "Last case hopes to pick up tables that are gruped together in a subdirectory (e.g. JIS)")

+
+                                      (OR (MKLIST (FINDFILE (PACKFILENAME 'BODY F 'EXTENSION
+                                                                   'TXT)
+                                                         T DIRS))
+                                          (for
 D inside
 DIRS
+                                             when
 (SETQ D (FILDIR (PACKFILENAME 'NAME
+                                                                         (CONCAT "XCCS-*=" F)
+                                                                         'EXTENSION
+                                                                         'TXT
+                                                                         'BODY D)))
+                                             do
 (RETURN D))
+                                          (AND [SETQ CSI (OR (SASSOC F XCCS-SET-NAMES)
+                                                             (FIND
 N IN
 XCCS-SET-NAMES
+                                                                SUCHTHAT
 (EQ F (CADR N]
+                                               (MKLIST (FINDFILE (PACKFILENAME 'BODY
+                                                                        (CONCAT 'XCCS- (CAR CSI)
+                                                                               '=
+                                                                               (CADR CSI))
+                                                                        'EXTENSION
+                                                                        'TXT)
+                                                              T DIRS)))
+                                          (for
 D inside
 DIRS
+                                             when
 (DIRECTORYNAMEP (SETQ D (CONCAT D ">" F ">")))
+                                             join
 (FILDIR (CONCAT D ">*.TXT;*"])
 
 (READ-UNICODE-MAPPING

-  [LAMBDA (FILESPEC NOPRINT NOERROR)
                    (* ; "Edited  3-Jul-2021 13:37 by rmk:")

+  [LAMBDA (FILESPEC NOPRINT NOERROR)
                         (* ; "Edited  5-Jan-2024 12:26 by rmk")


+                                                            (* ; "Edited  3-Jul-2021 13:37 by rmk:")

 
     (* ;; "Combines the char-mapping tables from FILES coded in the Uncode-CDROM format.  Comments prefixed by # and")

 
@@ -539,8 +578,7 @@
 
     (* ;; "                                            0xXXXX  ... 0xYYYY")

 
-    (* ;; 
-
  "               Column 3:  (after #) Character name in some mapping files, utf-8 character")

+    (* ;; "               Column 3:  (after #) Character name in some mapping files, utf-8 character")

 
     (* ;; "                                     for XCCS mapping files")

 
@@ -548,37 +586,34 @@
 
     (* ;; "Result is a list of (fromcode tocode1 ... tocoden) integer lists (almost always with only a single tocode")

 
-    (FOR
 FILE [SEPBITTABLE _ (MAKEBITTABLE (CHARCODE (TAB SPACE] IN
 (
-
                                                                     READ-UNICODE-MAPPING-FILENAMES

-                                                                             FILESPEC)
+    (FOR
 FILE [SEPBITTABLE _ (MAKEBITTABLE (CHARCODE (TAB SPACE] IN
 (READ-UNICODE-MAPPING-FILENAMES

+                                                                     FILESPEC)
        JOIN
 (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT :EXTERNAL-FORMAT :UTF-8-RAW)
-                       (BIND
 LINE START FIRST
 (CL:UNLESS 
-                                                          (FILEPOS "Name:" STREAM NIL NIL NIL T)
-                                                          (ERROR "NOT A UNICODE MAPPING FILE"
-                                                                 (FULLNAME STREAM)))
-                                                  (SETQ LINE (CL:READ-LINE STREAM NIL NIL))
-                                                  (CL:UNLESS NOPRINT
-                                                      (PRINTOUT T T "Unicode mapping:  "
-                                                             (CL:STRING-TRIM " " LINE)
-                                                             T)) WHILE
 (SETQ LINE
-                                                                            (CL:READ-LINE STREAM NIL
-                                                                                   NIL))
-                          WHEN
 (SETQ START (STRPOSL SEPBITTABLE LINE 1 T))
-                          UNLESS
 (EQ (CHARCODE %#)
-                                         (NTHCHARCODE LINE START))
-                          COLLECT
 (BIND
 END WHILE
 [SETQ END (OR (STRPOSL SEPBITTABLE LINE
-                                                                                   START)
-                                                                            (ADD1 (NCHARS LINE]
-                                         COLLECT
 [CHARCODE.DECODE (SUBSTRING LINE START
-                                                                             (SUB1 END)
-                                                                             (CONSTANT (CONCAT]
-                                         REPEATWHILE
 (AND (SETQ START (STRPOSL SEPBITTABLE LINE 
-                                                                                 END T))
-                                                              (NEQ (CHARCODE %#)
-                                                                   (NTHCHARCODE LINE START])
+                   (BIND
 LINE NAME CHARSET START
+                      FIRST
 (CL:UNLESS (FILEPOS "Name:" STREAM NIL NIL NIL T)
+                                (ERROR "NOT A UNICODE MAPPING FILE" (FULLNAME STREAM)))
+                            (SETQ NAME (CL:STRING-TRIM " " (CL:READ-LINE STREAM NIL NIL)))
+                            (SETQ CHARSET (CL:IF (FILEPOS "XCCS charset:" STREAM NIL NIL NIL T)
+                                              (CL:STRING-TRIM " " (CL:READ-LINE STREAM NIL NIL))
+                                              ""))
+                            (CL:UNLESS NOPRINT               (* ; "Strip off XCCS in front of name")

+                                (PRINTOUT T T CHARSET " " [SUBSTRING NAME (CONSTANT
+                                                                           (ADD1 (NCHARS "XCCS"]
+                                       T)) WHILE
 (SETQ LINE (CL:READ-LINE STREAM NIL NIL))
+                      WHEN
 (SETQ START (STRPOSL SEPBITTABLE LINE 1 T))
+                      UNLESS
 (EQ (CHARCODE %#)
+                                 (NTHCHARCODE LINE START))
+                      COLLECT
 (BIND
 END WHILE
 [SETQ END (OR (STRPOSL SEPBITTABLE LINE START)
+                                                            (ADD1 (NCHARS LINE]
+                                 COLLECT
 [CHARCODE.DECODE (SUBSTRING LINE START (SUB1 END)
+                                                                 (CONSTANT (CONCAT]
+                                 REPEATWHILE
 (AND (SETQ START (STRPOSL SEPBITTABLE LINE END T))
+                                                  (NEQ (CHARCODE %#)
+                                                       (NTHCHARCODE LINE START])
 
 (WRITE-UNICODE-MAPPING

-  [LAMBDA (MAPPING INCLUDECHARSETS FILE EMPTYOK)
        (* ; "Edited 16-Aug-2020 16:56 by rmk:")

+  [LAMBDA (MAPPING INCLUDECHARSETS FILE EMPTYOK)
             (* ; "Edited  4-Jan-2024 22:44 by rmk")


+                                                            (* ; "Edited 16-Aug-2020 16:56 by rmk:")

 
     (* ;; "Writes a symbol unicode mapping file.  Mapping is a list of (XCCS-code Unicode) pairs, which may contain codes in multiple character sets.")

 
@@ -587,21 +622,18 @@
     (* ;; "The output lines are of the form x0XXX<tab>x0UUUU<tab>#  Unicode-char")

 
     (* ;; 
-
  "If INCLUDECHARSETS=T then the mappings are split up into separate per-character set files.")

+
    "If INCLUDECHARSETS=T then the mappings are split up into separate per-character set files.")

 
     (* ;; "Otherwise, all and only mappings included in thos charsets are included in a single output file--an implicit subset.")

 
     (IF
 (AND (EQ INCLUDECHARSETS T)
-                 (NULL FILE))
+             (NULL FILE))
         THEN
 (IF
 MAPPING
-                     THEN
 (FOR
 CSI F IN
 XCCS-SET-NAMES WHEN
 (SETQ F
-                                                                             (WRITE-UNICODE-MAPPING

-                                                                              MAPPING
-                                                                              (CAR CSI)
-                                                                              NIL T)) COLLECT

-                                                                                      F)
-                   ELSE
 (PRINTOUT T "THERE ARE NO MAPPINGS" T)
-                         NIL)
+                 THEN
 (FOR
 CSI F IN
 XCCS-SET-NAMES WHEN
 (SETQ F (WRITE-UNICODE-MAPPING
 MAPPING
+                                                                       (CAR CSI)
+                                                                       NIL T)) COLLECT
 F)
+               ELSE
 (PRINTOUT T "THERE ARE NO MAPPINGS" T)
+                    NIL)
       ELSE

       (LET
        (IMAPPING CSETINFO RANGES)
@@ -609,47 +641,45 @@
               (WRITE-UNICODE-INCLUDED
 MAPPING INCLUDECHARSETS))
        (IF
 IMAPPING
            THEN
 (CL:WITH-OPEN-FILE
-                     (STREAM (WRITE-UNICODE-MAPPING-FILENAME
 FILE CSETINFO RANGES)
-                            :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION :EXTERNAL-FORMAT :UTF8-RAW)
-                     (WRITE-UNICODE-MAPPING-HEADER
 STREAM CSETINFO RANGES)
-                     (SORT IMAPPING T)
-                     (FOR
 M CSET LEFTC FIRSTRIGHTC CSI IN
 IMAPPING
-                        DO
 (SETQ LEFTC (CAR M))
-                              (SETQ FIRSTRIGHTC (CADR M))
-                              (CL:UNLESS (EQ CSET (LRSH LEFTC 8))
-                                  (SETQ CSET (LRSH LEFTC 8))
-                                  (SETQ CSI (ASSOC CSET CSETINFO))
-                                  (PRINTOUT STREAM T "#  " .P2 (CADR CSI)
-                                         " "
-                                         (CADDR CSI)
-                                         T))
-                              (PRINTOUT STREAM "0x" (HEXSTRING
 LEFTC 4)
-                                     %#
-                                     (FOR
 RIGHTC IN
 (CDR M)
-                                        DO
 (PRINTOUT NIL "	" "0x" (HEXSTRING
 RIGHTC 4)))
-                                     "	#  "
-                                     (SELECTC FIRSTRIGHTC
-                                         (UNDEFINEDCODE 
-                                                        (* ;; "FFFF")

+                 (STREAM (WRITE-UNICODE-MAPPING-FILENAME
 FILE CSETINFO RANGES)
+                        :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION :EXTERNAL-FORMAT :UTF-8-RAW)
+                 (WRITE-UNICODE-MAPPING-HEADER
 STREAM CSETINFO RANGES)
+                 (SORT IMAPPING T)
+                 (FOR
 M CSET LEFTC FIRSTRIGHTC CSI IN
 IMAPPING
+                    DO
 (SETQ LEFTC (CAR M))
+                       (SETQ FIRSTRIGHTC (CADR M))
+                       (CL:UNLESS (EQ CSET (LRSH LEFTC 8))
+                           (SETQ CSET (LRSH LEFTC 8))
+                           (SETQ CSI (ASSOC CSET CSETINFO))
+                           (PRINTOUT STREAM T "#  " .P2 (CADR CSI)
+                                  " "
+                                  (CADDR CSI)
+                                  T))
+                       (PRINTOUT STREAM "0x" (HEXSTRING
 LEFTC 4)
+                              %#
+                              (FOR
 RIGHTC IN
 (CDR M) DO
 (PRINTOUT NIL "	" "0x" (HEXSTRING
 RIGHTC 4)))
+                              "	#  "
+                              (SELECTC FIRSTRIGHTC
+                                  (UNDEFINEDCODE 
+                                                 (* ;; "FFFF")

 
-                                                        "UNDEFINED")
-                                         (MISSINGCODE 
-                                                      (* ;; "FFFE")

+                                                 "UNDEFINED")
+                                  (MISSINGCODE 
+                                               (* ;; "FFFE")

 
-                                                      "MISSING")
-                                         (IF
 (ILESSP FIRSTRIGHTC 32)
-                                             THEN
        (* ; "Control chars")

-                                                   [CONCAT "^" (CHARACTER (IPLUS FIRSTRIGHTC
-                                                                                 (CHARCODE @]
-                                           ELSE
 (CHARACTER FIRSTRIGHTC)))
-                                     T))
-                     (FULLNAME STREAM))
+                                               "MISSING")
+                                  (IF
 (ILESSP FIRSTRIGHTC 32)
+                                      THEN
                   (* ; "Control chars")

+                                           [CONCAT "^" (CHARACTER (IPLUS FIRSTRIGHTC (CHARCODE @]
+                                    ELSE
 (CHARACTER FIRSTRIGHTC)))
+                              T))
+                 (FULLNAME STREAM))
          ELSEIF
 (NOT EMPTYOK)
            THEN
 (PRINTOUT T "THERE ARE NO MAPPINGS")
-                 (CL:WHEN INCLUDECHARSETS
-                     (PRINTOUT T " FOR " .PPVTL (MKLIST INCLUDECHARSETS)
-                            T))
-                 NIL])
+                (CL:WHEN INCLUDECHARSETS
+                    (PRINTOUT T " FOR " .PPVTL (MKLIST INCLUDECHARSETS)
+                           T))
+                NIL])
 
 (WRITE-UNICODE-INCLUDED

   [LAMBDA (MAPPING INCLUDECHARSETS)
                     (* ; "Edited  4-Aug-2020 17:47 by rmk:")

@@ -724,28 +754,28 @@
          (CL:VALUES IMAPPING CSETINFO RANGES])
 
 (WRITE-UNICODE-MAPPING-HEADER

-  [LAMBDA (STREAM CSETINFO RANGES)
                      (* ; "Edited  4-Aug-2020 17:38 by rmk:")

+  [LAMBDA (STREAM CSETINFO RANGES)
                           (* ; "Edited  5-Jan-2024 13:24 by rmk")


+                                                            (* ; "Edited  4-Aug-2020 17:38 by rmk:")

 
     (* ;; "Writes the standard per-file header information")

 
     (FOR
 LINE IN
 UNICODE-MAPPING-HEADER
        DO
 (PRINTOUT STREAM "#" 2)
-             (SELECTQ LINE
-                 (XCCSCHARACTERSETS 
-                      (PRINTOUT STREAM "        XCCS charset")
-                      (IF
 (CDR CSETINFO)
-                          THEN
 (PRINTOUT STREAM "s:" -4)
-                                (FOR
 R IN
 RANGES DO
 (PRINTOUT STREAM R " "))
-                                (TERPRI STREAM)
-                        ELSE
                             (* ; "Singleton")

-                              (PRINTOUT STREAM ": " -4 (CADAR CSETINFO)
-                                     " "
-                                     (CADDAR CSETINFO)))
-                      (TERPRI STREAM))
-                 (DATE (PRINTOUT STREAM "        Date:" -13 (DATE (DATEFORMAT NO.TIME 
-                                                                         NO.LEADING.SPACES))
-                              T))
-                 (PRINTOUT STREAM LINE T)))
+          (SELECTQ LINE
+              (XCCSCHARACTERSETS 
+                   (PRINTOUT STREAM "        XCCS charset")
+                   (IF
 (CDR CSETINFO)
+                       THEN
 (PRINTOUT STREAM "s:" -4)
+                            (FOR
 R IN
 RANGES DO
 (PRINTOUT STREAM R " "))
+                     ELSE
                                    (* ; "Singleton")

+                          (PRINTOUT STREAM ": " -4 (CADAR CSETINFO)
+                                 " "
+                                 (CADDAR CSETINFO)))
+                   (TERPRI STREAM))
+              (DATE (PRINTOUT STREAM "        Date:" -13 (DATE (DATEFORMAT NO.TIME NO.LEADING.SPACES)
+                                                               )
+                           T))
+              (PRINTOUT STREAM LINE T)))
     (TERPRI STREAM])
 
 (WRITE-UNICODE-MAPPING-FILENAME

@@ -774,24 +804,28 @@
 
 (RPAQQ XCCS-SET-NAMES

        (("0" LATIN)
-        ("41" SYMBOLS1)
-        ("42" SYMBOLS2)
+        ("41" JAPANESE-SYMBOLS1)
+        ("42" JAPANESE-SYMBOLS2)
         ("43" EXTENDED-LATIN)
         ("44" HIRAGANA)
         ("45" KATAKANA)
         ("46" GREEK)
         ("47" CYRILLIC)
         ("50" FORMS)
-        ("60-172" JIS)
+        ("60-166" JIS)
         ("340" ARABIC)
         ("341" HEBREW)
         ("342" IPA)
         ("343" HANGUL)
         ("344" GEORGIAN-ARMENIAN)
-        ("356" SYMBOLS3)
-        ("357" SYMBOLS4)
+        ("345" DEVANAGRI)
+        ("346" BENGALI)
+        ("347" GURMUKHI)
+        ("350" THAI-LAO)
+        ("356" SYMBOLS2)
+        ("357" SYMBOLS1)
         ("360" LIGATURES)
-        ("361" ACCENTED-LATIN)
+        ("361" ACCENTED-LATIN1)
         ("365" MORE-ARABIC)
         ("375" GRAPHIC-VARIANTS)))
 
@@ -813,22 +847,21 @@
 )
 
 (RPAQQ UNICODE-MAPPING-HEADER

-       ("" "        Name:             XCCS (XC-3-1-1-0) to Unicode" "        Unicode version:  3.0" 
+       ("" "        Name:             XCCS (Version 2.0) to Unicode" "        Unicode version:  3.0"
            XCCSCHARACTERSETS "        Table version:    0.1" "        Table format:     Format A" 
            DATE "        Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>" "" 
            "This file contains mappings from the Xerox Character Code Standard (version" 
-           "XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of" 
-           "XCCS corresponding to the fonts in the Medley system." "" 
+           "2.0, 1990) into Unicode 3.0. standard codes.  That is an extension of the" 
+           "version of XCCS corresponding to the fonts in the Medley system." "" 
            "The format of this file conforms to the format of the other Unicode-supplied" 
            "mapping files:" "   Three white-space (tab or spaces) separated columns:" 
            "     Column 1 is the XCCS code (as hex 0xXXXX)" 
            "     Column 2 is the corresponding Unicode (as hex 0xXXXX)" 
            "     Column 3 (after #) is a comment column. For convenience, it contains the" 
-           "        Unicode character itself (since the Unicode character names" 
-           "        are not available)" 
+           "        Unicode character itself and the Unicode character names when available." 
            "Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED" 
            "Unicode FFFE is used for XCCS codes that have not yet been filled in." 
-           "(Column 3 = MISSING)" "" "This file is encoded in UTF8, so that the Unicode characters" 
+           "(Column 3 = MISSING)" "" "This file is encoded in UTF-8, so that the Unicode characters"
            "are properly displayed in Column 3 and can be edited by standard" 
            "Unicode-enabled editors (e.g. Mac Textedit)." "" 
            "This file can also be read by the function" 
@@ -850,7 +883,7 @@
 (DEFINEQ
 
 (MAKE-UNICODE-TRANSLATION-TABLES

-  [LAMBDA (MAPPING LTORVAR RTOLVAR)
                     (* ; "Edited 21-Aug-2021 13:12 by rmk:")


+  [LAMBDA (MAPPING LTORVAR RTOLVAR)
                         (* ; "Edited 21-Aug-2021 13:12 by rmk:")


                                                             (* ; "Edited 17-Aug-2020 08:46 by rmk:")

 
     (* ;; "MAPPING is the list of numeric code correspondence pairs constructed by applying READ-UNICODE-MAPPING to a Unicode mapping file.")

@@ -876,7 +909,7 @@
     (* ;; "")

 
     (* ;; 
-
  "An unmapped XCCS character is assigned a code in the %"private use%" code blocks 0xE000-F8FF")

+
    "An unmapped XCCS character is assigned a code in the %"private use%" code blocks 0xE000-F8FF")

 
     (* ;; "")

 
@@ -892,75 +925,67 @@
          (* ;; "The left-to-right direction (into Unicode).    We start by distributing the mappings into alists in arrays indexed by the higher-order (charaset set byte).  The second loop converts long alists into arrays.")

 
          [FOR
 M LEFTC RBASE RCODES IN
 MAPPING EACHTIME
 (SETQ RCODES (CDR M))
-                                                            (SETQ RBASE (CAR RCODES))
+                                                    (SETQ RBASE (CAR RCODES))
             UNLESS
 (IGEQ RBASE MISSINGCODE) DO
 (SETQ LEFTC (CAR M)) 
 
-                                                      (* ;; 
-
                                                    "(CDR RCODES) contains combiners on the base")

+                                               (* ;; "(CDR RCODES) contains combiners on the base")

 
-                                                      (CL:PUSH (CONS (LOGAND LEFTC TRANSLATION-MASK)
-                                                                     (CL:IF (CDR RCODES)
-                                                                         RCODES
-                                                                         RBASE))
-                                                             (CL:SVREF LTORARRAY (LRSH LEFTC 
-                                                                                    TRANSLATION-SHIFT
-                                                                                       ]
+                                               (CL:PUSH (CONS (LOGAND LEFTC TRANSLATION-MASK)
+                                                              (CL:IF (CDR RCODES)
+                                                                  RCODES
+                                                                  RBASE))
+                                                      (CL:SVREF LTORARRAY (LRSH LEFTC 
+                                                                                TRANSLATION-SHIFT]
          (FOR
 I CSA FROM
 0 TO
 (SUB1 N-TRANSLATION-SEGMENTS)
             WHEN
 (IGREATERP (LENGTH (CL:SVREF LTORARRAY I))
-                            MAX-ALIST-LENGTH)
-            DO
 
+                        MAX-ALIST-LENGTH) DO
 
+                                             (* ;; "Leave it alone if the alist is short")

 
-                  (* ;; "Leave it alone if the alist is short")

-
-                  (SETQ CSA (CL:MAKE-ARRAY TRANSLATION-SEGMENT-SIZE :INITIAL-ELEMENT NIL))
-                  (FOR
 P IN
 (CL:SVREF LTORARRAY I)
-                     DO
 (CL:SETF (CL:SVREF CSA (LOGAND (CAR P)
-                                                          TRANSLATION-MASK))
-                                   (CDR P)))
-                  (CL:SETF (CL:SVREF LTORARRAY I)
-                         CSA))
+                                             (SETQ CSA (CL:MAKE-ARRAY TRANSLATION-SEGMENT-SIZE 
+                                                              :INITIAL-ELEMENT NIL))
+                                             (FOR
 P IN
 (CL:SVREF LTORARRAY I)
+                                                DO
 (CL:SETF (CL:SVREF CSA (LOGAND (CAR P)
+                                                                                 TRANSLATION-MASK))
+                                                          (CDR P)))
+                                             (CL:SETF (CL:SVREF LTORARRAY I)
+                                                    CSA))
 
          (* ;; "")

 
          (* ;; "Now the right-to-left direction (from Unicode). Here we have to detect and compensate for ambiguity.")

 
          (FOR
 M LEFTC RBASE RCOMBINERS PREV IN
 MAPPING EACHTIME
 (SETQ RBASE (CADR M))
-                                                                     (SETQ RCOMBINERS (CDDR M))
+                                                             (SETQ RCOMBINERS (CDDR M))
             UNLESS
 (OR (IGEQ RBASE MISSINGCODE)
-                           RCOMBINERS) DO
 
+                       RCOMBINERS) DO
 
+                                      (* ;; 
+
                                      "Have we already seen an explicit mapping from right to left?")

 
-                                             (* ;; 
-
                                     "Have we already seen an explicit mapping from right to left?")

-
-                                             (SETQ LEFTC (CAR M))
-                                             [SETQ PREV (ASSOC (LOGAND RBASE TRANSLATION-MASK)
-                                                               (CL:SVREF RTOLARRAY (LRSH RBASE 
-                                                                                    TRANSLATION-SHIFT
-                                                                                         ]
-                                             (IF
 (NULL PREV)
-                                                 THEN
 (CL:PUSH (CONS (LOGAND RBASE 
-                                                                                TRANSLATION-MASK)
-                                                                         LEFTC)
-                                                                 (CL:SVREF RTOLARRAY (LRSH RBASE 
-                                                                                    TRANSLATION-SHIFT
-                                                                                           )))
-                                               ELSEIF
 (IGREATERP (CDR PREV)
-                                                                 LEFTC)
-                                                 THEN
 (RPLACD PREV LEFTC)))
+                                      (SETQ LEFTC (CAR M))
+                                      [SETQ PREV (ASSOC (LOGAND RBASE TRANSLATION-MASK)
+                                                        (CL:SVREF RTOLARRAY (LRSH RBASE 
+                                                                                  TRANSLATION-SHIFT]
+                                      (IF
 (NULL PREV)
+                                          THEN
 (CL:PUSH (CONS (LOGAND RBASE TRANSLATION-MASK)
+                                                              LEFTC)
+                                                      (CL:SVREF RTOLARRAY (LRSH RBASE 
+                                                                                TRANSLATION-SHIFT)))
+                                        ELSEIF
 (IGREATERP (CDR PREV)
+                                                      LEFTC)
+                                          THEN
 (RPLACD PREV LEFTC)))
          (FOR
 I CSA FROM
 0 TO
 (SUB1 N-TRANSLATION-SEGMENTS)
             WHEN
 (IGREATERP (LENGTH (CL:SVREF RTOLARRAY I))
-                            MAX-ALIST-LENGTH)
-            DO
 
+                        MAX-ALIST-LENGTH) DO
 
+                                             (* ;; "Long list, make an array")

 
-                  (* ;; "Long list, make an array")

-
-                  (SETQ CSA (CL:MAKE-ARRAY TRANSLATION-SEGMENT-SIZE :INITIAL-ELEMENT NIL))
-                  (FOR
 P IN
 (CL:SVREF RTOLARRAY I)
-                     DO
 (CL:SETF (CL:SVREF CSA (LOGAND (CAR P)
-                                                          TRANSLATION-MASK))
-                                   (CDR P)))
-                  (CL:SETF (CL:SVREF RTOLARRAY I)
-                         CSA))
+                                             (SETQ CSA (CL:MAKE-ARRAY TRANSLATION-SEGMENT-SIZE 
+                                                              :INITIAL-ELEMENT NIL))
+                                             (FOR
 P IN
 (CL:SVREF RTOLARRAY I)
+                                                DO
 (CL:SETF (CL:SVREF CSA (LOGAND (CAR P)
+                                                                                 TRANSLATION-MASK))
+                                                          (CDR P)))
+                                             (CL:SETF (CL:SVREF RTOLARRAY I)
+                                                    CSA))
 
          (* ;; "")

 
@@ -991,8 +1016,10 @@
          (LIST LTORARRAY RTOLARRAY])
 )
 
-(RPAQ? DEFAULT-XCCS-CHARSETS
 '(LATIN SYMBOLS1 SYMBOLS2 EXTENDED-LATIN FORMS SYMBOLS3 SYMBOLS4 
-                                     ACCENTED-LATIN GREEK))
+(RPAQ? DEFAULT-XCCS-CHARSETS
 '(LATIN JAPANESE-SYMBOLS1 JAPANESE-SYMBOLS2 EXTENDED-LATIN FORMS 
+                                     SYMBOLS1 SYMBOLS2 ACCENTED-LATIN1 GREEK))
+
+(RPAQ? DEFAULT-XCCS-JAPANESE-CHARSETS
 '(HIRAGANA KATAKANA JIS))
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
 (MAKE-UNICODE-TRANSLATION-TABLES
 (READ-UNICODE-MAPPING
 DEFAULT-XCCS-CHARSETS T)
@@ -1005,6 +1032,63 @@
 )
 (DEFINEQ
 
+(UTF-8.VALIDATE

+  [LAMBDA (STREAM BYTE1)
                                     (* ; "Edited 28-Dec-2023 11:57 by rmk")


+                                                            (* ; "Edited  6-Aug-2021 16:02 by rmk:")


+                                                            (* ; "Edited  6-Aug-2020 17:13 by rmk:")

+
+    (* ;; "Returns the codesize if the bytes starting at STREAM's current position form a valid UTF-8 sequence.")

+
+    (* ;; "If BYTE1 is provided, it is interpreted as the just-read header byte with the stream is positioned just after it.")

+
+    (* ;; "Test for smallp because the stream's End-of-file operation may suppress the error--otherwise an error will happen if the streams runs out of necessary bytes.")

+
+    (* ;; "For valid sequences, returns the same value as NUTF8CODEBYTES, but this reads/validates the rest of the bytes. On a non-NILreturn the  stream is positioned before the header byte of the next putative code. The stream position is uncertain on a NIL return.")

+
+    (* ;; "")

+
+    (CL:UNLESS BYTE1
+        (SETQ BYTE1 (\BIN STREAM)))
+    (PROG (BYTE2 BYTE3 BYTE4)
+
+     (* ;; "Distinguish on the header byte BYTE1.")

+
+          (CL:WHEN (SMALLP BYTE1)
+              (IF
 (ILESSP BYTE1 128)
+                  THEN
 (RETURN 1)
+                ELSEIF
 (IGEQ BYTE1 (LLSH 15 4))
+                  THEN
                                       (* ; "4 bytes")

+                       (SETQ BYTE2 (\BIN STREAM))
+                       (CL:WHEN (OR (NOT (SMALLP BYTE2))
+                                    (ILESSP BYTE2 128))
+                              (RETURN))
+                       (SETQ BYTE3 (\BIN STREAM))
+                       (CL:WHEN (OR (NOT (SMALLP BYTE3))
+                                    (ILESSP BYTE3 128))
+                              (RETURN))
+                       (SETQ BYTE4 (\BIN STREAM))
+                       (CL:WHEN (OR (NOT (SMALLP BYTE4))
+                                    (ILESSP BYTE4 128))
+                              (RETURN))
+                       (RETURN 4)
+                ELSEIF
 (IGEQ BYTE1 (LLSH 7 5))
+                  THEN
                                       (* ; "3 bytes")

+                       (SETQ BYTE2 (\BIN STREAM))
+                       (CL:WHEN (OR (NOT (SMALLP BYTE2))
+                                    (ILESSP BYTE2 128))
+                              (RETURN))
+                       (SETQ BYTE3 (\BIN STREAM))
+                       (CL:WHEN (OR (NOT (SMALLP BYTE3))
+                                    (ILESSP BYTE3 128))
+                              (RETURN))
+                       (RETURN 3)
+                ELSE
                                         (* ; " 2 bytes")

+                     (SETQ BYTE2 (\BIN STREAM))
+                     (CL:WHEN (OR (NOT (SMALLP BYTE2))
+                                  (ILESSP BYTE2 128))
+                            (RETURN NIL))
+                     (RETURN 2)))])
+
 (HEXSTRING

   [LAMBDA (N WIDTH)
                                     (* ; "Edited 23-Jul-2020 08:28 by rmk:")


                                                              (* ; "Edited 20-Dec-93 17:51 by rmk:")

@@ -1068,23 +1152,24 @@
                      ELSE
 (ERROR "CHARCODE too big for UTF8" CHARCODE])
 
 (NUTF8CODEBYTES

-  [LAMBDA (N)
                                                (* ; "Edited 28-Jun-2022 00:02 by rmk")


+  [LAMBDA (BYTE)
                                             (* ; "Edited  8-Jan-2024 10:57 by rmk")


+                                                             (* ; "Edited 28-Jun-2022 00:02 by rmk")


                                                             (* ; "Edited 10-Aug-2020 12:35 by rmk:")

 
-    (* ;; "Returns the number of bytes needed to encode N in UTF8, ")

+    (* ;; "Returns the number of bytes needed to encode in UTF8 a number headed by BYTE. ")

 
-    (IF
 (ILESSP N 128)
+    (IF
 (ILESSP BYTE 128)
         THEN
 1
-      ELSEIF
 (ILESSP N 2048)
+      ELSEIF
 (ILESSP BYTE 2048)
         THEN
                                                 (* ; "x800")

              2
-      ELSEIF
 (ILESSP N 65536)
+      ELSEIF
 (ILESSP BYTE 65536)
         THEN
                                                 (* ; "x10000")

              3
-      ELSEIF
 (ILESSP N 2097152)
+      ELSEIF
 (ILESSP BYTE 2097152)
         THEN
                                                 (* ; "x200000")

              4
-      ELSE
 (SHOULDNT])
+      ELSE
 (ERROR "INVALID UTF-8 HEADER BYTE"])
 
 (NUTF8STRINGBYTES

   [LAMBDA (STRING RAWFLG)
                               (* ; "Edited 10-Aug-2020 09:06 by rmk:")

@@ -1160,15 +1245,54 @@
 )
 (DEFINEQ
 
+(\UTF8.FETCHCODE

+  [LAMBDA (CODESIZE BUFFER BYTEOFFSET)
                       (* ; "Edited 28-Dec-2023 13:32 by rmk")


+                                                            (* ; "Edited  6-Aug-2021 16:02 by rmk:")


+                                                            (* ; "Edited  6-Aug-2020 17:13 by rmk:")

+
+    (* ;; "Decodes a UTF8 byte sequence of size CODESIZE in BUFFER starting at BYTEOFFSET.")

+
+    (* ;; "The validity of the thesize, buffer, and offset are guaranteed by the caller.")

+
+    (LET ((BYTE1 (\GETBASEBYTE BUFFER BYTEOFFSET))
+          BYTE2 BYTE3 BYTE4)
+         (SELECTQ CODESIZE
+             (2 (SETQ BYTE2 (\UTF8.GETBASEBYTE BUFFER (IPLUS 1 BYTEOFFSET)))
+                (LOGOR (LLSH (LOADBYTE BYTE1 0 5)
+                             6)
+                       (LOADBYTE BYTE2 0 6)))
+             (3 (SETQ BYTE2 (\UTF8.GETBASEBYTE BUFFER (IPLUS 1 BYTEOFFSET)))
+                (SETQ BYTE3 (\UTF8.GETBASEBYTE BUFFER (IPLUS 2 BYTEOFFSET)))
+                (LOGOR (LLSH (LOADBYTE BYTE1 0 4)
+                             12)
+                       (LLSH (LOADBYTE BYTE2 0 6)
+                             6)
+                       (LOADBYTE BYTE3 0 6)))
+             (4 (SETQ BYTE2 (\UTF8.GETBASEBYTE BUFFER (IPLUS 1 BYTEOFFSET)))
+                (SETQ BYTE3 (\UTF8.GETBASEBYTE BUFFER (IPLUS 2 BYTEOFFSET)))
+                (SETQ BYTE4 (\UTF8.GETBASEBYTE BUFFER (IPLUS 3 BYTEOFFSET)))
+                (LOGOR (LLSH (LOADBYTE BYTE1 0 3)
+                             18)
+                       (LLSH (LOADBYTE BYTE2 0 6)
+                             12)
+                       (LLSH (LOADBYTE BYTE3 0 6)
+                             6)
+                       (LOADBYTE BYTE4 0 6)))
+             (1 BYTE1)
+             (SHOULDNT])
+)
+(DEFINEQ
+
 (SHOWCHARS

-  [LAMBDA (FROMCHAR TOCHAR FONT)
                        (* ; "Edited  1-Aug-2020 09:27 by rmk:")

+  [LAMBDA (FROMCHAR TOCHAR FONT)
                             (* ; "Edited 26-Jan-2024 14:18 by mth")


+                                                            (* ; "Edited  1-Aug-2020 09:27 by rmk:")

     (RESETFORM (DSPFONT (OR FONT '(CLASSIC 12))
                       T)
            (CL:WHEN (AND (SMALLP FROMCHAR)
                          (NOT TOCHAR))
 
                (* ;; 
-
    "If a small number, assume it's an octal (in decimal) character set, no need for string quotes")

+
      "If a small number, assume it's an octal (in decimal) character set, no need for string quotes")

 
                (SETQ TOCHAR (CONCAT FROMCHAR "," 376))
                (SETQ FROMCHAR (CONCAT FROMCHAR "," 41)))
@@ -1178,16 +1302,16 @@
                (SETQ TOCHAR (CL:IF TOCHAR
                                 (CHARCODE.DECODE TOCHAR)
                                 FROMCHAR)))
-           (FOR
 C FROM
 FROMCHAR TO
 TOCHAR UNLESS
 (AND (IGEQ (LOGAND C 255)
-                                                                            127)
-                                                                      (ILEQ (LOGAND C 255)
-                                                                            (PLUS 128 33)))
-              DO
 (PRINTOUT T .P2 (CONCAT (OCTALSTRING (LRSH CODE 8))
-                                            ","
-                                            (OCTALSTRING (LOGAND CODE 255)))
-                            10
-                            (CHARACTER C)
-                            T])
+           (for
 C from
 FROMCHAR to
 TOCHAR unless
 (AND (IGEQ (LOGAND C 255)
+                                                            127)
+                                                      (ILEQ (LOGAND C 255)
+                                                            (PLUS 128 33)))
+              do
 (PRINTOUT T .P2 (CONCAT (OCTALSTRING (LRSH C 8))
+                                        ","
+                                        (OCTALSTRING (LOGAND C 255)))
+                        10
+                        (CHARACTER C)
+                        T])
 )
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 
@@ -1214,16 +1338,19 @@
        (TRANSLATION-MASK (SUB1 TRANSLATION-SEGMENT-SIZE)))
 )
 )
+
+(PUTPROPS UNICODE
 FILETYPE
 :TCOMPL)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3717 17808 (UTF8.OUTCHARFN 3727 . 6558) (UTF8.INCCODEFN 6560 . 12050) (UTF8.PEEKCCODEFN
- 12052 . 16826) (\UTF8.BACKCCODEFN 16828 . 17806)) (17809 21590 (UTF16BE.OUTCHARFN 17819 . 18643) (
-UTF16BE.INCCODEFN 18645 . 19544) (UTF16BE.PEEKCCODEFN 19546 . 20617) (\UTF16BE.BACKCCODEFN 20619 . 
-21588)) (21620 23681 (MAKE-UNICODE-FORMATS 21630 . 23679)) (23778 25084 (UNICODE.UNMAPPED 23788 . 
-25082)) (25085 25621 (XCCS-UTF8-AFTER-OPEN 25095 . 25619)) (26454 26803 (XTOUCODE 26464 . 26632) (
-UTOXCODE 26634 . 26801)) (26843 42965 (READ-UNICODE-MAPPING-FILENAMES 26853 . 27954) (
-READ-UNICODE-MAPPING 27956 . 31254) (WRITE-UNICODE-MAPPING 31256 . 35473) (WRITE-UNICODE-INCLUDED 
-35475 . 40197) (WRITE-UNICODE-MAPPING-HEADER 40199 . 41431) (WRITE-UNICODE-MAPPING-FILENAME 41433 . 
-42963)) (46178 54657 (MAKE-UNICODE-TRANSLATION-TABLES 46188 . 54655)) (55074 63100 (HEXSTRING 55084 . 
-56245) (UTF8HEXSTRING 56247 . 58452) (NUTF8CODEBYTES 58454 . 59239) (NUTF8STRINGBYTES 59241 . 59722) (
-XTOUSTRING 59724 . 62735) (XCCSSTRING 62737 . 63098)) (63101 64570 (SHOWCHARS 63111 . 64568)))))
+  (FILEMAP (NIL (4111 18202 (UTF8.OUTCHARFN 4121 . 6952) (UTF8.INCCODEFN 6954 . 12444) (UTF8.PEEKCCODEFN
+ 12446 . 17220) (\UTF8.BACKCCODEFN 17222 . 18200)) (18203 21984 (UTF16BE.OUTCHARFN 18213 . 19037) (
+UTF16BE.INCCODEFN 19039 . 19938) (UTF16BE.PEEKCCODEFN 19940 . 21011) (\UTF16BE.BACKCCODEFN 21013 . 
+21982)) (22014 24295 (MAKE-UNICODE-FORMATS 22024 . 24293)) (24392 25698 (UNICODE.UNMAPPED 24402 . 
+25696)) (25699 26375 (XCCS-UTF8-AFTER-OPEN 25709 . 26373)) (27831 28180 (XTOUCODE 27841 . 28009) (
+UTOXCODE 28011 . 28178)) (28220 45174 (READ-UNICODE-MAPPING-FILENAMES 28230 . 30936) (
+READ-UNICODE-MAPPING 30938 . 33914) (WRITE-UNICODE-MAPPING 33916 . 37666) (WRITE-UNICODE-INCLUDED 
+37668 . 42390) (WRITE-UNICODE-MAPPING-HEADER 42392 . 43640) (WRITE-UNICODE-MAPPING-FILENAME 43642 . 
+45172)) (48488 56912 (MAKE-UNICODE-TRANSLATION-TABLES 48498 . 56910)) (57417 68615 (UTF-8.VALIDATE 
+57427 . 60429) (HEXSTRING 60431 . 61592) (UTF8HEXSTRING 61594 . 63799) (NUTF8CODEBYTES 63801 . 64754) 
+(NUTF8STRINGBYTES 64756 . 65237) (XTOUSTRING 65239 . 68250) (XCCSSTRING 68252 . 68613)) (68616 70420 (
+\UTF8.FETCHCODE 68626 . 70418)) (70421 71931 (SHOWCHARS 70431 . 71929)))))
 STOP

library/UNICODE.TXT

@@ -1,98 +0,0 @@
-This file describes the UNICODE Lisp Library package.
-
-Contributed by Ron Kaplan, August 2020.
-
-The UNICODE library package defines external file formats that enable Medley to read and write files where 16 bit character codes are represented as UTF8 byte sequences or big-endian UTF16 byte-pairs.  It also provides for character codes to be converted (on reading) from Unicode codes to equivalent codes in the Medley-internal Xerox Character Code Standard (XCCS) and (on writing) from XCCS codes to equivalent Unicode codes.
-
-Four external formats are defined when the package is loaded:
-
-  :UTF8	        codes are represented as UTF8 byte sequences and XCCS/Unicode character
-  				conversion takes place.
-
-  :UTF16BE      codes are represented as 2-byte pairs, with the high order by appearing
-			    first in the file, and characters are converted.
-			    
-The two other external formats translate byte sequences into codes, but do not translate the codes.  These allow Medley to see and process characters in their native encoding.
-
-  :UTF8-RAW     codes are represented as UTF8 byte sequences, but character conversion
-			    does not take place.
-
-  :UTF16BE-RAW  codes are represented as big-ending 2-byte pairs but there is no
-                conversion.
-
-These formats all define the end-of-line convention (mostly for writing) for the external files according to the variable EXTERNALEOL (LF, CR, CRLF), with LF the default.
-
-The external format can be specified as a parameter when a stream is opened:
-
-    (OPENSTREAM 'foo.txt 'INPUT 'OLD '((EXTERNALFORMAT :UTF8)))
-
-    (CL:OPEN 'foo.txt :DIRECTION :INPUT :EXTERNAL-FORMAT :UTF8)
-  
-The function STREAMPROP obtains or changes the external format of an open stream:
-
-	(STREAMPROP stream 'EXTERNALFORMAT)  -> :XCCS
-	
-	(STREAMPROP stream 'EXTERNALFORMAT :UTF8) -> :XCCS
-	
-In the latter case, the stream's format is changed to :UTF8 and the previous value is returned, in this example it is Medley's historical default format :XCCS.
-
-Entries can be placed on the variable *DEFAULT-EXTERNALFORMATS* to change the external format that is set by default when a file is opened on a particular device.  Loading UNICODE executes
-
-	(PUSH *DEFAULT-EXTERNALFORMATS* '(UNIX :UTF8))
-
-so that all files opened (by OPENSTREAM, CL:OPEN, etc.) on the UNIX file device will be initialized with :UTF8.  Note that the UNIX and DSK file devices reference the same files (although some caution is needed because {UNIX} does not simulate Medley versioning), but the device name in a file name ({UNIX}/Users/... vs. {DSK}/Users/...) selects one or the other. The default setting above applies only to files specified with {UNIX}; a separate default entry for DSK must be established to change its default from :XCCS. 
-
-The user can also specify the external format on a per-stream basis by putting a function on the list STREAM-AFTER-OPEN-FNS. After OPENSTREAM opens a stream and just before it is returned to the calling function, the functions on that list are applied in order to arguments STREAM, ACCESS, PARAMETERS. They can examine and/or change the properties of the stream, in particular, by calling STREAMPROP to change the external format from its device default.
-
-The XCCS/Unicode mapping tables are defined by the code-mapping files for particular XCCS character sets.  These are typically located in the Library sister directory
-
-	../Unicode/Xerox/
-	
-and the variable UNICODEDIRECTORIES is initialized with a globally valid reference to that path.  The global reference is constructed by prepending the value of the Unix environment-variable "MEDLEYDIR" to the suffix /Unicode/Xerox/.  MEDLEYDIR should be set by the Medley start-up shell script (e.g. /Users/kaplan/local/medley3.5/lispcore/)
-
-The mapping files have conventional names of the form XCCS-<charsetnum>=<charsetname>.TXT, for example, XCCS-0=LATIN.TXT, XCCS-357=SYMBOLS4.TXT.  The translations used by the external formats are read from these files by the function
-
-	(READ-UNICODE-MAPPING FILESPEC NOPRINT NOERROR) 
-	
-where FILESPEC can be a list of files, charset octal strings ("0" "357"), or XCCS charset names (LATIN EXTENDED-LATIN). Reading will be silent if NOPRINT, and the process will not abort if an error occurs and NOERROR.  The value is a flat list of the mappings for all the character sets, with elements of the form (XCCC-code Unicode-code). 
-
-When UNICODE is loaded the mappings for the character sets specified in the variable DEFAULT-XCCS-CHARSETS are installed.  This is initialized to
-
-    (LATIN SYMBOLS1 SYMBOLS2 EXTENDED-LATIN FORMS SYMBOLS3 SYMBOLS4 ACCENTED-LATIN GREEK)
-    
-but DEFAULT-XCCS-CHARSETS can be set to a different collection before UNICODE is loaded.
-
-The internal translation tables used by the external formats are constructed from a list of correspondence pairs by the function
-
-	(MAKE-UNICODE-TRANSLATION-TABLES MAPPING [FROM-XCCS-VAR][TO-XCCS-VAR])
-	
-This returns a list of two arrays (XCCS-to-Unicode Unicode-to-XCCS)containing the relevant translation information organized for rapid access.  If the optional from/to-variables arguments are provide, they are the names of variables whose top-level values will be set to these arrays, for convenience. For the external formats defined above, these variables are *XCCSTOUNICODE* and *UNICODETOXCCS*.
-
-The macro
-
-	(UNICODE.TRANSLATE CODE TRANSLATION-TABLE)
-	
-is used by the external formats to perform the mappings described by the translation-tables.
-
-The following utilities are provided for lower-level manipulation of codes and strings 
-
-	(XTOUCODE XCCSCODE) -> corresponding Unicode
-	(UTOXCODE UNICODE) -> corresponding XCCS code
-	(NUTF8CODEBYTES N) -> number of bytes in the UTF8 representation of N
-	(NUTF8STRINGBYTES STRING RAWFLG) -> number of UTF8 bytes in the UTF8
-	      representation of STRING, translating XCCS to Unicode unless RAWFLG.
-	(XTOUSTRING XCCSSTRING RAWFLG) -> The string of bytes in the UTF8 representation
-	      of the characters in XCCSSTRING (= the bytes in its UTF8 file encoding)
-	(HEXSTRING N WIDTH) -> the hex string for N, padded to WIDTH
-	
-
-The UNICODE file also contains a function for writing a mapping file given a list of mapping pairs. The function
-
-     (WRITE-TRANSLATION-TABLE MAPPING [INCLUDEDCHARSETS] [FILE])
-     
-produces one or more mapping files for the mapping-pairs in mapping.  If the optional FILE argument is provided, then a single file with that name will be produced and contain all the mappings for all the character sets in MAPPING.  If FILE and INCLUDEDCHARSETS are not provided, then all of the mappings will again go to a single file with a composite name XCCS-csn1,csn2,csn3.TXT.  Each cs may be a single charset number, or a range of adjacent charset numbers.  For example, if the mappings contain entries for characters in charset LATIN, SYMBOLS1, SYMBOLS2, and SYMBOLS3, the file name will be XCCS-0,41-43.TXT.
- 
-If INCLUDEDCHARSETS is provided, it specifies possibly a subset of the mappings in MAPPING for which files should be produced.  This provides an implicit subsetting capability.
-
-Finally, if FILE is not provided and INCLUDEDCHARSETS is T, then a separate file will be produced for each of the character sets, essentially a way of splitting a collection of character-set mappings into separate canonically named files (e.g. XCCS-357=SYMBOLS4.TXT). 
-

library/sketch/SKETCH

@@ -1,15 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 4-Aug-2022 09:58:03" {DSK}<home>larry>medley>library>SKETCH.;2
 491064 
+
(FILECREATED " 5-Dec-2023 00:44:13" {WMEDLEY}<library>sketch>SKETCH.;5
 491114 
 
-      :CHANGES-TO (FNS SKETCH.COMMANDMENU.ITEMS)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE " 1-Feb-2022 09:17:12" {DSK}<home>larry>medley>library>SKETCH.;1)
+      :CHANGES-TO (VARS SKETCHCOMS)
 
+      :PREVIOUS-DATE "19-Oct-2023 23:55:27" {WMEDLEY}<library>sketch>SKETCH.;4)
 
-(* ; "
-Copyright (c) 1984-1988, 1990, 1992-1993 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT SKETCHCOMS)
 
@@ -24,7 +22,7 @@ Copyright (c) 1984-1988, 1990, 1992-1993 by Venue & Xerox Corporation.
 
                         [MAP.PROCESSES (FUNCTION (LAMBDA (PROC PROCNAME PROCFORM)
                                                         (AND (EQ (CAR PROCFORM)
-                                                                 '\TEDIT2)
+                                                                 '\TEDIT1)
                                                              (SETQ TEDITFLG T]
                         (COND ((AND (BOUNDP 'ALL.SKETCHES)
                                     (OR SKETCHFLG NOTECARDSFLG TEDITFLG))
@@ -244,10 +242,12 @@ To abort loading the new version of Sketch, type '^'."]
                            "Reads a file name and opens a sketch window onto the sketch it contains."
                                                               ]
         (VARS (BackgroundMenu))
-        (FILES SKETCHOPS SKETCHELEMENTS SKETCHEDIT SKETCHOBJ SKETCHBMELT)
+        (FILES SKETCH-OPS SKETCH-ELEMENTS SKETCH-EDIT SKETCH-OBJ SKETCH-BMELT)
         (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
-                                                                SKETCHOPS SKETCHELEMENTS SKETCHOBJ 
-                                                                SKETCHEDIT))
+                                                                SKETCH-OPS SKETCH-ELEMENTS SKETCH-OBJ
+                                                                SKETCH-EDIT))
+        (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (FROM LOADUPS)
+                                                EXPORTS.ALL))
                                                              (* ; 
 
              "recompute the sketch element types because loading SKETCH clobbers the previous ones.")

         (P (INIT.BITMAP.ELEMENT)
@@ -263,10 +263,10 @@ To abort loading the new version of Sketch, type '^'."]
         [COMS                                                (* ; 
 
                     "to correct for a bug in the file package that marks LOADCOMPed file as changed")

               (P (UNMARKASCHANGED 'SKETCH 'FILE)
-                 (UNMARKASCHANGED 'SKETCHELEMENTS 'FILE)
-                 (UNMARKASCHANGED 'SKETCHOPS 'FILE)
-                 (UNMARKASCHANGED 'SKETCHEDIT 'FILE)
-                 (UNMARKASCHANGED 'SKETCHOBJ 'FILE]
+                 (UNMARKASCHANGED 'SKETCH-ELEMENTS 'FILE)
+                 (UNMARKASCHANGED 'SKETCH-OPS 'FILE)
+                 (UNMARKASCHANGED 'SKETCH-EDIT 'FILE)
+                 (UNMARKASCHANGED 'SKETCH-OBJ 'FILE]
         (COMS                                                (* ; 
 
                                                  "add sketch as option to file browser edit command")

               (FNS SK.ADD.EDIT.COMMAND.TO.FILE.BROWSER)
@@ -286,7 +286,7 @@ To abort loading the new version of Sketch, type '^'."]
 
       [MAP.PROCESSES (FUNCTION (LAMBDA (PROC PROCNAME PROCFORM)
                                  (AND (EQ (CAR PROCFORM)
-                                          '\TEDIT2)
+                                          '\TEDIT1)
                                       (SETQ TEDITFLG T]
       (COND
          ((AND (BOUNDP 'ALL.SKETCHES)
@@ -8594,11 +8594,16 @@ Otherwise, type '^'.")
 
 (RPAQQ BackgroundMenu
 NIL)
 
-(FILESLOAD SKETCHOPS SKETCHELEMENTS SKETCHEDIT SKETCHOBJ SKETCHBMELT)
+(FILESLOAD SKETCH-OPS SKETCH-ELEMENTS SKETCH-EDIT SKETCH-OBJ SKETCH-BMELT)
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY 
 
 (FILESLOAD (LOADCOMP)
-       SKETCHOPS SKETCHELEMENTS SKETCHOBJ SKETCHEDIT)
+       SKETCH-OPS SKETCH-ELEMENTS SKETCH-OBJ SKETCH-EDIT)
+)
+(DECLARE%: EVAL@COMPILE DONTCOPY 
+
+(FILESLOAD (FROM
 LOADUPS)
+       EXPORTS.ALL)
 )
 
 
@@ -8723,13 +8728,13 @@ Otherwise, type '^'.")
 
 (UNMARKASCHANGED 'SKETCH 'FILE)
 
-(UNMARKASCHANGED 'SKETCHELEMENTS 'FILE)
+(UNMARKASCHANGED 'SKETCH-ELEMENTS 'FILE)
 
-(UNMARKASCHANGED 'SKETCHOPS 'FILE)
+(UNMARKASCHANGED 'SKETCH-OPS 'FILE)
 
-(UNMARKASCHANGED 'SKETCHEDIT 'FILE)
+(UNMARKASCHANGED 'SKETCH-EDIT 'FILE)
 
-(UNMARKASCHANGED 'SKETCHOBJ 'FILE)
+(UNMARKASCHANGED 'SKETCH-OBJ 'FILE)
 
 
 
@@ -8762,151 +8767,150 @@ Otherwise, type '^'.")
 
 (ADDTOVAR LAMA
 SK.UNIONREGIONS SKETCH.CREATE)
 )
-(PUTPROPS SKETCH COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1990 1992 1993))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (22128 85491 (SKETCH 22138 . 24243) (SKETCH.FROM.A.FILE 24245 . 24560) (SKETCHW.CREATE 
-24562 . 29136) (SKETCH.RESET 29138 . 30660) (SKETCHW.FIG.CHANGED 30662 . 31002) (SK.WINDOW.TITLE 31004
- . 31391) (EDITSLIDE 31393 . 31799) (EDITSKETCH 31801 . 32125) (SK.PUT.ON.FILE 32127 . 33579) (
-SK.OUTPUT.FILE.NAME 33581 . 33955) (SKETCH.PUT 33957 . 36855) (SK.GET.FROM.FILE 36857 . 37750) (
-SK.INCLUDE.FILE 37752 . 40260) (SK.GET.IMAGEOBJ.FROM.FILE 40262 . 42465) (SKETCH.GET 42467 . 42774) (
-ADD.SKETCH.TO.VIEWER 42776 . 45362) (FILENAMELESSVERSION 45364 . 45640) (SK.ADD.ELEMENTS.TO.SKETCH 
-45642 . 46156) (SKETCH.SET.A.DEFAULT 46158 . 53316) (SK.POPUP.SELECTIONFN 53318 . 53860) (
-GETSKETCHWREGION 53862 . 54068) (SK.ADD.ELEMENT 54070 . 55649) (SK.ADD.PRIORITY.ELEMENT.TO.SKETCH 
-55651 . 57045) (SK.ELTS.BY.PRIORITY 57047 . 57343) (SK.ORDER.ELEMENTS 57345 . 57612) (
-SK.ADD.PRIORITY.LOCAL.ELEMENT.TO.SKETCH 57614 . 59108) (SK.ADD.ELEMENTS 59110 . 59634) (
-SK.CHECK.WHENADDEDFN 59636 . 60366) (SK.APPLY.MENU.COMMAND 60368 . 61166) (SK.DELETE.ELEMENT1 61168 . 
-62746) (SK.MARK.DIRTY 62748 . 63414) (SK.MARK.UNDIRTY 63416 . 63747) (SK.MENU.AND.RETURN.FIELD 63749
- . 64414) (SKETCH.SET.BRUSH.SHAPE 64416 . 65001) (SKETCH.SET.BRUSH.SIZE 65003 . 65509) (
-SKETCHW.CLOSEFN 65511 . 67302) (SK.CONFIRM.DESTRUCTION 67304 . 68303) (SKETCHW.OUTFN 68305 . 68569) (
-SKETCHW.REOPENFN 68571 . 68983) (MAKE.LOCAL.SKETCH 68985 . 69715) (MAP.SKETCHSPEC.INTO.VIEWER 69717 . 
-70927) (SKETCHW.REPAINTFN 70929 . 71757) (SKETCHW.REPAINTFN1 71759 . 72698) (SK.DRAWFIGURE.IF 72700 . 
-73222) (SKETCHW.SCROLLFN 73224 . 77417) (SKETCHW.RESHAPEFN 77419 . 79677) (SK.UPDATE.EVENT.SELECTION 
-79679 . 81734) (LIGHTGRAYWINDOW 81736 . 81899) (SK.ADD.SPACES 81901 . 82647) (SK.SKETCH.MENU 82649 . 
-82971) (SK.CHECK.IMAGEOBJ.WHENDELETEDFN 82973 . 83825) (SK.APPLY.IMAGEOBJ.WHENDELETEDFN 83827 . 84787)
- (SK.RETURN.TTY 84789 . 85157) (SK.TAKE.TTY 85159 . 85489)) (85545 108873 (SKETCH.COMMANDMENU 85555 . 
-85892) (SKETCH.COMMANDMENU.ITEMS 85894 . 105977) (CREATE.SKETCHW.COMMANDMENU 105979 . 106399) (
-SKETCHW.SELECTIONFN 106401 . 107504) (SKETCH.MONITORLOCK 107506 . 107977) (SK.EVAL.AS.PROCESS 107979
- . 108592) (SK.EVAL.WITH.LOCK 108594 . 108871)) (108874 116678 (SK.FIX.MENU 108884 . 109978) (
-SK.SET.UP.MENUS 109980 . 112281) (SK.INSURE.HAS.MENU 112283 . 112945) (SK.CREATE.STANDARD.MENU 112947
- . 113392) (SK.ADD.ITEM.TO.MENU 113394 . 114069) (SK.GET.VIEWER.POPUP.MENU 114071 . 116272) (
-SK.CLEAR.POPUP.MENU 116274 . 116676)) (116734 125556 (SKETCH.CREATE 116744 . 117530) (GETSKETCHPROP 
-117532 . 120589) (PUTSKETCHPROP 120591 . 124523) (CREATE.DEFAULT.SKETCH.CONTEXT 124525 . 125554)) (
-125722 148618 (SK.COPY.BUTTONEVENTFN 125732 . 136960) (SK.BUTTONEVENT.MARK 136962 . 137345) (
-SK.BUILD.IMAGEOBJ 137347 . 147262) (SK.BUTTONEVENT.OVERP 147264 . 147887) (SK.BUTTONEVENT.SAME.KEYS 
-147889 . 148616)) (148897 174712 (SK.SEL.AND.CHANGE 148907 . 149199) (SK.CHECK.WHENCHANGEDFN 149201 . 
-149907) (SK.CHECK.PRECHANGEFN 149909 . 150510) (SK.CHANGE.ELT 150512 . 150704) (SK.CHANGE.THING 150706
- . 151957) (SKETCH.CHANGE.ELEMENTS 151959 . 153142) (SK.APPLY.SINGLE.CHANGEFN 153144 . 153717) (
-SK.DO.CHANGESPECS 153719 . 155378) (SK.VIEWER.FROM.SKETCH.ARG 155380 . 155822) (SK.DO.CHANGESPEC1 
-155824 . 157699) (SK.CHANGEFN 157701 . 158281) (SK.READCHANGEFN 158283 . 158742) (SK.DEFAULT.CHANGEFN 
-158744 . 161216) (CHANGEABLEFIELDITEMS 161218 . 161865) (SK.APPLY.CHANGE.COMMAND 161867 . 162484) (
-SK.DO.AND.RECORD.CHANGES 162486 . 163883) (SK.APPLY.CHANGE.COMMAND1 163885 . 165373) (
-SK.ELEMENTS.CHANGEFN 165375 . 167699) (READ.POINT.TO.ADD 167701 . 168645) (GLOBAL.KNOT.FROM.LOCAL 
-168647 . 169107) (SK.ADD.KNOT.TO.ELEMENT 169109 . 170053) (SK.GROUP.CHANGEFN 170055 . 171267) (
-SK.GROUP.CHANGEFN1 171269 . 174710)) (174879 188612 (ADD.ELEMENT.TO.SKETCH 174889 . 176595) (
-ADD.SKETCH.VIEWER 176597 . 177265) (REMOVE.SKETCH.VIEWER 177267 . 177880) (ALL.SKETCH.VIEWERS 177882
- . 178122) (SKETCH.ALL.VIEWERS 178124 . 178384) (VIEWER.BUCKET 178386 . 178537) (ELT.INSIDE.REGION? 
-178539 . 178866) (ELT.INSIDE.SKWP 178868 . 179159) (SCALE.FROM.SKW 179161 . 179411) (
-SK.ADDELT.TO.WINDOW 179413 . 180273) (SK.CALC.REGION.VIEWED 180275 . 180653) (SK.DRAWFIGURE 180655 . 
-181944) (SK.DRAWFIGURE1 181946 . 182330) (SK.LOCAL.FROM.GLOBAL 182332 . 183567) (SKETCH.REGION.VIEWED 
-183569 . 186256) (SKETCH.VIEW.FROM.NAME 186258 . 186688) (SK.UPDATE.REGION.VIEWED 186690 . 187082) (
-SKETCH.ADD.AND.DISPLAY 187084 . 187492) (SKETCH.ADD.AND.DISPLAY1 187494 . 187932) (SK.ADD.ITEM 187934
- . 188266) (SKETCHW.ADD.INSTANCE 188268 . 188610)) (188653 201841 (SK.SEL.AND.DELETE 188663 . 189051) 
-(SK.ERASE.AND.DELETE.ITEM 189053 . 189472) (REMOVE.ELEMENT.FROM.SKETCH 189474 . 190585) (
-SK.DELETE.ELEMENT 190587 . 191145) (SK.DELETE.ELEMENT2 191147 . 191808) (SK.DELETE.KNOT 191810 . 
-192101) (SK.SEL.AND.DELETE.KNOT 192103 . 193228) (SK.DELETE.ELEMENT.KNOT 193230 . 196437) (
-SK.CHECK.WHENDELETEDFN 196439 . 197219) (SK.CHECK.PREEDITFN 197221 . 197705) (
-SK.CHECK.END.INITIAL.EDIT 197707 . 198241) (SK.CHECK.WHENPOINTDELETEDFN 198243 . 199039) (SK.ERASE.ELT
- 199041 . 199377) (SK.DELETE.ELT 199379 . 199754) (SK.DELETE.ITEM 199756 . 200164) (DELFROMTCONC 
-200166 . 201839)) (201880 215714 (SK.COPY.ELT 201890 . 202260) (SK.SEL.AND.COPY 202262 . 202645) (
-SK.COPY.ELEMENTS 202647 . 208275) (SK.ADD.COPY.OF.ELEMENTS 208277 . 210044) (
-SK.GLOBAL.FROM.LOCAL.ELEMENTS 210046 . 210286) (SK.COPY.ITEM 210288 . 211085) (SK.INSERT.SKETCH 211087
- . 215712)) (215754 245775 (SK.MOVE.ELT 215764 . 216039) (SK.MOVE.ELT.OR.PT 216041 . 216354) (
-SK.APPLY.DEFAULT.MOVE 216356 . 216790) (SK.SEL.AND.MOVE 216792 . 217339) (SK.MOVE.ELEMENTS 217341 . 
-228213) (SKETCH.MOVE.ELEMENTS 228215 . 230146) (SKETCH.COPY.ELEMENTS 230148 . 232195) (
-\SKETCH.COPY.ELEMENT 232197 . 232922) (SK.TRANSLATE.ELEMENT 232924 . 233407) (SK.COPY.GLOBAL.ELEMENT 
-233409 . 233620) (SK.MAKE.ELEMENT.MOVE.ARG 233622 . 234242) (SK.MAKE.ELEMENTS.MOVE.ARG 234244 . 234766
-) (SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG 234768 . 235837) (SK.SHOW.FIG.FROM.INFO 235839 . 236207) (
-SK.MOVE.THING 236209 . 237115) (UPDATE.ELEMENT.IN.SKETCH 237117 . 239172) (SK.UPDATE.ELEMENT 239174 . 
-240733) (SK.UPDATE.ELEMENTS 240735 . 241454) (SK.UPDATE.ELEMENT1 241456 . 245356) (
-SK.MOVE.ELEMENT.POINT 245358 . 245773)) (245838 268127 (SK.MOVE.POINTS 245848 . 246135) (
-SK.SEL.AND.MOVE.POINTS 246137 . 246442) (SK.DO.MOVE.ELEMENT.POINTS 246444 . 255101) (
-SK.MOVE.ITEM.POINTS 255103 . 256774) (SK.TRANSLATEPTSFN 256776 . 257160) (SK.TRANSLATE.POINTS 257162
- . 258063) (SK.SELECT.MULTIPLE.POINTS 258065 . 263705) (SK.CONTROL.POINTS.IN.REGION 263707 . 265128) (
-SK.ADD.PT.SELECTION 265130 . 265594) (SK.REMOVE.PT.SELECTION 265596 . 266213) (SK.ADD.POINT 266215 . 
-266838) (SK.ELTS.CONTAINING.PTS 266840 . 267465) (SK.HOTSPOTS.NOT.ON.LIST 267467 . 268125)) (268285 
-271081 (SK.SET.MOVE.MODE 268295 . 268966) (SK.SET.MOVE.MODE.POINTS 268968 . 269307) (
-SK.SET.MOVE.MODE.ELEMENTS 269309 . 269653) (SK.SET.MOVE.MODE.COMBINED 269655 . 270005) (READMOVEMODE 
-270007 . 271079)) (271082 289837 (SK.ALIGN.POINTS 271092 . 271382) (SK.SEL.AND.ALIGN.POINTS 271384 . 
-271693) (SK.ALIGN.POINTS.LEFT 271695 . 271998) (SK.ALIGN.POINTS.RIGHT 272000 . 272305) (
-SK.ALIGN.POINTS.TOP 272307 . 272608) (SK.ALIGN.POINTS.BOTTOM 272610 . 272917) (
-SK.EVEN.SPACE.POINTS.IN.X 272919 . 273239) (SK.EVEN.SPACE.POINTS.IN.Y 273241 . 273561) (
-SK.DO.ALIGN.POINTS 273563 . 284185) (SK.NTH.CONTROL.POINT 284187 . 284648) (
-SK.GET.SELECTED.ELEMENT.STRUCTURE 284650 . 285316) (SK.CORRESPONDING.CONTROL.PT 285318 . 285872) (
-SK.CONTROL.POINT.NUMBER 285874 . 286244) (SK.DO.ALIGN.SETVALUE 286246 . 289835)) (289901 303333 (
-SKETCH.CREATE.GROUP 289911 . 290400) (SK.CREATE.GROUP1 290402 . 290949) (SK.UPDATE.GROUP.AFTER.CHANGE 
-290951 . 291740) (SK.GROUP.ELTS 291742 . 292023) (SK.SEL.AND.GROUP 292025 . 292411) (SK.GROUP.ELEMENTS
- 292413 . 294062) (SK.UNGROUP.ELT 294064 . 294348) (SK.SEL.AND.UNGROUP 294350 . 296019) (
-SK.UNGROUP.ELEMENT 296021 . 296957) (SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS 296959 . 297881) (
-SK.LOCAL.REGION.OF.LOCAL.ELEMENTS 297883 . 298894) (SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS 298896 . 
-300236) (SK.UNIONREGIONS 300238 . 302604) (SKETCH.REGION.OF.SKETCH 302606 . 303022) (SK.FLASHREGION 
-303024 . 303331)) (303334 316805 (INIT.GROUP.ELEMENT 303344 . 304216) (GROUP.DRAWFN 304218 . 304668) (
-GROUP.EXPANDFN 304670 . 306233) (GROUP.INSIDEFN 306235 . 306644) (GROUP.REGIONFN 306646 . 307041) (
-GROUP.GLOBALREGIONFN 307043 . 307361) (GROUP.TRANSLATEFN 307363 . 309395) (GROUP.TRANSFORMFN 309397 . 
-312877) (GROUP.READCHANGEFN 312879 . 316803)) (316806 317814 (REGION.CENTER 316816 . 317417) (
-REMOVE.LAST 317419 . 317812)) (317867 322974 (SK.MOVE.GROUP.CONTROL.PT 317877 . 318168) (
-SK.SEL.AND.MOVE.CONTROL.PT 318170 . 319574) (SK.MOVE.GROUP.ELEMENT.CONTROL.POINT 319576 . 321649) (
-SK.READ.NEW.GROUP.CONTROL.PT 321651 . 322972)) (323233 327857 (SK.DO.GROUP 323243 . 324695) (
-SK.CHECK.WHENGROUPEDFN 324697 . 325407) (SK.DO.UNGROUP 325409 . 326614) (SK.CHECK.WHENUNGROUPEDFN 
-326616 . 327203) (SK.GROUP.UNDO 327205 . 327528) (SK.UNGROUP.UNDO 327530 . 327855)) (328098 333020 (
-SK.FREEZE.ELTS 328108 . 328392) (SK.SEL.AND.FREEZE 328394 . 328784) (SK.FREEZE.ELEMENTS 328786 . 
-329337) (SK.UNFREEZE.ELT 329339 . 329628) (SK.SEL.AND.UNFREEZE 329630 . 331166) (SK.UNFREEZE.ELEMENTS 
-331168 . 331727) (SK.FREEZE.UNDO 331729 . 331974) (SK.UNFREEZE.UNDO 331976 . 332223) (SK.DO.FREEZE 
-332225 . 332618) (SK.DO.UNFREEZE 332620 . 333018)) (333250 343060 (SKETCH.ELEMENTS.OF.SKETCH 333260 . 
-334095) (SKETCH.LIST.OF.ELEMENTS 334097 . 334815) (SKETCH.ADD.ELEMENT 334817 . 335892) (
-SKETCH.DELETE.ELEMENT 335894 . 337626) (DELFROMGROUPELT 337628 . 338428) (SKETCH.ELEMENT.TYPE 338430
- . 338779) (SKETCH.ELEMENT.CHANGED 338781 . 340349) (SK.ELEMENT.CHANGED1 340351 . 341002) (
-SK.UPDATE.GLOBAL.IMAGE.OBJECT.ELEMENT 341004 . 343058)) (343114 347726 (INSURE.SKETCH 343124 . 345739)
- (LOCALSPECS.FROM.VIEWER 345741 . 346101) (SK.LOCAL.ELT.FROM.GLOBALPART 346103 . 346571) (
-SKETCH.FROM.VIEWER 346573 . 346807) (INSPECT.SKETCH 346809 . 347134) (ELT.INSIDE.SKETCHWP 347136 . 
-347409) (SK.INSIDE.REGION 347411 . 347724)) (347727 352057 (MAPSKETCHSPECS 347737 . 348358) (
-MAPCOLLECTSKETCHSPECS 348360 . 349109) (MAPSKETCHSPECSUNTIL 349111 . 349919) (MAPGLOBALSKETCHSPECS 
-349921 . 350622) (MAPGLOBALSKETCHELEMENTS 350624 . 352055)) (352119 378011 (SK.ADD.SELECTION 352129 . 
-352869) (SK.COPY.INSERTFN 352871 . 356502) (SCREENELEMENTP 356504 . 356977) (SK.ITEM.REGION 356979 . 
-357466) (SK.ELEMENT.GLOBAL.REGION 357468 . 357996) (SK.LOCAL.ITEMS.IN.REGION 357998 . 359977) (
-SK.REGIONFN 359979 . 360301) (SK.GLOBAL.REGIONFN 360303 . 360661) (SK.REMOVE.SELECTION 360663 . 361391
-) (SK.SELECT.MULTIPLE.ITEMS 361393 . 371835) (SKETCH.GET.ELEMENTS 371837 . 373260) (SK.PUT.MARKS.UP 
-373262 . 373601) (SK.TAKE.MARKS.DOWN 373603 . 373942) (SK.TRANSLATE.GLOBALPART 373944 . 376071) (
-SK.TRANSLATE.ITEM 376073 . 377000) (SK.TRANSLATEFN 377002 . 377198) (TRANSLATE.SKETCH 377200 . 378009)
-) (378277 381184 (SK.INPUT.SCALE 378287 . 379134) (SK.UPDATE.SKETCHCONTEXT 379136 . 379733) (
-SK.SET.INPUT.SCALE 379735 . 380384) (SK.SET.INPUT.SCALE.CURRENT 380386 . 380677) (
-SK.SET.INPUT.SCALE.VALUE 380679 . 381182)) (381235 383147 (SK.SET.FEEDBACK.MODE 381245 . 382551) (
-SK.SET.FEEDBACK.POINT 382553 . 382721) (SK.SET.FEEDBACK.VERBOSE 382723 . 382892) (
-SK.SET.FEEDBACK.ALWAYS 382894 . 383145)) (383298 384575 (SKETCH.TITLE 383308 . 383571) (
-SK.SHRINK.ICONCREATE 383573 . 384573)) (390265 393079 (READBRUSHSHAPE 390275 . 390734) (READ.FUNCTION 
-390736 . 391251) (READBRUSHSIZE 391253 . 391711) (READANGLE 391713 . 392205) (READARCDIRECTION 392207
- . 393077)) (393080 403491 (SK.CHANGE.DASHING 393090 . 397038) (READ.AND.SAVE.NEW.DASHING 397040 . 
-398808) (READ.NEW.DASHING 398810 . 400550) (READ.DASHING.CHANGE 400552 . 402027) (SK.CACHE.DASHING 
-402029 . 403031) (SK.DASHING.LABEL 403033 . 403489)) (403492 407197 (READ.FILLING.CHANGE 403502 . 
-405483) (SK.CACHE.FILLING 405485 . 406203) (READ.AND.SAVE.NEW.FILLING 406205 . 406803) (
-SK.FILLING.LABEL 406805 . 407195)) (407581 443834 (SK.GETGLOBALPOSITION 407591 . 407896) (
-SKETCH.TRACK.ELEMENTS 407898 . 411418) (SK.PICKOUT.WHOLE.MOVE.ELEMENTS 411420 . 411979) (
-MAP.SKETCH.ELEMENTS.INTO.VIEWER 411981 . 412373) (MAP.GLOBAL.POSITION.INTO.VIEWER 412375 . 412755) (
-SKETCH.TO.VIEWER.POSITION 412757 . 413116) (SKETCH.TRACK.IMAGE 413118 . 413972) (SK.TRACK.IMAGE1 
-413974 . 415386) (MAP.VIEWER.XY.INTO.GLOBAL 415388 . 416382) (SK.SET.POSITION 416384 . 416720) (
-MAP.VIEWER.PT.INTO.GLOBAL 416722 . 417828) (VIEWER.TO.SKETCH.POSITION 417830 . 418465) (
-SK.INSURE.SCALE 418467 . 418727) (SKETCH.TO.VIEWER.REGION 418729 . 419535) (VIEWER.TO.SKETCH.REGION 
-419537 . 419875) (SK.READ.POINT.WITH.FEEDBACK 419877 . 430880) (SKETCH.GET.POSITION 430882 . 432762) (
-\CLOBBER.POSITION 432764 . 433212) (NEAREST.HOT.SPOT 433214 . 434742) (GETWREGION 434744 . 435505) (
-GET.BITMAP.POSITION 435507 . 436291) (SK.TRACK.BITMAP1 436293 . 443832)) (444403 475289 (
-SK.BRING.UP.POSITION.PAD 444413 . 450273) (SK.PAD.READER.POSITION 450275 . 451924) (
-SK.POSITION.READER.REPAINTFN 451926 . 453710) (SK.POSITION.PAD.FROM.VIEWER 453712 . 455054) (
-SK.INIT.POSITION.NUMBER.PAD.MENU 455056 . 455406) (SK.READ.POSITION.PAD.HANDLER 455408 . 461140) (
-DISPLAY.POSITION.READER.TOTAL 461142 . 463440) (POSITION.PAD.READER.HANDLER 463442 . 471485) (
-POSITIONPAD.HELDFN 471487 . 472971) (\POSITION.PAD.ADD.DIGIT.MENU 472973 . 474552) (
-\POSITION.READER.NUMBERPAD 474554 . 475287)) (476915 479593 (SK.DRAWFN 476925 . 477291) (
-SK.TRANSFORMFN 477293 . 477674) (SK.EXPANDFN 477676 . 477953) (SK.INPUT 477955 . 478336) (SK.INSIDEFN 
-478338 . 478978) (SK.UPDATEFN 478980 . 479591)) (485165 489110 (SK.CHECK.SKETCH.VERSION 485175 . 
-486415) (SK.INSURE.RECORD.LENGTH 486417 . 487900) (SK.INSURE.HAS.LENGTH 487902 . 488640) (
-SK.RECORD.LENGTH 488642 . 488816) (SK.SET.RECORD.LENGTHS 488818 . 489108)) (489851 490738 (
-SK.ADD.EDIT.COMMAND.TO.FILE.BROWSER 489861 . 490736)))))
+  (FILEMAP (NIL (22176 85539 (SKETCH 22186 . 24291) (SKETCH.FROM.A.FILE 24293 . 24608) (SKETCHW.CREATE 
+24610 . 29184) (SKETCH.RESET 29186 . 30708) (SKETCHW.FIG.CHANGED 30710 . 31050) (SK.WINDOW.TITLE 31052
+ . 31439) (EDITSLIDE 31441 . 31847) (EDITSKETCH 31849 . 32173) (SK.PUT.ON.FILE 32175 . 33627) (
+SK.OUTPUT.FILE.NAME 33629 . 34003) (SKETCH.PUT 34005 . 36903) (SK.GET.FROM.FILE 36905 . 37798) (
+SK.INCLUDE.FILE 37800 . 40308) (SK.GET.IMAGEOBJ.FROM.FILE 40310 . 42513) (SKETCH.GET 42515 . 42822) (
+ADD.SKETCH.TO.VIEWER 42824 . 45410) (FILENAMELESSVERSION 45412 . 45688) (SK.ADD.ELEMENTS.TO.SKETCH 
+45690 . 46204) (SKETCH.SET.A.DEFAULT 46206 . 53364) (SK.POPUP.SELECTIONFN 53366 . 53908) (
+GETSKETCHWREGION 53910 . 54116) (SK.ADD.ELEMENT 54118 . 55697) (SK.ADD.PRIORITY.ELEMENT.TO.SKETCH 
+55699 . 57093) (SK.ELTS.BY.PRIORITY 57095 . 57391) (SK.ORDER.ELEMENTS 57393 . 57660) (
+SK.ADD.PRIORITY.LOCAL.ELEMENT.TO.SKETCH 57662 . 59156) (SK.ADD.ELEMENTS 59158 . 59682) (
+SK.CHECK.WHENADDEDFN 59684 . 60414) (SK.APPLY.MENU.COMMAND 60416 . 61214) (SK.DELETE.ELEMENT1 61216 . 
+62794) (SK.MARK.DIRTY 62796 . 63462) (SK.MARK.UNDIRTY 63464 . 63795) (SK.MENU.AND.RETURN.FIELD 63797
+ . 64462) (SKETCH.SET.BRUSH.SHAPE 64464 . 65049) (SKETCH.SET.BRUSH.SIZE 65051 . 65557) (
+SKETCHW.CLOSEFN 65559 . 67350) (SK.CONFIRM.DESTRUCTION 67352 . 68351) (SKETCHW.OUTFN 68353 . 68617) (
+SKETCHW.REOPENFN 68619 . 69031) (MAKE.LOCAL.SKETCH 69033 . 69763) (MAP.SKETCHSPEC.INTO.VIEWER 69765 . 
+70975) (SKETCHW.REPAINTFN 70977 . 71805) (SKETCHW.REPAINTFN1 71807 . 72746) (SK.DRAWFIGURE.IF 72748 . 
+73270) (SKETCHW.SCROLLFN 73272 . 77465) (SKETCHW.RESHAPEFN 77467 . 79725) (SK.UPDATE.EVENT.SELECTION 
+79727 . 81782) (LIGHTGRAYWINDOW 81784 . 81947) (SK.ADD.SPACES 81949 . 82695) (SK.SKETCH.MENU 82697 . 
+83019) (SK.CHECK.IMAGEOBJ.WHENDELETEDFN 83021 . 83873) (SK.APPLY.IMAGEOBJ.WHENDELETEDFN 83875 . 84835)
+ (SK.RETURN.TTY 84837 . 85205) (SK.TAKE.TTY 85207 . 85537)) (85593 108921 (SKETCH.COMMANDMENU 85603 . 
+85940) (SKETCH.COMMANDMENU.ITEMS 85942 . 106025) (CREATE.SKETCHW.COMMANDMENU 106027 . 106447) (
+SKETCHW.SELECTIONFN 106449 . 107552) (SKETCH.MONITORLOCK 107554 . 108025) (SK.EVAL.AS.PROCESS 108027
+ . 108640) (SK.EVAL.WITH.LOCK 108642 . 108919)) (108922 116726 (SK.FIX.MENU 108932 . 110026) (
+SK.SET.UP.MENUS 110028 . 112329) (SK.INSURE.HAS.MENU 112331 . 112993) (SK.CREATE.STANDARD.MENU 112995
+ . 113440) (SK.ADD.ITEM.TO.MENU 113442 . 114117) (SK.GET.VIEWER.POPUP.MENU 114119 . 116320) (
+SK.CLEAR.POPUP.MENU 116322 . 116724)) (116782 125604 (SKETCH.CREATE 116792 . 117578) (GETSKETCHPROP 
+117580 . 120637) (PUTSKETCHPROP 120639 . 124571) (CREATE.DEFAULT.SKETCH.CONTEXT 124573 . 125602)) (
+125770 148666 (SK.COPY.BUTTONEVENTFN 125780 . 137008) (SK.BUTTONEVENT.MARK 137010 . 137393) (
+SK.BUILD.IMAGEOBJ 137395 . 147310) (SK.BUTTONEVENT.OVERP 147312 . 147935) (SK.BUTTONEVENT.SAME.KEYS 
+147937 . 148664)) (148945 174760 (SK.SEL.AND.CHANGE 148955 . 149247) (SK.CHECK.WHENCHANGEDFN 149249 . 
+149955) (SK.CHECK.PRECHANGEFN 149957 . 150558) (SK.CHANGE.ELT 150560 . 150752) (SK.CHANGE.THING 150754
+ . 152005) (SKETCH.CHANGE.ELEMENTS 152007 . 153190) (SK.APPLY.SINGLE.CHANGEFN 153192 . 153765) (
+SK.DO.CHANGESPECS 153767 . 155426) (SK.VIEWER.FROM.SKETCH.ARG 155428 . 155870) (SK.DO.CHANGESPEC1 
+155872 . 157747) (SK.CHANGEFN 157749 . 158329) (SK.READCHANGEFN 158331 . 158790) (SK.DEFAULT.CHANGEFN 
+158792 . 161264) (CHANGEABLEFIELDITEMS 161266 . 161913) (SK.APPLY.CHANGE.COMMAND 161915 . 162532) (
+SK.DO.AND.RECORD.CHANGES 162534 . 163931) (SK.APPLY.CHANGE.COMMAND1 163933 . 165421) (
+SK.ELEMENTS.CHANGEFN 165423 . 167747) (READ.POINT.TO.ADD 167749 . 168693) (GLOBAL.KNOT.FROM.LOCAL 
+168695 . 169155) (SK.ADD.KNOT.TO.ELEMENT 169157 . 170101) (SK.GROUP.CHANGEFN 170103 . 171315) (
+SK.GROUP.CHANGEFN1 171317 . 174758)) (174927 188660 (ADD.ELEMENT.TO.SKETCH 174937 . 176643) (
+ADD.SKETCH.VIEWER 176645 . 177313) (REMOVE.SKETCH.VIEWER 177315 . 177928) (ALL.SKETCH.VIEWERS 177930
+ . 178170) (SKETCH.ALL.VIEWERS 178172 . 178432) (VIEWER.BUCKET 178434 . 178585) (ELT.INSIDE.REGION? 
+178587 . 178914) (ELT.INSIDE.SKWP 178916 . 179207) (SCALE.FROM.SKW 179209 . 179459) (
+SK.ADDELT.TO.WINDOW 179461 . 180321) (SK.CALC.REGION.VIEWED 180323 . 180701) (SK.DRAWFIGURE 180703 . 
+181992) (SK.DRAWFIGURE1 181994 . 182378) (SK.LOCAL.FROM.GLOBAL 182380 . 183615) (SKETCH.REGION.VIEWED 
+183617 . 186304) (SKETCH.VIEW.FROM.NAME 186306 . 186736) (SK.UPDATE.REGION.VIEWED 186738 . 187130) (
+SKETCH.ADD.AND.DISPLAY 187132 . 187540) (SKETCH.ADD.AND.DISPLAY1 187542 . 187980) (SK.ADD.ITEM 187982
+ . 188314) (SKETCHW.ADD.INSTANCE 188316 . 188658)) (188701 201889 (SK.SEL.AND.DELETE 188711 . 189099) 
+(SK.ERASE.AND.DELETE.ITEM 189101 . 189520) (REMOVE.ELEMENT.FROM.SKETCH 189522 . 190633) (
+SK.DELETE.ELEMENT 190635 . 191193) (SK.DELETE.ELEMENT2 191195 . 191856) (SK.DELETE.KNOT 191858 . 
+192149) (SK.SEL.AND.DELETE.KNOT 192151 . 193276) (SK.DELETE.ELEMENT.KNOT 193278 . 196485) (
+SK.CHECK.WHENDELETEDFN 196487 . 197267) (SK.CHECK.PREEDITFN 197269 . 197753) (
+SK.CHECK.END.INITIAL.EDIT 197755 . 198289) (SK.CHECK.WHENPOINTDELETEDFN 198291 . 199087) (SK.ERASE.ELT
+ 199089 . 199425) (SK.DELETE.ELT 199427 . 199802) (SK.DELETE.ITEM 199804 . 200212) (DELFROMTCONC 
+200214 . 201887)) (201928 215762 (SK.COPY.ELT 201938 . 202308) (SK.SEL.AND.COPY 202310 . 202693) (
+SK.COPY.ELEMENTS 202695 . 208323) (SK.ADD.COPY.OF.ELEMENTS 208325 . 210092) (
+SK.GLOBAL.FROM.LOCAL.ELEMENTS 210094 . 210334) (SK.COPY.ITEM 210336 . 211133) (SK.INSERT.SKETCH 211135
+ . 215760)) (215802 245823 (SK.MOVE.ELT 215812 . 216087) (SK.MOVE.ELT.OR.PT 216089 . 216402) (
+SK.APPLY.DEFAULT.MOVE 216404 . 216838) (SK.SEL.AND.MOVE 216840 . 217387) (SK.MOVE.ELEMENTS 217389 . 
+228261) (SKETCH.MOVE.ELEMENTS 228263 . 230194) (SKETCH.COPY.ELEMENTS 230196 . 232243) (
+\SKETCH.COPY.ELEMENT 232245 . 232970) (SK.TRANSLATE.ELEMENT 232972 . 233455) (SK.COPY.GLOBAL.ELEMENT 
+233457 . 233668) (SK.MAKE.ELEMENT.MOVE.ARG 233670 . 234290) (SK.MAKE.ELEMENTS.MOVE.ARG 234292 . 234814
+) (SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG 234816 . 235885) (SK.SHOW.FIG.FROM.INFO 235887 . 236255) (
+SK.MOVE.THING 236257 . 237163) (UPDATE.ELEMENT.IN.SKETCH 237165 . 239220) (SK.UPDATE.ELEMENT 239222 . 
+240781) (SK.UPDATE.ELEMENTS 240783 . 241502) (SK.UPDATE.ELEMENT1 241504 . 245404) (
+SK.MOVE.ELEMENT.POINT 245406 . 245821)) (245886 268175 (SK.MOVE.POINTS 245896 . 246183) (
+SK.SEL.AND.MOVE.POINTS 246185 . 246490) (SK.DO.MOVE.ELEMENT.POINTS 246492 . 255149) (
+SK.MOVE.ITEM.POINTS 255151 . 256822) (SK.TRANSLATEPTSFN 256824 . 257208) (SK.TRANSLATE.POINTS 257210
+ . 258111) (SK.SELECT.MULTIPLE.POINTS 258113 . 263753) (SK.CONTROL.POINTS.IN.REGION 263755 . 265176) (
+SK.ADD.PT.SELECTION 265178 . 265642) (SK.REMOVE.PT.SELECTION 265644 . 266261) (SK.ADD.POINT 266263 . 
+266886) (SK.ELTS.CONTAINING.PTS 266888 . 267513) (SK.HOTSPOTS.NOT.ON.LIST 267515 . 268173)) (268333 
+271129 (SK.SET.MOVE.MODE 268343 . 269014) (SK.SET.MOVE.MODE.POINTS 269016 . 269355) (
+SK.SET.MOVE.MODE.ELEMENTS 269357 . 269701) (SK.SET.MOVE.MODE.COMBINED 269703 . 270053) (READMOVEMODE 
+270055 . 271127)) (271130 289885 (SK.ALIGN.POINTS 271140 . 271430) (SK.SEL.AND.ALIGN.POINTS 271432 . 
+271741) (SK.ALIGN.POINTS.LEFT 271743 . 272046) (SK.ALIGN.POINTS.RIGHT 272048 . 272353) (
+SK.ALIGN.POINTS.TOP 272355 . 272656) (SK.ALIGN.POINTS.BOTTOM 272658 . 272965) (
+SK.EVEN.SPACE.POINTS.IN.X 272967 . 273287) (SK.EVEN.SPACE.POINTS.IN.Y 273289 . 273609) (
+SK.DO.ALIGN.POINTS 273611 . 284233) (SK.NTH.CONTROL.POINT 284235 . 284696) (
+SK.GET.SELECTED.ELEMENT.STRUCTURE 284698 . 285364) (SK.CORRESPONDING.CONTROL.PT 285366 . 285920) (
+SK.CONTROL.POINT.NUMBER 285922 . 286292) (SK.DO.ALIGN.SETVALUE 286294 . 289883)) (289949 303381 (
+SKETCH.CREATE.GROUP 289959 . 290448) (SK.CREATE.GROUP1 290450 . 290997) (SK.UPDATE.GROUP.AFTER.CHANGE 
+290999 . 291788) (SK.GROUP.ELTS 291790 . 292071) (SK.SEL.AND.GROUP 292073 . 292459) (SK.GROUP.ELEMENTS
+ 292461 . 294110) (SK.UNGROUP.ELT 294112 . 294396) (SK.SEL.AND.UNGROUP 294398 . 296067) (
+SK.UNGROUP.ELEMENT 296069 . 297005) (SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS 297007 . 297929) (
+SK.LOCAL.REGION.OF.LOCAL.ELEMENTS 297931 . 298942) (SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS 298944 . 
+300284) (SK.UNIONREGIONS 300286 . 302652) (SKETCH.REGION.OF.SKETCH 302654 . 303070) (SK.FLASHREGION 
+303072 . 303379)) (303382 316853 (INIT.GROUP.ELEMENT 303392 . 304264) (GROUP.DRAWFN 304266 . 304716) (
+GROUP.EXPANDFN 304718 . 306281) (GROUP.INSIDEFN 306283 . 306692) (GROUP.REGIONFN 306694 . 307089) (
+GROUP.GLOBALREGIONFN 307091 . 307409) (GROUP.TRANSLATEFN 307411 . 309443) (GROUP.TRANSFORMFN 309445 . 
+312925) (GROUP.READCHANGEFN 312927 . 316851)) (316854 317862 (REGION.CENTER 316864 . 317465) (
+REMOVE.LAST 317467 . 317860)) (317915 323022 (SK.MOVE.GROUP.CONTROL.PT 317925 . 318216) (
+SK.SEL.AND.MOVE.CONTROL.PT 318218 . 319622) (SK.MOVE.GROUP.ELEMENT.CONTROL.POINT 319624 . 321697) (
+SK.READ.NEW.GROUP.CONTROL.PT 321699 . 323020)) (323281 327905 (SK.DO.GROUP 323291 . 324743) (
+SK.CHECK.WHENGROUPEDFN 324745 . 325455) (SK.DO.UNGROUP 325457 . 326662) (SK.CHECK.WHENUNGROUPEDFN 
+326664 . 327251) (SK.GROUP.UNDO 327253 . 327576) (SK.UNGROUP.UNDO 327578 . 327903)) (328146 333068 (
+SK.FREEZE.ELTS 328156 . 328440) (SK.SEL.AND.FREEZE 328442 . 328832) (SK.FREEZE.ELEMENTS 328834 . 
+329385) (SK.UNFREEZE.ELT 329387 . 329676) (SK.SEL.AND.UNFREEZE 329678 . 331214) (SK.UNFREEZE.ELEMENTS 
+331216 . 331775) (SK.FREEZE.UNDO 331777 . 332022) (SK.UNFREEZE.UNDO 332024 . 332271) (SK.DO.FREEZE 
+332273 . 332666) (SK.DO.UNFREEZE 332668 . 333066)) (333298 343108 (SKETCH.ELEMENTS.OF.SKETCH 333308 . 
+334143) (SKETCH.LIST.OF.ELEMENTS 334145 . 334863) (SKETCH.ADD.ELEMENT 334865 . 335940) (
+SKETCH.DELETE.ELEMENT 335942 . 337674) (DELFROMGROUPELT 337676 . 338476) (SKETCH.ELEMENT.TYPE 338478
+ . 338827) (SKETCH.ELEMENT.CHANGED 338829 . 340397) (SK.ELEMENT.CHANGED1 340399 . 341050) (
+SK.UPDATE.GLOBAL.IMAGE.OBJECT.ELEMENT 341052 . 343106)) (343162 347774 (INSURE.SKETCH 343172 . 345787)
+ (LOCALSPECS.FROM.VIEWER 345789 . 346149) (SK.LOCAL.ELT.FROM.GLOBALPART 346151 . 346619) (
+SKETCH.FROM.VIEWER 346621 . 346855) (INSPECT.SKETCH 346857 . 347182) (ELT.INSIDE.SKETCHWP 347184 . 
+347457) (SK.INSIDE.REGION 347459 . 347772)) (347775 352105 (MAPSKETCHSPECS 347785 . 348406) (
+MAPCOLLECTSKETCHSPECS 348408 . 349157) (MAPSKETCHSPECSUNTIL 349159 . 349967) (MAPGLOBALSKETCHSPECS 
+349969 . 350670) (MAPGLOBALSKETCHELEMENTS 350672 . 352103)) (352167 378059 (SK.ADD.SELECTION 352177 . 
+352917) (SK.COPY.INSERTFN 352919 . 356550) (SCREENELEMENTP 356552 . 357025) (SK.ITEM.REGION 357027 . 
+357514) (SK.ELEMENT.GLOBAL.REGION 357516 . 358044) (SK.LOCAL.ITEMS.IN.REGION 358046 . 360025) (
+SK.REGIONFN 360027 . 360349) (SK.GLOBAL.REGIONFN 360351 . 360709) (SK.REMOVE.SELECTION 360711 . 361439
+) (SK.SELECT.MULTIPLE.ITEMS 361441 . 371883) (SKETCH.GET.ELEMENTS 371885 . 373308) (SK.PUT.MARKS.UP 
+373310 . 373649) (SK.TAKE.MARKS.DOWN 373651 . 373990) (SK.TRANSLATE.GLOBALPART 373992 . 376119) (
+SK.TRANSLATE.ITEM 376121 . 377048) (SK.TRANSLATEFN 377050 . 377246) (TRANSLATE.SKETCH 377248 . 378057)
+) (378325 381232 (SK.INPUT.SCALE 378335 . 379182) (SK.UPDATE.SKETCHCONTEXT 379184 . 379781) (
+SK.SET.INPUT.SCALE 379783 . 380432) (SK.SET.INPUT.SCALE.CURRENT 380434 . 380725) (
+SK.SET.INPUT.SCALE.VALUE 380727 . 381230)) (381283 383195 (SK.SET.FEEDBACK.MODE 381293 . 382599) (
+SK.SET.FEEDBACK.POINT 382601 . 382769) (SK.SET.FEEDBACK.VERBOSE 382771 . 382940) (
+SK.SET.FEEDBACK.ALWAYS 382942 . 383193)) (383346 384623 (SKETCH.TITLE 383356 . 383619) (
+SK.SHRINK.ICONCREATE 383621 . 384621)) (390313 393127 (READBRUSHSHAPE 390323 . 390782) (READ.FUNCTION 
+390784 . 391299) (READBRUSHSIZE 391301 . 391759) (READANGLE 391761 . 392253) (READARCDIRECTION 392255
+ . 393125)) (393128 403539 (SK.CHANGE.DASHING 393138 . 397086) (READ.AND.SAVE.NEW.DASHING 397088 . 
+398856) (READ.NEW.DASHING 398858 . 400598) (READ.DASHING.CHANGE 400600 . 402075) (SK.CACHE.DASHING 
+402077 . 403079) (SK.DASHING.LABEL 403081 . 403537)) (403540 407245 (READ.FILLING.CHANGE 403550 . 
+405531) (SK.CACHE.FILLING 405533 . 406251) (READ.AND.SAVE.NEW.FILLING 406253 . 406851) (
+SK.FILLING.LABEL 406853 . 407243)) (407629 443882 (SK.GETGLOBALPOSITION 407639 . 407944) (
+SKETCH.TRACK.ELEMENTS 407946 . 411466) (SK.PICKOUT.WHOLE.MOVE.ELEMENTS 411468 . 412027) (
+MAP.SKETCH.ELEMENTS.INTO.VIEWER 412029 . 412421) (MAP.GLOBAL.POSITION.INTO.VIEWER 412423 . 412803) (
+SKETCH.TO.VIEWER.POSITION 412805 . 413164) (SKETCH.TRACK.IMAGE 413166 . 414020) (SK.TRACK.IMAGE1 
+414022 . 415434) (MAP.VIEWER.XY.INTO.GLOBAL 415436 . 416430) (SK.SET.POSITION 416432 . 416768) (
+MAP.VIEWER.PT.INTO.GLOBAL 416770 . 417876) (VIEWER.TO.SKETCH.POSITION 417878 . 418513) (
+SK.INSURE.SCALE 418515 . 418775) (SKETCH.TO.VIEWER.REGION 418777 . 419583) (VIEWER.TO.SKETCH.REGION 
+419585 . 419923) (SK.READ.POINT.WITH.FEEDBACK 419925 . 430928) (SKETCH.GET.POSITION 430930 . 432810) (
+\CLOBBER.POSITION 432812 . 433260) (NEAREST.HOT.SPOT 433262 . 434790) (GETWREGION 434792 . 435553) (
+GET.BITMAP.POSITION 435555 . 436339) (SK.TRACK.BITMAP1 436341 . 443880)) (444451 475337 (
+SK.BRING.UP.POSITION.PAD 444461 . 450321) (SK.PAD.READER.POSITION 450323 . 451972) (
+SK.POSITION.READER.REPAINTFN 451974 . 453758) (SK.POSITION.PAD.FROM.VIEWER 453760 . 455102) (
+SK.INIT.POSITION.NUMBER.PAD.MENU 455104 . 455454) (SK.READ.POSITION.PAD.HANDLER 455456 . 461188) (
+DISPLAY.POSITION.READER.TOTAL 461190 . 463488) (POSITION.PAD.READER.HANDLER 463490 . 471533) (
+POSITIONPAD.HELDFN 471535 . 473019) (\POSITION.PAD.ADD.DIGIT.MENU 473021 . 474600) (
+\POSITION.READER.NUMBERPAD 474602 . 475335)) (476963 479641 (SK.DRAWFN 476973 . 477339) (
+SK.TRANSFORMFN 477341 . 477722) (SK.EXPANDFN 477724 . 478001) (SK.INPUT 478003 . 478384) (SK.INSIDEFN 
+478386 . 479026) (SK.UPDATEFN 479028 . 479639)) (485309 489254 (SK.CHECK.SKETCH.VERSION 485319 . 
+486559) (SK.INSURE.RECORD.LENGTH 486561 . 488044) (SK.INSURE.HAS.LENGTH 488046 . 488784) (
+SK.RECORD.LENGTH 488786 . 488960) (SK.SET.RECORD.LENGTHS 488962 . 489252)) (489999 490886 (
+SK.ADD.EDIT.COMMAND.TO.FILE.BROWSER 490009 . 490884)))))
 STOP

library/sketch/SKETCH-BMELT

@@ -1,18 +1,15 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-
(FILECREATED "24-Mar-92 14:07:17" |{PELE:MV:ENVOS}<LISPCORE>LIBRARY>SKETCHBMELT.;3|
 47688  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-      changes to%:  (FNS BITMAPELT.DRAWFN)
+
(FILECREATED " 5-Dec-2023 00:11:01" {WMEDLEY}<library>sketch>SKETCH-BMELT.;1
 47396  
 
-      previous date%: "12-Jun-90 14:45:06" |{PELE:MV:ENVOS}<LISPCORE>LIBRARY>SKETCHBMELT.;2|)
+      :EDIT-BY rmk
+
+      :PREVIOUS-DATE "24-Mar-92 14:07:17" {WMEDLEY}<library>sketch>SKETCHBMELT.;1)
 
 
-(* ; "
-Copyright (c) 1985, 1986, 1988, 1990, 1992 by Venue & Xerox Corporation.  All rights reserved.
-")
+(PRETTYCOMPRINT SKETCH-BMELTCOMS)
 
-(PRETTYCOMPRINT SKETCHBMELTCOMS)
-
-(RPAQQ SKETCHBMELTCOMS

+(RPAQQ SKETCH-BMELTCOMS

        ((* BITMAP element done to allow zooming of bitmaps that is not possible with image object 
            bitmaps.)
         (FNS SKETCH.CREATE.BITMAP INIT.BITMAP.ELEMENT BITMAPELT.CHANGEFN BITMAPELT.DRAWFN DSPVIEWPORT
@@ -731,30 +728,28 @@ It can then be edited without effecting the original.")) (AND (fetch
 (BITMAP
 (TYPERECORD BITMAPELT
 (SKBITMAP SKBITMAPREGION SKBITMAPSCALE SKBITMAPCACHE))
 
 (RECORD LOCALBITMAPELT
 ((LOCALBITMAPPOSITION)
-                            LOCALHOTREGION LOCALBITMAP LOCALBITMAPREGION 
+                        LOCALHOTREGION LOCALBITMAP LOCALBITMAPREGION 
                                                              (* coordinates of entire region 
-
                                                           covered by the bitmap in local 
-
                                                           coordinates.)

-                            LOCALSCALE SOURCEFORIMAGE        (* pair of the scale and cached 
-
                                                           image from which LOCALBITMAP was 
-
                                                           generated.)

-                            LOCALIMAGEREGION
+
                                                             covered by the bitmap in local 
+
                                                             coordinates.)

+                        LOCALSCALE SOURCEFORIMAGE            (* pair of the scale and cached image 
+
                                                             from which LOCALBITMAP was generated.)

+                        LOCALIMAGEREGION
 
          (* region in local coordinates of the area covered by LOCALBITMAP.
-
       This may be a subregion of LOCALBITMAPREGION)

+
         This may be a subregion of LOCALBITMAPREGION)

 
-                            ))
+                        ))
 )
 )
 
 (FILESLOAD SCALEBITMAP)
-(PUTPROPS SKETCHBMELT COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1988 1990 1992))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1205 46541 (SKETCH.CREATE.BITMAP 1215 . 2049) (INIT.BITMAP.ELEMENT 2051 . 3052) (
-BITMAPELT.CHANGEFN 3054 . 16483) (BITMAPELT.DRAWFN 16485 . 23256) (DSPVIEWPORT 23258 . 24304) (
-SK.COMPUTE.LOCAL.SCALED.BITMAP 24306 . 26938) (BITMAPELT.EXPANDFN 26940 . 30787) (BITMAPELT.INSIDEFN 
-30789 . 31391) (BITMAPELT.TRANSLATEFN 31393 . 32695) (BITMAPELT.REGIONFN 32697 . 33153) (
-BITMAPELT.GLOBALREGIONFN 33155 . 33534) (BITMAPELT.READCHANGEFN 33536 . 37579) (BITMAPELT.TRANSFORMFN 
-37581 . 39105) (SK.BITMAP.CREATE 39107 . 40848) (BITMAP.SET.SCALES 40850 . 42359) (BITMAPELT.INPUTFN 
-42361 . 43333) (BITMAPELT.CHOOSE.BITMAP 43335 . 46539)))))
+  (FILEMAP (NIL (1069 46405 (SKETCH.CREATE.BITMAP 1079 . 1913) (INIT.BITMAP.ELEMENT 1915 . 2916) (
+BITMAPELT.CHANGEFN 2918 . 16347) (BITMAPELT.DRAWFN 16349 . 23120) (DSPVIEWPORT 23122 . 24168) (
+SK.COMPUTE.LOCAL.SCALED.BITMAP 24170 . 26802) (BITMAPELT.EXPANDFN 26804 . 30651) (BITMAPELT.INSIDEFN 
+30653 . 31255) (BITMAPELT.TRANSLATEFN 31257 . 32559) (BITMAPELT.REGIONFN 32561 . 33017) (
+BITMAPELT.GLOBALREGIONFN 33019 . 33398) (BITMAPELT.READCHANGEFN 33400 . 37443) (BITMAPELT.TRANSFORMFN 
+37445 . 38969) (SK.BITMAP.CREATE 38971 . 40712) (BITMAP.SET.SCALES 40714 . 42223) (BITMAPELT.INPUTFN 
+42225 . 43197) (BITMAPELT.CHOOSE.BITMAP 43199 . 46403)))))
 STOP

library/sketch/SKETCH-EDIT

@@ -1,18 +1,17 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "21-Aug-2021 20:50:04" {DSK}<home>larry>medley>library>SKETCHEDIT.;2
 108762 
 
-      changes to%:  (FNS SHOW.FEEDBACK.BOX)
+
(FILECREATED " 5-Dec-2023 00:12:04" {WMEDLEY}<library>sketch>SKETCH-EDIT.;1
 108598 
 
-      previous date%: "14-Mar-2021 20:37:50" {DSK}<home>larry>medley>library>SKETCHEDIT.;1)
+      :EDIT-BY rmk
+
+      :CHANGES-TO (RECORDS TEXTELTSELECTION)
+
+      :PREVIOUS-DATE "21-Aug-2021 20:50:04" {WMEDLEY}<library>sketch>SKETCHEDIT.;1)
 
 
-(* ; "
-Copyright (c) 1983-1987, 1990, 2021 by Venue & Xerox Corporation.
-")
+(PRETTYCOMPRINT SKETCH-EDITCOMS)
 
-(PRETTYCOMPRINT SKETCHEDITCOMS)
-
-(RPAQQ SKETCHEDITCOMS

+(RPAQQ SKETCH-EDITCOMS

        ((COMS (* selection functions)
               (FNS BUTLAST CHAR.BEGIN CLOSEST.CHAR CLOSEST.LINE FLASHW HILITE.LINE HILITE.TEXT 
                    IN.TEXT.EXTEND INIMAGEOBJ INTEXT NEW.TEXT.EXTEND NEW.TEXT.SELECTIONP NTHCHARWIDTH
@@ -1953,28 +1952,27 @@ Copyright (c) 1983-1987, 1990, 2021 by Venue & Xerox Corporation.
            XCOORD _ (LASTMOUSEX WIN)
            YCOORD _ (LASTMOUSEY WIN])
 )
-(PUTPROPS SKETCHEDIT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1990 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2492 39600 (BUTLAST 2502 . 2850) (CHAR.BEGIN 2852 . 4777) (CLOSEST.CHAR 4779 . 9002) (
-CLOSEST.LINE 9004 . 9566) (FLASHW 9568 . 9725) (HILITE.LINE 9727 . 10546) (HILITE.TEXT 10548 . 12196) 
-(IN.TEXT.EXTEND 12198 . 15471) (INIMAGEOBJ 15473 . 15978) (INTEXT 15980 . 16477) (NEW.TEXT.EXTEND 
-16479 . 18698) (NEW.TEXT.SELECTIONP 18700 . 18880) (NTHCHARWIDTH 18882 . 19139) (NTHLOCALREGION 19141
- . 19379) (ONCHAR 19381 . 19776) (SHOW.EXTENDED.SELECTION.FEEDBACK 19778 . 20713) (SHOW.FEEDBACK 20715
- . 21205) (SHOW.FEEDBACK.BOX 21207 . 22261) (SELECTION.POSITION 22263 . 23055) (SKED.CLEAR.SELECTION 
-23057 . 23580) (SKETCH.CLEANUP 23582 . 25496) (SK.ENTER.EDIT.CHANGE 25498 . 27043) (
-SKED.REMOVE.OTHER.SELECTIONS 27045 . 27472) (SKED.EXTEND.SELECTION 27474 . 28939) (SKED.MOVE.SELECTION
- 28941 . 34102) (CREATE.TEXT.SELECTION 34104 . 34620) (SKED.SELECTION.FEEDBACK 34622 . 36278) (
-SKED.SET.EXTENDSELECTION 36280 . 36597) (SKED.SET.SELECTION 36599 . 36999) (LINE.BEGIN 37001 . 37555) 
-(SELECTION.GREATERP 37557 . 38352) (SK.WORD.BREAK.CLASS 38354 . 39194) (SK.GETSYNTAX 39196 . 39598)) (
-40442 86176 (WB.EDITOR 40452 . 41777) (SK.TTYENTRYFN 41779 . 42057) (SK.TTYEXITFN 42059 . 42328) (
-SKED.INSERT 42330 . 42758) (\SKED.INSERT 42760 . 63882) (FIRST.N.ELEMENTS 63884 . 64151) (
-SKED.CREATE.NEW.TEXTBOX 64153 . 70682) (SKED.CHARACTERPOSITION 70684 . 71471) (SKED.LINE.AND.CHAR# 
-71473 . 73104) (\SKED.DELETE.WORD.FROM.STRING 73106 . 74145) (\SKED.INSERT.CHARS.TO.STR 74147 . 82558)
- (JOINCHARS 82560 . 82947) (STRINGFROMCHARACTERS 82949 . 83274) (GETALLCHARS 83276 . 83617) (
-CLEANUP.EDIT 83619 . 84071) (SKED.NEW.TEXTELT 84073 . 86174)) (86211 107219 (
-MAP.SCREEN.POSITION.ONTO.GRID 86221 . 87670) (NEAREST.ON.GRID 87672 . 88216) (SK.MIDDLE.TITLEFN 88218
- . 90161) (WB.BUTTON.HANDLER 90163 . 97985) (WB.ADD.NEW.POINT 97987 . 101316) (WB.DRAWLINE 101318 . 
-105552) (WB.RUBBERBAND.POSITION 105554 . 106471) (SK.RUBBERBAND.FEEDBACKFN 106473 . 106977) (
-RESET.LINE.BEING.INPUT 106979 . 107217)) (107401 108642 (NEAREST.EXISTING.POSITION 107411 . 107613) (
-WB.NEARPT 107615 . 108500) (LASTMOUSEPOSITION 108502 . 108640)))))
+  (FILEMAP (NIL (2425 39533 (BUTLAST 2435 . 2783) (CHAR.BEGIN 2785 . 4710) (CLOSEST.CHAR 4712 . 8935) (
+CLOSEST.LINE 8937 . 9499) (FLASHW 9501 . 9658) (HILITE.LINE 9660 . 10479) (HILITE.TEXT 10481 . 12129) 
+(IN.TEXT.EXTEND 12131 . 15404) (INIMAGEOBJ 15406 . 15911) (INTEXT 15913 . 16410) (NEW.TEXT.EXTEND 
+16412 . 18631) (NEW.TEXT.SELECTIONP 18633 . 18813) (NTHCHARWIDTH 18815 . 19072) (NTHLOCALREGION 19074
+ . 19312) (ONCHAR 19314 . 19709) (SHOW.EXTENDED.SELECTION.FEEDBACK 19711 . 20646) (SHOW.FEEDBACK 20648
+ . 21138) (SHOW.FEEDBACK.BOX 21140 . 22194) (SELECTION.POSITION 22196 . 22988) (SKED.CLEAR.SELECTION 
+22990 . 23513) (SKETCH.CLEANUP 23515 . 25429) (SK.ENTER.EDIT.CHANGE 25431 . 26976) (
+SKED.REMOVE.OTHER.SELECTIONS 26978 . 27405) (SKED.EXTEND.SELECTION 27407 . 28872) (SKED.MOVE.SELECTION
+ 28874 . 34035) (CREATE.TEXT.SELECTION 34037 . 34553) (SKED.SELECTION.FEEDBACK 34555 . 36211) (
+SKED.SET.EXTENDSELECTION 36213 . 36530) (SKED.SET.SELECTION 36532 . 36932) (LINE.BEGIN 36934 . 37488) 
+(SELECTION.GREATERP 37490 . 38285) (SK.WORD.BREAK.CLASS 38287 . 39127) (SK.GETSYNTAX 39129 . 39531)) (
+40375 86109 (WB.EDITOR 40385 . 41710) (SK.TTYENTRYFN 41712 . 41990) (SK.TTYEXITFN 41992 . 42261) (
+SKED.INSERT 42263 . 42691) (\SKED.INSERT 42693 . 63815) (FIRST.N.ELEMENTS 63817 . 64084) (
+SKED.CREATE.NEW.TEXTBOX 64086 . 70615) (SKED.CHARACTERPOSITION 70617 . 71404) (SKED.LINE.AND.CHAR# 
+71406 . 73037) (\SKED.DELETE.WORD.FROM.STRING 73039 . 74078) (\SKED.INSERT.CHARS.TO.STR 74080 . 82491)
+ (JOINCHARS 82493 . 82880) (STRINGFROMCHARACTERS 82882 . 83207) (GETALLCHARS 83209 . 83550) (
+CLEANUP.EDIT 83552 . 84004) (SKED.NEW.TEXTELT 84006 . 86107)) (86144 107152 (
+MAP.SCREEN.POSITION.ONTO.GRID 86154 . 87603) (NEAREST.ON.GRID 87605 . 88149) (SK.MIDDLE.TITLEFN 88151
+ . 90094) (WB.BUTTON.HANDLER 90096 . 97918) (WB.ADD.NEW.POINT 97920 . 101249) (WB.DRAWLINE 101251 . 
+105485) (WB.RUBBERBAND.POSITION 105487 . 106404) (SK.RUBBERBAND.FEEDBACKFN 106406 . 106910) (
+RESET.LINE.BEING.INPUT 106912 . 107150)) (107334 108575 (NEAREST.EXISTING.POSITION 107344 . 107546) (
+WB.NEARPT 107548 . 108433) (LASTMOUSEPOSITION 108435 . 108573)))))
 STOP

library/sketch/SKETCH-ELEMENTS

@@ -1,19 +1,19 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 4-Aug-2022 09:57:43" {DSK}<home>larry>medley>library>SKETCHELEMENTS.;2
 554099 
+
(FILECREATED " 5-Dec-2023 00:16:52" {WMEDLEY}<library>sketch>SKETCH-ELEMENTS.;1
 554138 
 
-      :CHANGES-TO (FNS CREATE.SKETCH.ELEMENT.TYPE)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "21-Aug-2021 20:49:42" {DSK}<home>larry>medley>library>SKETCHELEMENTS.;1)
+      :CHANGES-TO (RECORDS LOCALCIRCLE CIRCLE LOCALELLIPSE ELLIPSE KNOTELT LOCALCURVE OPENCURVE 
+                         CLOSEDCURVE LOCALCLOSEDCURVE LOCALCLOSEDWIRE LOCALWIRE WIRE CLOSEDWIRE TEXT
+                         LOCALTEXT LOCALTEXTBOX TEXTBOX BOX LOCALBOX ARC LOCALARC)
+
+      :PREVIOUS-DATE " 4-Aug-2022 09:57:43" {WMEDLEY}<library>sketch>SKETCHELEMENTS.;2)
 
 
-(* ; "
-Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation.
-")
+(PRETTYCOMPRINT SKETCH-ELEMENTSCOMS)
 
-(PRETTYCOMPRINT SKETCHELEMENTSCOMS)
-
-(RPAQQ SKETCHELEMENTSCOMS

+(RPAQQ SKETCH-ELEMENTSCOMS

        (                                                     (* ; 
 
                            "contains the functions need to implement the sketch basic element types")

         (FNS INIT.SKETCH.ELEMENTS CREATE.SKETCH.ELEMENT.TYPE SKETCH.ELEMENT.TYPEP 
@@ -9279,140 +9279,138 @@ No more font sizes found.")))
     (CREATEPOSITION (fetch
 (REGION RIGHT) of
 REGION)
            (fetch
 (REGION TOP) of
 REGION])
 )
-(PUTPROPS SKETCHELEMENTS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1991 1992 1993 
-2000 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (14359 24769 (INIT.SKETCH.ELEMENTS 14369 . 21932) (CREATE.SKETCH.ELEMENT.TYPE 21934 . 
-23456) (SKETCH.ELEMENT.TYPEP 23458 . 23846) (SKETCH.ELEMENT.NAMEP 23848 . 24111) (
-\CURSOR.IN.MIDDLE.MENU 24113 . 24767)) (24810 25487 (SKETCHINCOLORP 24820 . 25140) (READ.COLOR.CHANGE 
-25142 . 25485)) (25996 28775 (SK.CREATE.DEFAULT.FILLING 26006 . 26307) (SKFILLINGP 26309 . 26942) (
-SK.INSURE.FILLING 26944 . 28372) (SK.INSURE.COLOR 28374 . 28773)) (28776 34386 (SK.TRANSLATE.MODE 
-28786 . 29568) (SK.CHANGE.FILLING.MODE 29570 . 33153) (READ.FILLING.MODE 33155 . 34384)) (34387 65061 
-(SKETCH.CREATE.CIRCLE 34397 . 35209) (CIRCLE.EXPANDFN 35211 . 38583) (CIRCLE.DRAWFN 38585 . 41586) (
-\CIRCLE.DRAWFN1 41588 . 44183) (CIRCLE.INPUTFN 44185 . 46034) (SK.UPDATE.CIRCLE.AFTER.CHANGE 46036 . 
-46395) (SK.READ.CIRCLE.POINT 46397 . 46868) (SK.SHOW.CIRCLE 46870 . 47516) (CIRCLE.INSIDEFN 47518 . 
-47783) (CIRCLE.REGIONFN 47785 . 49466) (CIRCLE.GLOBALREGIONFN 49468 . 50986) (CIRCLE.TRANSLATE 50988
- . 52849) (CIRCLE.READCHANGEFN 52851 . 57467) (CIRCLE.TRANSFORMFN 57469 . 59322) (CIRCLE.TRANSLATEPTS 
-59324 . 60938) (SK.CIRCLE.CREATE 60940 . 61783) (SET.CIRCLE.SCALE 61785 . 62551) (SK.BRUSH.READCHANGE 
-62553 . 65059)) (65062 65791 (SK.INSURE.BRUSH 65072 . 65466) (SK.INSURE.DASHING 65468 . 65789)) (67005
- 96499 (SKETCH.CREATE.ELLIPSE 67015 . 67614) (ELLIPSE.EXPANDFN 67616 . 71228) (ELLIPSE.DRAWFN 71230 . 
-75407) (ELLIPSE.INPUTFN 75409 . 77849) (SK.READ.ELLIPSE.MAJOR.PT 77851 . 78430) (
-SK.SHOW.ELLIPSE.MAJOR.RADIUS 78432 . 79187) (SK.READ.ELLIPSE.MINOR.PT 79189 . 79882) (
-SK.SHOW.ELLIPSE.MINOR.RADIUS 79884 . 80716) (ELLIPSE.INSIDEFN 80718 . 80988) (ELLIPSE.CREATE 80990 . 
-82365) (SK.UPDATE.ELLIPSE.AFTER.CHANGE 82367 . 82735) (ELLIPSE.REGIONFN 82737 . 84937) (
-ELLIPSE.GLOBALREGIONFN 84939 . 86752) (ELLIPSE.TRANSLATEFN 86754 . 89300) (ELLIPSE.TRANSFORMFN 89302
- . 90579) (ELLIPSE.TRANSLATEPTS 90581 . 92622) (MARK.SPOT 92624 . 93875) (DISTANCEBETWEEN 93877 . 
-94472) (SK.DISTANCE.TO 94474 . 94859) (SQUARE 94861 . 94903) (COMPUTE.ELLIPSE.ORIENTATION 94905 . 
-95624) (SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 95626 . 96497)) (97612 138668 (SKETCH.CREATE.OPEN.CURVE 
-97622 . 98175) (OPENCURVE.INPUTFN 98177 . 99045) (SK.CURVE.CREATE 99047 . 100792) (MAXXEXTENT 100794
- . 101653) (MAXYEXTENT 101655 . 102515) (KNOT.SET.SCALE.FIELD 102517 . 103319) (OPENCURVE.DRAWFN 
-103321 . 104452) (OPENCURVE.EXPANDFN 104454 . 107769) (OPENCURVE.READCHANGEFN 107771 . 110973) (
-OPENCURVE.TRANSFORMFN 110975 . 113473) (OPENCURVE.TRANSLATEFN 113475 . 113897) (
-OPENCURVE.TRANSLATEPTSFN 113899 . 115280) (SKETCH.CREATE.CLOSED.CURVE 115282 . 115788) (
-CLOSEDCURVE.DRAWFN 115790 . 116574) (CLOSEDCURVE.EXPANDFN 116576 . 119689) (CLOSEDCURVE.REGIONFN 
-119691 . 120488) (CLOSEDCURVE.GLOBALREGIONFN 120490 . 121923) (READ.LIST.OF.POINTS 121925 . 123904) (
-CLOSEDCURVE.INPUTFN 123906 . 124551) (CLOSEDCURVE.READCHANGEFN 124553 . 127448) (
-CLOSEDCURVE.TRANSFORMFN 127450 . 129250) (CLOSEDCURVE.TRANSLATEPTSFN 129252 . 130597) (INVISIBLEPARTP 
-130599 . 130952) (SHOWSKETCHPOINT 130954 . 131259) (SHOWSKETCHXY 131261 . 131779) (KNOTS.REGIONFN 
-131781 . 132682) (OPENWIRE.GLOBALREGIONFN 132684 . 133548) (CURVE.REGIONFN 133550 . 134491) (
-OPENCURVE.GLOBALREGIONFN 134493 . 135900) (KNOTS.TRANSLATEFN 135902 . 136945) (REGION.CONTAINING.PTS 
-136947 . 138666)) (138669 160945 (CHANGE.ELTS.BRUSH.SIZE 138679 . 139289) (CHANGE.ELTS.BRUSH 139291 . 
-139808) (CHANGE.ELTS.BRUSH.SHAPE 139810 . 140211) (SK.CHANGE.BRUSH.SHAPE 140213 . 143725) (
-SK.CHANGE.BRUSH.COLOR 143727 . 148173) (SK.CHANGE.BRUSH.SIZE 148175 . 153133) (SK.CHANGE.ANGLE 153135
- . 156115) (SK.CHANGE.ARC.DIRECTION 156117 . 158496) (SK.SET.DEFAULT.BRUSH.SIZE 158498 . 159197) (
-READSIZECHANGE 159199 . 160943)) (160946 162565 (SK.CHANGE.ELEMENT.KNOTS 160956 . 162563)) (162566 
-163213 (SK.INSURE.POINT.LIST 162576 . 163029) (SK.INSURE.POSITION 163031 . 163211)) (164581 196904 (
-SKETCH.CREATE.WIRE 164591 . 165081) (CLOSEDWIRE.EXPANDFN 165083 . 167771) (KNOTS.INSIDEFN 167773 . 
-168494) (OPEN.WIRE.DRAWFN 168496 . 169088) (WIRE.EXPANDFN 169090 . 172337) (
-SK.UPDATE.WIRE.ELT.AFTER.CHANGE 172339 . 172860) (OPENWIRE.READCHANGEFN 172862 . 175355) (
-OPENWIRE.TRANSFORMFN 175357 . 177480) (OPENWIRE.TRANSLATEFN 177482 . 177906) (OPENWIRE.TRANSLATEPTSFN 
-177908 . 179187) (WIRE.INPUTFN 179189 . 180820) (SK.READ.WIRE.POINTS 180822 . 181353) (
-SK.READ.POINTS.WITH.FEEDBACK 181355 . 184122) (OPENWIRE.FEEDBACKFN 184124 . 184878) (
-CLOSEDWIRE.FEEDBACKFN 184880 . 186236) (CLOSEDWIRE.REGIONFN 186238 . 187223) (
-CLOSEDWIRE.GLOBALREGIONFN 187225 . 188277) (SK.WIRE.CREATE 188279 . 190042) (WIRE.ADD.POINT.TO.END 
-190044 . 190960) (READ.ARROW.CHANGE 190962 . 196438) (CHANGE.ELTS.ARROWHEADS 196440 . 196902)) (196905
- 207911 (SKETCH.CREATE.CLOSED.WIRE 196915 . 197476) (CLOSED.WIRE.INPUTFN 197478 . 197833) (
-CLOSED.WIRE.DRAWFN 197835 . 199880) (CLOSEDWIRE.READCHANGEFN 199882 . 204787) (CLOSEDWIRE.TRANSFORMFN 
-204789 . 206583) (CLOSEDWIRE.TRANSLATEPTSFN 206585 . 207909)) (207912 260618 (SK.EXPAND.ARROWHEADS 
-207922 . 208272) (SK.COMPUTE.ARC.ARROWHEAD.POINTS 208274 . 209655) (ARC.ARROWHEAD.POINTS 209657 . 
-210880) (SET.ARC.ARROWHEAD.POINTS 210882 . 211863) (SET.OPENCURVE.ARROWHEAD.POINTS 211865 . 212766) (
-SK.COMPUTE.CURVE.ARROWHEAD.POINTS 212768 . 214038) (SET.WIRE.ARROWHEAD.POINTS 214040 . 214793) (
-SK.COMPUTE.WIRE.ARROWHEAD.POINTS 214795 . 216060) (SK.EXPAND.ARROWHEAD 216062 . 217245) (CHANGED.ARROW
- 217247 . 220419) (SK.CHANGE.ARROWHEAD 220421 . 220874) (SK.CHANGE.ARROWHEAD1 220876 . 226131) (
-SK.CREATE.ARROWHEAD 226133 . 226653) (SK.ARROWHEAD.CREATE 226655 . 228229) (SK.ARROWHEAD.END.TEST 
-228231 . 229155) (READ.ARROWHEAD.END 229157 . 231182) (ARROW.HEAD.POSITIONS 231184 . 233024) (
-ARROWHEAD.POINTS.LIST 233026 . 236998) (CURVE.ARROWHEAD.POINTS 237000 . 237863) (LEFT.MOST.IS.BEGINP 
-237865 . 238746) (WIRE.ARROWHEAD.POINTS 238748 . 240274) (DRAWARROWHEADS 240276 . 242646) (
-\SK.DRAW.TRIANGLE.ARROWHEAD 242648 . 244308) (\SK.ENDPT.OF.ARROW 244310 . 246567) (
-\SK.ADJUST.FOR.ARROWHEADS 246569 . 249074) (SK.SET.ARROWHEAD.LENGTH 249076 . 250220) (
-SK.SET.ARROWHEAD.ANGLE 250222 . 251318) (SK.SET.ARROWHEAD.TYPE 251320 . 254609) (SK.SET.LINE.ARROWHEAD
- 254611 . 257024) (SK.UPDATE.ARROWHEAD.FORMAT 257026 . 259136) (SK.SET.LINE.LENGTH.MODE 259138 . 
-260616)) (260619 262420 (SK.INSURE.ARROWHEADS 260629 . 261811) (SK.ARROWHEADP 261813 . 262418)) (
-265217 327543 (SKETCH.CREATE.TEXT 265227 . 265741) (TEXT.CHANGEFN 265743 . 266135) (TEXT.READCHANGEFN 
-266137 . 274208) (\SK.READ.FONT.SIZE1 274210 . 276106) (SK.TEXT.ELT.WITH.SAME.FIELDS 276108 . 277748) 
-(SK.READFONTFAMILY 277750 . 279296) (CLOSE.PROMPT.WINDOW 279298 . 279722) (TEXT.DRAWFN 279724 . 280445
-) (TEXT.DRAWFN1 280447 . 283949) (TEXT.INSIDEFN 283951 . 284340) (TEXT.EXPANDFN 284342 . 286467) (
-SK.TEXT.LINE.REGIONS 286469 . 288343) (TEXT.UPDATE.GLOBAL.REGIONS 288345 . 289577) (REL.MOVE.REGION 
-289579 . 290116) (LTEXT.LINE.REGIONS 290118 . 293536) (TEXT.INPUTFN 293538 . 294048) (READ.TEXT 294050
- . 294798) (TEXT.POSITION.AND.CREATE 294800 . 297111) (CREATE.TEXT.ELEMENT 297113 . 297931) (
-SK.UPDATE.TEXT.AFTER.CHANGE 297933 . 298335) (SK.TEXT.FROM.TEXTBOX 298337 . 302143) (
-TEXT.SET.GLOBAL.REGIONS 302145 . 303438) (TEXT.REGIONFN 303440 . 304210) (TEXT.GLOBALREGIONFN 304212
- . 304900) (TEXT.TRANSLATEFN 304902 . 306217) (TEXT.TRANSFORMFN 306219 . 307342) (TEXT.TRANSLATEPTSFN 
-307344 . 307861) (TEXT.UPDATEFN 307863 . 312519) (SK.CHANGE.TEXT 312521 . 325609) (TEXT.SET.SCALES 
-325611 . 326579) (BREAK.AT.CARRIAGE.RETURNS 326581 . 327541)) (327544 346068 (ADD.KNOWN.SKETCH.FONT 
-327554 . 328545) (SK.PICK.FONT 328547 . 334079) (SK.CHOOSE.TEXT.FONT 334081 . 338029) (SK.NEXTSIZEFONT
- 338031 . 339298) (SK.DECREASING.FONT.LIST 339300 . 341173) (SK.GUESS.FONTSAVAILABLE 341175 . 346066))
- (346487 360630 (SK.SET.FONT 346497 . 348064) (SK.SET.TEXT.FONT 348066 . 349068) (SK.SET.TEXT.SIZE 
-349070 . 349757) (SK.SET.TEXT.HORIZ.ALIGN 349759 . 351333) (SK.READFONTSIZE 351335 . 353565) (
-SK.COLLECT.FONT.SIZES 353567 . 356485) (SK.SET.TEXT.VERT.ALIGN 356487 . 358529) (SK.SET.TEXT.LOOKS 
-358531 . 359988) (SK.SET.DEFAULT.TEXT.FACE 359990 . 360628)) (360631 361217 (CREATE.SKETCH.TERMTABLE 
-360641 . 361215)) (361218 362984 (SK.FONT.LIST 361228 . 361554) (SK.INSURE.FONT 361556 . 362078) (
-SK.INSURE.STYLE 362080 . 362598) (SK.INSURE.TEXT 362600 . 362982)) (363554 420847 (
-SKETCH.CREATE.TEXTBOX 363564 . 365206) (SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 365208 . 367285) (
-SK.BREAK.INTO.LINES 367287 . 378473) (SK.BRUSH.SIZE 378475 . 378856) (SK.TEXTBOX.CREATE 378858 . 
-379655) (SK.TEXTBOX.CREATE1 379657 . 380721) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 380723 . 381263) (
-SK.TEXTBOX.POSITION.IN.BOX 381265 . 383176) (TEXTBOX.CHANGEFN 383178 . 383652) (TEXTBOX.DRAWFN 383654
- . 385690) (SK.TEXTURE.AROUND.REGIONS 385692 . 391765) (ALL.EMPTY.REGIONS 391767 . 392257) (
-TEXTBOX.EXPANDFN 392259 . 399415) (TEXTBOX.INPUTFN 399417 . 401030) (TEXTBOX.INSIDEFN 401032 . 401445)
- (TEXTBOX.REGIONFN 401447 . 402301) (TEXTBOX.GLOBALREGIONFN 402303 . 402631) (
-TEXTBOX.SET.GLOBAL.REGIONS 402633 . 403964) (TEXTBOX.TRANSLATEFN 403966 . 405807) (
-TEXTBOX.TRANSLATEPTSFN 405809 . 408592) (TEXTBOX.TRANSFORMFN 408594 . 410262) (TEXTBOX.UPDATEFN 410264
- . 412157) (TEXTBOX.READCHANGEFN 412159 . 417048) (SK.TEXTBOX.TEXT.POSITION 417050 . 417471) (
-SK.TEXTBOX.FROM.TEXT 417473 . 420078) (ADD.EOLS 420080 . 420845)) (421376 424877 (
-SK.SET.TEXTBOX.VERT.ALIGN 421386 . 423266) (SK.SET.TEXTBOX.HORIZ.ALIGN 423268 . 424875)) (425260 
-469735 (SKETCH.CREATE.BOX 425270 . 425753) (SK.BOX.DRAWFN 425755 . 426914) (BOX.DRAWFN1 426916 . 
-429755) (KNOTS.OF.REGION 429757 . 430991) (SK.DRAWAREABOX 430993 . 437594) (SK.DRAWBOX 437596 . 438785
-) (SK.BOX.EXPANDFN 438787 . 442535) (SK.BOX.GETREGIONFN 442537 . 443723) (BOX.SET.SCALES 443725 . 
-444965) (SK.BOX.INPUTFN 444967 . 446900) (SK.BOX.CREATE 446902 . 447603) (SK.UPDATE.BOX.AFTER.CHANGE 
-447605 . 448116) (SK.BOX.INSIDEFN 448118 . 448508) (SK.BOX.REGIONFN 448510 . 449223) (
-SK.BOX.GLOBALREGIONFN 449225 . 449963) (SK.BOX.READCHANGEFN 449965 . 453686) (SK.CHANGE.FILLING 453688
- . 457636) (SK.CHANGE.FILLING.COLOR 457638 . 461294) (SK.BOX.TRANSLATEFN 461296 . 462475) (
-SK.BOX.TRANSFORMFN 462477 . 463422) (SK.BOX.TRANSLATEPTSFN 463424 . 465792) (UNSCALE.REGION.TO.GRID 
-465794 . 466719) (INCREASEREGION 466721 . 467312) (INSUREREGIONSIZE 467314 . 468485) (EXPANDREGION 
-468487 . 469367) (REGION.FROM.COORDINATES 469369 . 469733)) (470271 496626 (SKETCH.CREATE.ARC 470281
- . 471090) (ARC.DRAWFN 471092 . 472819) (ARC.EXPANDFN 472821 . 475154) (ARC.INPUTFN 475156 . 479374) (
-SK.INVERT.CIRCLE 479376 . 480236) (SK.READ.ARC.ANGLE.POINT 480238 . 480745) (SK.SHOW.ARC 480747 . 
-481357) (ARC.CREATE 481359 . 482714) (SK.UPDATE.ARC.AFTER.CHANGE 482716 . 483056) (ARC.MOVEFN 483058
- . 484641) (ARC.TRANSLATEPTS 484643 . 486528) (ARC.INSIDEFN 486530 . 486780) (ARC.REGIONFN 486782 . 
-487918) (ARC.GLOBALREGIONFN 487920 . 489642) (ARC.TRANSLATE 489644 . 490626) (ARC.TRANSFORMFN 490628
- . 493578) (ARC.READCHANGEFN 493580 . 496624)) (496627 505706 (SK.COMPUTE.ARC.ANGLE.PT 496637 . 497563
-) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 497565 . 498558) (SK.COMPUTE.ARC.PTS 498560 . 502132) (
-SK.SET.ARC.DIRECTION 502134 . 502708) (SK.SET.ARC.DIRECTION.CW 502710 . 502884) (
-SK.SET.ARC.DIRECTION.CCW 502886 . 503159) (SK.COMPUTE.SLOPE.OF.LINE 503161 . 503653) (
-SK.CREATE.ARC.USING 503655 . 504892) (SET.ARC.SCALES 504894 . 505704)) (505707 506152 (
-SK.INSURE.DIRECTION 505717 . 506150)) (507523 553382 (GETSKETCHELEMENTPROP 507533 . 508841) (
-\SK.GET.ARC.ANGLEPT 508843 . 509404) (\GETSKETCHELEMENTPROP1 509406 . 509660) (\SK.GET.BRUSH 509662 . 
-510586) (\SK.GET.FILLING 510588 . 511686) (\SK.GET.ARROWHEADS 511688 . 512467) (\SK.GET.FONT 512469 . 
-512949) (\SK.GET.JUSTIFICATION 512951 . 513475) (\SK.GET.DIRECTION 513477 . 513954) (\SK.GET.DASHING 
-513956 . 514975) (PUTSKETCHELEMENTPROP 514977 . 517246) (\SK.PUT.FILLING 517248 . 518518) (
-ADDSKETCHELEMENTPROP 518520 . 519325) (REMOVESKETCHELEMENTPROP 519327 . 520116) (\SK.PUT.FONT 520118
- . 520932) (\SK.PUT.JUSTIFICATION 520934 . 521945) (\SK.PUT.DIRECTION 521947 . 522554) (
-\SK.PUT.DASHING 522556 . 523891) (\SK.PUT.BRUSH 523893 . 525812) (\SK.PUT.ARROWHEADS 525814 . 527780) 
-(SK.COPY.ELEMENT.PROPERTY.LIST 527782 . 528358) (SKETCH.UPDATE 528360 . 529090) (SKETCH.UPDATE1 529092
- . 530380) (\SKELT.GET.SCALE 530382 . 531370) (\SKELT.PUT.SCALE 531372 . 532679) (\SKELT.PUT.DATA 
-532681 . 534478) (SK.REPLACE.TEXT.IN.ELEMENT 534480 . 535433) (\SKELT.GET.DATA 535435 . 536502) (
-\SK.GET.1STCONTROLPT 536504 . 538016) (\SK.PUT.1STCONTROLPT 538018 . 543491) (\SK.GET.2NDCONTROLPT 
-543493 . 544408) (\SK.PUT.2NDCONTROLPT 544410 . 548598) (\SK.GET.3RDCONTROLPT 548600 . 549478) (
-\SK.PUT.3RDCONTROLPT 549480 . 553380)) (553383 553964 (LOWERLEFTCORNER 553393 . 553639) (
-UPPERRIGHTCORNER 553641 . 553962)))))
+  (FILEMAP (NIL (14510 24920 (INIT.SKETCH.ELEMENTS 14520 . 22083) (CREATE.SKETCH.ELEMENT.TYPE 22085 . 
+23607) (SKETCH.ELEMENT.TYPEP 23609 . 23997) (SKETCH.ELEMENT.NAMEP 23999 . 24262) (
+\CURSOR.IN.MIDDLE.MENU 24264 . 24918)) (24961 25638 (SKETCHINCOLORP 24971 . 25291) (READ.COLOR.CHANGE 
+25293 . 25636)) (26147 28926 (SK.CREATE.DEFAULT.FILLING 26157 . 26458) (SKFILLINGP 26460 . 27093) (
+SK.INSURE.FILLING 27095 . 28523) (SK.INSURE.COLOR 28525 . 28924)) (28927 34537 (SK.TRANSLATE.MODE 
+28937 . 29719) (SK.CHANGE.FILLING.MODE 29721 . 33304) (READ.FILLING.MODE 33306 . 34535)) (34538 65212 
+(SKETCH.CREATE.CIRCLE 34548 . 35360) (CIRCLE.EXPANDFN 35362 . 38734) (CIRCLE.DRAWFN 38736 . 41737) (
+\CIRCLE.DRAWFN1 41739 . 44334) (CIRCLE.INPUTFN 44336 . 46185) (SK.UPDATE.CIRCLE.AFTER.CHANGE 46187 . 
+46546) (SK.READ.CIRCLE.POINT 46548 . 47019) (SK.SHOW.CIRCLE 47021 . 47667) (CIRCLE.INSIDEFN 47669 . 
+47934) (CIRCLE.REGIONFN 47936 . 49617) (CIRCLE.GLOBALREGIONFN 49619 . 51137) (CIRCLE.TRANSLATE 51139
+ . 53000) (CIRCLE.READCHANGEFN 53002 . 57618) (CIRCLE.TRANSFORMFN 57620 . 59473) (CIRCLE.TRANSLATEPTS 
+59475 . 61089) (SK.CIRCLE.CREATE 61091 . 61934) (SET.CIRCLE.SCALE 61936 . 62702) (SK.BRUSH.READCHANGE 
+62704 . 65210)) (65213 65942 (SK.INSURE.BRUSH 65223 . 65617) (SK.INSURE.DASHING 65619 . 65940)) (67156
+ 96650 (SKETCH.CREATE.ELLIPSE 67166 . 67765) (ELLIPSE.EXPANDFN 67767 . 71379) (ELLIPSE.DRAWFN 71381 . 
+75558) (ELLIPSE.INPUTFN 75560 . 78000) (SK.READ.ELLIPSE.MAJOR.PT 78002 . 78581) (
+SK.SHOW.ELLIPSE.MAJOR.RADIUS 78583 . 79338) (SK.READ.ELLIPSE.MINOR.PT 79340 . 80033) (
+SK.SHOW.ELLIPSE.MINOR.RADIUS 80035 . 80867) (ELLIPSE.INSIDEFN 80869 . 81139) (ELLIPSE.CREATE 81141 . 
+82516) (SK.UPDATE.ELLIPSE.AFTER.CHANGE 82518 . 82886) (ELLIPSE.REGIONFN 82888 . 85088) (
+ELLIPSE.GLOBALREGIONFN 85090 . 86903) (ELLIPSE.TRANSLATEFN 86905 . 89451) (ELLIPSE.TRANSFORMFN 89453
+ . 90730) (ELLIPSE.TRANSLATEPTS 90732 . 92773) (MARK.SPOT 92775 . 94026) (DISTANCEBETWEEN 94028 . 
+94623) (SK.DISTANCE.TO 94625 . 95010) (SQUARE 95012 . 95054) (COMPUTE.ELLIPSE.ORIENTATION 95056 . 
+95775) (SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 95777 . 96648)) (97763 138819 (SKETCH.CREATE.OPEN.CURVE 
+97773 . 98326) (OPENCURVE.INPUTFN 98328 . 99196) (SK.CURVE.CREATE 99198 . 100943) (MAXXEXTENT 100945
+ . 101804) (MAXYEXTENT 101806 . 102666) (KNOT.SET.SCALE.FIELD 102668 . 103470) (OPENCURVE.DRAWFN 
+103472 . 104603) (OPENCURVE.EXPANDFN 104605 . 107920) (OPENCURVE.READCHANGEFN 107922 . 111124) (
+OPENCURVE.TRANSFORMFN 111126 . 113624) (OPENCURVE.TRANSLATEFN 113626 . 114048) (
+OPENCURVE.TRANSLATEPTSFN 114050 . 115431) (SKETCH.CREATE.CLOSED.CURVE 115433 . 115939) (
+CLOSEDCURVE.DRAWFN 115941 . 116725) (CLOSEDCURVE.EXPANDFN 116727 . 119840) (CLOSEDCURVE.REGIONFN 
+119842 . 120639) (CLOSEDCURVE.GLOBALREGIONFN 120641 . 122074) (READ.LIST.OF.POINTS 122076 . 124055) (
+CLOSEDCURVE.INPUTFN 124057 . 124702) (CLOSEDCURVE.READCHANGEFN 124704 . 127599) (
+CLOSEDCURVE.TRANSFORMFN 127601 . 129401) (CLOSEDCURVE.TRANSLATEPTSFN 129403 . 130748) (INVISIBLEPARTP 
+130750 . 131103) (SHOWSKETCHPOINT 131105 . 131410) (SHOWSKETCHXY 131412 . 131930) (KNOTS.REGIONFN 
+131932 . 132833) (OPENWIRE.GLOBALREGIONFN 132835 . 133699) (CURVE.REGIONFN 133701 . 134642) (
+OPENCURVE.GLOBALREGIONFN 134644 . 136051) (KNOTS.TRANSLATEFN 136053 . 137096) (REGION.CONTAINING.PTS 
+137098 . 138817)) (138820 161096 (CHANGE.ELTS.BRUSH.SIZE 138830 . 139440) (CHANGE.ELTS.BRUSH 139442 . 
+139959) (CHANGE.ELTS.BRUSH.SHAPE 139961 . 140362) (SK.CHANGE.BRUSH.SHAPE 140364 . 143876) (
+SK.CHANGE.BRUSH.COLOR 143878 . 148324) (SK.CHANGE.BRUSH.SIZE 148326 . 153284) (SK.CHANGE.ANGLE 153286
+ . 156266) (SK.CHANGE.ARC.DIRECTION 156268 . 158647) (SK.SET.DEFAULT.BRUSH.SIZE 158649 . 159348) (
+READSIZECHANGE 159350 . 161094)) (161097 162716 (SK.CHANGE.ELEMENT.KNOTS 161107 . 162714)) (162717 
+163364 (SK.INSURE.POINT.LIST 162727 . 163180) (SK.INSURE.POSITION 163182 . 163362)) (164732 197055 (
+SKETCH.CREATE.WIRE 164742 . 165232) (CLOSEDWIRE.EXPANDFN 165234 . 167922) (KNOTS.INSIDEFN 167924 . 
+168645) (OPEN.WIRE.DRAWFN 168647 . 169239) (WIRE.EXPANDFN 169241 . 172488) (
+SK.UPDATE.WIRE.ELT.AFTER.CHANGE 172490 . 173011) (OPENWIRE.READCHANGEFN 173013 . 175506) (
+OPENWIRE.TRANSFORMFN 175508 . 177631) (OPENWIRE.TRANSLATEFN 177633 . 178057) (OPENWIRE.TRANSLATEPTSFN 
+178059 . 179338) (WIRE.INPUTFN 179340 . 180971) (SK.READ.WIRE.POINTS 180973 . 181504) (
+SK.READ.POINTS.WITH.FEEDBACK 181506 . 184273) (OPENWIRE.FEEDBACKFN 184275 . 185029) (
+CLOSEDWIRE.FEEDBACKFN 185031 . 186387) (CLOSEDWIRE.REGIONFN 186389 . 187374) (
+CLOSEDWIRE.GLOBALREGIONFN 187376 . 188428) (SK.WIRE.CREATE 188430 . 190193) (WIRE.ADD.POINT.TO.END 
+190195 . 191111) (READ.ARROW.CHANGE 191113 . 196589) (CHANGE.ELTS.ARROWHEADS 196591 . 197053)) (197056
+ 208062 (SKETCH.CREATE.CLOSED.WIRE 197066 . 197627) (CLOSED.WIRE.INPUTFN 197629 . 197984) (
+CLOSED.WIRE.DRAWFN 197986 . 200031) (CLOSEDWIRE.READCHANGEFN 200033 . 204938) (CLOSEDWIRE.TRANSFORMFN 
+204940 . 206734) (CLOSEDWIRE.TRANSLATEPTSFN 206736 . 208060)) (208063 260769 (SK.EXPAND.ARROWHEADS 
+208073 . 208423) (SK.COMPUTE.ARC.ARROWHEAD.POINTS 208425 . 209806) (ARC.ARROWHEAD.POINTS 209808 . 
+211031) (SET.ARC.ARROWHEAD.POINTS 211033 . 212014) (SET.OPENCURVE.ARROWHEAD.POINTS 212016 . 212917) (
+SK.COMPUTE.CURVE.ARROWHEAD.POINTS 212919 . 214189) (SET.WIRE.ARROWHEAD.POINTS 214191 . 214944) (
+SK.COMPUTE.WIRE.ARROWHEAD.POINTS 214946 . 216211) (SK.EXPAND.ARROWHEAD 216213 . 217396) (CHANGED.ARROW
+ 217398 . 220570) (SK.CHANGE.ARROWHEAD 220572 . 221025) (SK.CHANGE.ARROWHEAD1 221027 . 226282) (
+SK.CREATE.ARROWHEAD 226284 . 226804) (SK.ARROWHEAD.CREATE 226806 . 228380) (SK.ARROWHEAD.END.TEST 
+228382 . 229306) (READ.ARROWHEAD.END 229308 . 231333) (ARROW.HEAD.POSITIONS 231335 . 233175) (
+ARROWHEAD.POINTS.LIST 233177 . 237149) (CURVE.ARROWHEAD.POINTS 237151 . 238014) (LEFT.MOST.IS.BEGINP 
+238016 . 238897) (WIRE.ARROWHEAD.POINTS 238899 . 240425) (DRAWARROWHEADS 240427 . 242797) (
+\SK.DRAW.TRIANGLE.ARROWHEAD 242799 . 244459) (\SK.ENDPT.OF.ARROW 244461 . 246718) (
+\SK.ADJUST.FOR.ARROWHEADS 246720 . 249225) (SK.SET.ARROWHEAD.LENGTH 249227 . 250371) (
+SK.SET.ARROWHEAD.ANGLE 250373 . 251469) (SK.SET.ARROWHEAD.TYPE 251471 . 254760) (SK.SET.LINE.ARROWHEAD
+ 254762 . 257175) (SK.UPDATE.ARROWHEAD.FORMAT 257177 . 259287) (SK.SET.LINE.LENGTH.MODE 259289 . 
+260767)) (260770 262571 (SK.INSURE.ARROWHEADS 260780 . 261962) (SK.ARROWHEADP 261964 . 262569)) (
+265368 327694 (SKETCH.CREATE.TEXT 265378 . 265892) (TEXT.CHANGEFN 265894 . 266286) (TEXT.READCHANGEFN 
+266288 . 274359) (\SK.READ.FONT.SIZE1 274361 . 276257) (SK.TEXT.ELT.WITH.SAME.FIELDS 276259 . 277899) 
+(SK.READFONTFAMILY 277901 . 279447) (CLOSE.PROMPT.WINDOW 279449 . 279873) (TEXT.DRAWFN 279875 . 280596
+) (TEXT.DRAWFN1 280598 . 284100) (TEXT.INSIDEFN 284102 . 284491) (TEXT.EXPANDFN 284493 . 286618) (
+SK.TEXT.LINE.REGIONS 286620 . 288494) (TEXT.UPDATE.GLOBAL.REGIONS 288496 . 289728) (REL.MOVE.REGION 
+289730 . 290267) (LTEXT.LINE.REGIONS 290269 . 293687) (TEXT.INPUTFN 293689 . 294199) (READ.TEXT 294201
+ . 294949) (TEXT.POSITION.AND.CREATE 294951 . 297262) (CREATE.TEXT.ELEMENT 297264 . 298082) (
+SK.UPDATE.TEXT.AFTER.CHANGE 298084 . 298486) (SK.TEXT.FROM.TEXTBOX 298488 . 302294) (
+TEXT.SET.GLOBAL.REGIONS 302296 . 303589) (TEXT.REGIONFN 303591 . 304361) (TEXT.GLOBALREGIONFN 304363
+ . 305051) (TEXT.TRANSLATEFN 305053 . 306368) (TEXT.TRANSFORMFN 306370 . 307493) (TEXT.TRANSLATEPTSFN 
+307495 . 308012) (TEXT.UPDATEFN 308014 . 312670) (SK.CHANGE.TEXT 312672 . 325760) (TEXT.SET.SCALES 
+325762 . 326730) (BREAK.AT.CARRIAGE.RETURNS 326732 . 327692)) (327695 346219 (ADD.KNOWN.SKETCH.FONT 
+327705 . 328696) (SK.PICK.FONT 328698 . 334230) (SK.CHOOSE.TEXT.FONT 334232 . 338180) (SK.NEXTSIZEFONT
+ 338182 . 339449) (SK.DECREASING.FONT.LIST 339451 . 341324) (SK.GUESS.FONTSAVAILABLE 341326 . 346217))
+ (346638 360781 (SK.SET.FONT 346648 . 348215) (SK.SET.TEXT.FONT 348217 . 349219) (SK.SET.TEXT.SIZE 
+349221 . 349908) (SK.SET.TEXT.HORIZ.ALIGN 349910 . 351484) (SK.READFONTSIZE 351486 . 353716) (
+SK.COLLECT.FONT.SIZES 353718 . 356636) (SK.SET.TEXT.VERT.ALIGN 356638 . 358680) (SK.SET.TEXT.LOOKS 
+358682 . 360139) (SK.SET.DEFAULT.TEXT.FACE 360141 . 360779)) (360782 361368 (CREATE.SKETCH.TERMTABLE 
+360792 . 361366)) (361369 363135 (SK.FONT.LIST 361379 . 361705) (SK.INSURE.FONT 361707 . 362229) (
+SK.INSURE.STYLE 362231 . 362749) (SK.INSURE.TEXT 362751 . 363133)) (363705 420998 (
+SKETCH.CREATE.TEXTBOX 363715 . 365357) (SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 365359 . 367436) (
+SK.BREAK.INTO.LINES 367438 . 378624) (SK.BRUSH.SIZE 378626 . 379007) (SK.TEXTBOX.CREATE 379009 . 
+379806) (SK.TEXTBOX.CREATE1 379808 . 380872) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 380874 . 381414) (
+SK.TEXTBOX.POSITION.IN.BOX 381416 . 383327) (TEXTBOX.CHANGEFN 383329 . 383803) (TEXTBOX.DRAWFN 383805
+ . 385841) (SK.TEXTURE.AROUND.REGIONS 385843 . 391916) (ALL.EMPTY.REGIONS 391918 . 392408) (
+TEXTBOX.EXPANDFN 392410 . 399566) (TEXTBOX.INPUTFN 399568 . 401181) (TEXTBOX.INSIDEFN 401183 . 401596)
+ (TEXTBOX.REGIONFN 401598 . 402452) (TEXTBOX.GLOBALREGIONFN 402454 . 402782) (
+TEXTBOX.SET.GLOBAL.REGIONS 402784 . 404115) (TEXTBOX.TRANSLATEFN 404117 . 405958) (
+TEXTBOX.TRANSLATEPTSFN 405960 . 408743) (TEXTBOX.TRANSFORMFN 408745 . 410413) (TEXTBOX.UPDATEFN 410415
+ . 412308) (TEXTBOX.READCHANGEFN 412310 . 417199) (SK.TEXTBOX.TEXT.POSITION 417201 . 417622) (
+SK.TEXTBOX.FROM.TEXT 417624 . 420229) (ADD.EOLS 420231 . 420996)) (421527 425028 (
+SK.SET.TEXTBOX.VERT.ALIGN 421537 . 423417) (SK.SET.TEXTBOX.HORIZ.ALIGN 423419 . 425026)) (425411 
+469886 (SKETCH.CREATE.BOX 425421 . 425904) (SK.BOX.DRAWFN 425906 . 427065) (BOX.DRAWFN1 427067 . 
+429906) (KNOTS.OF.REGION 429908 . 431142) (SK.DRAWAREABOX 431144 . 437745) (SK.DRAWBOX 437747 . 438936
+) (SK.BOX.EXPANDFN 438938 . 442686) (SK.BOX.GETREGIONFN 442688 . 443874) (BOX.SET.SCALES 443876 . 
+445116) (SK.BOX.INPUTFN 445118 . 447051) (SK.BOX.CREATE 447053 . 447754) (SK.UPDATE.BOX.AFTER.CHANGE 
+447756 . 448267) (SK.BOX.INSIDEFN 448269 . 448659) (SK.BOX.REGIONFN 448661 . 449374) (
+SK.BOX.GLOBALREGIONFN 449376 . 450114) (SK.BOX.READCHANGEFN 450116 . 453837) (SK.CHANGE.FILLING 453839
+ . 457787) (SK.CHANGE.FILLING.COLOR 457789 . 461445) (SK.BOX.TRANSLATEFN 461447 . 462626) (
+SK.BOX.TRANSFORMFN 462628 . 463573) (SK.BOX.TRANSLATEPTSFN 463575 . 465943) (UNSCALE.REGION.TO.GRID 
+465945 . 466870) (INCREASEREGION 466872 . 467463) (INSUREREGIONSIZE 467465 . 468636) (EXPANDREGION 
+468638 . 469518) (REGION.FROM.COORDINATES 469520 . 469884)) (470422 496777 (SKETCH.CREATE.ARC 470432
+ . 471241) (ARC.DRAWFN 471243 . 472970) (ARC.EXPANDFN 472972 . 475305) (ARC.INPUTFN 475307 . 479525) (
+SK.INVERT.CIRCLE 479527 . 480387) (SK.READ.ARC.ANGLE.POINT 480389 . 480896) (SK.SHOW.ARC 480898 . 
+481508) (ARC.CREATE 481510 . 482865) (SK.UPDATE.ARC.AFTER.CHANGE 482867 . 483207) (ARC.MOVEFN 483209
+ . 484792) (ARC.TRANSLATEPTS 484794 . 486679) (ARC.INSIDEFN 486681 . 486931) (ARC.REGIONFN 486933 . 
+488069) (ARC.GLOBALREGIONFN 488071 . 489793) (ARC.TRANSLATE 489795 . 490777) (ARC.TRANSFORMFN 490779
+ . 493729) (ARC.READCHANGEFN 493731 . 496775)) (496778 505857 (SK.COMPUTE.ARC.ANGLE.PT 496788 . 497714
+) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 497716 . 498709) (SK.COMPUTE.ARC.PTS 498711 . 502283) (
+SK.SET.ARC.DIRECTION 502285 . 502859) (SK.SET.ARC.DIRECTION.CW 502861 . 503035) (
+SK.SET.ARC.DIRECTION.CCW 503037 . 503310) (SK.COMPUTE.SLOPE.OF.LINE 503312 . 503804) (
+SK.CREATE.ARC.USING 503806 . 505043) (SET.ARC.SCALES 505045 . 505855)) (505858 506303 (
+SK.INSURE.DIRECTION 505868 . 506301)) (507674 553533 (GETSKETCHELEMENTPROP 507684 . 508992) (
+\SK.GET.ARC.ANGLEPT 508994 . 509555) (\GETSKETCHELEMENTPROP1 509557 . 509811) (\SK.GET.BRUSH 509813 . 
+510737) (\SK.GET.FILLING 510739 . 511837) (\SK.GET.ARROWHEADS 511839 . 512618) (\SK.GET.FONT 512620 . 
+513100) (\SK.GET.JUSTIFICATION 513102 . 513626) (\SK.GET.DIRECTION 513628 . 514105) (\SK.GET.DASHING 
+514107 . 515126) (PUTSKETCHELEMENTPROP 515128 . 517397) (\SK.PUT.FILLING 517399 . 518669) (
+ADDSKETCHELEMENTPROP 518671 . 519476) (REMOVESKETCHELEMENTPROP 519478 . 520267) (\SK.PUT.FONT 520269
+ . 521083) (\SK.PUT.JUSTIFICATION 521085 . 522096) (\SK.PUT.DIRECTION 522098 . 522705) (
+\SK.PUT.DASHING 522707 . 524042) (\SK.PUT.BRUSH 524044 . 525963) (\SK.PUT.ARROWHEADS 525965 . 527931) 
+(SK.COPY.ELEMENT.PROPERTY.LIST 527933 . 528509) (SKETCH.UPDATE 528511 . 529241) (SKETCH.UPDATE1 529243
+ . 530531) (\SKELT.GET.SCALE 530533 . 531521) (\SKELT.PUT.SCALE 531523 . 532830) (\SKELT.PUT.DATA 
+532832 . 534629) (SK.REPLACE.TEXT.IN.ELEMENT 534631 . 535584) (\SKELT.GET.DATA 535586 . 536653) (
+\SK.GET.1STCONTROLPT 536655 . 538167) (\SK.PUT.1STCONTROLPT 538169 . 543642) (\SK.GET.2NDCONTROLPT 
+543644 . 544559) (\SK.PUT.2NDCONTROLPT 544561 . 548749) (\SK.GET.3RDCONTROLPT 548751 . 549629) (
+\SK.PUT.3RDCONTROLPT 549631 . 553531)) (553534 554115 (LOWERLEFTCORNER 553544 . 553790) (
+UPPERRIGHTCORNER 553792 . 554113)))))
 STOP

library/sketch/SKETCH-OBJ

@@ -1,19 +1,17 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "15-Jul-2022 14:33:25" {DSK}<home>larry>winhome>DROPBOX>TEDIT-VERSIONS>SKETCHOBJ.;1
 55347  
+
(FILECREATED " 5-Dec-2023 00:15:05" {WMEDLEY}<library>sketch>SKETCH-OBJ.;1
 55189  
 
-      :CHANGES-TO (FNS SKETCH.DISPLAYFN)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "20-Jan-93 14:48:59" {DSK}<home>larry>medley>library>SKETCHOBJ.;1)
+      :CHANGES-TO (RECORDS SKETCHIMAGEOBJ SKETCHDOCUMENTINFO)
+
+      :PREVIOUS-DATE "15-Jul-2022 14:33:25" {WMEDLEY}<library>sketch>SKETCHOBJ.;2)
 
 
-(* ; "
-Copyright (c) 1984-1988, 1990, 1993 by Venue & Xerox Corporation.
-")
+(PRETTYCOMPRINT SKETCH-OBJCOMS)
 
-(PRETTYCOMPRINT SKETCHOBJCOMS)
-
-(RPAQQ SKETCHOBJCOMS
 
+(RPAQQ SKETCH-OBJCOMS

        [[COMS (* the stuff to support sketch images in documents.)
               (FNS MAKE.IMAGE.OBJECT.OF.SKETCH SK.ELEMENT.FROM.IMAGEOBJ SKETCHIMAGEOBJ.FROM.VIEWER 
                    SKETCH.IMAGEOBJ SKETCH.DISPLAYFN SKETCH.BITMAP.IMAGE SKIO.IMAGEBOXFN SKIO.GETFN.2
@@ -961,23 +959,22 @@ Copyright (c) 1984-1988, 1990, 1993 by Venue & Xerox Corporation.
        '24)
 
 (CREATE.SKIMAGEOBJ.TYPE
)
-(PUTPROPS SKETCHOBJ COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1990 1993))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2084 31471 (MAKE.IMAGE.OBJECT.OF.SKETCH 2094 . 3258) (SK.ELEMENT.FROM.IMAGEOBJ 3260 . 
-3559) (SKETCHIMAGEOBJ.FROM.VIEWER 3561 . 3973) (SKETCH.IMAGEOBJ 3975 . 4811) (SKETCH.DISPLAYFN 4813 . 
-8445) (SKETCH.BITMAP.IMAGE 8447 . 10118) (SKIO.IMAGEBOXFN 10120 . 12125) (SKIO.GETFN.2 12127 . 13596) 
-(SKIO.UPDATE.FROM.OLD.FORM 13598 . 14282) (SKIO.GETFN 14284 . 14802) (SKIO.PUTFN 14804 . 15801) (
-SKIO.COPYFN 15803 . 16505) (SKIO.BUTTONEVENTINFN 16507 . 21564) (TRANSLATE.REGION 21566 . 22095) (
-UPDATE.IMAGE.IN.DOCUMENT 22097 . 24616) (SK.COPY.IMAGEOBJ 24618 . 26289) (COPY.IMAGE.OBJECT 26291 . 
-26828) (\CREATE.SKETCH.IMAGEFNS 26830 . 27967) (\SKIO.IN.TOO.SMALL.TEDITP 27969 . 28661) (
-SKETCH.VIEWER.GRID 28663 . 29960) (SKETCH.VIEWER.SCALE 29962 . 31469)) (31834 39824 (
-SKETCH.IMAGE.OBJECT.ELEMENT 31844 . 32257) (SKETCH.IMAGEOBJ.OF.ELEMENT 32259 . 32585) (
-SKETCH.SCALE.OF.ELEMENT 32587 . 33015) (SKETCH.POSITION.OF.ELEMENT 33017 . 33664) (
-CREATE.SKIMAGEOBJ.TYPE 33666 . 34591) (IMAGEBOXSIZE 34593 . 34944) (SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE
- 34946 . 37073) (SKETCH.CREATE.IMAGE.OBJECT 37075 . 37797) (SKETCH.CREATE.IMAGE.OBJECT1 37799 . 39822)
-) (39825 54230 (SK.IMAGEOBJ.DRAWFN 39835 . 41507) (SK.IMAGEOBJ.REGIONFN 41509 . 41934) (
-SK.IMAGEOBJ.GLOBALREGIONFN 41936 . 42337) (SK.IMAGEOBJ.TRANSLATEFN 42339 . 44622) (
-SK.IMAGEOBJ.EXPANDFN 44624 . 46810) (SK.IMAGEOBJ.INSIDEFN 46812 . 47346) (SK.IMAGEOBJ.MOVEFN 47348 . 
-49579) (SK.IMAGEOBJ.CHANGEFN 49581 . 52656) (SK.IMAGEOBJ.READCHANGEFN 52658 . 52887) (
-SK.IMAGEOBJ.TRANSFORMFN 52889 . 54228)))))
+  (FILEMAP (NIL (2022 31409 (MAKE.IMAGE.OBJECT.OF.SKETCH 2032 . 3196) (SK.ELEMENT.FROM.IMAGEOBJ 3198 . 
+3497) (SKETCHIMAGEOBJ.FROM.VIEWER 3499 . 3911) (SKETCH.IMAGEOBJ 3913 . 4749) (SKETCH.DISPLAYFN 4751 . 
+8383) (SKETCH.BITMAP.IMAGE 8385 . 10056) (SKIO.IMAGEBOXFN 10058 . 12063) (SKIO.GETFN.2 12065 . 13534) 
+(SKIO.UPDATE.FROM.OLD.FORM 13536 . 14220) (SKIO.GETFN 14222 . 14740) (SKIO.PUTFN 14742 . 15739) (
+SKIO.COPYFN 15741 . 16443) (SKIO.BUTTONEVENTINFN 16445 . 21502) (TRANSLATE.REGION 21504 . 22033) (
+UPDATE.IMAGE.IN.DOCUMENT 22035 . 24554) (SK.COPY.IMAGEOBJ 24556 . 26227) (COPY.IMAGE.OBJECT 26229 . 
+26766) (\CREATE.SKETCH.IMAGEFNS 26768 . 27905) (\SKIO.IN.TOO.SMALL.TEDITP 27907 . 28599) (
+SKETCH.VIEWER.GRID 28601 . 29898) (SKETCH.VIEWER.SCALE 29900 . 31407)) (31772 39762 (
+SKETCH.IMAGE.OBJECT.ELEMENT 31782 . 32195) (SKETCH.IMAGEOBJ.OF.ELEMENT 32197 . 32523) (
+SKETCH.SCALE.OF.ELEMENT 32525 . 32953) (SKETCH.POSITION.OF.ELEMENT 32955 . 33602) (
+CREATE.SKIMAGEOBJ.TYPE 33604 . 34529) (IMAGEBOXSIZE 34531 . 34882) (SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE
+ 34884 . 37011) (SKETCH.CREATE.IMAGE.OBJECT 37013 . 37735) (SKETCH.CREATE.IMAGE.OBJECT1 37737 . 39760)
+) (39763 54168 (SK.IMAGEOBJ.DRAWFN 39773 . 41445) (SK.IMAGEOBJ.REGIONFN 41447 . 41872) (
+SK.IMAGEOBJ.GLOBALREGIONFN 41874 . 42275) (SK.IMAGEOBJ.TRANSLATEFN 42277 . 44560) (
+SK.IMAGEOBJ.EXPANDFN 44562 . 46748) (SK.IMAGEOBJ.INSIDEFN 46750 . 47284) (SK.IMAGEOBJ.MOVEFN 47286 . 
+49517) (SK.IMAGEOBJ.CHANGEFN 49519 . 52594) (SK.IMAGEOBJ.READCHANGEFN 52596 . 52825) (
+SK.IMAGEOBJ.TRANSFORMFN 52827 . 54166)))))
 STOP

library/sketch/SKETCH-OPS

@@ -1,15 +1,17 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 3-May-2023 21:06:28" {DSK}<home>larry>il>medley>library>SKETCHOPS.;7
 221663 
+
(FILECREATED " 5-Dec-2023 00:08:46" {WMEDLEY}<library>sketch>SKETCH-OPS.;1
 221752 
 
-      :EDIT-BY "lmm"
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE " 2-May-2023 15:53:16" {DSK}<home>larry>il>medley>library>SKETCHOPS.;2)
+      :CHANGES-TO (RECORDS AFFINETRANSFORMATION SKHISTEVENT SKEVENTTYPE SKETCHVIEW)
+
+      :PREVIOUS-DATE " 3-May-2023 21:06:28" {WMEDLEY}<library>sketch>SKETCHOPS.;2)
 
 
-(PRETTYCOMPRINT SKETCHOPSCOMS)
+(PRETTYCOMPRINT SKETCH-OPSCOMS)
 
-(RPAQQ SKETCHOPSCOMS
 
+(RPAQQ SKETCH-OPSCOMS

        [                                                     (* ; 
 
                                                             "functions that used to be on SKETCH")

         (COMS 
@@ -3128,17 +3130,17 @@ If you meant this, you should use the TWO PT TRANSFORM.")
 (GLOBALVARS SKETCH.#.UNDO.ITEMS)
 )
 
-(PUTPROPS ADD EVENTFNS
 (SK.ADD.UNDO SK.TYPE.OF.FIRST.ARG SK.DELETE.UNDO))
+(PUTPROPS ADD
 EVENTFNS
 (SK.ADD.UNDO SK.TYPE.OF.FIRST.ARG SK.DELETE.UNDO))
 
-(PUTPROPS DELETE EVENTFNS
 (SK.DELETE.UNDO SK.TYPE.OF.FIRST.ARG SK.ADD.UNDO))
+(PUTPROPS DELETE
 EVENTFNS
 (SK.DELETE.UNDO SK.TYPE.OF.FIRST.ARG SK.ADD.UNDO))
 
-(PUTPROPS CHANGE EVENTFNS
 (SK.CHANGE.UNDO SK.TYPE.OF.FIRST.ARG SK.CHANGE.REDO))
+(PUTPROPS CHANGE
 EVENTFNS
 (SK.CHANGE.UNDO SK.TYPE.OF.FIRST.ARG SK.CHANGE.REDO))
 
-(PUTPROPS UNDO EVENTFNS
 (SK.UNDO.UNDO SK.UNDO.MENULABEL SHOULDNT))
+(PUTPROPS UNDO
 EVENTFNS
 (SK.UNDO.UNDO SK.UNDO.MENULABEL SHOULDNT))
 
-(PUTPROPS MOVE EVENTFNS
 (SK.MOVE.UNDO SK.TYPE.OF.FIRST.ARG SK.MOVE.REDO))
+(PUTPROPS MOVE
 EVENTFNS
 (SK.MOVE.UNDO SK.TYPE.OF.FIRST.ARG SK.MOVE.REDO))
 
-(PUTPROPS COPY EVENTFNS
 (SK.ADD.UNDO SK.TYPE.OF.FIRST.ARG SK.DELETE.UNDO))
+(PUTPROPS COPY
 EVENTFNS
 (SK.ADD.UNDO SK.TYPE.OF.FIRST.ARG SK.DELETE.UNDO))
 
 
 
@@ -4103,85 +4105,85 @@ It can be either larger or smaller than the present window size.")
 (ADDTOVAR LAMA
 STATUSPRINT)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (9788 14089 (SK.FONTNAMELIST 9798 . 10020) (SCALE.REGION.OUT 10022 . 11003) (
-SK.SCALE.POSITION.INTO.VIEWER 11005 . 11761) (SK.SCALE.POSITION.INTO.VIEWER.EXACT 11763 . 12305) (
-SK.MAKE.POSITION.INTEGER 12307 . 12975) (SCALE.POSITION.INTO.SKETCHW 12977 . 13369) (UNSCALE 13371 . 
-13499) (UNSCALE.REGION 13501 . 14087)) (14125 17823 (STATUSPRINT 14135 . 15497) (CLEARPROMPTWINDOW 
-15499 . 15906) (CLOSEPROMPTWINDOW 15908 . 16405) (MYGETPROMPTWINDOW 16407 . 17106) (PROMPT.GETINPUT 
-17108 . 17821)) (17881 28912 (SK.SEND.TO.BOTTOM 17891 . 18230) (SK.BRING.TO.TOP 18232 . 18600) (
-SK.SWITCH.PRIORITIES 18602 . 18928) (SK.SEL.AND.CHANGE.PRIORITY 18930 . 19498) (
-SK.SEL.AND.SWITCH.PRIORITIES 19500 . 21267) (SK.SORT.ELTS.BY.PRIORITY 21269 . 21990) (
-SK.SORT.GELTS.BY.PRIORITY 21992 . 22571) (SORT.CHANGESPECS.BY.NEW.PRIORITY 22573 . 23261) (
-SORT.CHANGESPECS.BY.OLD.PRIORITY 23263 . 23951) (SK.SEND.ELEMENTS.TO.BOTTOM 23953 . 25624) (
-SK.BRING.ELEMENTS.TO.TOP 25626 . 27310) (SK.COPY.GLOBAL.ELEMENT.AND.PROPERTY.LIST 27312 . 28910)) (
-28913 31769 (SK.ELEMENT.PRIORITY 28923 . 29251) (SK.SET.ELEMENT.PRIORITY 29253 . 30197) (
-SK.POP.NEXT.PRIORITY 30199 . 30542) (SK.PRIORITY.CELL 30544 . 30749) (SK.HIGH.PRIORITY 30751 . 31254) 
-(SK.LOW.PRIORITY 31256 . 31767)) (31832 38635 (DRAW.LOCAL.SKETCH 31842 . 32844) (SET.PRIORITYIMPORTANT
- 32846 . 33414) (SK.FIGUREIMAGE 33416 . 38633)) (38679 57353 (SKETCHW.HARDCOPYFN 38689 . 45894) (
-SK.LIST.IMAGE 45896 . 57003) (SK.HARDCOPYIMAGEW 57005 . 57351)) (57354 59311 (
-SK.DO.HARDCOPYIMAGEW.TOFILE 57364 . 58038) (SK.HARDCOPYIMAGEW.TOFILE 58040 . 58402) (
-SK.HARDCOPYIMAGEW.TOPRINTER 58404 . 58766) (SK.LIST.IMAGE.ON.FILE 58768 . 59309)) (59312 67236 (
-\SK.LIST.PAGE.IMAGE 59322 . 61754) (SK.GetImageFile 61756 . 62686) (SK.PRINTER.FILE.CANDIDATE.NAME 
-62688 . 63607) (SK.SET.HARDCOPY.MODE 63609 . 64994) (SK.UNSET.HARDCOPY.MODE 64996 . 65414) (
-SK.UPDATE.AFTER.HARDCOPY 65416 . 66124) (DEFAULTPRINTINGIMAGETYPE 66126 . 66716) (
-SK.SWITCH.REGION.X.AND.Y 66718 . 67234)) (67474 80371 (SK.SEL.AND.TRANSFORM 67484 . 67834) (
-SK.TRANSFORM.ELEMENTS 67836 . 69091) (SK.TRANSFORM.ITEM 69093 . 69894) (SK.TRANSFORM.ELEMENT 69896 . 
-70354) (SK.TRANSFORM.POINT 70356 . 70706) (SK.TRANSFORM.POINT.LIST 70708 . 70929) (SK.TRANSFORM.REGION
- 70931 . 73117) (SK.PUT.ELTS.ON.GRID 73119 . 73597) (SK.TRANSFORM.GLOBAL.ELEMENTS 73599 . 74101) (
-GLOBALELEMENTP 74103 . 74394) (SKETCH.LIST.OF.ELEMENTSP 74396 . 74700) (SK.TRANSFORM.SCALE.FACTOR 
-74702 . 76395) (SK.TRANSFORM.BRUSH 76397 . 76864) (SK.TRANSFORM.ARROWHEADS 76866 . 78457) (SCALE.BRUSH
- 78459 . 80369)) (80372 100564 (TWO.PT.TRANSFORMATION.INPUTFN 80382 . 83155) (SK.TWO.PT.TRANSFORM.ELTS
- 83157 . 83562) (SK.SEL.AND.TWO.PT.TRANSFORM 83564 . 84155) (SK.APPLY.AFFINE.TRANSFORM 84157 . 85276) 
-(SK.COMPUTE.TWO.PT.TRANSFORMATION 85278 . 89616) (SK.COMPUTE.SLOPE 89618 . 90383) (
-SK.THREE.PT.TRANSFORM.ELTS 90385 . 90796) (SK.COMPUTE.THREE.PT.TRANSFORMATION 90798 . 95335) (
-SK.SEL.AND.THREE.PT.TRANSFORM 95337 . 95934) (THREE.PT.TRANSFORMATION.INPUTFN 95936 . 100562)) (100565
- 104592 (SK.COPY.AND.TWO.PT.TRANSFORM.ELTS 100575 . 100994) (SK.SEL.COPY.AND.TWO.PT.TRANSFORM 100996
- . 101617) (SK.COPY.AND.THREE.PT.TRANSFORM.ELTS 101619 . 102048) (SK.SEL.COPY.AND.THREE.PT.TRANSFORM 
-102050 . 102674) (SK.COPY.AND.TRANSFORM.ELEMENTS 102676 . 103720) (SK.COPY.AND.TRANSFORM.ITEM 103722
- . 104590)) (106720 109915 (SK.SHOWMARKS 106730 . 107630) (MARKPOINT 107632 . 108352) (SK.MARKHOTSPOTS
- 108354 . 109429) (SK.MARK.SELECTION 109431 . 109913)) (110444 117222 (SK.SELECT.ITEM 110454 . 113114)
- (IN.SKETCH.ELT? 113116 . 115502) (SK.MARK.HOTSPOT 115504 . 115986) (SK.MARK.POSITION 115988 . 116425)
- (SK.SELECT.ELT 116427 . 116854) (SK.DESELECT.ELT 116856 . 117220)) (117365 130179 (SK.HOTSPOT.CACHE 
-117375 . 117719) (SK.HOTSPOT.CACHE.FOR.OPERATION 117721 . 119076) (SK.BUILD.CACHE 119078 . 119901) (
-SK.ELEMENT.PROTECTED? 119903 . 120496) (SK.HAS.SOME.HOTSPOTS 120498 . 120952) (SK.SET.HOTSPOT.CACHE 
-120954 . 121309) (SK.CREATE.HOTSPOT.CACHE 121311 . 121761) (SK.ELTS.FROM.HOTSPOT 121763 . 122603) (
-SK.ADD.HOTSPOTS.TO.CACHE 122605 . 123006) (SK.ADD.HOTSPOTS.TO.CACHE1 123008 . 123554) (
-SK.ADD.HOTSPOT.TO.CACHE 123556 . 125432) (SK.REMOVE.HOTSPOTS.FROM.CACHE 125434 . 125837) (
-SK.REMOVE.HOTSPOTS.FROM.CACHE1 125839 . 126357) (SK.REMOVE.HOTSPOT.FROM.CACHE 126359 . 126922) (
-SK.REMOVE.VALUE.FROM.CACHE.BUCKET 126924 . 127893) (SK.FIND.CACHE.BUCKET 127895 . 128484) (
-SK.ADD.VALUE.TO.CACHE.BUCKET 128486 . 130177)) (130207 149650 (SK.SET.GRID 130217 . 130638) (
-SK.DISPLAY.GRID 130640 . 131189) (SK.DISPLAY.GRID.POINTS 131191 . 131387) (SK.REMOVE.GRID.POINTS 
-131389 . 132192) (SK.TAKE.DOWN.GRID 132194 . 132505) (SK.SHOW.GRID 132507 . 136121) (SK.GRIDFACTOR 
-136123 . 136644) (SK.TURN.GRID.ON 136646 . 136974) (SK.TURN.GRID.OFF 136976 . 137334) (
-SK.MAKE.GRID.LARGER 137336 . 138068) (SK.MAKE.GRID.SMALLER 138070 . 138823) (SK.CHANGE.GRID 138825 . 
-139273) (GRID.FACTOR1 139275 . 139632) (LEASTPOWEROF2GT 139634 . 140408) (GREATESTPOWEROF2LT 140410 . 
-141025) (SK.DEFAULT.GRIDFACTOR 141027 . 141580) (SK.PUT.ON.GRID 141582 . 142140) (MAP.WINDOW.ONTO.GRID
- 142142 . 142576) (MAP.SCREEN.ONTO.GRID 142578 . 143066) (MAP.GLOBAL.PT.ONTO.GRID 143068 . 143450) (
-MAP.GLOBAL.REGION.ONTO.GRID 143452 . 145169) (MAP.WINDOW.POINT.ONTO.GLOBAL.GRID 145171 . 145714) (
-MAP.WINDOW.ONTO.GLOBAL.GRID 145716 . 146101) (SK.UPDATE.GRIDFACTOR 146103 . 146739) (
-SK.MAP.FROM.WINDOW.TO.GLOBAL.GRID 146741 . 147279) (SK.MAP.INPUT.PT.TO.GLOBAL 147281 . 148498) (
-SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 148500 . 149648)) (149790 158213 (SK.ADD.HISTEVENT 149800 . 150935)
- (SK.SEL.AND.UNDO 150937 . 153851) (SK.UNDO.LAST 153853 . 155930) (SK.UNDO.NAME 155932 . 156436) (
-SKEVENTTYPEFNS 156438 . 156788) (SK.TYPE.OF.FIRST.ARG 156790 . 158211)) (158214 158900 (SK.DELETE.UNDO
- 158224 . 158653) (SK.ADD.UNDO 158655 . 158898)) (158901 165683 (SK.CHANGE.UNDO 158911 . 160894) (
-SK.ELT.IN.SKETCH? 160896 . 161150) (SK.CHANGE.REDO 161152 . 163020) (SK.MOVE.UNDO 163022 . 164415) (
-SK.MOVE.REDO 164417 . 165681)) (165684 167783 (SK.UNDO.UNDO 165694 . 166960) (SK.UNDO.MENULABEL 166962
- . 167357) (SK.LABEL.FROM.TYPE 167359 . 167781)) (168609 176451 (SHOW.GLOBAL.COORDS 168619 . 169168) (
-LOCATOR.CLOSEFN 169170 . 169455) (SKETCHW.FROM.LOCATOR 169457 . 169865) (SKETCHW.UPDATE.LOCATORS 
-169867 . 170453) (LOCATOR.UPDATE 170455 . 171213) (UPDATE.GLOBAL.LOCATOR 171215 . 172016) (
-UPDATE.GLOBALCOORD.LOCATOR 172018 . 172595) (ADD.GLOBAL.DISPLAY 172597 . 173514) (
-ADD.GLOBAL.GRIDDED.DISPLAY 173516 . 173775) (CREATE.GLOBAL.DISPLAYER 173777 . 174854) (
-UPDATE.GLOBAL.GRIDDED.COORD.LOCATOR 174856 . 176449)) (176658 189145 (DISPLAYREADCOLORHLSLEVELS 176668
- . 177504) (DISPLAYREADCOLORLEVEL 177506 . 178541) (DRAWREADCOLORBOX 178543 . 179532) (
-READ.CHANGE.COLOR 179534 . 179751) (READCOLOR1 179753 . 182667) (READCOLORCOMMANDMENUSELECTEDFN 182669
- . 183036) (READCOLOR2 183038 . 189143)) (189146 190605 (CREATE.CNS.MENU 189156 . 190603)) (190882 
-193592 (SK.ABSWXOFFSET 190892 . 191186) (SK.ABSWYOFFSET 191188 . 191482) (
-SK.UNSCALE.POSITION.FROM.VIEWER 191484 . 192053) (SK.SCALE.REGION 192055 . 193590)) (193631 208629 (
-VIEWER.SCALE 193641 . 193950) (SKETCH.ZOOM 193952 . 194987) (SAME.ASPECT.RATIO 194989 . 196353) (
-SKETCH.DO.ZOOM 196355 . 197560) (SKETCH.NEW.VIEW 197562 . 198077) (ZOOM.UPDATE.ELT 198079 . 198972) (
-SK.UPDATE.AFTER.SCALE.CHANGE 198974 . 200843) (SKETCH.AUTOZOOM 200845 . 205265) (
-SKETCH.GLOBAL.REGION.ZOOM 205267 . 208627)) (209266 221178 (SKETCH.HOME 209276 . 209803) (SK.FRAME.IT 
-209805 . 210397) (SK.FRAME.WINDOW.TO.SKETCH 210399 . 214245) (SK.MOVE.TO.VIEW 214247 . 215661) (
-SK.NAME.CURRENT.VIEW 215663 . 216773) (SKETCH.ADD.VIEW 216775 . 217868) (SK.RESTORE.VIEW 217870 . 
-219746) (SK.FORGET.VIEW 219748 . 221176)))))
+  (FILEMAP (NIL (9853 14154 (SK.FONTNAMELIST 9863 . 10085) (SCALE.REGION.OUT 10087 . 11068) (
+SK.SCALE.POSITION.INTO.VIEWER 11070 . 11826) (SK.SCALE.POSITION.INTO.VIEWER.EXACT 11828 . 12370) (
+SK.MAKE.POSITION.INTEGER 12372 . 13040) (SCALE.POSITION.INTO.SKETCHW 13042 . 13434) (UNSCALE 13436 . 
+13564) (UNSCALE.REGION 13566 . 14152)) (14190 17888 (STATUSPRINT 14200 . 15562) (CLEARPROMPTWINDOW 
+15564 . 15971) (CLOSEPROMPTWINDOW 15973 . 16470) (MYGETPROMPTWINDOW 16472 . 17171) (PROMPT.GETINPUT 
+17173 . 17886)) (17946 28977 (SK.SEND.TO.BOTTOM 17956 . 18295) (SK.BRING.TO.TOP 18297 . 18665) (
+SK.SWITCH.PRIORITIES 18667 . 18993) (SK.SEL.AND.CHANGE.PRIORITY 18995 . 19563) (
+SK.SEL.AND.SWITCH.PRIORITIES 19565 . 21332) (SK.SORT.ELTS.BY.PRIORITY 21334 . 22055) (
+SK.SORT.GELTS.BY.PRIORITY 22057 . 22636) (SORT.CHANGESPECS.BY.NEW.PRIORITY 22638 . 23326) (
+SORT.CHANGESPECS.BY.OLD.PRIORITY 23328 . 24016) (SK.SEND.ELEMENTS.TO.BOTTOM 24018 . 25689) (
+SK.BRING.ELEMENTS.TO.TOP 25691 . 27375) (SK.COPY.GLOBAL.ELEMENT.AND.PROPERTY.LIST 27377 . 28975)) (
+28978 31834 (SK.ELEMENT.PRIORITY 28988 . 29316) (SK.SET.ELEMENT.PRIORITY 29318 . 30262) (
+SK.POP.NEXT.PRIORITY 30264 . 30607) (SK.PRIORITY.CELL 30609 . 30814) (SK.HIGH.PRIORITY 30816 . 31319) 
+(SK.LOW.PRIORITY 31321 . 31832)) (31897 38700 (DRAW.LOCAL.SKETCH 31907 . 32909) (SET.PRIORITYIMPORTANT
+ 32911 . 33479) (SK.FIGUREIMAGE 33481 . 38698)) (38744 57418 (SKETCHW.HARDCOPYFN 38754 . 45959) (
+SK.LIST.IMAGE 45961 . 57068) (SK.HARDCOPYIMAGEW 57070 . 57416)) (57419 59376 (
+SK.DO.HARDCOPYIMAGEW.TOFILE 57429 . 58103) (SK.HARDCOPYIMAGEW.TOFILE 58105 . 58467) (
+SK.HARDCOPYIMAGEW.TOPRINTER 58469 . 58831) (SK.LIST.IMAGE.ON.FILE 58833 . 59374)) (59377 67301 (
+\SK.LIST.PAGE.IMAGE 59387 . 61819) (SK.GetImageFile 61821 . 62751) (SK.PRINTER.FILE.CANDIDATE.NAME 
+62753 . 63672) (SK.SET.HARDCOPY.MODE 63674 . 65059) (SK.UNSET.HARDCOPY.MODE 65061 . 65479) (
+SK.UPDATE.AFTER.HARDCOPY 65481 . 66189) (DEFAULTPRINTINGIMAGETYPE 66191 . 66781) (
+SK.SWITCH.REGION.X.AND.Y 66783 . 67299)) (67539 80436 (SK.SEL.AND.TRANSFORM 67549 . 67899) (
+SK.TRANSFORM.ELEMENTS 67901 . 69156) (SK.TRANSFORM.ITEM 69158 . 69959) (SK.TRANSFORM.ELEMENT 69961 . 
+70419) (SK.TRANSFORM.POINT 70421 . 70771) (SK.TRANSFORM.POINT.LIST 70773 . 70994) (SK.TRANSFORM.REGION
+ 70996 . 73182) (SK.PUT.ELTS.ON.GRID 73184 . 73662) (SK.TRANSFORM.GLOBAL.ELEMENTS 73664 . 74166) (
+GLOBALELEMENTP 74168 . 74459) (SKETCH.LIST.OF.ELEMENTSP 74461 . 74765) (SK.TRANSFORM.SCALE.FACTOR 
+74767 . 76460) (SK.TRANSFORM.BRUSH 76462 . 76929) (SK.TRANSFORM.ARROWHEADS 76931 . 78522) (SCALE.BRUSH
+ 78524 . 80434)) (80437 100629 (TWO.PT.TRANSFORMATION.INPUTFN 80447 . 83220) (SK.TWO.PT.TRANSFORM.ELTS
+ 83222 . 83627) (SK.SEL.AND.TWO.PT.TRANSFORM 83629 . 84220) (SK.APPLY.AFFINE.TRANSFORM 84222 . 85341) 
+(SK.COMPUTE.TWO.PT.TRANSFORMATION 85343 . 89681) (SK.COMPUTE.SLOPE 89683 . 90448) (
+SK.THREE.PT.TRANSFORM.ELTS 90450 . 90861) (SK.COMPUTE.THREE.PT.TRANSFORMATION 90863 . 95400) (
+SK.SEL.AND.THREE.PT.TRANSFORM 95402 . 95999) (THREE.PT.TRANSFORMATION.INPUTFN 96001 . 100627)) (100630
+ 104657 (SK.COPY.AND.TWO.PT.TRANSFORM.ELTS 100640 . 101059) (SK.SEL.COPY.AND.TWO.PT.TRANSFORM 101061
+ . 101682) (SK.COPY.AND.THREE.PT.TRANSFORM.ELTS 101684 . 102113) (SK.SEL.COPY.AND.THREE.PT.TRANSFORM 
+102115 . 102739) (SK.COPY.AND.TRANSFORM.ELEMENTS 102741 . 103785) (SK.COPY.AND.TRANSFORM.ITEM 103787
+ . 104655)) (106785 109980 (SK.SHOWMARKS 106795 . 107695) (MARKPOINT 107697 . 108417) (SK.MARKHOTSPOTS
+ 108419 . 109494) (SK.MARK.SELECTION 109496 . 109978)) (110509 117287 (SK.SELECT.ITEM 110519 . 113179)
+ (IN.SKETCH.ELT? 113181 . 115567) (SK.MARK.HOTSPOT 115569 . 116051) (SK.MARK.POSITION 116053 . 116490)
+ (SK.SELECT.ELT 116492 . 116919) (SK.DESELECT.ELT 116921 . 117285)) (117430 130244 (SK.HOTSPOT.CACHE 
+117440 . 117784) (SK.HOTSPOT.CACHE.FOR.OPERATION 117786 . 119141) (SK.BUILD.CACHE 119143 . 119966) (
+SK.ELEMENT.PROTECTED? 119968 . 120561) (SK.HAS.SOME.HOTSPOTS 120563 . 121017) (SK.SET.HOTSPOT.CACHE 
+121019 . 121374) (SK.CREATE.HOTSPOT.CACHE 121376 . 121826) (SK.ELTS.FROM.HOTSPOT 121828 . 122668) (
+SK.ADD.HOTSPOTS.TO.CACHE 122670 . 123071) (SK.ADD.HOTSPOTS.TO.CACHE1 123073 . 123619) (
+SK.ADD.HOTSPOT.TO.CACHE 123621 . 125497) (SK.REMOVE.HOTSPOTS.FROM.CACHE 125499 . 125902) (
+SK.REMOVE.HOTSPOTS.FROM.CACHE1 125904 . 126422) (SK.REMOVE.HOTSPOT.FROM.CACHE 126424 . 126987) (
+SK.REMOVE.VALUE.FROM.CACHE.BUCKET 126989 . 127958) (SK.FIND.CACHE.BUCKET 127960 . 128549) (
+SK.ADD.VALUE.TO.CACHE.BUCKET 128551 . 130242)) (130272 149715 (SK.SET.GRID 130282 . 130703) (
+SK.DISPLAY.GRID 130705 . 131254) (SK.DISPLAY.GRID.POINTS 131256 . 131452) (SK.REMOVE.GRID.POINTS 
+131454 . 132257) (SK.TAKE.DOWN.GRID 132259 . 132570) (SK.SHOW.GRID 132572 . 136186) (SK.GRIDFACTOR 
+136188 . 136709) (SK.TURN.GRID.ON 136711 . 137039) (SK.TURN.GRID.OFF 137041 . 137399) (
+SK.MAKE.GRID.LARGER 137401 . 138133) (SK.MAKE.GRID.SMALLER 138135 . 138888) (SK.CHANGE.GRID 138890 . 
+139338) (GRID.FACTOR1 139340 . 139697) (LEASTPOWEROF2GT 139699 . 140473) (GREATESTPOWEROF2LT 140475 . 
+141090) (SK.DEFAULT.GRIDFACTOR 141092 . 141645) (SK.PUT.ON.GRID 141647 . 142205) (MAP.WINDOW.ONTO.GRID
+ 142207 . 142641) (MAP.SCREEN.ONTO.GRID 142643 . 143131) (MAP.GLOBAL.PT.ONTO.GRID 143133 . 143515) (
+MAP.GLOBAL.REGION.ONTO.GRID 143517 . 145234) (MAP.WINDOW.POINT.ONTO.GLOBAL.GRID 145236 . 145779) (
+MAP.WINDOW.ONTO.GLOBAL.GRID 145781 . 146166) (SK.UPDATE.GRIDFACTOR 146168 . 146804) (
+SK.MAP.FROM.WINDOW.TO.GLOBAL.GRID 146806 . 147344) (SK.MAP.INPUT.PT.TO.GLOBAL 147346 . 148563) (
+SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 148565 . 149713)) (149855 158278 (SK.ADD.HISTEVENT 149865 . 151000)
+ (SK.SEL.AND.UNDO 151002 . 153916) (SK.UNDO.LAST 153918 . 155995) (SK.UNDO.NAME 155997 . 156501) (
+SKEVENTTYPEFNS 156503 . 156853) (SK.TYPE.OF.FIRST.ARG 156855 . 158276)) (158279 158965 (SK.DELETE.UNDO
+ 158289 . 158718) (SK.ADD.UNDO 158720 . 158963)) (158966 165748 (SK.CHANGE.UNDO 158976 . 160959) (
+SK.ELT.IN.SKETCH? 160961 . 161215) (SK.CHANGE.REDO 161217 . 163085) (SK.MOVE.UNDO 163087 . 164480) (
+SK.MOVE.REDO 164482 . 165746)) (165749 167848 (SK.UNDO.UNDO 165759 . 167025) (SK.UNDO.MENULABEL 167027
+ . 167422) (SK.LABEL.FROM.TYPE 167424 . 167846)) (168698 176540 (SHOW.GLOBAL.COORDS 168708 . 169257) (
+LOCATOR.CLOSEFN 169259 . 169544) (SKETCHW.FROM.LOCATOR 169546 . 169954) (SKETCHW.UPDATE.LOCATORS 
+169956 . 170542) (LOCATOR.UPDATE 170544 . 171302) (UPDATE.GLOBAL.LOCATOR 171304 . 172105) (
+UPDATE.GLOBALCOORD.LOCATOR 172107 . 172684) (ADD.GLOBAL.DISPLAY 172686 . 173603) (
+ADD.GLOBAL.GRIDDED.DISPLAY 173605 . 173864) (CREATE.GLOBAL.DISPLAYER 173866 . 174943) (
+UPDATE.GLOBAL.GRIDDED.COORD.LOCATOR 174945 . 176538)) (176747 189234 (DISPLAYREADCOLORHLSLEVELS 176757
+ . 177593) (DISPLAYREADCOLORLEVEL 177595 . 178630) (DRAWREADCOLORBOX 178632 . 179621) (
+READ.CHANGE.COLOR 179623 . 179840) (READCOLOR1 179842 . 182756) (READCOLORCOMMANDMENUSELECTEDFN 182758
+ . 183125) (READCOLOR2 183127 . 189232)) (189235 190694 (CREATE.CNS.MENU 189245 . 190692)) (190971 
+193681 (SK.ABSWXOFFSET 190981 . 191275) (SK.ABSWYOFFSET 191277 . 191571) (
+SK.UNSCALE.POSITION.FROM.VIEWER 191573 . 192142) (SK.SCALE.REGION 192144 . 193679)) (193720 208718 (
+VIEWER.SCALE 193730 . 194039) (SKETCH.ZOOM 194041 . 195076) (SAME.ASPECT.RATIO 195078 . 196442) (
+SKETCH.DO.ZOOM 196444 . 197649) (SKETCH.NEW.VIEW 197651 . 198166) (ZOOM.UPDATE.ELT 198168 . 199061) (
+SK.UPDATE.AFTER.SCALE.CHANGE 199063 . 200932) (SKETCH.AUTOZOOM 200934 . 205354) (
+SKETCH.GLOBAL.REGION.ZOOM 205356 . 208716)) (209355 221267 (SKETCH.HOME 209365 . 209892) (SK.FRAME.IT 
+209894 . 210486) (SK.FRAME.WINDOW.TO.SKETCH 210488 . 214334) (SK.MOVE.TO.VIEW 214336 . 215750) (
+SK.NAME.CURRENT.VIEW 215752 . 216862) (SKETCH.ADD.VIEW 216864 . 217957) (SK.RESTORE.VIEW 217959 . 
+219835) (SK.FORGET.VIEW 219837 . 221265)))))
 STOP

library/sketch/SKETCH-STREAM

@@ -1,25 +1,24 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-
(FILECREATED "12-Jun-90 15:21:13" {DSK}<usr>local>lde>lispcore>library>SKETCHSTREAM.;2
 34014  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-      changes to%:  (VARS SKETCHSTREAMCOMS)
+
(FILECREATED " 5-Dec-2023 00:44:59" {WMEDLEY}<library>sketch>SKETCH-STREAM.;1
 33784  
 
-      previous date%: "17-Aug-88 12:36:19" {DSK}<usr>local>lde>lispcore>library>SKETCHSTREAM.;1)
+      :EDIT-BY rmk
+
+      :CHANGES-TO (FNS OPENSKETCHSTREAM)
+
+      :PREVIOUS-DATE "12-Jun-90 15:21:13" {WMEDLEY}<library>sketch>SKETCHSTREAM.;1)
 
 
-(* ; "
-Copyright (c) 1984, 1985, 1987, 1988, 1990 by Venue & Xerox Corporation.  All rights reserved.
-")
+(PRETTYCOMPRINT SKETCH-STREAMCOMS)
 
-(PRETTYCOMPRINT SKETCHSTREAMCOMS)
-
-(RPAQQ SKETCHSTREAMCOMS

+(RPAQQ SKETCH-STREAMCOMS

        [
-        (* ;; "contains the functions needed to support sketch streams.  Sketch streams allow a user program to print, draw, etc.  to a stream and builds a sketch of the result.")

+        (* ;; "contains the functions needed to support sketch streams.  Sketch streams allow a user program to print, draw, etc.  to a stream and builds a sketch of the result.")

 
         (FNS OPENSKETCHSTREAM \SKETCHSTREAM.POSITION.CHANGED \SKETCHSTREAMINIT \SK.SET.FONT 
              \SKSTRM.WINDOW.FROM.STREAM ZOOM.SKETCH.STREAM)
-                                                             (* ; 
-
                                                     "fns to support stream operations on sketches")

+                                                             (* ; 
+
                                                       "fns to support stream operations on sketches")

         (FNS \DSPFONT.SKETCH \DSPLEFTMARGIN.SKETCH \DSPRIGHTMARGIN.SKETCH \DSPLINEFEED.SKETCH 
              \DSPXPOSITION.SKETCH \DSPYPOSITION.SKETCH \DRAWCURVE.SKETCH \DRAWCIRCLE.SKETCH 
              \FILLCIRCLE.SKETCH \FILLPOLYGON.SKETCH \DRAWELLIPSE.SKETCH \DRAWARC.SKETCH 
@@ -40,20 +39,20 @@ Copyright (c) 1984, 1985, 1987, 1988, 1990 by Venue & Xerox Corporation.  All ri
 (DEFINEQ
 
 (OPENSKETCHSTREAM

-  [LAMBDA (TITLE OPTIONS)
                                    (* rrb "20-Dec-84 12:12")

-          
-          (* opens a stream onto a window that will keep a sketch of what is displayed 
-
          there.)

-          
-          (* changes default alignment to left baseline and default font to the default 
-
          font of display device.)

+  [LAMBDA (TITLE OPTIONS)                                    (* rrb "20-Dec-84 12:12")

+
+         (* opens a stream onto a window that will keep a sketch of what is displayed 
+
         there.)

+
+         (* changes default alignment to left baseline and default font to the default 
+
         font of display device.)

 
     (PROG ((SKW (SKETCHW.CREATE NIL (LISTGET OPTIONS 'SKETCHREGION)
                        (LISTGET OPTIONS 'REGION)
                        TITLE)))
-          
-          (* changes default alignment to left baseline and default font to the default 
-
          font of display device.)

+
+         (* changes default alignment to left baseline and default font to the default 
+
         font of display device.)

 
           (SK.SET.TEXT.HORIZ.ALIGN SKW 'LEFT)
           [SK.SET.FONT SKW (FONTNAMELIST (DEFAULTFONT 'DISPLAY]
@@ -565,7 +564,7 @@ Copyright (c) 1984, 1985, 1987, 1988, 1990 by Venue & Xerox Corporation.  All ri
 )
 
 (ADDTOVAR IMAGESTREAMTYPES
 (SKETCH (OPENSTREAM OPENSKETCHSTREAM)
-                                      (FONTCREATE \CREATEDISPLAYFONT)))
+                                  (FONTCREATE \CREATEDISPLAYFONT)))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS SketchFDEV)
@@ -574,18 +573,17 @@ Copyright (c) 1984, 1985, 1987, 1988, 1990 by Venue & Xerox Corporation.  All ri
 
 (\SKETCHSTREAMINIT
)
 )
-(PUTPROPS SKETCHSTREAM COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1987 1988 1990))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1917 9341 (OPENSKETCHSTREAM 1927 . 3074) (\SKETCHSTREAM.POSITION.CHANGED 3076 . 3368) (
-\SKETCHSTREAMINIT 3370 . 7936) (\SK.SET.FONT 7938 . 8436) (\SKSTRM.WINDOW.FROM.STREAM 8438 . 8697) (
-ZOOM.SKETCH.STREAM 8699 . 9339)) (9403 33638 (\DSPFONT.SKETCH 9413 . 10185) (\DSPLEFTMARGIN.SKETCH 
-10187 . 10581) (\DSPRIGHTMARGIN.SKETCH 10583 . 10980) (\DSPLINEFEED.SKETCH 10982 . 11370) (
-\DSPXPOSITION.SKETCH 11372 . 11917) (\DSPYPOSITION.SKETCH 11919 . 12464) (\DRAWCURVE.SKETCH 12466 . 
-12999) (\DRAWCIRCLE.SKETCH 13001 . 14207) (\FILLCIRCLE.SKETCH 14209 . 15621) (\FILLPOLYGON.SKETCH 
-15623 . 16733) (\DRAWELLIPSE.SKETCH 16735 . 18829) (\DRAWARC.SKETCH 18831 . 20892) (\DRAWLINE.SKETCH 
-20894 . 22004) (\BOUT.SKETCH 22006 . 22975) (\DSPCOLOR.SKETCH 22977 . 23336) (\DSPBACKCOLOR.SKETCH 
-23338 . 23716) (\DSPOPERATION.SKETCH 23718 . 24093) (\STRINGWIDTH.SKETCH 24095 . 24738) (
-\BLTSHADE.1BITSKETCH 24740 . 25669) (\NEWPAGE.SKETCH 25671 . 26151) (\CHARWIDTH.SKETCH 26153 . 26792) 
-(\BITBLT.1BITSKETCH 26794 . 28415) (\DSPCLIPPINGREGION.SKETCH 28417 . 28944) (\DSPRESET.SKETCH 28946
- . 30515) (\DSPSCALE.SKETCH 30517 . 33121) (\DRAWPOLYGON.SKETCH 33123 . 33636)))))
+  (FILEMAP (NIL (1820 9204 (OPENSKETCHSTREAM 1830 . 2937) (\SKETCHSTREAM.POSITION.CHANGED 2939 . 3231) (
+\SKETCHSTREAMINIT 3233 . 7799) (\SK.SET.FONT 7801 . 8299) (\SKSTRM.WINDOW.FROM.STREAM 8301 . 8560) (
+ZOOM.SKETCH.STREAM 8562 . 9202)) (9266 33501 (\DSPFONT.SKETCH 9276 . 10048) (\DSPLEFTMARGIN.SKETCH 
+10050 . 10444) (\DSPRIGHTMARGIN.SKETCH 10446 . 10843) (\DSPLINEFEED.SKETCH 10845 . 11233) (
+\DSPXPOSITION.SKETCH 11235 . 11780) (\DSPYPOSITION.SKETCH 11782 . 12327) (\DRAWCURVE.SKETCH 12329 . 
+12862) (\DRAWCIRCLE.SKETCH 12864 . 14070) (\FILLCIRCLE.SKETCH 14072 . 15484) (\FILLPOLYGON.SKETCH 
+15486 . 16596) (\DRAWELLIPSE.SKETCH 16598 . 18692) (\DRAWARC.SKETCH 18694 . 20755) (\DRAWLINE.SKETCH 
+20757 . 21867) (\BOUT.SKETCH 21869 . 22838) (\DSPCOLOR.SKETCH 22840 . 23199) (\DSPBACKCOLOR.SKETCH 
+23201 . 23579) (\DSPOPERATION.SKETCH 23581 . 23956) (\STRINGWIDTH.SKETCH 23958 . 24601) (
+\BLTSHADE.1BITSKETCH 24603 . 25532) (\NEWPAGE.SKETCH 25534 . 26014) (\CHARWIDTH.SKETCH 26016 . 26655) 
+(\BITBLT.1BITSKETCH 26657 . 28278) (\DSPCLIPPINGREGION.SKETCH 28280 . 28807) (\DSPRESET.SKETCH 28809
+ . 30378) (\DSPSCALE.SKETCH 30380 . 32984) (\DRAWPOLYGON.SKETCH 32986 . 33499)))))
 STOP

lispusers/COURIERIMAGESTREAM

@@ -1,19 +1,18 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-
(FILECREATED "20-Jul-88 10:15:36" |{MCS:MCS:STANFORD}<LANE>COURIERIMAGESTREAM.;7|
 49756  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-      changes to%:  (VARS COURIERIMAGESTREAMCOMS)
-                    (FNS \BITBLT.COURIER \SCALEDBITBLT.COURIER \COURIER.OPENIMAGESTREAM)
+
(FILECREATED " 8-Dec-2023 21:36:09" {WMEDLEY}<lispusers>COURIERIMAGESTREAM.;2
 49263  
 
-      previous date%: "16-Sep-87 17:41:23" |{MCS:MCS:STANFORD}<LANE>COURIERIMAGESTREAM.;5|)
+      :EDIT-BY rmk
 
+      :CHANGES-TO (FNS \INITCOURIERIMAGESTREAM)
+                  (VARS COURIERIMAGESTREAMCOMS)
+
+      :PREVIOUS-DATE "20-Jul-88 10:15:36" {WMEDLEY}<lispusers>COURIERIMAGESTREAM.;1)
 
-(* "
-Copyright (c) 1985, 1986, 1987, 1988 by Xerox Corporation & Stanford University.  All rights reserved.
-")
 
 (PRETTYCOMPRINT COURIERIMAGESTREAMCOMS)
 
-(RPAQQ COURIERIMAGESTREAMCOMS
 
+(RPAQQ COURIERIMAGESTREAMCOMS

        ((* * ImageOp Functions)
         (FNS \BACKCOLOR.COURIER \BITBLT.COURIER \BLTSHADE.COURIER \BOTTOMMARGIN.COURIER 
              \CHARSET.COURIER \CHARWIDTH.COURIER \CHARWIDTHY.COURIER \CLIPPINGREGION.COURIER 
@@ -28,16 +27,16 @@ Copyright (c) 1985, 1986, 1987, 1988 by Xerox Corporation & Stanford University.
              \YPOSITION.COURIER \OUTCHAR.COURIER)
         (* * Courier Server Functions)
         (FNS \COURIER.BACKCOLOR \COURIER.BITBLT \COURIER.BLTSHADE \COURIER.BOTTOMMARGIN 
-             \COURIER.CHARSET \COURIER.CHARWIDTH \COURIER.CHARWIDTHY \COURIER.CLIPPINGREGION 
-             \COURIER.CLOSEIMAGESTREAM \COURIER.COLOR \COURIER.DEFAULTSTATE \COURIER.DRAWARC 
-             \COURIER.DRAWCIRCLE \COURIER.DRAWCURVE \COURIER.DRAWELLIPSE \COURIER.DRAWLINE 
-             \COURIER.DRAWPOINT \COURIER.DRAWPOLYGON \COURIER.FILLCIRCLE \COURIER.FILLPOLYGON 
-             \COURIER.FONT \COURIER.FONTTYPE \COURIER.LEFTMARGIN \COURIER.LINEFEED \COURIER.MOVETO 
-             \COURIER.NEWPAGE \COURIER.OPERATION \COURIER.OPENIMAGESTREAM \COURIER.OUTCHAR 
-             \COURIER.POPSTATE \COURIER.PUSHSTATE \COURIER.RESET \COURIER.RIGHTMARGIN \COURIER.ROTATE
-             \COURIER.SCALE \COURIER.SCALEDBITBLT \COURIER.SCALE2 \COURIER.SPACEFACTOR 
-             \COURIER.STRINGWIDTH \COURIER.TERPRI \COURIER.TOPMARGIN \COURIER.TRANSLATE 
-             \COURIER.XPOSITION \COURIER.YPOSITION)
+             \COURIER.CHARWIDTH \COURIER.CHARWIDTHY \COURIER.CLIPPINGREGION \COURIER.CLOSEIMAGESTREAM
+             \COURIER.COLOR \COURIER.DEFAULTSTATE \COURIER.DRAWARC \COURIER.DRAWCIRCLE 
+             \COURIER.DRAWCURVE \COURIER.DRAWELLIPSE \COURIER.DRAWLINE \COURIER.DRAWPOINT 
+             \COURIER.DRAWPOLYGON \COURIER.FILLCIRCLE \COURIER.FILLPOLYGON \COURIER.FONT 
+             \COURIER.FONTTYPE \COURIER.LEFTMARGIN \COURIER.LINEFEED \COURIER.MOVETO \COURIER.NEWPAGE
+             \COURIER.OPERATION \COURIER.OPENIMAGESTREAM \COURIER.OUTCHAR \COURIER.POPSTATE 
+             \COURIER.PUSHSTATE \COURIER.RESET \COURIER.RIGHTMARGIN \COURIER.ROTATE \COURIER.SCALE 
+             \COURIER.SCALEDBITBLT \COURIER.SCALE2 \COURIER.SPACEFACTOR \COURIER.STRINGWIDTH 
+             \COURIER.TERPRI \COURIER.TOPMARGIN \COURIER.TRANSLATE \COURIER.XPOSITION 
+             \COURIER.YPOSITION)
         (* * etc.)
         (FNS \INITCOURIERIMAGESTREAM READSTREAMHANDLE WRITESTREAMHANDLE)
         (INITVARS \COURIERIMAGEOPS \NULLFDEV IMAGESTREAMALST)
@@ -398,11 +397,6 @@ Copyright (c) 1985, 1986, 1987, 1988 by Xerox Corporation & Stanford University.
                                                              (* ; "Edited 24-Mar-87 20:54 by cdl")

     `(RETURN ,(IMAGEOP 'IMBOTTOMMARGIN IMAGESTREAM IMAGESTREAM YPOSITION])
 
-(\COURIER.CHARSET

-  [LAMBDA (COURIERSTREAM PROGRAM PROCEDURE IMAGESTREAM CHARACTERSET)

-                                                             (* ; "Edited 24-Mar-87 20:54 by cdl")

-    `(RETURN ,(IMAGEOP 'IMCHARSET IMAGESTREAM IMAGESTREAM CHARACTERSET])
-
 (\COURIER.CHARWIDTH

   [LAMBDA (COURIERSTREAM PROGRAM PROCEDURE IMAGESTREAM CHARCODE)

                                                              (* ; "Edited 24-Mar-87 20:55 by cdl")

@@ -658,7 +652,8 @@ Copyright (c) 1985, 1986, 1987, 1988 by Xerox Corporation & Stanford University.
 (DEFINEQ
 
 (\INITCOURIERIMAGESTREAM

-  [LAMBDA NIL
                                            (* ; "Edited  3-Sep-87 09:59 by cdl")

+  [LAMBDA NIL
                                                (* ; "Edited  8-Dec-2023 21:35 by rmk")


+                                                             (* ; "Edited  3-Sep-87 09:59 by cdl")

     (SETQ \COURIERIMAGEOPS (create
 IMAGEOPS
                                   IMAGETYPE _ 'COURIER
                                   IMCLOSEFN _ (FUNCTION \CLOSEFN.COURIER)
@@ -694,7 +689,6 @@ Copyright (c) 1985, 1986, 1987, 1988 by Xerox Corporation & Stanford University.
                                   IMCLIPPINGREGION _ (FUNCTION \CLIPPINGREGION.COURIER)
                                   IMOPERATION _ (FUNCTION \OPERATION.COURIER)
                                   IMSPACEFACTOR _ (FUNCTION \SPACEFACTOR.COURIER)
-                                  IMCHARSET _ (FUNCTION \CHARSET.COURIER)
                                   IMROTATE _ (FUNCTION \ROTATE.COURIER)
                                   IMDRAWARC _ (FUNCTION \DRAWARC.COURIER)
                                   IMTRANSLATE _ (FUNCTION \TRANSLATE.COURIER)
@@ -722,7 +716,7 @@ Copyright (c) 1985, 1986, 1987, 1988 by Xerox Corporation & Stanford University.
 
 (RPAQ? IMAGESTREAMALST
 NIL)
 
-(PUTPROPS STREAMHANDLE COURIERDEF
 (READSTREAMHANDLE WRITESTREAMHANDLE))
+(PUTPROPS STREAMHANDLE
 COURIERDEF
 (READSTREAMHANDLE WRITESTREAMHANDLE))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS \COURIERIMAGEOPS \NULLFDEV IMAGESTREAMALST)
@@ -731,7 +725,7 @@ Copyright (c) 1985, 1986, 1987, 1988 by Xerox Corporation & Stanford University.
 (DECLARE%: EVAL@COMPILE
 
 (RECORD COURIERIMAGEDATA
 (CIS.COURIERSTREAM CIS.IMAGESTREAM CIS.FONT CIS.LOCALFONTS?)
-                             CIS.LOCALFONTS? _ T)
+                         CIS.LOCALFONTS? _ T)
 )
 )
 
@@ -973,40 +967,38 @@ Copyright (c) 1985, 1986, 1987, 1988 by Xerox Corporation & Stanford University.
 (\INITCOURIERIMAGESTREAM
)
 
 (COURIER.START.SERVER)
-(PUTPROPS COURIERIMAGESTREAM COPYRIGHT ("Xerox Corporation & Stanford University" 1985 1986 1987 1988)
-)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3228 21422 (\BACKCOLOR.COURIER 3238 . 3509) (\BITBLT.COURIER 3511 . 4553) (
-\BLTSHADE.COURIER 4555 . 5235) (\BOTTOMMARGIN.COURIER 5237 . 5518) (\CHARSET.COURIER 5520 . 5794) (
-\CHARWIDTH.COURIER 5796 . 6200) (\CHARWIDTHY.COURIER 6202 . 6609) (\CLIPPINGREGION.COURIER 6611 . 6893
-) (\CLOSEFN.COURIER 6895 . 7154) (\COLOR.COURIER 7156 . 7419) (\COURIERIMAGESTREAM.BOUT 7421 . 7695) (
-\DEFAULTSTATE.COURIER 7697 . 7980) (\DRAWARC.COURIER 7982 . 8399) (\DRAWCIRCLE.COURIER 8401 . 8724) (
-\DRAWCURVE.COURIER 8726 . 9036) (\DRAWELLIPSE.COURIER 9038 . 9496) (\DRAWLINE.COURIER 9498 . 9887) (
-\DRAWPOINT.COURIER 9889 . 10205) (\DRAWPOLYGON.COURIER 10207 . 10523) (\FILLCIRCLE.COURIER 10525 . 
-10842) (\FILLPOLYGON.COURIER 10844 . 11128) (\FONT.COURIER 11130 . 11537) (\LEFTMARGIN.COURIER 11539
- . 11816) (\LINEFEED.COURIER 11818 . 12088) (\MOVETO.COURIER 12090 . 12353) (\NEWPAGE.COURIER 12355 . 
-12616) (\OPENIMAGESTREAM.COURIER 12618 . 15192) (\OPERATION.COURIER 15194 . 15469) (\POPSTATE.COURIER 
-15471 . 15746) (\PUSHSTATE.COURIER 15748 . 16025) (\RESET.COURIER 16027 . 16360) (\RIGHTMARGIN.COURIER
- 16362 . 16641) (\ROTATE.COURIER 16643 . 16923) (\SCALE.COURIER 16925 . 17188) (\SCALEDBITBLT.COURIER 
-17190 . 18470) (\SCALE2.COURIER 18472 . 18747) (\SPACEFACTOR.COURIER 18749 . 19025) (
-\STRINGWIDTH.COURIER 19027 . 19433) (\TERPRI.COURIER 19435 . 19770) (\TOPMARGIN.COURIER 19772 . 20047)
- (\TRANSLATE.COURIER 20049 . 20330) (\XPOSITION.COURIER 20332 . 20607) (\YPOSITION.COURIER 20609 . 
-20884) (\OUTCHAR.COURIER 20886 . 21420)) (21460 35552 (\COURIER.BACKCOLOR 21470 . 21730) (
-\COURIER.BITBLT 21732 . 22252) (\COURIER.BLTSHADE 22254 . 22649) (\COURIER.BOTTOMMARGIN 22651 . 22925)
- (\COURIER.CHARSET 22927 . 23197) (\COURIER.CHARWIDTH 23199 . 23465) (\COURIER.CHARWIDTHY 23467 . 
-23735) (\COURIER.CLIPPINGREGION 23737 . 24009) (\COURIER.CLOSEIMAGESTREAM 24011 . 24630) (
-\COURIER.COLOR 24632 . 24884) (\COURIER.DEFAULTSTATE 24886 . 25132) (\COURIER.DRAWARC 25134 . 25508) (
-\COURIER.DRAWCIRCLE 25510 . 25850) (\COURIER.DRAWCURVE 25852 . 26194) (\COURIER.DRAWELLIPSE 26196 . 
-26666) (\COURIER.DRAWLINE 26668 . 27034) (\COURIER.DRAWPOINT 27036 . 27376) (\COURIER.DRAWPOLYGON 
-27378 . 27726) (\COURIER.FILLCIRCLE 27728 . 28056) (\COURIER.FILLPOLYGON 28058 . 28380) (\COURIER.FONT
- 28382 . 28630) (\COURIER.FONTTYPE 28632 . 28865) (\COURIER.LEFTMARGIN 28867 . 29137) (
-\COURIER.LINEFEED 29139 . 29399) (\COURIER.MOVETO 29401 . 29691) (\COURIER.NEWPAGE 29693 . 29917) (
-\COURIER.OPERATION 29919 . 30187) (\COURIER.OPENIMAGESTREAM 30189 . 31050) (\COURIER.OUTCHAR 31052 . 
-31332) (\COURIER.POPSTATE 31334 . 31572) (\COURIER.PUSHSTATE 31574 . 31814) (\COURIER.RESET 31816 . 
-32036) (\COURIER.RIGHTMARGIN 32038 . 32310) (\COURIER.ROTATE 32312 . 32578) (\COURIER.SCALE 32580 . 
-32832) (\COURIER.SCALEDBITBLT 32834 . 33366) (\COURIER.SCALE2 33368 . 33670) (\COURIER.SPACEFACTOR 
-33672 . 33938) (\COURIER.STRINGWIDTH 33940 . 34206) (\COURIER.TERPRI 34208 . 34430) (
-\COURIER.TOPMARGIN 34432 . 34700) (\COURIER.TRANSLATE 34702 . 35010) (\COURIER.XPOSITION 35012 . 35280
-) (\COURIER.YPOSITION 35282 . 35550)) (35570 39599 (\INITCOURIERIMAGESTREAM 35580 . 39043) (
-READSTREAMHANDLE 39045 . 39428) (WRITESTREAMHANDLE 39430 . 39597)))))
+  (FILEMAP (NIL (3073 21267 (\BACKCOLOR.COURIER 3083 . 3354) (\BITBLT.COURIER 3356 . 4398) (
+\BLTSHADE.COURIER 4400 . 5080) (\BOTTOMMARGIN.COURIER 5082 . 5363) (\CHARSET.COURIER 5365 . 5639) (
+\CHARWIDTH.COURIER 5641 . 6045) (\CHARWIDTHY.COURIER 6047 . 6454) (\CLIPPINGREGION.COURIER 6456 . 6738
+) (\CLOSEFN.COURIER 6740 . 6999) (\COLOR.COURIER 7001 . 7264) (\COURIERIMAGESTREAM.BOUT 7266 . 7540) (
+\DEFAULTSTATE.COURIER 7542 . 7825) (\DRAWARC.COURIER 7827 . 8244) (\DRAWCIRCLE.COURIER 8246 . 8569) (
+\DRAWCURVE.COURIER 8571 . 8881) (\DRAWELLIPSE.COURIER 8883 . 9341) (\DRAWLINE.COURIER 9343 . 9732) (
+\DRAWPOINT.COURIER 9734 . 10050) (\DRAWPOLYGON.COURIER 10052 . 10368) (\FILLCIRCLE.COURIER 10370 . 
+10687) (\FILLPOLYGON.COURIER 10689 . 10973) (\FONT.COURIER 10975 . 11382) (\LEFTMARGIN.COURIER 11384
+ . 11661) (\LINEFEED.COURIER 11663 . 11933) (\MOVETO.COURIER 11935 . 12198) (\NEWPAGE.COURIER 12200 . 
+12461) (\OPENIMAGESTREAM.COURIER 12463 . 15037) (\OPERATION.COURIER 15039 . 15314) (\POPSTATE.COURIER 
+15316 . 15591) (\PUSHSTATE.COURIER 15593 . 15870) (\RESET.COURIER 15872 . 16205) (\RIGHTMARGIN.COURIER
+ 16207 . 16486) (\ROTATE.COURIER 16488 . 16768) (\SCALE.COURIER 16770 . 17033) (\SCALEDBITBLT.COURIER 
+17035 . 18315) (\SCALE2.COURIER 18317 . 18592) (\SPACEFACTOR.COURIER 18594 . 18870) (
+\STRINGWIDTH.COURIER 18872 . 19278) (\TERPRI.COURIER 19280 . 19615) (\TOPMARGIN.COURIER 19617 . 19892)
+ (\TRANSLATE.COURIER 19894 . 20175) (\XPOSITION.COURIER 20177 . 20452) (\YPOSITION.COURIER 20454 . 
+20729) (\OUTCHAR.COURIER 20731 . 21265)) (21305 35125 (\COURIER.BACKCOLOR 21315 . 21575) (
+\COURIER.BITBLT 21577 . 22097) (\COURIER.BLTSHADE 22099 . 22494) (\COURIER.BOTTOMMARGIN 22496 . 22770)
+ (\COURIER.CHARWIDTH 22772 . 23038) (\COURIER.CHARWIDTHY 23040 . 23308) (\COURIER.CLIPPINGREGION 23310
+ . 23582) (\COURIER.CLOSEIMAGESTREAM 23584 . 24203) (\COURIER.COLOR 24205 . 24457) (
+\COURIER.DEFAULTSTATE 24459 . 24705) (\COURIER.DRAWARC 24707 . 25081) (\COURIER.DRAWCIRCLE 25083 . 
+25423) (\COURIER.DRAWCURVE 25425 . 25767) (\COURIER.DRAWELLIPSE 25769 . 26239) (\COURIER.DRAWLINE 
+26241 . 26607) (\COURIER.DRAWPOINT 26609 . 26949) (\COURIER.DRAWPOLYGON 26951 . 27299) (
+\COURIER.FILLCIRCLE 27301 . 27629) (\COURIER.FILLPOLYGON 27631 . 27953) (\COURIER.FONT 27955 . 28203) 
+(\COURIER.FONTTYPE 28205 . 28438) (\COURIER.LEFTMARGIN 28440 . 28710) (\COURIER.LINEFEED 28712 . 28972
+) (\COURIER.MOVETO 28974 . 29264) (\COURIER.NEWPAGE 29266 . 29490) (\COURIER.OPERATION 29492 . 29760) 
+(\COURIER.OPENIMAGESTREAM 29762 . 30623) (\COURIER.OUTCHAR 30625 . 30905) (\COURIER.POPSTATE 30907 . 
+31145) (\COURIER.PUSHSTATE 31147 . 31387) (\COURIER.RESET 31389 . 31609) (\COURIER.RIGHTMARGIN 31611
+ . 31883) (\COURIER.ROTATE 31885 . 32151) (\COURIER.SCALE 32153 . 32405) (\COURIER.SCALEDBITBLT 32407
+ . 32939) (\COURIER.SCALE2 32941 . 33243) (\COURIER.SPACEFACTOR 33245 . 33511) (\COURIER.STRINGWIDTH 
+33513 . 33779) (\COURIER.TERPRI 33781 . 34003) (\COURIER.TOPMARGIN 34005 . 34273) (\COURIER.TRANSLATE 
+34275 . 34583) (\COURIER.XPOSITION 34585 . 34853) (\COURIER.YPOSITION 34855 . 35123)) (35143 39211 (
+\INITCOURIERIMAGESTREAM 35153 . 38655) (READSTREAMHANDLE 38657 . 39040) (WRITESTREAMHANDLE 39042 . 
+39209)))))
 STOP

lispusers/DSPSCALE

@@ -1,54 +1,32 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "19-Jul-88 13:36:39" |{MCS:MCS:STANFORD}<LANE>DSPSCALE.;10|
 55021  
 
-      changes to%:  (FNS \TRANSLATE.SCALED CHARWIDTH! CHARWIDTHY! FONTPROP! STRINGWIDTH! 
-                         INITSCALEDIMAGESTREAM \FILLPOLYGON.SCALED DSPSCALE.DASHING 
-                         OPENIMAGESTREAM.SCALED \BACKCOLOR.SCALED \BITBLT.SCALED \BLTSHADE.SCALED 
-                         \BOTTOMMARGIN.SCALED \BOUT.SCALED \CHARSET.SCALED \CHARWIDTH.SCALED 
-                         \CHARWIDTHY.SCALED \CLIPPINGREGION.SCALED \CLOSEFN.SCALED \COLOR.SCALED 
-                         \DEFAULTSTATE.SCALED \DRAWARC.SCALED \DRAWCIRCLE.SCALED \DRAWCURVE.SCALED 
-                         \DRAWELLIPSE.SCALED \DRAWLINE.SCALED \DRAWPOINT.SCALED \DRAWPOLYGON.SCALED 
-                         \FILLCIRCLE.SCALED \FONT.SCALED \LEFTMARGIN.SCALED \LINEFEED.SCALED 
-                         \MOVETO.SCALED \NEWPAGE.SCALED \OPERATION.SCALED \POPSTATE.SCALED 
-                         \PUSHSTATE.SCALED \RESET.SCALED \RIGHTMARGIN.SCALED \ROTATE.SCALED 
-                         \SCALE.SCALED \SCALEDBITBLT.SCALED \SPACEFACTOR.SCALED \STRINGWIDTH.SCALED 
-                         \TERPRI.SCALED \TOPMARGIN.SCALED \XPOSITION.SCALED \YPOSITION.SCALED 
-                         \OUTCHAR.SCALED CENTERPRINTINREGION! CURSORPOSITION! BITBLT! BITMAPBIT! 
-                         BLTSHADE! DSPBACKUP! DSPBOTTOMMARGIN! DSPCLIPPINGREGION! DRAWBETWEEN! 
-                         DRAWARC! DRAWCIRCLE! DRAWCURVE! DRAWELLIPSE! DRAWLINE! DRAWPOINT! 
-                         DRAWPOLYGON! DRAWTO! FILLCIRCLE! FILLPOLYGON! DSPLEFTMARGIN! DSPLINEFEED! 
-                         GETPOSITION! MOVETO! MOVETOUPPERLEFT! DSPRIGHTMARGIN! DSPSCALE! RELDRAWTO! 
-                         RELMOVETO! SCALEDBITBLT! STRINGREGION! DSPSPACEFACTOR! DSPTRANSLATE! 
-                         DSPTOPMARGIN! DSPUNITS! DSPXOFFSET! DSPXPOSITION! DSPYOFFSET! DSPYPOSITION!
-                         DSPSCALE.BRUSH DSPSCALE.POINTS DSPSCALE.REGION DSPSCALE.NUMBER 
-                         DSPSCALE.POSITION DSPSCALE.XPOSITION DSPSCALE.YPOSITION DSPSCALE.WIDTH 
-                         DSPUNSCALE.REGION DSPUNSCALE.POSITION DSPUNSCALE.NUMBER DSPUNSCALE.CHARACTER
-                         )
-                    (VARS DSPSCALECOMS)
+
(FILECREATED " 8-Dec-2023 21:32:41" {WMEDLEY}<lispusers>DSPSCALE.;3
 52572  
 
-      previous date%: "19-Jul-88 10:00:47" |{MCS:MCS:STANFORD}<LANE>DSPSCALE.;6|)
+      :EDIT-BY rmk
 
+      :CHANGES-TO (FNS INITSCALEDIMAGESTREAM \CHARSET.SCALED)
+                  (VARS DSPSCALECOMS)
+                  (RECORDS SCALEDIMAGEDATA CONVERT)
+                  (MACROS DSPUNSCALE.XPOSITION DSPUNSCALE.YPOSITION)
+
+      :PREVIOUS-DATE "19-Jul-88 13:36:39" {WMEDLEY}<lispusers>DSPSCALE.;1)
 
-(* "
-Copyright (c) 1985, 1986, 1987, 1988 by Stanford University.  All rights reserved.
-")
 
 (PRETTYCOMPRINT DSPSCALECOMS)
 
-(RPAQQ DSPSCALECOMS
 
+(RPAQQ DSPSCALECOMS

        ((LOCALVARS . T)
         (* * SCALED ImageStream ImageOp Functions)
         (FNS INITSCALEDIMAGESTREAM OPENIMAGESTREAM.SCALED)
         (FNS \BACKCOLOR.SCALED \BITBLT.SCALED \BLTSHADE.SCALED \BOTTOMMARGIN.SCALED \BOUT.SCALED 
-             \CHARSET.SCALED \CHARWIDTH.SCALED \CHARWIDTHY.SCALED \CLIPPINGREGION.SCALED 
-             \CLOSEFN.SCALED \COLOR.SCALED \DEFAULTSTATE.SCALED \DRAWARC.SCALED \DRAWCIRCLE.SCALED 
-             \DRAWCURVE.SCALED \DRAWELLIPSE.SCALED \DRAWLINE.SCALED \DRAWPOINT.SCALED 
-             \DRAWPOLYGON.SCALED \FILLCIRCLE.SCALED \FILLPOLYGON.SCALED \FONT.SCALED 
-             \LEFTMARGIN.SCALED \LINEFEED.SCALED \MOVETO.SCALED \NEWPAGE.SCALED \OPERATION.SCALED 
-             \POPSTATE.SCALED \PUSHSTATE.SCALED \RESET.SCALED \RIGHTMARGIN.SCALED \ROTATE.SCALED 
-             \SCALE.SCALED \SCALEDBITBLT.SCALED \SPACEFACTOR.SCALED \STRINGWIDTH.SCALED 
-             \TERPRI.SCALED \TOPMARGIN.SCALED \TRANSLATE.SCALED \XPOSITION.SCALED \YPOSITION.SCALED 
-             \OUTCHAR.SCALED)
+             \CHARWIDTH.SCALED \CHARWIDTHY.SCALED \CLIPPINGREGION.SCALED \CLOSEFN.SCALED 
+             \COLOR.SCALED \DEFAULTSTATE.SCALED \DRAWARC.SCALED \DRAWCIRCLE.SCALED \DRAWCURVE.SCALED
+             \DRAWELLIPSE.SCALED \DRAWLINE.SCALED \DRAWPOINT.SCALED \DRAWPOLYGON.SCALED 
+             \FILLCIRCLE.SCALED \FILLPOLYGON.SCALED \FONT.SCALED \LEFTMARGIN.SCALED \LINEFEED.SCALED
+             \MOVETO.SCALED \NEWPAGE.SCALED \OPERATION.SCALED \POPSTATE.SCALED \PUSHSTATE.SCALED 
+             \RESET.SCALED \RIGHTMARGIN.SCALED \ROTATE.SCALED \SCALE.SCALED \SCALEDBITBLT.SCALED 
+             \SPACEFACTOR.SCALED \STRINGWIDTH.SCALED \TERPRI.SCALED \TOPMARGIN.SCALED 
+             \TRANSLATE.SCALED \XPOSITION.SCALED \YPOSITION.SCALED \OUTCHAR.SCALED)
         (* * Self Scaling DSP* Functions)
         (FNS CENTERPRINTINREGION! CHARWIDTH! CHARWIDTHY! CURSORPOSITION! BITBLT! BITMAPBIT! BLTSHADE!
              DSPBACKUP! DSPBOTTOMMARGIN! DSPCLIPPINGREGION! DRAWBETWEEN! DRAWARC! DRAWCIRCLE! 
@@ -86,11 +64,11 @@ Copyright (c) 1985, 1986, 1987, 1988 by Stanford University.  All rights reserve
 (DEFINEQ
 
 (INITSCALEDIMAGESTREAM

-  [LAMBDA NIL
                                            (* ; "Edited 19-Jul-88 10:59 by cdl")

+  [LAMBDA NIL
                                                (* ; "Edited 19-Jul-88 10:59 by cdl")

     (DECLARE
 (GLOBALVARS \DISPLAYIMAGEOPS))
     [if
 (NULL \NULLFDEV)
         then
 (SETQ \NULLFDEV (create
 FDEV
-                                        CLOSEFILE _ (FUNCTION NILL]
+                                    CLOSEFILE _ (FUNCTION NILL]
     (SETQ \SCALEDIMAGEOPS (create
 IMAGEOPS
                                  IMAGETYPE _ 'SCALED
                                  IMCLOSEFN _ (FUNCTION \CLOSEFN.SCALED)
@@ -126,7 +104,6 @@ Copyright (c) 1985, 1986, 1987, 1988 by Stanford University.  All rights reserve
                                  IMDRAWPOLYGON _ (FUNCTION \DRAWPOLYGON.SCALED)
                                  IMFILLPOLYGON _ (FUNCTION \FILLPOLYGON.SCALED)
                                  IMSCALEDBITBLT _ (FUNCTION \SCALEDBITBLT.SCALED)
-                                 IMCHARSET _ (FUNCTION \CHARSET.SCALED)
                                  IMROTATE _ (FUNCTION \ROTATE.SCALED)
                                  IMDRAWARC _ (FUNCTION \DRAWARC.SCALED)
                                  IMTRANSLATE _ (FUNCTION \TRANSLATE.SCALED)
@@ -208,11 +185,6 @@ Copyright (c) 1985, 1986, 1987, 1988 by Stanford University.  All rights reserve
     (with
 SCALEDIMAGEDATA (with
 STREAM STREAM IMAGEDATA)
            (BOUT IMAGESTREAM BYTE])
 
-(\CHARSET.SCALED

-  [LAMBDA (STREAM CHARACTERSET)
                          (* cdl "26-Jan-87 08:49")

-    (with
 SCALEDIMAGEDATA (with
 STREAM STREAM IMAGEDATA)
-           (IMAGEOP 'IMCHARSET IMAGESTREAM IMAGESTREAM CHARACTERSET])
-
 (\CHARWIDTH.SCALED

   [LAMBDA (STREAM CHARCODE)
                              (* cdl "26-Jan-87 09:50")

     (with
 SCALEDIMAGEDATA (with
 STREAM STREAM IMAGEDATA)
@@ -975,11 +947,11 @@ Copyright (c) 1985, 1986, 1987, 1988 by Stanford University.  All rights reserve
 )
 (DECLARE%: EVAL@COMPILE 
 
-[PUTPROPS DSPUNSCALE.XPOSITION MACRO ((VALUE STREAM)
-                                      (DSPUNSCALE.NUMBER
 VALUE STREAM 'X]
+(PUTPROPS DSPUNSCALE.XPOSITION
 MACRO
 ((VALUE STREAM)
+                                      (DSPUNSCALE.NUMBER
 VALUE STREAM 'X)))
 
-[PUTPROPS DSPUNSCALE.YPOSITION MACRO ((VALUE STREAM)
-                                      (DSPUNSCALE.NUMBER
 VALUE STREAM 'Y]
+(PUTPROPS DSPUNSCALE.YPOSITION
 MACRO
 ((VALUE STREAM)
+                                      (DSPUNSCALE.NUMBER
 VALUE STREAM 'Y)))
 )
 (* * etc.)

 
@@ -1022,39 +994,38 @@ Copyright (c) 1985, 1986, 1987, 1988 by Stanford University.  All rights reserve
 (MOVD? 'DSPUNITS! 'DSPUNITS)
 
 (INITSCALEDIMAGESTREAM
)
-(PUTPROPS DSPSCALE COPYRIGHT ("Stanford University" 1985 1986 1987 1988))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5589 11142 (INITSCALEDIMAGESTREAM 5599 . 9099) (OPENIMAGESTREAM.SCALED 9101 . 11140)) (
-11143 28693 (\BACKCOLOR.SCALED 11153 . 11396) (\BITBLT.SCALED 11398 . 12265) (\BLTSHADE.SCALED 12267
- . 13022) (\BOTTOMMARGIN.SCALED 13024 . 13479) (\BOUT.SCALED 13481 . 13690) (\CHARSET.SCALED 13692 . 
-13938) (\CHARWIDTH.SCALED 13940 . 14287) (\CHARWIDTHY.SCALED 14289 . 14638) (\CLIPPINGREGION.SCALED 
-14640 . 15093) (\CLOSEFN.SCALED 15095 . 15356) (\COLOR.SCALED 15358 . 15593) (\DEFAULTSTATE.SCALED 
-15595 . 15850) (\DRAWARC.SCALED 15852 . 16481) (\DRAWCIRCLE.SCALED 16483 . 17072) (\DRAWCURVE.SCALED 
-17074 . 17493) (\DRAWELLIPSE.SCALED 17495 . 18291) (\DRAWLINE.SCALED 18293 . 18940) (\DRAWPOINT.SCALED
- 18942 . 19372) (\DRAWPOLYGON.SCALED 19374 . 19797) (\FILLCIRCLE.SCALED 19799 . 20297) (
-\FILLPOLYGON.SCALED 20299 . 20639) (\FONT.SCALED 20641 . 20873) (\LEFTMARGIN.SCALED 20875 . 21326) (
-\LINEFEED.SCALED 21328 . 21769) (\MOVETO.SCALED 21771 . 22097) (\NEWPAGE.SCALED 22099 . 22332) (
-\OPERATION.SCALED 22334 . 22581) (\POPSTATE.SCALED 22583 . 22830) (\PUSHSTATE.SCALED 22832 . 23081) (
-\RESET.SCALED 23083 . 23333) (\RIGHTMARGIN.SCALED 23335 . 23788) (\ROTATE.SCALED 23790 . 24042) (
-\SCALE.SCALED 24044 . 24367) (\SCALEDBITBLT.SCALED 24369 . 25278) (\SPACEFACTOR.SCALED 25280 . 25727) 
-(\STRINGWIDTH.SCALED 25729 . 26084) (\TERPRI.SCALED 26086 . 26338) (\TOPMARGIN.SCALED 26340 . 26789) (
-\TRANSLATE.SCALED 26791 . 27161) (\XPOSITION.SCALED 27163 . 27612) (\YPOSITION.SCALED 27614 . 28063) (
-\OUTCHAR.SCALED 28065 . 28691)) (28734 43771 (CENTERPRINTINREGION! 28744 . 29003) (CHARWIDTH! 29005 . 
-29238) (CHARWIDTHY! 29240 . 29475) (CURSORPOSITION! 29477 . 29921) (BITBLT! 29923 . 30533) (BITMAPBIT!
- 30535 . 30764) (BLTSHADE! 30766 . 31298) (DSPBACKUP! 31300 . 31536) (DSPBOTTOMMARGIN! 31538 . 31871) 
-(DSPCLIPPINGREGION! 31873 . 32206) (DRAWBETWEEN! 32208 . 32591) (DRAWARC! 32593 . 33074) (DRAWCIRCLE! 
-33076 . 33451) (DRAWCURVE! 33453 . 33741) (DRAWELLIPSE! 33743 . 34305) (DRAWLINE! 34307 . 34782) (
-DRAWPOINT! 34784 . 35071) (DRAWPOLYGON! 35073 . 35366) (DRAWTO! 35368 . 35680) (FILLCIRCLE! 35682 . 
-35971) (FILLPOLYGON! 35973 . 36161) (FONTPROP! 36163 . 36501) (DSPLEFTMARGIN! 36503 . 36830) (
-DSPLINEFEED! 36832 . 37147) (GETPOSITION! 37149 . 37334) (MOVETO! 37336 . 37550) (MOVETOUPPERLEFT! 
-37552 . 37785) (DSPRIGHTMARGIN! 37787 . 38117) (DSPSCALE! 38119 . 38915) (RELDRAWTO! 38917 . 39231) (
-RELMOVETO! 39233 . 39449) (SCALEDBITBLT! 39451 . 40089) (STRINGREGION! 40091 . 40316) (STRINGWIDTH! 
-40318 . 40560) (DSPSPACEFACTOR! 40562 . 40886) (DSPTRANSLATE! 40888 . 41389) (DSPTOPMARGIN! 41391 . 
-41715) (DSPUNITS! 41717 . 42443) (DSPXOFFSET! 42445 . 42780) (DSPXPOSITION! 42782 . 43106) (
-DSPYOFFSET! 43108 . 43443) (DSPYPOSITION! 43445 . 43769)) (43812 53676 (DSPSCALE.BRUSH 43822 . 44648) 
-(DSPSCALE.DASHING 44650 . 45198) (DSPSCALE.POINTS 45200 . 46255) (DSPSCALE.REGION 46257 . 46955) (
-DSPSCALE.NUMBER 46957 . 47912) (DSPSCALE.POSITION 47914 . 48339) (DSPSCALE.XPOSITION 48341 . 48862) (
-DSPSCALE.YPOSITION 48864 . 49385) (DSPSCALE.WIDTH 49387 . 49607) (DSPUNSCALE.REGION 49609 . 50309) (
-DSPUNSCALE.POSITION 50311 . 50734) (DSPUNSCALE.NUMBER 50736 . 52070) (DSPUNSCALE.CHARACTER 52072 . 
-53674)))))
+  (FILEMAP (NIL (3514 8995 (INITSCALEDIMAGESTREAM 3524 . 6952) (OPENIMAGESTREAM.SCALED 6954 . 8993)) (
+8996 26298 (\BACKCOLOR.SCALED 9006 . 9249) (\BITBLT.SCALED 9251 . 10118) (\BLTSHADE.SCALED 10120 . 
+10875) (\BOTTOMMARGIN.SCALED 10877 . 11332) (\BOUT.SCALED 11334 . 11543) (\CHARWIDTH.SCALED 11545 . 
+11892) (\CHARWIDTHY.SCALED 11894 . 12243) (\CLIPPINGREGION.SCALED 12245 . 12698) (\CLOSEFN.SCALED 
+12700 . 12961) (\COLOR.SCALED 12963 . 13198) (\DEFAULTSTATE.SCALED 13200 . 13455) (\DRAWARC.SCALED 
+13457 . 14086) (\DRAWCIRCLE.SCALED 14088 . 14677) (\DRAWCURVE.SCALED 14679 . 15098) (
+\DRAWELLIPSE.SCALED 15100 . 15896) (\DRAWLINE.SCALED 15898 . 16545) (\DRAWPOINT.SCALED 16547 . 16977) 
+(\DRAWPOLYGON.SCALED 16979 . 17402) (\FILLCIRCLE.SCALED 17404 . 17902) (\FILLPOLYGON.SCALED 17904 . 
+18244) (\FONT.SCALED 18246 . 18478) (\LEFTMARGIN.SCALED 18480 . 18931) (\LINEFEED.SCALED 18933 . 19374
+) (\MOVETO.SCALED 19376 . 19702) (\NEWPAGE.SCALED 19704 . 19937) (\OPERATION.SCALED 19939 . 20186) (
+\POPSTATE.SCALED 20188 . 20435) (\PUSHSTATE.SCALED 20437 . 20686) (\RESET.SCALED 20688 . 20938) (
+\RIGHTMARGIN.SCALED 20940 . 21393) (\ROTATE.SCALED 21395 . 21647) (\SCALE.SCALED 21649 . 21972) (
+\SCALEDBITBLT.SCALED 21974 . 22883) (\SPACEFACTOR.SCALED 22885 . 23332) (\STRINGWIDTH.SCALED 23334 . 
+23689) (\TERPRI.SCALED 23691 . 23943) (\TOPMARGIN.SCALED 23945 . 24394) (\TRANSLATE.SCALED 24396 . 
+24766) (\XPOSITION.SCALED 24768 . 25217) (\YPOSITION.SCALED 25219 . 25668) (\OUTCHAR.SCALED 25670 . 
+26296)) (26339 41376 (CENTERPRINTINREGION! 26349 . 26608) (CHARWIDTH! 26610 . 26843) (CHARWIDTHY! 
+26845 . 27080) (CURSORPOSITION! 27082 . 27526) (BITBLT! 27528 . 28138) (BITMAPBIT! 28140 . 28369) (
+BLTSHADE! 28371 . 28903) (DSPBACKUP! 28905 . 29141) (DSPBOTTOMMARGIN! 29143 . 29476) (
+DSPCLIPPINGREGION! 29478 . 29811) (DRAWBETWEEN! 29813 . 30196) (DRAWARC! 30198 . 30679) (DRAWCIRCLE! 
+30681 . 31056) (DRAWCURVE! 31058 . 31346) (DRAWELLIPSE! 31348 . 31910) (DRAWLINE! 31912 . 32387) (
+DRAWPOINT! 32389 . 32676) (DRAWPOLYGON! 32678 . 32971) (DRAWTO! 32973 . 33285) (FILLCIRCLE! 33287 . 
+33576) (FILLPOLYGON! 33578 . 33766) (FONTPROP! 33768 . 34106) (DSPLEFTMARGIN! 34108 . 34435) (
+DSPLINEFEED! 34437 . 34752) (GETPOSITION! 34754 . 34939) (MOVETO! 34941 . 35155) (MOVETOUPPERLEFT! 
+35157 . 35390) (DSPRIGHTMARGIN! 35392 . 35722) (DSPSCALE! 35724 . 36520) (RELDRAWTO! 36522 . 36836) (
+RELMOVETO! 36838 . 37054) (SCALEDBITBLT! 37056 . 37694) (STRINGREGION! 37696 . 37921) (STRINGWIDTH! 
+37923 . 38165) (DSPSPACEFACTOR! 38167 . 38491) (DSPTRANSLATE! 38493 . 38994) (DSPTOPMARGIN! 38996 . 
+39320) (DSPUNITS! 39322 . 40048) (DSPXOFFSET! 40050 . 40385) (DSPXPOSITION! 40387 . 40711) (
+DSPYOFFSET! 40713 . 41048) (DSPYPOSITION! 41050 . 41374)) (41417 51281 (DSPSCALE.BRUSH 41427 . 42253) 
+(DSPSCALE.DASHING 42255 . 42803) (DSPSCALE.POINTS 42805 . 43860) (DSPSCALE.REGION 43862 . 44560) (
+DSPSCALE.NUMBER 44562 . 45517) (DSPSCALE.POSITION 45519 . 45944) (DSPSCALE.XPOSITION 45946 . 46467) (
+DSPSCALE.YPOSITION 46469 . 46990) (DSPSCALE.WIDTH 46992 . 47212) (DSPUNSCALE.REGION 47214 . 47914) (
+DSPUNSCALE.POSITION 47916 . 48339) (DSPUNSCALE.NUMBER 48341 . 49675) (DSPUNSCALE.CHARACTER 49677 . 
+51279)))))
 STOP

lispusers/GITFNS.TEDIT

@@ -1,9 +1,19 @@
-Medley	GITFNS
2
-
4
-
1
-
GITFNS
1
-
4
-
By Ron Kaplan
This document was last edited in February  2023.

GITFNS provides a Medley-oriented interface for comparing the files in two different branches of a git repository.  This makes it easier to understand what functions or other definitions have changed in a Lisp source file, or what text has changed in a Tedit file.  This may be particularly helpful in evaluating the changes in a pull request.
+Medley	GITFNS
+2
+
+4
+
+1
+
+GITFNS
+1
+
+4
+
+By Ron Kaplan
+This document was last edited in February  2023.
+
+GITFNS provides a Medley-oriented interface for comparing the files in two different branches of a git repository.  This makes it easier to understand what functions or other definitions have changed in a Lisp source file, or what text has changed in a Tedit file.  This may be particularly helpful in evaluating the changes in a pull request.
 Separately, GITFNS also provides tools and conventions for bridging between git's file-oriented style of development and version control and Medley's residential development style with its own version control conventions.  GITFNS allows for intelligent comparisons between Lisp source files, Tedit files, and text files in a local git clone and a local Medley-style working directory, and for migrating files to and from the git clone and the working directory.
 
 Git projects:  Connecting git clones to GITFNS capabilities 
@@ -41,29 +51,37 @@ GIT-MAKE-PROJECT will also create a pseudohost {Wprojectname} for the user's wor
 GIT-INIT creates the default set of projects when GITFNS is loaded, as specified in the variable GIT-DEFAULT-PROJECTS, initially containing MEDLEY NOTECARDS LOOPS TEST. GIT-INIT is added to AROUNDEXITFNS so that new pseudohost bindings for the default projects will be created if the sysout or makesys is started on a new machine.
 
 GIT-DEFAULT-PROJECTS     	[Variable]
-Determines the projects that are created (or recreated) by GIT-INIT. This is initialized for the MEDLEY NOTECARDS LOOPS TEST projects, with CLONEPATH=NIL
GITFNS also defines two directory-connecting commands for conveniently connecting to the git and working pseudohosts of a project:
+Determines the projects that are created (or recreated) by GIT-INIT. This is initialized for the MEDLEY NOTECARDS LOOPS TEST projects, with CLONEPATH=NIL
+GITFNS also defines two directory-connecting commands for conveniently connecting to the git and working pseudohosts of a project:
 cdg (projectname) (subdir)    	[Command]
 cdw (projectname) (subdir)    	[Command]
 For example, cdg notecards library  connects to {NOTECARDS}/library/.
 
 Comparing directories and files in different git branches
 In its simplest application, GITFNS is just an off-to-the-side add-on to whatever work practices the user has developed with respect to a locally installed git project.  Its only advantage is to allow for more interpretable git-branch comparisons, especially for pull-request approval. These comparisons are provided by the prc ("pull request compare") Medley executive command:
-prc  (branch)   (DRAFT)  (projectname)	[Command]
This compares the files in branch against the files in the main branch of the project (origin/master or origin/main).  Thus, suppose that a pull request has been issued on github for a particular branch, say branch rmk15 of the default project.  Then
   prc rmk15 
+prc  (branch)   (DRAFT)  (projectname)	[Command]
+This compares the files in branch against the files in the main branch of the project (origin/master or origin/main).  Thus, suppose that a pull request has been issued on github for a particular branch, say branch rmk15 of the default project.  Then
+   prc rmk15 
 brings up a lispusers/COMPAREDIRECTORIES browser for the files that currently differ between origin/rmk15 and origin/master. If the selected files are Lisp source files, the Compare item on the file browser menu will show the differences in a lispusers/COMPARESOURCES browser. The differences for other file types will be shown in a lispusers/COMPARETEXT browser.
 If branch is not specified and the shell command gh is available, then a menu of open pull-request branches will be provided.  If gh is not available, the menu will offer all known branches.  If the optional DRAFT is provided, then the menu will include draft PR's as well as open ones.
 If one PR, say rmk15, contains all the commits of another (rmk14), then the menu will indicate this by
      rmk15 > rmk14
-Note that the prc comparison is  read-only: any comments, approvals, or merges of the branch must be specified using the normal Medley-external git interfaces and commands.
prc is the special case of the more general bbc command ("branch-branch compare") for comparing the files in any two branches:
-bbc  branch1   branch2  (project)	[Command]
This compares the files in branch1 and branch2, for example
+Note that the prc comparison is  read-only: any comments, approvals, or merges of the branch must be specified using the normal Medley-external git interfaces and commands.
+prc is the special case of the more general bbc command ("branch-branch compare") for comparing the files in any two branches:
+bbc  branch1   branch2  (project)	[Command]
+This compares the files in branch1 and branch2, for example
      bbc rmk15 lmm12   (local)
 This will compare the files in origin/rmk15 and origin/lmm12 in the GIT-DEFAULT project.  branch1 defaults to the origin files of the currently checked out branch, the second defaults to origin/master.  If local is non-NIL, then a branch that has neither local/ or origin/ prepended will default to local (e.g. local/rmk15) instead of origin/.  Local refers to the files that are currently in the clone directory, which may not be the same as the origin files, depending on the push/pull status.  
 Either of the branches can be specified with an atom LOCAL, REMOTE, or ORIGIN, in which case bbc will offer menus listing the currently existing branches of that type.
-NOTE: Branch comparison makes use of a git command that has a limit (diff.renameLimit) on the number of files that it can successfully compare.  A message will be printed if that limit is exceeded, asking whether a larger value for that limit should be applied globally.
The command cob ("check out branch") checks out a specified branch:
+NOTE: Branch comparison makes use of a git command that has a limit (diff.renameLimit) on the number of files that it can successfully compare.  A message will be printed if that limit is exceeded, asking whether a larger value for that limit should be applied globally.
+The command cob ("check out branch") checks out a specified branch:
 cob  branch  (next-title-string) (project)	[Command]
 This checks out branch of project and then executes git pull.  The branch parameter may also be a local branch, T (= the current working branch), or NEW/NEXT (= the next working branch).  The current working branch is the branch named <initials>nnn, e.g. rmk15.  The initials are the value of INITIALS as used for SEDIT time stamps, and nnn is the largest of the integers of all of the branches beginning with those initials.
 If branch is NEW or NEXT, then a new initialed branch is created and becomes the user's current branch.  Its number  is one greater than the largest number of previous initialed branches. If next-title-string is provided, then that string will be appended to the name of the branch, after the initials and next number, and two hyphens.  Spaces in next-title-string will also be replaced by hyphens, according to git conventions.
-If branch is not provided, a menu of locally available branches pops up.
The currently checked out branch is obtained by the b? command:
-b?  (project)	[Command]
+If branch is not provided, a menu of locally available branches pops up.
+The currently checked out branch is obtained by the b? command:
+b?  (project)	[Command]
+
 Correlating git source control with separate Medley development
 It is generally unsafe to do Medley development by operating with files in a local clone repository.  Medley provides a residential development environment that integrates tightly with the local file system.  It is important to have consistent access to the source files of the currently running system, especially for files whose contents have been only partially loaded. A git pull or a branch switch that introduces new versions of some files or removes old files altogether can lead to unpredictable disconnects that are hard to recover from.  This is true also because development can go on in the same Medley memory image for days if not weeks, so it is important to have explicit control of any file version changes.
 GITFNS mitigates the danger by conventions that separate the files in the git clone from the files in the working Medley development directory.  The location of the Medley development source tree for a project is given by the WORKINGPATH argument to GIT-MAKE-PROJECT.  If WORKINGPATH is T or NIL and there exists a directory >working-projectname> as a sister to the clone, then that is taken to be the WORKINGPATH and thus the prefix for a pseudohost {Wprojectname}.
@@ -76,13 +94,12 @@ In addition to the commands for comparing and viewing files, the menu for this b
 If the master/main branch is the current branch then the menu has no commands to change the clone directory. The browser will show those files that have been updated from a recent merge, and they can individually be copied from the git branch to realign the two source trees with incremented Medley version numbers.  If the comparison is with a different branch, say the user's current staging branch, copying files from the working Medley to the git clone or deleting git files will set git up for future commits.  
 Note that the menu item for deleting Medley files will cause all versions to be removed, not just the latest one, to avoid the possibility that an earlier one is revealed. Deletion for Medley files is also accomplished by renaming to a {Wprojectname}<deleted> subdirectory so that they can be recovered if a deletion is in error. Files in the git-clone are removed from the file system immediately, since git provides its own recovery mechanism for those files.
 GITFNS does not (yet?) include functions for commits, pushes, or merge for updating the remote repository. Those have to be done outside of Medley through the usual github interfaces, as guided by the information provided by the comparisons.
-(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)))))1
$4
È
$

È
4
È
$

È
1
È
$4
È

$

È
4
È
$

È
4
È

$

È
4
È

$

È
4
È

$

È
4
È


$

È
1
È$1ŠŠ
8$1ŠŠ
8$J
È$

È
PAGEHEADINGRUNNINGHEAD1
È
$	TERMINAL_Q(DEFAULTFONT 1 (TERMINAL 12) (TERMINAL 8) (TERMINAL 8) (POSTSCRIPT (TERMINAL 8)))MODERN
+(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)))))1
$4
È
$

È
4
È
$

È
1
È
$4
È

$

È
4
È
$

È
4
È

$

È
4
È

$

È
4
È


$

È
4
È

$

È
1
È$1ŠŠ
8$1ŠŠ
8$J
È$

È
PAGEHEADINGRUNNINGHEAD
+TIMESROMAN$rd(DEFAULTFONT 1 (TERMINAL 12) (TERMINAL 8) (TERMINAL 8) (PDF (TERMINAL 8)) (POSTSCRIPT (TERMINAL 8)))MODERN
 TERMINAL
-MODERNMODERN
-MODERN
-TIMESROMAN$MODERN
-
HRULE.GETFN

HRULE.GETFN

HRULE.GETFN



HRULE.GETFN

HRULE.GETFN
1

RÍé
;¹@
-,




"
	


	&

	



\







+TERMINALMODERNMODERN
+MODERN

HRULE.GETFN

HRULE.GETFN

HRULE.GETFN



HRULE.GETFN

HRULE.GETFN
1

RÍé
;¹
+@	,

"		&

\




 X
-


p

	
6,



	


)

	
)
	

+

	



	

5	

			

@&	

I7
o
E	.8>I
 
Y

€
$
;



}(
)



9


!
0

4



c

	

5

vB	

1OLJ''œ)
2+






Z
!
œ5H
55>

$N
!

M
§‹A@4
-
@Ôâ


k6.	R		<9

	

'Y"(?“

F
<00>ìËò1R
þzº
+
p
	
6,

	
)	)	
+
	


	
5	
			
@&	

I7
o
E	.8>I
 
Y

€
$
;



}(
)


9

!0
4

c
	
5
vB	
1OLJ''œ)2+



Z
!
œ5H
55>
$N
!
M
§‹A@4
+
@Ôâ

k6.	R		<9
	
'Y"(?“
F<00>ìËòDATE:gK(1R
þzº

lispusers/NSDISPLAYSIZES

@@ -1,15 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "14-Sep-96 09:32:32" {DSK}<project>medley2.0>lispusers>NSDISPLAYSIZES.;13
 8499   
 
-      changes to%:  (FNS NSDISPLAYSIZE PURGENSFONTS)
-                    (VARS NSDISPLAYSIZESCOMS)
+
(FILECREATED "26-Dec-2023 21:17:15" {WMEDLEY}<lispusers>NSDISPLAYSIZES.;3
 8449   
 
-      previous date%: "16-Nov-95 10:10:26" {DSK}<project>medley2.0>lispusers>NSDISPLAYSIZES.;9)
+      :EDIT-BY rmk
 
+      :CHANGES-TO (FNS NSDISPLAYSIZE)
+
+      :PREVIOUS-DATE "24-Dec-2023 13:50:41" {WMEDLEY}<lispusers>NSDISPLAYSIZES.;2)
 
-(* ; "
-Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation.  All rights reserved.
-")
 
 (PRETTYCOMPRINT NSDISPLAYSIZESCOMS)
 
@@ -17,8 +15,8 @@ Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation.  Al
        [(FNS NSDISPLAYSIZE NS\FONTFILENAME NS\FONTFILENAME.OLD PURGENSFONTS)
         (ADDVARS (NSFONTFAMILIES CLASSIC MODERN TERMINAL OPTIMA TITAN))
         (INITVARS (*SMALLSCREEN* (ILESSP SCREENWIDTH 700)))
-        [COMS                                                (* ; 
-
                       "VirtualKeyboard font needs adjusting so that real Classic 12 still appears")

+        [COMS                                                (* ; 
+
                         "VirtualKeyboard font needs adjusting so that real Classic 12 still appears")

               (FNS VKBD.FIX.FONT)
               (DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (RECLOOK 'KEYBOARDCONFIGURATION)
                                                       (LOADDEF 'KEYBOARDCONFIGURATION 'RECORDS
@@ -32,31 +30,33 @@ Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation.  Al
 (DEFINEQ
 
 (NSDISPLAYSIZE

-  [LAMBDA (FAMILY SIZE FACE EXTENSION)
                   (* ; "Edited 14-Sep-96 09:32 by rmk:")

-                                                             (* ; "Edited 16-Nov-95 10:08 by ")

-                                                             (* ; 
-
                                                           "Edited  5-Mar-93 18:12 by kaplan")

-                                                             (* ; "Edited 15-Jan-87 15:22 by bvm:")

+  [LAMBDA (FAMILY SIZE FACE EXTENSION)
                       (* ; "Edited 26-Dec-2023 21:15 by rmk")


+                                                             (* ; "Edited 24-Dec-2023 13:49 by rmk")


+                                                             (* ; "Edited 14-Sep-96 09:32 by rmk:")

+                                                             (* ; "Edited 16-Nov-95 10:08 by ")

+                                                             (* ; "Edited  5-Mar-93 18:12 by kaplan")

+                                                             (* ; "Edited 15-Jan-87 15:22 by bvm:")

 
-    (* ;; "Returns size that we would prefer to see the font of requested family, size, face, extension.  Used to make bigger ns display fonts than you would get by default.  Don't do it for small screens, as on DOS and laptops.")

+    (* ;; "Returns size that we would prefer to see the font of requested family, size, face, extension.  Used to make bigger ns display fonts than you would get by default.  Don't do it for small screens, as on DOS and laptops.")

 
     (DECLARE
 (GLOBALVARS DISPLAYFONTEXTENSIONS NSFONTFAMILIES))
     (OR (AND (CL:MEMBER EXTENSION DISPLAYFONTEXTENSIONS :TEST 'STRING-EQUAL)
              (COND
                 (*SMALLSCREEN* (CL:UNLESS (CL:MEMBER FAMILY NSFONTFAMILIES :TEST 'STRING-EQUAL)
-                                                             (* ; 
-
                                                           " Small screen, shrink non-NS fonts ")

+                                                             (* ; 
+
                                                             " Small screen, shrink non-NS fonts ")

                                    (SELECTQ SIZE
                                        (12 10)
                                        (10 8)
                                        (8 6)
                                        NIL)))
                 ((CL:MEMBER FAMILY NSFONTFAMILIES :TEST 'STRING-EQUAL)
-                                                             (* ; "Large screen, enlarge  NS fonts")

+                                                             (* ; "Large screen, enlarge  NS fonts")

                  (AND (SELECTQ SIZE
                           (12 (COND
-                                 ((STRING-EQUAL FAMILY 'TERMINAL)
-                                                             (* ; "Until Terminal 14 exists")

+                                 ((CL:MEMBER FAMILY '(TERMINAL TITAN)
+                                         :TEST
+                                         'STRING-EQUAL)      (* ; "Until these exist in size 14")

                                   12)
                                  (T 14)))
                           (10 12)
@@ -64,8 +64,8 @@ Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation.  Al
                           (6 8)
                           NIL)))
                 ((AND NIL (CL:MEMBER EXTENSION INTERPRESSFONTEXTENSIONS :TEST 'STRING-EQUAL)
-                      (STRING-EQUAL FAMILY 'SYMBOL))         (* ; 
-
                          "Fake NS size on Interpress printing, even tho display fonts don't exist")

+                      (STRING-EQUAL FAMILY 'SYMBOL))         (* ; 
+
                            "Fake NS size on Interpress printing, even tho display fonts don't exist")

                  10)))
         SIZE])
 
@@ -159,9 +159,8 @@ Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation.  Al
 
 (VKBD.FIX.FONT
)
 )
-(PUTPROPS NSDISPLAYSIZES COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988 1993 1995 1996))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1696 6738 (NSDISPLAYSIZE 1706 . 4036) (NS\FONTFILENAME 4038 . 4279) (
-NS\FONTFILENAME.OLD 4281 . 4530) (PURGENSFONTS 4532 . 6736)) (6950 7988 (VKBD.FIX.FONT 6960 . 7986))))
+  (FILEMAP (NIL (1522 6781 (NSDISPLAYSIZE 1532 . 4079) (NS\FONTFILENAME 4081 . 4322) (
+NS\FONTFILENAME.OLD 4324 . 4573) (PURGENSFONTS 4575 . 6779)) (6993 8031 (VKBD.FIX.FONT 7003 . 8029))))
 )
 STOP

lispusers/comparetext

@@ -1,18 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "18-Oct-2023 17:45:46" {WMEDLEY}<lispusers>COMPARETEXT.;131
 48661  
+
(FILECREATED "14-Jan-2024 13:20:30" {WMEDLEY}<lispusers>COMPARETEXT.;133
 48539  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS IMCOMPARE.COLLECT.HASH.CHUNKS IMCOMPARE.HASH)
+      :CHANGES-TO (FNS IMCOMPARE.COLLECT.HASH.CHUNKS)
 
-      :PREVIOUS-DATE " 2-Nov-2022 10:08:52" {WMEDLEY}<lispusers>COMPARETEXT.;130)
+      :PREVIOUS-DATE "14-Jan-2024 13:11:44" {WMEDLEY}<lispusers>COMPARETEXT.;132)
 
 
-(* ; "
-Copyright (c) 1984-1985, 1993, 1998 by Xerox Corporation.
-")
-
 (PRETTYCOMPRINT COMPARETEXTCOMS)
 
 (RPAQQ COMPARETEXTCOMS

@@ -295,7 +291,8 @@ Copyright (c) 1984-1985, 1993, 1998 by Xerox Corporation.
                 TITLE TEXTWIDTH TEXTHEIGHT])
 
 (IMCOMPARE.COLLECT.HASH.CHUNKS

-  [LAMBDA (CHUNK HASH.TYPE)
                                  (* ; "Edited 18-Oct-2023 17:45 by rmk")


+  [LAMBDA (CHUNK HASH.TYPE)
                                  (* ; "Edited 14-Jan-2024 13:20 by rmk")


+                                                             (* ; "Edited 18-Oct-2023 17:45 by rmk")


                                                              (* ; "Edited 20-Jan-2022 23:09 by rmk")


                                                              (* ; "Edited 24-Dec-2021 22:30 by rmk")


                                                              (* ; "Edited 13-Dec-2021 16:32 by rmk")


@@ -304,19 +301,19 @@ Copyright (c) 1984-1985, 1993, 1998 by Xerox Corporation.
 
 (* ;;; "Returns a list of the chunks inside CHUNK as hashed of type HASH.TYPE.  Presumably CHUNK is is higher on the ranking PARA > LINE >.  WORD.  The initial CHUNK covers the whole file, middle-mouse refinement-chunks cover only subsections.")

 
-    (* ;; "It is overkill to open raw text streams as TEDIT stream.  So we open, test for TEDIT and if so, close and reoopen.  TEDIT may not yet honor external formats other than XCCS for rawtext files.")

+    (* ;; "It is overkill to open raw text streams as TEDIT stream.  So we open, test for TEDIT and if so, close and reoopen.  ")

 
     (RESETLST
         (BIND
 (FILENAME _ (fetch
 (IMCOMPARE.CHUNK FILENAME) of
 CHUNK))
               STREAM ENDPOS FIRST
 [RESETSAVE [SETQ STREAM (OPENSTREAM FILENAME 'INPUT 'OLD
                                                                  '((ENDOFSTREAMOP NILL]
                                          '(PROGN (CLOSEF? OLDVALUE]
-                                  (CL:WHEN (\TEDIT.FORMATTEDP1 STREAM)
+                                  (CL:WHEN (TEDIT.FORMATTEDFILEP STREAM)
                                                              (* ; 
 
                                               "The OBJECTCHAR is produced in place of image objects")

                                       [RESETSAVE [SETQ STREAM
                                                   (OPENTEXTSTREAM STREAM NIL NIL NIL
-                                                         `(OBJECTBYTE ,(CHARCODE NULL]
+                                                         `(OBJECTBYTE ,(CHARCODE *
]
                                              '(PROGN (CLOSEF? OLDVALUE])
                                   (SETFILEINFO STREAM 'EOL 'ANY)
                                   (CL:UNLESS (fetch
 (IMCOMPARE.CHUNK CHUNKLENGTH) of
 CHUNK)
@@ -782,14 +779,13 @@ Copyright (c) 1984-1985, 1993, 1998 by Xerox Corporation.
 (FILESLOAD (LOADCOMP)
        GRAPHER)
 )
-(PUTPROPS COMPARETEXT COPYRIGHT ("Xerox Corporation" 1984 1985 1993 1998))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1318 40954 (COMPARETEXT 1328 . 2968) (COMPARETEXT.WINDOW 2970 . 6768) (
-COMPARETEXT.TSTREAM 6770 . 9991) (COMPARETEXT.SETSEL 9993 . 10898) (CHUNKNODELABEL 10900 . 12021) (
-IMCOMPARE.BOXNODE 12023 . 12999) (IMCOMPARE.CHUNKS 13001 . 17609) (IMCOMPARE.COLLECT.HASH.CHUNKS 17611
- . 20723) (IMCOMPARE.DISPLAYGRAPH 20725 . 28804) (IMCOMPARE.HASH 28806 . 33164) (
-IMCOMPARE.MERGE.CONNECTED.CHUNKS 33166 . 36662) (IMCOMPARE.MERGE.UNCONNECTED.CHUNKS 36664 . 38619) (
-IMCOMPARE.SHOW.DIST 38621 . 39067) (IMCOMPARE.UPDATE.SYMBOL.TABLE 39069 . 40952)) (40955 47439 (
-IMCOMPARE.LEFTBUTTONFN 40965 . 43869) (IMCOMPARE.MIDDLEBUTTONFN 43871 . 46987) (IMCOMPARE.COPYBUTTONFN
- 46989 . 47437)) (47492 48183 (TAIL1 47502 . 47856) (TAIL2 47858 . 48181)))))
+  (FILEMAP (NIL (1234 40907 (COMPARETEXT 1244 . 2884) (COMPARETEXT.WINDOW 2886 . 6684) (
+COMPARETEXT.TSTREAM 6686 . 9907) (COMPARETEXT.SETSEL 9909 . 10814) (CHUNKNODELABEL 10816 . 11937) (
+IMCOMPARE.BOXNODE 11939 . 12915) (IMCOMPARE.CHUNKS 12917 . 17525) (IMCOMPARE.COLLECT.HASH.CHUNKS 17527
+ . 20676) (IMCOMPARE.DISPLAYGRAPH 20678 . 28757) (IMCOMPARE.HASH 28759 . 33117) (
+IMCOMPARE.MERGE.CONNECTED.CHUNKS 33119 . 36615) (IMCOMPARE.MERGE.UNCONNECTED.CHUNKS 36617 . 38572) (
+IMCOMPARE.SHOW.DIST 38574 . 39020) (IMCOMPARE.UPDATE.SYMBOL.TABLE 39022 . 40905)) (40908 47392 (
+IMCOMPARE.LEFTBUTTONFN 40918 . 43822) (IMCOMPARE.MIDDLEBUTTONFN 43824 . 46940) (IMCOMPARE.COPYBUTTONFN
+ 46942 . 47390)) (47445 48136 (TAIL1 47455 . 47809) (TAIL2 47811 . 48134)))))
 STOP

scripts/cpv

@@ -3,13 +3,6 @@
 # cpv file dest
 # could extend with -r or copying multiple files
 
-ln_or_cp () {
-    f=$(df $(dirname $1) | tail -1 | awk '{ print $1 }')
-    d=$(df $(dirname $2) | tail -1 | awk '{ print $1 }')
-    if [ "$f" != "$d" ]; then cmd="cp -p"; else cmd="ln"; fi
-    echo $cmd
-}
-
 file="$1"
 dest="$2"
 
@@ -31,7 +24,7 @@ fi
 
 # if no such file $dest then just copy
 if [ ! -f "$dest" ]; then
-    $(ln_or_cp $file $dest) $file $dest
+    cp $file $dest
     echo "Added $(basename $dest) to $(dirname $dest)"
     exit 0
 fi
@@ -64,8 +57,12 @@ else
 fi
 
 # make new version and link it
+ln $file $dest.~$new~ >/dev/null 2>&1
+if [ $? -ne 0 ]
+then
+    cp -p $file $dest.~$new~
+fi
 
-$(ln_or_cp $file $dest.~new~) $file $dest.~$new~
 echo "Added $(basename $dest.~$new~) to $(dirname $dest.~$new~)"
 rm -f $dest
 ln $dest.~$new~ $dest

sources/CLSTREAMS

@@ -1,34 +1,15 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "20-Jul-2022 00:03:06" 
-|{DSK}<users>kaplan>local>medley3.5>working-medley>sources>CLSTREAMS.;41|
 67657  
+
(FILECREATED " 8-Dec-2023 15:46:10" |{WMEDLEY}<sources>CLSTREAMS.;43|
 66631  
 
-      :CHANGES-TO (SETFS FILE-STREAM-POSITION)
-                  (VARS CLSTREAMSCOMS)
-                  (FUNCTIONS OPEN CL:CLOSE CL:STREAM-EXTERNAL-FORMAT CL:STREAM-ELEMENT-TYPE 
-                         CL:INPUT-STREAM-P CL:OUTPUT-STREAM-P XCL:OPEN-STREAM-P FILE-STREAM-POSITION
-                         CL:MAKE-SYNONYM-STREAM XCL:SYNONYM-STREAM-P XCL:SYNONYM-STREAM-SYMBOL 
-                         XCL:FOLLOW-SYNONYM-STREAMS CL:MAKE-BROADCAST-STREAM XCL:BROADCAST-STREAM-P 
-                         XCL:BROADCAST-STREAM-STREAMS CL:MAKE-CONCATENATED-STREAM 
-                         XCL:CONCATENATED-STREAM-P XCL:CONCATENATED-STREAM-STREAMS 
-                         CL:MAKE-TWO-WAY-STREAM XCL:TWO-WAY-STREAM-P XCL:TWO-WAY-STREAM-OUTPUT-STREAM
-                         XCL:TWO-WAY-STREAM-INPUT-STREAM CL:MAKE-ECHO-STREAM XCL:ECHO-STREAM-P 
-                         XCL:ECHO-STREAM-INPUT-STREAM XCL:ECHO-STREAM-OUTPUT-STREAM 
-                         CL:MAKE-STRING-INPUT-STREAM MAKE-CONCATENATED-STRING-INPUT-STREAM 
-                         %MAKE-INITIAL-STRING-STREAM-CONTENTS CL:WITH-OPEN-STREAM 
-                         CL:WITH-INPUT-FROM-STRING CL:WITH-OUTPUT-TO-STRING CL:WITH-OPEN-FILE 
-                         CL:MAKE-STRING-OUTPUT-STREAM MAKE-FILL-POINTER-OUTPUT-STREAM 
-                         CL:GET-OUTPUT-STREAM-STRING \\STRING-STREAM-OUTCHARFN 
-                         \\ADJUSTABLE-STRING-STREAM-OUTCHARFN %NEW-FILE PREDICT-NAME INTERLISP-ACCESS
-                         %BROADCAST-STREAM-DEVICE-CHARSETFN %CONCATENATED-STREAM-DEVICE-CHARSETFN 
-                         %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM)
-                  (FNS %TWO-WAY-STREAM-PEEKCCODEFN)
+      :EDIT-BY |rmk|
 
-      :PREVIOUS-DATE "19-Jul-2022 22:58:32" 
-|{DSK}<users>kaplan>local>medley3.5>working-medley>sources>CLSTREAMS.;40|)
+      :CHANGES-TO (FUNCTIONS %BROADCAST-STREAM-DEVICE-CHARSETFN %CONCATENATED-STREAM-DEVICE-CHARSETFN
+                         )
+                  (FNS %SYNONYM-STREAM-DEVICE-CHARSETFN %TWO-WAY-STREAM-DEVICE-CHARSETFN)
 
+      :PREVIOUS-DATE "20-Jul-2022 00:03:06" |{WMEDLEY}<sources>CLSTREAMS.;41|)
 
-; Copyright (c) 1985-1988, 1990-1991 by Venue & Xerox Corporation.
 
 (PRETTYCOMPRINT CLSTREAMSCOMS)
 
@@ -717,11 +698,12 @@
 )
 )
 
-(CL:DEFUN %BROADCAST-STREAM-DEVICE-CHARSETFN
 (STREAM NEWVALUE)
+(CL:DEFUN %BROADCAST-STREAM-DEVICE-CHARSETFN
 (STREAM NEWVALUE DONTMARKFILE)

+                                                            (* \; "Edited  8-Dec-2023 15:43 by rmk")

 
    (* |;;| "charset function for broadcast streams.  Not clear what the value should be, so we arbitrarily return the value of the last stream.")

 
-   (FOR
 S IN
 (FETCH
 (STREAM F1) OF
 STREAM) DO
 (SETQ $$VAL (ACCESS-CHARSET S NEWVALUE))))
+   (FOR
 S IN
 (FETCH
 (STREAM F1) OF
 STREAM) DO
 (SETQ $$VAL (ACCESS-CHARSET S NEWVALUE DONTMARKFILE))))
 (DEFINEQ
 
 (%BROADCAST-STREAM-OUTCHARFN

@@ -811,14 +793,15 @@
                                                                    (\\EOF.ACTION STREAM))))
 )
 
-(CL:DEFUN %CONCATENATED-STREAM-DEVICE-CHARSETFN
 (STREAM NEWVALUE)
+(CL:DEFUN %CONCATENATED-STREAM-DEVICE-CHARSETFN
 (STREAM NEWVALUE DONTMARKFILE)

+                                                            (* \; "Edited  8-Dec-2023 15:46 by rmk")

 
    (* |;;| "the charset method for concatenated stream devices")

 
    (LET ((STREAMS (FETCH
 (STREAM F1) OF
 STREAM)))
         (IF
 STREAMS
             THEN
 (ACCESS-CHARSET (CAR STREAMS)
-                        NEWVALUE)
+                        NEWVALUE DONTMARKFILE)
           ELSE
 0)))
 (DEFINEQ
 
@@ -881,9 +864,14 @@
 (lambda (stream attribute value device) (* |hdj| "19-Mar-86 17:17") (* |;;;| "The SETFILEINFO method for the synonym-stream device.") (setfileinfo (%synonym-stream-device-get-stream stream) attribute value))
 )
 
-(%synonym-stream-device-charsetfn

-(lambda (stream newvalue) (* \; "Edited 11-Sep-87 16:01 by bvm:") (* |;;| "The charset method for the synonym-stream device.") (access-charset (%synonym-stream-device-get-stream stream) newvalue))
-)
+(%SYNONYM-STREAM-DEVICE-CHARSETFN

+  (LAMBDA (STREAM NEWVALUE DONTMARKFILE)
                    (* \; "Edited  8-Dec-2023 15:40 by rmk")


+                                                             (* \; "Edited 11-Sep-87 16:01 by bvm:")

+
+    (* |;;| "The charset method for the synonym-stream device.")

+
+    (ACCESS-CHARSET (%SYNONYM-STREAM-DEVICE-GET-STREAM
 STREAM)
+           NEWVALUE DONTMARKFILE)))
 
 (%SYNONYM-STREAM-DEVICE-CLOSEFILE

   (LAMBDA (STREAM)
                                       (* \; "Edited 18-Dec-87 12:17 by sye")

@@ -1095,9 +1083,14 @@
 (lambda (|stream| |noErrorFlg?|) (* |smL| "14-Aug-85 16:46") (* |;;;| "The PEEKBIN method for the two-way-stream device") (\\peekbin (|fetch| f1 |of| |stream|) |noErrorFlg?|))
 )
 
-(%two-way-stream-device-charsetfn

-(lambda (stream newvalue) (* \; "Edited 11-Sep-87 16:00 by bvm:") (* |;;| "The charset method for two-way streams.  Unclear what this is supposed to mean--let's apply it only to the input side (in which case newvalue is senseless)") (access-charset (|fetch| (stream f1) |of| stream) newvalue))
-)
+(%TWO-WAY-STREAM-DEVICE-CHARSETFN

+  (LAMBDA (STREAM NEWVALUE DONTMARKFILE)
                    (* \; "Edited  8-Dec-2023 15:41 by rmk")


+                                                             (* \; "Edited 11-Sep-87 16:00 by bvm:")

+
+    (* |;;| "The charset method for two-way streams.  Unclear what this is supposed to mean--let's apply it only to the input side (in which case newvalue is senseless)")

+
+    (ACCESS-CHARSET (|fetch|
 (STREAM F1) |of|
 STREAM)
+           NEWVALUE DONTMARKFILE)))
 )
 
 
@@ -1367,58 +1360,57 @@
 )
 
 (PUTPROPS CLSTREAMS
 FILETYPE
 CL:COMPILE-FILE)
-(PUTPROPS CLSTREAMS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1991))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (7779 16754 (OPEN 7779 . 16754)) (16756 17682 (CL:CLOSE 16756 . 17682)) (17684 17762 (
-CL:STREAM-EXTERNAL-FORMAT 17684 . 17762)) (17764 17831 (CL:STREAM-ELEMENT-TYPE 17764 . 17831)) (17833 
-18067 (CL:INPUT-STREAM-P 17833 . 18067)) (18069 18305 (CL:OUTPUT-STREAM-P 18069 . 18305)) (18307 18444
- (XCL:OPEN-STREAM-P 18307 . 18444)) (18446 18513 (FILE-STREAM-POSITION 18446 . 18513)) (18565 20069 (
-CL:MAKE-SYNONYM-STREAM 18565 . 20069)) (20071 20160 (XCL:SYNONYM-STREAM-P 20071 . 20160)) (20162 20300
- (XCL:SYNONYM-STREAM-SYMBOL 20162 . 20300)) (20302 20580 (XCL:FOLLOW-SYNONYM-STREAMS 20302 . 20580)) (
-20582 21067 (CL:MAKE-BROADCAST-STREAM 20582 . 21067)) (21069 21212 (XCL:BROADCAST-STREAM-P 21069 . 
-21212)) (21214 21429 (XCL:BROADCAST-STREAM-STREAMS 21214 . 21429)) (21431 22015 (
-CL:MAKE-CONCATENATED-STREAM 21431 . 22015)) (22017 22116 (XCL:CONCATENATED-STREAM-P 22017 . 22116)) (
-22118 22331 (XCL:CONCATENATED-STREAM-STREAMS 22118 . 22331)) (22333 24074 (CL:MAKE-TWO-WAY-STREAM 
-22333 . 24074)) (24076 24213 (XCL:TWO-WAY-STREAM-P 24076 . 24213)) (24215 24360 (
-XCL:TWO-WAY-STREAM-OUTPUT-STREAM 24215 . 24360)) (24362 24506 (XCL:TWO-WAY-STREAM-INPUT-STREAM 24362
- . 24506)) (24508 26055 (CL:MAKE-ECHO-STREAM 24508 . 26055)) (26057 26186 (XCL:ECHO-STREAM-P 26057 . 
-26186)) (26188 26326 (XCL:ECHO-STREAM-INPUT-STREAM 26188 . 26326)) (26328 26467 (
-XCL:ECHO-STREAM-OUTPUT-STREAM 26328 . 26467)) (26469 27196 (CL:MAKE-STRING-INPUT-STREAM 26469 . 27196)
-) (27198 27691 (MAKE-CONCATENATED-STRING-INPUT-STREAM 27198 . 27691)) (27693 27853 (
-%MAKE-INITIAL-STRING-STREAM-CONTENTS 27693 . 27853)) (27855 28285 (CL:WITH-OPEN-STREAM 27855 . 28285))
- (28287 29516 (CL:WITH-INPUT-FROM-STRING 28287 . 29516)) (29518 30020 (CL:WITH-OUTPUT-TO-STRING 29518
- . 30020)) (30022 30676 (CL:WITH-OPEN-FILE 30022 . 30676)) (30900 32426 (
-MAKE-FILL-POINTER-OUTPUT-STREAM 30900 . 32426)) (32428 33149 (CL:GET-OUTPUT-STREAM-STRING 32428 . 
-33149)) (33151 33630 (\\STRING-STREAM-OUTCHARFN 33151 . 33630)) (33632 35487 (
-\\ADJUSTABLE-STRING-STREAM-OUTCHARFN 33632 . 35487)) (35516 35598 (%NEW-FILE 35516 . 35598)) (35600 
-35745 (PREDICT-NAME 35600 . 35745)) (35781 35932 (INTERLISP-ACCESS 35781 . 35932)) (36021 36756 (
-%BROADCAST-STREAM-DEVICE-BOUT 36031 . 36254) (%BROADCAST-STREAM-DEVICE-CLOSEFILE 36256 . 36495) (
-%BROADCAST-STREAM-DEVICE-FORCEOUTPUT 36497 . 36754)) (36758 37085 (%BROADCAST-STREAM-DEVICE-CHARSETFN 
-36758 . 37085)) (37086 37881 (%BROADCAST-STREAM-OUTCHARFN 37096 . 37879)) (37920 39979 (
-%CONCATENATED-STREAM-DEVICE-BIN 37930 . 38335) (%CONCATENATED-STREAM-DEVICE-CLOSEFILE 38337 . 38650) (
-%CONCATENATED-STREAM-DEVICE-EOFP 38652 . 39016) (%CONCATENATED-STREAM-DEVICE-PEEKBIN 39018 . 39493) (
-%CONCATENATED-STREAM-DEVICE-BACKFILEPTR 39495 . 39977)) (39980 42610 (%CONCATENATED-STREAM-INCCODEFN 
-39990 . 40860) (%CONCATENATED-STREAM-PEEKCCODEFN 40862 . 41734) (%CONCATENATED-STREAM-BACKCCODEFN 
-41736 . 42608)) (42612 42943 (%CONCATENATED-STREAM-DEVICE-CHARSETFN 42612 . 42943)) (42944 43475 (
-%ECHO-STREAM-DEVICE-BIN 42954 . 43161) (%ECHO-STREAM-INCCODEFN 43163 . 43473)) (43510 43735 (
-%SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM 43510 . 43735)) (43736 46372 (%SYNONYM-STREAM-DEVICE-BIN 
-43746 . 43934) (%SYNONYM-STREAM-DEVICE-BOUT 43936 . 44137) (%SYNONYM-STREAM-DEVICE-EOFP 44139 . 44330)
- (%SYNONYM-STREAM-DEVICE-FORCEOUTPUT 44332 . 44570) (%SYNONYM-STREAM-DEVICE-GETFILEINFO 44572 . 44809)
- (%SYNONYM-STREAM-DEVICE-PEEKBIN 44811 . 45034) (%SYNONYM-STREAM-DEVICE-READP 45036 . 45147) (
-%SYNONYM-STREAM-DEVICE-BACKFILEPTR 45149 . 45295) (%SYNONYM-STREAM-DEVICE-SETFILEINFO 45297 . 45546) (
-%SYNONYM-STREAM-DEVICE-CHARSETFN 45548 . 45784) (%SYNONYM-STREAM-DEVICE-CLOSEFILE 45786 . 46370)) (
-46400 46639 (%SYNONYM-STREAM-DEVICE-GET-STREAM 46410 . 46637)) (46683 49626 (%SYNONYM-STREAM-OUTCHARFN
- 46693 . 47639) (%SYNONYM-STREAM-INCCODEFN 47641 . 48170) (%SYNONYM-STREAM-PEEKCCODEFN 48172 . 48979) 
-(%SYNONYM-STREAM-BACKCCODEFN 48981 . 49624)) (49660 51663 (%TWO-WAY-STREAM-BACKCCODEFN 49670 . 50071) 
-(%TWO-WAY-STREAM-INCCODEFN 50073 . 50468) (%TWO-WAY-STREAM-OUTCHARFN 50470 . 51162) (
-%TWO-WAY-STREAM-PEEKCCODEFN 51164 . 51661)) (51664 55989 (%TWO-WAY-STREAM-DEVICE-BIN 51674 . 51847) (
-%TWO-WAY-STREAM-DEVICE-INPUTSTREAM 51849 . 52040) (%TWO-WAY-STREAM-DEVICE-BOUT 52042 . 52214) (
-%TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM 52216 . 52406) (%TWO-WAY-STREAM-DEVICE-OUTCHARFN 52408 . 53270) (
-%TWO-WAY-STREAM-DEVICE-CLOSEFILE 53272 . 54695) (%TWO-WAY-STREAM-DEVICE-EOFP 54697 . 54873) (
-%TWO-WAY-STREAM-DEVICE-READP 54875 . 55068) (%TWO-WAY-STREAM-DEVICE-BACKFILEPTR 55070 . 55206) (
-%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT 55208 . 55437) (%TWO-WAY-STREAM-DEVICE-PEEKBIN 55439 . 55652) (
-%TWO-WAY-STREAM-DEVICE-CHARSETFN 55654 . 55987)) (56029 56254 (%FILL-POINTER-STREAM-DEVICE-CLOSEFILE 
-56029 . 56254)) (56256 56375 (%FILL-POINTER-STREAM-DEVICE-GETFILEPTR 56256 . 56375)) (56813 57356 (
-%INITIALIZE-STANDARD-STREAMS 56813 . 57356)) (57357 67383 (%INITIALIZE-CLSTREAM-TYPES 57367 . 67381)))
+  (FILEMAP (NIL (6184 15159 (OPEN 6184 . 15159)) (15161 16087 (CL:CLOSE 15161 . 16087)) (16089 16167 (
+CL:STREAM-EXTERNAL-FORMAT 16089 . 16167)) (16169 16236 (CL:STREAM-ELEMENT-TYPE 16169 . 16236)) (16238 
+16472 (CL:INPUT-STREAM-P 16238 . 16472)) (16474 16710 (CL:OUTPUT-STREAM-P 16474 . 16710)) (16712 16849
+ (XCL:OPEN-STREAM-P 16712 . 16849)) (16851 16918 (FILE-STREAM-POSITION 16851 . 16918)) (16970 18474 (
+CL:MAKE-SYNONYM-STREAM 16970 . 18474)) (18476 18565 (XCL:SYNONYM-STREAM-P 18476 . 18565)) (18567 18705
+ (XCL:SYNONYM-STREAM-SYMBOL 18567 . 18705)) (18707 18985 (XCL:FOLLOW-SYNONYM-STREAMS 18707 . 18985)) (
+18987 19472 (CL:MAKE-BROADCAST-STREAM 18987 . 19472)) (19474 19617 (XCL:BROADCAST-STREAM-P 19474 . 
+19617)) (19619 19834 (XCL:BROADCAST-STREAM-STREAMS 19619 . 19834)) (19836 20420 (
+CL:MAKE-CONCATENATED-STREAM 19836 . 20420)) (20422 20521 (XCL:CONCATENATED-STREAM-P 20422 . 20521)) (
+20523 20736 (XCL:CONCATENATED-STREAM-STREAMS 20523 . 20736)) (20738 22479 (CL:MAKE-TWO-WAY-STREAM 
+20738 . 22479)) (22481 22618 (XCL:TWO-WAY-STREAM-P 22481 . 22618)) (22620 22765 (
+XCL:TWO-WAY-STREAM-OUTPUT-STREAM 22620 . 22765)) (22767 22911 (XCL:TWO-WAY-STREAM-INPUT-STREAM 22767
+ . 22911)) (22913 24460 (CL:MAKE-ECHO-STREAM 22913 . 24460)) (24462 24591 (XCL:ECHO-STREAM-P 24462 . 
+24591)) (24593 24731 (XCL:ECHO-STREAM-INPUT-STREAM 24593 . 24731)) (24733 24872 (
+XCL:ECHO-STREAM-OUTPUT-STREAM 24733 . 24872)) (24874 25601 (CL:MAKE-STRING-INPUT-STREAM 24874 . 25601)
+) (25603 26096 (MAKE-CONCATENATED-STRING-INPUT-STREAM 25603 . 26096)) (26098 26258 (
+%MAKE-INITIAL-STRING-STREAM-CONTENTS 26098 . 26258)) (26260 26690 (CL:WITH-OPEN-STREAM 26260 . 26690))
+ (26692 27921 (CL:WITH-INPUT-FROM-STRING 26692 . 27921)) (27923 28425 (CL:WITH-OUTPUT-TO-STRING 27923
+ . 28425)) (28427 29081 (CL:WITH-OPEN-FILE 28427 . 29081)) (29305 30831 (
+MAKE-FILL-POINTER-OUTPUT-STREAM 29305 . 30831)) (30833 31554 (CL:GET-OUTPUT-STREAM-STRING 30833 . 
+31554)) (31556 32035 (\\STRING-STREAM-OUTCHARFN 31556 . 32035)) (32037 33892 (
+\\ADJUSTABLE-STRING-STREAM-OUTCHARFN 32037 . 33892)) (33921 34003 (%NEW-FILE 33921 . 34003)) (34005 
+34150 (PREDICT-NAME 34005 . 34150)) (34186 34337 (INTERLISP-ACCESS 34186 . 34337)) (34426 35161 (
+%BROADCAST-STREAM-DEVICE-BOUT 34436 . 34659) (%BROADCAST-STREAM-DEVICE-CLOSEFILE 34661 . 34900) (
+%BROADCAST-STREAM-DEVICE-FORCEOUTPUT 34902 . 35159)) (35163 35625 (%BROADCAST-STREAM-DEVICE-CHARSETFN 
+35163 . 35625)) (35626 36421 (%BROADCAST-STREAM-OUTCHARFN 35636 . 36419)) (36460 38519 (
+%CONCATENATED-STREAM-DEVICE-BIN 36470 . 36875) (%CONCATENATED-STREAM-DEVICE-CLOSEFILE 36877 . 37190) (
+%CONCATENATED-STREAM-DEVICE-EOFP 37192 . 37556) (%CONCATENATED-STREAM-DEVICE-PEEKBIN 37558 . 38033) (
+%CONCATENATED-STREAM-DEVICE-BACKFILEPTR 38035 . 38517)) (38520 41150 (%CONCATENATED-STREAM-INCCODEFN 
+38530 . 39400) (%CONCATENATED-STREAM-PEEKCCODEFN 39402 . 40274) (%CONCATENATED-STREAM-BACKCCODEFN 
+40276 . 41148)) (41152 41618 (%CONCATENATED-STREAM-DEVICE-CHARSETFN 41152 . 41618)) (41619 42150 (
+%ECHO-STREAM-DEVICE-BIN 41629 . 41836) (%ECHO-STREAM-INCCODEFN 41838 . 42148)) (42185 42410 (
+%SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM 42185 . 42410)) (42411 45240 (%SYNONYM-STREAM-DEVICE-BIN 
+42421 . 42609) (%SYNONYM-STREAM-DEVICE-BOUT 42611 . 42812) (%SYNONYM-STREAM-DEVICE-EOFP 42814 . 43005)
+ (%SYNONYM-STREAM-DEVICE-FORCEOUTPUT 43007 . 43245) (%SYNONYM-STREAM-DEVICE-GETFILEINFO 43247 . 43484)
+ (%SYNONYM-STREAM-DEVICE-PEEKBIN 43486 . 43709) (%SYNONYM-STREAM-DEVICE-READP 43711 . 43822) (
+%SYNONYM-STREAM-DEVICE-BACKFILEPTR 43824 . 43970) (%SYNONYM-STREAM-DEVICE-SETFILEINFO 43972 . 44221) (
+%SYNONYM-STREAM-DEVICE-CHARSETFN 44223 . 44652) (%SYNONYM-STREAM-DEVICE-CLOSEFILE 44654 . 45238)) (
+45268 45507 (%SYNONYM-STREAM-DEVICE-GET-STREAM 45278 . 45505)) (45551 48494 (%SYNONYM-STREAM-OUTCHARFN
+ 45561 . 46507) (%SYNONYM-STREAM-INCCODEFN 46509 . 47038) (%SYNONYM-STREAM-PEEKCCODEFN 47040 . 47847) 
+(%SYNONYM-STREAM-BACKCCODEFN 47849 . 48492)) (48528 50531 (%TWO-WAY-STREAM-BACKCCODEFN 48538 . 48939) 
+(%TWO-WAY-STREAM-INCCODEFN 48941 . 49336) (%TWO-WAY-STREAM-OUTCHARFN 49338 . 50030) (
+%TWO-WAY-STREAM-PEEKCCODEFN 50032 . 50529)) (50532 55054 (%TWO-WAY-STREAM-DEVICE-BIN 50542 . 50715) (
+%TWO-WAY-STREAM-DEVICE-INPUTSTREAM 50717 . 50908) (%TWO-WAY-STREAM-DEVICE-BOUT 50910 . 51082) (
+%TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM 51084 . 51274) (%TWO-WAY-STREAM-DEVICE-OUTCHARFN 51276 . 52138) (
+%TWO-WAY-STREAM-DEVICE-CLOSEFILE 52140 . 53563) (%TWO-WAY-STREAM-DEVICE-EOFP 53565 . 53741) (
+%TWO-WAY-STREAM-DEVICE-READP 53743 . 53936) (%TWO-WAY-STREAM-DEVICE-BACKFILEPTR 53938 . 54074) (
+%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT 54076 . 54305) (%TWO-WAY-STREAM-DEVICE-PEEKBIN 54307 . 54520) (
+%TWO-WAY-STREAM-DEVICE-CHARSETFN 54522 . 55052)) (55094 55319 (%FILL-POINTER-STREAM-DEVICE-CLOSEFILE 
+55094 . 55319)) (55321 55440 (%FILL-POINTER-STREAM-DEVICE-GETFILEPTR 55321 . 55440)) (55878 56421 (
+%INITIALIZE-STANDARD-STREAMS 55878 . 56421)) (56422 66448 (%INITIALIZE-CLSTREAM-TYPES 56432 . 66446)))
 ))
 STOP

sources/EXTERNALFORMAT

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "10-Oct-2022 18:10:56" 
-{DSK}<cygdrive>c>Users>Larry>home>MEDLEY>SOURCES>EXTERNALFORMAT.;76
 37395  
+
(FILECREATED "12-Jan-2024 10:59:18" {DSK}<home>larry>il>medley>sources>EXTERNALFORMAT.;3
 38380  
 
-      :CHANGES-TO (FNS SYSTEM-EXTERNALFORMAT)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "24-Jul-2022 14:56:07" 
-{DSK}<cygdrive>c>Users>Larry>home>MEDLEY>SOURCES>EXTERNALFORMAT.;75)
+      :CHANGES-TO (FNS \BACKCCODE)
+
+      :PREVIOUS-DATE " 8-Dec-2023 22:02:21" {DSK}<home>larry>il>medley>sources>EXTERNALFORMAT.;1)
 
 
 (PRETTYCOMPRINT EXTERNALFORMATCOMS)
@@ -68,12 +68,14 @@
 
      "Extra fields for use of particular formats.  Possibly to hold standardized translation tables")

                           (EF2 POINTER)
                           (FORMATBYTESTRINGFN POINTER)       (* ; "Translates an internal string into a string containing the bytes that represent that string in this format")

+                          (FORMATCHARSETFN POINTER)          (* ; 
+
                                                             "If present, apply by \GENERIC.CHARSET")

                           ))
 )
 
-(/DECLAREDATATYPE 'EXTERNALFORMAT '(FLAG (BITS 2)
-                                         FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER
-                                         POINTER POINTER)
+(/DECLAREDATATYPE 'EXTERNALFORMAT
+       '(FLAG (BITS 2)
+              FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)
        '((EXTERNALFORMAT 0 (FLAGBITS . 0))
          (EXTERNALFORMAT 0 (BITS . 17))
          (EXTERNALFORMAT 0 (FLAGBITS . 48))
@@ -85,16 +87,17 @@
          (EXTERNALFORMAT 10 POINTER)
          (EXTERNALFORMAT 12 POINTER)
          (EXTERNALFORMAT 14 POINTER)
-         (EXTERNALFORMAT 16 POINTER))
-       '18)
+         (EXTERNALFORMAT 16 POINTER)
+         (EXTERNALFORMAT 18 POINTER))
+       '20)
 
 (* "END EXPORTED DEFINITIONS")
 
 )
 
-(/DECLAREDATATYPE 'EXTERNALFORMAT '(FLAG (BITS 2)
-                                         FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER
-                                         POINTER POINTER)
+(/DECLAREDATATYPE 'EXTERNALFORMAT
+       '(FLAG (BITS 2)
+              FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)
        '((EXTERNALFORMAT 0 (FLAGBITS . 0))
          (EXTERNALFORMAT 0 (BITS . 17))
          (EXTERNALFORMAT 0 (FLAGBITS . 48))
@@ -106,8 +109,9 @@
          (EXTERNALFORMAT 10 POINTER)
          (EXTERNALFORMAT 12 POINTER)
          (EXTERNALFORMAT 14 POINTER)
-         (EXTERNALFORMAT 16 POINTER))
-       '18)
+         (EXTERNALFORMAT 16 POINTER)
+         (EXTERNALFORMAT 18 POINTER))
+       '20)
 (ADDTOVAR SYSTEMRECLST
 
 (DATATYPE EXTERNALFORMAT
 ((EOLVALID FLAG)
@@ -121,7 +125,8 @@
                           (FORMATBYTESTREAMFN POINTER)
                           (EF1 POINTER)
                           (EF2 POINTER)
-                          (FORMATBYTESTRINGFN POINTER)))
+                          (FORMATBYTESTRINGFN POINTER)
+                          (FORMATCHARSETFN POINTER)))
 )
 (DEFINEQ
 
@@ -184,7 +189,8 @@
 
 (MAKE-EXTERNALFORMAT

   [LAMBDA (NAME INCCODEFN PEEKCCODEFN BACKCCODEFN OUTCHARFN FORMATBYTESTREAMFN EOL UNSTABLE 
-                FORMATBYTESTRINGFN DEFAULT)
                  (* ; "Edited  3-Jul-2022 00:35 by rmk")


+                FORMATBYTESTRINGFN DEFAULT FORMATCHARSETFN)
  (* ; "Edited  8-Dec-2023 22:02 by rmk")


+                                                             (* ; "Edited  3-Jul-2022 00:35 by rmk")


                                                             (* ; "Edited 10-Sep-2021 19:47 by rmk:")

 
     (* ;; "Compiled creator for EXTERNALFORMAT so that declaration (EXPORTS.ALL) is not needed.  If EOL is not specified, then EOLVALID is also NIL.  Fills in missing functions from DEFAULT if given.  If DEFAULT is T, use *DEFAULT-EXTERNALFORMAT*.")

@@ -224,7 +230,8 @@
                                     EOLVALID _ EOL
                                     EOL _ (OR EOL LF.EOLC)
                                     UNSTABLE _ UNSTABLE
-                                    FORMATBYTESTRINGFN _ FORMATBYTESTRINGFN])
+                                    FORMATBYTESTRINGFN _ FORMATBYTESTRINGFN
+                                    FORMATCHARSETFN _ (OR FORMATCHARSETFN (FUNCTION NILL])
 
 (\EXTERNALFORMAT.DEFPRINT

   [LAMBDA (EXTERNALFORMAT STREAM)
                            (* ; "Edited  2-Jul-2022 11:40 by rmk")


@@ -356,7 +363,8 @@
                   STREAM])
 
 (\BACKCCODE

-  [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL)
                 (* ; "Edited 19-Jul-2022 15:55 by rmk")


+  [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL)
                 (* ; "Edited 12-Jan-2024 10:58 by lmm")


+                                                             (* ; "Edited 19-Jul-2022 15:55 by rmk")


                                                              (* ; "Edited 30-Jun-2022 10:00 by rmk")


                                                             (* ; "Edited 14-Aug-2021 00:26 by rmk:")

 
@@ -372,7 +380,7 @@
                                                 *BYTECOUNTER*))
                        (CL:WHEN CODE
                            (OR (FIXP CODE)
-                               (CLFUNCALL (ffetch
 (STREAM PEEKCCODEFN) of
 STREAM)
+                               (CL:FUNCALL (ffetch
 (STREAM PEEKCCODEFN) of
 STREAM)
                                       STREAM)))]
            ELSEIF
 (SETQ CODE (CL:FUNCALL (ffetch
 (STREAM BACKCCODEFN) of
 STREAM)
                                     STREAM))
@@ -519,9 +527,11 @@
                        FSTRING])
 
 (\CHECKEOLC.CRLF

-  [LAMBDA (STREAM PEEKBINFLG COUNTP)
                    (* ; "Edited  6-Aug-2021 23:30 by rmk:")

+  [LAMBDA (STREAM PEEKBINFLG COUNTP EOLC)
                    (* ; "Edited  6-Dec-2023 23:39 by rmk")


+                                                             (* ; "Edited 17-Oct-2023 11:56 by rmk")


+                                                            (* ; "Edited  6-Aug-2021 23:30 by rmk:")

 
-    (* ;; "This is called only when a CR has been read and EOLC is either any or CRLF. This returns EOL if the next code is an LF")

+    (* ;; "This is called only when a CR has been read and EOLC is either ANY or CRLF. This returns EOL if the next code is an LF")

 
     (* ;; "If COUNTP, that sets *BYTECOUNTER* freely with the number of LF bytes.")

 
@@ -530,8 +540,7 @@
          [SETQ CH (COND
                      [PEEKBINFLG 
 
-                            (* ;; 
-
                          "T from PEEKC.  In this case, must leave the fileptr where it was.")

+                            (* ;; "T from PEEKC.  In this case, must leave the fileptr where it was.")

 
                             (* ;; "The CR itself hasn't been read, just peeked.  So here we have to read it, then peek at the next character to see if it is an LF, and then back out the CR")

 
@@ -545,17 +554,20 @@
                                         (PROG1 (\PEEKCCODE
 STREAM T 'NOEOLC)
 
                                             (* ;; 
-
                          "This has to be a call to \PEEKCODE that doesn't itself to the checkeolc")

+
                            "This has to be a call to \PEEKCODE that doesn't itself to the checkeolc")

 
                                             (* ;; 
-
          "LF must be the next char after the CR.  We back up over the CR that \INCCODE just read.")

+
            "LF must be the next char after the CR.  We back up over the CR that \INCCODE just read.")

 
                                             (\BACKCCODE
 STREAM)))]
 
                                 (* ;; "Got the CRLF, it's an EOL")

 
                                 (CHARCODE EOL))
-                               (T (CHARCODE CR]
+                               (T (SELECTC EOLC
+                                      ((LIST ANY.EOLC 'ANY) 
+                                           (CHARCODE EOL))
+                                      (CHARCODE CR]
                      ((EQ (CHARCODE LF)
                           (\PEEKCCODE
 STREAM T 'NOEOLC))
 
@@ -563,12 +575,15 @@
 
                       (IF
 COUNTP
                           THEN
 (LET (NUMLFBYTES)
-                                        (DECLARE
 (SPECVARS NUMLFBYTES))
-                                        (\INCCODE
 STREAM 'NUMLFBYTES 0)
-                                        (ADD
 *BYTECOUNTER* NUMLFBYTES))
+                                    (DECLARE
 (SPECVARS NUMLFBYTES))
+                                    (\INCCODE
 STREAM 'NUMLFBYTES 0)
+                                    (ADD
 *BYTECOUNTER* NUMLFBYTES))
                         ELSE
 (\INCCODE
 STREAM))
                       (CHARCODE EOL))
-                     (T (CHARCODE CR]
+                     (T (SELECTC EOLC
+                            ((LIST ANY.EOLC 'ANY) 
+                                 (CHARCODE EOL))
+                            (CHARCODE CR]
          CH])
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY 
@@ -581,10 +596,10 @@
                                                (CHARCODE EOL))
                                           (CHARCODE LF)))
                                   (CR (SELECTC (OR EOLC (FFETCH
 (STREAM EOLCONVENTION) OF
 STRM))
-                                          ((LIST CR.EOLC 'ANY) 
+                                          ((LIST CR.EOLC 'CR) 
                                                (CHARCODE EOL))
                                           ((LIST ANY.EOLC CRLF.EOLC 'CRLF 'ANY) 
-                                               (\CHECKEOLC.CRLF
 STRM PEEKBINFLG COUNTP))
+                                               (\CHECKEOLC.CRLF
 STRM PEEKBINFLG COUNTP EOLC))
                                           (CHARCODE CR)))
                                   CH)))
 )
@@ -712,13 +727,13 @@
 (\CREATE.THROUGH.EXTERNALFORMAT
)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6559 13194 (\EXTERNALFORMAT 6569 . 10347) (MAKE-EXTERNALFORMAT 10349 . 12721) (
-\EXTERNALFORMAT.DEFPRINT 12723 . 13192)) (13195 16236 (\INSTALL.EXTERNALFORMAT 13205 . 14654) (
-\REMOVE.EXTERNALFORMAT 14656 . 15487) (FIND-FORMAT 15489 . 16234)) (16237 16649 (SYSTEM-EXTERNALFORMAT
- 16247 . 16647)) (16998 31818 (\OUTCHAR 17008 . 18225) (\INCCODE 18227 . 19380) (\BACKCCODE 19382 . 
-20951) (\BACKCCODE.EOLC 20953 . 23143) (\PEEKCCODE 23145 . 23470) (\PEEKCCODE.EOLC 23472 . 23851) (
-\INCCODE.EOLC 23853 . 25652) (\FORMATBYTESTREAM 25654 . 27789) (\FORMATBYTESTRING 27791 . 29250) (
-\CHECKEOLC.CRLF 29252 . 31816)) (33096 35332 (\NULLDEVICE 33106 . 35008) (\NULL.OPENFILE 35010 . 35330
-)) (35472 37299 (\CREATE.THROUGH.EXTERNALFORMAT 35482 . 36268) (\THROUGHIN 36270 . 36690) (
-\THROUGHBACKCCODE 36692 . 36959) (\THROUGHOUTCHARFN 36961 . 37297)))))
+  (FILEMAP (NIL (6735 13568 (\EXTERNALFORMAT 6745 . 10523) (MAKE-EXTERNALFORMAT 10525 . 13095) (
+\EXTERNALFORMAT.DEFPRINT 13097 . 13566)) (13569 16610 (\INSTALL.EXTERNALFORMAT 13579 . 15028) (
+\REMOVE.EXTERNALFORMAT 15030 . 15861) (FIND-FORMAT 15863 . 16608)) (16611 17023 (SYSTEM-EXTERNALFORMAT
+ 16621 . 17021)) (17372 32799 (\OUTCHAR 17382 . 18599) (\INCCODE 18601 . 19754) (\BACKCCODE 19756 . 
+21435) (\BACKCCODE.EOLC 21437 . 23627) (\PEEKCCODE 23629 . 23954) (\PEEKCCODE.EOLC 23956 . 24335) (
+\INCCODE.EOLC 24337 . 26136) (\FORMATBYTESTREAM 26138 . 28273) (\FORMATBYTESTRING 28275 . 29734) (
+\CHECKEOLC.CRLF 29736 . 32797)) (34081 36317 (\NULLDEVICE 34091 . 35993) (\NULL.OPENFILE 35995 . 36315
+)) (36457 38284 (\CREATE.THROUGH.EXTERNALFORMAT 36467 . 37253) (\THROUGHIN 37255 . 37675) (
+\THROUGHBACKCCODE 37677 . 37944) (\THROUGHOUTCHARFN 37946 . 38282)))))
 STOP

sources/FILEIO

@@ -1,18 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "25-Aug-2023 08:47:31" {WMEDLEY}<sources>FILEIO.;119
 162381 
+
(FILECREATED " 8-Dec-2023 15:17:12" {WMEDLEY}<sources>FILEIO.;124
 163555 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \DO.PARAMS.AT.OPEN PUTSTREAMPROP GETSTREAMPROP)
+      :CHANGES-TO (FNS \GENERIC.CHARSET CHARSET ACCESS-CHARSET)
 
-      :PREVIOUS-DATE "11-Oct-2022 11:34:00" {WMEDLEY}<sources>FILEIO.;118)
+      :PREVIOUS-DATE " 7-Dec-2023 23:54:02" {WMEDLEY}<sources>FILEIO.;121)
 
 
-(* ; "
-Copyright (c) 1981-1993, 1999, 2020-2022 by Venue & Xerox Corporation.
-")
-
 (PRETTYCOMPRINT FILEIOCOMS)
 
 (RPAQQ FILEIOCOMS

@@ -2383,37 +2379,36 @@ update the map")

                      STREAM])
 
 (CHARSET

-  [LAMBDA (STREAM NEWVALUE)
                              (* ; "Edited 11-Sep-87 16:22 by bvm:")

+  [LAMBDA (STREAM NEWVALUE DONTMARKFILE)
                     (* ; "Edited  8-Dec-2023 15:04 by rmk")


+                                                             (* ; "Edited 11-Sep-87 16:22 by bvm:")

 
-    (* ;; "Public access to a stream's CHARSET.  If NEWVALUE is given, changes the charset (which for output streams can write a charset shift).  We invoke the stream's device's get/set charset method on the stream, and also invoke the IMCHARSET image operation (which is where file streams get to write a charset shift).")

-
-    (* ;; "If CHARACTERSET is either 255 or T, set the stream so that it's non run-coded, i.e., you read 2 bytes for each character read.")

+    (* ;; "Public access to a stream's CHARSET.  If NEWVALUE is given, changes the charset (which for output streams can write a charset shift, depending on the external format, unless DONTMARKFILE).  ACCESS-CHARSET recurses through  any commonlisp meta-streams, eventually reaches \GENERIC.CHARSET, which then applies the format's FORMATCHARSETFN.  ")

 
     (SETQ STREAM (\GETSTREAM STREAM))
     (COND
-       ((EQ NEWVALUE NSCHARSETSHIFT)                         (* ; "Coerce 255 to T for uniformity")

+       ((EQ NEWVALUE NSCHARSETSHIFT)                         (* ; "Coerce 255 to T for uniformity")

         (SETQ NEWVALUE T))
        ([NOT (OR (EQ NEWVALUE NIL)
                  (EQ NEWVALUE T)
                  (AND (>= NEWVALUE 0)
                       (< NEWVALUE \MAXCHARSET]
         (\ILLEGAL.ARG NEWVALUE)))
-    (LET [(OLDVAL (ACCESS-CHARSET
 STREAM (if
 (EQ NEWVALUE T)
-                                                 then
 NSCHARSETSHIFT
-                                               else
 NEWVALUE]
-                                                             (* ; "First modify the stream's slot")

+    (LET ((OLDVAL (ACCESS-CHARSET
 STREAM (if
 (EQ NEWVALUE T)
+                                             then
 NSCHARSETSHIFT
+                                           else
 NEWVALUE)
+                         DONTMARKFILE)))                     (* ; "First modify the stream's slot")

          (if
 (EQ OLDVAL NSCHARSETSHIFT)
              then
 (SETQ OLDVAL T))
-         (if
 (AND NEWVALUE (NEQ OLDVAL NEWVALUE))
-             then
                                        (* ; 
-
                                          "Now invoke the imageop if anything interesting happened")

-                   (IMAGEOP 'IMCHARSET STREAM STREAM NEWVALUE))
          OLDVAL])
 
 (ACCESS-CHARSET

-  [LAMBDA (STREAM NEWVALUE)
                              (* ; "Edited 11-Sep-87 15:46 by bvm:")

+  [LAMBDA (STREAM NEWVALUE DONTMARKFILE)
                     (* ; "Edited  8-Dec-2023 15:05 by rmk")


+                                                             (* ; "Edited 11-Sep-87 15:46 by bvm:")

+
+    (* ;; "Unless DONTMARKSTREAM, if STREAM is open for output, the external format function may modify the backing file as well as the stream, e.g. put in XCCS shifting bytes.")

+
     (FDEVOP 'CHARSETFN (fetch
 (STREAM DEVICE) of
 STREAM)
-           STREAM NEWVALUE])
+           STREAM NEWVALUE DONTMARKFILE])
 
 (GETEOFPTR

   [LAMBDA (FILE)
                                         (* rmk%: "21-OCT-83 11:19")

@@ -2673,12 +2668,29 @@ update the map")

                                      (\BACKCCODE.EOLC STRM)))])])
 
 (\GENERIC.CHARSET

-  [LAMBDA (STREAM NEWVALUE)
                              (* ; "Edited 11-Sep-87 16:20 by bvm:")

+  [LAMBDA (STREAM NEWVALUE DONTMARKSTREAM)
                   (* ; "Edited  8-Dec-2023 15:17 by rmk")


+                                                             (* ; "Edited 11-Sep-87 16:20 by bvm:")

 
-(* ;;; "sets or returns the current numeric character set for this stream.  This never writes anything on a stream, it just tells the stream what to think.")

+(* ;;; "sets or returns the current numeric character set for this stream.  This applies the stream's FORMATCHARSETFN if it has one, and (if MARKSTREAM) that may change an output backing stream in some way (e.g. write XCCS charset shift bytes).  Otherwise, this just sets the charset stream parameter to influence subsequent reading and writing behavior.  Charset doesn't exist in some formats (e.g. UTF-8), the format function would be a noop in that case.")

 
-    (PROG1 (ffetch
 (STREAM CHARSET) of
 (\DTEST STREAM 'STREAM))
-        (AND NEWVALUE (freplace
 (STREAM CHARSET) of
 STREAM with
 NEWVALUE)))])
+    (\DTEST STREAM 'STREAM)
+    (LET ((EFORMAT (ffetch
 (STREAM EXTERNALFORMAT) of
 STREAM))
+          OLDVALUE)
+         (if
 (AND EFORMAT (fetch
 (EXTERNALFORMAT FORMATCHARSETFN) of
 EFORMAT))
+             then
 (APPLY* (fetch
 (EXTERNALFORMAT FORMATCHARSETFN) of
 EFORMAT)
+                         STREAM NEWVALUE DONTMARKSTREAM)
+           else
 (SETQ OLDVALUE (ffetch
 (STREAM CHARSET) of
 STREAM))
+                (CL:WHEN NEWVALUE
+                    (freplace
 (STREAM CHARSET) of
 STREAM with
 NEWVALUE)
+                    (CL:UNLESS (OR DONTMARKSTREAM (EQ NEWVALUE OLDVALUE)
+                                   (NOT (\IOMODEP STREAM 'OUTPUT T)))
+                        (\BOUT
 STREAM NSCHARSETSHIFT)
+                        (if
 (OR (EQ CHARSET T)
+                                (EQ CHARSET NSCHARSETSHIFT))
+                            then
 (\BOUT
 STREAM NSCHARSETSHIFT)
+                                 (\BOUT
 STREAM 0)
+                          else
 (\BOUT
 STREAM CHARSET))))
+                OLDVALUE])
 )
 (DEFINEQ
 
@@ -2717,11 +2729,12 @@ update the map")

                                          (T PATHNAME?))))
 )
 
-(DEFOPTIMIZER ACCESS-CHARSET
 (STREAM &OPTIONAL NEWVALUE)
+(DEFOPTIMIZER ACCESS-CHARSET
 (STREAM &OPTIONAL NEWVALUE MARKSTREAM)
                              `((OPENLAMBDA (STRM)
                                  (FDEVOP 'CHARSETFN (fetch
 (STREAM DEVICE) of
 STRM)
                                         STRM
-                                        ,NEWVALUE))
+                                        ,NEWVALUE
+                                        ,MARKSTREAM))
                                ,STREAM))
 
 (* "END EXPORTED DEFINITIONS")
@@ -3101,42 +3114,40 @@ update the map")

 
 (ADDTOVAR LAMA
 \IS.NOT.RANDACCESSP \ILLEGAL.DEVICEOP STREAMPROP)
 )
-(PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 
-1990 1991 1992 1993 1999 2020 2021 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (27821 31937 (STREAMPROP 27831 . 28265) (GETSTREAMPROP 28267 . 29016) (PUTSTREAMPROP 
-29018 . 31785) (STREAMP 31787 . 31935)) (31980 35359 (\DEFPRINT.BY.NAME 31990 . 33142) (
-\STREAM.DEFPRINT 33144 . 35052) (\FDEV.DEFPRINT 35054 . 35357)) (35617 40658 (\GETACCESS 35627 . 36081
-) (\SETACCESS 36083 . 40656)) (60884 66853 (\DEFINEDEVICE 60894 . 63210) (\GETDEVICEFROMNAME 63212 . 
-63685) (\GETDEVICEFROMHOSTNAME 63687 . 64731) (\REMOVEDEVICE 64733 . 65856) (\REMOVEDEVICE.NAMES 65858
- . 66851)) (66893 92425 (\CLOSEFILE 66903 . 67728) (\DELETEFILE 67730 . 68024) (\DEVICEEVENT 68026 . 
-69796) (\GENERATEFILES 69798 . 70745) (\GENERATENEXTFILE 70747 . 71398) (\GENERATEFILEINFO 71400 . 
-71861) (\GETFILENAME 71863 . 72252) (\GENERIC.OUTFILEP 72254 . 72724) (\OPENFILE 72726 . 75304) (
-\DO.PARAMS.AT.OPEN 75306 . 77835) (\RENAMEFILE 77837 . 78261) (\REVALIDATEFILE 78263 . 80865) (
-\PAGED.REVALIDATEFILELST 80867 . 82425) (\PAGED.REVALIDATEFILES 82427 . 84146) (\PAGED.REVALIDATEFILE 
-84148 . 86431) (\BUFFERED.REVALIDATEFILE 86433 . 88719) (\BUFFERED.REVALIDATEFILELST 88721 . 89905) (
-\PRINT-REVALIDATION-RESULT 89907 . 90749) (\TRUNCATEFILE 90751 . 91142) (\FILE-CONFLICT 91144 . 92423)
-) (92461 97124 (\GENERATENOFILES 92471 . 94567) (\NULLFILEGENERATOR 94569 . 94813) (\NOFILESNEXTFILEFN
- 94815 . 96806) (\NOFILESINFOFN 96808 . 97122)) (97243 99151 (\FILE.NOT.OPEN 97253 . 97766) (
-\FILE.WONT.OPEN 97768 . 98096) (\ILLEGAL.DEVICEOP 98098 . 98380) (\IS.NOT.RANDACCESSP 98382 . 98828) (
-\STREAM.NOT.OPEN 98830 . 99149)) (99286 101584 (\FDEVINSTANCE 99296 . 101582)) (102786 110160 (CNDIR 
-102796 . 104101) (DIRECTORYNAME 104103 . 108286) (DIRECTORYNAMEP 108288 . 108904) (HOSTNAMEP 108906 . 
-109713) (\ADD.CONNECTED.DIR 109715 . 110158)) (110205 138478 (\BACKFILEPTR 110215 . 110403) (
-\BACKPEEKBIN 110405 . 110766) (\BACKBIN 110768 . 111119) (BIN 111121 . 111338) (\BIN 111340 . 111617) 
-(\BINS 111619 . 111905) (BOUT 111907 . 112269) (\BOUT 112271 . 112586) (\BOUTS 112588 . 112899) (
-COPYBYTES 112901 . 116233) (COPYCHARS 116235 . 119901) (COPYFILE 119903 . 120967) (\COPYOPENFILE 
-120969 . 124168) (\INFER.FILE.TYPE 124170 . 125124) (EOFP 125126 . 125423) (FORCEOUTPUT 125425 . 
-125672) (\FLUSH.OPEN.STREAMS 125674 . 126030) (CHARSET 126032 . 127696) (ACCESS-CHARSET 127698 . 
-127915) (GETEOFPTR 127917 . 128167) (GETFILEINFO 128169 . 131362) (\TYPE.FROM.FILETYPE 131364 . 131834
-) (\FILETYPE.FROM.TYPE 131836 . 132015) (GETFILEPTR 132017 . 132269) (SETFILEINFO 132271 . 136377) (
-SETFILEPTR 136379 . 138098) (BOUT16 138100 . 138285) (BIN16 138287 . 138476)) (138581 143897 (
-\GENERIC.BINS 138591 . 138871) (\GENERIC.BOUTS 138873 . 139138) (\GENERIC.RENAMEFILE 139140 . 140971) 
-(\GENERIC.OPENP 140973 . 142288) (\GENERIC.READP 142290 . 143442) (\GENERIC.CHARSET 143444 . 143895)) 
-(143898 144237 (\MAP-OPEN-STREAMS 143908 . 144235)) (146029 148109 (\EOF.ACTION 146039 . 146290) (
-\EOSERROR 146292 . 146485) (\GETEOFPTR 146487 . 146669) (\INCFILEPTR 146671 . 147021) (\PEEKBIN 147023
- . 147214) (\SETCLOSEDFILELENGTH 147216 . 147550) (\SETEOFPTR 147552 . 147740) (\SETFILEPTR 147742 . 
-148107)) (148110 148652 (\FIXPOUT 148120 . 148420) (\FIXPIN 148422 . 148650)) (148653 149219 (\BOUTEOL
- 148663 . 149217)) (152115 161979 (\BUFFERED.BIN 152125 . 152977) (\BUFFERED.PEEKBIN 152979 . 153761) 
-(\BUFFERED.BOUT 153763 . 154623) (\BUFFERED.BINS 154625 . 158310) (\BUFFERED.BOUTS 158312 . 160113) (
-\BUFFERED.COPYBYTES 160115 . 161977)))))
+  (FILEMAP (NIL (27732 31848 (STREAMPROP 27742 . 28176) (GETSTREAMPROP 28178 . 28927) (PUTSTREAMPROP 
+28929 . 31696) (STREAMP 31698 . 31846)) (31891 35270 (\DEFPRINT.BY.NAME 31901 . 33053) (
+\STREAM.DEFPRINT 33055 . 34963) (\FDEV.DEFPRINT 34965 . 35268)) (35528 40569 (\GETACCESS 35538 . 35992
+) (\SETACCESS 35994 . 40567)) (60795 66764 (\DEFINEDEVICE 60805 . 63121) (\GETDEVICEFROMNAME 63123 . 
+63596) (\GETDEVICEFROMHOSTNAME 63598 . 64642) (\REMOVEDEVICE 64644 . 65767) (\REMOVEDEVICE.NAMES 65769
+ . 66762)) (66804 92336 (\CLOSEFILE 66814 . 67639) (\DELETEFILE 67641 . 67935) (\DEVICEEVENT 67937 . 
+69707) (\GENERATEFILES 69709 . 70656) (\GENERATENEXTFILE 70658 . 71309) (\GENERATEFILEINFO 71311 . 
+71772) (\GETFILENAME 71774 . 72163) (\GENERIC.OUTFILEP 72165 . 72635) (\OPENFILE 72637 . 75215) (
+\DO.PARAMS.AT.OPEN 75217 . 77746) (\RENAMEFILE 77748 . 78172) (\REVALIDATEFILE 78174 . 80776) (
+\PAGED.REVALIDATEFILELST 80778 . 82336) (\PAGED.REVALIDATEFILES 82338 . 84057) (\PAGED.REVALIDATEFILE 
+84059 . 86342) (\BUFFERED.REVALIDATEFILE 86344 . 88630) (\BUFFERED.REVALIDATEFILELST 88632 . 89816) (
+\PRINT-REVALIDATION-RESULT 89818 . 90660) (\TRUNCATEFILE 90662 . 91053) (\FILE-CONFLICT 91055 . 92334)
+) (92372 97035 (\GENERATENOFILES 92382 . 94478) (\NULLFILEGENERATOR 94480 . 94724) (\NOFILESNEXTFILEFN
+ 94726 . 96717) (\NOFILESINFOFN 96719 . 97033)) (97154 99062 (\FILE.NOT.OPEN 97164 . 97677) (
+\FILE.WONT.OPEN 97679 . 98007) (\ILLEGAL.DEVICEOP 98009 . 98291) (\IS.NOT.RANDACCESSP 98293 . 98739) (
+\STREAM.NOT.OPEN 98741 . 99060)) (99197 101495 (\FDEVINSTANCE 99207 . 101493)) (102697 110071 (CNDIR 
+102707 . 104012) (DIRECTORYNAME 104014 . 108197) (DIRECTORYNAMEP 108199 . 108815) (HOSTNAMEP 108817 . 
+109624) (\ADD.CONNECTED.DIR 109626 . 110069)) (110116 138395 (\BACKFILEPTR 110126 . 110314) (
+\BACKPEEKBIN 110316 . 110677) (\BACKBIN 110679 . 111030) (BIN 111032 . 111249) (\BIN 111251 . 111528) 
+(\BINS 111530 . 111816) (BOUT 111818 . 112180) (\BOUT 112182 . 112497) (\BOUTS 112499 . 112810) (
+COPYBYTES 112812 . 116144) (COPYCHARS 116146 . 119812) (COPYFILE 119814 . 120878) (\COPYOPENFILE 
+120880 . 124079) (\INFER.FILE.TYPE 124081 . 125035) (EOFP 125037 . 125334) (FORCEOUTPUT 125336 . 
+125583) (\FLUSH.OPEN.STREAMS 125585 . 125941) (CHARSET 125943 . 127302) (ACCESS-CHARSET 127304 . 
+127832) (GETEOFPTR 127834 . 128084) (GETFILEINFO 128086 . 131279) (\TYPE.FROM.FILETYPE 131281 . 131751
+) (\FILETYPE.FROM.TYPE 131753 . 131932) (GETFILEPTR 131934 . 132186) (SETFILEINFO 132188 . 136294) (
+SETFILEPTR 136296 . 138015) (BOUT16 138017 . 138202) (BIN16 138204 . 138393)) (138498 145152 (
+\GENERIC.BINS 138508 . 138788) (\GENERIC.BOUTS 138790 . 139055) (\GENERIC.RENAMEFILE 139057 . 140888) 
+(\GENERIC.OPENP 140890 . 142205) (\GENERIC.READP 142207 . 143359) (\GENERIC.CHARSET 143361 . 145150)) 
+(145153 145492 (\MAP-OPEN-STREAMS 145163 . 145490)) (147347 149427 (\EOF.ACTION 147357 . 147608) (
+\EOSERROR 147610 . 147803) (\GETEOFPTR 147805 . 147987) (\INCFILEPTR 147989 . 148339) (\PEEKBIN 148341
+ . 148532) (\SETCLOSEDFILELENGTH 148534 . 148868) (\SETEOFPTR 148870 . 149058) (\SETFILEPTR 149060 . 
+149425)) (149428 149970 (\FIXPOUT 149438 . 149738) (\FIXPIN 149740 . 149968)) (149971 150537 (\BOUTEOL
+ 149981 . 150535)) (153433 163297 (\BUFFERED.BIN 153443 . 154295) (\BUFFERED.PEEKBIN 154297 . 155079) 
+(\BUFFERED.BOUT 155081 . 155941) (\BUFFERED.BINS 155943 . 159628) (\BUFFERED.BOUTS 159630 . 161431) (
+\BUFFERED.COPYBYTES 161433 . 163295)))))
 STOP

sources/FILEPKG

@@ -1,18 +1,15 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "18-Jul-2023 23:40:13" {WMEDLEY}<sources>FILEPKG.;50
 274539 
+
(FILECREATED "18-Apr-2024 12:53:26" {DSK}<home>larry>il>medley>sources>FILEPKG.;53
 273166 
 
-      :EDIT-BY rmk
+      :EDIT-BY "lmm"
 
-      :CHANGES-TO (FNS GATHEREXPORTS)
+      :CHANGES-TO (VARS FILEPKGCOMS)
+                  (FNS MAKEFILE)
 
-      :PREVIOUS-DATE "13-Jul-2023 14:56:21" {WMEDLEY}<sources>FILEPKG.;48)
+      :PREVIOUS-DATE "18-Apr-2024 12:33:38" {DSK}<home>larry>il>medley>sources>FILEPKG.;52)
 
 
-(* ; "
-Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
-")
-
 (PRETTYCOMPRINT FILEPKGCOMS)
 
 (RPAQQ FILEPKGCOMS

@@ -400,13 +397,13 @@ Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
        (T (COMPILEFILES0
 FILES])
 
 (COMPILEFILES0

-  [LAMBDA (FILES OPTIONS)                                    (* rmk%: "19-FEB-83 21:59")

-    (for
 X OPTS (RCFLG _ T) on
 (OR FILES NOTCOMPILEDFILES) first
 (SETQ OPTS
-                                                                  (SELECTQ (CAR (LISTP OPTIONS))
-                                                                      (C (SETQ RCFLG NIL)
-                                                                         (CDR OPTIONS))
-                                                                      (RC (CDR OPTIONS))
-                                                                      OPTIONS))
+  [LAMBDA (FILES OPTIONS)
                                    (* ; "Edited 30-Jan-2024 15:03 by lmm")

+                                                             (* rmk%: "19-FEB-83 21:59")

+    (for
 X OPTS RCFLG on
 (OR FILES NOTCOMPILEDFILES) first
 (SETQ OPTS (SELECTQ (CAR (LISTP OPTIONS))
+                                                                          (C (SETQ RCFLG NIL)
+                                                                             (CDR OPTIONS))
+                                                                          (RC (CDR OPTIONS))
+                                                                          OPTIONS))
        do
 (MAKEFILE1
 (OR (MISSPELLED? (CAR X)
                                 70 FILELST NIL X)
                          (CAR X))
@@ -437,7 +434,8 @@ Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
           (RETURN FILE])
 
 (MAKEFILE

-  [LAMBDA (FILE OPTIONS REPRINTFNS SOURCEFILE)
              (* ; "Edited 10-Oct-2021 20:36 by rmk:")


+  [LAMBDA (FILE OPTIONS REPRINTFNS SOURCEFILE)
               (* ; "Edited 30-Jan-2024 12:50 by lmm")


+                                                            (* ; "Edited 10-Oct-2021 20:36 by rmk:")


                                                             (* ; "Edited 29-Jun-2021 17:24 by rmk:")

 
     (* ;; "OPTIONS: FAST means dump with PRETTYFLG set to NIL;  LIST means list the FILE;  RC means RECOMPILE, C means COMPILEL;  --- for C AND RC assume ST unless next option is F.")

@@ -462,35 +460,14 @@ Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
           (SETQ CHANGES (fetch
 TOBEDUMPED of
 FILEPROP))
           (SETQ FILEDATES (LISTP (fetch
 FILEDATES of
 ROOTNAME)))
           (SETQ FILETYPE (GETPROP ROOTNAME 'FILETYPE))
-      LP0 (if
 (AND (NULL (fetch
 LOADTYPE of
 FILEPROP))
+          (if
 (AND (NULL (fetch
 LOADTYPE of
 FILEPROP))
                    (NULL FILEDATES))
               then
                                           (* ; 
 
                     "File has never been loaded and never dumped i.e. user just set up COMS in core")

-            elseif
 [OR (EQMEMB 'NEW OPTIONS)
+            elseif
 [OR (MEMB 'NEW OPTIONS)
                        (AND (NULL MAKEFILEREMAKEFLG)
                             (NOT (MEMB 'REMAKE OPTIONS]
-              then
 (COND
-                      ((AND (fetch
 LOADTYPE of
 FILEPROP)
-                            (NEQ T (fetch
 LOADTYPE of
 FILEPROP)))
-                       (LISPXPRIN2 FILE T T)
-                       (LISPXPRIN1 (SELECTQ (fetch
 LOADTYPE of
 FILEPROP)
-                                       (LOADCOMP "the file was loaded for compilation purposes only")
-                                       ((compiled Compiled COMPILED) 
-                                            " -- only the compiled file has been loaded
-")
-                                       ((loadfns LOADFNS) 
-                                            " -- only some of its symbolics have been loaded
-")
-                                       (SHOULDNT))
-                              T)
-                       (COND
-                          ((NEQ (ASKUSER DWIMWAIT 'Y "Go ahead and MAKEFILE anyway? ")
-                                'Y)                          (* ; 
-
              "E.g. user loads a .com file and then resets the COMS or defines the functons by hand.")

-                           (GO OUT)))
-                       (/replace
 LOADTYPE of
 FILEPROP with
 NIL)))
-                   (SETQ SOURCEFILE NIL)
-                   (SETQ REPRINTFNS NIL)
+              then
 (RETURN (MAKEFILE-NEW
 FILE OPTIONS))
             elseif
 SOURCEFILE
               then
                                           (* ; "source file given")

             elseif
 [AND FILEDATES (OR [AND (SETQ SOURCEFILE (FINDFILE ROOTNAME T))
@@ -519,11 +496,7 @@ Copyright (c) 1982-1993, 1995, 2018, 2022 by Venue & Xerox Corporation.
                  (LISPXPRIN2 FILE T T)
                  (LISPXPRIN1 '", so it will have to be written anew
 " T)
-                 (SETQ SOURCEFILE NIL)
-                 (SETQ REPRINTFNS NIL)
-                 (push
 OPTIONS 'NEW)
-                 (SETQ CHANGES (fetch
 FILECHANGES of
 ROOTNAME))
-                 (GO LP0))
+                 (RETURN (MAKEFILE-NEW
 FILE OPTIONS)))
           (COND
              ((AND SOURCEFILE (SETQ Z (SELECTQ (fetch
 LOADTYPE of
 FILEPROP)
                                           (LOADCOMP          (* ; 
@@ -4858,49 +4831,47 @@ compiling " T)
 
 (ADDTOVAR LAMA
 FILEPKGTYPE FILEPKGCOM FILEPKGCHANGES)
 )
-(PUTPROPS FILEPKG COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990 
-1991 1992 1993 1995 2018 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (18975 20648 (SEARCHPRETTYTYPELST 18985 . 19954) (PRETTYDEFMACROS 19956 . 20392) (
-FILEPKGCOMPROPS 20394 . 20646)) (21461 55753 (CLEANUP 21471 . 22861) (COMPILEFILES 22863 . 23139) (
-COMPILEFILES0 23141 . 23954) (CONTINUEDIT 23956 . 25333) (MAKEFILE 25335 . 37061) (FILECHANGES 37063
- . 39827) (FILEPKG.MERGECHANGES 39829 . 40464) (FILEPKG.CHANGEDFNS 40466 . 40778) (MAKEFILE1 40780 . 
-44992) (COMPILE-FILE? 44994 . 46581) (MAKEFILES 46583 . 48111) (ADDFILE 48113 . 50656) (ADDFILE0 50658
- . 54782) (LISTFILES 54784 . 55751)) (56425 90011 (FILEPKGCHANGES 56435 . 57614) (GETFILEPKGTYPE 57616
- . 60566) (MARKASCHANGED 60568 . 62199) (FILECOMS 62201 . 62585) (WHEREIS 62587 . 64116) (
-SMASHFILECOMS 64118 . 64346) (FILEFNSLST 64348 . 64514) (FILECOMSLST 64516 . 65002) (UPDATEFILES 65004
- . 69502) (INFILECOMS? 69504 . 71347) (INFILECOMTAIL 71349 . 72467) (INFILECOMS 72469 . 72630) (
-INFILECOM 72632 . 82650) (INFILECOMSVALS 82652 . 82959) (INFILECOMSVAL 82961 . 83969) (INFILECOMSPROP 
-83971 . 84764) (IFCPROPS 84766 . 85846) (IFCEXPRTYPE 85848 . 86464) (IFCPROPSCAN 86466 . 87427) (
-IFCDECLARE 87429 . 88688) (INFILEPAIRS 88690 . 88989) (INFILECOMSMACRO 88991 . 90009)) (90046 120732 (
-FILES? 90056 . 92167) (FILES?1 92169 . 92871) (FILES?PRINTLST 92873 . 93655) (ADDTOFILES? 93657 . 
-104200) (ADDTOFILE 104202 . 105118) (WHATIS 105120 . 107096) (ADDTOCOMS 107098 . 108636) (ADDTOCOM 
-108638 . 115125) (ADDTOCOM1 115127 . 116298) (ADDNEWCOM 116300 . 117350) (MAKENEWCOM 117352 . 119199) 
-(DEFAULTMAKENEWCOM 119201 . 120730)) (120802 123619 (MERGEINSERT 120812 . 123155) (MERGEINSERT1 123157
- . 123617)) (123773 125134 (ADDTOFILEKEYLST 123783 . 125132)) (125251 136052 (DELFROMFILES 125261 . 
-126091) (DELFROMCOMS 126093 . 127772) (DELFROMCOM 127774 . 133539) (DELFROMCOM1 133541 . 134340) (
-REMOVEITEM 134342 . 135218) (MOVETOFILE 135220 . 136050)) (136266 138637 (SAVEPUT 136276 . 138635)) (
-138762 147005 (UNMARKASCHANGED 138772 . 140256) (PREEDITFN 140258 . 142739) (POSTEDITPROPS 142741 . 
-145035) (POSTEDITALISTS 145037 . 147003)) (147150 166620 (ALISTS.GETDEF 147160 . 147539) (
-ALISTS.WHENCHANGED 147541 . 148187) (CLEARCLISPARRAY 148189 . 149367) (EXPRESSIONS.WHENCHANGED 149369
- . 149747) (MAKEALISTCOMS 149749 . 150764) (MAKEFILESCOMS 150766 . 152096) (MAKELISPXMACROSCOMS 152098
- . 154116) (MAKEPROPSCOMS 154118 . 154744) (MAKEUSERMACROSCOMS 154746 . 156563) (PROPS.WHENCHANGED 
-156565 . 157186) (FILEGETDEF.LISPXMACROS 157188 . 158487) (FILEGETDEF.ALISTS 158489 . 159080) (
-FILEGETDEF.RECORDS 159082 . 160009) (FILEGETDEF.PROPS 160011 . 160806) (FILEGETDEF.MACROS 160808 . 
-161690) (FILEGETDEF.VARS 161692 . 162295) (FILEGETDEF.FNS 162297 . 163537) (FILEPKGCOMS.PUTDEF 163539
- . 165481) (FILES.PUTDEF 165483 . 166351) (VARS.PUTDEF 166353 . 166496) (FILES.WHENCHANGED 166498 . 
-166618)) (168642 175873 (RENAME 168652 . 170097) (CHANGECALLERS 170099 . 175871)) (175874 223783 (
-SHOWDEF 175884 . 177081) (COPYDEF 177083 . 179831) (GETDEF 179833 . 182376) (GETDEFCOM 182378 . 183344
-) (GETDEFCOM0 183346 . 184539) (GETDEFCURRENT 184541 . 190853) (GETDEFERR 190855 . 192125) (
-GETDEFFROMFILE 192127 . 196356) (GETDEFSAVED 196358 . 197446) (PUTDEF 197448 . 198155) (EDITDEF 198157
- . 199140) (DEFAULT.EDITDEF 199142 . 201980) (EDITDEF.FILES 201982 . 202187) (LOADDEF 202189 . 202365)
- (DWIMDEF 202367 . 203221) (DELDEF 203223 . 206117) (DELFROMLIST 206119 . 206623) (HASDEF 206625 . 
-212862) (GETFILEDEF 212864 . 213376) (SAVEDEF 213378 . 215066) (UNSAVEDEF 215068 . 215964) (
-COMPAREDEFS 215966 . 219772) (COMPARE 219774 . 220478) (TYPESOF 220480 . 223781)) (223933 232181 (
-FILEPKGCOM 223943 . 228719) (FILEPKGTYPE 228721 . 232179)) (244214 261689 (FINDCALLERS 244224 . 244854
-) (EDITCALLERS 244856 . 255573) (EDITFROMFILE 255575 . 261004) (FINDATS 261006 . 261278) (LOOKIN 
-261280 . 261687)) (261690 263361 (SEPRCASE 261700 . 263359)) (263878 268881 (IMPORTFILE 263888 . 
-264858) (IMPORTEVAL 264860 . 265746) (IMPORTFILESCAN 265748 . 266161) (CHECKIMPORTS 266163 . 267419) (
-GATHEREXPORTS 267421 . 268289) (\DUMPEXPORTS 268291 . 268879)) (269219 271289 (CLEARFILEPKG 269229 . 
-271287)))))
+  (FILEMAP (NIL (18960 20633 (SEARCHPRETTYTYPELST 18970 . 19939) (PRETTYDEFMACROS 19941 . 20377) (
+FILEPKGCOMPROPS 20379 . 20631)) (21446 54515 (CLEANUP 21456 . 22846) (COMPILEFILES 22848 . 23124) (
+COMPILEFILES0 23126 . 23992) (CONTINUEDIT 23994 . 25371) (MAKEFILE 25373 . 35823) (FILECHANGES 35825
+ . 38589) (FILEPKG.MERGECHANGES 38591 . 39226) (FILEPKG.CHANGEDFNS 39228 . 39540) (MAKEFILE1 39542 . 
+43754) (COMPILE-FILE? 43756 . 45343) (MAKEFILES 45345 . 46873) (ADDFILE 46875 . 49418) (ADDFILE0 49420
+ . 53544) (LISTFILES 53546 . 54513)) (55187 88773 (FILEPKGCHANGES 55197 . 56376) (GETFILEPKGTYPE 56378
+ . 59328) (MARKASCHANGED 59330 . 60961) (FILECOMS 60963 . 61347) (WHEREIS 61349 . 62878) (
+SMASHFILECOMS 62880 . 63108) (FILEFNSLST 63110 . 63276) (FILECOMSLST 63278 . 63764) (UPDATEFILES 63766
+ . 68264) (INFILECOMS? 68266 . 70109) (INFILECOMTAIL 70111 . 71229) (INFILECOMS 71231 . 71392) (
+INFILECOM 71394 . 81412) (INFILECOMSVALS 81414 . 81721) (INFILECOMSVAL 81723 . 82731) (INFILECOMSPROP 
+82733 . 83526) (IFCPROPS 83528 . 84608) (IFCEXPRTYPE 84610 . 85226) (IFCPROPSCAN 85228 . 86189) (
+IFCDECLARE 86191 . 87450) (INFILEPAIRS 87452 . 87751) (INFILECOMSMACRO 87753 . 88771)) (88808 119494 (
+FILES? 88818 . 90929) (FILES?1 90931 . 91633) (FILES?PRINTLST 91635 . 92417) (ADDTOFILES? 92419 . 
+102962) (ADDTOFILE 102964 . 103880) (WHATIS 103882 . 105858) (ADDTOCOMS 105860 . 107398) (ADDTOCOM 
+107400 . 113887) (ADDTOCOM1 113889 . 115060) (ADDNEWCOM 115062 . 116112) (MAKENEWCOM 116114 . 117961) 
+(DEFAULTMAKENEWCOM 117963 . 119492)) (119564 122381 (MERGEINSERT 119574 . 121917) (MERGEINSERT1 121919
+ . 122379)) (122535 123896 (ADDTOFILEKEYLST 122545 . 123894)) (124013 134814 (DELFROMFILES 124023 . 
+124853) (DELFROMCOMS 124855 . 126534) (DELFROMCOM 126536 . 132301) (DELFROMCOM1 132303 . 133102) (
+REMOVEITEM 133104 . 133980) (MOVETOFILE 133982 . 134812)) (135028 137399 (SAVEPUT 135038 . 137397)) (
+137524 145767 (UNMARKASCHANGED 137534 . 139018) (PREEDITFN 139020 . 141501) (POSTEDITPROPS 141503 . 
+143797) (POSTEDITALISTS 143799 . 145765)) (145912 165382 (ALISTS.GETDEF 145922 . 146301) (
+ALISTS.WHENCHANGED 146303 . 146949) (CLEARCLISPARRAY 146951 . 148129) (EXPRESSIONS.WHENCHANGED 148131
+ . 148509) (MAKEALISTCOMS 148511 . 149526) (MAKEFILESCOMS 149528 . 150858) (MAKELISPXMACROSCOMS 150860
+ . 152878) (MAKEPROPSCOMS 152880 . 153506) (MAKEUSERMACROSCOMS 153508 . 155325) (PROPS.WHENCHANGED 
+155327 . 155948) (FILEGETDEF.LISPXMACROS 155950 . 157249) (FILEGETDEF.ALISTS 157251 . 157842) (
+FILEGETDEF.RECORDS 157844 . 158771) (FILEGETDEF.PROPS 158773 . 159568) (FILEGETDEF.MACROS 159570 . 
+160452) (FILEGETDEF.VARS 160454 . 161057) (FILEGETDEF.FNS 161059 . 162299) (FILEPKGCOMS.PUTDEF 162301
+ . 164243) (FILES.PUTDEF 164245 . 165113) (VARS.PUTDEF 165115 . 165258) (FILES.WHENCHANGED 165260 . 
+165380)) (167404 174635 (RENAME 167414 . 168859) (CHANGECALLERS 168861 . 174633)) (174636 222545 (
+SHOWDEF 174646 . 175843) (COPYDEF 175845 . 178593) (GETDEF 178595 . 181138) (GETDEFCOM 181140 . 182106
+) (GETDEFCOM0 182108 . 183301) (GETDEFCURRENT 183303 . 189615) (GETDEFERR 189617 . 190887) (
+GETDEFFROMFILE 190889 . 195118) (GETDEFSAVED 195120 . 196208) (PUTDEF 196210 . 196917) (EDITDEF 196919
+ . 197902) (DEFAULT.EDITDEF 197904 . 200742) (EDITDEF.FILES 200744 . 200949) (LOADDEF 200951 . 201127)
+ (DWIMDEF 201129 . 201983) (DELDEF 201985 . 204879) (DELFROMLIST 204881 . 205385) (HASDEF 205387 . 
+211624) (GETFILEDEF 211626 . 212138) (SAVEDEF 212140 . 213828) (UNSAVEDEF 213830 . 214726) (
+COMPAREDEFS 214728 . 218534) (COMPARE 218536 . 219240) (TYPESOF 219242 . 222543)) (222695 230943 (
+FILEPKGCOM 222705 . 227481) (FILEPKGTYPE 227483 . 230941)) (242976 260451 (FINDCALLERS 242986 . 243616
+) (EDITCALLERS 243618 . 254335) (EDITFROMFILE 254337 . 259766) (FINDATS 259768 . 260040) (LOOKIN 
+260042 . 260449)) (260452 262123 (SEPRCASE 260462 . 262121)) (262640 267643 (IMPORTFILE 262650 . 
+263620) (IMPORTEVAL 263622 . 264508) (IMPORTFILESCAN 264510 . 264923) (CHECKIMPORTS 264925 . 266181) (
+GATHEREXPORTS 266183 . 267051) (\DUMPEXPORTS 267053 . 267641)) (267981 270051 (CLEARFILEPKG 267991 . 
+270049)))))
 STOP

sources/IMAGEIO

@@ -1,16 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "30-Oct-2021 19:09:48" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>IMAGEIO.;7
 80279  
+
(FILECREATED " 8-Dec-2023 21:42:20" {WMEDLEY}<sources>IMAGEIO.;8
 79284  
 
-      changes to%:  (FNS \NOIMAGE.DSPFONT)
+      :EDIT-BY rmk
 
-      previous date%: "25-Sep-2021 20:58:07" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>IMAGEIO.;5)
+      :CHANGES-TO (FNS \IMAGEIOINIT)
+                  (RECORDS IMAGEOPS)
 
+      :PREVIOUS-DATE "30-Oct-2021 19:09:48" {WMEDLEY}<sources>IMAGEIO.;7)
 
-(* ; "
-Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT IMAGEIOCOMS)
 
@@ -701,9 +699,10 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
 (DEFINEQ
 
 (\IMAGEIOINIT

-  [LAMBDA NIL
                                            (* rrb "17-Sep-86 15:09")

-    (DECLARE
 (GLOBALVARS \NOIMAGEOPS))                   (* ; 
-
              "most of the functions are filled with NILL from the record declaration for IMAGEOPS")

+  [LAMBDA NIL
                                                (* ; "Edited  8-Dec-2023 21:38 by rmk")

+                                                             (* rrb "17-Sep-86 15:09")

+    (DECLARE
 (GLOBALVARS \NOIMAGEOPS))                       (* ; 
+
                "most of the functions are filled with NILL from the record declaration for IMAGEOPS")

     (SETQ \NOIMAGEOPS (create
 IMAGEOPS
                              IMAGETYPE _ NIL
                              IMXPOSITION _ [FUNCTION (LAMBDA (STREAM POS)
@@ -719,8 +718,8 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
                                                                    (DIFFERENCE \#DISPLAYLINES 
                                                                           \CURRENTDISPLAYLINE))
                                                            [COND
-                                                              (N (\UNIMPIMAGEOP
 STREAM
-                                                                        'DSPYPOSITION])]
+                                                              (N (\UNIMPIMAGEOP
 STREAM 'DSPYPOSITION])
+                                                       ]
                              IMFONT _ (FUNCTION \NOIMAGE.DSPFONT)
                              IMLEFTMARGIN _ (FUNCTION ZERO)
                              IMRIGHTMARGIN _ [FUNCTION (LAMBDA (STREAM N)
@@ -739,18 +738,6 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
                              IMSTRINGWIDTH _ [FUNCTION (LAMBDA (STREAM STR RDTBL)
                                                          (NCHARS STR RDTBL RDTBL]
                              IMCHARWIDTH _ [FUNCTION (LAMBDA NIL 1]
-                             IMCHARSET _ [FUNCTION (LAMBDA (STREAM CHARSET)
-
-                                 (* ;; "If we had another illegal character set value, then we could simply fix it so that the character set didn't match anything, which would cause the character set shift to be put out on the next character")

-
-                                                     (COND
-                                                        ((\IOMODEP STREAM 'OUTPUT T)
-                                                         (\BOUT STREAM NSCHARSETSHIFT)
-                                                         (COND
-                                                            ((EQ CHARSET T)
-                                                             (\BOUT STREAM NSCHARSETSHIFT)
-                                                             (\BOUT STREAM 0))
-                                                            (T (\BOUT STREAM CHARSET]
                              IMDRAWPOLYGON _ (FUNCTION NILL)
                              IMDRAWPOINT _ (FUNCTION NILL])
 
@@ -948,8 +935,9 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
                  IMNEWPAGE IMMOVETO IMSCALE IMTERPRI IMTOPMARGIN IMBOTTOMMARGIN IMSPACEFACTOR 
                  IMFONTCREATE IMOPERATION IMCOLOR IMSTRINGWIDTH IMCHARWIDTH IMCHARWIDTHY IMBACKCOLOR
                  IMBITMAPSIZE IMCLIPPINGREGION IMRESET IMDRAWPOLYGON IMFILLPOLYGON IMSCALEDBITBLT 
-                 IMWRITEPIXEL IMCHARSET IMROTATE IMDRAWARC IMTRANSLATE IMSCALE2 IMPUSHSTATE 
-                 IMPOPSTATE IMDEFAULTSTATE IMDRAWPOINT IMBLTCHAR IMXOFFSET IMYOFFSET)
+                 IMWRITEPIXEL (NIL POINTER                   (* ; "Was IMCHARSET")
)
+                 IMROTATE IMDRAWARC IMTRANSLATE IMSCALE2 IMPUSHSTATE IMPOPSTATE IMDEFAULTSTATE 
+                 IMDRAWPOINT IMBLTCHAR IMXOFFSET IMYOFFSET)
           IMCLOSEFN _ (FUNCTION NILL)
           IMTERPRI _ [FUNCTION (LAMBDA (STREAM)
                                  (\OUTCHAR STREAM (CHARCODE EOL]
@@ -980,7 +968,6 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
                                                            (BITMAPHEIGHT BITMAP))))
                                          (\ILLEGAL.ARG DIMENSION]
           IMWRITEPIXEL _ (FUNCTION NILL)
-          IMCHARSET _ (FUNCTION NILL)
           IMXPOSITION _ (FUNCTION NILL)
           IMYPOSITION _ (FUNCTION NILL)
           IMFONT _ (FUNCTION NILL)
@@ -1143,8 +1130,9 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
                  IMNEWPAGE IMMOVETO IMSCALE IMTERPRI IMTOPMARGIN IMBOTTOMMARGIN IMSPACEFACTOR 
                  IMFONTCREATE IMOPERATION IMCOLOR IMSTRINGWIDTH IMCHARWIDTH IMCHARWIDTHY IMBACKCOLOR
                  IMBITMAPSIZE IMCLIPPINGREGION IMRESET IMDRAWPOLYGON IMFILLPOLYGON IMSCALEDBITBLT 
-                 IMWRITEPIXEL IMCHARSET IMROTATE IMDRAWARC IMTRANSLATE IMSCALE2 IMPUSHSTATE 
-                 IMPOPSTATE IMDEFAULTSTATE IMDRAWPOINT IMBLTCHAR IMXOFFSET IMYOFFSET))
+                 IMWRITEPIXEL (NIL POINTER                   (* ; "Was IMCHARSET")
)
+                 IMROTATE IMDRAWARC IMTRANSLATE IMSCALE2 IMPUSHSTATE IMPOPSTATE IMDEFAULTSTATE 
+                 IMDRAWPOINT IMBLTCHAR IMXOFFSET IMYOFFSET))
 )
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
@@ -1516,27 +1504,25 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
 
 (ADDTOVAR LAMA
 IMAGESTREAMP)
 )
-(PUTPROPS IMAGEIO COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 
-1993 1994 1999 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3343 12100 (IMAGESTREAMP 3353 . 4185) (IMAGESTREAMTYPE 4187 . 4400) (IMAGESTREAMTYPEP 
-4402 . 5037) (OPENIMAGESTREAM 5039 . 9993) (\GOOD.DASHLST 9995 . 12098)) (12135 14432 (DRAWDASHEDLINE 
-12145 . 14430)) (14433 21773 (DSPBACKCOLOR 14443 . 14815) (DSPBOTTOMMARGIN 14817 . 15202) (DSPCOLOR 
-15204 . 15568) (DSPCLIPPINGREGION 15570 . 16275) (DSPRESET 16277 . 16557) (DSPFONT 16559 . 16923) (
-DSPLEFTMARGIN 16925 . 17306) (DSPLINEFEED 17308 . 17608) (DSPOPERATION 17610 . 17987) (DSPRIGHTMARGIN 
-17989 . 18372) (DSPTOPMARGIN 18374 . 18753) (DSPSCALE 18755 . 19122) (DSPSPACEFACTOR 19124 . 19517) (
-DSPXPOSITION 19519 . 19824) (DSPYPOSITION 19826 . 20131) (DSPROTATE 20133 . 20428) (DSPPUSHSTATE 20430
- . 20676) (DSPPOPSTATE 20678 . 20921) (DSPDEFAULTSTATE 20923 . 21175) (DSPSCALE2 21177 . 21468) (
-DSPTRANSLATE 21470 . 21771)) (21774 30575 (DSPNEWPAGE 21784 . 22476) (DRAWBETWEEN 22478 . 23180) (
-DRAWCIRCLE 23182 . 23678) (DRAWARC 23680 . 24197) (DRAWCURVE 24199 . 24876) (DRAWELLIPSE 24878 . 25664
-) (DRAWLINE 25666 . 26056) (DRAWPOLYGON 26058 . 26513) (DRAWPOINT 26515 . 26934) (FILLPOLYGON 26936 . 
-27502) (DRAWTO 27504 . 27922) (FILLCIRCLE 27924 . 28147) (MOVETO 28149 . 28513) (RELDRAWTO 28515 . 
-29432) (BITMAPIMAGESIZE 29434 . 29605) (SCALEDBITBLT 29607 . 30573)) (30576 37615 (\DRAWPOINT.GENERIC 
-30586 . 30933) (\DRAWPOLYGON.GENERIC 30935 . 33243) (\DRAWCIRCLE.GENERIC 33245 . 34903) (
-\DRAWELLIPSE.GENERIC 34905 . 37613)) (37616 43413 (\IMAGEIOINIT 37626 . 41759) (\NOIMAGE.DSPFONT 41761
- . 43247) (\UNIMPIMAGEOP 43249 . 43411)) (43536 46660 (INSURE.BRUSH 43546 . 44920) (BRUSHP 44922 . 
-45712) (\POSSIBLECOLOR 45714 . 46265) (NEGSHADE 46267 . 46658)) (47216 47900 (DASHINGP 47226 . 47556) 
-(INSURE.DASHING 47558 . 47898)) (58546 79092 (\DisplayEventFn 58556 . 59066) (\DISPLAYINIT 59068 . 
-64651) (\4DISPLAYINIT 64653 . 69354) (\8DISPLAYINIT 69356 . 74059) (\24DISPLAYINIT 74061 . 78833) (
-\DISPLAYSTREAMTYPEBPP 78835 . 79090)))))
+  (FILEMAP (NIL (3234 11991 (IMAGESTREAMP 3244 . 4076) (IMAGESTREAMTYPE 4078 . 4291) (IMAGESTREAMTYPEP 
+4293 . 4928) (OPENIMAGESTREAM 4930 . 9884) (\GOOD.DASHLST 9886 . 11989)) (12026 14323 (DRAWDASHEDLINE 
+12036 . 14321)) (14324 21664 (DSPBACKCOLOR 14334 . 14706) (DSPBOTTOMMARGIN 14708 . 15093) (DSPCOLOR 
+15095 . 15459) (DSPCLIPPINGREGION 15461 . 16166) (DSPRESET 16168 . 16448) (DSPFONT 16450 . 16814) (
+DSPLEFTMARGIN 16816 . 17197) (DSPLINEFEED 17199 . 17499) (DSPOPERATION 17501 . 17878) (DSPRIGHTMARGIN 
+17880 . 18263) (DSPTOPMARGIN 18265 . 18644) (DSPSCALE 18646 . 19013) (DSPSPACEFACTOR 19015 . 19408) (
+DSPXPOSITION 19410 . 19715) (DSPYPOSITION 19717 . 20022) (DSPROTATE 20024 . 20319) (DSPPUSHSTATE 20321
+ . 20567) (DSPPOPSTATE 20569 . 20812) (DSPDEFAULTSTATE 20814 . 21066) (DSPSCALE2 21068 . 21359) (
+DSPTRANSLATE 21361 . 21662)) (21665 30466 (DSPNEWPAGE 21675 . 22367) (DRAWBETWEEN 22369 . 23071) (
+DRAWCIRCLE 23073 . 23569) (DRAWARC 23571 . 24088) (DRAWCURVE 24090 . 24767) (DRAWELLIPSE 24769 . 25555
+) (DRAWLINE 25557 . 25947) (DRAWPOLYGON 25949 . 26404) (DRAWPOINT 26406 . 26825) (FILLPOLYGON 26827 . 
+27393) (DRAWTO 27395 . 27813) (FILLCIRCLE 27815 . 28038) (MOVETO 28040 . 28404) (RELDRAWTO 28406 . 
+29323) (BITMAPIMAGESIZE 29325 . 29496) (SCALEDBITBLT 29498 . 30464)) (30467 37506 (\DRAWPOINT.GENERIC 
+30477 . 30824) (\DRAWPOLYGON.GENERIC 30826 . 33134) (\DRAWCIRCLE.GENERIC 33136 . 34794) (
+\DRAWELLIPSE.GENERIC 34796 . 37504)) (37507 42451 (\IMAGEIOINIT 37517 . 40797) (\NOIMAGE.DSPFONT 40799
+ . 42285) (\UNIMPIMAGEOP 42287 . 42449)) (42574 45698 (INSURE.BRUSH 42584 . 43958) (BRUSHP 43960 . 
+44750) (\POSSIBLECOLOR 44752 . 45303) (NEGSHADE 45305 . 45696)) (46254 46938 (DASHINGP 46264 . 46594) 
+(INSURE.DASHING 46596 . 46936)) (57676 78222 (\DisplayEventFn 57686 . 58196) (\DISPLAYINIT 58198 . 
+63781) (\4DISPLAYINIT 63783 . 68484) (\8DISPLAYINIT 68486 . 73189) (\24DISPLAYINIT 73191 . 77963) (
+\DISPLAYSTREAMTYPEBPP 77965 . 78220)))))
 STOP

sources/LLKEY

@@ -1,18 +1,20 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "27-Aug-2021 16:18:18" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;9
 199890 
 
-      previous date%: "24-Aug-2021 16:54:52" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;7)
+
(FILECREATED " 3-Jan-2024 16:10:17" {MEDLEY}<SOURCES>LLKEY.;4
 199503 
 
+      :EDIT-BY "mth"
+
+      :CHANGES-TO (FNS \DECODETRANSITION SHIFTDOWNP)
+                  (VARS LLKEYCOMS)
+                  (RECORDS KEYBOARDEVENT)
+
+      :PREVIOUS-DATE " 3-Jan-2024 12:32:52" {MEDLEY}<SOURCES>LLKEY.;3)
 
-(* ; "
-Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT LLKEYCOMS)
 
 (RPAQQ LLKEYCOMS

-       [(COMS                                                (* ; "Access to keyboard")

+       [(COMS                                                (* ; "Access to keyboard")

               (FNS BKSYSCHARCODE \CLEARSYSBUF \GETKEY \NSYSBUFCHARS \SAVESYSBUF \SYSBUFP \GETSYSBUF 
                    \PUTSYSBUF \PEEKSYSBUF)
               (INITVARS (\LONGSYSBUF))
@@ -20,10 +22,10 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
               (DECLARE%: DONTCOPY (RESOURCES \KEYBOARDWAITBOX))
               (DECLARE%: DONTCOPY (CONSTANTS (\SYSBUFSIZE 200))
                      (MACROS \GETREALSYSBUF)))
-        [DECLARE%: DOCOPY DONTEVAL@LOAD (COMS                (* ; 
-
                                          "Here because it must be done in init before PROC loaded")

+        [DECLARE%: DOCOPY DONTEVAL@LOAD (COMS                (* ; 
+
                                            "Here because it must be done in init before PROC loaded")

                                               (P (MOVD? 'NILL 'CARET]
-        (COMS                                                (* ; "Key handler")

+        (COMS                                                (* ; "Key handler")

               (FNS \KEYBOARDINIT \KEYBOARDEVENTFN \ALLOCLOCKED \SETIOPOINTERS \KEYBOARDOFF 
                    \KEYBOARDON \KEYHANDLER \KEYHANDLER1 \RESETKEYBOARD \DOMOUSECHORDING 
                    \DOTRANSITIONS \DECODETRANSITION MOUSECHORDWAIT \TRACKCURSOR)
@@ -32,7 +34,8 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                      (\SUN.JLEKEYBOARD 2)
                      (\TOSHIBA.JIS 7))
               (INITVARS (\MOUSECHORDTICKS)
-                     (\MOUSECHORDMILLISECONDS 50))
+                     (\MOUSECHORDMILLISECONDS 50)
+                     (SHIFTXORLOCKFLG NIL))
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\KEYBOARDINIT)))
               [DECLARE%: DONTCOPY (MACROS .NOTELASTUSERACTION)
                      (CONSTANTS ALLUP \CTRLMASK \METABIT)
@@ -44,8 +47,8 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                      (EXPORT (RECORDS KEYACTION)
                             (CONSTANTS \NKEYS))
                      (RECORDS RING)
-                     (COMS                                   (* ; 
-
                                          "can get rid of shiftstate after clients have been fixed")

+                     (COMS                                   (* ; 
+
                                            "can get rid of shiftstate after clients have been fixed")

                            (RECORDS SHIFTSTATE)
                            (GLOBALVARS \SHIFTSTATE \MOUSETIMERTEMP))
                      (CONSTANTS NRINGINDEXWORDS)
@@ -53,7 +56,7 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                             (\SYSBUFFER.LAST (IPLUS \SYSBUFFER.FIRST (SUB1 \SYSBUFSIZE]
               (DECLARE%: EVAL@COMPILE (VARS \KEYNAMES))
               
-              (* ;; "\maikokeyactions does not contain keyactions of the form %"2,50%" because it breaks the loadup process on the sun.")

+              (* ;; "\maikokeyactions does not contain keyactions of the form %"2,50%" because it breaks the loadup process on the sun.")

 
               (VARS \ORIGKEYACTIONS \DLIONKEYACTIONS \DLIONOSDKEYACTIONS \DORADOKEYACTIONS 
                     \DOVEKEYACTIONS \DOVEOSDKEYACTIONS \MAIKOKEYACTIONS \MAIKOKEYACTIONST4 
@@ -67,33 +70,33 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                      \MOUSECHORDTICKS \KEYBOARDEVENTQUEUE \KEYBUFFERING \CURRENTKEYACTION 
                      \COMMANDKEYACTION \DEFAULTKEYACTION \TIMER.INTERRUPT.PENDING \ORIGKEYACTIONS 
                      \KEYBOARD.META \MOUSECHORDMILLISECONDS \DORADOKEYACTIONS \DLIONKEYACTIONS 
-                     \DLIONOSDKEYACTIONS \DOVEKEYACTIONS \DOVEOSDKEYACTIONS))
-        (COMS                                                (* ; "Key interpretation")

+                     \DLIONOSDKEYACTIONS \DOVEKEYACTIONS \DOVEOSDKEYACTIONS SHIFTXORLOCKFLG))
+        (COMS                                                (* ; "Key interpretation")

               (FNS KEYACTION KEYACTIONTABLE KEYBOARDTYPE RESETKEYACTION 
                    \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS \KEYACTION1 KEYDOWNP KEYNUMBERP 
                    \KEYNAMETONUMBER \KEYNUMBERTONAME MODIFY.KEYACTIONS METASHIFT SHIFTDOWNP)
-                                                             (* ; 
-
                                                    "To support office style 1108 & 1186 keyboards")

+                                                             (* ; 
+
                                                      "To support office style 1108 & 1186 keyboards")

               (FNS SETUP.OFFICE.KEYBOARD)
               (OPTIMIZERS)
               (MACROS \TEMPCOPYTIMER)
-                                                             (* ; 
-
                  "Don't copy this optimizer since it expands out to \getbasebit, but do exportit.")

+                                                             (* ; 
+
                    "Don't copy this optimizer since it expands out to \getbasebit, but do exportit.")

               (DECLARE%: DONTCOPY (EXPORT (OPTIMIZERS KEYDOWNP)))
               (EXPORT (MACROS XKEYDOWNP KEYDOWNP1 \NEWKEYDOWNP)))
-        (COMS                                                (* ; "A raw keyboard device/stream")

+        (COMS                                                (* ; "A raw keyboard device/stream")

               (FNS \INIT.KEYBOARD.STREAM)
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\INIT.KEYBOARD.STREAM)))
               (EXPORT (GLOBALVARS \KEYBOARD.DEVICE \KEYBOARD.STREAM)))
-        (COMS                                                (* ; "Hook for a periodic interrupt")

+        (COMS                                                (* ; "Hook for a periodic interrupt")

               (FNS \DOBUFFEREDTRANSITIONS \TIMER.INTERRUPTFRAME \PERIODIC.INTERRUPTFRAME)
               (INITVARS (\KEYBUFFERING)
                      (\PERIODIC.INTERRUPT)
                      (\TIMER.INTERRUPT.PENDING)
                      (\PERIODIC.INTERRUPT.FREQUENCY 77)))
         (LOCALVARS . T)
-        [COMS                                                (* ; 
-
                                                           "cursor and mouse related functions.")

+        [COMS                                                (* ; 
+
                                                             "cursor and mouse related functions.")

               (FNS \HARDCURSORUP \HARDCURSORPOSITION \HARDCURSORDOWN)
               (FNS CURSOR.INIT \CURSORDESTINATION \SOFTCURSORUP \SOFTCURSORUPCURRENT 
                    \SOFTCURSORPOSITION \SOFTCURSORDOWN CURSORPROP GETCURSORPROP PUTCURSORPROP 
@@ -147,7 +150,7 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                                                                                   \KEYBOARDEVENT.SIZE
                                                                                    383]
         (COMS (FNS MACHINETYPE SETMAINTPANEL)
-                                                             (* ; "DLion beeper")

+                                                             (* ; "DLion beeper")

               (FNS BEEPON BEEPOFF))
         (EXPORT (GLOBALVARS \EM.MOUSEX \EM.MOUSEY \EM.CURSORX \EM.CURSORY \EM.UTILIN \EM.REALUTILIN 
                        \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.KBDAD4 \EM.KBDAD5 
@@ -155,8 +158,8 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                        \DEFAULTKEYACTION \COMMANDKEYACTION \CURRENTKEYACTION \PERIODIC.INTERRUPT 
                        \PERIODIC.INTERRUPT.FREQUENCY))
         (FNS WITHOUT-INTERRUPTS)
-        (COMS                                                (* ; 
-
                                                         "Compile locked fns together for locality")

+        (COMS                                                (* ; 
+
                                                           "Compile locked fns together for locality")

               (BLOCKS (NIL FLIPCURSORBAR \KEYHANDLER \KEYHANDLER1 \TRACKCURSOR 
                            \PERIODIC.INTERRUPTFRAME \TIMER.INTERRUPTFRAME \DOBUFFEREDTRANSITIONS 
                            \DOTRANSITIONS \DECODETRANSITION \EVENTKEYS \HARDCURSORUP \DOMOUSECHORDING
@@ -382,9 +385,9 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                                       (AND [EQ (fetch
 (RING WRITE) of
 \SYSBUFFER)
                                                (replace
 (RING READ) of
 \SYSBUFFER
                                                   with
 (COND
-                                                              ((EQ \SYSBUFFER.LAST R)
-                                                               \SYSBUFFER.FIRST)
-                                                              (T (ADD1 R]
+                                                          ((EQ \SYSBUFFER.LAST R)
+                                                           \SYSBUFFER.FIRST)
+                                                          (T (ADD1 R]
                                            (replace
 (RING READ) of
 \SYSBUFFER with
 0)))])
 )
 )
@@ -851,7 +854,8 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
     T])
 
 (\DECODETRANSITION

-  [LAMBDA (KEYNUMBER DOWNFLG)                                (* ; "Edited 19-Nov-87 16:29 by Snow")

+  [LAMBDA (KEYNUMBER DOWNFLG)
                                (* ; "Edited  3-Jan-2024 16:04 by mth")


+                                                             (* ; "Edited 19-Nov-87 16:29 by Snow")

 
     (* ;; "KEYNUMBER is the key number in the hardware keyboard layout, DOWNFLG is T if the key just went down.  PENDINGINTERRUPT, bound in \KEYHANDLER, is set to the decoded character if it is an interrupt.")

 
@@ -861,14 +865,18 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
            ASCIICODE SHIFTED)
           (SELECTC (TRANSITIONFLAGS \CURRENTKEYACTION TI)
               (IGNORE.TF (RETURN))
-              (LOCKSHIFT.TF                                  (* ; 
-
                                           "Take shift action if either Shift or Caps Lock is down")

-                            (IF
 (fetch
 (KEYBOARDEVENT SHIFTORLOCK) of
 KEYSTATE)
-                                THEN
 (SETQ SHIFTED T)))
-              (NOLOCKSHIFT.TF                                (* ; 
-
                                                        "Take shift action only when Shift is down")

-                   (IF
 (fetch
 (KEYBOARDEVENT SHIFT) of
 KEYSTATE)
-                       THEN
 (SETQ SHIFTED T)))
+              (LOCKSHIFT.TF 
+                            (* ;; "Take shift action if either Shift or Caps Lock is down. ")

+
+                            (* ;; "If SHIFTXORLOCKFLG, but not both!")

+
+                            (IF
 SHIFTXORLOCKFLG
+                                THEN
 (SETQ SHIFTED (fetch
 (KEYBOARDEVENT SHIFTXORLOCK) of
 KEYSTATE))
+                              ELSE
 (SETQ SHIFTED (fetch
 (KEYBOARDEVENT SHIFTORLOCK) of
 KEYSTATE))))
+              (NOLOCKSHIFT.TF 
+                              (* ;; "Take shift action only when Shift is down")

+
+                   (SETQ SHIFTED (fetch
 (KEYBOARDEVENT SHIFT) of
 KEYSTATE)))
               (EVENT.TF (RETURN))
               (1SHIFTUP.TF (replace
 (KEYBOARDEVENT 1SHIFT) of
 KEYSTATE with
 NIL)
                            (RETURN))
@@ -907,8 +915,9 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                    (replace
 (KEYBOARDEVENT USERMODE1) of
 KEYSTATE with
 T)
                    (RETURN))
               (USERMODE1TOGGLE.TF 
-                   (replace
 (KEYBOARDEVENT USERMODE1) of
 KEYSTATE
-                      with
 (NOT (fetch
 (KEYBOARDEVENT USERMODE1) of
 KEYSTATE)))
+                   (replace
 (KEYBOARDEVENT USERMODE1) of
 KEYSTATE with
 (NOT (fetch
 (KEYBOARDEVENT
+                                                                                    USERMODE1)
+                                                                               of
 KEYSTATE)))
                    (RETURN))
               (USERMODE2UP.TF 
                    (replace
 (KEYBOARDEVENT USERMODE2) of
 KEYSTATE with
 NIL)
@@ -917,8 +926,9 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                    (replace
 (KEYBOARDEVENT USERMODE2) of
 KEYSTATE with
 T)
                    (RETURN))
               (USERMODE2TOGGLE.TF 
-                   (replace
 (KEYBOARDEVENT USERMODE2) of
 KEYSTATE
-                      with
 (NOT (fetch
 (KEYBOARDEVENT USERMODE2) of
 KEYSTATE)))
+                   (replace
 (KEYBOARDEVENT USERMODE2) of
 KEYSTATE with
 (NOT (fetch
 (KEYBOARDEVENT
+                                                                                    USERMODE2)
+                                                                               of
 KEYSTATE)))
                    (RETURN))
               (USERMODE3UP.TF 
                    (replace
 (KEYBOARDEVENT USERMODE3) of
 KEYSTATE with
 NIL)
@@ -927,13 +937,14 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                    (replace
 (KEYBOARDEVENT USERMODE3) of
 KEYSTATE with
 T)
                    (RETURN))
               (USERMODE3TOGGLE.TF 
-                   (replace
 (KEYBOARDEVENT USERMODE3) of
 KEYSTATE
-                      with
 (NOT (fetch
 (KEYBOARDEVENT USERMODE3) of
 KEYSTATE)))
+                   (replace
 (KEYBOARDEVENT USERMODE3) of
 KEYSTATE with
 (NOT (fetch
 (KEYBOARDEVENT
+                                                                                    USERMODE3)
+                                                                               of
 KEYSTATE)))
                    (RETURN))
               (SHOULDNT))
 
      (* ;; 
-
   "Only the LOCKSHIFT and NOLOCKSHIFT cases make it to here, having set SHIFTED if appropriate.")

+
     "Only the LOCKSHIFT and NOLOCKSHIFT cases make it to here, having set SHIFTED if appropriate.")

 
           [SETQ ASCIICODE (COND
                              (SHIFTED (TRANSITIONSHIFTCODE \CURRENTKEYACTION TI))
@@ -944,12 +955,11 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                   (fetch
 (KEYBOARDEVENT FONT) of
 KEYSTATE))
               [IF
 (IGREATERP ASCIICODE 127)
                   THEN
 
+                       (* ;; "Non-ascii interpretation--what is cntrl/meta supposed to mean?  Try using the original interpretation.  This way we can type ^E or Meta-D even if Russian keyboard is set, but doesn't mess up simple ascii remappings, such as bs->del.")

 
-                        (* ;; "Non-ascii interpretation--what is cntrl/meta supposed to mean?  Try using the original interpretation.  This way we can type ^E or Meta-D even if Russian keyboard is set, but doesn't mess up simple ascii remappings, such as bs->del.")

-
-                        (SETQ ASCIICODE (COND
-                                           (SHIFTED (TRANSITIONSHIFTCODE \COMMANDKEYACTION TI))
-                                           (T (TRANSITIONCODE \COMMANDKEYACTION TI]
+                       (SETQ ASCIICODE (COND
+                                          (SHIFTED (TRANSITIONSHIFTCODE \COMMANDKEYACTION TI))
+                                          (T (TRANSITIONCODE \COMMANDKEYACTION TI]
               [COND
                  ((fetch
 (KEYBOARDEVENT CTRL) of
 KEYSTATE)
                   (SETQ ASCIICODE (LOGAND ASCIICODE \CTRLMASK]
@@ -1069,6 +1079,8 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (RPAQ? \MOUSECHORDTICKS
 )
 
 (RPAQ? \MOUSECHORDMILLISECONDS
 50)
+
+(RPAQ? SHIFTXORLOCKFLG
 NIL)
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
 (\KEYBOARDINIT
)
@@ -1076,9 +1088,9 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS .NOTELASTUSERACTION
 MACRO
 (NIL (\BLT \LASTUSERACTION (LOCF (fetch
 SECONDSTMP
-                                                                                of
 \MISCSTATS))
-                                                       WORDSPERCELL)))
+(PUTPROPS .NOTELASTUSERACTION
 MACRO
 (NIL (\BLT \LASTUSERACTION (LOCF (fetch
 SECONDSTMP of
 \MISCSTATS)
+                                                                     )
+                                               WORDSPERCELL)))
 )
 
 (DECLARE%: EVAL@COMPILE 
@@ -1095,10 +1107,10 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 
 
 (RPAQQ DLMOUSEBITS
 ((\MOUSE.LEFTBIT 4)
-                        (\MOUSE.RIGHTBIT 2)
-                        (\MOUSE.MIDDLEBIT 1)
-                        (\MOUSE.ALLBITS 7)
-                        (\MOUSE.LRBIT 6)))
+                    (\MOUSE.RIGHTBIT 2)
+                    (\MOUSE.MIDDLEBIT 1)
+                    (\MOUSE.ALLBITS 7)
+                    (\MOUSE.LRBIT 6)))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQQ \MOUSE.LEFTBIT
 4)
@@ -1121,11 +1133,11 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 
 
 (RPAQQ DLMOUSESTATES
 ((\DLMOUSE.UP 0)
-                          (\DLMOUSE.WAITING 1)
-                          (\DLMOUSE.NORMAL 2)
-                          (\DLMOUSE.MIDDLE 3)
-                          (\DLMOUSE.MIDDLE&LEFT 4)
-                          (\DLMOUSE.MIDDLE&RIGHT 5)))
+                      (\DLMOUSE.WAITING 1)
+                      (\DLMOUSE.NORMAL 2)
+                      (\DLMOUSE.MIDDLE 3)
+                      (\DLMOUSE.MIDDLE&LEFT 4)
+                      (\DLMOUSE.MIDDLE&RIGHT 5)))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQQ \DLMOUSE.UP
 0)
@@ -1231,97 +1243,95 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \TRANSINDEX
 MACRO
 ((KEYNUMBER DOWNFLG)
-                                     (COND
-                                        (DOWNFLG (IPLUS \NKEYS KEYNUMBER))
-                                        (T KEYNUMBER))))
+                             (COND
+                                (DOWNFLG (IPLUS \NKEYS KEYNUMBER))
+                                (T KEYNUMBER))))
 
 (PUTPROPS ARMEDCODE
 MACRO
 ((TABLE CHAR)
-                                   (\GETBASEBIT (fetch
 (KEYACTION
 ARMED)
-                                                       TABLE)
-                                          CHAR)))
+                           (\GETBASEBIT (fetch
 (KEYACTION
 ARMED)
+                                               TABLE)
+                                  CHAR)))
 
 (PUTPROPS TRANSITIONALTGRCODE
 MACRO
 ((TABLE CHAR)
-                                             (\GETBASE (fetch
 (KEYACTION
 ALTGRAPHCODES)
-                                                          of
 TABLE)
-                                                    CHAR)))
+                                     (\GETBASE (fetch
 (KEYACTION
 ALTGRAPHCODES) of
 TABLE)
+                                            CHAR)))
 
 (PUTPROPS TRANSITIONSHIFTCODE
 MACRO
 ((TABLE CHAR)
-                                             (\GETBASE (fetch
 (KEYACTION
 SHIFTCODES)
-                                                              TABLE)
-                                                    CHAR)))
+                                     (\GETBASE (fetch
 (KEYACTION
 SHIFTCODES)
+                                                      TABLE)
+                                            CHAR)))
 
 (PUTPROPS TRANSITIONCODE
 MACRO
 ((TABLE CHAR)
-                                        (\GETBASE (fetch
 (KEYACTION
 CODES)
-                                                         TABLE)
-                                               CHAR)))
+                                (\GETBASE (fetch
 (KEYACTION
 CODES)
+                                                 TABLE)
+                                       CHAR)))
 
 (PUTPROPS TRANSITIONFLAGS
 MACRO
 ((TABLE CHAR)
-                                         (\GETBASEBYTE (fetch
 (KEYACTION
 FLAGS)
-                                                              TABLE)
-                                                CHAR)))
+                                 (\GETBASEBYTE (fetch
 (KEYACTION
 FLAGS)
+                                                      TABLE)
+                                        CHAR)))
 
 (PUTPROPS TRANSITIONDEADLIST
 MACRO
 ((TABLE CHAR SHIFTED)
-                                            (\GETBASEPTR (fetch
 (KEYACTION
 DEADKEYLIST)
-                                                            of
 TABLE)
-                                                   (LLSH (COND
-                                                            (SHIFTED (IPLUS CHAR \NKEYS \NKEYS))
-                                                            (T CHAR))
-                                                         1))))
+                                    (\GETBASEPTR (fetch
 (KEYACTION
 DEADKEYLIST) of
 TABLE)
+                                           (LLSH (COND
+                                                    (SHIFTED (IPLUS CHAR \NKEYS \NKEYS))
+                                                    (T CHAR))
+                                                 1))))
 
-(PUTPROPS CHECKFORDEADKEY
 MACRO

-          [(KEYCODE TABLE CHAR SHIFTED)
-           (LET ((CODE KEYCODE))
-                (COND
-                   [(IEQP CODE 65535)
-                    `(DEADKEY ,(\GETBASEPTR (fetch
 (KEYACTION
 DEADKEYLIST) of
 TABLE)
-                                      (LLSH (COND
-                                               (SHIFTED (IPLUS CHAR \NKEYS \NKEYS))
-                                               (T CHAR))
-                                            1]
-                   (T CODE])
+(PUTPROPS CHECKFORDEADKEY
 MACRO
 [(KEYCODE TABLE CHAR SHIFTED)
+                                 (LET ((CODE KEYCODE))
+                                      (COND
+                                         [(IEQP CODE 65535)
+                                          `(DEADKEY ,(\GETBASEPTR (fetch
 (KEYACTION
 DEADKEYLIST)
+                                                                     of
 TABLE)
+                                                            (LLSH (COND
+                                                                     (SHIFTED (IPLUS CHAR \NKEYS 
+                                                                                     \NKEYS))
+                                                                     (T CHAR))
+                                                                  1]
+                                         (T CODE])
 )
 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
 (BLOCKRECORD KEYACTION
 (
-                            (* ;; "KEYACTION Table:  For interpreting keystrokes.  Stored as a 8-cell block of untyped pointer hunk storage.")

+                        (* ;; "KEYACTION Table:  For interpreting keystrokes.  Stored as a 8-cell block of untyped pointer hunk storage.")

 
-                            FLAGS                            (* ; "Flag byte per key# (one for down-transtion, 1 for up-.) to describe whether lockshifting occrrs, you ignore the transition, etc.")

-                            CODES                            (* ; 
-
                     "Table of character codes generated by each key when no shift key is pressed.")

-                            SHIFTCODES                       (* ; 
-
                    "Table of character codes generated by each key when the shift key is pressed.")

-                            ARMED                            (* ; "Not sure...")

-                            INTERRUPTLIST                    (* ; "List of armed interrupts?")

-                            ALTGRAPHCODES                    (* ; 
-
                                "Table of codes to be generated when the ALT-GRAPH key is pressed.")

-                            DEADKEYLIST                      (* ; "Block of dead-key handlers, with the nominal up-transition fields filled by the shifted-case tables.  Each %"table%" is an ALIST of orignal code => accented code.  no entry means punt the accent..")

-                            )
-                           FLAGS _ (\ALLOCBLOCK (FOLDHI (IPLUS \NKEYS \NKEYS)
-                                                       BYTESPERCELL))
-                           CODES _ (\ALLOCBLOCK (FOLDHI (PLUS \NKEYS \NKEYS)
-                                                       WORDSPERCELL))
-                           SHIFTCODES _ (\ALLOCBLOCK (FOLDHI (PLUS \NKEYS \NKEYS)
-                                                            WORDSPERCELL))
-                           ARMED _ (\ALLOCBLOCK (FOLDHI (ADD1 \MAXTHINCHAR)
-                                                       BITSPERCELL))
-                           ALTGRAPHCODES _ (\ALLOCBLOCK (FOLDHI (PLUS \NKEYS \NKEYS)
-                                                               WORDSPERCELL))
-                           DEADKEYLIST _ (\ALLOCBLOCK (PLUS \NKEYS \NKEYS \NKEYS \NKEYS)
-                                                T)
-                           (CREATE
 (\ALLOCBLOCK 7 PTRBLOCK.GCT))
-                           [TYPE?
 (AND (\BLOCKDATAP DATUM)
-                                           (IGEQ (\#BLOCKDATACELLS DATUM)
-                                                 5)
-                                           (OR (NULL (FETCH
 (KEYACTION INTERRUPTLIST)
-                                                        OF
 DATUM))
-                                               (LISTP (FETCH
 INTERRUPTLIST OF
 DATUM)))
-                                           (\BLOCKDATAP (FETCH
 (KEYACTION FLAGS)
-                                                               DATUM))
-                                           (\BLOCKDATAP (FETCH
 (KEYACTION CODES)
-                                                               DATUM))
-                                           (\BLOCKDATAP (FETCH
 (KEYACTION ARMED)
-                                                               DATUM])
+                        FLAGS                                (* ; "Flag byte per key# (one for down-transtion, 1 for up-.) to describe whether lockshifting occrrs, you ignore the transition, etc.")

+                        CODES                                (* ; 
+
                       "Table of character codes generated by each key when no shift key is pressed.")

+                        SHIFTCODES                           (* ; 
+
                      "Table of character codes generated by each key when the shift key is pressed.")

+                        ARMED                                (* ; "Not sure...")

+                        INTERRUPTLIST                        (* ; "List of armed interrupts?")

+                        ALTGRAPHCODES                        (* ; 
+
                                  "Table of codes to be generated when the ALT-GRAPH key is pressed.")

+                        DEADKEYLIST                          (* ; "Block of dead-key handlers, with the nominal up-transition fields filled by the shifted-case tables.  Each %"table%" is an ALIST of orignal code => accented code.  no entry means punt the accent..")

+                        )
+                       FLAGS _ (\ALLOCBLOCK (FOLDHI (IPLUS \NKEYS \NKEYS)
+                                                   BYTESPERCELL))
+                       CODES _ (\ALLOCBLOCK (FOLDHI (PLUS \NKEYS \NKEYS)
+                                                   WORDSPERCELL))
+                       SHIFTCODES _ (\ALLOCBLOCK (FOLDHI (PLUS \NKEYS \NKEYS)
+                                                        WORDSPERCELL))
+                       ARMED _ (\ALLOCBLOCK (FOLDHI (ADD1 \MAXTHINCHAR)
+                                                   BITSPERCELL))
+                       ALTGRAPHCODES _ (\ALLOCBLOCK (FOLDHI (PLUS \NKEYS \NKEYS)
+                                                           WORDSPERCELL))
+                       DEADKEYLIST _ (\ALLOCBLOCK (PLUS \NKEYS \NKEYS \NKEYS \NKEYS)
+                                            T)
+                       (CREATE
 (\ALLOCBLOCK 7 PTRBLOCK.GCT))
+                       [TYPE?
 (AND (\BLOCKDATAP DATUM)
+                                   (IGEQ (\#BLOCKDATACELLS DATUM)
+                                         5)
+                                   (OR (NULL (FETCH
 (KEYACTION INTERRUPTLIST) OF
 DATUM))
+                                       (LISTP (FETCH
 INTERRUPTLIST OF
 DATUM)))
+                                   (\BLOCKDATAP (FETCH
 (KEYACTION FLAGS)
+                                                       DATUM))
+                                   (\BLOCKDATAP (FETCH
 (KEYACTION CODES)
+                                                       DATUM))
+                                   (\BLOCKDATAP (FETCH
 (KEYACTION ARMED)
+                                                       DATUM])
 )
 (DECLARE%: EVAL@COMPILE 
 
@@ -1337,7 +1347,7 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (DECLARE%: EVAL@COMPILE
 
 (BLOCKRECORD RING
 ((READ WORD)
-                       (WRITE WORD)))
+                   (WRITE WORD)))
 )
 
 
@@ -1348,88 +1358,77 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (DECLARE%: EVAL@COMPILE
 
 (ACCESSFNS SHIFTSTATE
 [[DUMMYSHIFT (NOT (EQ 0 (LOGAND (\GETBASEBYTE DATUM 0)
-                                                         (LOGOR 1 2]
-                           [DUMMY1SHIFT [NOT (EQ 0 (LOGAND 1 (\GETBASEBYTE DATUM 0]
-                                  (\PUTBASEBYTE DATUM 0 (COND
-                                                           (NEWVALUE (LOGOR 1 (\GETBASEBYTE DATUM 0))
-                                                                  )
-                                                           (T (LOGAND (\GETBASEBYTE DATUM 0)
-                                                                     (LOGXOR \CHARMASK 1]
-                           [DUMMY2SHIFT [NOT (EQ 0 (LOGAND 2 (\GETBASEBYTE DATUM 0]
-                                  (\PUTBASEBYTE DATUM 0 (COND
-                                                           (NEWVALUE (LOGOR 2 (\GETBASEBYTE DATUM 0))
-                                                                  )
-                                                           (T (LOGAND (\GETBASEBYTE DATUM 0)
-                                                                     (LOGXOR \CHARMASK 2]
-                           [DUMMYLOCK [NOT (EQ 0 (LOGAND 4 (\GETBASEBYTE DATUM 0]
-                                  (\PUTBASEBYTE DATUM 0 (COND
-                                                           (NEWVALUE (LOGOR 4 (\GETBASEBYTE DATUM 0))
-                                                                  )
-                                                           (T (LOGAND (\GETBASEBYTE DATUM 0)
-                                                                     (LOGXOR \CHARMASK 4]
-                           [DUMMYSHIFTORLOCK (NOT (EQ 0 (\GETBASEBYTE DATUM 0)))
-                                  (\PUTBASEBYTE DATUM 0 (COND
-                                                           (NEWVALUE (HELP 
-                                                                         " Can't turn on SHIFTORLOCK"
-                                                                           ))
-                                                           (T 0]
-                           [DUMMYCTRL (NOT (EQ 0 (\GETBASEBYTE DATUM 1)))
-                                  (\PUTBASEBYTE DATUM 1 (COND
-                                                           (NEWVALUE 1)
-                                                           (T 0]
-                           [DUMMYMETA (NOT (EQ 0 (\GETBASEBYTE DATUM 2)))
-                                  (\PUTBASEBYTE DATUM 2 (COND
-                                                           (NEWVALUE 1)
-                                                           (T 0]
-                           [DUMMYFONT (NEQ 0 (LOGAND (LLSH 1 3)
+                                                     (LOGOR 1 2]
+                       [DUMMY1SHIFT [NOT (EQ 0 (LOGAND 1 (\GETBASEBYTE DATUM 0]
+                              (\PUTBASEBYTE DATUM 0 (COND
+                                                       (NEWVALUE (LOGOR 1 (\GETBASEBYTE DATUM 0)))
+                                                       (T (LOGAND (\GETBASEBYTE DATUM 0)
+                                                                 (LOGXOR \CHARMASK 1]
+                       [DUMMY2SHIFT [NOT (EQ 0 (LOGAND 2 (\GETBASEBYTE DATUM 0]
+                              (\PUTBASEBYTE DATUM 0 (COND
+                                                       (NEWVALUE (LOGOR 2 (\GETBASEBYTE DATUM 0)))
+                                                       (T (LOGAND (\GETBASEBYTE DATUM 0)
+                                                                 (LOGXOR \CHARMASK 2]
+                       [DUMMYLOCK [NOT (EQ 0 (LOGAND 4 (\GETBASEBYTE DATUM 0]
+                              (\PUTBASEBYTE DATUM 0 (COND
+                                                       (NEWVALUE (LOGOR 4 (\GETBASEBYTE DATUM 0)))
+                                                       (T (LOGAND (\GETBASEBYTE DATUM 0)
+                                                                 (LOGXOR \CHARMASK 4]
+                       [DUMMYSHIFTORLOCK (NOT (EQ 0 (\GETBASEBYTE DATUM 0)))
+                              (\PUTBASEBYTE DATUM 0 (COND
+                                                       (NEWVALUE (HELP " Can't turn on SHIFTORLOCK"))
+                                                       (T 0]
+                       [DUMMYCTRL (NOT (EQ 0 (\GETBASEBYTE DATUM 1)))
+                              (\PUTBASEBYTE DATUM 1 (COND
+                                                       (NEWVALUE 1)
+                                                       (T 0]
+                       [DUMMYMETA (NOT (EQ 0 (\GETBASEBYTE DATUM 2)))
+                              (\PUTBASEBYTE DATUM 2 (COND
+                                                       (NEWVALUE 1)
+                                                       (T 0]
+                       [DUMMYFONT (NEQ 0 (LOGAND (LLSH 1 3)
+                                                (\GETBASEBYTE DATUM 3)))
+                              (\PUTBASEBYTE DATUM 3 (COND
+                                                       (NEWVALUE (LOGOR (LLSH 1 3)
+                                                                        (\GETBASEBYTE DATUM 3)))
+                                                       (T (LOGAND (\GETBASEBYTE DATUM 3)
+                                                                 (LOGXOR \CHARMASK (LLSH 1 3]
+                       [DUMMYUSERMODE1 (NEQ 0 (LOGAND (LLSH 1 0)
+                                                     (\GETBASEBYTE DATUM 3)))
+                              (\PUTBASEBYTE DATUM 3 (COND
+                                                       (NEWVALUE (LOGOR (LLSH 1 0)
+                                                                        (\GETBASEBYTE DATUM 3)))
+                                                       (T (LOGAND (\GETBASEBYTE DATUM 3)
+                                                                 (LOGXOR \CHARMASK (LLSH 1 0]
+                       [DUMMYUSERMODE2 (NEQ 0 (LOGAND (LLSH 1 1)
+                                                     (\GETBASEBYTE DATUM 3)))
+                              (\PUTBASEBYTE DATUM 3 (COND
+                                                       (NEWVALUE (LOGOR (LLSH 1 1)
+                                                                        (\GETBASEBYTE DATUM 3)))
+                                                       (T (LOGAND (\GETBASEBYTE DATUM 3)
+                                                                 (LOGXOR \CHARMASK (LLSH 1 1]
+                       [DUMMYUSERMODE3 (NEQ 0 (LOGAND (LLSH 1 2)
+                                                     (\GETBASEBYTE DATUM 3)))
+                              (\PUTBASEBYTE DATUM 3 (COND
+                                                       (NEWVALUE (LOGOR (LLSH 1 2)
+                                                                        (\GETBASEBYTE DATUM 3)))
+                                                       (T (LOGAND (\GETBASEBYTE DATUM 3)
+                                                                 (LOGXOR \CHARMASK (LLSH 1 2]
+                       [DUMMYALTGRAPH (NEQ 0 (LOGAND (LLSH 1 4)
                                                     (\GETBASEBYTE DATUM 3)))
-                                  (\PUTBASEBYTE DATUM 3 (COND
-                                                           (NEWVALUE (LOGOR (LLSH 1 3)
-                                                                            (\GETBASEBYTE DATUM 3)))
-                                                           (T (LOGAND (\GETBASEBYTE DATUM 3)
-                                                                     (LOGXOR \CHARMASK
-                                                                            (LLSH 1 3]
-                           [DUMMYUSERMODE1 (NEQ 0 (LOGAND (LLSH 1 0)
-                                                         (\GETBASEBYTE DATUM 3)))
-                                  (\PUTBASEBYTE DATUM 3 (COND
-                                                           (NEWVALUE (LOGOR (LLSH 1 0)
-                                                                            (\GETBASEBYTE DATUM 3)))
-                                                           (T (LOGAND (\GETBASEBYTE DATUM 3)
-                                                                     (LOGXOR \CHARMASK
-                                                                            (LLSH 1 0]
-                           [DUMMYUSERMODE2 (NEQ 0 (LOGAND (LLSH 1 1)
-                                                         (\GETBASEBYTE DATUM 3)))
-                                  (\PUTBASEBYTE DATUM 3 (COND
-                                                           (NEWVALUE (LOGOR (LLSH 1 1)
-                                                                            (\GETBASEBYTE DATUM 3)))
-                                                           (T (LOGAND (\GETBASEBYTE DATUM 3)
-                                                                     (LOGXOR \CHARMASK
-                                                                            (LLSH 1 1]
-                           [DUMMYUSERMODE3 (NEQ 0 (LOGAND (LLSH 1 2)
-                                                         (\GETBASEBYTE DATUM 3)))
-                                  (\PUTBASEBYTE DATUM 3 (COND
-                                                           (NEWVALUE (LOGOR (LLSH 1 2)
-                                                                            (\GETBASEBYTE DATUM 3)))
-                                                           (T (LOGAND (\GETBASEBYTE DATUM 3)
-                                                                     (LOGXOR \CHARMASK
-                                                                            (LLSH 1 2]
-                           [DUMMYALTGRAPH (NEQ 0 (LOGAND (LLSH 1 4)
-                                                        (\GETBASEBYTE DATUM 3)))
-                                  (\PUTBASEBYTE DATUM 3 (COND
-                                                           (NEWVALUE (LOGOR (LLSH 1 4)
-                                                                            (\GETBASEBYTE DATUM 3)))
-                                                           (T (LOGAND (\GETBASEBYTE DATUM 3)
-                                                                     (LOGXOR \CHARMASK
-                                                                            (LLSH 1 4]
-                           (DUMMYDEADKEYPENDING (NEQ 0 (LOGAND (LLSH 1 5)
-                                                              (\GETBASEBYTE DATUM 3)))
-                                  (\PUTBASEBYTE DATUM 3 (COND
-                                                           (NEWVALUE (LOGOR (LLSH 1 5)
-                                                                            (\GETBASEBYTE DATUM 3)))
-                                                           (T (LOGAND (\GETBASEBYTE DATUM 3)
-                                                                     (LOGXOR \CHARMASK
-                                                                            (LLSH 1 5]
-                          (CREATE
 (\ALLOCBLOCK (FOLDHI 3 BYTESPERCELL))))
+                              (\PUTBASEBYTE DATUM 3 (COND
+                                                       (NEWVALUE (LOGOR (LLSH 1 4)
+                                                                        (\GETBASEBYTE DATUM 3)))
+                                                       (T (LOGAND (\GETBASEBYTE DATUM 3)
+                                                                 (LOGXOR \CHARMASK (LLSH 1 4]
+                       (DUMMYDEADKEYPENDING (NEQ 0 (LOGAND (LLSH 1 5)
+                                                          (\GETBASEBYTE DATUM 3)))
+                              (\PUTBASEBYTE DATUM 3 (COND
+                                                       (NEWVALUE (LOGOR (LLSH 1 5)
+                                                                        (\GETBASEBYTE DATUM 3)))
+                                                       (T (LOGAND (\GETBASEBYTE DATUM 3)
+                                                                 (LOGXOR \CHARMASK (LLSH 1 5]
+                      (CREATE
 (\ALLOCBLOCK (FOLDHI 3 BYTESPERCELL))))
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
@@ -1737,8 +1736,8 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (47 ("Function,^R" "Function,62" NOLOCKSHIFT))))
 
 (RPAQQ \DOVEOSDKEYACTIONS
 ((56 LOCKDOWN . LOCKUP)
-                               (36 CTRLDOWN . CTRLUP)
-                               (CAPSLOCK ("Function,^E" "Function,%%" NOLOCKSHIFT))))
+                           (36 CTRLDOWN . CTRLUP)
+                           (CAPSLOCK ("Function,^E" "Function,%%" NOLOCKSHIFT))))
 
 (RPAQQ \MAIKOKEYACTIONS

        ((61 ("^E" "Bell" NOLOCKSHIFT))
@@ -1965,7 +1964,8 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (GLOBALVARS \SYSBUFFER \LONGSYSBUF \INTERRUPTSTATE \MODIFIED.KEYACTIONS \MOUSECHORDTICKS 
        \KEYBOARDEVENTQUEUE \KEYBUFFERING \CURRENTKEYACTION \COMMANDKEYACTION \DEFAULTKEYACTION 
        \TIMER.INTERRUPT.PENDING \ORIGKEYACTIONS \KEYBOARD.META \MOUSECHORDMILLISECONDS 
-       \DORADOKEYACTIONS \DLIONKEYACTIONS \DLIONOSDKEYACTIONS \DOVEKEYACTIONS \DOVEOSDKEYACTIONS)
+       \DORADOKEYACTIONS \DLIONKEYACTIONS \DLIONOSDKEYACTIONS \DOVEKEYACTIONS \DOVEOSDKEYACTIONS 
+       SHIFTXORLOCKFLG)
 )
 
 
@@ -2356,9 +2356,9 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                      (T OLDSETTING])
 
 (SHIFTDOWNP

-  [LAMBDA (SHIFT)
                                        (* lmm "18-Apr-85 01:07")

-                                                             (* Tells whether a given shift is 
-
                                                           down)

+  [LAMBDA (SHIFT)
                                            (* ; "Edited  3-Jan-2024 00:09 by mth")

+                                                             (* lmm "18-Apr-85 01:07")

+                                                             (* Tells whether a given shift is down)

     (SELECTQ SHIFT
         (LOCK (fetch
 (KEYBOARDEVENT LOCK) of
 \LASTKEYSTATE))
         (META (fetch
 (KEYBOARDEVENT META) of
 \LASTKEYSTATE))
@@ -2369,6 +2369,9 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (SHIFTORLOCK (OR (fetch
 (KEYBOARDEVENT 1SHIFT) of
 \LASTKEYSTATE)
                          (fetch
 (KEYBOARDEVENT 2SHIFT) of
 \LASTKEYSTATE)
                          (fetch
 (KEYBOARDEVENT LOCK) of
 \LASTKEYSTATE)))
+        (SHIFTXORLOCK (NEQ (NULL (OR (fetch
 (KEYBOARDEVENT 1SHIFT) of
 \LASTKEYSTATE)
+                                     (fetch
 (KEYBOARDEVENT 2SHIFT) of
 \LASTKEYSTATE)))
+                           (NULL (fetch
 (KEYBOARDEVENT LOCK) of
 \LASTKEYSTATE))))
         (CTRL (fetch
 (KEYBOARDEVENT CTRL) of
 \LASTKEYSTATE))
         (FONT (fetch
 (KEYBOARDEVENT FONT) of
 \LASTKEYSTATE))
         (USERMODE1 (fetch
 (KEYBOARDEVENT USERMODE1) of
 \LASTKEYSTATE))
@@ -2393,9 +2396,9 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \TEMPCOPYTIMER
 MACRO
 ((X)
-                                        (PROGN (\BLT \MOUSETIMERTEMP (LOCF X)
-                                                     WORDSPERCELL)
-                                               \MOUSETIMERTEMP)))
+                                (PROGN (\BLT \MOUSETIMERTEMP (LOCF X)
+                                             WORDSPERCELL)
+                                       \MOUSETIMERTEMP)))
 )
 
 
@@ -2405,7 +2408,7 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (DECLARE%: DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")
 (DEFOPTIMIZER KEYDOWNP
 (KEYNAME)
-                           `(\NEWKEYDOWNP (\KEYNAMETONUMBER
 ,KEYNAME)))
+                       `(\NEWKEYDOWNP (\KEYNAMETONUMBER
 ,KEYNAME)))
 
 (* "END EXPORTED DEFINITIONS")
 
@@ -2413,35 +2416,35 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS XKEYDOWNP
 MACRO
 ((KEYNAME)
-                                   (KEYDOWNP1 (\KEYNAMETONUMBER
 KEYNAME))))
+                           (KEYDOWNP1 (\KEYNAMETONUMBER
 KEYNAME))))
 
-(PUTPROPS KEYDOWNP1
 MACRO

-          [OPENLAMBDA (KEYNUMBER)
-            (DECLARE
 (GLOBALVARS \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.UTILIN 
-                                \EM.KBDAD4 \EM.KBDAD5))
-            (PROG NIL
-                  (RETURN (EQ 0 (LOGAND (LRSH (LLSH 1 15)
-                                              (PROGN         (* (IMOD KEYNUMBER BITSPERWORD) -
-
                                                           GETD cause IMOD and BITSPERWORD not 
-
                                                           exported to user)

-                                                     (LOGAND KEYNUMBER 15)))
-                                       (\GETBASE (SELECTQ (PROGN 
-                                                             (* (FOLDLO KEYNUMBER BITSPERWORD) 
-
                                                           GETD follows since FOLDLO and 
-
                                                           BITSPERWORD not exported to user)

-                                                                 (LRSH KEYNUMBER 4))
-                                                     (0 \EM.KBDAD0)
-                                                     (1 \EM.KBDAD1)
-                                                     (2 \EM.KBDAD2)
-                                                     (3 \EM.KBDAD3)
-                                                     (4 \EM.UTILIN)
-                                                     (5 (OR \EM.KBDAD4 (RETURN)))
-                                                     (6 (OR \EM.KBDAD5 (RETURN)))
-                                                     (RETURN))
-                                              0])
+(PUTPROPS KEYDOWNP1
 MACRO
 [OPENLAMBDA (KEYNUMBER)
+                            (DECLARE
 (GLOBALVARS \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 
+                                            \EM.UTILIN \EM.KBDAD4 \EM.KBDAD5))
+                            (PROG NIL
+                                  (RETURN (EQ 0 (LOGAND (LRSH (LLSH 1 15)
+                                                              (PROGN 
+                                                             (* (IMOD KEYNUMBER BITSPERWORD) -
+
                                                             GETD cause IMOD and BITSPERWORD not 
+
                                                             exported to user)

+                                                                     (LOGAND KEYNUMBER 15)))
+                                                       (\GETBASE (SELECTQ (PROGN 
+                                                             (* (FOLDLO KEYNUMBER BITSPERWORD) GETD 
+
                                                             follows since FOLDLO and BITSPERWORD 
+
                                                             not exported to user)

+                                                                                 (LRSH KEYNUMBER 4))
+                                                                     (0 \EM.KBDAD0)
+                                                                     (1 \EM.KBDAD1)
+                                                                     (2 \EM.KBDAD2)
+                                                                     (3 \EM.KBDAD3)
+                                                                     (4 \EM.UTILIN)
+                                                                     (5 (OR \EM.KBDAD4 (RETURN)))
+                                                                     (6 (OR \EM.KBDAD5 (RETURN)))
+                                                                     (RETURN))
+                                                              0])
 
 (PUTPROPS \NEWKEYDOWNP
 MACRO
 ((KEYNUMBER)
-                                      (EQ 0 (\GETBASEBIT \LASTKEYSTATE KEYNUMBER))))
+                              (EQ 0 (\GETBASEBIT \LASTKEYSTATE KEYNUMBER))))
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -3683,34 +3686,29 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \SETMOUSEXY
 MACRO
 [(XPOS YPOS)
-                                     (PROGN (SELECTC \MACHINETYPE
-                                                (\DAYBREAK (\DoveMisc.SetMousePosition XPOS YPOS))
-                                                (\MAIKO (SUBRCALL SETMOUSEXY XPOS YPOS))
-                                                (\DANDELION (do
 (PROGN (replace
 (IOPAGE
-                                                                                         NEWMOUSEX)
-                                                                              of
 \IOPAGE
-                                                                              with
 XPOS)
-                                                                           (replace
 (IOPAGE
-                                                                                         NEWMOUSEY)
-                                                                              of
 \IOPAGE
-                                                                              with
 YPOS))
-                                                               repeatuntil

-                                                               (ILESSP (fetch
 (IOPAGE 
+                             (PROGN (SELECTC \MACHINETYPE
+                                        (\DAYBREAK (\DoveMisc.SetMousePosition XPOS YPOS))
+                                        (\MAIKO (SUBRCALL SETMOUSEXY XPOS YPOS))
+                                        (\DANDELION (do
 (PROGN (replace
 (IOPAGE NEWMOUSEX)
+                                                                  of
 \IOPAGE with
 XPOS)
+                                                               (replace
 (IOPAGE NEWMOUSEY)
+                                                                  of
 \IOPAGE with
 YPOS))
+                                                       repeatuntil
 (ILESSP (fetch
 (IOPAGE 
                                                                                         NEWMOUSESTATE
                                                                                          )
-                                                                          of
 \IOPAGE)
-                                                                      32768))
-                                                             (* ; 
-
                                                   "smash position until mouse says it is not busy")

-                                                            (replace
 (IOPAGE NEWMOUSEX)
-                                                               of
 \IOPAGE with
 XPOS)
-                                                            (replace
 (IOPAGE NEWMOUSEY)
-                                                               of
 \IOPAGE with
 YPOS)
-                                                            (replace
 (IOPAGE NEWMOUSESTATE)
-                                                               of
 \IOPAGE with
 32768))
-                                                NIL)
-                                            (PROGN (\PUTBASE \EM.MOUSEX 0 XPOS)
-                                                   (\PUTBASE \EM.MOUSEY 0 YPOS])
+                                                                              of
 \IOPAGE)
+                                                                          32768))
+                                                             (* ; 
+
                                                     "smash position until mouse says it is not busy")

+                                                    (replace
 (IOPAGE NEWMOUSEX) of
 \IOPAGE
+                                                       with
 XPOS)
+                                                    (replace
 (IOPAGE NEWMOUSEY) of
 \IOPAGE
+                                                       with
 YPOS)
+                                                    (replace
 (IOPAGE NEWMOUSESTATE) of
 \IOPAGE
+                                                       with
 32768))
+                                        NIL)
+                                    (PROGN (\PUTBASE \EM.MOUSEX 0 XPOS)
+                                           (\PUTBASE \EM.MOUSEY 0 YPOS])
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -3719,12 +3717,11 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \XMOUSECOORD
 MACRO
 (NIL (IPLUS \CURSORHOTSPOTX (SIGNED (\GETBASE \EM.CURSORX 0)
-                                                                        BITSPERWORD))))
+                                                                BITSPERWORD))))
 
 (PUTPROPS \YMOUSECOORD
 MACRO
 [NIL (IDIFFERENCE (SUB1 \CURSORDESTHEIGHT)
-                                                 (IPLUS \CURSORHOTSPOTY (SIGNED (\GETBASE \EM.CURSORY
-                                                                                       0)
-                                                                               BITSPERWORD])
+                                         (IPLUS \CURSORHOTSPOTY (SIGNED (\GETBASE \EM.CURSORY 0)
+                                                                       BITSPERWORD])
 )
 )
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
@@ -3759,12 +3756,12 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
               (USERMODE2 FLAG)
               (USERMODE3 FLAG)
               (ALTGRAPH FLAG)
-              (DEADKEYPENDING FLAG)                          (* ; "T if the last key was a dead (accent) key, and we should generate an accented character if possible.")

+              (DEADKEYPENDING FLAG)                          (* ; "T if the last key was a dead (accent) key, and we should generate an accented character if possible.")

               (NIL BITS 2)
               (MOUSEX WORD)
               (MOUSEY WORD)
-              (DEADKEY-ALIST XPOINTER)                       (* ; 
-
                                    "The ALIST describing accents possible from teh last dead key.")

+              (DEADKEY-ALIST XPOINTER)                       (* ; 
+
                                      "The ALIST describing accents possible from teh last dead key.")

               )
              (CREATE
 (\ALLOCBLOCK (FOLDHI \KEYBOARDEVENT.SIZE WORDSPERCELL)))
              W0 _ ALLUP W1 _ ALLUP W2 _ ALLUP W3 _ ALLUP W4 _ ALLUP W5 _ ALLUP WU _ ALLUP MOUSESTATE
@@ -3773,12 +3770,16 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                                                                        DATUM)
                                                                 (fetch
 (KEYBOARDEVENT 2SHIFT)
                                                                        DATUM)))
-                                                     (SHIFTORLOCK (OR (fetch
 (KEYBOARDEVENT
-                                                                                  SHIFT)
+                                                     (SHIFTORLOCK (OR (fetch
 (KEYBOARDEVENT SHIFT)
                                                                              DATUM)
-                                                                      (fetch
 (KEYBOARDEVENT
-                                                                                  LOCK)
-                                                                             DATUM]
+                                                                      (fetch
 (KEYBOARDEVENT LOCK)
+                                                                             DATUM)))
+                                                     (SHIFTXORLOCK (NEQ (NULL (fetch
 (KEYBOARDEVENT
+                                                                                      SHIFT)
+                                                                                     DATUM))
+                                                                        (NULL (fetch
 (KEYBOARDEVENT
+                                                                                      LOCK)
+                                                                                     DATUM]
              LOCK _ (XKEYDOWNP 'LOCK)
              TIME _ 0 DEADKEYPENDING _ NIL)
 )
@@ -3919,36 +3920,34 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 
 (ADDTOVAR LAMA
 CURSORPROP METASHIFT MOUSECHORDWAIT)
 )
-(PUTPROPS LLKEY COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990 
-1992 1999 1920 2000 2018 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (14696 22012 (BKSYSCHARCODE 14706 . 15055) (\CLEARSYSBUF 15057 . 15615) (\GETKEY 15617
- . 16792) (\NSYSBUFCHARS 16794 . 17536) (\SAVESYSBUF 17538 . 19147) (\SYSBUFP 19149 . 19453) (
-\GETSYSBUF 19455 . 19635) (\PUTSYSBUF 19637 . 20850) (\PEEKSYSBUF 20852 . 22010)) (23309 60143 (
-\KEYBOARDINIT 23319 . 25039) (\KEYBOARDEVENTFN 25041 . 29741) (\ALLOCLOCKED 29743 . 30333) (
-\SETIOPOINTERS 30335 . 34871) (\KEYBOARDOFF 34873 . 35287) (\KEYBOARDON 35289 . 35668) (\KEYHANDLER 
-35670 . 35801) (\KEYHANDLER1 35803 . 43249) (\RESETKEYBOARD 43251 . 44899) (\DOMOUSECHORDING 44901 . 
-48721) (\DOTRANSITIONS 48723 . 49400) (\DECODETRANSITION 49402 . 56091) (MOUSECHORDWAIT 56093 . 56757)
- (\TRACKCURSOR 56759 . 60141)) (95847 117397 (KEYACTION 95857 . 96710) (KEYACTIONTABLE 96712 . 97894) 
-(KEYBOARDTYPE 97896 . 98998) (RESETKEYACTION 99000 . 100759) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 
-100761 . 102663) (\KEYACTION1 102665 . 112781) (KEYDOWNP 112783 . 113118) (KEYNUMBERP 113120 . 113318)
- (\KEYNAMETONUMBER 113320 . 114014) (\KEYNUMBERTONAME 114016 . 114206) (MODIFY.KEYACTIONS 114208 . 
-115069) (METASHIFT 115071 . 116015) (SHIFTDOWNP 116017 . 117395)) (117460 117756 (
-SETUP.OFFICE.KEYBOARD 117470 . 117754)) (120459 122171 (\INIT.KEYBOARD.STREAM 120469 . 122169)) (
-122436 138813 (\DOBUFFEREDTRANSITIONS 122446 . 137876) (\TIMER.INTERRUPTFRAME 137878 . 138603) (
-\PERIODIC.INTERRUPTFRAME 138605 . 138811)) (139067 143144 (\HARDCURSORUP 139077 . 140959) (
-\HARDCURSORPOSITION 140961 . 142997) (\HARDCURSORDOWN 142999 . 143142)) (143145 167205 (CURSOR.INIT 
-143155 . 146855) (\CURSORDESTINATION 146857 . 149175) (\SOFTCURSORUP 149177 . 154431) (
-\SOFTCURSORUPCURRENT 154433 . 161469) (\SOFTCURSORPOSITION 161471 . 162236) (\SOFTCURSORDOWN 162238 . 
-162946) (CURSORPROP 162948 . 163290) (GETCURSORPROP 163292 . 163480) (PUTCURSORPROP 163482 . 164637) (
-\CURSORBITSPERPIXEL 164639 . 166755) (\CURSORIMAGEPROPNAME 166757 . 166981) (\CURSORMASKPROPNAME 
-166983 . 167203)) (167206 185156 (CURSORCREATE 167216 . 169891) (CURSOR 169893 . 171705) (
-\CURSOR-VALID-P 171707 . 172794) (\CURSORUP 172796 . 174511) (\CURSORPOSITION 174513 . 177041) (
-\CURSORDOWN 177043 . 177276) (ADJUSTCURSORPOSITION 177278 . 177856) (CURSORPOSITION 177858 . 179400) (
-CURSORSCREEN 179402 . 180058) (CURSOREXIT 180060 . 181451) (FLIPCURSOR 181453 . 182579) (FLIPCURSORBAR
- 182581 . 183561) (LASTMOUSEX 183563 . 183817) (LASTMOUSEY 183819 . 184073) (CREATEPOSITION 184075 . 
-184281) (POSITIONP 184283 . 184567) (CURSORHOTSPOT 184569 . 185154)) (186394 187942 (GETMOUSESTATE 
-186404 . 187063) (\EVENTKEYS 187065 . 187940)) (194369 195165 (MACHINETYPE 194379 . 194779) (
-SETMAINTPANEL 194781 . 195163)) (195195 196334 (BEEPON 195205 . 195858) (BEEPOFF 195860 . 196332)) (
-196785 197048 (WITHOUT-INTERRUPTS 196795 . 197046)))))
+  (FILEMAP (NIL (14744 22060 (BKSYSCHARCODE 14754 . 15103) (\CLEARSYSBUF 15105 . 15663) (\GETKEY 15665
+ . 16840) (\NSYSBUFCHARS 16842 . 17584) (\SAVESYSBUF 17586 . 19195) (\SYSBUFP 19197 . 19501) (
+\GETSYSBUF 19503 . 19683) (\PUTSYSBUF 19685 . 20898) (\PEEKSYSBUF 20900 . 22058)) (23345 60763 (
+\KEYBOARDINIT 23355 . 25075) (\KEYBOARDEVENTFN 25077 . 29777) (\ALLOCLOCKED 29779 . 30369) (
+\SETIOPOINTERS 30371 . 34907) (\KEYBOARDOFF 34909 . 35323) (\KEYBOARDON 35325 . 35704) (\KEYHANDLER 
+35706 . 35837) (\KEYHANDLER1 35839 . 43285) (\RESETKEYBOARD 43287 . 44935) (\DOMOUSECHORDING 44937 . 
+48757) (\DOTRANSITIONS 48759 . 49436) (\DECODETRANSITION 49438 . 56711) (MOUSECHORDWAIT 56713 . 57377)
+ (\TRACKCURSOR 57379 . 60761)) (95222 117095 (KEYACTION 95232 . 96085) (KEYACTIONTABLE 96087 . 97269) 
+(KEYBOARDTYPE 97271 . 98373) (RESETKEYACTION 98375 . 100134) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 
+100136 . 102038) (\KEYACTION1 102040 . 112156) (KEYDOWNP 112158 . 112493) (KEYNUMBERP 112495 . 112693)
+ (\KEYNAMETONUMBER 112695 . 113389) (\KEYNUMBERTONAME 113391 . 113581) (MODIFY.KEYACTIONS 113583 . 
+114444) (METASHIFT 114446 . 115390) (SHIFTDOWNP 115392 . 117093)) (117158 117454 (
+SETUP.OFFICE.KEYBOARD 117168 . 117452)) (120433 122145 (\INIT.KEYBOARD.STREAM 120443 . 122143)) (
+122410 138787 (\DOBUFFEREDTRANSITIONS 122420 . 137850) (\TIMER.INTERRUPTFRAME 137852 . 138577) (
+\PERIODIC.INTERRUPTFRAME 138579 . 138785)) (139041 143118 (\HARDCURSORUP 139051 . 140933) (
+\HARDCURSORPOSITION 140935 . 142971) (\HARDCURSORDOWN 142973 . 143116)) (143119 167179 (CURSOR.INIT 
+143129 . 146829) (\CURSORDESTINATION 146831 . 149149) (\SOFTCURSORUP 149151 . 154405) (
+\SOFTCURSORUPCURRENT 154407 . 161443) (\SOFTCURSORPOSITION 161445 . 162210) (\SOFTCURSORDOWN 162212 . 
+162920) (CURSORPROP 162922 . 163264) (GETCURSORPROP 163266 . 163454) (PUTCURSORPROP 163456 . 164611) (
+\CURSORBITSPERPIXEL 164613 . 166729) (\CURSORIMAGEPROPNAME 166731 . 166955) (\CURSORMASKPROPNAME 
+166957 . 167177)) (167180 185130 (CURSORCREATE 167190 . 169865) (CURSOR 169867 . 171679) (
+\CURSOR-VALID-P 171681 . 172768) (\CURSORUP 172770 . 174485) (\CURSORPOSITION 174487 . 177015) (
+\CURSORDOWN 177017 . 177250) (ADJUSTCURSORPOSITION 177252 . 177830) (CURSORPOSITION 177832 . 179374) (
+CURSORSCREEN 179376 . 180032) (CURSOREXIT 180034 . 181425) (FLIPCURSOR 181427 . 182553) (FLIPCURSORBAR
+ 182555 . 183535) (LASTMOUSEX 183537 . 183791) (LASTMOUSEY 183793 . 184047) (CREATEPOSITION 184049 . 
+184255) (POSITIONP 184257 . 184541) (CURSORHOTSPOT 184543 . 185128)) (186368 187916 (GETMOUSESTATE 
+186378 . 187037) (\EVENTKEYS 187039 . 187914)) (194115 194911 (MACHINETYPE 194125 . 194525) (
+SETMAINTPANEL 194527 . 194909)) (194941 196080 (BEEPON 194951 . 195604) (BEEPOFF 195606 . 196078)) (
+196531 196794 (WITHOUT-INTERRUPTS 196541 . 196792)))))
 STOP

sources/MACHINEINDEPENDENT

@@ -1,20 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "20-Jul-2022 19:55:30" {DSK}<home>larry>medley>sources>MACHINEINDEPENDENT.;4
 117970 
+
(FILECREATED "18-Jan-2024 10:40:56" {WMEDLEY}<sources>MACHINEINDEPENDENT.;38
 117576 
 
-      :CHANGES-TO (VARS MACHINEINDEPENDENTCOMS)
-                  (FNS UNSAFE.TO.MODIFY)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "20-Jul-2022 15:26:15" {DSK}<home>larry>medley>sources>MACHINEINDEPENDENT.;3)
+      :CHANGES-TO (FNS LISPSOURCEFILEP)
 
+      :PREVIOUS-DATE "20-Jul-2022 19:55:30" {WMEDLEY}<sources>MACHINEINDEPENDENT.;36)
 
-(* ; "
-Copyright (c) 1983-1991, 2021-2022 by Venue & Xerox Corporation.
-The following program was created in 1983 but has not been published
-within the meaning of the copyright law, is furnished under license,
-and may not be used, copied and/or disclosed except in accordance
-with the terms of said license.
-")
 
 (PRETTYCOMPRINT MACHINEINDEPENDENTCOMS)
 
@@ -1665,6 +1658,8 @@ WRITEFILE OF ")
 (LISPSOURCEFILEP

   [LAMBDA (FILE)
 
+    (* ;; "Edited 18-Jan-2024 10:40 by rmk")

+
     (* ;; "Edited 22-May-2022 09:49 by rmk: If FILE is a stream but not open for input, open it")

 
     (* ;; "Edited  9-Jul-2021 22:12 by rmk:")

@@ -1676,16 +1671,17 @@ WRITEFILE OF ")
                         (GETSTREAM FILE 'INPUT T))
             [RESETSAVE NIL (LIST 'CLOSEF (SETQ FILE (OPENSTREAM FILE 'INPUT])
         (CL:WHEN (RANDACCESSP FILE)
-            (LET ((HERE (GETFILEPTR FILE)))
-                 (CL:MULTIPLE-VALUE-BIND (ENV MAP)
-                        [\PARSE-FILE-HEADER
 FILE (FUNCTION (LAMBDA (STREAM)
+            (LET ((HERE (GETFILEPTR FILE))
+                  ENV MAP)
+                 [NLSETQ (CL:MULTIPLE-VALUE-SETQ (ENV MAP)
+                                (\PARSE-FILE-HEADER
 FILE (FUNCTION (LAMBDA (STREAM)
                                                              (* ; 
 
                                                 "Pointed now right after the FILECREATED expression")

-                                                             (CAR (NLSETQ (SKREAD STREAM)
-                                                                         (SKREAD STREAM)
-                                                                         (FIXP (READ STREAM]
-                        (SETFILEPTR FILE HERE)
-                        (CL:VALUES ENV MAP)))))])
+                                                                     (CAR (NLSETQ (SKREAD STREAM)
+                                                                                 (SKREAD STREAM)
+                                                                                 (FIXP (READ STREAM]
+                 (SETFILEPTR FILE HERE)
+                 (CL:VALUES ENV MAP))))])
 
 (LISPFILETYPE

   [LAMBDA (FILE)
                                             (* ; "Edited 22-May-2022 13:18 by rmk")

@@ -2466,26 +2462,24 @@ This has little hope of working any more.")

 
 (LOCALVARS . T)
 )
-(PUTPROPS MACHINEINDEPENDENT COPYRIGHT ("Venue & Xerox Corporation" T 1983 1984 1985 1986 1987 1988 
-1989 1990 1991 2021 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (12904 26329 (LOAD? 12914 . 14765) (FILESLOAD 14767 . 15056) (DOFILESLOAD 15058 . 22684)
- (FINDFILE-WITH-EXTENSIONS 22686 . 25885) (READ-FILECREATED 25887 . 26327)) (26446 31767 (DMPHASH 
-26456 . 28050) (HASHOVERFLOW 28052 . 31765)) (32523 64631 (BKBUFS 32533 . 33652) (CHANGENAME 33654 . 
-33915) (CHNGNM 33917 . 35765) (CLBUFS 35767 . 37040) (DEFINE 37042 . 37766) (FNS.PUTDEF 37768 . 41183)
- (EQMEMB 41185 . 41367) (EQUALN 41369 . 42198) (FNCHECK 42200 . 44207) (FNTYP1 44209 . 44306) (LCSKIP 
-44308 . 45152) (MAPRINT 45154 . 46100) (MKLIST 46102 . 46252) (NAMEFIELD 46254 . 47779) (NLIST 47781
- . 48116) (PRINTBELLS 48118 . 48244) (PROMPTCHAR 48246 . 50136) (RAISEP 50138 . 50399) (READFILE 50401
- . 52745) (READLINE 52747 . 58187) (REMPROPLIST 58189 . 59077) (RESETBUFS 59079 . 59529) (TAB 59531 . 
-60127) (UNSAVED1 60129 . 61234) (WRITEFILE 61236 . 62978) (CLOSE-AND-MAYBE-DELETE 62980 . 63324) (
-UNSAFE.TO.MODIFY 63326 . 64629)) (66986 69930 (FILEDATE 66996 . 69928)) (70160 97262 (FILEMAP 70170 . 
-70640) (\PARSE-FILE-HEADER 70642 . 74457) (GET-ENVIRONMENT-AND-FILEMAP 74459 . 76686) (
-LOOKUP-ENVIRONMENT-AND-FILEMAP 76688 . 78879) (GET-FILEMAP-FROM-FILECREATED 78881 . 79705) (
-\FILEMAP-HASHOVERFLOW 79707 . 84371) (FLUSHFILEMAPS 84373 . 84996) (LISPSOURCEFILEP 84998 . 86289) (
-LISPFILETYPE 86291 . 89540) (GETFILEMAP 89542 . 89961) (PUTFILEMAP 89963 . 92154) (UPDATEFILEMAP 92156
- . 97260)) (97928 101514 (LVLPRINT 97938 . 98111) (LVLPRIN1 98113 . 98295) (LVLPRIN2 98297 . 98529) (
-LVLPRIN 98531 . 99545) (LVLPRIN0 99547 . 101512)) (101548 106465 (FLUSHRIGHT 101558 . 102373) (
-PRINTPARA 102375 . 103473) (PRINTPARA1 103475 . 106463)) (106501 108786 (SUBLIS 106511 . 107119) (
-SUBPAIR 107121 . 108349) (DSUBLIS 108351 . 108784)) (108809 109409 (CONSTANTOK 108819 . 109407)) (
-111162 111867 (NLAMBDA.ARGS 111172 . 111865)))))
+  (FILEMAP (NIL (12537 25962 (LOAD? 12547 . 14398) (FILESLOAD 14400 . 14689) (DOFILESLOAD 14691 . 22317)
+ (FINDFILE-WITH-EXTENSIONS 22319 . 25518) (READ-FILECREATED 25520 . 25960)) (26079 31400 (DMPHASH 
+26089 . 27683) (HASHOVERFLOW 27685 . 31398)) (32156 64264 (BKBUFS 32166 . 33285) (CHANGENAME 33287 . 
+33548) (CHNGNM 33550 . 35398) (CLBUFS 35400 . 36673) (DEFINE 36675 . 37399) (FNS.PUTDEF 37401 . 40816)
+ (EQMEMB 40818 . 41000) (EQUALN 41002 . 41831) (FNCHECK 41833 . 43840) (FNTYP1 43842 . 43939) (LCSKIP 
+43941 . 44785) (MAPRINT 44787 . 45733) (MKLIST 45735 . 45885) (NAMEFIELD 45887 . 47412) (NLIST 47414
+ . 47749) (PRINTBELLS 47751 . 47877) (PROMPTCHAR 47879 . 49769) (RAISEP 49771 . 50032) (READFILE 50034
+ . 52378) (READLINE 52380 . 57820) (REMPROPLIST 57822 . 58710) (RESETBUFS 58712 . 59162) (TAB 59164 . 
+59760) (UNSAVED1 59762 . 60867) (WRITEFILE 60869 . 62611) (CLOSE-AND-MAYBE-DELETE 62613 . 62957) (
+UNSAFE.TO.MODIFY 62959 . 64262)) (66619 69563 (FILEDATE 66629 . 69561)) (69793 96996 (FILEMAP 69803 . 
+70273) (\PARSE-FILE-HEADER 70275 . 74090) (GET-ENVIRONMENT-AND-FILEMAP 74092 . 76319) (
+LOOKUP-ENVIRONMENT-AND-FILEMAP 76321 . 78512) (GET-FILEMAP-FROM-FILECREATED 78514 . 79338) (
+\FILEMAP-HASHOVERFLOW 79340 . 84004) (FLUSHFILEMAPS 84006 . 84629) (LISPSOURCEFILEP 84631 . 86023) (
+LISPFILETYPE 86025 . 89274) (GETFILEMAP 89276 . 89695) (PUTFILEMAP 89697 . 91888) (UPDATEFILEMAP 91890
+ . 96994)) (97662 101248 (LVLPRINT 97672 . 97845) (LVLPRIN1 97847 . 98029) (LVLPRIN2 98031 . 98263) (
+LVLPRIN 98265 . 99279) (LVLPRIN0 99281 . 101246)) (101282 106199 (FLUSHRIGHT 101292 . 102107) (
+PRINTPARA 102109 . 103207) (PRINTPARA1 103209 . 106197)) (106235 108520 (SUBLIS 106245 . 106853) (
+SUBPAIR 106855 . 108083) (DSUBLIS 108085 . 108518)) (108543 109143 (CONSTANTOK 108553 . 109141)) (
+110896 111601 (NLAMBDA.ARGS 110906 . 111599)))))
 STOP

sources/WINDOWOBJ

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "29-Nov-2023 14:51:52" {WMEDLEY}<sources>WINDOWOBJ.;17
 30975  
+
(FILECREATED " 5-Dec-2023 21:15:38" {WMEDLEY}<sources>WINDOWOBJ.;23
 32078  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS READIMAGEOBJ)
 
-      :PREVIOUS-DATE "29-Nov-2023 14:14:32" {WMEDLEY}<sources>WINDOWOBJ.;15)
+      :PREVIOUS-DATE " 5-Dec-2023 20:44:27" {WMEDLEY}<sources>WINDOWOBJ.;22)
 
 
 (PRETTYCOMPRINT WINDOWOBJCOMS)
@@ -312,11 +312,11 @@
 (READIMAGEOBJ

   [LAMBDA (STREAM GETFN NOERROR DATANBYTES)
 
+    (* ;; "Edited  5-Dec-2023 21:07 by rmk")

+
     (* ;; "Edited 29-Nov-2023 14:51 by rmk")

 
     (* ;; "Edited 18-Mar-2022 21:45 by rmk: Added WHEREIS as a last resort.")

-                                                             (* rrb "18-Mar-86 11:35")

-    (DECLARE
 (SPECVARS UNDERREADIMAGEOBJ))
 
     (* ;; "Reads an IMAGEOBJ, using GETFN.  Verifies that the GETFN is legitimate")

 
@@ -324,55 +324,73 @@
 
     (* ;; "rmk:  I'm not sure that it makes sense for GETFN to be NIL, as 86 code allowed.  Presumably an image object without a GETFN should never have been written.")

 
-    (LET (SUPPORTFILE HYPHENPOS SFNAME (UNDERREADIMAGEOBJ T))
+    (LET (OBJ GETFNFILE GETFNFILENAME HYPHENPOS MAINFILE FAILEDMSG (UNDERREADIMAGEOBJ T))
          (DECLARE
 (SPECVARS UNDERREADIMAGEOBJ))
 
-         (* ;; "Typically,the file containing the GETFN has already been loaded.  If not, it could be the case that the GETFN and its file were pushed on the list for future reference (now), but the file wasn't loaded then. We need to download it.  Or if not there or not there with a file, and we can find the file  containing the GETFN in the WHEREIS database, load that file.")

+         (* ;; "Typically,the file containing the GETFN has already been loaded.  If not, it could be the case that the GETFN and its file were pushed on the list for future reference (now), but the file wasn't loaded then. We need to download it.  We use the WHEREIS database to identify the file containing the GETFN.  If it has a hyphenated name FOO-FIE and it has a sister file that named with just the prefix of the hyphen FOO, then we assume that the GETFN is in an internal file of a larger application FOO application, and we load FOO instead. Presumably that provides the GETFN.")

 
-         (* ;; "If we find the file with the GETFN but that file doesn't also contain the IMAGEFNS variable, we're screwed.  That's why we apply the GETFN under an NLSETQ.  As Plan B, if the getfn is on a file  ...>abc>abc-xyz, and  >abc>abc exists, then we offer to load the putative rootfile instead.  (It would be nice to have UNPACKDIR and PACKDIR functions that map back and forth between a>b>c and (a b c).")

+         (* ;; "Note:  the Prompt message only shows the NAME of the file, not the full path.")

 
-         (* ;; "Note:  the Prompt message only shows the NAME of the file, not the full path")

+         (* ;; "Clean this up if we decide to nuke the MOUSECONFIRM")

 
          (CL:WHEN (AND GETFN (NOT (GETD GETFN))
-                       [SETQ SUPPORTFILE (OR (LISTGET (CDR (ASSOC GETFN IMAGEOBJGETFNS))
-                                                    'FILE)
-                                             (CAR (WHEREIS GETFN 'FNS T))
-                                             (CAR (WHEREIS GETFN 'FUNCTIONS T]
-                       (SETQ SUPPORTFILE (FINDFILE SUPPORTFILE T))
+                       [SETQ GETFNFILENAME (OR (LISTGET (CDR (ASSOC GETFN IMAGEOBJGETFNS))
+                                                      'FILE)
+                                               (CAR (WHEREIS GETFN 'FNS T))
+                                               (CAR (WHEREIS GETFN 'FUNCTIONS T]
+                       [SETQ GETFNFILE (FINDFILE-WITH-EXTENSIONS GETFNFILENAME NIL
+                                              (APPEND *COMPILED-EXTENSIONS* (CONS NIL]
                        (PROG1 T
-                           (CL:WHEN [SETQ HYPHENPOS (STRPOS "-" (SETQ SFNAME (FILENAMEFIELD.STRING
-                                                                              SUPPORTFILE
-                                                                              'NAME]
-                               (SETQ SFNAME (SUBSTRING SFNAME 1 (SUB1 HYPHENPOS)))
-                               (CL:WHEN (AND [STRING.EQUAL SFNAME (SUBSTRING (FILENAMEFIELD.STRING
-                                                                              (TRUEFILENAME 
-                                                                                     SUPPORTFILE)
-                                                                              'DIRECTORY)
-                                                                         (IMINUS (NCHARS SFNAME]
-                                             (INFILEP (PACKFILENAME 'NAME SFNAME 'BODY SUPPORTFILE)))
-                                      (SETQ SUPPORTFILE SFNAME))))
-                       (MOUSECONFIRM (CONCAT "Trying to read an IMAGEOBJ with GETFN " GETFN 
-                                            ". Shall I load the support file, " SUPPORTFILE "?")
-                              NIL NIL NIL))
-             (DOFILESLOAD (LIST '(SYSLOAD)
-                                SUPPORTFILE)))
-         (COND
-            [(AND GETFN (GETD GETFN)
-                  (CAR (NLSETQ (APPLY* GETFN STREAM]
-            (NOERROR NIL)
-            (T                                               (* ; 
+
+                           (* ;; "Is FOO a sister of FOO-FIE ?")

+
+                           (CL:WHEN (SETQ HYPHENPOS (STRPOS "-" GETFNFILENAME))
+                               [SETQ MAINFILE (FINDFILE-WITH-EXTENSIONS (PACKFILENAME
+                                                                         'NAME
+                                                                         (SUBSTRING GETFNFILENAME 1
+                                                                                (SUB1 HYPHENPOS))
+                                                                         'VERSION NIL 'EXTENSION NIL
+                                                                         'BODY GETFNFILE)
+                                                     NIL
+                                                     (APPEND *COMPILED-EXTENSIONS* (CONS NIL]))
+                       (if
 T
+                           then
 
+                                (* ;; "This makes for an automatic attempt.  If we fail, well...")

+
+                                (PROMPTPRINT "Getting GETFN " GETFN " by loading " (OR MAINFILE 
+                                                                                       GETFNFILE))
+                                T
+                         else
 (MOUSECONFIRM (CONCAT "Trying to read an IMAGEOBJ with GETFN " GETFN 
+                                                   ". Shall I load the support file, " MAINFILE "?")
+                                     NIL NIL NIL)))
+
+             (* ;; "Hopefully we found the latest compiled versions")

+
+             (CL:WHEN MAINFILE
+                 (DOFILESLOAD (LIST '(SYSLOAD)
+                                    MAINFILE)))
+             (CL:UNLESS (GETD GETFN)                         (* ; 
+
                                                 "Didn't find the GETFN: try the original GETFNFILE.")

+                 (DOFILESLOAD (LIST '(SYSLOAD)
+                                    GETFNFILE))))
+         (if
 (NULL (GETD GETFN))
+             then
 (SETQ FAILEDMSG "Unknown")
+           elseif
 [SETQ OBJ (CAR (NLSETQ (APPLY* GETFN STREAM]
+           else
 (SETQ FAILEDMSG "Error in"))
+         (CL:UNLESS (OR OBJ NOERROR)                         (* ; 
 
                     "Still no support for this kind of IMAGEOBJ.  Encapsulate it in something safe.")

-               (LET [(OBJ (IMAGEOBJCREATE
 NIL (ENCAPSULATEDIMAGEFNS
 GETFN]
-                    (IMAGEOBJPROP
 OBJ 'FILE (FULLNAME STREAM)
-                           STREAM)                           (* ; 
+             (SETQ OBJ (IMAGEOBJCREATE
 NIL (ENCAPSULATEDIMAGEFNS
 GETFN)))
+             (IMAGEOBJPROP
 OBJ 'FILE (FULLNAME STREAM)
+                    STREAM)                                  (* ; 
 
                             "Remember which file it came from so that it could be written back out.")

-                    (IMAGEOBJPROP
 OBJ 'FILEPTR (GETFILEPTR STREAM))
-                                                             (* ; "And where on the file")

-                    (IMAGEOBJPROP
 OBJ 'OBJSIZE DATANBYTES)
-                    (IMAGEOBJPROP
 OBJ 'UNKNOWNGETFN GETFN)   (* ; "And the name of its GETFN")

-                    (AND DATANBYTES (SETFILEPTR STREAM (PLUS (GETFILEPTR STREAM)
-                                                             DATANBYTES)))
-                    OBJ])
+             (IMAGEOBJPROP
 OBJ 'FILEPTR (GETFILEPTR STREAM)) (* ; "And where on the file")

+             (IMAGEOBJPROP
 OBJ 'OBJSIZE DATANBYTES)
+             (IMAGEOBJPROP
 OBJ 'UNKNOWNGETFN GETFN)          (* ; "And the name of its GETFN")

+             (IMAGEOBJPROP
 OBJ 'FAILEDMSG FAILEDMSG)         (* ; "And why it failed")

+             (CL:WHEN DATANBYTES
+                 (SETFILEPTR STREAM (PLUS (GETFILEPTR STREAM)
+                                          DATANBYTES))))
+         OBJ])
 
 (WRITEIMAGEOBJ

   [LAMBDA (IMAGEOBJ STREAM)
                              (* jds "19-Feb-85 09:36")

@@ -460,12 +478,13 @@ Either delete this image object or load its support files." IMAGEOBJ)
       T])
 
 (ENCAPSULATEDOBJ.DISPLAYFN

-  [LAMBDA (OBJ STREAM)
                                   (* jds "19-Feb-85 10:37")

+  [LAMBDA (OBJ STREAM)
                                       (* ; "Edited  5-Dec-2023 12:12 by rmk")

+                                                             (* jds "19-Feb-85 10:37")

 
     (* ;; "Display function for an IMAGEOBJ that has been encapsulated for safety")

 
     (* ;; 
-
 "Displays as a box containing text saying 'Unknown IMAGEOBJ type' , and naming the unknown GETFN.")

+
   "Displays as a box containing text saying 'Unknown IMAGEOBJ type' , and naming the unknown GETFN.")

 
     (LET* ((CURX (DSPXPOSITION NIL STREAM))
            (CURY (DSPYPOSITION NIL STREAM))
@@ -481,7 +500,9 @@ Either delete this image object or load its support files." IMAGEOBJ)
           (RELMOVETO 3 (IPLUS (FONTPROP FONT 'HEIGHT)
                               3)
                  STREAM)
-          (PRIN1 "Unknown IMAGEOBJ type" STREAM)
+          (PRIN1 (OR (IMAGEOBJPROP
 OBJ 'FAILEDMSG "Unknown"))
+                 STREAM)
+          (PRIN1 " IMAGEOBJ" STREAM)
           (MOVETO (IPLUS CURX 3)
                  (IPLUS CURY 3)
                  STREAM)
@@ -498,7 +519,8 @@ Either delete this image object or load its support files." IMAGEOBJ)
           (DSPFONT OLDFONT STREAM])
 
 (ENCAPSULATEDOBJ.IMAGEBOXFN

-  [LAMBDA (IMAGEOBJ STREAM)
                                  (* ; "Edited 29-Nov-2023 12:49 by rmk")

+  [LAMBDA (IMAGEOBJ STREAM)
                                  (* ; "Edited  5-Dec-2023 11:25 by rmk")


+                                                             (* ; "Edited 29-Nov-2023 12:49 by rmk")

                                                              (* jds "19-Feb-85 10:05")

 
     (* ;; "IMAGEOBXFN for an encapsulated IMAGEOBJ.  If the GETFN now exists, another attempt is made to retrieve the underlying object and to use its boxfn.  ")

@@ -516,7 +538,9 @@ Either delete this image object or load its support files." IMAGEOBJ)
                          IMAGEOBJ STREAM)
            else
 (SETQ FONT (FONTCREATE 'HELVETICA 8 'BOLD NIL STREAM))
                 [SETQ HEIGHT (ITIMES 2 (FONTPROP FONT 'HEIGHT]
-                (SETQ WIDTH (IMAX (STRINGWIDTH "Unknown IMAGEOBJ type" FONT)
+                (SETQ WIDTH (IMAX (STRINGWIDTH (CONCAT (OR (IMAGEOBJPROP
 IMAGEOBJ 'FAILEDMSG)
+                                                           "Unknown" " IMAGEOBJ"))
+                                         FONT)
                                   (STRINGWIDTH (CONCAT "GETFN:  " GETFN)
                                          FONT)))
                 (create
 IMAGEBOX
@@ -564,11 +588,11 @@ Either delete this image object or load its support files." IMAGEOBJ)
 (ADDTOVAR LAMA
 IMAGEOBJPROP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4766 22601 (COPYINSERT 4776 . 6303) (IMAGEBOX 6305 . 6485) (IMAGEFNSCREATE 6487 . 7682)
+  (FILEMAP (NIL (4766 23254 (COPYINSERT 4776 . 6303) (IMAGEBOX 6305 . 6485) (IMAGEFNSCREATE 6487 . 7682)
  (IMAGEFNSP 7684 . 7925) (IMAGEOBJCREATE 7927 . 8472) (IMAGEOBJP 8474 . 8715) (IMAGEOBJPROP 8717 . 
 14609) (\IMAGEUSERPROP 14611 . 15205) (HPRINT.IMAGEOBJ 15207 . 15796) (COPYIMAGEOBJ 15798 . 16541) (
-READIMAGEOBJ 16543 . 21247) (WRITEIMAGEOBJ 21249 . 22599)) (22815 30697 (
-ENCAPSULATEDOBJ.BUTTONEVENTINFN 22825 . 24608) (ENCAPSULATEDOBJ.PUTFN 24610 . 25725) (
-ENCAPSULATEDOBJ.DISPLAYFN 25727 . 27340) (ENCAPSULATEDOBJ.IMAGEBOXFN 27342 . 29258) (
-ENCAPSULATEDIMAGEFNS 29260 . 30695)))))
+READIMAGEOBJ 16543 . 21900) (WRITEIMAGEOBJ 21902 . 23252)) (23468 31800 (
+ENCAPSULATEDOBJ.BUTTONEVENTINFN 23478 . 25261) (ENCAPSULATEDOBJ.PUTFN 25263 . 26378) (
+ENCAPSULATEDOBJ.DISPLAYFN 26380 . 28183) (ENCAPSULATEDOBJ.IMAGEBOXFN 28185 . 30361) (
+ENCAPSULATEDIMAGEFNS 30363 . 31798)))))
 STOP

sources/XCCS

@@ -1,140 +1,133 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "19-Jul-2022 17:13:23" {DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>XCCS.;54
 13309  
+
(FILECREATED " 9-Dec-2023 11:42:55" {WMEDLEY}<sources>XCCS.;66
 14365  
 
-      :CHANGES-TO (FNS \XCCSBACKCCODE)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "19-Jul-2022 14:56:54" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>XCCS.;53)
+      :CHANGES-TO (FNS \XCCSCHARSETFN)
+
+      :PREVIOUS-DATE " 8-Dec-2023 15:34:50" {WMEDLEY}<sources>XCCS.;65)
 
 
 (PRETTYCOMPRINT XCCSCOMS)
 
 (RPAQQ XCCSCOMS

-       [(FNS ACCESS-CHARSET)
-        (FNS \XCCSINCCODE \XCCSPEEKCCODE \XCCSOUTCHAR \XCCSBACKCCODE \XCCSFORMATBYTESTREAM)
+       [(FNS \XCCSINCCODE \XCCSPEEKCCODE \XCCSOUTCHAR \XCCSBACKCCODE \XCCSFORMATBYTESTREAM 
+             \XCCSCHARSETFN)
         (FNS \CREATE.XCCS.EXTERNALFORMAT)
         (FNS \NSIN.24BITENCODING.ERROR)
         (INITVARS (*SIGNAL-24BIT-NSENCODING-ERROR*))
         (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (CONSTANTS (\NORUNCODE 255)
                                                         (NSCHARSETSHIFT 255))
-                                                (MACROS \RUNCODED)
-                                                (OPTIMIZERS ACCESS-CHARSET)))
+                                                (MACROS \RUNCODED)))
         (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.XCCS.EXTERNALFORMAT])
 (DEFINEQ
 
-(ACCESS-CHARSET

-  [LAMBDA (STREAM NEWVALUE)
                              (* ; "Edited 11-Sep-87 15:46 by bvm:")

-    (FDEVOP 'CHARSETFN (fetch
 (STREAM DEVICE) of
 STREAM)
-           STREAM NEWVALUE])
-)
-(DEFINEQ
-
 (\XCCSINCCODE

-  [LAMBDA (STREAM COUNTP)
                               (* ; "Edited  6-Aug-2021 15:57 by rmk:")

+  [LAMBDA (STREAM COUNTP)
                                    (* ; "Edited  8-Dec-2023 15:28 by rmk")


+                                                            (* ; "Edited  6-Aug-2021 15:57 by rmk:")

 
-(* ;;; "Returns a 16 bit character code.  SHIFTEDCSET is STREAM's char set left shifted 8.")

+(* ;;; "Returns a 16 bit character code.  SHIFTEDCSET is STREAM's char set left shifted 8.")

 
-(* ;;; 
-
"If COUNTP is non-NIL, the variable *BYTECOUNTER* is set freely to the number of bytes read.")

+(* ;;; "If COUNTP is non-NIL, the variable *BYTECOUNTER* is set freely to the number of bytes read.")

 
-(* ;;; "This doesn't do  EOL conversion, \INCHAR does that")

+(* ;;; "This doesn't do  EOL conversion, \INCHAR does that")

 
     (DECLARE
 (USEDFREE *BYTECOUNTER*))
-    (LET (NUMBYTES (CSET (ACCESS-CHARSET
 STREAM))
-                (CHAR (\BIN STREAM)))                        (* ; 
-
                                           "Error on EOF unless ENDOFSTREAMOP does something else.")

+    (\DTEST STREAM 'STREAM)
+    (LET (NUMBYTES (CSET (ffetch
 (STREAM CHARSET) of
 STREAM))
+                (CHAR (\BIN STREAM)))                        (* ; 
+
                                             "Error on EOF unless ENDOFSTREAMOP does something else.")

 
-         (* ;; " NUMBYTES tracks the number of \BINs.  ")

+         (* ;; " NUMBYTES tracks the number of \BINs.  ")

 
          (IF
 (EQ CHAR NSCHARSETSHIFT)
-             THEN
                                        (* ; 
-
                                                           "Shifting character sets, toss CHAR")

-                   (SETQ CSET (\BIN STREAM))
-                   (IF
 (NEQ NSCHARSETSHIFT CSET)
-                       THEN
                              (* ; 
-
                                                           "Shift to new runcode CSET: SH CS CH")

-                             (ACCESS-CHARSET
 STREAM CSET)
-                             (SETQ CHAR (\BIN STREAM))
-                             (SETQ NUMBYTES 3)
-                     ELSEIF
 (EQ 0 (\BIN STREAM))
-                       THEN
                              (* ; "SH SH CSH  CS CH where CSH is 0")

+             THEN
                                            (* ; 
+
                                                             "Shifting character sets, toss CHAR")

+                  (SETQ CSET (\BIN STREAM))
+                  (IF
 (NEQ NSCHARSETSHIFT CSET)
+                      THEN
                                   (* ; 
+
                                                             "Shift to new runcode CSET: SH CS CH")

+                           (SETQ CHAR (\BIN STREAM))
+                           (SETQ NUMBYTES 3)
+                           (freplace
 (STREAM CHARSET) of
 STREAM with
 CSET)
+                    ELSEIF
 (EQ 0 (\BIN STREAM))
+                      THEN
                                   (* ; "SH SH CSH  CS CH where CSH is 0")

 
-                             (* ;; 
-
  "The high-order character set byte must be 0, because we don't support obese characters (24 bit)")

+                           (* ;; 
+
    "The high-order character set byte must be 0, because we don't support obese characters (24 bit)")

 
-                             (SETQ CSET (\BIN STREAM))
-                             (SETQ CHAR (\BIN STREAM))       (* ; "To align with below")

-                             (SETQ NUMBYTES 5)
-                             (ACCESS-CHARSET
 STREAM \NORUNCODE)
-                     ELSE
 (\NSIN.24BITENCODING.ERROR
 STREAM)) 
+                           (SETQ CSET (\BIN STREAM))
+                           (SETQ CHAR (\BIN STREAM))         (* ; "To align with below")

+                           (SETQ NUMBYTES 5)
+                           (freplace
 (STREAM CHARSET) of
 STREAM with
 \NORUNCODE)
+                    ELSE
 (\NSIN.24BITENCODING.ERROR
 STREAM)) 
 
-                   (* ;; "The stream now knows the new character set, runcoded or not.")

+                  (* ;; "The stream now knows the new character set, runcoded or not.")

 
            ELSEIF
 (EQ CSET \NORUNCODE)
-             THEN
                                        (* ; "2-bytes")

-                   (SETQ CSET CHAR)
-                   (SETQ CHAR (\BIN STREAM))
-                   (SETQ NUMBYTES 2)
+             THEN
                                            (* ; "2-bytes")

+                  (SETQ CSET CHAR)
+                  (SETQ CHAR (\BIN STREAM))
+                  (SETQ NUMBYTES 2)
            ELSE
 
+                (* ;; "Runcoded CSET and CHAR")

 
-                 (* ;; "Runcoded CSET and CHAR")

-
-                 (SETQ NUMBYTES 1))
+                (SETQ NUMBYTES 1))
          (CL:WHEN COUNTP (SETQ *BYTECOUNTER* NUMBYTES))
-         (CL:WHEN CHAR                                       (* ; 
-
                                              "Typically NIL if ENDOFSTREAMOP returned NIL at EOF ")

+         (CL:WHEN CHAR                                       (* ; 
+
                                                "Typically NIL if ENDOFSTREAMOP returned NIL at EOF ")

              (LOGOR (UNFOLD CSET 256)
                     CHAR))])
 
 (\XCCSPEEKCCODE

-  [LAMBDA (STREAM NOERROR)
                              (* ; "Edited 21-Jun-2021 23:44 by rmk:")

+  [LAMBDA (STREAM NOERROR)
                                   (* ; "Edited  8-Dec-2023 15:32 by rmk")


+                                                            (* ; "Edited 21-Jun-2021 23:44 by rmk:")

 
-    (* ;; 
-
 "Modeled on \XCCSINCCODE, but peeks at the last byte in the sequence, leaves the stream unchanged")

+    (* ;; 
+
   "Modeled on \XCCSINCCODE, but peeks at the last byte in the sequence, leaves the stream unchanged")

 
-    (LET ((CSET (ACCESS-CHARSET
 STREAM))
+    (\DTEST STREAM 'STREAM)
+    (LET ((CSET (ffetch
 (STREAM CHARSET) of
 STREAM))
           (CHAR (\PEEKBIN STREAM NOERROR)))
 
-         (* ;; 
-
       "Returns a 16 bit character code.  Doesn't do EOL conversion--\PEEKCCODE does that.  ")

+         (* ;; "Returns a 16 bit character code.  Doesn't do EOL conversion--\PEEKCCODE does that.  ")

 
-         (* ;; "We don't change the charset in the stream, put the file ptr back the way it was.")

+         (* ;; "We don't change the charset in the stream, put the file ptr back the way it was.")

 
          (CL:WHEN CHAR
              (IF
 (EQ CHAR NSCHARSETSHIFT)
-                 THEN
 (\BIN STREAM)                      (* ; "Read the peeked shifting byte")

-                       (SETQ CSET (\BIN STREAM))             (* ; "Consume the char shift byte")

-                       (IF
 (NEQ CSET NSCHARSETSHIFT)
-                           THEN
 
+                 THEN
 (\BIN STREAM)                          (* ; "Read the peeked shifting byte")

+                      (SETQ CSET (\BIN STREAM))              (* ; "Consume the char shift byte")

+                      (IF
 (NEQ CSET NSCHARSETSHIFT)
+                          THEN
 
+                               (* ;; 
+
           "Shift to new runcode CSET: SH CS CH.  We have to BIN what we peeked, BIN, and peek again")

 
-                                 (* ;; 
-
         "Shift to new runcode CSET: SH CS CH.  We have to BIN what we peeked, BIN, and peek again")

+                               (SETQ CHAR (\PEEKBIN STREAM NOERROR))
+                               (\BACKFILEPTR STREAM)
+                               (\BACKFILEPTR STREAM)
+                        ELSEIF
 (EQ 0 (\BIN STREAM))
+                          THEN
                               (* ; "SH SH CSH  CS CH where CSH is 0")

 
-                                 (SETQ CHAR (\PEEKBIN STREAM NOERROR))
-                                 (\BACKFILEPTR STREAM)
-                                 (\BACKFILEPTR STREAM)
-                         ELSEIF
 (EQ 0 (\BIN STREAM))
-                           THEN
                          (* ; "SH SH CSH  CS CH where CSH is 0")

+                               (* ;; 
+
       "Note: no eof error check on this \BIN -- an eof in the middle of a charset shift is an error")

 
-                                 (* ;; 
-
     "Note: no eof error check on this \BIN -- an eof in the middle of a charset shift is an error")

-
-                                 (SETQ CSET (\BIN STREAM))
-                                 (SETQ CHAR (\PEEKBIN STREAM NOERROR))
-                                 (\BACKFILEPTR STREAM)
-                                 (\BACKFILEPTR STREAM)
-                                 (\BACKFILEPTR STREAM)
-                                 (\BACKFILEPTR STREAM)
-                         ELSE
 (\NSIN.24BITENCODING.ERROR
 STREAM))
+                               (SETQ CSET (\BIN STREAM))
+                               (SETQ CHAR (\PEEKBIN STREAM NOERROR))
+                               (\BACKFILEPTR STREAM)
+                               (\BACKFILEPTR STREAM)
+                               (\BACKFILEPTR STREAM)
+                               (\BACKFILEPTR STREAM)
+                        ELSE
 (\NSIN.24BITENCODING.ERROR
 STREAM))
                ELSEIF
 (EQ CSET \NORUNCODE)
-                 THEN
                                    (* ; "2 byte runs, BIN/PEEK/BACK")

-                       (SETQ CSET CHAR)
-                       (\BIN STREAM)
-                       (SETQ CHAR (\PEEKBIN STREAM NOERROR)) (* ; "One BACKFILEPTR seems OK")

-                       (\BACKFILEPTR STREAM))
+                 THEN
                                        (* ; "2 byte runs, BIN/PEEK/BACK")

+                      (SETQ CSET CHAR)
+                      (\BIN STREAM)
+                      (SETQ CHAR (\PEEKBIN STREAM NOERROR))  (* ; "One BACKFILEPTR seems OK")

+                      (\BACKFILEPTR STREAM))
 
-             (* ;; "No need to back up for the runcoded case")

+             (* ;; "No need to back up for the runcoded case")

 
              (CL:WHEN CHAR
                  (LOGOR (UNFOLD CSET 256)
@@ -179,12 +172,13 @@
                 (\BOUT STREAM (\CHAR8CODE CHARCODE])
 
 (\XCCSBACKCCODE

-  [LAMBDA (STREAM COUNTP)
                                    (* ; "Edited 19-Jul-2022 17:12 by rmk")


+  [LAMBDA (STREAM COUNTP)
                                    (* ; "Edited  8-Dec-2023 15:34 by rmk")


+                                                             (* ; "Edited 19-Jul-2022 17:12 by rmk")


                                                             (* ; "Edited 13-Aug-2021 14:08 by rmk:")

     (DECLARE
 (USEDFREE *BYTECOUNTER*))
     (LET ((BYTE (AND (\BACKFILEPTR STREAM)
                      (\PEEKBIN STREAM)))
-          (CSET (ACCESS-CHARSET
 STREAM)))
+          (CSET (fetch
 (STREAM CHARSET) of
 STREAM)))
          (CL:WHEN BYTE
 
              (* ;; "The immediately preceding byte must be a character byte. If it is a byte in a runcode, then we are done, even if the byte before is part of a shift sequence.")

@@ -209,24 +203,44 @@
   [LAMBDA (STREAM BYTESTREAM)
                           (* ; "Edited 24-Jun-2021 16:47 by rmk:")

     (REPLACE
 (STREAM CHARSET) OF
 BYTESTREAM WITH
 (FETCH
 (STREAM CHARSET) OF

                                                                                          STREAM])
+
+(\XCCSCHARSETFN

+  [LAMBDA (STREAM CHARSET DONTMARKSTREAM)
                    (* ; "Edited  9-Dec-2023 11:18 by rmk")

+
+    (* ;; "This differs from  \GENERIC.CHARSET in that it actually writes the shifting bytes into an output stream, unless DONTMARKSTREAM.  It will do write the shifts, even if it just replicates the situation that is already there (presumably CHARSET = the old CHARSET).  The client should test and avoid calling if useless shifts are not desired.")

+
+    (LET [(CSET (ffetch
 (STREAM CHARSET) of
 (\DTEST STREAM 'STREAM]
+         (CL:WHEN CHARSET
+             (CL:WHEN (EQ CHARSET T)
+                    (SETQ CHARSET \NORUNCODE))
+             (CL:UNLESS (EQ CHARSET CSET)
+                 (freplace
 (STREAM CHARSET) of
 STREAM with
 CHARSET)
+                 (CL:UNLESS DONTMARKSTREAM
+                     (CL:WHEN (\IOMODEP STREAM 'OUTPUT T)
+                         (\BOUT STREAM NSCHARSETSHIFT)
+                         (if
 (EQ CHARSET \NORUNCODE)
+                             then
 (\BOUT STREAM \NORUNCODE)
+                                  (\BOUT STREAM 0)
+                           else
 (\BOUT STREAM CHARSET))))))
+         CSET])
 )
 (DEFINEQ
 
 (\CREATE.XCCS.EXTERNALFORMAT

-  [LAMBDA (NAME EOL)
                                         (* ; "Edited 30-Jun-2022 18:08 by rmk")


+  [LAMBDA (NAME EOL)
                                         (* ; "Edited  7-Dec-2023 23:03 by rmk")


+                                                             (* ; "Edited 30-Jun-2022 18:08 by rmk")


                                                             (* ; "Edited 10-Sep-2021 19:49 by rmk:")

 
 (* ;;; "Create the :XCCS external format.  Stream's EOL overrides the (vacuous) default here")

 
-    (CL:UNLESS NAME (SETQ NAME :XCCS))
-    (CL:UNLESS EOL
-        (SETQ EOL 'LF))
-    (MAKE-EXTERNALFORMAT NAME (FUNCTION \XCCSINCCODE)
+    (MAKE-EXTERNALFORMAT (OR NAME :XCCS)
+           (FUNCTION \XCCSINCCODE)
            (FUNCTION \XCCSPEEKCCODE)
            (FUNCTION \XCCSBACKCCODE)
            (FUNCTION \XCCSOUTCHAR)
            (FUNCTION \XCCSFORMATBYTESTREAM)
-           EOL T NIL])
+           (OR EOL 'LF)
+           T NIL NIL (FUNCTION \XCCSCHARSETFN])
 )
 (DEFINEQ
 
@@ -267,13 +281,6 @@
                                  \NORUNCODE)))
 )
 
-(DEFOPTIMIZER ACCESS-CHARSET
 (STREAM &OPTIONAL NEWVALUE)
-                             `((OPENLAMBDA (STRM)
-                                 (FDEVOP 'CHARSETFN (fetch
 (STREAM DEVICE) of
 STRM)
-                                        STRM
-                                        ,NEWVALUE))
-                               ,STREAM))
-
 (* "END EXPORTED DEFINITIONS")
 
 )
@@ -282,8 +289,8 @@
 (\CREATE.XCCS.EXTERNALFORMAT
)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1023 1252 (ACCESS-CHARSET 1033 . 1250)) (1253 10546 (\XCCSINCCODE 1263 . 4035) (
-\XCCSPEEKCCODE 4037 . 6573) (\XCCSOUTCHAR 6575 . 8795) (\XCCSBACKCCODE 8797 . 10217) (
-\XCCSFORMATBYTESTREAM 10219 . 10544)) (10547 11222 (\CREATE.XCCS.EXTERNALFORMAT 10557 . 11220)) (11223
- 12054 (\NSIN.24BITENCODING.ERROR 11233 . 12052)))))
+  (FILEMAP (NIL (886 11846 (\XCCSINCCODE 896 . 3875) (\XCCSPEEKCCODE 3877 . 6546) (\XCCSOUTCHAR 6548 . 
+8768) (\XCCSBACKCCODE 8770 . 10314) (\XCCSFORMATBYTESTREAM 10316 . 10641) (\XCCSCHARSETFN 10643 . 
+11844)) (11847 12620 (\CREATE.XCCS.EXTERNALFORMAT 11857 . 12618)) (12621 13452 (
+\NSIN.24BITENCODING.ERROR 12631 . 13450)))))
 STOP

unicode/xerox/XCCS-0=LATIN.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     0 LATIN
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             6-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,27 +22,27 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "0" LATIN
+#   "0" LATIN
 0x0000	0x0000	#  ^@
 0x0001	0x0001	#  ^A
 0x0002	0x0002	#  ^B
@@ -75,182 +75,183 @@
 0x001D	0x001D	#  ^]
 0x001E	0x001E	#  ^^
 0x001F	0x001F	#  ^_
-0x0020	0x0020	#   
-0x0021	0x0021	#  !
-0x0022	0x0022	#  "
-0x0023	0x0023	#  #
-0x0024	0x0024	#  $
-0x0025	0x0025	#  %
-0x0026	0x0026	#  &
-0x0027	0x0027	#  '
-0x0028	0x0028	#  (
-0x0029	0x0029	#  )
-0x002A	0x002A	#  *
-0x002B	0x002B	#  +
-0x002C	0x002C	#  ,
-0x002D	0x002D	#  -
-0x002E	0x002E	#  .
-0x002F	0x002F	#  /
-0x0030	0x0030	#  0
-0x0031	0x0031	#  1
-0x0032	0x0032	#  2
-0x0033	0x0033	#  3
-0x0034	0x0034	#  4
-0x0035	0x0035	#  5
-0x0036	0x0036	#  6
-0x0037	0x0037	#  7
-0x0038	0x0038	#  8
-0x0039	0x0039	#  9
-0x003A	0x003A	#  :
-0x003B	0x003B	#  ;
-0x003C	0x003C	#  <
-0x003D	0x003D	#  =
-0x003E	0x003E	#  >
-0x003F	0x003F	#  ?
-0x0040	0x0040	#  @
-0x0041	0x0041	#  A
-0x0042	0x0042	#  B
-0x0043	0x0043	#  C
-0x0044	0x0044	#  D
-0x0045	0x0045	#  E
-0x0046	0x0046	#  F
-0x0047	0x0047	#  G
-0x0048	0x0048	#  H
-0x0049	0x0049	#  I
-0x004A	0x004A	#  J
-0x004B	0x004B	#  K
-0x004C	0x004C	#  L
-0x004D	0x004D	#  M
-0x004E	0x004E	#  N
-0x004F	0x004F	#  O
-0x0050	0x0050	#  P
-0x0051	0x0051	#  Q
-0x0052	0x0052	#  R
-0x0053	0x0053	#  S
-0x0054	0x0054	#  T
-0x0055	0x0055	#  U
-0x0056	0x0056	#  V
-0x0057	0x0057	#  W
-0x0058	0x0058	#  X
-0x0059	0x0059	#  Y
-0x005A	0x005A	#  Z
-0x005B	0x005B	#  [
-0x005C	0x005C	#  \
-0x005D	0x005D	#  ]
-0x005E	0x005E	#  ^
-0x005F	0x005F	#  _
-0x0060	0x0060	#  `
-0x0061	0x0061	#  a
-0x0062	0x0062	#  b
-0x0063	0x0063	#  c
-0x0064	0x0064	#  d
-0x0065	0x0065	#  e
-0x0066	0x0066	#  f
-0x0067	0x0067	#  g
-0x0068	0x0068	#  h
-0x0069	0x0069	#  i
-0x006A	0x006A	#  j
-0x006B	0x006B	#  k
-0x006C	0x006C	#  l
-0x006D	0x006D	#  m
-0x006E	0x006E	#  n
-0x006F	0x006F	#  o
-0x0070	0x0070	#  p
-0x0071	0x0071	#  q
-0x0072	0x0072	#  r
-0x0073	0x0073	#  s
-0x0074	0x0074	#  t
-0x0075	0x0075	#  u
-0x0076	0x0076	#  v
-0x0077	0x0077	#  w
-0x0078	0x0078	#  x
-0x0079	0x0079	#  y
-0x007A	0x007A	#  z
-0x007B	0x007B	#  {
-0x007C	0x007C	#  |
-0x007D	0x007D	#  }
-0x007E	0x007E	#  ~
-0x00A1	0x00A1	#  ¡
-0x00A2	0x00A2	#  ¢
-0x00A3	0x00A3	#  £
-0x00A4	0x0024	#  $
-0x00A5	0x00A5	#  ¥
-0x00A7	0x00A7	#  §
-0x00A9	0x2018	#  ‘
-0x00AA	0x201C	#  “
-0x00AB	0x00AB	#  «
-0x00AC	0x2190	#  ←
-0x00AD	0x2191	#  ↑
-0x00AE	0x2192	#  →
-0x00AF	0x2193	#  ↓
-0x00B0	0x00B0	#  °
-0x00B1	0x00B1	#  ±
-0x00B2	0x00B2	#  ²
-0x00B3	0x00B3	#  ³
-0x00B4	0x00D7	#  ×
-0x00B5	0x00B5	#  µ
-0x00B6	0x00B6	#  ¶
-0x00B7	0x00B7	#  ·
-0x00B8	0x00F7	#  ÷
-0x00B9	0x2019	#  ’
-0x00BA	0x201D	#  ”
-0x00BB	0x00BB	#  »
-0x00BC	0x00BC	#  ¼
-0x00BD	0x00BD	#  ½
-0x00BE	0x00BE	#  ¾
-0x00BF	0x00BF	#  ¿
-0x00C1	0x0300	#  ̀
-0x00C2	0x0301	#  ́
-0x00C3	0x0302	#  ̂
-0x00C4	0x0303	#  ̃
-0x00C5	0x0304	#  ̄
-0x00C6	0x0306	#  ̆
-0x00C7	0x0307	#  ̇
-0x00C8	0x0308	#  ̈
-0x00CA	0x030A	#  ̊
-0x00CB	0x0327	#  ̧
-0x00CC	0x0332	#  ̲
-0x00CD	0x030B	#  ̋
-0x00CE	0x0328	#  ̨
-0x00CF	0x030C	#  ̌
-0x00D0	0x2015	#  ―
-0x00D1	0x00B9	#  ¹
-0x00D2	0x00AE	#  ®
-0x00D3	0x00A9	#  ©
-0x00D4	0x2122	#  ™
-0x00D5	0x266A	#  ♪
-0x00DC	0x215B	#  ⅛
-0x00DD	0x215C	#  ⅜
-0x00DE	0x215D	#  ⅝
-0x00DF	0x215E	#  ⅞
-0x00E0	0x2126	#  Ω
-0x00E1	0x00C6	#  Æ
-0x00E2	0x00D0	#  Ð
-0x00E3	0x00AA	#  ª
-0x00E4	0x0126	#  Ħ
-0x00E5	0x0237	#  ȷ
-0x00E6	0x0132	#  IJ
-0x00E7	0x013F	#  Ŀ
-0x00E8	0x0141	#  Ł
-0x00E9	0x00D8	#  Ø
-0x00EA	0x0152	#  Œ
-0x00EB	0x00BA	#  º
-0x00EC	0x00DE	#  Þ
-0x00ED	0x0166	#  Ŧ
-0x00EE	0x014A	#  Ŋ
-0x00EF	0x0149	#  ʼn
-0x00F0	0x0138	#  ĸ
-0x00F1	0x00E6	#  æ
-0x00F2	0x0111	#  đ
-0x00F3	0x00F0	#  ð
-0x00F4	0x0127	#  ħ
-0x00F5	0x0131	#  ı
-0x00F6	0x0133	#  ij
-0x00F7	0x0140	#  ŀ
-0x00F8	0x0142	#  ł
-0x00F9	0x00F8	#  ø
-0x00FA	0x0153	#  œ
-0x00FB	0x00DF	#  ß
-0x00FC	0x00FE	#  þ
-0x00FD	0x0167	#  ŧ
-0x00FE	0x014B	#  ŋ
+0x0020	0x0020	#    SPACE
+0x0021	0x0021	#  ! EXCLAMATION MARK
+0x0022	0x0022	#  " QUOTATION MARK
+0x0023	0x0023	#  # NUMBER SIGN
+#    0x0024	0x00A4	#  ¤ CURRENCY SIGN
+0x0024	0x0024	#  $ DOLLAR SIGN
+0x0025	0x0025	#  % PERCENT SIGN
+0x0026	0x0026	#  & AMPERSAND
+0x0027	0x0027	#  ' APOSTROPHE
+0x0028	0x0028	#  ( LEFT PARENTHESIS
+0x0029	0x0029	#  ) RIGHT PARENTHESIS
+0x002A	0x002A	#  * ASTERISK
+0x002B	0x002B	#  + PLUS SIGN
+0x002C	0x002C	#  , COMMA
+0x002D	0x002D	#  - HYPHEN-MINUS
+0x002E	0x002E	#  . FULL STOP
+0x002F	0x002F	#  / SOLIDUS
+0x0030	0x0030	#  0 DIGIT ZERO
+0x0031	0x0031	#  1 DIGIT ONE
+0x0032	0x0032	#  2 DIGIT TWO
+0x0033	0x0033	#  3 DIGIT THREE
+0x0034	0x0034	#  4 DIGIT FOUR
+0x0035	0x0035	#  5 DIGIT FIVE
+0x0036	0x0036	#  6 DIGIT SIX
+0x0037	0x0037	#  7 DIGIT SEVEN
+0x0038	0x0038	#  8 DIGIT EIGHT
+0x0039	0x0039	#  9 DIGIT NINE
+0x003A	0x003A	#  : COLON
+0x003B	0x003B	#  ; SEMICOLON
+0x003C	0x003C	#  < LESS-THAN SIGN
+0x003D	0x003D	#  = EQUALS SIGN
+0x003E	0x003E	#  > GREATER-THAN SIGN
+0x003F	0x003F	#  ? QUESTION MARK
+0x0040	0x0040	#  @ COMMERCIAL AT
+0x0041	0x0041	#  A LATIN CAPITAL LETTER A
+0x0042	0x0042	#  B LATIN CAPITAL LETTER B
+0x0043	0x0043	#  C LATIN CAPITAL LETTER C
+0x0044	0x0044	#  D LATIN CAPITAL LETTER D
+0x0045	0x0045	#  E LATIN CAPITAL LETTER E
+0x0046	0x0046	#  F LATIN CAPITAL LETTER F
+0x0047	0x0047	#  G LATIN CAPITAL LETTER G
+0x0048	0x0048	#  H LATIN CAPITAL LETTER H
+0x0049	0x0049	#  I LATIN CAPITAL LETTER I
+0x004A	0x004A	#  J LATIN CAPITAL LETTER J
+0x004B	0x004B	#  K LATIN CAPITAL LETTER K
+0x004C	0x004C	#  L LATIN CAPITAL LETTER L
+0x004D	0x004D	#  M LATIN CAPITAL LETTER M
+0x004E	0x004E	#  N LATIN CAPITAL LETTER N
+0x004F	0x004F	#  O LATIN CAPITAL LETTER O
+0x0050	0x0050	#  P LATIN CAPITAL LETTER P
+0x0051	0x0051	#  Q LATIN CAPITAL LETTER Q
+0x0052	0x0052	#  R LATIN CAPITAL LETTER R
+0x0053	0x0053	#  S LATIN CAPITAL LETTER S
+0x0054	0x0054	#  T LATIN CAPITAL LETTER T
+0x0055	0x0055	#  U LATIN CAPITAL LETTER U
+0x0056	0x0056	#  V LATIN CAPITAL LETTER V
+0x0057	0x0057	#  W LATIN CAPITAL LETTER W
+0x0058	0x0058	#  X LATIN CAPITAL LETTER X
+0x0059	0x0059	#  Y LATIN CAPITAL LETTER Y
+0x005A	0x005A	#  Z LATIN CAPITAL LETTER Z
+0x005B	0x005B	#  [ LEFT SQUARE BRACKET
+0x005C	0x005C	#  \ REVERSE SOLIDUS
+0x005D	0x005D	#  ] RIGHT SQUARE BRACKET
+0x005E	0x005E	#  ^ CIRCUMFLEX ACCENT
+0x005F	0x005F	#  _ LOW LINE
+0x0060	0x0060	#  ` GRAVE ACCENT
+0x0061	0x0061	#  a LATIN SMALL LETTER A
+0x0062	0x0062	#  b LATIN SMALL LETTER B
+0x0063	0x0063	#  c LATIN SMALL LETTER C
+0x0064	0x0064	#  d LATIN SMALL LETTER D
+0x0065	0x0065	#  e LATIN SMALL LETTER E
+0x0066	0x0066	#  f LATIN SMALL LETTER F
+0x0067	0x0067	#  g LATIN SMALL LETTER G
+0x0068	0x0068	#  h LATIN SMALL LETTER H
+0x0069	0x0069	#  i LATIN SMALL LETTER I
+0x006A	0x006A	#  j LATIN SMALL LETTER J
+0x006B	0x006B	#  k LATIN SMALL LETTER K
+0x006C	0x006C	#  l LATIN SMALL LETTER L
+0x006D	0x006D	#  m LATIN SMALL LETTER M
+0x006E	0x006E	#  n LATIN SMALL LETTER N
+0x006F	0x006F	#  o LATIN SMALL LETTER O
+0x0070	0x0070	#  p LATIN SMALL LETTER P
+0x0071	0x0071	#  q LATIN SMALL LETTER Q
+0x0072	0x0072	#  r LATIN SMALL LETTER R
+0x0073	0x0073	#  s LATIN SMALL LETTER S
+0x0074	0x0074	#  t LATIN SMALL LETTER T
+0x0075	0x0075	#  u LATIN SMALL LETTER U
+0x0076	0x0076	#  v LATIN SMALL LETTER V
+0x0077	0x0077	#  w LATIN SMALL LETTER W
+0x0078	0x0078	#  x LATIN SMALL LETTER X
+0x0079	0x0079	#  y LATIN SMALL LETTER Y
+0x007A	0x007A	#  z LATIN SMALL LETTER Z
+0x007B	0x007B	#  { LEFT CURLY BRACKET
+0x007C	0x007C	#  | VERTICAL LINE
+0x007D	0x007D	#  } RIGHT CURLY BRACKET
+0x007E	0x007E	#  ~ TILDE
+0x00A1	0x00A1	#  ¡ INVERTED EXCLAMATION MARK
+0x00A2	0x00A2	#  ¢ CENT SIGN
+0x00A3	0x00A3	#  £ POUND SIGN
+0x00A4	0x0024	#  $ DOLLAR SIGN
+0x00A5	0x00A5	#  ¥ YEN SIGN
+0x00A7	0x00A7	#  § SECTION SIGN
+0x00A9	0x2018	#  ‘ LEFT SINGLE QUOTATION MARK
+0x00AA	0x201C	#  “ LEFT DOUBLE QUOTATION MARK
+0x00AB	0x00AB	#  « LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0x00AC	0x2190	#  ← LEFTWARDS ARROW
+0x00AD	0x2191	#  ↑ UPWARDS ARROW
+0x00AE	0x2192	#  → RIGHTWARDS ARROW
+0x00AF	0x2193	#  ↓ DOWNWARDS ARROW
+0x00B0	0x00B0	#  ° DEGREE SIGN
+0x00B1	0x00B1	#  ± PLUS-MINUS SIGN
+0x00B2	0x00B2	#  ² SUPERSCRIPT TWO
+0x00B3	0x00B3	#  ³ SUPERSCRIPT THREE
+0x00B4	0x00D7	#  × MULTIPLICATION SIGN
+0x00B5	0x00B5	#  µ MICRO SIGN
+0x00B6	0x00B6	#  ¶ PILCROW SIGN
+0x00B7	0x00B7	#  · MIDDLE DOT
+0x00B8	0x00F7	#  ÷ DIVISION SIGN
+0x00B9	0x2019	#  ’ RIGHT SINGLE QUOTATION MARK
+0x00BA	0x201D	#  ” RIGHT DOUBLE QUOTATION MARK
+0x00BB	0x00BB	#  » RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0x00BC	0x00BC	#  ¼ VULGAR FRACTION ONE QUARTER
+0x00BD	0x00BD	#  ½ VULGAR FRACTION ONE HALF
+0x00BE	0x00BE	#  ¾ VULGAR FRACTION THREE QUARTERS
+0x00BF	0x00BF	#  ¿ INVERTED QUESTION MARK
+0x00C1	0x0300	#  ̀ COMBINING GRAVE ACCENT
+0x00C2	0x0301	#  ́ COMBINING ACUTE ACCENT
+0x00C3	0x0302	#  ̂ COMBINING CIRCUMFLEX ACCENT
+0x00C4	0x0303	#  ̃ COMBINING TILDE
+0x00C5	0x0304	#  ̄ COMBINING MACRON
+0x00C6	0x0306	#  ̆ COMBINING BREVE
+0x00C7	0x0307	#  ̇ COMBINING DOT ABOVE
+0x00C8	0x0308	#  ̈ COMBINING DIAERESIS
+0x00CA	0x030A	#  ̊ COMBINING RING ABOVE
+0x00CB	0x0327	#  ̧ COMBINING CEDILLA
+0x00CC	0x0332	#  ̲ COMBINING LOW LINE
+0x00CD	0x030B	#  ̋ COMBINING DOUBLE ACUTE ACCENT
+0x00CE	0x0328	#  ̨ COMBINING OGONEK
+0x00CF	0x030C	#  ̌ COMBINING CARON
+0x00D0	0x2015	#  ― HORIZONTAL BAR
+0x00D1	0x00B9	#  ¹ SUPERSCRIPT ONE
+0x00D2	0x00AE	#  ® REGISTERED SIGN
+0x00D3	0x00A9	#  © COPYRIGHT SIGN
+0x00D4	0x2122	#  ™ TRADE MARK SIGN
+0x00D5	0x266A	#  ♪ EIGHTH NOTE
+0x00DC	0x215B	#  ⅛ VULGAR FRACTION ONE EIGHTH
+0x00DD	0x215C	#  ⅜ VULGAR FRACTION THREE EIGHTHS
+0x00DE	0x215D	#  ⅝ VULGAR FRACTION FIVE EIGHTHS
+0x00DF	0x215E	#  ⅞ VULGAR FRACTION SEVEN EIGHTHS
+0x00E0	0x2126	#  Ω OHM SIGN
+0x00E1	0x00C6	#  Æ LATIN CAPITAL LETTER AE
+0x00E2	0x00D0	#  Đ LATIN CAPITAL LETTER D WITH STROKE (Croatian) Also 0110 ?
+0x00E3	0x00AA	#  ª FEMININE ORDINAL INDICATOR
+0x00E4	0x0126	#  Ħ LATIN CAPITAL LETTER H WITH STROKE
+0x00E5	0x0237	#  ȷ LATIN SMALL LETTER DOTLESS J
+0x00E6	0x0132	#  IJ LATIN CAPITAL LIGATURE IJ
+0x00E7	0x013F	#  Ŀ LATIN CAPITAL LETTER L WITH MIDDLE DOT
+0x00E8	0x0141	#  Ł LATIN CAPITAL LETTER L WITH STROKE
+0x00E9	0x00D8	#  Ø LATIN CAPITAL LETTER O WITH STROKE
+0x00EA	0x0152	#  ΠLATIN CAPITAL LIGATURE OE
+0x00EB	0x00BA	#  º MASCULINE ORDINAL INDICATOR
+0x00EC	0x00DE	#  Þ LATIN CAPITAL LETTER THORN
+0x00ED	0x0166	#  Ŧ LATIN CAPITAL LETTER T WITH STROKE
+0x00EE	0x014A	#  Ŋ LATIN CAPITAL LETTER ENG
+0x00EF	0x0149	#  ʼn LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
+0x00F0	0x0138	#  ᴋ LATIN LETTER SMALL CAPITAL KRA (Greenlandic)
+0x00F1	0x00E6	#  æ LATIN SMALL LETTER AE
+0x00F2	0x0111	#  đ LATIN SMALL LETTER D WITH STROKE
+0x00F3	0x00F0	#  ð LATIN SMALL LETTER ETH
+0x00F4	0x0127	#  ħ LATIN SMALL LETTER H WITH STROKE
+0x00F5	0x0131	#  ı LATIN SMALL LETTER DOTLESS I
+0x00F6	0x0133	#  ij LATIN SMALL LIGATURE IJ
+0x00F7	0x0140	#  ŀ LATIN SMALL LETTER L WITH MIDDLE DOT
+0x00F8	0x0142	#  ł LATIN SMALL LETTER L WITH STROKE
+0x00F9	0x00F8	#  ø LATIN SMALL LETTER O WITH STROKE
+0x00FA	0x0153	#  œ LATIN SMALL LIGATURE OE
+0x00FB	0x00DF	#  ß LATIN SMALL LETTER SHARP S
+0x00FC	0x00FE	#  þ LATIN SMALL LETTER THORN
+0x00FD	0x0167	#  ŧ LATIN SMALL LETTER T WITH STROKE
+0x00FE	0x014B	#  ŋ LATIN SMALL LETTER ENG

unicode/xerox/XCCS-340=ARABIC.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     340 ARABIC
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             4-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,181 +22,180 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "340" ARABIC
-0xE025	0x066A	#  ٪
-0xE02C	0x060C	#  ،
-0xE02E	0x06D4	#  ۔
-0xE030	0x0660	#  ٠
-0xE031	0x0661	#  ١
-0xE032	0x0662	#  ٢
-0xE033	0x0663	#  ٣
-0xE034	0x0664	#  ٤
-0xE035	0x0665	#  ٥
-0xE036	0x0666	#  ٦
-0xE037	0x0667	#  ٧
-0xE038	0x0668	#  ٨
-0xE039	0x0669	#  ٩
-0xE03B	0x061B	#  ؛
-0xE03F	0x061F	#  ؟
-0xE041	0x0621	#  ء
-0xE042	0x0622	#  آ
-0xE043	0x0623	#  أ
-0xE044	0x0624	#  ؤ
-0xE045	0x0625	#  إ
-0xE046	0x0626	#  ئ
-0xE047	0x0627	#  ا
-0xE048	0x0628	#  ب
-0xE049	0x0629	#  ة
-0xE04A	0x062A	#  ت
-0xE04B	0x062B	#  ث
-0xE04C	0x062C	#  ج
-0xE04D	0x062D	#  ح
-0xE04E	0x062E	#  خ
-0xE04F	0x062F	#  د
-0xE050	0x0630	#  ذ
-0xE051	0x0631	#  ر
-0xE052	0x0632	#  ز
-0xE053	0x0633	#  س
-0xE054	0x0634	#  ش
-0xE055	0x0635	#  ص
-0xE056	0x0636	#  ض
-0xE057	0x0637	#  ط
-0xE058	0x0638	#  ظ
-0xE059	0x0639	#  ع
-0xE05A	0x063A	#  غ
-0xE060	0x0640	#  ـ
-0xE061	0x0641	#  ف
-0xE062	0x0642	#  ق
-0xE063	0x0643	#  ك
-0xE064	0x0644	#  ل
-0xE065	0x0645	#  م
-0xE066	0x0646	#  ن
-0xE067	0x0647	#  ه
-0xE068	0x0648	#  و
-0xE069	0x0649	#  ى
-0xE06A	0x064A	#  ي
-0xE06B	0x064B	#  ً
-0xE06C	0x064C	#  ٌ
-0xE06D	0x064D	#  ٍ
-0xE06E	0x064E	#  َ
-0xE06F	0x064F	#  ُ
-0xE070	0x0650	#  ِ
-0xE071	0x0651	#  ّ
-0xE072	0x0652	#  ْ
-0xE073	0x0670	#  ٰ
-0xE074	0x0671	#  ٱ
-0xE075	0x066B	#  ٫
-0xE076	0x066C	#  ٬
-0xE077	0x0657	#  ٗ
-0xE0A1	0x06A4	#  ڤ
-0xE0A2	0x067E	#  پ
-0xE0A3	0x0686	#  چ
-0xE0A4	0x0698	#  ژ
-0xE0A5	0x06AF	#  گ
-0xE0A6	0x06C0	#  ۀ
-0xE0A7	0x0679	#  ٹ
-0xE0A8	0x0688	#  ڈ
-0xE0A9	0x0691	#  ڑ
-0xE0AA	0x06BA	#  ں
-0xE0AB	0x06BE	#  ھ
-0xE0AC	0x06C1	#  ہ
-0xE0AD	0x06C3	#  ۃ
-0xE0AE	0x06C2	#  ۂ
-0xE0AF	0x06D2	#  ے
-0xE0B1	0x067C	#  ټ
-0xE0B2	0x0681	#  ځ
-0xE0B3	0x0685	#  څ
-0xE0B4	0x0689	#  ډ
-0xE0B5	0x0693	#  ړ
-0xE0B6	0x0696	#  ږ
-0xE0B7	0x069A	#  ښ
-0xE0B8	0x06BC	#  ڼ
-0xE0B9	0x06D0	#  ې
-0xE0BA	0x06CD	#  ۍ
-0xE0BB	0x0672	#  ٲ
-0xE0BC	0x0673	#  ٳ
-0xE0BD	0x06D3	#  ۓ
-0xE0BE	0x06D5	#  ە
-0xE0BF	0xFBD3	#  ﯓ
-0xE0C0	0x06C7	#  ۇ
-0xE0C1	0x06C6	#  ۆ
-0xE0C2	0x06C8	#  ۈ
-0xE0C3	0xFBDD	#  ﯝ
-0xE0C4	0x06CB	#  ۋ
-0xE0C5	0x06C5	#  ۅ
-0xE0C6	0x06C9	#  ۉ
-0xE0C7	0x0674	#  ٴ
-0xE0C8	0x0675	#  ٵ
-0xE0C9	0x0676	#  ٶ
-0xE0CA	0x0682	#  ڂ
-0xE0CB	0x0677	#  ٷ
-0xE0CC	0x0678	#  ٸ
-0xE0CD	0x067D	#  ٽ
-0xE0CE	0x068A	#  ڊ
-0xE0CF	0x068B	#  ڋ
-0xE0D0	0x06AB	#  ګ
-0xE0D1	0x068F	#  ڏ
-0xE0D2	0x0690	#  ڐ
-0xE0D3	0x06CC	#  ی
-0xE0D4	0x067B	#  ٻ
-0xE0D5	0x0680	#  ڀ
-0xE0D6	0x067A	#  ٺ
-0xE0D7	0x067F	#  ٿ
-0xE0D8	0x06A6	#  ڦ
-0xE0D9	0x0684	#  ڄ
-0xE0DA	0x0683	#  ڃ
-0xE0DB	0x0687	#  ڇ
-0xE0DC	0x068D	#  ڍ
-0xE0DD	0x068C	#  ڌ
-0xE0DE	0x068E	#  ڎ
-0xE0DF	0x06A9	#  ک
-0xE0E0	0x06B3	#  ڳ
-0xE0E1	0x06B1	#  ڱ
-0xE0E2	0x06BB	#  ڻ
-0xE0E3	0x0692	#  ڒ
-0xE0E4	0x0694	#  ڔ
-0xE0E5	0x0695	#  ڕ
-0xE0E6	0x0697	#  ڗ
-0xE0E7	0x0699	#  ڙ
-0xE0E8	0x069B	#  ڛ
-0xE0E9	0x069C	#  ڜ
-0xE0EA	0x069D	#  ڝ
-0xE0EB	0x069E	#  ڞ
-0xE0EC	0x069F	#  ڟ
-0xE0ED	0x06A0	#  ڠ
-0xE0EE	0x06A1	#  ڡ
-0xE0EF	0x06A2	#  ڢ
-0xE0F0	0x06A3	#  ڣ
-0xE0F1	0x06A5	#  ڥ
-0xE0F2	0x06A7	#  ڧ
-0xE0F3	0x06A8	#  ڨ
-0xE0F4	0x06AA	#  ڪ
-0xE0F5	0x06AC	#  ڬ
-0xE0F6	0x06AD	#  ڭ
-0xE0F8	0x06AE	#  ڮ
-0xE0F9	0x06B0	#  ڰ
-0xE0FA	0x06B2	#  ڲ
-0xE0FB	0x06B4	#  ڴ
-0xE0FC	0x200E	#  ‎
-0xE0FD	0x200F	#  ‏
-0xE0FE	0x200D	#  ‍
+#   "340" ARABIC
+0xE025	0x066A	#  ٪ ARABIC PERCENT SIGN
+0xE02C	0x060C	#  ، ARABIC COMMA
+0xE02E	0x06D4	#  ۔ ARABIC FULL STOP
+0xE030	0x0660	#  ٠ ARABIC-INDIC DIGIT ZERO
+0xE031	0x0661	#  ١ ARABIC-INDIC DIGIT ONE
+0xE032	0x0662	#  ٢ ARABIC-INDIC DIGIT TWO
+0xE033	0x0663	#  ٣ ARABIC-INDIC DIGIT THREE
+0xE034	0x0664	#  ٤ ARABIC-INDIC DIGIT FOUR
+0xE035	0x0665	#  ٥ ARABIC-INDIC DIGIT FIVE
+0xE036	0x0666	#  ٦ ARABIC-INDIC DIGIT SIX
+0xE037	0x0667	#  ٧ ARABIC-INDIC DIGIT SEVEN
+0xE038	0x0668	#  ٨ ARABIC-INDIC DIGIT EIGHT
+0xE039	0x0669	#  ٩ ARABIC-INDIC DIGIT NINE
+0xE03B	0x061B	#  ؛ ARABIC SEMICOLON
+0xE03F	0x061F	#  ؟ ARABIC QUESTION MARK
+0xE041	0x0621	#  ء ARABIC LETTER HAMZA
+0xE042	0x0622	#  آ ARABIC LETTER ALEF WITH MADDA ABOVE
+0xE043	0x0623	#  أ ARABIC LETTER ALEF WITH HAMZA ABOVE
+0xE044	0x0624	#  ؤ ARABIC LETTER WAW WITH HAMZA ABOVE
+0xE045	0x0625	#  إ ARABIC LETTER ALEF WITH HAMZA BELOW
+0xE046	0x0626	#  ئ ARABIC LETTER YEH WITH HAMZA ABOVE
+0xE047	0x0627	#  ا ARABIC LETTER ALEF
+0xE048	0x0628	#  ب ARABIC LETTER BEH
+0xE049	0x0629	#  ة ARABIC LETTER TEH MARBUTA
+0xE04A	0x062A	#  ت ARABIC LETTER TEH
+0xE04B	0x062B	#  ث ARABIC LETTER THEH
+0xE04C	0x062C	#  ج ARABIC LETTER JEEM
+0xE04D	0x062D	#  ح ARABIC LETTER HAH
+0xE04E	0x062E	#  خ ARABIC LETTER KHAH
+0xE04F	0x062F	#  د ARABIC LETTER DAL
+0xE050	0x0630	#  ذ ARABIC LETTER THAL
+0xE051	0x0631	#  ر ARABIC LETTER REH
+0xE052	0x0632	#  ز ARABIC LETTER ZAIN
+0xE053	0x0633	#  س ARABIC LETTER SEEN
+0xE054	0x0634	#  ش ARABIC LETTER SHEEN
+0xE055	0x0635	#  ص ARABIC LETTER SAD
+0xE056	0x0636	#  ض ARABIC LETTER DAD
+0xE057	0x0637	#  ط ARABIC LETTER TAH
+0xE058	0x0638	#  ظ ARABIC LETTER ZAH
+0xE059	0x0639	#  ع ARABIC LETTER AIN
+0xE05A	0x063A	#  غ ARABIC LETTER GHAIN
+0xE060	0x0640	#  ـ ARABIC TATWEEL
+0xE061	0x0641	#  ف ARABIC LETTER FEH
+0xE062	0x0642	#  ق ARABIC LETTER QAF
+0xE063	0x0643	#  ك ARABIC LETTER KAF
+0xE064	0x0644	#  ل ARABIC LETTER LAM
+0xE065	0x0645	#  م ARABIC LETTER MEEM
+0xE066	0x0646	#  ن ARABIC LETTER NOON
+0xE067	0x0647	#  ه ARABIC LETTER HEH
+0xE068	0x0648	#  و ARABIC LETTER WAW
+0xE069	0x0649	#  ى ARABIC LETTER ALEF MAKSURA
+0xE06A	0x064A	#  ي ARABIC LETTER YEH
+0xE06B	0x064B	#  ً ARABIC FATHATAN
+0xE06C	0x064C	#  ٌ ARABIC DAMMATAN
+0xE06D	0x064D	#  ٍ ARABIC KASRATAN
+0xE06E	0x064E	#  َ ARABIC FATHA
+0xE06F	0x064F	#  ُ ARABIC DAMMA
+0xE070	0x0650	#  ِ ARABIC KASRA
+0xE071	0x0651	#  ّ ARABIC SHADDA
+0xE072	0x0652	#  ْ ARABIC SUKUN
+0xE073	0x0670	#  ٰ ARABIC LETTER SUPERSCRIPT ALEF
+0xE074	0x0671	#  ٱ ARABIC LETTER ALEF WASLA
+0xE075	0x066B	#  ٫ ARABIC DECIMAL SEPARATOR
+0xE076	0x066C	#  ٬ ARABIC THOUSANDS SEPARATOR
+0xE0A1	0x06A4	#  ڤ ARABIC LETTER VEH
+0xE0A2	0x067E	#  پ ARABIC LETTER PEH
+0xE0A3	0x0686	#  چ ARABIC LETTER TCHEH
+0xE0A4	0x0698	#  ژ ARABIC LETTER JEH
+0xE0A5	0x06AF	#  گ ARABIC LETTER GAF
+0xE0A6	0x06C0	#  ۀ ARABIC LETTER HEH WITH YEH ABOVE
+0xE0A7	0x0679	#  ٹ ARABIC LETTER TTEH
+0xE0A8	0x0688	#  ڈ ARABIC LETTER DDAL
+0xE0A9	0x0691	#  ڑ ARABIC LETTER RREH
+0xE0AA	0x06BA	#  ں ARABIC LETTER NOON GHUNNA
+0xE0AB	0x06BE	#  ھ ARABIC LETTER HEH DOACHASHMEE
+0xE0AC	0x06C1	#  ہ ARABIC LETTER HEH GOAL
+0xE0AD	0x06C3	#  ۃ ARABIC LETTER TEH MARBUTA GOAL
+0xE0AE	0x06C2	#  ۂ ARABIC LETTER HEH GOAL WITH HAMZA ABOVE
+0xE0AF	0x06D2	#  ے ARABIC LETTER YEH BARREE
+0xE0B1	0x067C	#  ټ ARABIC LETTER TEH WITH RING
+0xE0B2	0x0681	#  ځ ARABIC LETTER HAH WITH HAMZA ABOVE
+0xE0B3	0x0685	#  څ ARABIC LETTER HAH WITH THREE DOTS ABOVE
+0xE0B4	0x0689	#  ډ ARABIC LETTER DAL WITH RING
+0xE0B5	0x0693	#  ړ ARABIC LETTER REH WITH RING
+0xE0B6	0x0696	#  ږ ARABIC LETTER REH WITH DOT BELOW AND DOT ABOVE
+0xE0B7	0x069A	#  ښ ARABIC LETTER SEEN WITH DOT BELOW AND DOT ABOVE
+0xE0B8	0x06BC	#  ڼ ARABIC LETTER NOON WITH RING
+0xE0B9	0x06D0	#  ې ARABIC LETTER E
+0xE0BA	0x06CD	#  ۍ ARABIC LETTER YEH WITH TAIL
+0xE0BB	0x0672	#  ٲ ARABIC LETTER ALEF WITH WAVY HAMZA ABOVE
+0xE0BC	0x0673	#  ٳ ARABIC LETTER ALEF WITH WAVY HAMZA BELOW
+0xE0BD	0x06D3	#  ۓ ARABIC LETTER YEH BARREE WITH HAMZA ABOVE
+0xE0BE	0x06D5	#  ە ARABIC LETTER AE
+0xE0BF	0xFBD3	#  ﯓ ARABIC LETTER NG ISOLATED FORM
+0xE0C0	0x06C7	#  ۇ ARABIC LETTER U
+0xE0C1	0x06C6	#  ۆ ARABIC LETTER OE
+0xE0C2	0x06C8	#  ۈ ARABIC LETTER YU
+0xE0C3	0xFBDD	#  ﯝ ARABIC LETTER U WITH HAMZA ABOVE ISOLATED FORM
+0xE0C4	0x06CB	#  ۋ ARABIC LETTER VE
+0xE0C5	0x06C5	#  ۅ ARABIC LETTER KIRGHIZ OE
+0xE0C6	0x06C9	#  ۉ ARABIC LETTER KIRGHIZ YU
+0xE0C7	0x0674	#  ٴ ARABIC LETTER HIGH HAMZA
+0xE0C8	0x0675	#  ٵ ARABIC LETTER HIGH HAMZA ALEF
+0xE0C9	0x0676	#  ٶ ARABIC LETTER HIGH HAMZA WAW
+0xE0CA	0x0682	#  ڂ ARABIC LETTER HAH WITH TWO DOTS VERTICAL ABOVE
+0xE0CB	0x0677	#  ٷ ARABIC LETTER U WITH HAMZA ABOVE
+0xE0CC	0x0678	#  ٸ ARABIC LETTER HIGH HAMZA YEH
+0xE0CD	0x067D	#  ٽ ARABIC LETTER TEH WITH THREE DOTS ABOVE DOWNWARDS
+0xE0CE	0x068A	#  ڊ ARABIC LETTER DAL WITH DOT BELOW
+0xE0CF	0x068B	#  ڋ ARABIC LETTER DAL WITH DOT BELOW AND SMALL TAH
+0xE0D0	0x06AB	#  ګ ARABIC LETTER KAF WITH RING
+0xE0D1	0x068F	#  ڏ ARABIC LETTER DAL WITH THREE DOTS ABOVE DOWNWARDS
+0xE0D2	0x0690	#  ڐ ARABIC LETTER DAL WITH FOUR DOTS ABOVE
+0xE0D3	0x06CC	#  ی ARABIC LETTER FARSI YEH
+0xE0D4	0x067B	#  ٻ ARABIC LETTER BEEH
+0xE0D5	0x0680	#  ڀ ARABIC LETTER BEHEH
+0xE0D6	0x067A	#  ٺ ARABIC LETTER TTEHEH
+0xE0D7	0x067F	#  ٿ ARABIC LETTER TEHEH
+0xE0D8	0x06A6	#  ڦ ARABIC LETTER PEHEH
+0xE0D9	0x0684	#  ڄ ARABIC LETTER DYEH
+0xE0DA	0x0683	#  ڃ ARABIC LETTER NYEH
+0xE0DB	0x0687	#  ڇ ARABIC LETTER TCHEHEH
+0xE0DC	0x068D	#  ڍ ARABIC LETTER DDAHAL
+0xE0DD	0x068C	#  ڌ ARABIC LETTER DAHAL
+0xE0DE	0x068E	#  ڎ ARABIC LETTER DUL
+0xE0DF	0x06A9	#  ک ARABIC LETTER KEHEH
+0xE0E0	0x06B3	#  ڳ ARABIC LETTER GUEH
+0xE0E1	0x06B1	#  ڱ ARABIC LETTER NGOEH
+0xE0E2	0x06BB	#  ڻ ARABIC LETTER RNOON
+0xE0E3	0x0692	#  ڒ ARABIC LETTER REH WITH SMALL V
+0xE0E4	0x0694	#  ڔ ARABIC LETTER REH WITH DOT BELOW
+0xE0E5	0x0695	#  ڕ ARABIC LETTER REH WITH SMALL V BELOW
+0xE0E6	0x0697	#  ڗ ARABIC LETTER REH WITH TWO DOTS ABOVE
+0xE0E7	0x0699	#  ڙ ARABIC LETTER REH WITH FOUR DOTS ABOVE
+0xE0E8	0x069B	#  ڛ ARABIC LETTER SEEN WITH THREE DOTS BELOW
+0xE0E9	0x069C	#  ڜ ARABIC LETTER SEEN WITH THREE DOTS BELOW AND THREE DOTS ABOVE
+0xE0EA	0x069D	#  ڝ ARABIC LETTER SAD WITH TWO DOTS BELOW
+0xE0EB	0x069E	#  ڞ ARABIC LETTER SAD WITH THREE DOTS ABOVE
+0xE0EC	0x069F	#  ڟ ARABIC LETTER TAH WITH THREE DOTS ABOVE
+0xE0ED	0x06A0	#  ڠ ARABIC LETTER AIN WITH THREE DOTS ABOVE
+0xE0EE	0x06A1	#  ڡ ARABIC LETTER DOTLESS FEH
+0xE0EF	0x06A2	#  ڢ ARABIC LETTER FEH WITH DOT MOVED BELOW
+0xE0F0	0x06A3	#  ڣ ARABIC LETTER FEH WITH DOT BELOW
+0xE0F1	0x06A5	#  ڥ ARABIC LETTER FEH WITH THREE DOTS BELOW
+0xE0F2	0x06A7	#  ڧ ARABIC LETTER QAF WITH DOT ABOVE
+0xE0F3	0x06A8	#  ڨ ARABIC LETTER QAF WITH THREE DOTS ABOVE
+0xE0F4	0x06AA	#  ڪ ARABIC LETTER SWASH KAF
+0xE0F5	0x06AC	#  ڬ ARABIC LETTER KAF WITH DOT ABOVE
+0xE0F6	0x06AD	#  ڭ ARABIC LETTER NG
+0xE0F8	0x06AE	#  ڮ ARABIC LETTER KAF WITH THREE DOTS BELOW
+0xE0F9	0x06B0	#  ڰ ARABIC LETTER GAF WITH RING
+0xE0FA	0x06B2	#  ڲ ARABIC LETTER GAF WITH TWO DOTS BELOW
+0xE0FB	0x06B4	#  ڴ ARABIC LETTER GAF WITH THREE DOTS ABOVE
+0xE0FC	0x200E	#  ‎ LEFT-TO-RIGHT MARK
+0xE0FD	0x200F	#  ‏ RIGHT-TO-LEFT MARK
+0xE0FE	0x200D	#  ‍ ZERO WIDTH JOINER

unicode/xerox/XCCS-341=HEBREW.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     341 HEBREW
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             4-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,116 +22,123 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "341" HEBREW
-0xE140	0x05D0	#  א
-0xE141	0x05D1	#  ב
-0xE142	0x05D2	#  ג
-0xE143	0x05D3	#  ד
-0xE144	0x05D4	#  ה
-0xE145	0x05D5	#  ו
-0xE146	0x05D6	#  ז
-0xE147	0x05D7	#  ח
-0xE148	0x05D8	#  ט
-0xE149	0x05D9	#  י
-0xE14A	0x05DA	#  ך
-0xE14B	0x05DB	#  כ
-0xE14C	0x05DC	#  ל
-0xE14D	0x05DD	#  ם
-0xE14E	0x05DE	#  מ
-0xE14F	0x05DF	#  ן
-0xE150	0x05E0	#  נ
-0xE151	0x05E1	#  ס
-0xE152	0x05E2	#  ע
-0xE153	0x05E3	#  ף
-0xE154	0x05E4	#  פ
-0xE155	0x05E5	#  ץ
-0xE156	0x05E6	#  צ
-0xE157	0x05E7	#  ק
-0xE158	0x05E8	#  ר
-0xE159	0x05E9	#  ש
-0xE15A	0x05EA	#  ת
-0xE15B	0xFB31	#  בּ
-0xE15C	0xFB3B	#  כּ
-0xE15D	0xFB44	#  פּ
-0xE15E	0xFB2A	#  שׁ
-0xE15F	0xFB2B	#  שׂ
-0xE160	0xFB2C	#  שּׁ
-0xE161	0xFB2D	#  שּׂ
-0xE162	0xFB2E	#  אַ
-0xE163	0xFB2F	#  אָ
-0xE164	0xFB4B	#  וֹ
-0xE165	0xFB4C	#  בֿ
-0xE166	0xFB4D	#  כֿ
-0xE167	0xFB4E	#  פֿ
-0xE168	0xFB4F	#  ﭏ
-0xE169	0xFB1F	#  ײַ
-0xE16A	0xFB20	#  ﬠ
-0xE16B	0xFB21	#  ﬡ
-0xE16C	0xFB22	#  ﬢ
-0xE16D	0xFB23	#  ﬣ
-0xE16E	0xFB24	#  ﬤ
-0xE16F	0xFB25	#  ﬥ
-0xE170	0xFB26	#  ﬦ
-0xE171	0xFB27	#  ﬧ
-0xE172	0xFB28	#  ﬨ
-0xE173	0xFB29	#  ﬩
-0xE174	0x05F0	#  װ
-0xE175	0x05F1	#  ױ
-0xE176	0x05F2	#  ײ
-0xE177	0xFB30	#  אּ
-0xE178	0xFB32	#  גּ
-0xE179	0xFB33	#  דּ
-0xE17A	0xFB34	#  הּ
-0xE17B	0xFB35	#  וּ
-0xE17C	0xFB36	#  זּ
-0xE17D	0xFB38	#  טּ
-0xE17E	0xFB39	#  יּ
-0xE1A1	0xFB3A	#  ךּ
-0xE1A2	0xFB3C	#  לּ
-0xE1A3	0xFB3E	#  מּ
-0xE1A4	0xFB40	#  נּ
-0xE1A5	0xFB41	#  סּ
-0xE1A6	0xFB43	#  ףּ
-0xE1A7	0xFB46	#  צּ
-0xE1A8	0xFB47	#  קּ
-0xE1A9	0xFB48	#  רּ
-0xE1AA	0xFB49	#  שּ
-0xE1AB	0xFB4A	#  תּ
-0xE1C1	0x05B4	#  ִ
-0xE1C2	0x05B5	#  ֵ
-0xE1C3	0x05B6	#  ֶ
-0xE1C4	0x05BB	#  ֻ
-0xE1C5	0x05B8	#  ָ
-0xE1C6	0x05B7	#  ַ
-0xE1C7	0x05B0	#  ְ
-0xE1C8	0x05B2	#  ֲ
-0xE1C9	0x05B1	#  ֱ
-0xE1CA	0x05B3	#  ֳ
-0xE1CB	0x05C2	#  ׂ
-0xE1CC	0x05C1	#  ׁ
-0xE1CE	0x05B9	#  ֹ
-0xE1CF	0x05BC	#  ּ
-0xE1EF	0x05BD	#  ֽ
-0xE1F0	0xFB1E	#  ﬞ
-0xE1F1	0x05BF	#  ֿ
-0xE1F2	0x05C0	#  ׀
+#   "341" HEBREW
+0xE122	0x059E	#  ֞ HEBREW ACCENT GERSHAYIM
+0xE124	0x20AA	#  ₪ NEW SHEQEL SIGN
+0xE127	0x059C	#  ֜ HEBREW ACCENT GERESH
+0xE12C	0x002C	#  , COMMA
+0xE12D	0x2011	#  ‑ NON-BREAKING HYPHEN
+0xE13A	0x05C3	#  ׃ HEBREW PUNCTUATION SOF PASUQ
+0xE13B	0x003B	#  ; SEMICOLON
+0xE140	0x05D0	#  א HEBREW LETTER ALEF
+0xE141	0x05D1	#  ב HEBREW LETTER BET
+0xE142	0x05D2	#  ג HEBREW LETTER GIMEL
+0xE143	0x05D3	#  ד HEBREW LETTER DALET
+0xE144	0x05D4	#  ה HEBREW LETTER HE
+0xE145	0x05D5	#  ו HEBREW LETTER VAV
+0xE146	0x05D6	#  ז HEBREW LETTER ZAYIN
+0xE147	0x05D7	#  ח HEBREW LETTER HET
+0xE148	0x05D8	#  ט HEBREW LETTER TET
+0xE149	0x05D9	#  י HEBREW LETTER YOD
+0xE14A	0x05DA	#  ך HEBREW LETTER FINAL KAF
+0xE14B	0x05DB	#  כ HEBREW LETTER KAF
+0xE14C	0x05DC	#  ל HEBREW LETTER LAMED
+0xE14D	0x05DD	#  ם HEBREW LETTER FINAL MEM
+0xE14E	0x05DE	#  מ HEBREW LETTER MEM
+0xE14F	0x05DF	#  ן HEBREW LETTER FINAL NUN
+0xE150	0x05E0	#  נ HEBREW LETTER NUN
+0xE151	0x05E1	#  ס HEBREW LETTER SAMEKH
+0xE152	0x05E2	#  ע HEBREW LETTER AYIN
+0xE153	0x05E3	#  ף HEBREW LETTER FINAL PE
+0xE154	0x05E4	#  פ HEBREW LETTER PE
+0xE155	0x05E5	#  ץ HEBREW LETTER FINAL TSADI
+0xE156	0x05E6	#  צ HEBREW LETTER TSADI
+0xE157	0x05E7	#  ק HEBREW LETTER QOF
+0xE158	0x05E8	#  ר HEBREW LETTER RESH
+0xE159	0x05E9	#  ש HEBREW LETTER SHIN
+0xE15A	0x05EA	#  ת HEBREW LETTER TAV
+0xE15B	0xFB31	#  בּ HEBREW LETTER BET WITH DAGESH
+0xE15C	0xFB3B	#  כּ HEBREW LETTER KAF WITH DAGESH
+0xE15D	0xFB44	#  פּ HEBREW LETTER PE WITH DAGESH
+0xE15E	0xFB2A	#  שׁ HEBREW LETTER SHIN WITH SHIN DOT
+0xE15F	0xFB2B	#  שׂ HEBREW LETTER SHIN WITH SIN DOT
+0xE160	0xFB2C	#  שּׁ HEBREW LETTER SHIN WITH DAGESH AND SHIN DOT
+0xE161	0xFB2D	#  שּׂ HEBREW LETTER SHIN WITH DAGESH AND SIN DOT
+0xE162	0xFB2E	#  אַ HEBREW LETTER ALEF WITH PATAH
+0xE163	0xFB2F	#  אָ HEBREW LETTER ALEF WITH QAMATS
+0xE164	0xFB4B	#  וֹ HEBREW LETTER VAV WITH HOLAM
+0xE165	0xFB4C	#  בֿ HEBREW LETTER BET WITH RAFE
+0xE166	0xFB4D	#  כֿ HEBREW LETTER KAF WITH RAFE
+0xE167	0xFB4E	#  פֿ HEBREW LETTER PE WITH RAFE
+0xE168	0xFB4F	#  ﭏ HEBREW LIGATURE ALEF LAMED
+0xE169	0xFB1F	#  ײַ HEBREW LIGATURE YIDDISH YOD YOD PATAH
+0xE16A	0xFB20	#  ﬠ HEBREW LETTER ALTERNATIVE AYIN
+0xE16B	0xFB21	#  ﬡ HEBREW LETTER WIDE ALEF
+0xE16C	0xFB22	#  ﬢ HEBREW LETTER WIDE DALET
+0xE16D	0xFB23	#  ﬣ HEBREW LETTER WIDE HE
+0xE16E	0xFB24	#  ﬤ HEBREW LETTER WIDE KAF
+0xE16F	0xFB25	#  ﬥ HEBREW LETTER WIDE LAMED
+0xE170	0xFB26	#  ﬦ HEBREW LETTER WIDE FINAL MEM
+0xE171	0xFB27	#  ﬧ HEBREW LETTER WIDE RESH
+0xE172	0xFB28	#  ﬨ HEBREW LETTER WIDE TAV
+0xE173	0xFB29	#  ﬩ HEBREW LETTER ALTERNATIVE PLUS SIGN
+0xE174	0x05F0	#  װ HEBREW LIGATURE YIDDISH DOUBLE VAV
+0xE175	0x05F1	#  ױ HEBREW LIGATURE YIDDISH VAV YOD
+0xE176	0x05F2	#  ײ HEBREW LIGATURE YIDDISH DOUBLE YOD
+0xE177	0xFB30	#  אּ HEBREW LETTER ALEF WITH MAPIQ
+0xE178	0xFB32	#  גּ HEBREW LETTER GIMEL WITH DAGESH
+0xE179	0xFB33	#  דּ HEBREW LETTER DALET WITH DAGESH
+0xE17A	0xFB34	#  הּ HEBREW LETTER HE WITH MAPIQ
+0xE17B	0xFB35	#  וּ HEBREW LETTER VAV WITH DAGESH
+0xE17C	0xFB36	#  זּ HEBREW LETTER ZAYIN WITH DAGESH
+0xE17D	0xFB38	#  טּ HEBREW LETTER TET WITH DAGESH
+0xE17E	0xFB39	#  יּ HEBREW LETTER YOD WITH DAGESH
+0xE1A1	0xFB3A	#  ךּ HEBREW LETTER FINAL KAF WITH DAGESH
+0xE1A2	0xFB3C	#  לּ HEBREW LETTER LAMED WITH DAGESH
+0xE1A3	0xFB3E	#  מּ HEBREW LETTER MEM WITH DAGESH
+0xE1A4	0xFB40	#  נּ HEBREW LETTER NUN WITH DAGESH
+0xE1A5	0xFB41	#  סּ HEBREW LETTER SAMEKH WITH DAGESH
+0xE1A6	0xFB43	#  ףּ HEBREW LETTER FINAL PE WITH DAGESH
+0xE1A7	0xFB46	#  צּ HEBREW LETTER TSADI WITH DAGESH
+0xE1A8	0xFB47	#  קּ HEBREW LETTER QOF WITH DAGESH
+0xE1A9	0xFB48	#  רּ HEBREW LETTER RESH WITH DAGESH
+0xE1AA	0xFB49	#  שּ HEBREW LETTER SHIN WITH DAGESH
+0xE1AB	0xFB4A	#  תּ HEBREW LETTER TAV WITH DAGESH
+0xE1C1	0x05B4	#  ִ HEBREW POINT HIRIQ
+0xE1C2	0x05B5	#  ֵ HEBREW POINT TSERE
+0xE1C3	0x05B6	#  ֶ HEBREW POINT SEGOL
+0xE1C4	0x05BB	#  ֻ HEBREW POINT QUBUTS
+0xE1C5	0x05B8	#  ָ HEBREW POINT QAMATS
+0xE1C6	0x05B7	#  ַ HEBREW POINT PATAH
+0xE1C7	0x05B0	#  ְ HEBREW POINT SHEVA
+0xE1C8	0x05B2	#  ֲ HEBREW POINT HATAF PATAH
+0xE1C9	0x05B1	#  ֱ HEBREW POINT HATAF SEGOL
+0xE1CA	0x05B3	#  ֳ HEBREW POINT HATAF QAMATS
+0xE1CB	0x05C2	#  ׂ HEBREW POINT SIN DOT
+0xE1CC	0x05C1	#  ׁ HEBREW POINT SHIN DOT
+0xE1CE	0x05B9	#  ֹ HEBREW POINT HOLAM
+0xE1CF	0x05BC	#  ּ HEBREW POINT DAGESH OR MAPIQ
+0xE1EF	0x05BD	#  ֽ HEBREW POINT METEG
+0xE1F0	0xFB1E	#  ﬞ HEBREW POINT JUDEO-SPANISH VARIKA
+0xE1F1	0x05BF	#  ֿ HEBREW POINT RAFE
+0xE1F2	0x05C0	#  ׀ HEBREW PUNCTUATION PASEQ

unicode/xerox/XCCS-342=IPA.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     342 IPA
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             4-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,45 +22,198 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "342" IPA
-0xE2DB	0x029D	#  ʝ
-0xE2DC	0x028E	#  ʎ
-0xE2DD	0x014B	#  ŋ
-0xE2DE	0x006B	#  k
-0xE2DF	0x0261	#  ɡ
-0xE2E0	0x0078	#  x
-0xE2E1	0x0263	#  ɣ
-0xE2E2	0x0270	#  ɰ
-0xE2E3	0x0260	#  ɠ
-0xE2E4	0x0274	#  ɴ
-0xE2E5	0x019E	#  ƞ
-0xE2E6	0x0071	#  q
-0xE2E7	0x0262	#  ɢ
-0xE2E8	0x03C7	#  χ
-0xE2E9	0x0281	#  ʁ
-0xE2EA	0x0280	#  ʀ
-0xE2EB	0x0127	#  ħ
-0xE2EC	0x0295	#  ʕ
-0xE2ED	0x0294	#  ʔ
-0xE2EE	0x0068	#  h
-0xE2EF	0x0266	#  ɦ
+#   "342" IPA
+0xE221	0x0308	#  ̈ COMBINING DIAERESIS
+0xE222	0x0303	#  ̃ COMBINING TILDE
+0xE223	0x0306	#  ̆ COMBINING BREVE
+0xE224	0x0307	#  ̇ COMBINING DOT ABOVE
+0xE225	0x0361	#  ͡ COMBINING DOUBLE INVERTED BREVE
+0xE226	0x0334	#  ̴ COMBINING TILDE OVERLAY
+0xE227	0x0321	#  ̡ COMBINING PALATALIZED HOOK BELOW
+0xE228	0x0322	#  ̢ COMBINING RETROFLEX HOOK BELOW
+0xE229	0x0325	#  ̥ COMBINING RING BELOW
+0xE22A	0x032C	#  ̬ COMBINING CARON BELOW
+0xE22B	0x0324	#  ̤ COMBINING DIAERESIS BELOW
+0xE22C	0x032A	#  ̪ COMBINING BRIDGE BELOW
+0xE22D	0x032B	#  ̫ COMBINING INVERTED DOUBLE ARCH BELOW
+0xE22E	0x0329	#  ̩ COMBINING VERTICAL LINE BELOW
+0xE22F	0x031D	#  ̝ COMBINING UP TACK BELOW
+0xE230	0x0323	#  ̣ COMBINING DOT BELOW
+0xE231	0x031E	#  ̞ COMBINING DOWN TACK BELOW
+0xE232	0x031C	#  ̜ COMBINING LEFT HALF RING BELOW
+0xE233	0x031F	#  ̟ COMBINING PLUS SIGN BELOW
+0xE234	0x0320	#  ̠ COMBINING MINUS SIGN BELOW
+0xE235	0x035C	#  ͜ COMBINING DOUBLE BREVE BELOW
+0xE236	0x02D4	#  ˔ MODIFIER LETTER UP TACK
+0xE237	0x02D5	#  ˕ MODIFIER LETTER DOWN TACK
+0xE238	0x0020 0x031F	#   ̟ SPACE; COMBINING PLUS SIGN BELOW
+0xE239	0x0020 0x0320	#   ̠ SPACE; COMBINING MINUS SIGN BELOW
+0xE23A	0x02D0	#  ː MODIFIER LETTER TRIANGULAR COLON
+0xE23B	0x02D1	#  ˑ MODIFIER LETTER HALF TRIANGULAR COLON
+0xE23C	0x0339	#  ̹ COMBINING RIGHT HALF RING BELOW
+0xE23D	0x031C	#  ̜ COMBINING LEFT HALF RING BELOW
+0xE23E	0x02C8	#  ˈ MODIFIER LETTER VERTICAL LINE
+0xE23F	0x02CC	#  ˌ MODIFIER LETTER LOW VERTICAL LINE
+0xE240	0x0304	#  ̄ COMBINING MACRON
+0xE241	0x0331	#  ̱ COMBINING MACRON BELOW
+0xE242	0x0301	#  ́ COMBINING ACUTE ACCENT
+0xE243	0x0317	#  ̗ COMBINING ACUTE ACCENT BELOW
+0xE244	0x0300	#  ̀ COMBINING GRAVE ACCENT
+0xE245	0x0316	#  ̖ COMBINING GRAVE ACCENT BELOW
+0xE246	0x0302	#  ̂ COMBINING CIRCUMFLEX ACCENT
+0xE247	0x030C	#  ̌ COMBINING CARON
+0xE248	0x0314	#  ̔ COMBINING REVERSED COMMA ABOVE
+0xE249	0x0313	#  ̓ COMBINING COMMA ABOVE
+0xE24A	0x02BE	#  ʾ MODIFIER LETTER RIGHT HALF RING
+0xE251	0x0069	#  i LATIN SMALL LETTER I
+0xE252	0x0079	#  y LATIN SMALL LETTER Y
+0xE253	0x0269	#  ɩ LATIN SMALL LETTER IOTA
+0xE254	0x026A	#  ɪ LATIN LETTER SMALL CAPITAL I
+0xE255	0x028F	#  ʏ LATIN LETTER SMALL CAPITAL Y
+0xE256	0x0065	#  e LATIN SMALL LETTER E
+0xE257	0x00F8	#  ø LATIN SMALL LETTER O WITH STROKE
+0xE258	0x025B	#  ɛ LATIN SMALL LETTER OPEN E
+0xE259	0x0153	#  œ LATIN SMALL LIGATURE OE
+0xE25A	0x00E6	#  æ LATIN SMALL LETTER AE
+0xE25B	0x0061	#  a LATIN SMALL LETTER A
+0xE25C	0x0276	#  ɶ LATIN LETTER SMALL CAPITAL OE
+0xE25D	0x0268	#  ɨ LATIN SMALL LETTER I WITH STROKE
+0xE25E	0x0289	#  ʉ LATIN SMALL LETTER U BAR
+0xE25F	0x0259	#  ə LATIN SMALL LETTER SCHWA
+0xE260	0x025A	#  ɚ LATIN SMALL LETTER SCHWA WITH HOOK
+0xE261	0x0275	#  ɵ LATIN SMALL LETTER BARRED O
+0xE262	0x025C	#  ɜ LATIN SMALL LETTER REVERSED OPEN E
+0xE263	0x0250	#  ɐ LATIN SMALL LETTER TURNED A
+0xE264	0x026F	#  ɯ LATIN SMALL LETTER TURNED M
+0xE265	0x0075	#  u LATIN SMALL LETTER U
+0xE266	0x0277	#  ɷ LATIN SMALL LETTER CLOSED OMEGA
+0xE267	0x028A	#  ʊ LATIN SMALL LETTER UPSILON
+0xE268	0x0264	#  ɤ LATIN SMALL LETTER RAMS HORN
+0xE269	0x006F	#  o LATIN SMALL LETTER O
+0xE26A	0x028C	#  ʌ LATIN SMALL LETTER TURNED V
+0xE26B	0x0254	#  ɔ LATIN SMALL LETTER OPEN O
+0xE26C	0x0251	#  ɑ LATIN SMALL LETTER ALPHA
+0xE26D	0x0252	#  ɒ LATIN SMALL LETTER TURNED ALPHA
+0xE26E	0x0258	#  ɘ LATIN SMALL LETTER REVERSED E
+0xE26F	0x025D	#  ɝ LATIN SMALL LETTER REVERSED OPEN E WITH HOOK
+0xE270	0x025E	#  ɞ LATIN SMALL LETTER CLOSED REVERSED OPEN E
+0xE271	0x027F	#  ɿ LATIN SMALL LETTER REVERSED R WITH FISHHOOK
+0xE272	0x0285	#  ʅ LATIN SMALL LETTER SQUAT REVERSED ESH
+0xE273	0x029A	#  ʚ LATIN SMALL LETTER CLOSED OPEN E
+0xE27C	0x0284	#  ʄ LATIN SMALL LETTER DOTLESS J WITH STROKE AND HOOK
+0xE27D	0x026B	#  ɫ LATIN SMALL LETTER L WITH MIDDLE TILDE
+0xE27E	0x0260	#  ɠ LATIN SMALL LETTER G WITH HOOK
+0xE2A1	0x006D	#  m LATIN SMALL LETTER M
+0xE2A2	0x0070	#  p LATIN SMALL LETTER P
+0xE2A3	0x0062	#  b LATIN SMALL LETTER B
+0xE2A4	0x0278	#  ɸ LATIN SMALL LETTER PHI
+0xE2A5	0x03B2	#  β GREEK SMALL LETTER BETA
+0xE2A6	0x0265	#  ɥ LATIN SMALL LETTER TURNED H
+0xE2A7	0x028D	#  ʍ LATIN SMALL LETTER TURNED W
+0xE2A8	0x0077	#  w LATIN SMALL LETTER W
+0xE2A9	0x0253	#  ɓ LATIN SMALL LETTER B WITH HOOK
+0xE2AA	0x0298	#  ʘ LATIN LETTER BILABIAL CLICK
+0xE2AB	0x0271	#  ɱ LATIN SMALL LETTER M WITH HOOK
+0xE2AC	0x0066	#  f LATIN SMALL LETTER F
+0xE2AD	0x0076	#  v LATIN SMALL LETTER V
+0xE2AE	0x028B	#  ʋ LATIN SMALL LETTER V WITH HOOK
+0xE2AF	0x006E	#  n LATIN SMALL LETTER N
+0xE2B0	0x0074	#  t LATIN SMALL LETTER T
+0xE2B1	0x0064	#  d LATIN SMALL LETTER D
+0xE2B2	0x03B8	#  θ GREEK SMALL LETTER THETA
+0xE2B3	0x00F0	#  ð LATIN SMALL LETTER ETH
+0xE2B4	0x01BE	#  ƾ LATIN LETTER INVERTED GLOTTAL STOP WITH STROKE
+0xE2B5	0x01BB	#  ƻ LATIN LETTER TWO WITH STROKE
+0xE2B6	0x0073	#  s LATIN SMALL LETTER S
+0xE2B7	0x007A	#  z LATIN SMALL LETTER Z
+0xE2B8	0x03C3	#  σ GREEK SMALL LETTER SIGMA
+0xE2B9	0x018D	#  ƍ LATIN SMALL LETTER TURNED DELTA
+0xE2BA	0x0279	#  ɹ LATIN SMALL LETTER TURNED R
+0xE2BB	0x026C	#  ɬ LATIN SMALL LETTER L WITH BELT
+0xE2BC	0x026E	#  ɮ LATIN SMALL LETTER LEZH
+0xE2BD	0x006C	#  l LATIN SMALL LETTER L
+0xE2BE	0x027C	#  ɼ LATIN SMALL LETTER R WITH LONG LEG
+0xE2BF	0x027A	#  ɺ LATIN SMALL LETTER TURNED R WITH LONG LEG
+0xE2C0	0x0072	#  r LATIN SMALL LETTER R
+0xE2C1	0x027E	#  ɾ LATIN SMALL LETTER R WITH FISHHOOK
+0xE2C2	0x0257	#  ɗ LATIN SMALL LETTER D WITH HOOK
+0xE2C3	0x0287	#  ʇ LATIN SMALL LETTER TURNED T
+0xE2C4	0x0297	#  ʗ LATIN LETTER STRETCHED C
+0xE2C5	0x0296	#  ʖ LATIN LETTER INVERTED GLOTTAL STOP
+0xE2C6	0x0273	#  ɳ LATIN SMALL LETTER N WITH RETROFLEX HOOK
+0xE2C7	0x0288	#  ʈ LATIN SMALL LETTER T WITH RETROFLEX HOOK
+0xE2C8	0x0256	#  ɖ LATIN SMALL LETTER D WITH TAIL
+0xE2C9	0x0282	#  ʂ LATIN SMALL LETTER S WITH HOOK
+0xE2CA	0x0290	#  ʐ LATIN SMALL LETTER Z WITH RETROFLEX HOOK
+0xE2CB	0x027B	#  ɻ LATIN SMALL LETTER TURNED R WITH HOOK
+0xE2CC	0x026D	#  ɭ LATIN SMALL LETTER L WITH RETROFLEX HOOK
+0xE2CD	0x027D	#  ɽ LATIN SMALL LETTER R WITH TAIL
+0xE2CE	0x0255	#  ɕ LATIN SMALL LETTER C WITH CURL
+0xE2CF	0x0291	#  ʑ LATIN SMALL LETTER Z WITH CURL
+0xE2D0	0x0283	#  ʃ LATIN SMALL LETTER ESH
+0xE2D1	0x0292	#  ʒ LATIN SMALL LETTER EZH
+0xE2D2	0x0286	#  ʆ LATIN SMALL LETTER ESH WITH CURL
+0xE2D3	0x0293	#  ʓ LATIN SMALL LETTER EZH WITH CURL
+0xE2D4	0x01AA	#  ƪ LATIN LETTER REVERSED ESH LOOP
+0xE2D5	0x01BA	#  ƺ LATIN SMALL LETTER EZH WITH TAIL
+0xE2D6	0x0267	#  ɧ LATIN SMALL LETTER HENG WITH HOOK
+0xE2D7	0x0272	#  ɲ LATIN SMALL LETTER N WITH LEFT HOOK
+0xE2D8	0x0063	#  c LATIN SMALL LETTER C
+0xE2D9	0x025F	#  ɟ LATIN SMALL LETTER DOTLESS J WITH STROKE
+0xE2DA	0x00E7	#  ç LATIN SMALL LETTER C WITH CEDILLA
+0xE2DB	0x029D	#  ʝ LATIN SMALL LETTER J WITH CROSSED-TAIL
+0xE2DC	0x028E	#  ʎ LATIN SMALL LETTER TURNED Y
+0xE2DD	0x014B	#  ŋ LATIN SMALL LETTER ENG
+0xE2DE	0x006B	#  k LATIN SMALL LETTER K
+0xE2DF	0x0261	#  ɡ LATIN SMALL LETTER SCRIPT G
+0xE2E0	0x0078	#  x LATIN SMALL LETTER X
+0xE2E1	0x0263	#  ɣ LATIN SMALL LETTER GAMMA
+0xE2E2	0x0270	#  ɰ LATIN SMALL LETTER TURNED M WITH LONG LEG
+0xE2E3	0x0260	#  ɠ LATIN SMALL LETTER G WITH HOOK
+0xE2E4	0x0274	#  ɴ LATIN LETTER SMALL CAPITAL N
+0xE2E5	0x019E	#  ƞ LATIN SMALL LETTER N WITH LONG RIGHT LEG
+0xE2E6	0x0071	#  q LATIN SMALL LETTER Q
+0xE2E7	0x0262	#  ɢ LATIN LETTER SMALL CAPITAL G
+0xE2E8	0x03C7	#  χ GREEK SMALL LETTER CHI
+0xE2E9	0x0281	#  ʁ LATIN LETTER SMALL CAPITAL INVERTED R
+0xE2EA	0x0280	#  ʀ LATIN LETTER SMALL CAPITAL R
+0xE2EB	0x0127	#  ħ LATIN SMALL LETTER H WITH STROKE
+0xE2EC	0x0295	#  ʕ LATIN LETTER PHARYNGEAL VOICED FRICATIVE
+0xE2ED	0x0294	#  ʔ LATIN LETTER GLOTTAL STOP
+0xE2EE	0x0068	#  h LATIN SMALL LETTER H
+0xE2EF	0x0266	#  ɦ LATIN SMALL LETTER H WITH HOOK
+0xE2F0	0x0299	#  ʙ LATIN LETTER SMALL CAPITAL B
+0xE2F1	0x029B	#  ʛ LATIN LETTER SMALL CAPITAL G WITH HOOK
+0xE2F2	0x029C	#  ʜ LATIN LETTER SMALL CAPITAL H
+0xE2F3	0x029D	#  ʝ LATIN SMALL LETTER J WITH CROSSED-TAIL
+0xE2F4	0x029E	#  ʞ LATIN SMALL LETTER TURNED K
+0xE2F5	0x029F	#  ʟ LATIN LETTER SMALL CAPITAL L
+0xE2F6	0x02A0	#  ʠ LATIN SMALL LETTER Q WITH HOOK
+0xE2F7	0x02A1	#  ʡ LATIN LETTER GLOTTAL STOP WITH STROKE
+0xE2F8	0x02A2	#  ʢ LATIN LETTER REVERSED GLOTTAL STOP WITH STROKE
+0xE2F9	0x02A3	#  ʣ LATIN SMALL LETTER DZ DIGRAPH
+0xE2FA	0x02A4	#  ʤ LATIN SMALL LETTER DEZH DIGRAPH
+0xE2FB	0x02A5	#  ʥ LATIN SMALL LETTER DZ DIGRAPH WITH CURL
+0xE2FC	0x02A6	#  ʦ LATIN SMALL LETTER TS DIGRAPH
+0xE2FD	0x02A7	#  ʧ LATIN SMALL LETTER TESH DIGRAPH
+0xE2FE	0x02A8	#  ʨ LATIN SMALL LETTER TC DIGRAPH WITH CURL

unicode/xerox/XCCS-343=HANGUL.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     343 HANGUL
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             4-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,76 +22,121 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "343" HANGUL
-0xE3A2	0xFFE6	#  ￦
-0xE3C1	0xFFA1	#  ﾡ
-0xE3C2	0xFFA2	#  ﾢ
-0xE3C3	0xFFA3	#  ﾣ
-0xE3C4	0xFFA4	#  ﾤ
-0xE3C5	0xFFA5	#  ﾥ
-0xE3C6	0xFFA6	#  ﾦ
-0xE3C7	0xFFA7	#  ﾧ
-0xE3C8	0xFFA8	#  ﾨ
-0xE3C9	0xFFA9	#  ﾩ
-0xE3CA	0xFFAA	#  ﾪ
-0xE3CB	0xFFAB	#  ﾫ
-0xE3CC	0xFFAC	#  ﾬ
-0xE3CD	0xFFAD	#  ﾭ
-0xE3CE	0xFFAE	#  ﾮ
-0xE3CF	0xFFAF	#  ﾯ
-0xE3D0	0xFFB0	#  ﾰ
-0xE3D1	0xFFB1	#  ﾱ
-0xE3D2	0xFFB2	#  ﾲ
-0xE3D3	0xFFB3	#  ﾳ
-0xE3D4	0xFFB4	#  ﾴ
-0xE3D5	0xFFB5	#  ﾵ
-0xE3D6	0xFFB6	#  ﾶ
-0xE3D7	0xFFB7	#  ﾷ
-0xE3D8	0xFFB8	#  ﾸ
-0xE3D9	0xFFB9	#  ﾹ
-0xE3DA	0xFFBA	#  ﾺ
-0xE3DB	0xFFBB	#  ﾻ
-0xE3DC	0xFFBC	#  ﾼ
-0xE3DD	0xFFBD	#  ﾽ
-0xE3DE	0xFFBE	#  ﾾ
-0xE3E2	0xFFC2	#  ￂ
-0xE3E3	0xFFC3	#  ￃ
-0xE3E4	0xFFC4	#  ￄ
-0xE3E5	0xFFC5	#  ￅ
-0xE3E6	0xFFC6	#  ￆ
-0xE3E7	0xFFC7	#  ￇ
-0xE3EA	0xFFCA	#  ￊ
-0xE3EB	0xFFCB	#  ￋ
-0xE3EC	0xFFCC	#  ￌ
-0xE3ED	0xFFCD	#  ￍ
-0xE3EE	0xFFCE	#  ￎ
-0xE3EF	0xFFCF	#  ￏ
-0xE3F2	0xFFD2	#  ￒ
-0xE3F3	0xFFD3	#  ￓ
-0xE3F4	0xFFD4	#  ￔ
-0xE3F5	0xFFD5	#  ￕ
-0xE3F6	0xFFD6	#  ￖ
-0xE3F7	0xFFD7	#  ￗ
-0xE3FA	0xFFDA	#  ￚ
-0xE3FB	0xFFDB	#  ￛ
-0xE3FC	0xFFDC	#  ￜ
+#   "343" HANGUL
+0xE322	0x3165	#  ㅥ HANGUL LETTER SSANGNIEUN
+0xE323	0x3166	#  ㅦ HANGUL LETTER NIEUN-TIKEUT
+0xE324	0x3167	#  ㅧ HANGUL LETTER NIEUN-SIOS
+0xE325	0x3168	#  ㅨ HANGUL LETTER NIEUN-PANSIOS
+0xE326	0x3169	#  ㅩ HANGUL LETTER RIEUL-KIYEOK-SIOS
+0xE327	0x316A	#  ㅪ HANGUL LETTER RIEUL-TIKEUT
+0xE328	0x316B	#  ㅫ HANGUL LETTER RIEUL-PIEUP-SIOS
+0xE329	0x316C	#  ㅬ HANGUL LETTER RIEUL-PANSIOS
+0xE32A	0x316D	#  ㅭ HANGUL LETTER RIEUL-YEORINHIEUH
+0xE32B	0x316E	#  ㅮ HANGUL LETTER MIEUM-PIEUP
+0xE32C	0x316F	#  ㅯ HANGUL LETTER MIEUM-SIOS
+0xE32D	0x3170	#  ㅰ HANGUL LETTER MIEUM-PANSIOS
+0xE32E	0x3171	#  ㅱ HANGUL LETTER KAPYEOUNMIEUM
+0xE32F	0x3172	#  ㅲ HANGUL LETTER PIEUP-KIYEOK
+0xE330	0x3173	#  ㅳ HANGUL LETTER PIEUP-TIKEUT
+0xE331	0x3174	#  ㅴ HANGUL LETTER PIEUP-SIOS-KIYEOK
+0xE332	0x3175	#  ㅵ HANGUL LETTER PIEUP-SIOS-TIKEUT
+0xE333	0x3176	#  ㅶ HANGUL LETTER PIEUP-CIEUC
+0xE334	0x3177	#  ㅷ HANGUL LETTER PIEUP-THIEUTH
+0xE335	0x3178	#  ㅸ HANGUL LETTER KAPYEOUNPIEUP
+0xE336	0x3179	#  ㅹ HANGUL LETTER KAPYEOUNSSANGPIEUP
+0xE337	0x317A	#  ㅺ HANGUL LETTER SIOS-KIYEOK
+0xE338	0x317B	#  ㅻ HANGUL LETTER SIOS-NIEUN
+0xE339	0x317C	#  ㅼ HANGUL LETTER SIOS-TIKEUT
+0xE33A	0x317D	#  ㅽ HANGUL LETTER SIOS-PIEUP
+0xE33B	0x317E	#  ㅾ HANGUL LETTER SIOS-CIEUC
+0xE33C	0x317F	#  ㅿ HANGUL LETTER PANSIOS
+0xE33D	0x3180	#  ㆀ HANGUL LETTER SSANGIEUNG
+0xE33E	0x3181	#  ㆁ HANGUL LETTER YESIEUNG
+0xE33F	0x3182	#  ㆂ HANGUL LETTER YESIEUNG-SIOS
+0xE340	0x3183	#  ㆃ HANGUL LETTER YESIEUNG-PANSIOS
+0xE341	0x3184	#  ㆄ HANGUL LETTER KAPYEOUNPHIEUPH
+0xE342	0x3185	#  ㆅ HANGUL LETTER SSANGHIEUH
+0xE343	0x3186	#  ㆆ HANGUL LETTER YEORINHIEUH
+0xE344	0x3187	#  ㆇ HANGUL LETTER YO-YA
+0xE345	0x3188	#  ㆈ HANGUL LETTER YO-YAE
+0xE346	0x3189	#  ㆉ HANGUL LETTER YO-I
+0xE347	0x318A	#  ㆊ HANGUL LETTER YU-YEO
+0xE348	0x318B	#  ㆋ HANGUL LETTER YU-YE
+0xE349	0x318C	#  ㆌ HANGUL LETTER YU-I
+0xE34A	0x318D	#  ㆍ HANGUL LETTER ARAEA
+0xE34B	0x318E	#  ㆎ HANGUL LETTER ARAEAE
+0xE3A1	0x0020	#    SPACE
+0xE3A2	0x20A9	#  ₩ WON SIGN
+0xE3C1	0x1100	#  ᄀ HANGUL CHOSEONG KIYEOK
+0xE3C2	0x1101	#  ᄁ HANGUL CHOSEONG SSANGKIYEOK
+0xE3C3	0x11AA	#  ᆪ HANGUL JONGSEONG KIYEOK-SIOS
+0xE3C4	0x1102	#  ᄂ HANGUL CHOSEONG NIEUN
+0xE3C5	0x11AC	#  ᆬ HANGUL JONGSEONG NIEUN-CIEUC
+0xE3C6	0x11AD	#  ᆭ HANGUL JONGSEONG NIEUN-HIEUH
+0xE3C7	0x1103	#  ᄃ HANGUL CHOSEONG TIKEUT
+0xE3C8	0x1104	#  ᄄ HANGUL CHOSEONG SSANGTIKEUT
+0xE3C9	0x1105	#  ᄅ HANGUL CHOSEONG RIEUL
+0xE3CA	0x11B0	#  ᆰ HANGUL JONGSEONG RIEUL-KIYEOK
+0xE3CB	0x11B1	#  ᆱ HANGUL JONGSEONG RIEUL-MIEUM
+0xE3CC	0x11B2	#  ᆲ HANGUL JONGSEONG RIEUL-PIEUP
+0xE3CD	0x11B3	#  ᆳ HANGUL JONGSEONG RIEUL-SIOS
+0xE3CE	0x11B4	#  ᆴ HANGUL JONGSEONG RIEUL-THIEUTH
+0xE3CF	0x11B5	#  ᆵ HANGUL JONGSEONG RIEUL-PHIEUPH
+0xE3D0	0x11B6	#  ᆶ HANGUL JONGSEONG RIEUL-HIEUH
+0xE3D1	0x1106	#  ᄆ HANGUL CHOSEONG MIEUM
+0xE3D2	0x1107	#  ᄇ HANGUL CHOSEONG PIEUP
+0xE3D3	0x1108	#  ᄈ HANGUL CHOSEONG SSANGPIEUP
+0xE3D4	0x11B9	#  ᆹ HANGUL JONGSEONG PIEUP-SIOS
+0xE3D5	0x1109	#  ᄉ HANGUL CHOSEONG SIOS
+0xE3D6	0x110A	#  ᄊ HANGUL CHOSEONG SSANGSIOS
+0xE3D7	0x110B	#  ᄋ HANGUL CHOSEONG IEUNG
+0xE3D8	0x110C	#  ᄌ HANGUL CHOSEONG CIEUC
+0xE3D9	0x110D	#  ᄍ HANGUL CHOSEONG SSANGCIEUC
+0xE3DA	0x110E	#  ᄎ HANGUL CHOSEONG CHIEUCH
+0xE3DB	0x110F	#  ᄏ HANGUL CHOSEONG KHIEUKH
+0xE3DC	0x1110	#  ᄐ HANGUL CHOSEONG THIEUTH
+0xE3DD	0x1111	#  ᄑ HANGUL CHOSEONG PHIEUPH
+0xE3DE	0x1112	#  ᄒ HANGUL CHOSEONG HIEUH
+0xE3DF	0xC0AC 0x20DE	#  사⃞ UNKNOWN; COMBINING ENCLOSING SQUARE
+0xE3E2	0x1161	#  ᅡ HANGUL JUNGSEONG A
+0xE3E3	0x1162	#  ᅢ HANGUL JUNGSEONG AE
+0xE3E4	0x1163	#  ᅣ HANGUL JUNGSEONG YA
+0xE3E5	0x1164	#  ᅤ HANGUL JUNGSEONG YAE
+0xE3E6	0x1165	#  ᅥ HANGUL JUNGSEONG EO
+0xE3E7	0x1166	#  ᅦ HANGUL JUNGSEONG E
+0xE3EA	0x1167	#  ᅧ HANGUL JUNGSEONG YEO
+0xE3EB	0x1168	#  ᅨ HANGUL JUNGSEONG YE
+0xE3EC	0x1169	#  ᅩ HANGUL JUNGSEONG O
+0xE3ED	0x116A	#  ᅪ HANGUL JUNGSEONG WA
+0xE3EE	0x116B	#  ᅫ HANGUL JUNGSEONG WAE
+0xE3EF	0x116C	#  ᅬ HANGUL JUNGSEONG OE
+0xE3F2	0x116D	#  ᅭ HANGUL JUNGSEONG YO
+0xE3F3	0x116E	#  ᅮ HANGUL JUNGSEONG U
+0xE3F4	0x116F	#  ᅯ HANGUL JUNGSEONG WEO
+0xE3F5	0x1170	#  ᅰ HANGUL JUNGSEONG WE
+0xE3F6	0x1171	#  ᅱ HANGUL JUNGSEONG WI
+0xE3F7	0x1172	#  ᅲ HANGUL JUNGSEONG YU
+0xE3FA	0x1173	#  ᅳ HANGUL JUNGSEONG EU
+0xE3FB	0x1174	#  ᅴ HANGUL JUNGSEONG YI
+0xE3FC	0x1175	#  ᅵ HANGUL JUNGSEONG I
+0xE3FD	0xBAA8 0x20DE	#  모⃞ UNKNOWN; COMBINING ENCLOSING SQUARE

unicode/xerox/XCCS-344=GEORGIAN-ARMENIAN.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     344 GEORGIAN-ARMENIAN
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             4-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,120 +22,193 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "344" GEORGIAN-ARMENIAN
-0xE421	0x10D0	#  ა
-0xE421	0x0966	#  ०
-0xE422	0x10D1	#  ბ
-0xE422	0x0967	#  १
-0xE423	0x10D2	#  გ
-0xE423	0x0968	#  २
-0xE424	0x10D3	#  დ
-0xE424	0x0969	#  ३
-0xE425	0x10D4	#  ე
-0xE425	0x096A	#  ४
-0xE426	0x10D5	#  ვ
-0xE426	0x096B	#  ५
-0xE427	0x10D6	#  ზ
-0xE427	0x096C	#  ६
-0xE428	0x10F1	#  ჱ
-0xE428	0x096D	#  ७
-0xE429	0x10D7	#  თ
-0xE429	0x096E	#  ८
-0xE42A	0x10D8	#  ი
-0xE42A	0x096F	#  ९
-0xE42B	0x10D9	#  კ
-0xE42C	0x10DA	#  ლ
-0xE42D	0x10DB	#  მ
-0xE42E	0x10DC	#  ნ
-0xE42F	0x10F2	#  ჲ
-0xE42F	0x20A8	#  ₨
-0xE430	0x10DD	#  ო
-0xE431	0x10DE	#  პ
-0xE432	0x10DF	#  ჟ
-0xE433	0x10E0	#  რ
-0xE434	0x10E1	#  ს
-0xE435	0x10E2	#  ტ
-0xE436	0x10E3	#  უ
-0xE437	0x10F3	#  ჳ
-0xE438	0x10E4	#  ფ
-0xE439	0x10E5	#  ქ
-0xE43A	0x10E6	#  ღ
-0xE43B	0x10E7	#  ყ
-0xE43C	0x10E8	#  შ
-0xE43D	0x10E9	#  ჩ
-0xE43E	0x10EA	#  ც
-0xE43F	0x10EB	#  ძ
-0xE440	0x10EC	#  წ
-0xE441	0x10ED	#  ჭ
-0xE442	0x10EE	#  ხ
-0xE443	0x10F4	#  ჴ
-0xE444	0x10EF	#  ჯ
-0xE445	0x10F0	#  ჰ
-0xE446	0x10F5	#  ჵ
-0xE447	0x10F6	#  ჶ
-0xE44E	0x0589	#  ։
-0xE44F	0x10FB	#  ჻
-0xE451	0x10A0	#  Ⴀ
-0xE452	0x10A1	#  Ⴁ
-0xE453	0x10A2	#  Ⴂ
-0xE454	0x10A3	#  Ⴃ
-0xE455	0x10A4	#  Ⴄ
-0xE456	0x10A5	#  Ⴅ
-0xE457	0x10A6	#  Ⴆ
-0xE458	0x10C1	#  Ⴡ
-0xE459	0x10A7	#  Ⴇ
-0xE45A	0x10A8	#  Ⴈ
-0xE45B	0x10A9	#  Ⴉ
-0xE45C	0x10AA	#  Ⴊ
-0xE45D	0x10AB	#  Ⴋ
-0xE45E	0x10AC	#  Ⴌ
-0xE45F	0x10C2	#  Ⴢ
-0xE460	0x10AD	#  Ⴍ
-0xE461	0x10AE	#  Ⴎ
-0xE462	0x10AF	#  Ⴏ
-0xE463	0x10B0	#  Ⴐ
-0xE464	0x10B1	#  Ⴑ
-0xE465	0x10B2	#  Ⴒ
-0xE466	0x10B3	#  Ⴓ
-0xE467	0x10C3	#  Ⴣ
-0xE468	0x10B4	#  Ⴔ
-0xE469	0x10B5	#  Ⴕ
-0xE46A	0x10B6	#  Ⴖ
-0xE46B	0x10B7	#  Ⴗ
-0xE46C	0x10B8	#  Ⴘ
-0xE46D	0x10B9	#  Ⴙ
-0xE46E	0x10BA	#  Ⴚ
-0xE46F	0x10BB	#  Ⴛ
-0xE470	0x10BC	#  Ⴜ
-0xE470	0x094A	#  ॊ
-0xE471	0x10BD	#  Ⴝ
-0xE471	0x0951	#  ॑
-0xE472	0x10BE	#  Ⴞ
-0xE472	0x0952	#  ॒
-0xE473	0x10C4	#  Ⴤ
-0xE473	0x0953	#  ॓
-0xE474	0x10BF	#  Ⴟ
-0xE474	0x0954	#  ॔
-0xE475	0x10C0	#  Ⴠ
-0xE475	0x0965	#  ॥
-0xE476	0x10C5	#  Ⴥ
+#   "344" GEORGIAN-ARMENIAN
+0xE421	0x10D0	#  ა GEORGIAN LETTER AN
+0xE422	0x10D1	#  ბ GEORGIAN LETTER BAN
+0xE423	0x10D2	#  გ GEORGIAN LETTER GAN
+0xE424	0x10D3	#  დ GEORGIAN LETTER DON
+0xE425	0x10D4	#  ე GEORGIAN LETTER EN
+0xE426	0x10D5	#  ვ GEORGIAN LETTER VIN
+0xE427	0x10D6	#  ზ GEORGIAN LETTER ZEN
+0xE428	0x10F1	#  ჱ GEORGIAN LETTER HE
+0xE429	0x10D7	#  თ GEORGIAN LETTER TAN
+0xE42A	0x10D8	#  ი GEORGIAN LETTER IN
+0xE42B	0x10D9	#  კ GEORGIAN LETTER KAN
+0xE42C	0x10DA	#  ლ GEORGIAN LETTER LAS
+0xE42D	0x10DB	#  მ GEORGIAN LETTER MAN
+0xE42E	0x10DC	#  ნ GEORGIAN LETTER NAR
+0xE42F	0x10F2	#  ჲ GEORGIAN LETTER HIE
+0xE430	0x10DD	#  ო GEORGIAN LETTER ON
+0xE431	0x10DE	#  პ GEORGIAN LETTER PAR
+0xE432	0x10DF	#  ჟ GEORGIAN LETTER ZHAR
+0xE433	0x10E0	#  რ GEORGIAN LETTER RAE
+0xE434	0x10E1	#  ს GEORGIAN LETTER SAN
+0xE435	0x10E2	#  ტ GEORGIAN LETTER TAR
+0xE436	0x10E3	#  უ GEORGIAN LETTER UN
+0xE437	0x10F3	#  ჳ GEORGIAN LETTER WE
+0xE438	0x10E4	#  ფ GEORGIAN LETTER PHAR
+0xE439	0x10E5	#  ქ GEORGIAN LETTER KHAR
+0xE43A	0x10E6	#  ღ GEORGIAN LETTER GHAN
+0xE43B	0x10E7	#  ყ GEORGIAN LETTER QAR
+0xE43C	0x10E8	#  შ GEORGIAN LETTER SHIN
+0xE43D	0x10E9	#  ჩ GEORGIAN LETTER CHIN
+0xE43E	0x10EA	#  ც GEORGIAN LETTER CAN
+0xE43F	0x10EB	#  ძ GEORGIAN LETTER JIL
+0xE440	0x10EC	#  წ GEORGIAN LETTER CIL
+0xE441	0x10ED	#  ჭ GEORGIAN LETTER CHAR
+0xE442	0x10EE	#  ხ GEORGIAN LETTER XAN
+0xE443	0x10F4	#  ჴ GEORGIAN LETTER HAR
+0xE444	0x10EF	#  ჯ GEORGIAN LETTER JHAN
+0xE445	0x10F0	#  ჰ GEORGIAN LETTER HAE
+0xE446	0x10F5	#  ჵ GEORGIAN LETTER HOE
+0xE447	0x10F6	#  ჶ GEORGIAN LETTER FI
+0xE44E	0x0589	#  ։ ARMENIAN FULL STOP
+0xE44F	0x10FB	#  ჻ GEORGIAN PARAGRAPH SEPARATOR
+0xE451	0x10A0	#  Ⴀ GEORGIAN CAPITAL LETTER AN
+0xE452	0x10A1	#  Ⴁ GEORGIAN CAPITAL LETTER BAN
+0xE453	0x10A2	#  Ⴂ GEORGIAN CAPITAL LETTER GAN
+0xE454	0x10A3	#  Ⴃ GEORGIAN CAPITAL LETTER DON
+0xE455	0x10A4	#  Ⴄ GEORGIAN CAPITAL LETTER EN
+0xE456	0x10A5	#  Ⴅ GEORGIAN CAPITAL LETTER VIN
+0xE457	0x10A6	#  Ⴆ GEORGIAN CAPITAL LETTER ZEN
+0xE458	0x10C1	#  Ⴡ GEORGIAN CAPITAL LETTER HE
+0xE459	0x10A7	#  Ⴇ GEORGIAN CAPITAL LETTER TAN
+0xE45A	0x10A8	#  Ⴈ GEORGIAN CAPITAL LETTER IN
+0xE45B	0x10A9	#  Ⴉ GEORGIAN CAPITAL LETTER KAN
+0xE45C	0x10AA	#  Ⴊ GEORGIAN CAPITAL LETTER LAS
+0xE45D	0x10AB	#  Ⴋ GEORGIAN CAPITAL LETTER MAN
+0xE45E	0x10AC	#  Ⴌ GEORGIAN CAPITAL LETTER NAR
+0xE45F	0x10C2	#  Ⴢ GEORGIAN CAPITAL LETTER HIE
+0xE460	0x10AD	#  Ⴍ GEORGIAN CAPITAL LETTER ON
+0xE461	0x10AE	#  Ⴎ GEORGIAN CAPITAL LETTER PAR
+0xE462	0x10AF	#  Ⴏ GEORGIAN CAPITAL LETTER ZHAR
+0xE463	0x10B0	#  Ⴐ GEORGIAN CAPITAL LETTER RAE
+0xE464	0x10B1	#  Ⴑ GEORGIAN CAPITAL LETTER SAN
+0xE465	0x10B2	#  Ⴒ GEORGIAN CAPITAL LETTER TAR
+0xE466	0x10B3	#  Ⴓ GEORGIAN CAPITAL LETTER UN
+0xE467	0x10C3	#  Ⴣ GEORGIAN CAPITAL LETTER WE
+0xE468	0x10B4	#  Ⴔ GEORGIAN CAPITAL LETTER PHAR
+0xE469	0x10B5	#  Ⴕ GEORGIAN CAPITAL LETTER KHAR
+0xE46A	0x10B6	#  Ⴖ GEORGIAN CAPITAL LETTER GHAN
+0xE46B	0x10B7	#  Ⴗ GEORGIAN CAPITAL LETTER QAR
+0xE46C	0x10B8	#  Ⴘ GEORGIAN CAPITAL LETTER SHIN
+0xE46D	0x10B9	#  Ⴙ GEORGIAN CAPITAL LETTER CHIN
+0xE46E	0x10BA	#  Ⴚ GEORGIAN CAPITAL LETTER CAN
+0xE46F	0x10BB	#  Ⴛ GEORGIAN CAPITAL LETTER JIL
+0xE470	0x10BC	#  Ⴜ GEORGIAN CAPITAL LETTER CIL
+0xE471	0x10BD	#  Ⴝ GEORGIAN CAPITAL LETTER CHAR
+0xE472	0x10BE	#  Ⴞ GEORGIAN CAPITAL LETTER XAN
+0xE473	0x10C4	#  Ⴤ GEORGIAN CAPITAL LETTER HAR
+0xE474	0x10BF	#  Ⴟ GEORGIAN CAPITAL LETTER JHAN
+0xE475	0x10C0	#  Ⴠ GEORGIAN CAPITAL LETTER HAE
+0xE476	0x10C5	#  Ⴥ GEORGIAN CAPITAL LETTER HOE
+0xE4A1	0x0531	#  Ա ARMENIAN CAPITAL LETTER AYB
+0xE4A2	0x0532	#  Բ ARMENIAN CAPITAL LETTER BEN
+0xE4A3	0x0533	#  Գ ARMENIAN CAPITAL LETTER GIM
+0xE4A4	0x0534	#  Դ ARMENIAN CAPITAL LETTER DA
+0xE4A5	0x0535	#  Ե ARMENIAN CAPITAL LETTER ECH
+0xE4A6	0x0536	#  Զ ARMENIAN CAPITAL LETTER ZA
+0xE4A7	0x0537	#  Է ARMENIAN CAPITAL LETTER EH
+0xE4A8	0x0538	#  Ը ARMENIAN CAPITAL LETTER ET
+0xE4A9	0x0539	#  Թ ARMENIAN CAPITAL LETTER TO
+0xE4AA	0x053A	#  Ժ ARMENIAN CAPITAL LETTER ZHE
+0xE4AB	0x053B	#  Ի ARMENIAN CAPITAL LETTER INI
+0xE4AC	0x053C	#  Լ ARMENIAN CAPITAL LETTER LIWN
+0xE4AD	0x053D	#  Խ ARMENIAN CAPITAL LETTER XEH
+0xE4AE	0x053E	#  Ծ ARMENIAN CAPITAL LETTER CA
+0xE4AF	0x053F	#  Կ ARMENIAN CAPITAL LETTER KEN
+0xE4B0	0x0540	#  Հ ARMENIAN CAPITAL LETTER HO
+0xE4B1	0x0541	#  Ձ ARMENIAN CAPITAL LETTER JA
+0xE4B2	0x0542	#  Ղ ARMENIAN CAPITAL LETTER GHAD
+0xE4B3	0x0543	#  Ճ ARMENIAN CAPITAL LETTER CHEH
+0xE4B4	0x0544	#  Մ ARMENIAN CAPITAL LETTER MEN
+0xE4B5	0x0545	#  Յ ARMENIAN CAPITAL LETTER YI
+0xE4B6	0x0546	#  Ն ARMENIAN CAPITAL LETTER NOW
+0xE4B7	0x0547	#  Շ ARMENIAN CAPITAL LETTER SHA
+0xE4B8	0x0548	#  Ո ARMENIAN CAPITAL LETTER VO
+0xE4B9	0x0549	#  Չ ARMENIAN CAPITAL LETTER CHA
+0xE4BA	0x054A	#  Պ ARMENIAN CAPITAL LETTER PEH
+0xE4BB	0x054B	#  Ջ ARMENIAN CAPITAL LETTER JHEH
+0xE4BC	0x054C	#  Ռ ARMENIAN CAPITAL LETTER RA
+0xE4BD	0x054D	#  Ս ARMENIAN CAPITAL LETTER SEH
+0xE4BE	0x054E	#  Վ ARMENIAN CAPITAL LETTER VEW
+0xE4BF	0x054F	#  Տ ARMENIAN CAPITAL LETTER TIWN
+0xE4C0	0x0550	#  Ր ARMENIAN CAPITAL LETTER REH
+0xE4C1	0x0551	#  Ց ARMENIAN CAPITAL LETTER CO
+0xE4C2	0x0552	#  Ւ ARMENIAN CAPITAL LETTER YIWN
+0xE4C3	0x0553	#  Փ ARMENIAN CAPITAL LETTER PIWR
+0xE4C4	0x0554	#  Ք ARMENIAN CAPITAL LETTER KEH
+0xE4C5	0x0555	#  Օ ARMENIAN CAPITAL LETTER OH
+0xE4C6	0x0556	#  Ֆ ARMENIAN CAPITAL LETTER FEH
+0xE4C9	0x0559	#  ՙ ARMENIAN MODIFIER LETTER LEFT HALF RING
+0xE4CA	0x0589	#  ։ ARMENIAN FULL STOP
+0xE4CB	0x055A	#  ՚ ARMENIAN APOSTROPHE
+0xE4CC	0x055B	#  ՛ ARMENIAN EMPHASIS MARK
+0xE4CD	0x055C	#  ՜ ARMENIAN EXCLAMATION MARK
+0xE4CE	0x055D	#  ՝ ARMENIAN COMMA
+0xE4CF	0x055E	#  ՞ ARMENIAN QUESTION MARK
+0xE4D0	0x055F	#  ՟ ARMENIAN ABBREVIATION MARK
+0xE4D1	0x0561	#  ա ARMENIAN SMALL LETTER AYB
+0xE4D2	0x0562	#  բ ARMENIAN SMALL LETTER BEN
+0xE4D3	0x0563	#  գ ARMENIAN SMALL LETTER GIM
+0xE4D4	0x0564	#  դ ARMENIAN SMALL LETTER DA
+0xE4D5	0x0565	#  ե ARMENIAN SMALL LETTER ECH
+0xE4D6	0x0566	#  զ ARMENIAN SMALL LETTER ZA
+0xE4D7	0x0567	#  է ARMENIAN SMALL LETTER EH
+0xE4D8	0x0568	#  ը ARMENIAN SMALL LETTER ET
+0xE4D9	0x0569	#  թ ARMENIAN SMALL LETTER TO
+0xE4DA	0x056A	#  ժ ARMENIAN SMALL LETTER ZHE
+0xE4DB	0x056B	#  ի ARMENIAN SMALL LETTER INI
+0xE4DC	0x056C	#  լ ARMENIAN SMALL LETTER LIWN
+0xE4DD	0x056D	#  խ ARMENIAN SMALL LETTER XEH
+0xE4DE	0x056E	#  ծ ARMENIAN SMALL LETTER CA
+0xE4DF	0x056F	#  կ ARMENIAN SMALL LETTER KEN
+0xE4E0	0x0570	#  հ ARMENIAN SMALL LETTER HO
+0xE4E1	0x0571	#  ձ ARMENIAN SMALL LETTER JA
+0xE4E2	0x0572	#  ղ ARMENIAN SMALL LETTER GHAD
+0xE4E3	0x0573	#  ճ ARMENIAN SMALL LETTER CHEH
+0xE4E4	0x0574	#  մ ARMENIAN SMALL LETTER MEN
+0xE4E5	0x0575	#  յ ARMENIAN SMALL LETTER YI
+0xE4E6	0x0576	#  ն ARMENIAN SMALL LETTER NOW
+0xE4E7	0x0577	#  շ ARMENIAN SMALL LETTER SHA
+0xE4E8	0x0578	#  ո ARMENIAN SMALL LETTER VO
+0xE4E9	0x0579	#  չ ARMENIAN SMALL LETTER CHA
+0xE4EA	0x057A	#  պ ARMENIAN SMALL LETTER PEH
+0xE4EB	0x057B	#  ջ ARMENIAN SMALL LETTER JHEH
+0xE4EC	0x057C	#  ռ ARMENIAN SMALL LETTER RA
+0xE4ED	0x057D	#  ս ARMENIAN SMALL LETTER SEH
+0xE4EE	0x057E	#  վ ARMENIAN SMALL LETTER VEW
+0xE4EF	0x057F	#  տ ARMENIAN SMALL LETTER TIWN
+0xE4F0	0x0580	#  ր ARMENIAN SMALL LETTER REH
+0xE4F1	0x0581	#  ց ARMENIAN SMALL LETTER CO
+0xE4F2	0x0582	#  ւ ARMENIAN SMALL LETTER YIWN
+0xE4F3	0x0583	#  փ ARMENIAN SMALL LETTER PIWR
+0xE4F4	0x0584	#  ք ARMENIAN SMALL LETTER KEH
+0xE4F5	0x0585	#  օ ARMENIAN SMALL LETTER OH
+0xE4F6	0x0586	#  ֆ ARMENIAN SMALL LETTER FEH
+0xE4F8	0xFB13	#  ﬓ ARMENIAN SMALL LIGATURE MEN NOW
+0xE4F9	0xFB14	#  ﬔ ARMENIAN SMALL LIGATURE MEN ECH
+0xE4FA	0xFB15	#  ﬕ ARMENIAN SMALL LIGATURE MEN INI
+0xE4FB	0xFB16	#  ﬖ ARMENIAN SMALL LIGATURE VEW NOW
+0xE4FC	0xFB17	#  ﬗ ARMENIAN SMALL LIGATURE MEN XEH
+0xE4FE	0x0587	#  և ARMENIAN SMALL LIGATURE ECH YIWN

unicode/xerox/XCCS-345=DEVANAGRI.TXT

@@ -0,0 +1,151 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     345 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "345" UNKNOWN
+0xE521	0x0966	#  ० DEVANAGARI DIGIT ZERO
+0xE522	0x0967	#  १ DEVANAGARI DIGIT ONE
+0xE523	0x0968	#  २ DEVANAGARI DIGIT TWO
+0xE524	0x0969	#  ३ DEVANAGARI DIGIT THREE
+0xE525	0x096A	#  ४ DEVANAGARI DIGIT FOUR
+0xE526	0x096B	#  ५ DEVANAGARI DIGIT FIVE
+0xE527	0x096C	#  ६ DEVANAGARI DIGIT SIX
+0xE528	0x096D	#  ७ DEVANAGARI DIGIT SEVEN
+0xE529	0x096E	#  ८ DEVANAGARI DIGIT EIGHT
+0xE52A	0x096F	#  ९ DEVANAGARI DIGIT NINE
+0xE52F	0x20A8	#  ₨ RUPEE SIGN
+0xE570	0x094A	#  ॊ DEVANAGARI VOWEL SIGN SHORT O
+0xE571	0x0951	#  ॑ DEVANAGARI STRESS SIGN UDATTA
+0xE572	0x0952	#  ॒ DEVANAGARI STRESS SIGN ANUDATTA
+0xE573	0x0953	#  ॓ DEVANAGARI GRAVE ACCENT
+0xE574	0x0954	#  ॔ DEVANAGARI ACUTE ACCENT
+0xE575	0x0965	#  ॥ DEVANAGARI DOUBLE DANDA
+0xE5A1	0x0901	#  ँ DEVANAGARI SIGN CANDRABINDU
+0xE5A2	0x0902	#  ं DEVANAGARI SIGN ANUSVARA
+0xE5A3	0x0903	#  ः DEVANAGARI SIGN VISARGA
+0xE5A4	0x090D	#  ऍ DEVANAGARI LETTER CANDRA E
+0xE5A5	0x0905	#  अ DEVANAGARI LETTER A
+0xE5A6	0x0906	#  आ DEVANAGARI LETTER AA
+0xE5A7	0x0907	#  इ DEVANAGARI LETTER I
+0xE5A8	0x0908	#  ई DEVANAGARI LETTER II
+0xE5A9	0x0909	#  उ DEVANAGARI LETTER U
+0xE5AA	0x090A	#  ऊ DEVANAGARI LETTER UU
+0xE5AB	0x090B	#  ऋ DEVANAGARI LETTER VOCALIC R
+0xE5AC	0x0960	#  ॠ DEVANAGARI LETTER VOCALIC RR
+0xE5AD	0x090C	#  ऌ DEVANAGARI LETTER VOCALIC L
+0xE5AE	0x0961	#  ॡ DEVANAGARI LETTER VOCALIC LL
+0xE5B0	0x090F	#  ए DEVANAGARI LETTER E
+0xE5B1	0x0910	#  ऐ DEVANAGARI LETTER AI
+0xE5B2	0x0911	#  ऑ DEVANAGARI LETTER CANDRA O
+0xE5B3	0x0912	#  ऒ DEVANAGARI LETTER SHORT O
+0xE5B4	0x0913	#  ओ DEVANAGARI LETTER O
+0xE5B5	0x0914	#  औ DEVANAGARI LETTER AU
+0xE5B7	0x0915	#  क DEVANAGARI LETTER KA
+0xE5B8	0x0958	#  क़ DEVANAGARI LETTER QA
+0xE5B9	0x0916	#  ख DEVANAGARI LETTER KHA
+0xE5BA	0x0959	#  ख़ DEVANAGARI LETTER KHHA
+0xE5BB	0x0917	#  ग DEVANAGARI LETTER GA
+0xE5BC	0x095A	#  ग़ DEVANAGARI LETTER GHHA
+0xE5BD	0x0918	#  घ DEVANAGARI LETTER GHA
+0xE5BE	0x0919	#  ङ DEVANAGARI LETTER NGA
+0xE5BF	0x091A	#  च DEVANAGARI LETTER CA
+0xE5C0	0x091B	#  छ DEVANAGARI LETTER CHA
+0xE5C1	0x091C	#  ज DEVANAGARI LETTER JA
+0xE5C2	0x095B	#  ज़ DEVANAGARI LETTER ZA
+0xE5C3	0x091D	#  झ DEVANAGARI LETTER JHA
+0xE5C4	0x091E	#  ञ DEVANAGARI LETTER NYA
+0xE5C5	0x091F	#  ट DEVANAGARI LETTER TTA
+0xE5C6	0x0920	#  ठ DEVANAGARI LETTER TTHA
+0xE5C7	0x0921	#  ड DEVANAGARI LETTER DDA
+0xE5C8	0x095C	#  ड़ DEVANAGARI LETTER DDDHA
+0xE5C9	0x0922	#  ढ DEVANAGARI LETTER DDHA
+0xE5CA	0x095D	#  ढ़ DEVANAGARI LETTER RHA
+0xE5CB	0x0923	#  ण DEVANAGARI LETTER NNA
+0xE5CC	0x0924	#  त DEVANAGARI LETTER TA
+0xE5CD	0x0925	#  थ DEVANAGARI LETTER THA
+0xE5CE	0x0926	#  द DEVANAGARI LETTER DA
+0xE5CF	0x0927	#  ध DEVANAGARI LETTER DHA
+0xE5D0	0x0928	#  न DEVANAGARI LETTER NA
+0xE5D1	0x0929	#  ऩ DEVANAGARI LETTER NNNA
+0xE5D2	0x092A	#  प DEVANAGARI LETTER PA
+0xE5D3	0x092B	#  फ DEVANAGARI LETTER PHA
+0xE5D4	0x095E	#  फ़ DEVANAGARI LETTER FA
+0xE5D5	0x092C	#  ब DEVANAGARI LETTER BA
+0xE5D6	0x092D	#  भ DEVANAGARI LETTER BHA
+0xE5D7	0x092E	#  म DEVANAGARI LETTER MA
+0xE5D8	0x092F	#  य DEVANAGARI LETTER YA
+0xE5D9	0x095F	#  य़ DEVANAGARI LETTER YYA
+0xE5DA	0x0930	#  र DEVANAGARI LETTER RA
+0xE5DB	0x0931	#  ऱ DEVANAGARI LETTER RRA
+0xE5DC	0x0932	#  ल DEVANAGARI LETTER LA
+0xE5DD	0x0933	#  ळ DEVANAGARI LETTER LLA
+0xE5DE	0x0934	#  ऴ DEVANAGARI LETTER LLLA
+0xE5DF	0x0935	#  व DEVANAGARI LETTER VA
+0xE5E0	0x0936	#  श DEVANAGARI LETTER SHA
+0xE5E1	0x0937	#  ष DEVANAGARI LETTER SSA
+0xE5E2	0x0938	#  स DEVANAGARI LETTER SA
+0xE5E3	0x0939	#  ह DEVANAGARI LETTER HA
+0xE5E6	0x093E	#  ा DEVANAGARI VOWEL SIGN AA
+0xE5E7	0x093F	#  ि DEVANAGARI VOWEL SIGN I
+0xE5E8	0x0940	#  ी DEVANAGARI VOWEL SIGN II
+0xE5E9	0x0941	#  ु DEVANAGARI VOWEL SIGN U
+0xE5EA	0x0942	#  ू DEVANAGARI VOWEL SIGN UU
+0xE5EB	0x0943	#  ृ DEVANAGARI VOWEL SIGN VOCALIC R
+0xE5EC	0x0944	#  ॄ DEVANAGARI VOWEL SIGN VOCALIC RR
+0xE5ED	0x0962	#  ॢ DEVANAGARI VOWEL SIGN VOCALIC L
+0xE5EE	0x0963	#  ॣ DEVANAGARI VOWEL SIGN VOCALIC LL
+0xE5EF	0x093C	#  ़ DEVANAGARI SIGN NUKTA
+0xE5F0	0x0947	#  े DEVANAGARI VOWEL SIGN E
+0xE5F1	0x0948	#  ै DEVANAGARI VOWEL SIGN AI
+0xE5F2	0x0945	#  ॅ DEVANAGARI VOWEL SIGN CANDRA E
+0xE5F4	0x094B	#  ो DEVANAGARI VOWEL SIGN O
+0xE5F5	0x094C	#  ौ DEVANAGARI VOWEL SIGN AU
+0xE5F6	0x0946	#  ॆ DEVANAGARI VOWEL SIGN SHORT E
+0xE5F7	0x094D	#  ् DEVANAGARI SIGN VIRAMA
+0xE5F8	0x0970	#  ॰ DEVANAGARI ABBREVIATION SIGN
+0xE5F9	0x093D	#  ऽ DEVANAGARI SIGN AVAGRAHA
+0xE5FA	0x0950	#  ॐ DEVANAGARI OM
+0xE5FB	0x0964	#  । DEVANAGARI DANDA
+0xE5FC	0x0949	#  ॉ DEVANAGARI VOWEL SIGN CANDRA O
+0xE5FD	0x20A8	#  ₨ RUPEE SIGN
+0xE5FE	0x094D	#  ् DEVANAGARI SIGN VIRAMA

unicode/xerox/XCCS-346=BENGALI.TXT

@@ -0,0 +1,135 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     346 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "346" UNKNOWN
+0xE621	0x09E6	#  ০ BENGALI DIGIT ZERO
+0xE622	0x09E7	#  ১ BENGALI DIGIT ONE
+0xE623	0x09E8	#  ২ BENGALI DIGIT TWO
+0xE624	0x09E9	#  ৩ BENGALI DIGIT THREE
+0xE625	0x09EA	#  ৪ BENGALI DIGIT FOUR
+0xE626	0x09EB	#  ৫ BENGALI DIGIT FIVE
+0xE627	0x09EC	#  ৬ BENGALI DIGIT SIX
+0xE628	0x09ED	#  ৭ BENGALI DIGIT SEVEN
+0xE629	0x09EE	#  ৮ BENGALI DIGIT EIGHT
+0xE62A	0x09EF	#  ৯ BENGALI DIGIT NINE
+0xE630	0x09F3	#  ৳ BENGALI RUPEE SIGN
+0xE631	0x09F4	#  ৴ BENGALI CURRENCY NUMERATOR ONE
+0xE632	0x09F5	#  ৵ BENGALI CURRENCY NUMERATOR TWO
+0xE633	0x09F6	#  ৶ BENGALI CURRENCY NUMERATOR THREE
+0xE634	0x09F8	#  ৸ BENGALI CURRENCY NUMERATOR ONE LESS THAN THE DENOMINATOR
+0xE635	0x09F2	#  ৲ BENGALI RUPEE MARK
+0xE636	0x09F9	#  ৹ BENGALI CURRENCY DENOMINATOR SIXTEEN
+0xE637	0x09F7	#  ৷ BENGALI CURRENCY NUMERATOR FOUR
+0xE6A1	0x0981	#  ঁ BENGALI SIGN CANDRABINDU
+0xE6A2	0x0982	#  ং BENGALI SIGN ANUSVARA
+0xE6A3	0x0983	#  ঃ BENGALI SIGN VISARGA
+0xE6A5	0x0985	#  অ BENGALI LETTER A
+0xE6A6	0x0986	#  আ BENGALI LETTER AA
+0xE6A7	0x0987	#  ই BENGALI LETTER I
+0xE6A8	0x0988	#  ঈ BENGALI LETTER II
+0xE6A9	0x0989	#  উ BENGALI LETTER U
+0xE6AA	0x098A	#  ঊ BENGALI LETTER UU
+0xE6AB	0x098B	#  ঋ BENGALI LETTER VOCALIC R
+0xE6AC	0x09E0	#  ৠ BENGALI LETTER VOCALIC RR
+0xE6AD	0x098C	#  ঌ BENGALI LETTER VOCALIC L
+0xE6AE	0x09E1	#  ৡ BENGALI LETTER VOCALIC LL
+0xE6B0	0x098F	#  এ BENGALI LETTER E
+0xE6B1	0x0990	#  ঐ BENGALI LETTER AI
+0xE6B4	0x0993	#  ও BENGALI LETTER O
+0xE6B5	0x0994	#  ঔ BENGALI LETTER AU
+0xE6B7	0x0995	#  ক BENGALI LETTER KA
+0xE6B9	0x0996	#  খ BENGALI LETTER KHA
+0xE6BB	0x0997	#  গ BENGALI LETTER GA
+0xE6BD	0x0998	#  ঘ BENGALI LETTER GHA
+0xE6BE	0x0999	#  ঙ BENGALI LETTER NGA
+0xE6BF	0x099A	#  চ BENGALI LETTER CA
+0xE6C0	0x099B	#  ছ BENGALI LETTER CHA
+0xE6C1	0x099C	#  জ BENGALI LETTER JA
+0xE6C3	0x099D	#  ঝ BENGALI LETTER JHA
+0xE6C4	0x099E	#  ঞ BENGALI LETTER NYA
+0xE6C5	0x099F	#  ট BENGALI LETTER TTA
+0xE6C6	0x09A0	#  ঠ BENGALI LETTER TTHA
+0xE6C7	0x09A1	#  ড BENGALI LETTER DDA
+0xE6C8	0x09DC	#  ড় BENGALI LETTER RRA
+0xE6C9	0x09A2	#  ঢ BENGALI LETTER DDHA
+0xE6CA	0x09DD	#  ঢ় BENGALI LETTER RHA
+0xE6CB	0x09A3	#  ণ BENGALI LETTER NNA
+0xE6CC	0x09A4	#  ত BENGALI LETTER TA
+0xE6CD	0x09A5	#  থ BENGALI LETTER THA
+0xE6CE	0x09A6	#  দ BENGALI LETTER DA
+0xE6CF	0x09A7	#  ধ BENGALI LETTER DHA
+0xE6D0	0x09A8	#  ন BENGALI LETTER NA
+0xE6D2	0x09AA	#  প BENGALI LETTER PA
+0xE6D3	0x09AB	#  ফ BENGALI LETTER PHA
+0xE6D5	0x09AC	#  ব BENGALI LETTER BA
+0xE6D6	0x09AD	#  ভ BENGALI LETTER BHA
+0xE6D7	0x09AE	#  ম BENGALI LETTER MA
+0xE6D8	0x09AF	#  য BENGALI LETTER YA
+0xE6D9	0x09DF	#  য় BENGALI LETTER YYA
+0xE6DA	0x09B0	#  র BENGALI LETTER RA
+0xE6DB	0x09F0	#  ৰ BENGALI LETTER RA WITH MIDDLE DIAGONAL
+0xE6DC	0x09B2	#  ল BENGALI LETTER LA
+0xE6DF	0x09F1	#  ৱ BENGALI LETTER RA WITH LOWER DIAGONAL
+0xE6E0	0x09B6	#  শ BENGALI LETTER SHA
+0xE6E1	0x09B7	#  ষ BENGALI LETTER SSA
+0xE6E2	0x09B8	#  স BENGALI LETTER SA
+0xE6E3	0x09B9	#  হ BENGALI LETTER HA
+0xE6E4	0x09BC	#  ় BENGALI SIGN NUKTA
+0xE6E5	0x00A0	#    NO-BREAK SPACE
+0xE6E6	0x09BE	#  া BENGALI VOWEL SIGN AA
+0xE6E7	0x09BF	#  ি BENGALI VOWEL SIGN I
+0xE6E8	0x09C0	#  ী BENGALI VOWEL SIGN II
+0xE6E9	0x09C1	#  ু BENGALI VOWEL SIGN U
+0xE6EA	0x09C2	#  ূ BENGALI VOWEL SIGN UU
+0xE6EB	0x09C3	#  ৃ BENGALI VOWEL SIGN VOCALIC R
+0xE6EC	0x09C4	#  ৄ BENGALI VOWEL SIGN VOCALIC RR
+0xE6ED	0x09E2	#  ৢ BENGALI VOWEL SIGN VOCALIC L
+0xE6EE	0x09E3	#  ৣ BENGALI VOWEL SIGN VOCALIC LL
+0xE6F0	0x09C7	#  ে BENGALI VOWEL SIGN E
+0xE6F1	0x09C8	#  ৈ BENGALI VOWEL SIGN AI
+0xE6F4	0x09CB	#  ো BENGALI VOWEL SIGN O
+0xE6F5	0x09CC	#  ৌ BENGALI VOWEL SIGN AU
+0xE6F7	0x09CD	#  ্ BENGALI SIGN VIRAMA
+0xE6FA	0x09FA	#  ৺ BENGALI ISSHAR
+0xE6FB	0x0964	#  । DEVANAGARI DANDA

unicode/xerox/XCCS-347=GURMUKHI.TXT

@@ -0,0 +1,105 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     347 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "347" UNKNOWN
+0xE722	0x0A02	#  ਂ GURMUKHI SIGN BINDI
+0xE725	0x0A05	#  ਅ GURMUKHI LETTER A
+0xE726	0x0A06	#  ਆ GURMUKHI LETTER AA
+0xE727	0x0A07	#  ਇ GURMUKHI LETTER I
+0xE728	0x0A08	#  ਈ GURMUKHI LETTER II
+0xE729	0x0A09	#  ਉ GURMUKHI LETTER U
+0xE72A	0x0A0A	#  ਊ GURMUKHI LETTER UU
+0xE72F	0x0A0F	#  ਏ GURMUKHI LETTER EE
+0xE730	0x0A10	#  ਐ GURMUKHI LETTER AI
+0xE733	0x0A13	#  ਓ GURMUKHI LETTER OO
+0xE734	0x0A14	#  ਔ GURMUKHI LETTER AU
+0xE735	0x0A15	#  ਕ GURMUKHI LETTER KA
+0xE736	0x0A16	#  ਖ GURMUKHI LETTER KHA
+0xE737	0x0A17	#  ਗ GURMUKHI LETTER GA
+0xE738	0x0A18	#  ਘ GURMUKHI LETTER GHA
+0xE739	0x0A19	#  ਙ GURMUKHI LETTER NGA
+0xE73A	0x0A1A	#  ਚ GURMUKHI LETTER CA
+0xE73B	0x0A1B	#  ਛ GURMUKHI LETTER CHA
+0xE73C	0x0A1C	#  ਜ GURMUKHI LETTER JA
+0xE73D	0x0A1D	#  ਝ GURMUKHI LETTER JHA
+0xE73E	0x0A1E	#  ਞ GURMUKHI LETTER NYA
+0xE73F	0x0A1F	#  ਟ GURMUKHI LETTER TTA
+0xE740	0x0A20	#  ਠ GURMUKHI LETTER TTHA
+0xE741	0x0A21	#  ਡ GURMUKHI LETTER DDA
+0xE742	0x0A22	#  ਢ GURMUKHI LETTER DDHA
+0xE743	0x0A23	#  ਣ GURMUKHI LETTER NNA
+0xE744	0x0A24	#  ਤ GURMUKHI LETTER TA
+0xE745	0x0A25	#  ਥ GURMUKHI LETTER THA
+0xE746	0x0A26	#  ਦ GURMUKHI LETTER DA
+0xE747	0x0A27	#  ਧ GURMUKHI LETTER DHA
+0xE748	0x0A28	#  ਨ GURMUKHI LETTER NA
+0xE74A	0x0A2A	#  ਪ GURMUKHI LETTER PA
+0xE74B	0x0A2B	#  ਫ GURMUKHI LETTER PHA
+0xE74C	0x0A2C	#  ਬ GURMUKHI LETTER BA
+0xE74D	0x0A2D	#  ਭ GURMUKHI LETTER BHA
+0xE74E	0x0A2E	#  ਮ GURMUKHI LETTER MA
+0xE74F	0x0A2F	#  ਯ GURMUKHI LETTER YA
+0xE750	0x0A30	#  ਰ GURMUKHI LETTER RA
+0xE752	0x0A32	#  ਲ GURMUKHI LETTER LA
+0xE753	0x0A33	#  ਲ਼ GURMUKHI LETTER LLA
+0xE755	0x0A35	#  ਵ GURMUKHI LETTER VA
+0xE756	0x0A36	#  ਸ਼ GURMUKHI LETTER SHA
+0xE758	0x0A38	#  ਸ GURMUKHI LETTER SA
+0xE759	0x0A39	#  ਹ GURMUKHI LETTER HA
+0xE75C	0x0A3C	#  ਼ GURMUKHI SIGN NUKTA
+0xE75E	0x0A3E	#  ਾ GURMUKHI VOWEL SIGN AA
+0xE75F	0x0A3F	#  ਿ GURMUKHI VOWEL SIGN I
+0xE760	0x0A40	#  ੀ GURMUKHI VOWEL SIGN II
+0xE761	0x0A41	#  ੁ GURMUKHI VOWEL SIGN U
+0xE762	0x0A42	#  ੂ GURMUKHI VOWEL SIGN UU
+0xE767	0x0A47	#  ੇ GURMUKHI VOWEL SIGN EE
+0xE768	0x0A48	#  ੈ GURMUKHI VOWEL SIGN AI
+0xE76B	0x0A4B	#  ੋ GURMUKHI VOWEL SIGN OO
+0xE76C	0x0A4C	#  ੌ GURMUKHI VOWEL SIGN AU
+0xE76D	0x0A4D	#  ੍ GURMUKHI SIGN VIRAMA
+0xE779	0x0A59	#  ਖ਼ GURMUKHI LETTER KHHA
+0xE77A	0x0A5A	#  ਗ਼ GURMUKHI LETTER GHHA
+0xE77B	0x0A5B	#  ਜ਼ GURMUKHI LETTER ZA
+0xE77C	0x0A5C	#  ੜ GURMUKHI LETTER RRA
+0xE77E	0x0A5E	#  ਫ਼ GURMUKHI LETTER FA

unicode/xerox/XCCS-350=THAI-LAO.TXT

@@ -0,0 +1,198 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     350 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "350" UNKNOWN
+0xE821	0x0E01	#  ก THAI CHARACTER KO KAI
+0xE822	0x0E02	#  ข THAI CHARACTER KHO KHAI
+0xE823	0x0E03	#  ฃ THAI CHARACTER KHO KHUAT
+0xE824	0x0E04	#  ค THAI CHARACTER KHO KHWAI
+0xE825	0x0E05	#  ฅ THAI CHARACTER KHO KHON
+0xE826	0x0E06	#  ฆ THAI CHARACTER KHO RAKHANG
+0xE827	0x0E07	#  ง THAI CHARACTER NGO NGU
+0xE828	0x0E08	#  จ THAI CHARACTER CHO CHAN
+0xE829	0x0E09	#  ฉ THAI CHARACTER CHO CHING
+0xE82A	0x0E0A	#  ช THAI CHARACTER CHO CHANG
+0xE82B	0x0E0B	#  ซ THAI CHARACTER SO SO
+0xE82C	0x0E0C	#  ฌ THAI CHARACTER CHO CHOE
+0xE82D	0x0E0D	#  ญ THAI CHARACTER YO YING
+0xE82E	0x0E0E	#  ฎ THAI CHARACTER DO CHADA
+0xE82F	0x0E0F	#  ฏ THAI CHARACTER TO PATAK
+0xE830	0x0E10	#  ฐ THAI CHARACTER THO THAN
+0xE831	0x0E11	#  ฑ THAI CHARACTER THO NANGMONTHO
+0xE832	0x0E12	#  ฒ THAI CHARACTER THO PHUTHAO
+0xE833	0x0E13	#  ณ THAI CHARACTER NO NEN
+0xE834	0x0E14	#  ด THAI CHARACTER DO DEK
+0xE835	0x0E15	#  ต THAI CHARACTER TO TAO
+0xE836	0x0E16	#  ถ THAI CHARACTER THO THUNG
+0xE837	0x0E17	#  ท THAI CHARACTER THO THAHAN
+0xE838	0x0E18	#  ธ THAI CHARACTER THO THONG
+0xE839	0x0E19	#  น THAI CHARACTER NO NU
+0xE83A	0x0E1A	#  บ THAI CHARACTER BO BAIMAI
+0xE83B	0x0E1B	#  ป THAI CHARACTER PO PLA
+0xE83C	0x0E1C	#  ผ THAI CHARACTER PHO PHUNG
+0xE83D	0x0E1D	#  ฝ THAI CHARACTER FO FA
+0xE83E	0x0E1E	#  พ THAI CHARACTER PHO PHAN
+0xE83F	0x0E1F	#  ฟ THAI CHARACTER FO FAN
+0xE840	0x0E20	#  ภ THAI CHARACTER PHO SAMPHAO
+0xE841	0x0E21	#  ม THAI CHARACTER MO MA
+0xE842	0x0E22	#  ย THAI CHARACTER YO YAK
+0xE843	0x0E23	#  ร THAI CHARACTER RO RUA
+0xE844	0x0E24	#  ฤ THAI CHARACTER RU
+0xE845	0x0E25	#  ล THAI CHARACTER LO LING
+0xE846	0x0E26	#  ฦ THAI CHARACTER LU
+0xE847	0x0E27	#  ว THAI CHARACTER WO WAEN
+0xE848	0x0E28	#  ศ THAI CHARACTER SO SALA
+0xE849	0x0E29	#  ษ THAI CHARACTER SO RUSI
+0xE84A	0x0E2A	#  ส THAI CHARACTER SO SUA
+0xE84B	0x0E2B	#  ห THAI CHARACTER HO HIP
+0xE84C	0x0E2C	#  ฬ THAI CHARACTER LO CHULA
+0xE84D	0x0E2D	#  อ THAI CHARACTER O ANG
+0xE84E	0x0E2E	#  ฮ THAI CHARACTER HO NOKHUK
+0xE84F	0x0E2F	#  ฯ THAI CHARACTER PAIYANNOI
+0xE850	0x0E30	#  ะ THAI CHARACTER SARA A
+0xE851	0x0E31	#  ั THAI CHARACTER MAI HAN-AKAT
+0xE852	0x0E32	#  า THAI CHARACTER SARA AA
+0xE853	0x0E33	#  ำ THAI CHARACTER SARA AM
+0xE854	0x0E34	#  ิ THAI CHARACTER SARA I
+0xE855	0x0E35	#  ี THAI CHARACTER SARA II
+0xE856	0x0E36	#  ึ THAI CHARACTER SARA UE
+0xE857	0x0E37	#  ื THAI CHARACTER SARA UEE
+0xE858	0x0E38	#  ุ THAI CHARACTER SARA U
+0xE859	0x0E39	#  ู THAI CHARACTER SARA UU
+0xE85A	0x0E3A	#  ฺ THAI CHARACTER PHINTHU
+0xE85F	0x0E3F	#  ฿ THAI CURRENCY SYMBOL BAHT
+0xE860	0x0E40	#  เ THAI CHARACTER SARA E
+0xE861	0x0E41	#  แ THAI CHARACTER SARA AE
+0xE862	0x0E42	#  โ THAI CHARACTER SARA O
+0xE863	0x0E43	#  ใ THAI CHARACTER SARA AI MAIMUAN
+0xE864	0x0E44	#  ไ THAI CHARACTER SARA AI MAIMALAI
+0xE865	0x0E45	#  ๅ THAI CHARACTER LAKKHANGYAO
+0xE866	0x0E46	#  ๆ THAI CHARACTER MAIYAMOK
+0xE867	0x0E47	#  ็ THAI CHARACTER MAITAIKHU
+0xE868	0x0E48	#  ่ THAI CHARACTER MAI EK
+0xE869	0x0E49	#  ้ THAI CHARACTER MAI THO
+0xE86A	0x0E4A	#  ๊ THAI CHARACTER MAI TRI
+0xE86B	0x0E4B	#  ๋ THAI CHARACTER MAI CHATTAWA
+0xE86C	0x0E4C	#  ์ THAI CHARACTER THANTHAKHAT
+0xE86D	0x0E4D	#  ํ THAI CHARACTER NIKHAHIT
+0xE86E	0x0E4E	#  ๎ THAI CHARACTER YAMAKKAN
+0xE86F	0x0E4F	#  ๏ THAI CHARACTER FONGMAN
+0xE870	0x0E50	#  ๐ THAI DIGIT ZERO
+0xE871	0x0E51	#  ๑ THAI DIGIT ONE
+0xE872	0x0E52	#  ๒ THAI DIGIT TWO
+0xE873	0x0E53	#  ๓ THAI DIGIT THREE
+0xE874	0x0E54	#  ๔ THAI DIGIT FOUR
+0xE875	0x0E55	#  ๕ THAI DIGIT FIVE
+0xE876	0x0E56	#  ๖ THAI DIGIT SIX
+0xE877	0x0E57	#  ๗ THAI DIGIT SEVEN
+0xE878	0x0E58	#  ๘ THAI DIGIT EIGHT
+0xE879	0x0E59	#  ๙ THAI DIGIT NINE
+0xE87A	0x0E5A	#  ๚ THAI CHARACTER ANGKHANKHU
+0xE87B	0x0E5B	#  ๛ THAI CHARACTER KHOMUT
+0xE8A1	0x0E81	#  ກ LAO LETTER KO
+0xE8A2	0x0E82	#  ຂ LAO LETTER KHO SUNG
+0xE8A4	0x0E84	#  ຄ LAO LETTER KHO TAM
+0xE8A7	0x0E87	#  ງ LAO LETTER NGO
+0xE8A8	0x0E88	#  ຈ LAO LETTER CO
+0xE8AA	0x0E8A	#  ຊ LAO LETTER SO TAM
+0xE8AD	0x0E8D	#  ຍ LAO LETTER NYO
+0xE8B4	0x0E94	#  ດ LAO LETTER DO
+0xE8B5	0x0E95	#  ຕ LAO LETTER TO
+0xE8B6	0x0E96	#  ຖ LAO LETTER THO SUNG
+0xE8B7	0x0E97	#  ທ LAO LETTER THO TAM
+0xE8B9	0x0E99	#  ນ LAO LETTER NO
+0xE8BA	0x0E9A	#  ບ LAO LETTER BO
+0xE8BB	0x0E9B	#  ປ LAO LETTER PO
+0xE8BC	0x0E9C	#  ຜ LAO LETTER PHO SUNG
+0xE8BD	0x0E9D	#  ຝ LAO LETTER FO TAM
+0xE8BE	0x0E9E	#  ພ LAO LETTER PHO TAM
+0xE8BF	0x0E9F	#  ຟ LAO LETTER FO SUNG
+0xE8C1	0x0EA1	#  ມ LAO LETTER MO
+0xE8C2	0x0EA2	#  ຢ LAO LETTER YO
+0xE8C3	0x0EA3	#  ຣ LAO LETTER LO LING
+0xE8C5	0x0EA5	#  ລ LAO LETTER LO LOOT
+0xE8C7	0x0EA7	#  ວ LAO LETTER WO
+0xE8CA	0x0EAA	#  ສ LAO LETTER SO SUNG
+0xE8CB	0x0EAB	#  ຫ LAO LETTER HO SUNG
+0xE8CD	0x0EAD	#  ອ LAO LETTER O
+0xE8CE	0x0EAE	#  ຮ LAO LETTER HO TAM
+0xE8CF	0x0EAF	#  ຯ LAO ELLIPSIS
+0xE8D0	0x0EB0	#  ະ LAO VOWEL SIGN A
+0xE8D1	0x0EB1	#  ັ LAO VOWEL SIGN MAI KAN
+0xE8D2	0x0EB2	#  າ LAO VOWEL SIGN AA
+0xE8D3	0x0EB3	#  ຳ LAO VOWEL SIGN AM
+0xE8D4	0x0EB4	#  ິ LAO VOWEL SIGN I
+0xE8D5	0x0EB5	#  ີ LAO VOWEL SIGN II
+0xE8D6	0x0EB6	#  ຶ LAO VOWEL SIGN Y
+0xE8D7	0x0EB7	#  ື LAO VOWEL SIGN YY
+0xE8D8	0x0EB8	#  ຸ LAO VOWEL SIGN U
+0xE8D9	0x0EB9	#  ູ LAO VOWEL SIGN UU
+0xE8DB	0x0EBB	#  ົ LAO VOWEL SIGN MAI KON
+0xE8DC	0x0EBC	#  ຼ LAO SEMIVOWEL SIGN LO
+0xE8DD	0x0EBD	#  ຽ LAO SEMIVOWEL SIGN NYO
+0xE8E0	0x0EC0	#  ເ LAO VOWEL SIGN E
+0xE8E1	0x0EC1	#  ແ LAO VOWEL SIGN EI
+0xE8E2	0x0EC2	#  ໂ LAO VOWEL SIGN O
+0xE8E3	0x0EC3	#  ໃ LAO VOWEL SIGN AY
+0xE8E4	0x0EC4	#  ໄ LAO VOWEL SIGN AI
+0xE8E5	0x0EBD	#  ຽ LAO SEMIVOWEL SIGN NYO
+0xE8E6	0x0EC6	#  ໆ LAO KO LA
+0xE8E8	0x0EC8	#  ່ LAO TONE MAI EK
+0xE8E9	0x0EC9	#  ້ LAO TONE MAI THO
+0xE8EA	0x0ECA	#  ໊ LAO TONE MAI TI
+0xE8EB	0x0ECB	#  ໋ LAO TONE MAI CATAWA
+0xE8EC	0x0ECC	#  ໌ LAO CANCELLATION MARK
+0xE8ED	0x0ECD	#  ໍ LAO NIGGAHITA
+0xE8F0	0x0ED0	#  ໐ LAO DIGIT ZERO
+0xE8F1	0x0ED1	#  ໑ LAO DIGIT ONE
+0xE8F2	0x0ED2	#  ໒ LAO DIGIT TWO
+0xE8F3	0x0ED3	#  ໓ LAO DIGIT THREE
+0xE8F4	0x0ED4	#  ໔ LAO DIGIT FOUR
+0xE8F5	0x0ED5	#  ໕ LAO DIGIT FIVE
+0xE8F6	0x0ED6	#  ໖ LAO DIGIT SIX
+0xE8F7	0x0ED7	#  ໗ LAO DIGIT SEVEN
+0xE8F8	0x0ED8	#  ໘ LAO DIGIT EIGHT
+0xE8F9	0x0ED9	#  ໙ LAO DIGIT NINE
+0xE8FC	0x0EDC	#  ໜ LAO HO NO
+0xE8FD	0x0EDD	#  ໝ LAO HO MO

unicode/xerox/XCCS-353=SYMBOLS3.TXT

@@ -0,0 +1,147 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     353 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "353" UNKNOWN
+0xEB21	0x2119	#  ℙ DOUBLE-STRUCK CAPITAL P
+0xEB22	0x210B	#  ℋ SCRIPT CAPITAL H
+0xEB23	0x2110	#  ℐ SCRIPT CAPITAL I
+0xEB24	0x224B	#  ≋ TRIPLE TILDE
+0xEB25	0x229C	#  ⊜ CIRCLED EQUALS
+0xEB26	0x2107	#  ℇ EULER CONSTANT
+0xEB27	0x0332	#  ̲ COMBINING LOW LINE
+0xEB28	0x203D	#  ‽ INTERROBANG
+0xEB29	0x2318	#  ⌘ PLACE OF INTEREST SIGN
+0xEB2B	0x210C	#  ℌ BLACK-LETTER CAPITAL H
+0xEB2D	0x1D53D	#  𝔽 MATHEMATICAL DOUBLE-STRUCK CAPITAL F
+0xEB2E	0x21C5	#  ⇅ UPWARDS ARROW LEFTWARDS OF DOWNWARDS ARROW
+0xEB2F	0x21F5	#  ⇵ DOWNWARDS ARROW LEFTWARDS OF UPWARDS ARROW
+0xEB30	0x21E2	#  ⇢ RIGHTWARDS DASHED ARROW
+0xEB31	0x2263	#  ≣ STRICTLY EQUIVALENT TO
+0xEB32	0x228D	#  ⊍ MULTISET MULTIPLICATION
+0xEB33	0x2ABD	#  ⪽ SUBSET WITH DOT
+0xEB34	0x2A15	#  ⨕ INTEGRAL AROUND A POINT OPERATOR
+0xEB35	0x2A16	#  ⨖ QUATERNION INTEGRAL OPERATOR
+0xEB36	0x222F	#  ∯ SURFACE INTEGRAL
+0xEB37	0x2230	#  ∰ VOLUME INTEGRAL
+0xEB3B	0x25A3	#  ▣ WHITE SQUARE CONTAINING BLACK SMALL SQUARE
+0xEB3C	0x2043	#  ⁃ HYPHEN BULLET
+0xEB3D	0x214C	#  ⅌ PER SIGN
+0xEB3E	0x2696	#  ⚖ SCALES
+0xEB3F	0x20A1	#  ₡ COLON SIGN
+0xEB40	0x2588	#  █ FULL BLOCK
+0xEB41	0x2624	#  ☤ CADUCEUS
+0xEB42	0x2108	#  ℈ SCRUPLE
+0xEB44	0x262F	#  ☯ YIN YANG
+0xEB45	0x2639	#  ☹ WHITE FROWNING FACE
+0xEB46	0x267F	#  ♿ WHEELCHAIR SYMBOL
+0xEB47	0x25AA	#  ▪ BLACK SMALL SQUARE
+0xEB4B	0x2319	#  ⌙ TURNED NOT SIGN
+0xEB4C	0x25E4	#  ◤ BLACK UPPER LEFT TRIANGLE
+0xEB4D	0x25E5	#  ◥ BLACK UPPER RIGHT TRIANGLE
+0xEB4E	0x25E2	#  ◢ BLACK LOWER RIGHT TRIANGLE
+0xEB4F	0x25E3	#  ◣ BLACK LOWER LEFT TRIANGLE
+0xEB50	0x2155	#  ⅕ VULGAR FRACTION ONE FIFTH
+0xEB51	0x2156	#  ⅖ VULGAR FRACTION TWO FIFTHS
+0xEB52	0x2157	#  ⅗ VULGAR FRACTION THREE FIFTHS
+0xEB53	0x2158	#  ⅘ VULGAR FRACTION FOUR FIFTHS
+0xEB54	0x2159	#  ⅙ VULGAR FRACTION ONE SIXTH
+0xEB55	0x215A	#  ⅚ VULGAR FRACTION FIVE SIXTHS
+0xEB56	0x2669	#  ♩ QUARTER NOTE
+0xEB59	0x222D	#  ∭ TRIPLE INTEGRAL
+0xEB5A	0x25E6	#  ◦ WHITE BULLET
+0xEB5E	0x2133	#  ℳ SCRIPT CAPITAL M
+0xEB5F	0x2315	#  ⌕ TELEPHONE RECORDER
+0xEB66	0x2211	#  ∑ N-ARY SUMMATION
+0xEB6B	0x25A0	#  ■ BLACK SQUARE
+0xEB6C	0x25B8	#  ▸ BLACK RIGHT-POINTING SMALL TRIANGLE
+0xEB6D	0x25C2	#  ◂ BLACK LEFT-POINTING SMALL TRIANGLE
+0xEB6E	0x2022	#  • BULLET
+0xEB6F	0x212F	#  ℯ SCRIPT SMALL E
+0xEB71	0x2118	#  ℘ SCRIPT CAPITAL P
+0xEB73	0x2122	#  ™ TRADE MARK SIGN
+0xEB74	0x2122	#  ™ TRADE MARK SIGN
+0xEB77	0x25A1	#  □ WHITE SQUARE
+0xEB78	0x25AB	#  ▫ WHITE SMALL SQUARE
+0xEB79	0x25E6	#  ◦ WHITE BULLET
+0xEB7A	0x22BB	#  ⊻ XOR
+0xEB7B	0x212D	#  ℭ BLACK-LETTER CAPITAL C
+0xEB7C	0x2128	#  ℨ BLACK-LETTER CAPITAL Z
+0xEB7D	0x20A7	#  ₧ PESETA SIGN
+0xEBA6	0x25CC	#  ◌ DOTTED CIRCLE
+0xEBA7	0x25AD	#  ▭ WHITE RECTANGLE
+0xEBA8	0x25B1	#  ▱ WHITE PARALLELOGRAM
+0xEBAA	0x2120	#  ℠ SERVICE MARK
+0xEBAB	0x20D2	#  ⃒ COMBINING LONG VERTICAL LINE OVERLAY
+0xEBAC	0x20D3	#  ⃓ COMBINING SHORT VERTICAL LINE OVERLAY
+0xEBAE	0x20D8	#  ⃘ COMBINING RING OVERLAY
+0xEBAF	0x20DA	#  ⃚ COMBINING ANTICLOCKWISE RING OVERLAY
+0xEBB0	0x20D9	#  ⃙ COMBINING CLOCKWISE RING OVERLAY
+0xEBB1	0x20D4	#  ⃔ COMBINING ANTICLOCKWISE ARROW ABOVE
+0xEBB2	0x20D5	#  ⃕ COMBINING CLOCKWISE ARROW ABOVE
+0xEBB3	0x2279	#  ≹ NEITHER GREATER-THAN NOR LESS-THAN
+0xEBB4	0x2278	#  ≸ NEITHER LESS-THAN NOR GREATER-THAN
+0xEBB7	0x2246	#  ≆ APPROXIMATELY BUT NOT ACTUALLY EQUAL TO
+0xEBB8	0x22BC	#  ⊼ NAND
+0xEBB9	0x22BD	#  ⊽ NOR
+0xEBBB	0x220C	#  ∌ DOES NOT CONTAIN AS MEMBER
+0xEBBC	0x210E	#  ℎ PLANCK CONSTANT
+0xEBBE	0x2629	#  ☩ CROSS OF JERUSALEM
+0xEBBF	0x2613	#  ☓ SALTIRE
+0xEBC1	0x2232	#  ∲ CLOCKWISE CONTOUR INTEGRAL
+0xEBC2	0x2233	#  ∳ ANTICLOCKWISE CONTOUR INTEGRAL
+0xEBC3	0x2231	#  ∱ CLOCKWISE INTEGRAL
+0xEBC4	0x22B7	#  ⊷ IMAGE OF
+0xEBC5	0x22B6	#  ⊶ ORIGINAL OF
+0xEBC6	0x223E	#  ∾ INVERTED LAZY S
+0xEBC7	0x223B	#  ∻ HOMOTHETIC
+0xEBCB	0x21DD	#  ⇝ RIGHTWARDS SQUIGGLE ARROW
+0xEBCC	0x21DC	#  ⇜ LEFTWARDS SQUIGGLE ARROW
+0xEBCD	0x2307	#  ⌇ WAVY LINE
+0xEBD0	0x2129	#  ℩ TURNED GREEK SMALL LETTER IOTA
+0xEBD1	0x216A	#  Ⅺ ROMAN NUMERAL ELEVEN
+0xEBD2	0x216B	#  Ⅻ ROMAN NUMERAL TWELVE
+0xEBDF	0x25DE	#  ◞ LOWER RIGHT QUADRANT CIRCULAR ARC
+0xEBE0	0x25DD	#  ◝ UPPER RIGHT QUADRANT CIRCULAR ARC
+0xEBE1	0x25DF	#  ◟ LOWER LEFT QUADRANT CIRCULAR ARC
+0xEBE2	0x25DC	#  ◜ UPPER LEFT QUADRANT CIRCULAR ARC

unicode/xerox/XCCS-354=EXTENDED-ITC-DINGBATS.TXT

@@ -0,0 +1,107 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     354 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "354" UNKNOWN
+0xEC22	0x261B	#  ☛ BLACK RIGHT POINTING INDEX
+0xEC23	0x261A	#  ☚ BLACK LEFT POINTING INDEX
+0xEC25	0x2702	#  ✂ BLACK SCISSORS
+0xEC26	0x2704	#  ✄ WHITE SCISSORS
+0xEC27	0x260E	#  ☎ BLACK TELEPHONE
+0xEC28	0x2712	#  ✒ BLACK NIB
+0xEC2A	0x2713	#  ✓ CHECK MARK
+0xEC2B	0xFF0B	#  ＋ FULLWIDTH PLUS SIGN
+0xEC2E	0x2605	#  ★ BLACK STAR
+0xEC2F	0x2606	#  ☆ WHITE STAR
+0xEC30	0x002A	#  * ASTERISK
+0xEC40	0x0040	#  @ COMMERCIAL AT
+0xEC46	0x2718	#  ✘ HEAVY BALLOT X
+0xEC4A	0x2704	#  ✄ WHITE SCISSORS
+0xEC4B	0x260F	#  ☏ WHITE TELEPHONE
+0xEC4C	0x2711	#  ✑ WHITE NIB
+0xEC4E	0x2705	#  ✅ WHITE HEAVY CHECK MARK
+0xEC50	0x0040	#  @ COMMERCIAL AT
+0xEC51	0x25D6	#  ◖ LEFT HALF BLACK CIRCLE
+0xEC73	0x2795	#  ➕ HEAVY PLUS SIGN
+0xEC77	0x261A	#  ☚ BLACK LEFT POINTING INDEX
+0xECB8	0x2460	#  ① CIRCLED DIGIT ONE
+0xECB9	0x2461	#  ② CIRCLED DIGIT TWO
+0xECBA	0x2462	#  ③ CIRCLED DIGIT THREE
+0xECBB	0x2463	#  ④ CIRCLED DIGIT FOUR
+0xECBC	0x2464	#  ⑤ CIRCLED DIGIT FIVE
+0xECBD	0x2465	#  ⑥ CIRCLED DIGIT SIX
+0xECBE	0x2466	#  ⑦ CIRCLED DIGIT SEVEN
+0xECBF	0x2467	#  ⑧ CIRCLED DIGIT EIGHT
+0xECC0	0x2468	#  ⑨ CIRCLED DIGIT NINE
+0xECC1	0x2469	#  ⑩ CIRCLED NUMBER TEN
+0xECC2	0x2780	#  ➀ DINGBAT CIRCLED SANS-SERIF DIGIT ONE
+0xECC3	0x2781	#  ➁ DINGBAT CIRCLED SANS-SERIF DIGIT TWO
+0xECC4	0x2782	#  ➂ DINGBAT CIRCLED SANS-SERIF DIGIT THREE
+0xECC5	0x2783	#  ➃ DINGBAT CIRCLED SANS-SERIF DIGIT FOUR
+0xECC6	0x2784	#  ➄ DINGBAT CIRCLED SANS-SERIF DIGIT FIVE
+0xECC7	0x2785	#  ➅ DINGBAT CIRCLED SANS-SERIF DIGIT SIX
+0xECC8	0x2786	#  ➆ DINGBAT CIRCLED SANS-SERIF DIGIT SEVEN
+0xECC9	0x2787	#  ➇ DINGBAT CIRCLED SANS-SERIF DIGIT EIGHT
+0xECCA	0x2788	#  ➈ DINGBAT CIRCLED SANS-SERIF DIGIT NINE
+0xECCB	0x2789	#  ➉ DINGBAT CIRCLED SANS-SERIF NUMBER TEN
+0xECCC	0x278A	#  ➊ DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT ONE
+0xECCD	0x278B	#  ➋ DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT TWO
+0xECCE	0x278C	#  ➌ DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT THREE
+0xECCF	0x278D	#  ➍ DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT FOUR
+0xECD0	0x278E	#  ➎ DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT FIVE
+0xECD1	0x278F	#  ➏ DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT SIX
+0xECD2	0x2790	#  ➐ DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT SEVEN
+0xECD3	0x2791	#  ➑ DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT EIGHT
+0xECD4	0x2792	#  ➒ DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT NINE
+0xECD5	0x2793	#  ➓ DINGBAT NEGATIVE CIRCLED SANS-SERIF NUMBER TEN
+0xECE0	0x25CF	#  ● BLACK CIRCLE
+0xECE1	0x25D5	#  ◕ CIRCLE WITH ALL BUT UPPER LEFT QUADRANT BLACK
+0xECE2	0x25D2	#  ◒ CIRCLE WITH LOWER HALF BLACK
+0xECE3	0x25D1	#  ◑ CIRCLE WITH RIGHT HALF BLACK
+0xECE4	0x25D4	#  ◔ CIRCLE WITH UPPER RIGHT QUADRANT BLACK
+0xECE5	0x25CB	#  ○ WHITE CIRCLE
+0xECF5	0x25D0	#  ◐ CIRCLE WITH LEFT HALF BLACK
+0xECF6	0x25D3	#  ◓ CIRCLE WITH UPPER HALF BLACK
+0xECF7	0x275D	#  ❝ HEAVY DOUBLE TURNED COMMA QUOTATION MARK ORNAMENT
+0xECF8	0x275E	#  ❞ HEAVY DOUBLE COMMA QUOTATION MARK ORNAMENT
+0xECF9	0x2758	#  ❘ LIGHT VERTICAL BAR

unicode/xerox/XCCS-355=ITC-DINGBATS1.TXT

@@ -0,0 +1,182 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     355 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "355" UNKNOWN
+0xED21	0x2701	#  ✁ UPPER BLADE SCISSORS
+0xED22	0x2702	#  ✂ BLACK SCISSORS
+0xED23	0x2703	#  ✃ LOWER BLADE SCISSORS
+0xED24	0x2704	#  ✄ WHITE SCISSORS
+0xED25	0x260E	#  ☎ BLACK TELEPHONE
+0xED26	0x2706	#  ✆ TELEPHONE LOCATION SIGN
+0xED27	0x2707	#  ✇ TAPE DRIVE
+0xED28	0x2708	#  ✈ AIRPLANE
+0xED29	0x2709	#  ✉ ENVELOPE
+0xED2A	0x261B	#  ☛ BLACK RIGHT POINTING INDEX
+0xED2B	0x261E	#  ☞ WHITE RIGHT POINTING INDEX
+0xED2C	0x270C	#  ✌ VICTORY HAND
+0xED2D	0x270D	#  ✍ WRITING HAND
+0xED2E	0x270E	#  ✎ LOWER RIGHT PENCIL
+0xED2F	0x270F	#  ✏ PENCIL
+0xED30	0x2710	#  ✐ UPPER RIGHT PENCIL
+0xED31	0x2711	#  ✑ WHITE NIB
+0xED32	0x2712	#  ✒ BLACK NIB
+0xED33	0x2714	#  ✔ HEAVY CHECK MARK
+0xED34	0x2715	#  ✕ MULTIPLICATION X
+0xED35	0x2716	#  ✖ HEAVY MULTIPLICATION X
+0xED37	0x2718	#  ✘ HEAVY BALLOT X
+0xED38	0x2719	#  ✙ OUTLINED GREEK CROSS
+0xED39	0x271A	#  ✚ HEAVY GREEK CROSS
+0xED3A	0x271B	#  ✛ OPEN CENTRE CROSS
+0xED3B	0x271C	#  ✜ HEAVY OPEN CENTRE CROSS
+0xED3C	0x271D	#  ✝ LATIN CROSS
+0xED3D	0x271E	#  ✞ SHADOWED WHITE LATIN CROSS
+0xED3E	0x271F	#  ✟ OUTLINED LATIN CROSS
+0xED3F	0x2721	#  ✡ STAR OF DAVID
+0xED40	0x2722	#  ✢ FOUR TEARDROP-SPOKED ASTERISK
+0xED41	0x2723	#  ✣ FOUR BALLOON-SPOKED ASTERISK
+0xED42	0x2724	#  ✤ HEAVY FOUR BALLOON-SPOKED ASTERISK
+0xED43	0x2725	#  ✥ FOUR CLUB-SPOKED ASTERISK
+0xED44	0x2726	#  ✦ BLACK FOUR POINTED STAR
+0xED45	0x2727	#  ✧ WHITE FOUR POINTED STAR
+0xED46	0x2729	#  ✩ STRESS OUTLINED WHITE STAR
+0xED47	0x272A	#  ✪ CIRCLED WHITE STAR
+0xED48	0x272B	#  ✫ OPEN CENTRE BLACK STAR
+0xED49	0x272C	#  ✬ BLACK CENTRE WHITE STAR
+0xED4A	0x272D	#  ✭ OUTLINED BLACK STAR
+0xED4B	0x272E	#  ✮ HEAVY OUTLINED BLACK STAR
+0xED4C	0x272F	#  ✯ PINWHEEL STAR
+0xED4D	0x2730	#  ✰ SHADOWED WHITE STAR
+0xED4E	0x2731	#  ✱ HEAVY ASTERISK
+0xED4F	0x2732	#  ✲ OPEN CENTRE ASTERISK
+0xED50	0x2733	#  ✳ EIGHT SPOKED ASTERISK
+0xED51	0x2734	#  ✴ EIGHT POINTED BLACK STAR
+0xED52	0x2735	#  ✵ EIGHT POINTED PINWHEEL STAR
+0xED53	0x2736	#  ✶ SIX POINTED BLACK STAR
+0xED54	0x2737	#  ✷ EIGHT POINTED RECTILINEAR BLACK STAR
+0xED55	0x2738	#  ✸ HEAVY EIGHT POINTED RECTILINEAR BLACK STAR
+0xED56	0x2739	#  ✹ TWELVE POINTED BLACK STAR
+0xED57	0x273A	#  ✺ SIXTEEN POINTED ASTERISK
+0xED58	0x273B	#  ✻ TEARDROP-SPOKED ASTERISK
+0xED59	0x273C	#  ✼ OPEN CENTRE TEARDROP-SPOKED ASTERISK
+0xED5A	0x273D	#  ✽ HEAVY TEARDROP-SPOKED ASTERISK
+0xED5B	0x273E	#  ✾ SIX PETALLED BLACK AND WHITE FLORETTE
+0xED5C	0x273F	#  ✿ BLACK FLORETTE
+0xED5D	0x2740	#  ❀ WHITE FLORETTE
+0xED5E	0x2741	#  ❁ EIGHT PETALLED OUTLINED BLACK FLORETTE
+0xED5F	0x2742	#  ❂ CIRCLED OPEN CENTRE EIGHT POINTED STAR
+0xED60	0x2743	#  ❃ HEAVY TEARDROP-SPOKED PINWHEEL ASTERISK
+0xED61	0x2744	#  ❄ SNOWFLAKE
+0xED62	0x2745	#  ❅ TIGHT TRIFOLIATE SNOWFLAKE
+0xED63	0x2746	#  ❆ HEAVY CHEVRON SNOWFLAKE
+0xED64	0x2747	#  ❇ SPARKLE
+0xED65	0x2748	#  ❈ HEAVY SPARKLE
+0xED66	0x2749	#  ❉ BALLOON-SPOKED ASTERISK
+0xED67	0x274A	#  ❊ EIGHT TEARDROP-SPOKED PROPELLER ASTERISK
+0xED68	0x274B	#  ❋ HEAVY EIGHT TEARDROP-SPOKED PROPELLER ASTERISK
+0xED69	0x274D	#  ❍ SHADOWED WHITE CIRCLE
+0xED6A	0x274F	#  ❏ LOWER RIGHT DROP-SHADOWED WHITE SQUARE
+0xED6B	0x2750	#  ❐ UPPER RIGHT DROP-SHADOWED WHITE SQUARE
+0xED6C	0x2751	#  ❑ LOWER RIGHT SHADOWED WHITE SQUARE
+0xED6D	0x2752	#  ❒ UPPER RIGHT SHADOWED WHITE SQUARE
+0xED6E	0x2756	#  ❖ BLACK DIAMOND MINUS WHITE X
+0xED6F	0x25D7	#  ◗ RIGHT HALF BLACK CIRCLE
+0xED70	0x2759	#  ❙ MEDIUM VERTICAL BAR
+0xED71	0x275A	#  ❚ HEAVY VERTICAL BAR
+0xED72	0x2761	#  ❡ CURVED STEM PARAGRAPH SIGN ORNAMENT
+0xED73	0x2762	#  ❢ HEAVY EXCLAMATION MARK ORNAMENT
+0xED74	0x2763	#  ❣ HEAVY HEART EXCLAMATION MARK ORNAMENT
+0xED75	0x2764	#  ❤ HEAVY BLACK HEART
+0xED76	0x2765	#  ❥ ROTATED HEAVY BLACK HEART BULLET
+0xED77	0x2766	#  ❦ FLORAL HEART
+0xED78	0x2767	#  ❧ ROTATED FLORAL HEART BULLET
+0xED79	0x2776	#  ❶ DINGBAT NEGATIVE CIRCLED DIGIT ONE
+0xED7A	0x2777	#  ❷ DINGBAT NEGATIVE CIRCLED DIGIT TWO
+0xED7B	0x2778	#  ❸ DINGBAT NEGATIVE CIRCLED DIGIT THREE
+0xED7C	0x2779	#  ❹ DINGBAT NEGATIVE CIRCLED DIGIT FOUR
+0xED7D	0x277A	#  ❺ DINGBAT NEGATIVE CIRCLED DIGIT FIVE
+0xED7E	0x277B	#  ❻ DINGBAT NEGATIVE CIRCLED DIGIT SIX
+0xEDA1	0x277C	#  ❼ DINGBAT NEGATIVE CIRCLED DIGIT SEVEN
+0xEDA2	0x277D	#  ❽ DINGBAT NEGATIVE CIRCLED DIGIT EIGHT
+0xEDA3	0x277E	#  ❾ DINGBAT NEGATIVE CIRCLED DIGIT NINE
+0xEDA4	0x277F	#  ❿ DINGBAT NEGATIVE CIRCLED NUMBER TEN
+0xEDA5	0x2794	#  ➔ HEAVY WIDE-HEADED RIGHTWARDS ARROW
+0xEDA6	0x2798	#  ➘ HEAVY SOUTH EAST ARROW
+0xEDA7	0x2799	#  ➙ HEAVY RIGHTWARDS ARROW
+0xEDA8	0x279A	#  ➚ HEAVY NORTH EAST ARROW
+0xEDA9	0x279B	#  ➛ DRAFTING POINT RIGHTWARDS ARROW
+0xEDAA	0x279C	#  ➜ HEAVY ROUND-TIPPED RIGHTWARDS ARROW
+0xEDAB	0x279D	#  ➝ TRIANGLE-HEADED RIGHTWARDS ARROW
+0xEDAC	0x279E	#  ➞ HEAVY TRIANGLE-HEADED RIGHTWARDS ARROW
+0xEDAD	0x279F	#  ➟ DASHED TRIANGLE-HEADED RIGHTWARDS ARROW
+0xEDAE	0x27A0	#  ➠ HEAVY DASHED TRIANGLE-HEADED RIGHTWARDS ARROW
+0xEDAF	0x27A2	#  ➢ THREE-D TOP-LIGHTED RIGHTWARDS ARROWHEAD
+0xEDB0	0x27A3	#  ➣ THREE-D BOTTOM-LIGHTED RIGHTWARDS ARROWHEAD
+0xEDB1	0x27A4	#  ➤ BLACK RIGHTWARDS ARROWHEAD
+0xEDB2	0x27A5	#  ➥ HEAVY BLACK CURVED DOWNWARDS AND RIGHTWARDS ARROW
+0xEDB3	0x27A6	#  ➦ HEAVY BLACK CURVED UPWARDS AND RIGHTWARDS ARROW
+0xEDB4	0x27A7	#  ➧ SQUAT BLACK RIGHTWARDS ARROW
+0xEDB5	0x27A8	#  ➨ HEAVY CONCAVE-POINTED BLACK RIGHTWARDS ARROW
+0xEDB6	0x27A9	#  ➩ RIGHT-SHADED WHITE RIGHTWARDS ARROW
+0xEDB7	0x27AA	#  ➪ LEFT-SHADED WHITE RIGHTWARDS ARROW
+0xEDB8	0x27AB	#  ➫ BACK-TILTED SHADOWED WHITE RIGHTWARDS ARROW
+0xEDB9	0x27AC	#  ➬ FRONT-TILTED SHADOWED WHITE RIGHTWARDS ARROW
+0xEDBA	0x27AD	#  ➭ HEAVY LOWER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+0xEDBB	0x27AE	#  ➮ HEAVY UPPER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+0xEDBC	0x27AF	#  ➯ NOTCHED LOWER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+0xEDBD	0x27B1	#  ➱ NOTCHED UPPER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+0xEDBE	0x27B2	#  ➲ CIRCLED HEAVY WHITE RIGHTWARDS ARROW
+0xEDBF	0x27B3	#  ➳ WHITE-FEATHERED RIGHTWARDS ARROW
+0xEDC0	0x27B4	#  ➴ BLACK-FEATHERED SOUTH EAST ARROW
+0xEDC1	0x27B5	#  ➵ BLACK-FEATHERED RIGHTWARDS ARROW
+0xEDC2	0x27B6	#  ➶ BLACK-FEATHERED NORTH EAST ARROW
+0xEDC3	0x27B7	#  ➷ HEAVY BLACK-FEATHERED SOUTH EAST ARROW
+0xEDC4	0x27B8	#  ➸ HEAVY BLACK-FEATHERED RIGHTWARDS ARROW
+0xEDC5	0x27B9	#  ➹ HEAVY BLACK-FEATHERED NORTH EAST ARROW
+0xEDC6	0x27BA	#  ➺ TEARDROP-BARBED RIGHTWARDS ARROW
+0xEDC7	0x27BB	#  ➻ HEAVY TEARDROP-SHANKED RIGHTWARDS ARROW
+0xEDC8	0x27BC	#  ➼ WEDGE-TAILED RIGHTWARDS ARROW
+0xEDC9	0x27BD	#  ➽ HEAVY WEDGE-TAILED RIGHTWARDS ARROW
+0xEDCA	0x27BE	#  ➾ OPEN-OUTLINED RIGHTWARDS ARROW
+0xEDE3	0x275B	#  ❛ HEAVY SINGLE TURNED COMMA QUOTATION MARK ORNAMENT
+0xEDE4	0x275C	#  ❜ HEAVY SINGLE COMMA QUOTATION MARK ORNAMENT

unicode/xerox/XCCS-356=SYMBOLS2.TXT

@@ -0,0 +1,221 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     356 SYMBOLS3
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "356" SYMBOLS3
+0xEE21	0x2004	#    THREE-PER-EM SPACE
+0xEE22	0x2005	#    FOUR-PER-EM SPACE
+0xEE23	0x200A	#    HAIR SPACE
+0xEE24	0x2008	#    PUNCTUATION SPACE
+0xEE25	0x2027	#  ‧ HYPHENATION POINT
+0xEE26	0x230E	#  ⌎ TOP RIGHT CROP
+0xEE27	0x230F	#  ⌏ TOP LEFT CROP
+0xEE28	0x230C	#  ⌌ BOTTOM RIGHT CROP
+0xEE29	0x230D	#  ⌍ BOTTOM LEFT CROP
+0xEE2A	0x25AE	#  ▮ BLACK VERTICAL RECTANGLE
+0xEE2B	0x2214	#  ∔ DOT PLUS
+0xEE2C	0x066C	#  ٬ ARABIC THOUSANDS SEPARATOR
+0xEE2D	0x2212	#  − MINUS SIGN
+0xEE2E	0x066B	#  ٫ ARABIC DECIMAL SEPARATOR
+0xEE2F	0x210F	#  ℏ PLANCK CONSTANT OVER TWO PI
+0xEE30	0x226C	#  ≬ BETWEEN
+0xEE31	0x2100	#  ℀ ACCOUNT OF
+0xEE33	0x260F	#  ☏ WHITE TELEPHONE
+0xEE34	0x2236	#  ∶ RATIO
+0xEE35	0x0021	#  ! EXCLAMATION MARK
+0xEE36	0x22A6	#  ⊦ ASSERTION
+0xEE37	0x232F	#  ⌯ SYMMETRY
+0xEE38	0x2330	#  ⌰ TOTAL RUNOUT
+0xEE39	0x01B5	#  Ƶ LATIN CAPITAL LETTER Z WITH STROKE
+0xEE3A	0x2302	#  ⌂ HOUSE
+0xEE3B	0x2238	#  ∸ DOT MINUS
+0xEE3C	0x2216	#  ∖ SET MINUS
+0xEE3D	0x2259	#  ≙ ESTIMATES
+0xEE3E	0x225A	#  ≚ EQUIANGULAR TO
+0xEE3F	0x22C7	#  ⋇ DIVISION TIMES
+0xEE40	0x2106	#  ℆ CADA UNA
+0xEE41	0x25D8	#  ◘ INVERSE BULLET
+0xEE42	0x224E	#  ≎ GEOMETRICALLY EQUIVALENT TO
+0xEE43	0x211B	#  ℛ SCRIPT CAPITAL R
+0xEE44	0x2112	#  ℒ SCRIPT CAPITAL L
+0xEE45	0x2206	#  ∆ INCREMENT
+0xEE46	0x2311	#  ⌑ SQUARE LOZENGE
+0xEE47	0x2038	#  ‸ CARET
+0xEE48	0x2104	#  ℄ CENTRE LINE SYMBOL
+0xEE49	0x23E4	#  ⏤ STRAIGHTNESS
+0xEE4A	0x25B1	#  ▱ WHITE PARALLELOGRAM
+0xEE4B	0x232D	#  ⌭ CYLINDRICITY
+0xEE4C	0x2312	#  ⌒ ARC
+0xEE4D	0x2313	#  ⌓ SEGMENT
+0xEE4E	0x232E	#  ⌮ ALL AROUND-PROFILE
+0xEE4F	0x2316	#  ⌖ POSITION INDICATOR
+0xEE50	0x21C4	#  ⇄ RIGHTWARDS ARROW OVER LEFTWARDS ARROW
+0xEE51	0x21D5	#  ⇕ UP DOWN DOUBLE ARROW
+0xEE52	0x228F	#  ⊏ SQUARE IMAGE OF
+0xEE53	0x2290	#  ⊐ SQUARE ORIGINAL OF
+0xEE54	0x0192	#  ƒ LATIN SMALL LETTER F WITH HOOK
+0xEE55	0x25D9	#  ◙ INVERSE WHITE CIRCLE
+0xEE56	0x22C2	#  ⋂ N-ARY INTERSECTION
+0xEE57	0x22C3	#  ⋃ N-ARY UNION
+0xEE5D	0x231B	#  ⌛ HOURGLASS
+0xEE60	0x2591	#  ░ LIGHT SHADE
+0xEE61	0x2593	#  ▓ DARK SHADE
+0xEE62	0x22D2	#  ⋒ DOUBLE INTERSECTION
+0xEE63	0x22D3	#  ⋓ DOUBLE UNION
+0xEE64	0x223A	#  ∺ GEOMETRIC PROPORTION
+0xEE67	0x2218	#  ∘ RING OPERATOR
+0xEE68	0x2242	#  ≂ MINUS TILDE
+0xEE69	0x2201	#  ∁ COMPLEMENT
+0xEE6A	0x2310	#  ⌐ REVERSED NOT SIGN
+0xEE6B	0x2032	#  ′ PRIME
+0xEE6C	0x2276	#  ≶ LESS-THAN OR GREATER-THAN
+0xEE6D	0x2277	#  ≷ GREATER-THAN OR LESS-THAN
+0xEE6E	0x2272	#  ≲ LESS-THAN OR EQUIVALENT TO
+0xEE6F	0x2273	#  ≳ GREATER-THAN OR EQUIVALENT TO
+0xEE70	0x22A4	#  ⊤ DOWN TACK
+0xEE71	0x2204	#  ∄ THERE DOES NOT EXIST
+0xEE72	0x2262	#  ≢ NOT IDENTICAL TO
+0xEE73	0x2308	#  ⌈ LEFT CEILING
+0xEE74	0x230A	#  ⌊ LEFT FLOOR
+0xEE75	0x007C	#  | VERTICAL LINE
+0xEE76	0x2309	#  ⌉ RIGHT CEILING
+0xEE77	0x230B	#  ⌋ RIGHT FLOOR
+0xEE78	0x224A	#  ≊ ALMOST EQUAL OR EQUAL TO
+0xEE79	0x224F	#  ≏ DIFFERENCE BETWEEN
+0xEE7A	0x203C	#  ‼ DOUBLE EXCLAMATION MARK
+0xEE7B	0x2035	#  ‵ REVERSED PRIME
+0xEE7C	0x2223	#  ∣ DIVIDES
+0xEE7D	0x2217	#  ∗ ASTERISK OPERATOR
+0xEE7E	0x223C	#  ∼ TILDE OPERATOR
+0xEEA1	0x22BA	#  ⊺ INTERCALATE
+0xEEA2	0x2024	#  ․ ONE DOT LEADER
+0xEEA3	0x2025	#  ‥ TWO DOT LEADER
+0xEEA4	0x2B95	#  ⮕ RIGHTWARDS BLACK ARROW
+0xEEA5	0x2B05	#  ⬅ LEFTWARDS BLACK ARROW
+0xEEA6	0x2B06	#  ⬆ UPWARDS BLACK ARROW
+0xEEA7	0x2B07	#  ⬇ DOWNWARDS BLACK ARROW
+0xEEA8	0x21E8	#  ⇨ RIGHTWARDS WHITE ARROW
+0xEEA9	0x21E6	#  ⇦ LEFTWARDS WHITE ARROW
+0xEEAA	0x21E7	#  ⇧ UPWARDS WHITE ARROW
+0xEEAB	0x21E9	#  ⇩ DOWNWARDS WHITE ARROW
+0xEEAC	0x2190	#  ← LEFTWARDS ARROW
+0xEEAD	0x2191	#  ↑ UPWARDS ARROW
+0xEEAE	0x2192	#  → RIGHTWARDS ARROW
+0xEEAF	0x2193	#  ↓ DOWNWARDS ARROW
+0xEEB0	0x25B6	#  ▶ BLACK RIGHT-POINTING TRIANGLE
+0xEEB1	0x25C0	#  ◀ BLACK LEFT-POINTING TRIANGLE
+0xEEB2	0x25B7	#  ▷ WHITE RIGHT-POINTING TRIANGLE
+0xEEB3	0x25C1	#  ◁ WHITE LEFT-POINTING TRIANGLE
+0xEEB4	0x22C5	#  ⋅ DOT OPERATOR
+0xEEB5	0x2195	#  ↕ UP DOWN ARROW
+0xEEB6	0x21A8	#  ↨ UP DOWN ARROW WITH BASE
+0xEEB7	0x2372	#  ⍲ APL FUNCTIONAL SYMBOL UP CARET TILDE
+0xEEB8	0x2371	#  ⍱ APL FUNCTIONAL SYMBOL DOWN CARET TILDE
+0xEEB9	0x2588	#  █ FULL BLOCK
+0xEEBA	0x2584	#  ▄ LOWER HALF BLOCK
+0xEEBB	0x2590	#  ▐ RIGHT HALF BLOCK
+0xEEBC	0x258C	#  ▌ LEFT HALF BLOCK
+0xEEBD	0x2580	#  ▀ UPPER HALF BLOCK
+0xEEBE	0x25C4	#  ◄ BLACK LEFT-POINTING POINTER
+0xEEBF	0x25BA	#  ► BLACK RIGHT-POINTING POINTER
+0xEEC0	0x236B	#  ⍫ APL FUNCTIONAL SYMBOL DEL TILDE
+0xEEC1	0x2352	#  ⍒ APL FUNCTIONAL SYMBOL DEL STILE
+0xEEC2	0x234B	#  ⍋ APL FUNCTIONAL SYMBOL DELTA STILE
+0xEEC3	0x233D	#  ⌽ APL FUNCTIONAL SYMBOL CIRCLE STILE
+0xEEC4	0x2349	#  ⍉ APL FUNCTIONAL SYMBOL CIRCLE BACKSLASH
+0xEEC5	0x235F	#  ⍟ APL FUNCTIONAL SYMBOL CIRCLE STAR
+0xEEC6	0x235E	#  ⍞ APL FUNCTIONAL SYMBOL QUOTE QUAD
+0xEEC7	0x2339	#  ⌹ APL FUNCTIONAL SYMBOL QUAD DIVIDE
+0xEEC8	0x233F	#  ⌿ APL FUNCTIONAL SYMBOL SLASH BAR
+0xEEC9	0x2340	#  ⍀ APL FUNCTIONAL SYMBOL BACKSLASH BAR
+0xEECA	0x2305	#  ⌅ PROJECTIVE
+0xEECB	0x2664	#  ♤ WHITE SPADE SUIT
+0xEECC	0x2665	#  ♥ BLACK HEART SUIT
+0xEECD	0x2666	#  ♦ BLACK DIAMOND SUIT
+0xEECE	0x2667	#  ♧ WHITE CLUB SUIT
+0xEED0	0x234E	#  ⍎ APL FUNCTIONAL SYMBOL DOWN TACK JOT
+0xEED1	0x2355	#  ⍕ APL FUNCTIONAL SYMBOL UP TACK JOT
+0xEED2	0x235D	#  ⍝ APL FUNCTIONAL SYMBOL UP SHOE JOT
+0xEED3	0x2336	#  ⌶ APL FUNCTIONAL SYMBOL I-BEAM
+0xEED4	0x233B	#  ⌻ APL FUNCTIONAL SYMBOL QUAD JOT
+0xEED5	0x266B	#  ♫ BEAMED EIGHTH NOTES
+0xEED6	0x22C9	#  ⋉ LEFT NORMAL FACTOR SEMIDIRECT PRODUCT
+0xEED7	0x22CA	#  ⋊ RIGHT NORMAL FACTOR SEMIDIRECT PRODUCT
+0xEED8	0x22CB	#  ⋋ LEFT SEMIDIRECT PRODUCT
+0xEED9	0x22CC	#  ⋌ RIGHT SEMIDIRECT PRODUCT
+0xEEDA	0x2306	#  ⌆ PERSPECTIVE
+0xEEDB	0x22BB	#  ⊻ XOR
+0xEEDC	0x2337	#  ⌷ APL FUNCTIONAL SYMBOL SQUISH QUAD
+0xEEDD	0x221F	#  ∟ RIGHT ANGLE
+0xEEDE	0x25AC	#  ▬ BLACK RECTANGLE
+0xEEDF	0x263B	#  ☻ BLACK SMILING FACE
+0xEEE0	0x23AB	#  ⎫ RIGHT CURLY BRACKET UPPER HOOK
+0xEEE1	0x23AA	#  ⎪ CURLY BRACKET EXTENSION
+0xEEE2	0x23AC	#  ⎬ RIGHT CURLY BRACKET MIDDLE PIECE
+0xEEE3	0x23AD	#  ⎭ RIGHT CURLY BRACKET LOWER HOOK
+0xEEE4	0x23A7	#  ⎧ LEFT CURLY BRACKET UPPER HOOK
+0xEEE5	0x23A9	#  ⎩ LEFT CURLY BRACKET LOWER HOOK
+0xEEE6	0x23A8	#  ⎨ LEFT CURLY BRACKET MIDDLE PIECE
+0xEEE7	0x23B0	#  ⎰ UPPER LEFT OR LOWER RIGHT CURLY BRACKET SECTION
+0xEEE8	0x23B1	#  ⎱ UPPER RIGHT OR LOWER LEFT CURLY BRACKET SECTION
+0xEEE9	0x22CF	#  ⋏ CURLY LOGICAL AND
+0xEEEA	0x22CE	#  ⋎ CURLY LOGICAL OR
+0xEEEB	0x22B4	#  ⊴ NORMAL SUBGROUP OF OR EQUAL TO
+0xEEEC	0x22B5	#  ⊵ CONTAINS AS NORMAL SUBGROUP OR EQUAL TO
+0xEEED	0x2320	#  ⌠ TOP HALF INTEGRAL
+0xEEEE	0x2321	#  ⌡ BOTTOM HALF INTEGRAL
+0xEEEF	0x23AA	#  ⎪ CURLY BRACKET EXTENSION
+0xEEF0	0x2342	#  ⍂ APL FUNCTIONAL SYMBOL QUAD BACKSLASH
+0xEEF2	0x21B6	#  ↶ ANTICLOCKWISE TOP SEMICIRCLE ARROW
+0xEEF3	0x21B7	#  ↷ CLOCKWISE TOP SEMICIRCLE ARROW
+0xEEF4	0x21BA	#  ↺ ANTICLOCKWISE OPEN CIRCLE ARROW
+0xEEF5	0x21BB	#  ↻ CLOCKWISE OPEN CIRCLE ARROW
+0xEEF6	0x21CB	#  ⇋ LEFTWARDS HARPOON OVER RIGHTWARDS HARPOON
+0xEEF7	0x219A	#  ↚ LEFTWARDS ARROW WITH STROKE
+0xEEF8	0x219B	#  ↛ RIGHTWARDS ARROW WITH STROKE
+0xEEF9	0x21AE	#  ↮ LEFT RIGHT ARROW WITH STROKE
+0xEEFA	0x21CD	#  ⇍ LEFTWARDS DOUBLE ARROW WITH STROKE
+0xEEFB	0x21CF	#  ⇏ RIGHTWARDS DOUBLE ARROW WITH STROKE
+0xEEFC	0x21CE	#  ⇎ LEFT RIGHT DOUBLE ARROW WITH STROKE
+0xEEFD	0x22CD	#  ⋍ REVERSED TILDE EQUALS
+0xEEFE	0x2241	#  ≁ NOT TILDE

unicode/xerox/XCCS-356=SYMBOLS3.TXT

@@ -1,233 +0,0 @@
-#  
-#          Name:             XCCS (XC-3-1-1-0) to Unicode
-#          Unicode version:  3.0
-#          XCCS charset:     356 SYMBOLS3
-#          Table version:    0.1
-#          Table format:     Format A
-#          Date:             4-Aug-2020
-#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
-#  This file contains mappings from the Xerox Character Code Standard (version
-#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
-#  XCCS corresponding to the fonts in the Medley system.
-#  
-#  The format of this file conforms to the format of the other Unicode-supplied
-#  mapping files:
-#     Three white-space (tab or spaces) separated columns:
-#       Column 1 is the XCCS code (as hex 0xXXXX)
-#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
-#       Column 3 (after #) is a comment column. For convenience, it contains the
-#          Unicode character itself (since the Unicode character names
-#          are not available)
-#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
-#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
-#  (Column 3 = MISSING)
-#  
-#  This file is encoded in UTF8, so that the Unicode characters
-#  are properly displayed in Column 3 and can be edited by standard
-#  Unicode-enabled editors (e.g. Mac Textedit).
-#  
-#  This file can also be read by the function
-#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
-#  The entries are in XCCS order and grouped by character sets.  In front of
-#  the mappings, for convenience, there is a line with the octal XCCS
-#  character set, after #.
-#  
-#  Note that a given XCCS code might map to codes in several different Unicode
-#  positions, since there are repetitions in the Unicode standard.
-#  
-#  For more details, see the associated README.TXT file.
-#  
-#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
-
-
-#  "356" SYMBOLS3
-0xEE21	0x2004	#   
-0xEE22	0x2005	#   
-0xEE23	0x200A	#   
-0xEE24	0x2008	#   
-0xEE25	0x002E	#  .
-0xEE26	0x230E	#  ⌎
-0xEE27	0x230F	#  ⌏
-0xEE28	0x230C	#  ⌌
-0xEE29	0x230D	#  ⌍
-0xEE2A	0x25AE	#  ▮
-0xEE2B	0x2214	#  ∔
-0xEE2C	0xFFFE	#  MISSING
-0xEE2D	0x2212	#  −
-0xEE2E	0xFFFE	#  MISSING
-0xEE2F	0x210F	#  ℏ
-0xEE30	0x226C	#  ≬
-0xEE31	0x2100	#  ℀
-0xEE32	0xFFFE	#  MISSING
-0xEE33	0x260F	#  ☏
-0xEE34	0x2236	#  ∶
-0xEE35	0x0021	#  !
-0xEE36	0x22A6	#  ⊦
-0xEE37	0x232F	#  ⌯
-0xEE38	0x2330	#  ⌰
-0xEE39	0x01B5	#  Ƶ
-0xEE3A	0x2302	#  ⌂
-0xEE3B	0x2238	#  ∸
-0xEE3C	0x2216	#  ∖
-0xEE3D	0x2259	#  ≙
-0xEE3E	0x225A	#  ≚
-0xEE3F	0x22C7	#  ⋇
-0xEE40	0x2106	#  ℆
-0xEE41	0x25D8	#  ◘
-0xEE42	0x224E	#  ≎
-0xEE43	0x211B	#  ℛ
-0xEE44	0x2112	#  ℒ
-0xEE45	0x2206	#  ∆
-0xEE46	0x2311	#  ⌑
-0xEE47	0x2038	#  ‸
-0xEE48	0x2104	#  ℄
-0xEE49	0x23E4	#  ⏤
-0xEE4A	0x25B1	#  ▱
-0xEE4B	0x232D	#  ⌭
-0xEE4C	0x2312	#  ⌒
-0xEE4D	0x2313	#  ⌓
-0xEE4E	0x232E	#  ⌮
-0xEE4F	0x2316	#  ⌖
-0xEE50	0x21C4	#  ⇄
-0xEE51	0x21D5	#  ⇕
-0xEE52	0x228F	#  ⊏
-0xEE53	0x2290	#  ⊐
-0xEE54	0x0192	#  ƒ
-0xEE55	0x25D9	#  ◙
-0xEE56	0x22C2	#  ⋂
-0xEE57	0x22C3	#  ⋃
-0xEE58	0xFFFE	#  MISSING
-0xEE59	0xFFFE	#  MISSING
-0xEE5A	0xFFFE	#  MISSING
-0xEE5B	0xFFFE	#  MISSING
-0xEE5C	0xFFFE	#  MISSING
-0xEE5D	0xFFFE	#  MISSING
-0xEE5E	0xFFFE	#  MISSING
-0xEE5F	0xFFFE	#  MISSING
-0xEE60	0x2591	#  ░
-0xEE61	0x2593	#  ▓
-0xEE62	0x22D2	#  ⋒
-0xEE63	0x22D3	#  ⋓
-0xEE64	0x223A	#  ∺
-0xEE65	0x2270	#  ≰
-0xEE66	0x2271	#  ≱
-0xEE67	0x2218	#  ∘
-0xEE68	0xFFFF	#  UNDEFINED
-0xEE69	0x2201	#  ∁
-0xEE6A	0x2310	#  ⌐
-0xEE6B	0x2032	#  ′
-0xEE6C	0x2276	#  ≶
-0xEE6D	0x2277	#  ≷
-0xEE6E	0x2272	#  ≲
-0xEE6F	0x2273	#  ≳
-0xEE70	0x22A4	#  ⊤
-0xEE71	0x2204	#  ∄
-0xEE72	0x2262	#  ≢
-0xEE73	0x2308	#  ⌈
-0xEE74	0x230A	#  ⌊
-0xEE75	0x007C	#  |
-0xEE76	0x2309	#  ⌉
-0xEE77	0x230B	#  ⌋
-0xEE78	0x224A	#  ≊
-0xEE79	0x224F	#  ≏
-0xEE7A	0x203C	#  ‼
-0xEE7B	0x2035	#  ‵
-0xEE7C	0x2223	#  ∣
-0xEE7D	0x2217	#  ∗
-0xEE7E	0x223C	#  ∼
-0xEEA1	0x22BA	#  ⊺
-0xEEA2	0x2024	#  ․
-0xEEA3	0x2025	#  ‥
-0xEEA4	0x2B95	#  ⮕
-0xEEA5	0x2B05	#  ⬅
-0xEEA6	0x2B06	#  ⬆
-0xEEA7	0x2B07	#  ⬇
-0xEEA8	0x21E8	#  ⇨
-0xEEA9	0x21E6	#  ⇦
-0xEEAA	0x21E7	#  ⇧
-0xEEAB	0x21E9	#  ⇩
-0xEEAC	0x2190	#  ←
-0xEEAD	0x2191	#  ↑
-0xEEAE	0x2192	#  →
-0xEEAF	0x2193	#  ↓
-0xEEB0	0x25B6	#  ▶
-0xEEB1	0x25C0	#  ◀
-0xEEB2	0x25B7	#  ▷
-0xEEB3	0x25C1	#  ◁
-0xEEB4	0x22C5	#  ⋅
-0xEEB5	0x2195	#  ↕
-0xEEB6	0x21A8	#  ↨
-0xEEB7	0x2372	#  ⍲
-0xEEB8	0x2371	#  ⍱
-0xEEB9	0x2588	#  █
-0xEEBA	0x2584	#  ▄
-0xEEBB	0x2590	#  ▐
-0xEEBC	0x258C	#  ▌
-0xEEBD	0x2580	#  ▀
-0xEEBE	0x25C4	#  ◄
-0xEEBF	0x25BA	#  ►
-0xEEC0	0x236B	#  ⍫
-0xEEC1	0x2352	#  ⍒
-0xEEC2	0x234B	#  ⍋
-0xEEC3	0x233D	#  ⌽
-0xEEC4	0x2349	#  ⍉
-0xEEC5	0x235F	#  ⍟
-0xEEC6	0x235E	#  ⍞
-0xEEC7	0x2339	#  ⌹
-0xEEC8	0x233F	#  ⌿
-0xEEC9	0x2340	#  ⍀
-0xEECA	0x2305	#  ⌅
-0xEECB	0x2664	#  ♤
-0xEECC	0x2665	#  ♥
-0xEECD	0xFFFF	#  UNDEFINED
-0xEECE	0x2667	#  ♧
-0xEECF	0x263C	#  ☼
-0xEED0	0x234E	#  ⍎
-0xEED1	0x2355	#  ⍕
-0xEED2	0x235D	#  ⍝
-0xEED3	0x2336	#  ⌶
-0xEED4	0x233B	#  ⌻
-0xEED5	0x266B	#  ♫
-0xEED6	0x22C9	#  ⋉
-0xEED7	0x22CA	#  ⋊
-0xEED8	0x22CB	#  ⋋
-0xEED9	0x22CC	#  ⋌
-0xEEDA	0x2306	#  ⌆
-0xEEDB	0x22BB	#  ⊻
-0xEEDC	0x2337	#  ⌷
-0xEEDD	0x221F	#  ∟
-0xEEDE	0x25AC	#  ▬
-0xEEDF	0x263B	#  ☻
-0xEEE0	0x23AB	#  ⎫
-0xEEE1	0x23AA	#  ⎪
-0xEEE2	0x23AC	#  ⎬
-0xEEE3	0x23AD	#  ⎭
-0xEEE4	0x23A7	#  ⎧
-0xEEE5	0x23A9	#  ⎩
-0xEEE6	0x23A8	#  ⎨
-0xEEE7	0x23B0	#  ⎰
-0xEEE8	0x23B1	#  ⎱
-0xEEE9	0x22CF	#  ⋏
-0xEEEA	0x22CE	#  ⋎
-0xEEEB	0x22B4	#  ⊴
-0xEEEC	0x22B5	#  ⊵
-0xEEED	0x2320	#  ⌠
-0xEEEE	0x2321	#  ⌡
-0xEEEF	0x23AA	#  ⎪
-0xEEF0	0x2342	#  ⍂
-0xEEF1	0xFFFE	#  MISSING
-0xEEF2	0x21B6	#  ↶
-0xEEF3	0x21B7	#  ↷
-0xEEF4	0x21BA	#  ↺
-0xEEF5	0x21BB	#  ↻
-0xEEF6	0x21CB	#  ⇋
-0xEEF7	0x219A	#  ↚
-0xEEF8	0x219B	#  ↛
-0xEEF9	0x21AE	#  ↮
-0xEEFA	0x21CD	#  ⇍
-0xEEFB	0x21CF	#  ⇏
-0xEEFC	0x21CE	#  ⇎
-0xEEFD	0x22CD	#  ⋍
-0xEEFE	0x2241	#  ≁

unicode/xerox/XCCS-357=SYMBOLS1.TXT

@@ -0,0 +1,231 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     357 SYMBOLS4
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "357" SYMBOLS4
+0xEF21	0x00A0	#    NO-BREAK SPACE
+0xEF22	0x2011	#  ‑ NON-BREAKING HYPHEN
+0xEF23	0x00AD	#  ­ SOFT HYPHEN
+0xEF24	0x2013	#  – EN DASH
+0xEF25	0x2014	#  — EM DASH
+0xEF26	0x2012	#  ‒ FIGURE DASH
+0xEF27	0x0027	#  ' APOSTROPHE
+0xEF28	0x201E	#  „ DOUBLE LOW-9 QUOTATION MARK
+0xEF29	0x201C	#  “ LEFT DOUBLE QUOTATION MARK
+0xEF2A	0x2039	#  ‹ SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+0xEF2B	0x203A	#  › SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+0xEF2C	0x2000	#    EN QUAD
+0xEF2D	0x2001	#    EM QUAD
+0xEF2E	0x2007	#    FIGURE SPACE
+0xEF2F	0x2009	#    THIN SPACE
+0xEF30	0x2020	#  † DAGGER
+0xEF31	0x2021	#  ‡ DOUBLE DAGGER
+0xEF32	0x2329	#  〈 LEFT-POINTING ANGLE BRACKET
+0xEF33	0x232A	#  〉 RIGHT-POINTING ANGLE BRACKET
+0xEF34	0x261E	#  ☞ WHITE RIGHT POINTING INDEX
+0xEF35	0x261C	#  ☜ WHITE LEFT POINTING INDEX
+0xEF36	0x22A2	#  ⊢ RIGHT TACK
+0xEF37	0x22A3	#  ⊣ LEFT TACK
+0xEF38	0x22A8	#  ⊨ TRUE
+0xEF39	0x2AE4	#  ⫤ VERTICAL BAR DOUBLE LEFT TURNSTILE
+0xEF3A	0x3016	#  〖 LEFT WHITE LENTICULAR BRACKET
+0xEF3B	0x3017	#  〗 RIGHT WHITE LENTICULAR BRACKET
+0xEF3C	0x2196	#  ↖ NORTH WEST ARROW
+0xEF3D	0x2198	#  ↘ SOUTH EAST ARROW
+0xEF3E	0x2197	#  ↗ NORTH EAST ARROW
+0xEF3F	0x2199	#  ↙ SOUTH WEST ARROW
+0xEF40	0x2105	#  ℅ CARE OF
+0xEF41	0x2030	#  ‰ PER MILLE SIGN
+0xEF42	0x226A	#  ≪ MUCH LESS-THAN
+0xEF43	0x226B	#  ≫ MUCH GREATER-THAN
+0xEF44	0x226E	#  ≮ NOT LESS-THAN
+0xEF45	0x226F	#  ≯ NOT GREATER-THAN
+0xEF46	0x2223	#  ∣ DIVIDES
+0xEF47	0x2224	#  ∤ DOES NOT DIVIDE
+0xEF48	0x2225	#  ∥ PARALLEL TO
+0xEF49	0x2226	#  ∦ NOT PARALLEL TO
+0xEF4A	0x2208	#  ∈ ELEMENT OF
+0xEF4B	0x2209	#  ∉ NOT AN ELEMENT OF
+0xEF4C	0x220B	#  ∋ CONTAINS AS MEMBER
+0xEF4D	0x21D0	#  ⇐ LEFTWARDS DOUBLE ARROW
+0xEF4E	0x21D4	#  ⇔ LEFT RIGHT DOUBLE ARROW
+0xEF4F	0x21D2	#  ⇒ RIGHTWARDS DOUBLE ARROW
+0xEF50	0x21CC	#  ⇌ RIGHTWARDS HARPOON OVER LEFTWARDS HARPOON
+0xEF51	0x21C6	#  ⇆ LEFTWARDS ARROW OVER RIGHTWARDS ARROW
+0xEF52	0x2194	#  ↔ LEFT RIGHT ARROW
+0xEF53	0x219D	#  ↝ RIGHTWARDS WAVE ARROW
+0xEF56	0x2229	#  ∩ INTERSECTION
+0xEF57	0x222A	#  ∪ UNION
+0xEF58	0x2287	#  ⊇ SUPERSET OF OR EQUAL TO
+0xEF59	0x2286	#  ⊆ SUBSET OF OR EQUAL TO
+0xEF5A	0x2283	#  ⊃ SUPERSET OF
+0xEF5B	0x2282	#  ⊂ SUBSET OF
+0xEF5C	0x2289	#  ⊉ NEITHER A SUPERSET OF NOR EQUAL TO
+0xEF5D	0x2288	#  ⊈ NEITHER A SUBSET OF NOR EQUAL TO
+0xEF5E	0x2285	#  ⊅ NOT A SUPERSET OF
+0xEF5F	0x2284	#  ⊄ NOT A SUBSET OF
+0xEF60	0x2612	#  ☒ BALLOT BOX WITH X
+0xEF61	0x2205	#  ∅ EMPTY SET
+0xEF62	0x2295	#  ⊕ CIRCLED PLUS
+0xEF63	0x2296	#  ⊖ CIRCLED MINUS
+0xEF64	0x2297	#  ⊗ CIRCLED TIMES
+0xEF65	0x2298	#  ⊘ CIRCLED DIVISION SLASH
+0xEF66	0x2022	#  • BULLET
+0xEF67	0x2218	#  ∘ RING OPERATOR
+0xEF68	0x210F	#  ℏ PLANCK CONSTANT OVER TWO PI
+0xEF69	0x2113	#  ℓ SCRIPT SMALL L
+0xEF6A	0x00AC	#  ¬ NOT SIGN
+0xEF6B	0x00A6	#  ¦ BROKEN BAR
+0xEF6C	0x2220	#  ∠ ANGLE
+0xEF6D	0x2221	#  ∡ MEASURED ANGLE
+0xEF6E	0x2237	#  ∷ PROPORTION
+0xEF6F	0x2235	#  ∵ BECAUSE
+0xEF70	0x22A5	#  ⊥ UP TACK
+0xEF71	0x221D	#  ∝ PROPORTIONAL TO
+0xEF72	0x2261	#  ≡ IDENTICAL TO
+0xEF73	0x2250	#  ≐ APPROACHES THE LIMIT
+0xEF74	0x225F	#  ≟ QUESTIONED EQUAL TO
+0xEF75	0x222B	#  ∫ INTEGRAL
+0xEF76	0x222E	#  ∮ CONTOUR INTEGRAL
+0xEF77	0x2243	#  ≃ ASYMPTOTICALLY EQUAL TO
+0xEF78	0x2245	#  ≅ APPROXIMATELY EQUAL TO
+0xEF79	0x2248	#  ≈ ALMOST EQUAL TO
+0xEF7A	0x2211	#  ∑ N-ARY SUMMATION
+0xEF7B	0x220F	#  ∏ N-ARY PRODUCT
+0xEF7C	0x221A	#  √ SQUARE ROOT
+0xEF7D	0x2213	#  ∓ MINUS-OR-PLUS SIGN
+0xEF7E	0x2592	#  ▒ MEDIUM SHADE
+0xEFA1	0x20A2	#  ₢ CRUZEIRO SIGN
+0xEFA2	0x0192	#  ƒ LATIN SMALL LETTER F WITH HOOK
+0xEFA3	0x20A3	#  ₣ FRENCH FRANC SIGN
+0xEFA4	0x20A7	#  ₧ PESETA SIGN
+0xEFA5	0x20A0	#  ₠ EURO-CURRENCY SIGN
+0xEFA6	0x0024	#  $ DOLLAR SIGN
+0xEFA7	0x2135	#  ℵ ALEF SYMBOL
+0xEFA8	0x2116	#  № NUMERO SIGN
+0xEFA9	0x211E	#  ℞ PRESCRIPTION TAKE
+0xEFAA	0x2121	#  ℡ TELEPHONE SIGN
+0xEFAB	0x0292	#  ʒ LATIN SMALL LETTER EZH
+0xEFAC	0x2102	#  ℂ DOUBLE-STRUCK CAPITAL C
+0xEFAD	0x2115	#  ℕ DOUBLE-STRUCK CAPITAL N
+0xEFAE	0x211D	#  ℝ DOUBLE-STRUCK CAPITAL R
+0xEFAF	0x2124	#  ℤ DOUBLE-STRUCK CAPITAL Z
+0xEFB0	0x2308	#  ⌈ LEFT CEILING
+0xEFB1	0x2309	#  ⌉ RIGHT CEILING
+0xEFB2	0x230A	#  ⌊ LEFT FLOOR
+0xEFB3	0x230B	#  ⌋ RIGHT FLOOR
+0xEFB4	0x2203	#  ∃ THERE EXISTS
+0xEFB5	0x2200	#  ∀ FOR ALL
+0xEFB6	0x22C0	#  ⋀ N-ARY LOGICAL AND
+0xEFB7	0x22C1	#  ⋁ N-ARY LOGICAL OR
+0xEFB8	0x220E	#  ∎ END OF PROOF
+0xEFB9	0x2207	#  ∇ NABLA
+0xEFBA	0x2202	#  ∂ PARTIAL DIFFERENTIAL
+0xEFBB	0x2440	#  ⑀ OCR HOOK
+0xEFBC	0x2442	#  ⑂ OCR FORK
+0xEFBD	0x2441	#  ⑁ OCR CHAIR
+0xEFBE	0x23E6	#  ⏦ AC CURRENT
+0xEFBF	0x2017	#  ‗ DOUBLE LOW LINE
+0xEFC0	0x2312	#  ⌒ ARC
+0xEFC1	0x2160	#  Ⅰ ROMAN NUMERAL ONE
+0xEFC2	0x2161	#  Ⅱ ROMAN NUMERAL TWO
+0xEFC3	0x2162	#  Ⅲ ROMAN NUMERAL THREE
+0xEFC4	0x2163	#  Ⅳ ROMAN NUMERAL FOUR
+0xEFC5	0x2164	#  Ⅴ ROMAN NUMERAL FIVE
+0xEFC6	0x2165	#  Ⅵ ROMAN NUMERAL SIX
+0xEFC7	0x2166	#  Ⅶ ROMAN NUMERAL SEVEN
+0xEFC8	0x2167	#  Ⅷ ROMAN NUMERAL EIGHT
+0xEFC9	0x2168	#  Ⅸ ROMAN NUMERAL NINE
+0xEFCA	0x2169	#  Ⅹ ROMAN NUMERAL TEN
+0xEFCB	0x2660	#  ♠ BLACK SPADE SUIT
+0xEFCC	0x2661	#  ♡ WHITE HEART SUIT
+0xEFCD	0x2662	#  ♢ WHITE DIAMOND SUIT
+0xEFCE	0x2663	#  ♣ BLACK CLUB SUIT
+0xEFCF	0x2713	#  ✓ CHECK MARK
+0xEFD0	0x2717	#  ✗ BALLOT X
+0xEFD1	0x2460	#  ① CIRCLED DIGIT ONE
+0xEFD2	0x2461	#  ② CIRCLED DIGIT TWO
+0xEFD3	0x2462	#  ③ CIRCLED DIGIT THREE
+0xEFD4	0x2463	#  ④ CIRCLED DIGIT FOUR
+0xEFD5	0x2464	#  ⑤ CIRCLED DIGIT FIVE
+0xEFD6	0x2465	#  ⑥ CIRCLED DIGIT SIX
+0xEFD7	0x2466	#  ⑦ CIRCLED DIGIT SEVEN
+0xEFD8	0x2467	#  ⑧ CIRCLED DIGIT EIGHT
+0xEFD9	0x2468	#  ⑨ CIRCLED DIGIT NINE
+0xEFDA	0x2469	#  ⑩ CIRCLED NUMBER TEN
+0xEFDB	0x2192 0x20DD	#  →⃝ RIGHTWARDS ARROW; COMBINING ENCLOSING CIRCLE
+0xEFDC	0x21B4 0x20DD	#  ↴⃝ RIGHTWARDS ARROW WITH CORNER DOWNWARDS; COMBINING ENCLOSING CIRCLE
+0xEFDD	0x21B2 0x20DD	#  ↲⃝ DOWNWARDS ARROW WITH TIP LEFTWARDS; COMBINING ENCLOSING CIRCLE
+0xEFDE	0x262E	#  ☮ PEACE SYMBOL
+0xEFDF	0x263A	#  ☺ WHITE SMILING FACE
+0xEFE0	0x2620	#  ☠ SKULL AND CROSSBONES
+0xEFE1	0x2503	#  ┃ BOX DRAWINGS HEAVY VERTICAL
+0xEFE2	0x2501	#  ━ BOX DRAWINGS HEAVY HORIZONTAL
+0xEFE3	0x254B	#  ╋ BOX DRAWINGS HEAVY VERTICAL AND HORIZONTAL
+0xEFE4	0x2502	#  │ BOX DRAWINGS LIGHT VERTICAL
+0xEFE5	0x2500	#  ─ BOX DRAWINGS LIGHT HORIZONTAL
+0xEFE6	0x253C	#  ┼ BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+0xEFE7	0x2609	#  ☉ SUN
+0xEFE8	0x263D	#  ☽ FIRST QUARTER MOON
+0xEFE9	0x263E	#  ☾ LAST QUARTER MOON
+0xEFEA	0x263F	#  ☿ MERCURY
+0xEFEB	0x2643	#  ♃ JUPITER
+0xEFEC	0x2644	#  ♄ SATURN
+0xEFED	0x2645	#  ♅ URANUS
+0xEFEE	0x2646	#  ♆ NEPTUNE
+0xEFEF	0x2647	#  ♇ PLUTO
+0xEFF0	0x2652	#  ♒ AQUARIUS
+0xEFF1	0x2653	#  ♓ PISCES
+0xEFF2	0x2648	#  ♈ ARIES
+0xEFF3	0x2649	#  ♉ TAURUS
+0xEFF4	0x264A	#  ♊ GEMINI
+0xEFF5	0x264B	#  ♋ CANCER
+0xEFF6	0x264C	#  ♌ LEO
+0xEFF7	0x264D	#  ♍ VIRGO
+0xEFF8	0x264E	#  ♎ LIBRA
+0xEFF9	0x264F	#  ♏ SCORPIUS
+0xEFFA	0x2650	#  ♐ SAGITTARIUS
+0xEFFB	0x2651	#  ♑ CAPRICORN
+0xEFFC	0x260E	#  ☎ BLACK TELEPHONE
+0xEFFD	0x2153	#  ⅓ VULGAR FRACTION ONE THIRD
+0xEFFE	0x2154	#  ⅔ VULGAR FRACTION TWO THIRDS

unicode/xerox/XCCS-357=SYMBOLS4.TXT

@@ -1,233 +0,0 @@
-#  
-#          Name:             XCCS (XC-3-1-1-0) to Unicode
-#          Unicode version:  3.0
-#          XCCS charset:     357 SYMBOLS4
-#          Table version:    0.1
-#          Table format:     Format A
-#          Date:             4-Aug-2020
-#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
-#  This file contains mappings from the Xerox Character Code Standard (version
-#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
-#  XCCS corresponding to the fonts in the Medley system.
-#  
-#  The format of this file conforms to the format of the other Unicode-supplied
-#  mapping files:
-#     Three white-space (tab or spaces) separated columns:
-#       Column 1 is the XCCS code (as hex 0xXXXX)
-#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
-#       Column 3 (after #) is a comment column. For convenience, it contains the
-#          Unicode character itself (since the Unicode character names
-#          are not available)
-#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
-#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
-#  (Column 3 = MISSING)
-#  
-#  This file is encoded in UTF8, so that the Unicode characters
-#  are properly displayed in Column 3 and can be edited by standard
-#  Unicode-enabled editors (e.g. Mac Textedit).
-#  
-#  This file can also be read by the function
-#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
-#  The entries are in XCCS order and grouped by character sets.  In front of
-#  the mappings, for convenience, there is a line with the octal XCCS
-#  character set, after #.
-#  
-#  Note that a given XCCS code might map to codes in several different Unicode
-#  positions, since there are repetitions in the Unicode standard.
-#  
-#  For more details, see the associated README.TXT file.
-#  
-#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
-
-
-#  "357" SYMBOLS4
-0xEF21	0x0020	#   
-0xEF22	0x2011	#  ‑
-0xEF23	0x00AD	#  ­
-0xEF24	0x2013	#  –
-0xEF25	0x2014	#  —
-0xEF26	0x2012	#  ‒
-0xEF27	0x0027	#  '
-0xEF28	0x201E	#  „
-0xEF29	0x201C	#  “
-0xEF2A	0x2039	#  ‹
-0xEF2B	0x203A	#  ›
-0xEF2C	0x2000	#   
-0xEF2D	0x2001	#   
-0xEF2E	0x2007	#   
-0xEF2F	0x2009	#   
-0xEF30	0x2020	#  †
-0xEF31	0x2021	#  ‡
-0xEF32	0x3008	#  〈
-0xEF33	0x3009	#  〉
-0xEF34	0x261E	#  ☞
-0xEF35	0x261C	#  ☜
-0xEF36	0x22A2	#  ⊢
-0xEF37	0x22A3	#  ⊣
-0xEF38	0x22A8	#  ⊨
-0xEF39	0x2AE4	#  ⫤
-0xEF3A	0x3016	#  〖
-0xEF3B	0x3017	#  〗
-0xEF3C	0x2196	#  ↖
-0xEF3D	0x2198	#  ↘
-0xEF3E	0x2197	#  ↗
-0xEF3F	0x2199	#  ↙
-0xEF40	0x2105	#  ℅
-0xEF41	0x2030	#  ‰
-0xEF42	0x226A	#  ≪
-0xEF43	0x226B	#  ≫
-0xEF44	0x226E	#  ≮
-0xEF45	0x226F	#  ≯
-0xEF46	0x2223	#  ∣
-0xEF47	0x2224	#  ∤
-0xEF48	0x2225	#  ∥
-0xEF49	0x2226	#  ∦
-0xEF4A	0x2208	#  ∈
-0xEF4B	0x2209	#  ∉
-0xEF4C	0x220B	#  ∋
-0xEF4D	0x21D0	#  ⇐
-0xEF4E	0x21D4	#  ⇔
-0xEF4F	0x21D2	#  ⇒
-0xEF50	0x21CB	#  ⇋
-0xEF51	0x21C4	#  ⇄
-0xEF52	0x2194	#  ↔
-0xEF53	0x219D	#  ↝
-0xEF54	0x2289	#  ⊉
-0xEF55	0x2288	#  ⊈
-0xEF56	0x2229	#  ∩
-0xEF57	0x222A	#  ∪
-0xEF58	0x2287	#  ⊇
-0xEF59	0x2286	#  ⊆
-0xEF5A	0x2283	#  ⊃
-0xEF5B	0x2282	#  ⊂
-0xEF5C	0x2289	#  ⊉
-0xEF5D	0x2288	#  ⊈
-0xEF5E	0x2285	#  ⊅
-0xEF5F	0x2284	#  ⊄
-0xEF60	0x2612	#  ☒
-0xEF61	0x2205	#  ∅
-0xEF62	0x2295	#  ⊕
-0xEF63	0x2296	#  ⊖
-0xEF64	0x2297	#  ⊗
-0xEF65	0x2298	#  ⊘
-0xEF66	0x2022	#  •
-0xEF67	0x2218	#  ∘
-0xEF68	0x210F	#  ℏ
-0xEF69	0x2113	#  ℓ
-0xEF6A	0x00AC	#  ¬
-0xEF6B	0x00A6	#  ¦
-0xEF6C	0x2220	#  ∠
-0xEF6D	0x2221	#  ∡
-0xEF6E	0x2237	#  ∷
-0xEF6F	0x2235	#  ∵
-0xEF70	0x22A5	#  ⊥
-0xEF71	0x221D	#  ∝
-0xEF72	0x2261	#  ≡
-0xEF73	0x2250	#  ≐
-0xEF74	0x225F	#  ≟
-0xEF75	0x222B	#  ∫
-0xEF76	0x222E	#  ∮
-0xEF77	0x2243	#  ≃
-0xEF78	0x2245	#  ≅
-0xEF79	0x2248	#  ≈
-0xEF7A	0x2211	#  ∑
-0xEF7B	0x220F	#  ∏
-0xEF7C	0x221A	#  √
-0xEF7D	0x2213	#  ∓
-0xEF7E	0x2592	#  ▒
-0xEFA1	0x20A2	#  ₢
-0xEFA2	0x0192	#  ƒ
-0xEFA3	0x20A3	#  ₣
-0xEFA4	0x20A7	#  ₧
-0xEFA5	0x20A0	#  ₠
-0xEFA6	0x0024	#  $
-0xEFA7	0x2135	#  ℵ
-0xEFA8	0x2116	#  №
-0xEFA9	0x211E	#  ℞
-0xEFAA	0x2121	#  ℡
-0xEFAB	0x0292	#  ʒ
-0xEFAC	0x2102	#  ℂ
-0xEFAD	0x2115	#  ℕ
-0xEFAE	0x211D	#  ℝ
-0xEFAF	0x2124	#  ℤ
-0xEFB0	0x2308	#  ⌈
-0xEFB1	0x2309	#  ⌉
-0xEFB2	0x230A	#  ⌊
-0xEFB3	0x230B	#  ⌋
-0xEFB4	0x2203	#  ∃
-0xEFB5	0x2200	#  ∀
-0xEFB6	0x2227	#  ∧
-0xEFB7	0x2228	#  ∨
-0xEFB8	0x220E	#  ∎
-0xEFB9	0x2207	#  ∇
-0xEFBA	0x2202	#  ∂
-0xEFBB	0x2440	#  ⑀
-0xEFBC	0x2442	#  ⑂
-0xEFBD	0x2441	#  ⑁
-0xEFBE	0x23E6	#  ⏦
-0xEFBF	0x23E6	#  ⏦
-0xEFC0	0x2312	#  ⌒
-0xEFC1	0x2160	#  Ⅰ
-0xEFC2	0x2161	#  Ⅱ
-0xEFC3	0x2162	#  Ⅲ
-0xEFC4	0x2163	#  Ⅳ
-0xEFC5	0x2164	#  Ⅴ
-0xEFC6	0x2165	#  Ⅵ
-0xEFC7	0x2166	#  Ⅶ
-0xEFC8	0x2167	#  Ⅷ
-0xEFC9	0x2168	#  Ⅸ
-0xEFCA	0x2169	#  Ⅹ
-0xEFCB	0x2660	#  ♠
-0xEFCC	0x2661	#  ♡
-0xEFCD	0x2662	#  ♢
-0xEFCE	0x2663	#  ♣
-0xEFCF	0x2713	#  ✓
-0xEFD0	0x2717	#  ✗
-0xEFD1	0x2460	#  ①
-0xEFD2	0x2461	#  ②
-0xEFD3	0x2462	#  ③
-0xEFD4	0x2463	#  ④
-0xEFD5	0x2464	#  ⑤
-0xEFD6	0x2465	#  ⑥
-0xEFD7	0x2466	#  ⑦
-0xEFD8	0x2467	#  ⑧
-0xEFD9	0x2468	#  ⑨
-0xEFDA	0x2469	#  ⑩
-0xEFDB	0x2192 0x20DD	#  →⃝
-0xEFDC	0x21B4 0x20DD	#  ↴⃝ 
-0xEFDD	0x21B2 0x20DD	#  ↲⃝
-0xEFDE	0x262E	#  ☮
-0xEFDF	0x263A	#  ☺
-0xEFE0	0x2620	#  ☠
-0xEFE1	0x2503	#  ┃
-0xEFE2	0x2578	#  ╸
-0xEFE3	0x2578	#  ╸
-0xEFE4	0x254B	#  ╋
-0xEFE5	0x2500	#  ─
-0xEFE6	0x253C	#  ┼
-0xEFE7	0x2609	#  ☉
-0xEFE8	0x263D	#  ☽
-0xEFE9	0x263E	#  ☾
-0xEFEA	0x263F	#  ☿
-0xEFEB	0x2643	#  ♃
-0xEFEC	0x2644	#  ♄
-0xEFED	0x2645	#  ♅
-0xEFEE	0x2646	#  ♆
-0xEFEF	0x2647	#  ♇
-0xEFF0	0x2652	#  ♒
-0xEFF1	0x2653	#  ♓
-0xEFF2	0x2648	#  ♈
-0xEFF3	0x2649	#  ♉
-0xEFF4	0x264A	#  ♊
-0xEFF5	0x264B	#  ♋
-0xEFF6	0x264C	#  ♌
-0xEFF7	0x264D	#  ♍
-0xEFF8	0x264E	#  ♎
-0xEFF9	0x264F	#  ♏
-0xEFFA	0x2650	#  ♐
-0xEFFB	0x2651	#  ♑
-0xEFFC	0x260E	#  ☎
-0xEFFD	0x2153	#  ⅓
-0xEFFE	0x2154	#  ⅔

unicode/xerox/XCCS-360=LIGATURES.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     360 LIGATURES
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             4-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,30 +22,89 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "360" LIGATURES
-0xF021	0xFB00	#  ff
-0xF022	0xFB03	#  ffi
-0xF023	0xFB04	#  ffl
-0xF024	0xFB01	#  fi
-0xF025	0xFB02	#  fl
-0xF026	0xFB05	#  ſt
+#   "360" LIGATURES
+0xF021	0xFB00	#  ff LATIN SMALL LIGATURE FF
+0xF022	0xFB03	#  ffi LATIN SMALL LIGATURE FFI
+0xF023	0xFB04	#  ffl LATIN SMALL LIGATURE FFL
+0xF024	0xFB01	#  fi LATIN SMALL LIGATURE FI
+0xF025	0xFB02	#  fl LATIN SMALL LIGATURE FL
+0xF026	0xFB05	#  ſt LATIN SMALL LIGATURE LONG S T
+0xF027	0x0066 0x200D 0x006A	#  f‍j LATIN SMALL LETTER F; ZERO WIDTH JOINER; LATIN SMALL LETTER J
+0xF028	0x0063 0x200D 0x0074	#  c‍t LATIN SMALL LETTER C; ZERO WIDTH JOINER; LATIN SMALL LETTER T
+0xF029	0xFB06	#  st LATIN SMALL LIGATURE ST
+0xF070	0x00BC	#  ¼ VULGAR FRACTION ONE QUARTER
+0xF071	0x00BD	#  ½ VULGAR FRACTION ONE HALF
+0xF072	0x00BE	#  ¾ VULGAR FRACTION THREE QUARTERS
+0xF073	0x2153	#  ⅓ VULGAR FRACTION ONE THIRD
+0xF074	0x2154	#  ⅔ VULGAR FRACTION TWO THIRDS
+0xF075	0x215B	#  ⅛ VULGAR FRACTION ONE EIGHTH
+0xF076	0x215C	#  ⅜ VULGAR FRACTION THREE EIGHTHS
+0xF077	0x215D	#  ⅝ VULGAR FRACTION FIVE EIGHTHS
+0xF078	0x215E	#  ⅞ VULGAR FRACTION SEVEN EIGHTHS
+0xF079	0x215F	#  ⅟ FRACTION NUMERATOR ONE
+0xF0A8	0x240B	#  ␋ SYMBOL FOR VERTICAL TABULATION
+0xF0A9	0x2409	#  ␉ SYMBOL FOR HORIZONTAL TABULATION
+0xF0AA	0x240A	#  ␊ SYMBOL FOR LINE FEED
+0xF0AB	0x240C	#  ␌ SYMBOL FOR FORM FEED
+0xF0AC	0x240D	#  ␍ SYMBOL FOR CARRIAGE RETURN
+0xF0AD	0x2424	#  ␤ SYMBOL FOR NEWLINE
+0xF0B0	0x2400	#  ␀ SYMBOL FOR NULL
+0xF0B1	0x2004	#    THREE-PER-EM SPACE
+0xF0B2	0x2005	#    FOUR-PER-EM SPACE
+0xF0B3	0x2006	#    SIX-PER-EM SPACE
+0xF0B4	0x2000	#    EN QUAD
+0xF0B5	0x2001	#    EM QUAD
+0xF0B6	0x2008	#    PUNCTUATION SPACE
+0xF0B7	0x2008	#    PUNCTUATION SPACE
+0xF0B8	0x2193	#  ↓ DOWNWARDS ARROW
+0xF0B9	0x2192	#  → RIGHTWARDS ARROW
+0xF0BA	0x21B4	#  ↴ RIGHTWARDS ARROW WITH CORNER DOWNWARDS
+0xF0BB	0x21A1	#  ↡ DOWNWARDS TWO HEADED ARROW
+0xF0BC	0x2190	#  ← LEFTWARDS ARROW
+0xF0BD	0x21B5	#  ↵ DOWNWARDS ARROW WITH CORNER LEFTWARDS
+0xF0BE	0x2936	#  ⤶ ARROW POINTING DOWNWARDS THEN CURVING LEFTWARDS
+0xF0C3	0x2023	#  ‣ TRIANGULAR BULLET
+0xF0C4	0x25CF	#  ● BLACK CIRCLE
+0xF0CC	0x002A 0x0305	#  *̅ ASTERISK; COMBINING OVERLINE
+0xF0CE	0x003B 0x0305	#  ;̅ SEMICOLON; COMBINING OVERLINE
+0xF0E2	0x29C4	#  ⧄ SQUARED RISING DIAGONAL SLASH
+0xF0E3	0x2026 0x20DE	#  …⃞ HORIZONTAL ELLIPSIS; COMBINING ENCLOSING SQUARE
+0xF0E4	0x2192 0x20DE	#  →⃞ RIGHTWARDS ARROW; COMBINING ENCLOSING SQUARE
+#   0xF0E5	0x1F147	#  XXXX SQUARED LATIN CAPITAL LETTER X      NOT A MEDLEY CHARCODE
+#   0xF0E6	0x1F130	#  XXXX SQUARED LATIN CAPITAL LETTER A
+0xF0E7	0x0039 0x20DE	#  9⃞ DIGIT NINE; COMBINING ENCLOSING SQUARE
+#   0xF0E8	0x1F149	#  XXXX SQUARED LATIN CAPITAL LETTER Z
+0xF0E9	0x002A 0x20DE	#  *⃞ ASTERISK; COMBINING ENCLOSING SQUARE
+0xF0EC	0x002B 0x20DE	#  +⃞ PLUS SIGN; COMBINING ENCLOSING SQUARE
+0xF0ED	0x002D 0x20DE	#  -⃞ HYPHEN-MINUS; COMBINING ENCLOSING SQUARE
+0xF0EE	0x002E 0x20DE	#  .⃞ FULL STOP; COMBINING ENCLOSING SQUARE
+0xF0EF	0x002C 0x20DE	#  ,⃞ COMMA; COMBINING ENCLOSING SQUARE
+0xF0F6	0x03B3 0x20DE	#  γ⃞ GREEK SMALL LETTER GAMMA; COMBINING ENCLOSING SQUARE
+0xF0F7	0x044F 0x20DE	#  я⃞ CYRILLIC SMALL LETTER YA; COMBINING ENCLOSING SQUARE
+0xF0F8	0x3072 0x20DE	#  ひ⃞ HIRAGANA LETTER HI; COMBINING ENCLOSING SQUARE
+0xF0F9	0x30AB 0x20DE	#  カ⃞ KATAKANA LETTER KA; COMBINING ENCLOSING SQUARE
+0xF0FA	0x6F22 0x20DE	#  漢⃞ UNKNOWN; COMBINING ENCLOSING SQUARE
+0xF0FB	0x548C 0x20DE	#  和⃞ UNKNOWN; COMBINING ENCLOSING SQUARE
+0xF0FC	0x00B7	#  · MIDDLE DOT
+0xF0FD	0x0180	#  ƀ LATIN SMALL LETTER B WITH STROKE
+0xF0FE	0x2423	#  ␣ OPEN BOX

unicode/xerox/XCCS-361=ACCENTED-LATIN.TXT

@@ -1,211 +0,0 @@
-#  
-#          Name:             XCCS (XC-3-1-1-0) to Unicode
-#          Unicode version:  3.0
-#          XCCS charset:     361 ACCENTED-LATIN
-#          Table version:    0.1
-#          Table format:     Format A
-#          Date:             4-Aug-2020
-#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
-#  This file contains mappings from the Xerox Character Code Standard (version
-#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
-#  XCCS corresponding to the fonts in the Medley system.
-#  
-#  The format of this file conforms to the format of the other Unicode-supplied
-#  mapping files:
-#     Three white-space (tab or spaces) separated columns:
-#       Column 1 is the XCCS code (as hex 0xXXXX)
-#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
-#       Column 3 (after #) is a comment column. For convenience, it contains the
-#          Unicode character itself (since the Unicode character names
-#          are not available)
-#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
-#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
-#  (Column 3 = MISSING)
-#  
-#  This file is encoded in UTF8, so that the Unicode characters
-#  are properly displayed in Column 3 and can be edited by standard
-#  Unicode-enabled editors (e.g. Mac Textedit).
-#  
-#  This file can also be read by the function
-#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
-#  The entries are in XCCS order and grouped by character sets.  In front of
-#  the mappings, for convenience, there is a line with the octal XCCS
-#  character set, after #.
-#  
-#  Note that a given XCCS code might map to codes in several different Unicode
-#  positions, since there are repetitions in the Unicode standard.
-#  
-#  For more details, see the associated README.TXT file.
-#  
-#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
-
-
-#  "361" ACCENTED-LATIN
-0xF121	0x00C0	#  À
-0xF122	0x00C1	#  Á
-0xF123	0x00C2	#  Â
-0xF124	0x00C3	#  Ã
-0xF125	0x00DC	#  Ü
-0xF126	0x0102	#  Ă
-0xF127	0x00C4	#  Ä
-0xF128	0x00C5	#  Å
-0xF129	0x0104	#  Ą
-0xF12A	0x0106	#  Ć
-0xF12B	0x0108	#  Ĉ
-0xF12C	0x010A	#  Ċ
-0xF12D	0x00C7	#  Ç
-0xF12E	0x010C	#  Č
-0xF12F	0x010E	#  Ď
-0xF130	0x00C8	#  È
-0xF131	0x00C9	#  É
-0xF132	0x00CA	#  Ê
-0xF133	0x0112	#  Ē
-0xF134	0x0116	#  Ė
-0xF135	0x00CB	#  Ë
-0xF136	0x0118	#  Ę
-0xF137	0x011A	#  Ě
-0xF138	0x01F4	#  Ǵ
-0xF139	0x011C	#  Ĝ
-0xF13A	0x011E	#  Ğ
-0xF13B	0x0120	#  Ġ
-0xF13C	0x0122	#  Ģ
-0xF13D	0x0124	#  Ĥ
-0xF13E	0x00CC	#  Ì
-0xF13F	0x01CD	#  Ǎ
-0xF140	0x00CE	#  Î
-0xF141	0x0128	#  Ĩ
-0xF142	0x012A	#  Ī
-0xF143	0x0130	#  İ
-0xF144	0x00CF	#  Ï
-0xF145	0x012E	#  Į
-0xF146	0x0134	#  Ĵ
-0xF147	0x0136	#  Ķ
-0xF148	0x0139	#  Ĺ
-0xF149	0x013B	#  Ļ
-0xF14A	0x013D	#  Ľ
-0xF14B	0x0143	#  Ń
-0xF14C	0x00D1	#  Ñ
-0xF14D	0x0145	#  Ņ
-0xF14E	0x0147	#  Ň
-0xF14F	0x00D2	#  Ò
-0xF150	0x00D3	#  Ó
-0xF151	0x00D4	#  Ô
-0xF152	0x00D5	#  Õ
-0xF153	0x014C	#  Ō
-0xF154	0x00D6	#  Ö
-0xF155	0x0150	#  Ő
-0xF156	0x0154	#  Ŕ
-0xF157	0x0156	#  Ŗ
-0xF158	0x0158	#  Ř
-0xF159	0x015A	#  Ś
-0xF15A	0x015C	#  Ŝ
-0xF15B	0x015E	#  Ş
-0xF15C	0x0160	#  Š
-0xF15D	0x0162	#  Ţ
-0xF15E	0x0164	#  Ť
-0xF15F	0x00D9	#  Ù
-0xF160	0x00DA	#  Ú
-0xF161	0x00DB	#  Û
-0xF162	0x0168	#  Ũ
-0xF163	0x016A	#  Ū
-0xF164	0x016C	#  Ŭ
-0xF165	0x00DC	#  Ü
-0xF166	0x016E	#  Ů
-0xF167	0x0170	#  Ű
-0xF168	0x0172	#  Ų
-0xF169	0x0174	#  Ŵ
-0xF16A	0x1EF2	#  Ỳ
-0xF16B	0x00DD	#  Ý
-0xF16C	0x0176	#  Ŷ
-0xF16D	0x0178	#  Ÿ
-0xF16E	0x0179	#  Ź
-0xF16F	0x017B	#  Ż
-0xF170	0x017D	#  Ž
-0xF171	0x0130	#  İ
-0xF172	0x0164	#  Ť
-0xF173	0x010E	#  Ď
-0xF1A1	0x00E0	#  à
-0xF1A2	0x00E1	#  á
-0xF1A3	0x00E2	#  â
-0xF1A4	0x00E3	#  ã
-0xF1A5	0x0101	#  ā
-0xF1A6	0x0103	#  ă
-0xF1A7	0x00E4	#  ä
-0xF1A8	0x00E5	#  å
-0xF1A9	0x0105	#  ą
-0xF1AA	0x0107	#  ć
-0xF1AB	0x0109	#  ĉ
-0xF1AC	0x010B	#  ċ
-0xF1AD	0x00E7	#  ç
-0xF1AE	0x010D	#  č
-0xF1AF	0x010F	#  ď
-0xF1B0	0x00E8	#  è
-0xF1B1	0x00E9	#  é
-0xF1B2	0x00EA	#  ê
-0xF1B3	0x0113	#  ē
-0xF1B4	0x0117	#  ė
-0xF1B5	0x00EB	#  ë
-0xF1B6	0x0119	#  ę
-0xF1B7	0x011B	#  ě
-0xF1B8	0x01F5	#  ǵ
-0xF1B9	0x011D	#  ĝ
-0xF1BA	0x011F	#  ğ
-0xF1BB	0x0121	#  ġ
-0xF1BC	0x0123	#  ģ
-0xF1BD	0x0125	#  ĥ
-0xF1BE	0x00EC	#  ì
-0xF1BF	0x00ED	#  í
-0xF1C0	0x00EE	#  î
-0xF1C1	0x0129	#  ĩ
-0xF1C2	0x012B	#  ī
-0xF1C4	0x00EF	#  ï
-0xF1C5	0x012F	#  į
-0xF1C6	0x0135	#  ĵ
-0xF1C7	0x0137	#  ķ
-0xF1C8	0x013A	#  ĺ
-0xF1C9	0x013C	#  ļ
-0xF1CA	0x013E	#  ľ
-0xF1CB	0x0144	#  ń
-0xF1CC	0x00F1	#  ñ
-0xF1CD	0x0146	#  ņ
-0xF1CE	0x0148	#  ň
-0xF1CF	0x00F2	#  ò
-0xF1D0	0x00F3	#  ó
-0xF1D1	0x00F4	#  ô
-0xF1D2	0x00F5	#  õ
-0xF1D3	0x014D	#  ō
-0xF1D4	0x00F6	#  ö
-0xF1D5	0x0151	#  ő
-0xF1D6	0x0155	#  ŕ
-0xF1D7	0x0157	#  ŗ
-0xF1D8	0x0159	#  ř
-0xF1D9	0x015B	#  ś
-0xF1DA	0x015D	#  ŝ
-0xF1DB	0x015F	#  ş
-0xF1DC	0x0161	#  š
-0xF1DD	0x0163	#  ţ
-0xF1DE	0x0165	#  ť
-0xF1DF	0x00F9	#  ù
-0xF1E0	0x00FA	#  ú
-0xF1E1	0x00FB	#  û
-0xF1E2	0x0169	#  ũ
-0xF1E3	0x016B	#  ū
-0xF1E4	0x016D	#  ŭ
-0xF1E5	0x00FC	#  ü
-0xF1E6	0x016F	#  ů
-0xF1E7	0x0171	#  ű
-0xF1E8	0x0173	#  ų
-0xF1E9	0x0175	#  ŵ
-0xF1EA	0x1EF3	#  ỳ
-0xF1EB	0x00FD	#  ý
-0xF1EC	0x0177	#  ŷ
-0xF1ED	0x00FF	#  ÿ
-0xF1EE	0x017A	#  ź
-0xF1EF	0x017C	#  ż
-0xF1F0	0x017E	#  ž
-0xF1F1	0x013E	#  ľ
-0xF1F2	0x0165	#  ť
-0xF1F3	0x010F	#  ď
-0xF1F4	0x1ECD	#  ọ

unicode/xerox/XCCS-361=ACCENTED-LATIN1.TXT

@@ -0,0 +1,232 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     361 ACCENTED-LATIN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "361" ACCENTED-LATIN
+0xF121	0x00C0	#  À LATIN CAPITAL LETTER A WITH GRAVE
+0xF122	0x00C1	#  Á LATIN CAPITAL LETTER A WITH ACUTE
+0xF123	0x00C2	#  Â LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0xF124	0x00C3	#  Ã LATIN CAPITAL LETTER A WITH TILDE
+0xF125	0x0100	#  Ā LATIN CAPITAL LETTER A WITH MACRON
+0xF126	0x0102	#  Ă LATIN CAPITAL LETTER A WITH BREVE
+0xF127	0x00C4	#  Ä LATIN CAPITAL LETTER A WITH DIAERESIS
+0xF128	0x00C5	#  Å LATIN CAPITAL LETTER A WITH RING ABOVE
+0xF129	0x0104	#  Ą LATIN CAPITAL LETTER A WITH OGONEK
+0xF12A	0x0106	#  Ć LATIN CAPITAL LETTER C WITH ACUTE
+0xF12B	0x0108	#  Ĉ LATIN CAPITAL LETTER C WITH CIRCUMFLEX
+0xF12C	0x010A	#  Ċ LATIN CAPITAL LETTER C WITH DOT ABOVE
+0xF12D	0x00C7	#  Ç LATIN CAPITAL LETTER C WITH CEDILLA
+0xF12E	0x010C	#  Č LATIN CAPITAL LETTER C WITH CARON
+0xF12F	0x010E	#  Ď LATIN CAPITAL LETTER D WITH CARON
+0xF130	0x00C8	#  È LATIN CAPITAL LETTER E WITH GRAVE
+0xF131	0x00C9	#  É LATIN CAPITAL LETTER E WITH ACUTE
+0xF132	0x00CA	#  Ê LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0xF133	0x0112	#  Ē LATIN CAPITAL LETTER E WITH MACRON
+0xF134	0x0116	#  Ė LATIN CAPITAL LETTER E WITH DOT ABOVE
+0xF135	0x00CB	#  Ë LATIN CAPITAL LETTER E WITH DIAERESIS
+0xF136	0x0118	#  Ę LATIN CAPITAL LETTER E WITH OGONEK
+0xF137	0x011A	#  Ě LATIN CAPITAL LETTER E WITH CARON
+0xF138	0x01F4	#  Ǵ LATIN CAPITAL LETTER G WITH ACUTE
+0xF139	0x011C	#  Ĝ LATIN CAPITAL LETTER G WITH CIRCUMFLEX
+0xF13A	0x011E	#  Ğ LATIN CAPITAL LETTER G WITH BREVE
+0xF13B	0x0120	#  Ġ LATIN CAPITAL LETTER G WITH DOT ABOVE
+0xF13C	0x0122	#  Ģ LATIN CAPITAL LETTER G WITH CEDILLA
+0xF13D	0x0124	#  Ĥ LATIN CAPITAL LETTER H WITH CIRCUMFLEX
+0xF13E	0x00CC	#  Ì LATIN CAPITAL LETTER I WITH GRAVE
+0xF13F	0x01CD	#  Ǎ LATIN CAPITAL LETTER A WITH CARON
+0xF140	0x00CE	#  Î LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+0xF141	0x0128	#  Ĩ LATIN CAPITAL LETTER I WITH TILDE
+0xF142	0x012A	#  Ī LATIN CAPITAL LETTER I WITH MACRON
+0xF143	0x0130	#  İ LATIN CAPITAL LETTER I WITH DOT ABOVE
+0xF144	0x00CF	#  Ï LATIN CAPITAL LETTER I WITH DIAERESIS
+0xF145	0x012E	#  Į LATIN CAPITAL LETTER I WITH OGONEK
+0xF146	0x0134	#  Ĵ LATIN CAPITAL LETTER J WITH CIRCUMFLEX
+0xF147	0x0136	#  Ķ LATIN CAPITAL LETTER K WITH CEDILLA
+0xF148	0x0139	#  Ĺ LATIN CAPITAL LETTER L WITH ACUTE
+0xF149	0x013B	#  Ļ LATIN CAPITAL LETTER L WITH CEDILLA
+0xF14A	0x013D	#  Ľ LATIN CAPITAL LETTER L WITH CARON
+0xF14B	0x0143	#  Ń LATIN CAPITAL LETTER N WITH ACUTE
+0xF14C	0x00D1	#  Ñ LATIN CAPITAL LETTER N WITH TILDE
+0xF14D	0x0145	#  Ņ LATIN CAPITAL LETTER N WITH CEDILLA
+0xF14E	0x0147	#  Ň LATIN CAPITAL LETTER N WITH CARON
+0xF14F	0x00D2	#  Ò LATIN CAPITAL LETTER O WITH GRAVE
+0xF150	0x00D3	#  Ó LATIN CAPITAL LETTER O WITH ACUTE
+0xF151	0x00D4	#  Ô LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+0xF152	0x00D5	#  Õ LATIN CAPITAL LETTER O WITH TILDE
+0xF153	0x014C	#  Ō LATIN CAPITAL LETTER O WITH MACRON
+0xF154	0x00D6	#  Ö LATIN CAPITAL LETTER O WITH DIAERESIS
+0xF155	0x0150	#  Ő LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+0xF156	0x0154	#  Ŕ LATIN CAPITAL LETTER R WITH ACUTE
+0xF157	0x0156	#  Ŗ LATIN CAPITAL LETTER R WITH CEDILLA
+0xF158	0x0158	#  Ř LATIN CAPITAL LETTER R WITH CARON
+0xF159	0x015A	#  Ś LATIN CAPITAL LETTER S WITH ACUTE
+0xF15A	0x015C	#  Ŝ LATIN CAPITAL LETTER S WITH CIRCUMFLEX
+0xF15B	0x015E	#  Ş LATIN CAPITAL LETTER S WITH CEDILLA
+0xF15C	0x0160	#  Š LATIN CAPITAL LETTER S WITH CARON
+0xF15D	0x0162	#  Ţ LATIN CAPITAL LETTER T WITH CEDILLA
+0xF15E	0x0164	#  Ť LATIN CAPITAL LETTER T WITH CARON
+0xF15F	0x00D9	#  Ù LATIN CAPITAL LETTER U WITH GRAVE
+0xF160	0x00DA	#  Ú LATIN CAPITAL LETTER U WITH ACUTE
+0xF161	0x00DB	#  Û LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+0xF162	0x0168	#  Ũ LATIN CAPITAL LETTER U WITH TILDE
+0xF163	0x016A	#  Ū LATIN CAPITAL LETTER U WITH MACRON
+0xF164	0x016C	#  Ŭ LATIN CAPITAL LETTER U WITH BREVE
+0xF165	0x00DC	#  Ü LATIN CAPITAL LETTER U WITH DIAERESIS
+0xF166	0x016E	#  Ů LATIN CAPITAL LETTER U WITH RING ABOVE
+0xF167	0x0170	#  Ű LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0xF168	0x0172	#  Ų LATIN CAPITAL LETTER U WITH OGONEK
+0xF169	0x0174	#  Ŵ LATIN CAPITAL LETTER W WITH CIRCUMFLEX
+0xF16A	0x1EF2	#  Ỳ LATIN CAPITAL LETTER Y WITH GRAVE
+0xF16B	0x00DD	#  Ý LATIN CAPITAL LETTER Y WITH ACUTE
+0xF16C	0x0176	#  Ŷ LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
+0xF16D	0x0178	#  Ÿ LATIN CAPITAL LETTER Y WITH DIAERESIS
+0xF16E	0x0179	#  Ź LATIN CAPITAL LETTER Z WITH ACUTE
+0xF16F	0x017B	#  Ż LATIN CAPITAL LETTER Z WITH DOT ABOVE
+0xF170	0x017D	#  Ž LATIN CAPITAL LETTER Z WITH CARON
+0xF171	0x004C 0x0315	#  L̕ LATIN CAPITAL LETTER L; COMBINING COMMA ABOVE RIGHT
+0xF172	0x0054 0x0315	#  T̕ LATIN CAPITAL LETTER T; COMBINING COMMA ABOVE RIGHT
+0xF173	0x0044 0x0315	#  D̕ LATIN CAPITAL LETTER D; COMBINING COMMA ABOVE RIGHT
+0xF174	0x1ECC	#  Ọ LATIN CAPITAL LETTER O WITH DOT BELOW
+0xF175	0x0232	#  Ȳ LATIN CAPITAL LETTER Y WITH MACRON
+0xF176	0x01E2	#  Ǣ LATIN CAPITAL LETTER AE WITH MACRON
+0xF177	0x0152 0x0304	#  Œ̄ LATIN CAPITAL LIGATURE OE; COMBINING MACRON
+0xF178	0x0100 0x0306	#  Ā̆ LATIN CAPITAL LETTER A WITH MACRON; COMBINING BREVE
+0xF179	0x01CD	#  Ǎ LATIN CAPITAL LETTER A WITH CARON
+0xF17A	0x0114	#  Ĕ LATIN CAPITAL LETTER E WITH BREVE
+0xF17B	0x0112 0x0323	#  Ẹ̄ LATIN CAPITAL LETTER E WITH MACRON; COMBINING DOT BELOW
+0xF17C	0x0112 0x0306	#  Ē̆ LATIN CAPITAL LETTER E WITH MACRON; COMBINING BREVE
+0xF17D	0x01E6	#  Ǧ LATIN CAPITAL LETTER G WITH CARON
+0xF17E	0x012C	#  Ĭ LATIN CAPITAL LETTER I WITH BREVE
+0xF1A1	0x00E0	#  à LATIN SMALL LETTER A WITH GRAVE
+0xF1A2	0x00E1	#  á LATIN SMALL LETTER A WITH ACUTE
+0xF1A3	0x00E2	#  â LATIN SMALL LETTER A WITH CIRCUMFLEX
+0xF1A4	0x00E3	#  ã LATIN SMALL LETTER A WITH TILDE
+0xF1A5	0x0101	#  ā LATIN SMALL LETTER A WITH MACRON
+0xF1A6	0x0103	#  ă LATIN SMALL LETTER A WITH BREVE
+0xF1A7	0x00E4	#  ä LATIN SMALL LETTER A WITH DIAERESIS
+0xF1A8	0x00E5	#  å LATIN SMALL LETTER A WITH RING ABOVE
+0xF1A9	0x0105	#  ą LATIN SMALL LETTER A WITH OGONEK
+0xF1AA	0x0107	#  ć LATIN SMALL LETTER C WITH ACUTE
+0xF1AB	0x0109	#  ĉ LATIN SMALL LETTER C WITH CIRCUMFLEX
+0xF1AC	0x010B	#  ċ LATIN SMALL LETTER C WITH DOT ABOVE
+0xF1AD	0x00E7	#  ç LATIN SMALL LETTER C WITH CEDILLA
+0xF1AE	0x010D	#  č LATIN SMALL LETTER C WITH CARON
+0xF1AF	0x010F	#  ď LATIN SMALL LETTER D WITH CARON
+0xF1B0	0x00E8	#  è LATIN SMALL LETTER E WITH GRAVE
+0xF1B1	0x00E9	#  é LATIN SMALL LETTER E WITH ACUTE
+0xF1B2	0x00EA	#  ê LATIN SMALL LETTER E WITH CIRCUMFLEX
+0xF1B3	0x0113	#  ē LATIN SMALL LETTER E WITH MACRON
+0xF1B4	0x0117	#  ė LATIN SMALL LETTER E WITH DOT ABOVE
+0xF1B5	0x00EB	#  ë LATIN SMALL LETTER E WITH DIAERESIS
+0xF1B6	0x0119	#  ę LATIN SMALL LETTER E WITH OGONEK
+0xF1B7	0x011B	#  ě LATIN SMALL LETTER E WITH CARON
+0xF1B8	0x01F5	#  ǵ LATIN SMALL LETTER G WITH ACUTE
+0xF1B9	0x011D	#  ĝ LATIN SMALL LETTER G WITH CIRCUMFLEX
+0xF1BA	0x011F	#  ğ LATIN SMALL LETTER G WITH BREVE
+0xF1BB	0x0121	#  ġ LATIN SMALL LETTER G WITH DOT ABOVE
+0xF1BC	0x0123	#  ģ LATIN SMALL LETTER G WITH CEDILLA
+0xF1BD	0x0125	#  ĥ LATIN SMALL LETTER H WITH CIRCUMFLEX
+0xF1BE	0x00EC	#  ì LATIN SMALL LETTER I WITH GRAVE
+0xF1BF	0x00ED	#  í LATIN SMALL LETTER I WITH ACUTE
+0xF1C0	0x00EE	#  î LATIN SMALL LETTER I WITH CIRCUMFLEX
+0xF1C1	0x0129	#  ĩ LATIN SMALL LETTER I WITH TILDE
+0xF1C2	0x012B	#  ī LATIN SMALL LETTER I WITH MACRON
+0xF1C4	0x00EF	#  ï LATIN SMALL LETTER I WITH DIAERESIS
+0xF1C5	0x012F	#  į LATIN SMALL LETTER I WITH OGONEK
+0xF1C6	0x0135	#  ĵ LATIN SMALL LETTER J WITH CIRCUMFLEX
+0xF1C7	0x0137	#  ķ LATIN SMALL LETTER K WITH CEDILLA
+0xF1C8	0x013A	#  ĺ LATIN SMALL LETTER L WITH ACUTE
+0xF1C9	0x013C	#  ļ LATIN SMALL LETTER L WITH CEDILLA
+0xF1CA	0x013E	#  ľ LATIN SMALL LETTER L WITH CARON
+0xF1CB	0x0144	#  ń LATIN SMALL LETTER N WITH ACUTE
+0xF1CC	0x00F1	#  ñ LATIN SMALL LETTER N WITH TILDE
+0xF1CD	0x0146	#  ņ LATIN SMALL LETTER N WITH CEDILLA
+0xF1CE	0x0148	#  ň LATIN SMALL LETTER N WITH CARON
+0xF1CF	0x00F2	#  ò LATIN SMALL LETTER O WITH GRAVE
+0xF1D0	0x00F3	#  ó LATIN SMALL LETTER O WITH ACUTE
+0xF1D1	0x00F4	#  ô LATIN SMALL LETTER O WITH CIRCUMFLEX
+0xF1D2	0x00F5	#  õ LATIN SMALL LETTER O WITH TILDE
+0xF1D3	0x014D	#  ō LATIN SMALL LETTER O WITH MACRON
+0xF1D4	0x00F6	#  ö LATIN SMALL LETTER O WITH DIAERESIS
+0xF1D5	0x0151	#  ő LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0xF1D6	0x0155	#  ŕ LATIN SMALL LETTER R WITH ACUTE
+0xF1D7	0x0157	#  ŗ LATIN SMALL LETTER R WITH CEDILLA
+0xF1D8	0x0159	#  ř LATIN SMALL LETTER R WITH CARON
+0xF1D9	0x015B	#  ś LATIN SMALL LETTER S WITH ACUTE
+0xF1DA	0x015D	#  ŝ LATIN SMALL LETTER S WITH CIRCUMFLEX
+0xF1DB	0x015F	#  ş LATIN SMALL LETTER S WITH CEDILLA
+0xF1DC	0x0161	#  š LATIN SMALL LETTER S WITH CARON
+0xF1DD	0x0163	#  ţ LATIN SMALL LETTER T WITH CEDILLA
+0xF1DE	0x0165	#  ť LATIN SMALL LETTER T WITH CARON
+0xF1DF	0x00F9	#  ù LATIN SMALL LETTER U WITH GRAVE
+0xF1E0	0x00FA	#  ú LATIN SMALL LETTER U WITH ACUTE
+0xF1E1	0x00FB	#  û LATIN SMALL LETTER U WITH CIRCUMFLEX
+0xF1E2	0x0169	#  ũ LATIN SMALL LETTER U WITH TILDE
+0xF1E3	0x016B	#  ū LATIN SMALL LETTER U WITH MACRON
+0xF1E4	0x016D	#  ŭ LATIN SMALL LETTER U WITH BREVE
+0xF1E5	0x00FC	#  ü LATIN SMALL LETTER U WITH DIAERESIS
+0xF1E6	0x016F	#  ů LATIN SMALL LETTER U WITH RING ABOVE
+0xF1E7	0x0171	#  ű LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0xF1E8	0x0173	#  ų LATIN SMALL LETTER U WITH OGONEK
+0xF1E9	0x0175	#  ŵ LATIN SMALL LETTER W WITH CIRCUMFLEX
+0xF1EA	0x1EF3	#  ỳ LATIN SMALL LETTER Y WITH GRAVE
+0xF1EB	0x00FD	#  ý LATIN SMALL LETTER Y WITH ACUTE
+0xF1EC	0x0177	#  ŷ LATIN SMALL LETTER Y WITH CIRCUMFLEX
+0xF1ED	0x00FF	#  ÿ LATIN SMALL LETTER Y WITH DIAERESIS
+0xF1EE	0x017A	#  ź LATIN SMALL LETTER Z WITH ACUTE
+0xF1EF	0x017C	#  ż LATIN SMALL LETTER Z WITH DOT ABOVE
+0xF1F0	0x017E	#  ž LATIN SMALL LETTER Z WITH CARON
+0xF1F1	0x006C 0x0315	#  l̕ LATIN SMALL LETTER L; COMBINING COMMA ABOVE RIGHT
+0xF1F2	0x0074 0x0315	#  t̕ LATIN SMALL LETTER T; COMBINING COMMA ABOVE RIGHT
+0xF1F3	0x0064 0x0315	#  d̕ LATIN SMALL LETTER D; COMBINING COMMA ABOVE RIGHT
+0xF1F4	0x1ECD	#  ọ LATIN SMALL LETTER O WITH DOT BELOW
+0xF1F5	0x0233	#  ȳ LATIN SMALL LETTER Y WITH MACRON
+0xF1F6	0x01E3	#  ǣ LATIN SMALL LETTER AE WITH MACRON
+0xF1F7	0x0153 0x0304	#  œ̄ LATIN SMALL LIGATURE OE; COMBINING MACRON
+0xF1F8	0x0101 0x0306	#  ā̆ LATIN SMALL LETTER A WITH MACRON; COMBINING BREVE
+0xF1F9	0x01CE	#  ǎ LATIN SMALL LETTER A WITH CARON
+0xF1FA	0x0115	#  ĕ LATIN SMALL LETTER E WITH BREVE
+0xF1FB	0x0113 0x0323	#  ẹ̄ LATIN SMALL LETTER E WITH MACRON; COMBINING DOT BELOW
+0xF1FC	0x0113 0x0306	#  ē̆ LATIN SMALL LETTER E WITH MACRON; COMBINING BREVE
+0xF1FD	0x01E7	#  ǧ LATIN SMALL LETTER G WITH CARON
+0xF1FE	0x012D	#  ĭ LATIN SMALL LETTER I WITH BREVE

unicode/xerox/XCCS-362=ACCENTED-LATIN2.TXT

@@ -0,0 +1,87 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     362 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "362" UNKNOWN
+0xF221	0x0049 0x0304 0x0306	#  Ī̆ LATIN CAPITAL LETTER I; COMBINING MACRON; COMBINING BREVE
+0xF222	0x01CF	#  Ǐ LATIN CAPITAL LETTER I WITH CARON
+0xF223	0x004E 0x0304	#  N̄ LATIN CAPITAL LETTER N; COMBINING MACRON
+0xF224	0x004D 0x0304	#  M̄ LATIN CAPITAL LETTER M; COMBINING MACRON
+0xF225	0x01D1	#  Ǒ LATIN CAPITAL LETTER O WITH CARON
+0xF226	0x014E	#  Ŏ LATIN CAPITAL LETTER O WITH BREVE
+0xF227	0x014C 0x0306	#  Ō̆ LATIN CAPITAL LETTER O WITH MACRON; COMBINING BREVE
+0xF228	0x014C 0x0323	#  Ọ̄ LATIN CAPITAL LETTER O WITH MACRON; COMBINING DOT BELOW
+0xF229	0x01EA	#  Ǫ LATIN CAPITAL LETTER O WITH OGONEK
+0xF22A	0x01D3	#  Ǔ LATIN CAPITAL LETTER U WITH CARON
+0xF22B	0x016A 0x0306	#  Ū̆ LATIN CAPITAL LETTER U WITH MACRON; COMBINING BREVE
+0xF22C	0x0059 0x0306	#  Y̆ LATIN CAPITAL LETTER Y; COMBINING BREVE
+0xF22D	0x0059 0x0304 0x0306	#  Ȳ̆ LATIN CAPITAL LETTER Y; COMBINING MACRON; COMBINING BREVE
+0xF22E	0x0059 0x030C	#  Y̌ LATIN CAPITAL LETTER Y; COMBINING CARON
+0xF22F	0x0044 0x0331	#  Ḏ LATIN CAPITAL LETTER D; COMBINING MACRON BELOW
+0xF230	0x0054 0x0331	#  Ṯ LATIN CAPITAL LETTER T; COMBINING MACRON BELOW
+0xF231	0x1E0C	#  Ḍ LATIN CAPITAL LETTER D WITH DOT BELOW
+0xF232	0x1E24	#  Ḥ LATIN CAPITAL LETTER H WITH DOT BELOW
+0xF233	0x1E62	#  Ṣ LATIN CAPITAL LETTER S WITH DOT BELOW
+0xF234	0x1E6C	#  Ṭ LATIN CAPITAL LETTER T WITH DOT BELOW
+0xF235	0x0044 0x0331 0x0323	#  Ḏ̣ LATIN CAPITAL LETTER D; COMBINING MACRON BELOW; COMBINING DOT BELOW
+0xF2A1	0x012B 0x0306	#  ī̆ LATIN SMALL LETTER I WITH MACRON; COMBINING BREVE
+0xF2A2	0x01D0	#  ǐ LATIN SMALL LETTER I WITH CARON
+0xF2A3	0x006E 0x0304	#  n̄ LATIN SMALL LETTER N; COMBINING MACRON
+0xF2A4	0x006D 0x0304	#  m̄ LATIN SMALL LETTER M; COMBINING MACRON
+0xF2A5	0x01D2	#  ǒ LATIN SMALL LETTER O WITH CARON
+0xF2A6	0x014F	#  ŏ LATIN SMALL LETTER O WITH BREVE
+0xF2A7	0x014D 0x0306	#  ō̆ LATIN SMALL LETTER O WITH MACRON; COMBINING BREVE
+0xF2A8	0x014D 0x0323	#  ọ̄ LATIN SMALL LETTER O WITH MACRON; COMBINING DOT BELOW
+0xF2A9	0x01EB	#  ǫ LATIN SMALL LETTER O WITH OGONEK
+0xF2AA	0x01D4	#  ǔ LATIN SMALL LETTER U WITH CARON
+0xF2AB	0x016B	#  ū LATIN SMALL LETTER U WITH MACRON
+0xF2AC	0x0079 0x0306	#  y̆ LATIN SMALL LETTER Y; COMBINING BREVE
+0xF2AD	0x0233 0x0306	#  ȳ̆ LATIN SMALL LETTER Y WITH MACRON; COMBINING BREVE
+0xF2AE	0x0079 0x030C	#  y̌ LATIN SMALL LETTER Y; COMBINING CARON
+0xF2AF	0x1E0F	#  ḏ LATIN SMALL LETTER D WITH LINE BELOW
+0xF2B0	0x1E6F	#  ṯ LATIN SMALL LETTER T WITH LINE BELOW
+0xF2B1	0x1E0D	#  ḍ LATIN SMALL LETTER D WITH DOT BELOW
+0xF2B2	0x1E25	#  ḥ LATIN SMALL LETTER H WITH DOT BELOW
+0xF2B3	0x1E63	#  ṣ LATIN SMALL LETTER S WITH DOT BELOW
+0xF2B4	0x1E6D	#  ṭ LATIN SMALL LETTER T WITH DOT BELOW
+0xF2B5	0x1E0F 0x0323	#  ḏ̣ LATIN SMALL LETTER D WITH LINE BELOW; COMBINING DOT BELOW

unicode/xerox/XCCS-363=ACCENTED-GREEK1.TXT

@@ -0,0 +1,233 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     363 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "363" UNKNOWN
+0xF321	0x1F01	#  ἁ GREEK SMALL LETTER ALPHA WITH DASIA
+0xF322	0x1F09	#  Ἁ GREEK CAPITAL LETTER ALPHA WITH DASIA
+0xF323	0x1F00	#  ἀ GREEK SMALL LETTER ALPHA WITH PSILI
+0xF324	0x1F08	#  Ἀ GREEK CAPITAL LETTER ALPHA WITH PSILI
+0xF325	0x1F71	#  ά GREEK SMALL LETTER ALPHA WITH OXIA
+0xF326	0x1FBB	#  Ά GREEK CAPITAL LETTER ALPHA WITH OXIA
+0xF327	0x1F70	#  ὰ GREEK SMALL LETTER ALPHA WITH VARIA
+0xF328	0x1FBA	#  Ὰ GREEK CAPITAL LETTER ALPHA WITH VARIA
+0xF329	0x1FB6	#  ᾶ GREEK SMALL LETTER ALPHA WITH PERISPOMENI
+0xF32A	0x0391 0x0303	#  Α̃ GREEK CAPITAL LETTER ALPHA; COMBINING TILDE
+0xF32B	0x1F05	#  ἅ GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA
+0xF32C	0x1F0D	#  Ἅ GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA
+0xF32D	0x1F03	#  ἃ GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA
+0xF32E	0x1F0D	#  Ἅ GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA
+0xF32F	0x1F07	#  ἇ GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI
+0xF330	0x1F0F	#  Ἇ GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI
+0xF331	0x1F04	#  ἄ GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA
+0xF332	0x1F0C	#  Ἄ GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA
+0xF333	0x1F02	#  ἂ GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA
+0xF334	0x1F0A	#  Ἂ GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA
+0xF335	0x1F06	#  ἆ GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI
+0xF336	0x1F0E	#  Ἆ GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI
+0xF337	0x1FB3	#  ᾳ GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI
+0xF338	0x1FBC	#  ᾼ GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI
+0xF339	0x1F81	#  ᾁ GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI
+0xF33A	0x1F89	#  ᾉ GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI
+0xF33B	0x1F80	#  ᾀ GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI
+0xF33C	0x1F88	#  ᾈ GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI
+0xF33D	0x1FB4	#  ᾴ GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI
+0xF33E	0x1FBC 0x0301	#  Άͅ GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI; COMBINING ACUTE ACCENT
+0xF33F	0x1FB2	#  ᾲ GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI
+0xF340	0x1FBC 0x0300	#  Ὰͅ GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI; COMBINING GRAVE ACCENT
+0xF341	0x1FB7	#  ᾷ GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI
+0xF342	0x1FBC 0x0303	#  ᾼ̃ GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI; COMBINING TILDE
+0xF343	0x1F85	#  ᾅ GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+0xF344	0x1F8D	#  ᾍ GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+0xF345	0x1F83	#  ᾃ GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+0xF346	0x1F8B	#  ᾋ GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+0xF347	0x1F87	#  ᾇ GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+0xF348	0x1F8F	#  ᾏ GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+0xF349	0x1F84	#  ᾄ GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+0xF34A	0x1F8C	#  ᾌ GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+0xF34B	0x1F82	#  ᾂ GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+0xF34C	0x1F8A	#  ᾊ GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+0xF34D	0x1F86	#  ᾆ GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+0xF34E	0x1F8E	#  ᾎ GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+0xF34F	0x1F11	#  ἑ GREEK SMALL LETTER EPSILON WITH DASIA
+0xF350	0x1F19	#  Ἑ GREEK CAPITAL LETTER EPSILON WITH DASIA
+0xF351	0x1F10	#  ἐ GREEK SMALL LETTER EPSILON WITH PSILI
+0xF352	0x1F18	#  Ἐ GREEK CAPITAL LETTER EPSILON WITH PSILI
+0xF353	0x1F73	#  έ GREEK SMALL LETTER EPSILON WITH OXIA
+0xF354	0x1FC9	#  Έ GREEK CAPITAL LETTER EPSILON WITH OXIA
+0xF355	0x1F72	#  ὲ GREEK SMALL LETTER EPSILON WITH VARIA
+0xF356	0x1FC8	#  Ὲ GREEK CAPITAL LETTER EPSILON WITH VARIA
+0xF357	0x1F15	#  ἕ GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA
+0xF358	0x1F1D	#  Ἕ GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA
+0xF359	0x1F13	#  ἓ GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA
+0xF35A	0x1F1B	#  Ἓ GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA
+0xF35B	0x1F14	#  ἔ GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA
+0xF35C	0x1F1C	#  Ἔ GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA
+0xF35D	0x1F12	#  ἒ GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA
+0xF35E	0x1F1A	#  Ἒ GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA
+0xF35F	0x1F21	#  ἡ GREEK SMALL LETTER ETA WITH DASIA
+0xF360	0x1F29	#  Ἡ GREEK CAPITAL LETTER ETA WITH DASIA
+0xF361	0x1F20	#  ἠ GREEK SMALL LETTER ETA WITH PSILI
+0xF362	0x1F28	#  Ἠ GREEK CAPITAL LETTER ETA WITH PSILI
+0xF363	0x1F75	#  ή GREEK SMALL LETTER ETA WITH OXIA
+0xF364	0x1FCB	#  Ή GREEK CAPITAL LETTER ETA WITH OXIA
+0xF365	0x1F74	#  ὴ GREEK SMALL LETTER ETA WITH VARIA
+0xF366	0x1FCA	#  Ὴ GREEK CAPITAL LETTER ETA WITH VARIA
+0xF367	0x1FC6	#  ῆ GREEK SMALL LETTER ETA WITH PERISPOMENI
+0xF368	0x0397 0x0303	#  Η̃ GREEK CAPITAL LETTER ETA; COMBINING TILDE
+0xF369	0x1F25	#  ἥ GREEK SMALL LETTER ETA WITH DASIA AND OXIA
+0xF36A	0x1F2D	#  Ἥ GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA
+0xF36B	0x1F23	#  ἣ GREEK SMALL LETTER ETA WITH DASIA AND VARIA
+0xF36C	0x1F2B	#  Ἣ GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA
+0xF36D	0x1F27	#  ἧ GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI
+0xF36E	0x1F2F	#  Ἧ GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI
+0xF36F	0x1F94	#  ᾔ GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+0xF370	0x1F2C	#  Ἤ GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA
+0xF371	0x1F22	#  ἢ GREEK SMALL LETTER ETA WITH PSILI AND VARIA
+0xF372	0x1F2A	#  Ἢ GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA
+0xF373	0x1F26	#  ἦ GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI
+0xF374	0x1F2E	#  Ἦ GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI
+0xF375	0x1FC3	#  ῃ GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI
+0xF376	0x1FCC	#  ῌ GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI
+0xF377	0x1F91	#  ᾑ GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI
+0xF378	0x1F99	#  ᾙ GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI
+0xF379	0x1F90	#  ᾐ GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI
+0xF37A	0x1F98	#  ᾘ GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI
+0xF37B	0x1FC4	#  ῄ GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI
+0xF37C	0x1FCC 0x0301	#  Ήͅ GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI; COMBINING ACUTE ACCENT
+0xF37D	0x1FC2	#  ῂ GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI
+0xF37E	0x1FCC 0x0300	#  Ὴͅ GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI; COMBINING GRAVE ACCENT
+0xF3A1	0x1FC7	#  ῇ GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI
+0xF3A2	0x1FCC 0x0303	#  ῌ̃ GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI; COMBINING TILDE
+0xF3A3	0x1F95	#  ᾕ GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+0xF3A4	0x1F9D	#  ᾝ GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+0xF3A5	0x1F93	#  ᾓ GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+0xF3A6	0x1F9B	#  ᾛ GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+0xF3A7	0x1F97	#  ᾗ GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+0xF3A8	0x1F9F	#  ᾟ GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+0xF3A9	0x1F94	#  ᾔ GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+0xF3AA	0x1F9C	#  ᾜ GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+0xF3AB	0x1F92	#  ᾒ GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+0xF3AC	0x1F9A	#  ᾚ GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+0xF3AD	0x1F96	#  ᾖ GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+0xF3AE	0x1F9E	#  ᾞ GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+0xF3AF	0x1F31	#  ἱ GREEK SMALL LETTER IOTA WITH DASIA
+0xF3B0	0x1F39	#  Ἱ GREEK CAPITAL LETTER IOTA WITH DASIA
+0xF3B1	0x1F30	#  ἰ GREEK SMALL LETTER IOTA WITH PSILI
+0xF3B2	0x1F38	#  Ἰ GREEK CAPITAL LETTER IOTA WITH PSILI
+0xF3B3	0x1F77	#  ί GREEK SMALL LETTER IOTA WITH OXIA
+0xF3B4	0x1FDB	#  Ί GREEK CAPITAL LETTER IOTA WITH OXIA
+0xF3B5	0x1F76	#  ὶ GREEK SMALL LETTER IOTA WITH VARIA
+0xF3B6	0x1FDA	#  Ὶ GREEK CAPITAL LETTER IOTA WITH VARIA
+0xF3B7	0x1FD6	#  ῖ GREEK SMALL LETTER IOTA WITH PERISPOMENI
+0xF3B8	0x0399 0x0303	#  Ι̃ GREEK CAPITAL LETTER IOTA; COMBINING TILDE
+0xF3B9	0x1F35	#  ἵ GREEK SMALL LETTER IOTA WITH DASIA AND OXIA
+0xF3BA	0x1F3D	#  Ἵ GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA
+0xF3BB	0x1F33	#  ἳ GREEK SMALL LETTER IOTA WITH DASIA AND VARIA
+0xF3BC	0x1F3B	#  Ἳ GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA
+0xF3BD	0x1F37	#  ἷ GREEK SMALL LETTER IOTA WITH DASIA AND PERISPOMENI
+0xF3BE	0x1F3F	#  Ἷ GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI
+0xF3BF	0x1F34	#  ἴ GREEK SMALL LETTER IOTA WITH PSILI AND OXIA
+0xF3C0	0x1F3C	#  Ἴ GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA
+0xF3C1	0x1F32	#  ἲ GREEK SMALL LETTER IOTA WITH PSILI AND VARIA
+0xF3C2	0x1F3A	#  Ἲ GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA
+0xF3C3	0x1F36	#  ἶ GREEK SMALL LETTER IOTA WITH PSILI AND PERISPOMENI
+0xF3C4	0x1F3E	#  Ἶ GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI
+0xF3C5	0x03CA 0x0301	#  ΐ GREEK SMALL LETTER IOTA WITH DIALYTIKA; COMBINING ACUTE ACCENT
+0xF3C6	0x03AA 0x0301	#  Ϊ́ GREEK CAPITAL LETTER IOTA WITH DIALYTIKA; COMBINING ACUTE ACCENT
+0xF3C7	0x03CA 0x0300	#  ῒ GREEK SMALL LETTER IOTA WITH DIALYTIKA; COMBINING GRAVE ACCENT
+0xF3C8	0x03AA 0x0300	#  Ϊ̀ GREEK CAPITAL LETTER IOTA WITH DIALYTIKA; COMBINING GRAVE ACCENT
+0xF3C9	0x03CA 0x0303	#  ϊ̃ GREEK SMALL LETTER IOTA WITH DIALYTIKA; COMBINING TILDE
+0xF3CA	0x03AA 0x0303	#  Ϊ̃ GREEK CAPITAL LETTER IOTA WITH DIALYTIKA; COMBINING TILDE
+0xF3CB	0x1F41	#  ὁ GREEK SMALL LETTER OMICRON WITH DASIA
+0xF3CC	0x1F49	#  Ὁ GREEK CAPITAL LETTER OMICRON WITH DASIA
+0xF3CD	0x1F40	#  ὀ GREEK SMALL LETTER OMICRON WITH PSILI
+0xF3CE	0x1F48	#  Ὀ GREEK CAPITAL LETTER OMICRON WITH PSILI
+0xF3CF	0x1F79	#  ό GREEK SMALL LETTER OMICRON WITH OXIA
+0xF3D0	0x1FF9	#  Ό GREEK CAPITAL LETTER OMICRON WITH OXIA
+0xF3D1	0x1F78	#  ὸ GREEK SMALL LETTER OMICRON WITH VARIA
+0xF3D2	0x1FF8	#  Ὸ GREEK CAPITAL LETTER OMICRON WITH VARIA
+0xF3D3	0x1F45	#  ὅ GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA
+0xF3D4	0x1F4D	#  Ὅ GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA
+0xF3D5	0x1F43	#  ὃ GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA
+0xF3D6	0x1F4B	#  Ὃ GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA
+0xF3D7	0x1F44	#  ὄ GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA
+0xF3D8	0x1F4C	#  Ὄ GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA
+0xF3D9	0x1F42	#  ὂ GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA
+0xF3DA	0x1F4A	#  Ὂ GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA
+0xF3DB	0x1F51	#  ὑ GREEK SMALL LETTER UPSILON WITH DASIA
+0xF3DC	0x1F59	#  Ὑ GREEK CAPITAL LETTER UPSILON WITH DASIA
+0xF3DD	0x1F50	#  ὐ GREEK SMALL LETTER UPSILON WITH PSILI
+0xF3DE	0x03A5 0x0313	#  Υ̓ GREEK CAPITAL LETTER UPSILON; COMBINING COMMA ABOVE
+0xF3DF	0x1F7B	#  ύ GREEK SMALL LETTER UPSILON WITH OXIA
+0xF3E0	0x1FEB	#  Ύ GREEK CAPITAL LETTER UPSILON WITH OXIA
+0xF3E1	0x1F7A	#  ὺ GREEK SMALL LETTER UPSILON WITH VARIA
+0xF3E2	0x1FEA	#  Ὺ GREEK CAPITAL LETTER UPSILON WITH VARIA
+0xF3E3	0x1FE6	#  ῦ GREEK SMALL LETTER UPSILON WITH PERISPOMENI
+0xF3E4	0x03A5 0x0303	#  Υ̃ GREEK CAPITAL LETTER UPSILON; COMBINING TILDE
+0xF3E5	0x1F55	#  ὕ GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA
+0xF3E6	0x1F5D	#  Ὕ GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA
+0xF3E7	0x1F53	#  ὓ GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA
+0xF3E8	0x1F5B	#  Ὓ GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA
+0xF3E9	0x1F57	#  ὗ GREEK SMALL LETTER UPSILON WITH DASIA AND PERISPOMENI
+0xF3EA	0x1F5F	#  Ὗ GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI
+0xF3EB	0x03CB 0x0303	#  ϋ̃ GREEK SMALL LETTER UPSILON WITH DIALYTIKA; COMBINING TILDE
+0xF3EC	0x03AB 0x0303	#  Ϋ̃ GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA; COMBINING TILDE
+0xF3ED	0x1F54	#  ὔ GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA
+0xF3EE	0x1FEB 0x0313	#  Ύ̓ GREEK CAPITAL LETTER UPSILON WITH OXIA; COMBINING COMMA ABOVE
+0xF3EF	0x1F52	#  ὒ GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA
+0xF3F0	0x1FEA 0x0313	#  Ὺ̓ GREEK CAPITAL LETTER UPSILON WITH VARIA; COMBINING COMMA ABOVE
+0xF3F1	0x1F56	#  ὖ GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI
+0xF3F2	0x03A5 0x0313 0x0303	#  Υ̓̃ GREEK CAPITAL LETTER UPSILON; COMBINING COMMA ABOVE; COMBINING TILDE
+0xF3F3	0x03CB 0x0301	#  ΰ GREEK SMALL LETTER UPSILON WITH DIALYTIKA; COMBINING ACUTE ACCENT
+0xF3F4	0x03AB 0x0301	#  Ϋ́ GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA; COMBINING ACUTE ACCENT
+0xF3F5	0x03CB 0x0300	#  ῢ GREEK SMALL LETTER UPSILON WITH DIALYTIKA; COMBINING GRAVE ACCENT
+0xF3F6	0x03AB 0x0300	#  Ϋ̀ GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA; COMBINING GRAVE ACCENT
+0xF3F7	0x1F61	#  ὡ GREEK SMALL LETTER OMEGA WITH DASIA
+0xF3F8	0x1F69	#  Ὡ GREEK CAPITAL LETTER OMEGA WITH DASIA
+0xF3F9	0x1F60	#  ὠ GREEK SMALL LETTER OMEGA WITH PSILI
+0xF3FA	0x1F68	#  Ὠ GREEK CAPITAL LETTER OMEGA WITH PSILI
+0xF3FB	0x1F7D	#  ώ GREEK SMALL LETTER OMEGA WITH OXIA
+0xF3FC	0x1FFB	#  Ώ GREEK CAPITAL LETTER OMEGA WITH OXIA
+0xF3FD	0x1F7C	#  ὼ GREEK SMALL LETTER OMEGA WITH VARIA
+0xF3FE	0x1FFA	#  Ὼ GREEK CAPITAL LETTER OMEGA WITH VARIA

unicode/xerox/XCCS-364=ACCENTED-GREEK2.TXT

@@ -0,0 +1,87 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     364 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "364" UNKNOWN
+0xF421	0x1FF6	#  ῶ GREEK SMALL LETTER OMEGA WITH PERISPOMENI
+0xF422	0x03A9 0x0303	#  Ω̃ GREEK CAPITAL LETTER OMEGA; COMBINING TILDE
+0xF423	0x1F65	#  ὥ GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA
+0xF424	0x1F6D	#  Ὥ GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA
+0xF425	0x1F63	#  ὣ GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA
+0xF426	0x1F6B	#  Ὣ GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA
+0xF427	0x1F67	#  ὧ GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI
+0xF428	0x1F6F	#  Ὧ GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI
+0xF429	0x1F64	#  ὤ GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA
+0xF42A	0x1F6C	#  Ὤ GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA
+0xF42B	0x1F62	#  ὢ GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA
+0xF42C	0x1F6A	#  Ὢ GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA
+0xF42D	0x1F66	#  ὦ GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI
+0xF42E	0x1F6E	#  Ὦ GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI
+0xF42F	0x1FF3	#  ῳ GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI
+0xF430	0x1FFC	#  ῼ GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI
+0xF431	0x1FA1	#  ᾡ GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI
+0xF432	0x1FA9	#  ᾩ GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI
+0xF433	0x1FA0	#  ᾠ GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI
+0xF434	0x1FA8	#  ᾨ GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI
+0xF435	0x1FF4	#  ῴ GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI
+0xF436	0x1FFC 0x0301	#  Ώͅ GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI; COMBINING ACUTE ACCENT
+0xF437	0x1FF2	#  ῲ GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI
+0xF438	0x1FFC 0x0300	#  Ὼͅ GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI; COMBINING GRAVE ACCENT
+0xF439	0x1FF7	#  ῷ GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI
+0xF43A	0x1FFC 0x0303	#  ῼ̃ GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI; COMBINING TILDE
+0xF43B	0x1FA5	#  ᾥ GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+0xF43C	0x1FAB	#  ᾫ GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+0xF43D	0x1FA3	#  ᾣ GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+0xF43E	0x1FAB	#  ᾫ GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+0xF43F	0x1FA7	#  ᾧ GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+0xF440	0x1FAF	#  ᾯ GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+0xF441	0x1FA4	#  ᾤ GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+0xF442	0x1FAC	#  ᾬ GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+0xF443	0x1FA2	#  ᾢ GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+0xF444	0x1FAA	#  ᾪ GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+0xF445	0x1FA6	#  ᾦ GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+0xF446	0x1FAE	#  ᾮ GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+0xF447	0x1FE5	#  ῥ GREEK SMALL LETTER RHO WITH DASIA
+0xF448	0x1FEC	#  Ῥ GREEK CAPITAL LETTER RHO WITH DASIA
+0xF449	0x1FE4	#  ῤ GREEK SMALL LETTER RHO WITH PSILI
+0xF44A	0x1FBF 0x03A1	#  ᾿Ρ GREEK PSILI; GREEK CAPITAL LETTER RHO

unicode/xerox/XCCS-365=MORE-ARABIC.TXT

@@ -0,0 +1,161 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     365 MORE-ARABIC
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "365" MORE-ARABIC
+0xF521	0xFE82	#  ﺂ ARABIC LETTER ALEF WITH MADDA ABOVE FINAL FORM
+0xF522	0xFE84	#  ﺄ ARABIC LETTER ALEF WITH HAMZA ABOVE FINAL FORM
+0xF523	0xFE86	#  ﺆ ARABIC LETTER WAW WITH HAMZA ABOVE FINAL FORM
+0xF524	0xFE88	#  ﺈ ARABIC LETTER ALEF WITH HAMZA BELOW FINAL FORM
+0xF525	0xFE8B	#  ﺋ ARABIC LETTER YEH WITH HAMZA ABOVE INITIAL FORM
+0xF526	0xFE8C	#  ﺌ ARABIC LETTER YEH WITH HAMZA ABOVE MEDIAL FORM
+0xF527	0xFE8A	#  ﺊ ARABIC LETTER YEH WITH HAMZA ABOVE FINAL FORM
+0xF528	0xFE8E	#  ﺎ ARABIC LETTER ALEF FINAL FORM
+0xF529	0xFE91	#  ﺑ ARABIC LETTER BEH INITIAL FORM
+0xF52A	0xFE92	#  ﺒ ARABIC LETTER BEH MEDIAL FORM
+0xF52B	0xFE90	#  ﺐ ARABIC LETTER BEH FINAL FORM
+0xF52C	0xFE94	#  ﺔ ARABIC LETTER TEH MARBUTA FINAL FORM
+0xF52D	0xFE97	#  ﺗ ARABIC LETTER TEH INITIAL FORM
+0xF52E	0xFE98	#  ﺘ ARABIC LETTER TEH MEDIAL FORM
+0xF52F	0xFE96	#  ﺖ ARABIC LETTER TEH FINAL FORM
+0xF530	0xFE9B	#  ﺛ ARABIC LETTER THEH INITIAL FORM
+0xF531	0xFE9C	#  ﺜ ARABIC LETTER THEH MEDIAL FORM
+0xF532	0xFE9A	#  ﺚ ARABIC LETTER THEH FINAL FORM
+0xF533	0xFE9F	#  ﺟ ARABIC LETTER JEEM INITIAL FORM
+0xF534	0xFEA0	#  ﺠ ARABIC LETTER JEEM MEDIAL FORM
+0xF535	0xFE9E	#  ﺞ ARABIC LETTER JEEM FINAL FORM
+0xF536	0xFEA3	#  ﺣ ARABIC LETTER HAH INITIAL FORM
+0xF537	0xFEA4	#  ﺤ ARABIC LETTER HAH MEDIAL FORM
+0xF538	0xFEA2	#  ﺢ ARABIC LETTER HAH FINAL FORM
+0xF539	0xFEA7	#  ﺧ ARABIC LETTER KHAH INITIAL FORM
+0xF53A	0xFEA8	#  ﺨ ARABIC LETTER KHAH MEDIAL FORM
+0xF53B	0xFEA6	#  ﺦ ARABIC LETTER KHAH FINAL FORM
+0xF53C	0xFEAA	#  ﺪ ARABIC LETTER DAL FINAL FORM
+0xF53D	0xFEAC	#  ﺬ ARABIC LETTER THAL FINAL FORM
+0xF53E	0xFEAE	#  ﺮ ARABIC LETTER REH FINAL FORM
+0xF53F	0xFEB0	#  ﺰ ARABIC LETTER ZAIN FINAL FORM
+0xF540	0xFEB3	#  ﺳ ARABIC LETTER SEEN INITIAL FORM
+0xF541	0xFEB4	#  ﺴ ARABIC LETTER SEEN MEDIAL FORM
+0xF542	0xFEB2	#  ﺲ ARABIC LETTER SEEN FINAL FORM
+0xF543	0xFEB7	#  ﺷ ARABIC LETTER SHEEN INITIAL FORM
+0xF544	0xFEB8	#  ﺸ ARABIC LETTER SHEEN MEDIAL FORM
+0xF545	0xFEB6	#  ﺶ ARABIC LETTER SHEEN FINAL FORM
+0xF546	0xFEBB	#  ﺻ ARABIC LETTER SAD INITIAL FORM
+0xF547	0xFEBC	#  ﺼ ARABIC LETTER SAD MEDIAL FORM
+0xF548	0xFEBA	#  ﺺ ARABIC LETTER SAD FINAL FORM
+0xF549	0xFEBF	#  ﺿ ARABIC LETTER DAD INITIAL FORM
+0xF54A	0xFEC0	#  ﻀ ARABIC LETTER DAD MEDIAL FORM
+0xF54B	0xFEBE	#  ﺾ ARABIC LETTER DAD FINAL FORM
+0xF54C	0xFEC3	#  ﻃ ARABIC LETTER TAH INITIAL FORM
+0xF54D	0xFEC4	#  ﻄ ARABIC LETTER TAH MEDIAL FORM
+0xF54E	0xFEC2	#  ﻂ ARABIC LETTER TAH FINAL FORM
+0xF54F	0xFEC7	#  ﻇ ARABIC LETTER ZAH INITIAL FORM
+0xF550	0xFEC8	#  ﻈ ARABIC LETTER ZAH MEDIAL FORM
+0xF551	0xFEC6	#  ﻆ ARABIC LETTER ZAH FINAL FORM
+0xF552	0xFECB	#  ﻋ ARABIC LETTER AIN INITIAL FORM
+0xF553	0xFECC	#  ﻌ ARABIC LETTER AIN MEDIAL FORM
+0xF554	0xFECA	#  ﻊ ARABIC LETTER AIN FINAL FORM
+0xF555	0xFECF	#  ﻏ ARABIC LETTER GHAIN INITIAL FORM
+0xF556	0xFED0	#  ﻐ ARABIC LETTER GHAIN MEDIAL FORM
+0xF557	0xFECE	#  ﻎ ARABIC LETTER GHAIN FINAL FORM
+0xF558	0xFED3	#  ﻓ ARABIC LETTER FEH INITIAL FORM
+0xF559	0xFED4	#  ﻔ ARABIC LETTER FEH MEDIAL FORM
+0xF55A	0xFED2	#  ﻒ ARABIC LETTER FEH FINAL FORM
+0xF55B	0xFED7	#  ﻗ ARABIC LETTER QAF INITIAL FORM
+0xF55C	0xFED8	#  ﻘ ARABIC LETTER QAF MEDIAL FORM
+0xF55D	0xFED6	#  ﻖ ARABIC LETTER QAF FINAL FORM
+0xF55E	0xFEDB	#  ﻛ ARABIC LETTER KAF INITIAL FORM
+0xF55F	0xFEDC	#  ﻜ ARABIC LETTER KAF MEDIAL FORM
+0xF560	0xFEDA	#  ﻚ ARABIC LETTER KAF FINAL FORM
+0xF561	0xFEDF	#  ﻟ ARABIC LETTER LAM INITIAL FORM
+0xF562	0xFEE0	#  ﻠ ARABIC LETTER LAM MEDIAL FORM
+0xF563	0xFEDE	#  ﻞ ARABIC LETTER LAM FINAL FORM
+0xF564	0xFEE3	#  ﻣ ARABIC LETTER MEEM INITIAL FORM
+0xF565	0xFEE4	#  ﻤ ARABIC LETTER MEEM MEDIAL FORM
+0xF566	0xFEE2	#  ﻢ ARABIC LETTER MEEM FINAL FORM
+0xF567	0xFEE7	#  ﻧ ARABIC LETTER NOON INITIAL FORM
+0xF568	0xFEE8	#  ﻨ ARABIC LETTER NOON MEDIAL FORM
+0xF569	0xFEE6	#  ﻦ ARABIC LETTER NOON FINAL FORM
+0xF56A	0xFEEB	#  ﻫ ARABIC LETTER HEH INITIAL FORM
+0xF56B	0xFEEC	#  ﻬ ARABIC LETTER HEH MEDIAL FORM
+0xF56C	0xFEEA	#  ﻪ ARABIC LETTER HEH FINAL FORM
+0xF56D	0xFEEE	#  ﻮ ARABIC LETTER WAW FINAL FORM
+0xF56E	0xFEF0	#  ﻰ ARABIC LETTER ALEF MAKSURA FINAL FORM
+0xF56F	0xFEF3	#  ﻳ ARABIC LETTER YEH INITIAL FORM
+0xF570	0xFEF4	#  ﻴ ARABIC LETTER YEH MEDIAL FORM
+0xF571	0xFEF2	#  ﻲ ARABIC LETTER YEH FINAL FORM
+0xF572	0xFEF5	#  ﻵ ARABIC LIGATURE LAM WITH ALEF WITH MADDA ABOVE ISOLATED FORM
+0xF573	0xFEF6	#  ﻶ ARABIC LIGATURE LAM WITH ALEF WITH MADDA ABOVE FINAL FORM
+0xF574	0xFEF7	#  ﻷ ARABIC LIGATURE LAM WITH ALEF WITH HAMZA ABOVE ISOLATED FORM
+0xF575	0xFEF8	#  ﻸ ARABIC LIGATURE LAM WITH ALEF WITH HAMZA ABOVE FINAL FORM
+0xF576	0xFEF9	#  ﻹ ARABIC LIGATURE LAM WITH ALEF WITH HAMZA BELOW ISOLATED FORM
+0xF577	0xFEFA	#  ﻺ ARABIC LIGATURE LAM WITH ALEF WITH HAMZA BELOW FINAL FORM
+0xF578	0xFEFB	#  ﻻ ARABIC LIGATURE LAM WITH ALEF ISOLATED FORM
+0xF579	0xFEFC	#  ﻼ ARABIC LIGATURE LAM WITH ALEF FINAL FORM
+0xF57A	0x06F4	#  ۴ EXTENDED ARABIC-INDIC DIGIT FOUR
+0xF57B	0x06F4	#  ۴ EXTENDED ARABIC-INDIC DIGIT FOUR
+0xF57C	0x06F5	#  ۵ EXTENDED ARABIC-INDIC DIGIT FIVE
+0xF57D	0x06F6	#  ۶ EXTENDED ARABIC-INDIC DIGIT SIX
+0xF5A2	0xFC5E	#  ﱞ ARABIC LIGATURE SHADDA WITH DAMMATAN ISOLATED FORM
+0xF5A3	0xFC5F	#  ﱟ ARABIC LIGATURE SHADDA WITH KASRATAN ISOLATED FORM
+0xF5A4	0xFC60	#  ﱠ ARABIC LIGATURE SHADDA WITH FATHA ISOLATED FORM
+0xF5A5	0xFC61	#  ﱡ ARABIC LIGATURE SHADDA WITH DAMMA ISOLATED FORM
+0xF5A6	0xFC62	#  ﱢ ARABIC LIGATURE SHADDA WITH KASRA ISOLATED FORM
+0xF5A7	0xFB6C	#  ﭬ ARABIC LETTER VEH INITIAL FORM
+0xF5A8	0xFB6D	#  ﭭ ARABIC LETTER VEH MEDIAL FORM
+0xF5A9	0xFB6B	#  ﭫ ARABIC LETTER VEH FINAL FORM
+0xF5AA	0x06CC	#  ی ARABIC LETTER FARSI YEH
+0xF5AB	0xFC32	#  ﰲ ARABIC LIGATURE FEH WITH YEH ISOLATED FORM
+0xF5EC	0xFB58	#  ﭘ ARABIC LETTER PEH INITIAL FORM
+0xF5ED	0xFB59	#  ﭙ ARABIC LETTER PEH MEDIAL FORM
+0xF5EE	0xFB57	#  ﭗ ARABIC LETTER PEH FINAL FORM
+0xF5EF	0xFB7C	#  ﭼ ARABIC LETTER TCHEH INITIAL FORM
+0xF5F0	0xFB7D	#  ﭽ ARABIC LETTER TCHEH MEDIAL FORM
+0xF5F1	0xFB7B	#  ﭻ ARABIC LETTER TCHEH FINAL FORM
+0xF5F2	0xFB8B	#  ﮋ ARABIC LETTER JEH FINAL FORM
+0xF5F3	0x06A9	#  ک ARABIC LETTER KEHEH
+0xF5F4	0xFB8F	#  ﮏ ARABIC LETTER KEHEH FINAL FORM
+0xF5F5	0xFB94	#  ﮔ ARABIC LETTER GAF INITIAL FORM
+0xF5F6	0xFB95	#  ﮕ ARABIC LETTER GAF MEDIAL FORM
+0xF5F7	0xFB93	#  ﮓ ARABIC LETTER GAF FINAL FORM
+0xF5F8	0xFBA5	#  ﮥ ARABIC LETTER HEH WITH YEH ABOVE FINAL FORM

unicode/xerox/XCCS-375=GRAPHIC-VARIANTS.TXT

@@ -0,0 +1,111 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     375 GRAPHIC-VARIANTS
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "375" GRAPHIC-VARIANTS
+0xFD2C	0x066C	#  ٬ ARABIC THOUSANDS SEPARATOR
+0xFD40	0x03D2	#  ϒ GREEK UPSILON WITH HOOK SYMBOL
+0xFD50	0x1D01	#  ᴁ LATIN LETTER SMALL CAPITAL AE
+0xFD51	0x0276	#  ɶ LATIN LETTER SMALL CAPITAL OE
+0xFD5B	0x03F5	#  ϵ GREEK LUNATE EPSILON SYMBOL
+0xFD5C	0x03D6	#  ϖ GREEK PI SYMBOL
+0xFD5D	0x03D1	#  ϑ GREEK THETA SYMBOL
+0xFD5E	0x03F1	#  ϱ GREEK RHO SYMBOL
+0xFD5F	0x03C6	#  φ GREEK SMALL LETTER PHI
+0xFD60	0x03F0	#  ϰ GREEK KAPPA SYMBOL
+0xFD61	0x1D00	#  ᴀ LATIN LETTER SMALL CAPITAL A
+0xFD62	0x0299	#  ʙ LATIN LETTER SMALL CAPITAL B
+0xFD63	0x1D04	#  ᴄ LATIN LETTER SMALL CAPITAL C
+0xFD64	0x1D05	#  ᴅ LATIN LETTER SMALL CAPITAL D
+0xFD65	0x1D07	#  ᴇ LATIN LETTER SMALL CAPITAL E
+0xFD66	0xA730	#  ꜰ LATIN LETTER SMALL CAPITAL F
+0xFD67	0x0262	#  ɢ LATIN LETTER SMALL CAPITAL G
+0xFD68	0x029C	#  ʜ LATIN LETTER SMALL CAPITAL H
+0xFD69	0x026A	#  ɪ LATIN LETTER SMALL CAPITAL I
+0xFD6A	0x1D0A	#  ᴊ LATIN LETTER SMALL CAPITAL J
+0xFD6B	0x1D0B	#  ᴋ LATIN LETTER SMALL CAPITAL K
+0xFD6C	0x029F	#  ʟ LATIN LETTER SMALL CAPITAL L
+0xFD6D	0x1D0D	#  ᴍ LATIN LETTER SMALL CAPITAL M
+0xFD6E	0x0274	#  ɴ LATIN LETTER SMALL CAPITAL N
+0xFD6F	0x1D0F	#  ᴏ LATIN LETTER SMALL CAPITAL O
+0xFD70	0x1D18	#  ᴘ LATIN LETTER SMALL CAPITAL P
+0xFD71	0xA7AF	#  ꞯ LATIN LETTER SMALL CAPITAL Q
+0xFD72	0x0280	#  ʀ LATIN LETTER SMALL CAPITAL R
+0xFD73	0xA731	#  ꜱ LATIN LETTER SMALL CAPITAL S
+0xFD74	0x1D1B	#  ᴛ LATIN LETTER SMALL CAPITAL T
+0xFD75	0x1D1C	#  ᴜ LATIN LETTER SMALL CAPITAL U
+0xFD76	0x1D20	#  ᴠ LATIN LETTER SMALL CAPITAL V
+0xFD77	0x1D21	#  ᴡ LATIN LETTER SMALL CAPITAL W
+0xFD78	0x0078	#  x LATIN SMALL LETTER X
+0xFD79	0x028F	#  ʏ LATIN LETTER SMALL CAPITAL Y
+0xFD7A	0x1D22	#  ᴢ LATIN LETTER SMALL CAPITAL Z
+0xFD7B	0x019B	#  ƛ LATIN SMALL LETTER LAMBDA WITH STROKE
+0xFD7D	0x03B1	#  α GREEK SMALL LETTER ALPHA
+0xFDA8	0x207F	#  ⁿ SUPERSCRIPT LATIN SMALL LETTER N
+0xFDAE	0x207C	#  ⁼ SUPERSCRIPT EQUALS SIGN
+0xFDB0	0x2070	#  ⁰ SUPERSCRIPT ZERO
+0xFDB1	0x00B9	#  ¹ SUPERSCRIPT ONE
+0xFDB2	0x00B2	#  ² SUPERSCRIPT TWO
+0xFDB3	0x00B3	#  ³ SUPERSCRIPT THREE
+0xFDB4	0x2074	#  ⁴ SUPERSCRIPT FOUR
+0xFDB5	0x2075	#  ⁵ SUPERSCRIPT FIVE
+0xFDB6	0x2076	#  ⁶ SUPERSCRIPT SIX
+0xFDB7	0x2077	#  ⁷ SUPERSCRIPT SEVEN
+0xFDB8	0x2078	#  ⁸ SUPERSCRIPT EIGHT
+0xFDB9	0x2079	#  ⁹ SUPERSCRIPT NINE
+0xFDBE	0x207A	#  ⁺ SUPERSCRIPT PLUS SIGN
+0xFDBF	0x207B	#  ⁻ SUPERSCRIPT MINUS
+0xFDE0	0x2080	#  ₀ SUBSCRIPT ZERO
+0xFDE1	0x2081	#  ₁ SUBSCRIPT ONE
+0xFDE2	0x2082	#  ₂ SUBSCRIPT TWO
+0xFDE3	0x2083	#  ₃ SUBSCRIPT THREE
+0xFDE4	0x2084	#  ₄ SUBSCRIPT FOUR
+0xFDE5	0x2085	#  ₅ SUBSCRIPT FIVE
+0xFDE6	0x2086	#  ₆ SUBSCRIPT SIX
+0xFDE7	0x2087	#  ₇ SUBSCRIPT SEVEN
+0xFDE8	0x2088	#  ₈ SUBSCRIPT EIGHT
+0xFDE9	0x2089	#  ₉ SUBSCRIPT NINE
+0xFDEA	0x208B	#  ₋ SUBSCRIPT MINUS
+0xFDEB	0x208A	#  ₊ SUBSCRIPT PLUS SIGN
+0xFDEC	0x208C	#  ₌ SUBSCRIPT EQUALS SIGN
+0xFDF0	0x0030 0x0338	#  0̸ DIGIT ZERO; COMBINING LONG SOLIDUS OVERLAY

unicode/xerox/XCCS-41=JAPANESE-SYMBOLS1.TXT

@@ -0,0 +1,195 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     41 SYMBOLS1
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "41" SYMBOLS1
+0x2121	0x3000	#  　 IDEOGRAPHIC SPACE
+0x2122	0x3001	#  、 IDEOGRAPHIC COMMA
+0x2123	0x3002	#  。 IDEOGRAPHIC FULL STOP
+0x2124	0xFF0C	#  ， FULLWIDTH COMMA
+0x2125	0xFF0E	#  ． FULLWIDTH FULL STOP
+0x212B	0x3099	#  ゙ COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK
+0x212C	0x309A	#  ゚ COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK
+0x2133	0x30FD	#  ヽ KATAKANA ITERATION MARK
+0x2134	0x30FE	#  ヾ KATAKANA VOICED ITERATION MARK
+0x2135	0x309D	#  ゝ HIRAGANA ITERATION MARK
+0x2136	0x309E	#  ゞ HIRAGANA VOICED ITERATION MARK
+0x2137	0x3003	#  〃 DITTO MARK
+0x2138	0x4EDD	#  仝 UNKNOWN
+0x2139	0x3005	#  々 IDEOGRAPHIC ITERATION MARK
+0x213A	0x3006	#  〆 IDEOGRAPHIC CLOSING MARK
+0x213B	0xA9D0	#  ꧐ JAVANESE DIGIT ZERO
+0x213C	0x30FC	#  ー KATAKANA-HIRAGANA PROLONGED SOUND MARK
+0x213E	0x2010	#  ‐ HYPHEN
+0x2140	0x22D6	#  ⋖ LESS-THAN WITH DOT
+0x2141	0x22D7	#  ⋗ GREATER-THAN WITH DOT
+0x2142	0x2225	#  ∥ PARALLEL TO
+0x2143	0x22A9	#  ⊩ FORCES
+0x2144	0x2026	#  … HORIZONTAL ELLIPSIS
+0x2145	0x2025	#  ‥ TWO DOT LEADER
+0x2146	0x22D8	#  ⋘ VERY MUCH LESS-THAN
+0x2147	0x22D9	#  ⋙ VERY MUCH GREATER-THAN
+0x2148	0x27EC	#  ⟬ MATHEMATICAL LEFT WHITE TORTOISE SHELL BRACKET
+0x2149	0x27ED	#  ⟭ MATHEMATICAL RIGHT WHITE TORTOISE SHELL BRACKET
+0x214A	0x27E6	#  ⟦ MATHEMATICAL LEFT WHITE SQUARE BRACKET
+0x214B	0x27E7	#  ⟧ MATHEMATICAL RIGHT WHITE SQUARE BRACKET
+0x214C	0x3014	#  〔 LEFT TORTOISE SHELL BRACKET
+0x214D	0x3015	#  〕 RIGHT TORTOISE SHELL BRACKET
+0x214E	0x22DA	#  ⋚ LESS-THAN EQUAL TO OR GREATER-THAN
+0x214F	0x22DB	#  ⋛ GREATER-THAN EQUAL TO OR LESS-THAN
+0x2150	0x227A	#  ≺ PRECEDES
+0x2151	0x227B	#  ≻ SUCCEEDS
+0x2152	0x227C	#  ≼ PRECEDES OR EQUAL TO
+0x2153	0x227D	#  ≽ SUCCEEDS OR EQUAL TO
+0x2154	0x22DE	#  ⋞ EQUAL TO OR PRECEDES
+0x2155	0x22DF	#  ⋟ EQUAL TO OR SUCCEEDS
+0x2156	0x300C	#  「 LEFT CORNER BRACKET
+0x2157	0x300D	#  」 RIGHT CORNER BRACKET
+0x2158	0x300E	#  『 LEFT WHITE CORNER BRACKET
+0x2159	0x300F	#  』 RIGHT WHITE CORNER BRACKET
+0x215A	0x3010	#  【 LEFT BLACK LENTICULAR BRACKET
+0x215B	0x3011	#  】 RIGHT BLACK LENTICULAR BRACKET
+0x215C	0x2AC5	#  ⫅ SUBSET OF ABOVE EQUALS SIGN
+0x215D	0x2AC6	#  ⫆ SUPERSET OF ABOVE EQUALS SIGN
+0x215E	0x22D0	#  ⋐ DOUBLE SUBSET
+0x215F	0x22D1	#  ⋑ DOUBLE SUPERSET
+0x2160	0x2A95	#  ⪕ SLANTED EQUAL TO OR LESS-THAN
+0x2161	0x2A96	#  ⪖ SLANTED EQUAL TO OR GREATER-THAN
+0x2162	0x2260	#  ≠ NOT EQUAL TO
+0x2163	0x2A85	#  ⪅ LESS-THAN OR APPROXIMATE
+0x2164	0x2A86	#  ⪆ GREATER-THAN OR APPROXIMATE
+0x2165	0x2264	#  ≤ LESS-THAN OR EQUAL TO
+0x2166	0x2265	#  ≥ GREATER-THAN OR EQUAL TO
+0x2167	0x221E	#  ∞ INFINITY
+0x2168	0x2234	#  ∴ THEREFORE
+0x2169	0x2642	#  ♂ MALE SIGN
+0x216A	0x2640	#  ♀ FEMALE SIGN
+0x216B	0x2034	#  ‴ TRIPLE PRIME
+0x216C	0x2032	#  ′ PRIME
+0x216D	0x2033	#  ″ DOUBLE PRIME
+0x216E	0x2103	#  ℃ DEGREE CELSIUS
+0x216F	0x22AA	#  ⊪ TRIPLE VERTICAL BAR RIGHT TURNSTILE
+0x2170	0x2266	#  ≦ LESS-THAN OVER EQUAL TO
+0x2171	0x2267	#  ≧ GREATER-THAN OVER EQUAL TO
+0x2172	0x2A7D	#  ⩽ LESS-THAN OR SLANTED EQUAL TO
+0x2173	0x2A7E	#  ⩾ GREATER-THAN OR SLANTED EQUAL TO
+0x2174	0x22DA	#  ⋚ LESS-THAN EQUAL TO OR GREATER-THAN
+0x2175	0x22DB	#  ⋛ GREATER-THAN EQUAL TO OR LESS-THAN
+0x2176	0x2225	#  ∥ PARALLEL TO
+0x2177	0x229D	#  ⊝ CIRCLED DASH
+0x2178	0x229B	#  ⊛ CIRCLED ASTERISK OPERATOR
+0x2179	0x2606	#  ☆ WHITE STAR
+0x217A	0x2605	#  ★ BLACK STAR
+0x217B	0x25CB	#  ○ WHITE CIRCLE
+0x217C	0x25CF	#  ● BLACK CIRCLE
+0x217D	0x25CE	#  ◎ BULLSEYE
+0x217E	0x25C7	#  ◇ WHITE DIAMOND
+0x21A1	0x227E	#  ≾ PRECEDES OR EQUIVALENT TO
+0x21A2	0x227F	#  ≿ SUCCEEDS OR EQUIVALENT TO
+0x21A3	0x2AB7	#  ⪷ PRECEDES ABOVE ALMOST EQUAL TO
+0x21A4	0x2AB8	#  ⪸ SUCCEEDS ABOVE ALMOST EQUAL TO
+0x21A5	0x2323	#  ⌣ SMILE
+0x21A6	0x2322	#  ⌢ FROWN
+0x21A7	0x007C	#  | VERTICAL LINE
+0x21A8	0x2251	#  ≑ GEOMETRICALLY EQUAL TO
+0x21A9	0x2257	#  ≗ RING EQUAL TO
+0x21AA	0x2256	#  ≖ RING IN EQUAL TO
+0x21AB	0x225C	#  ≜ DELTA EQUAL TO
+0x21AC	0x22D4	#  ⋔ PITCHFORK
+0x21AD	0x2210	#  ∐ N-ARY COPRODUCT
+0x21AE	0x2720	#  ✠ MALTESE CROSS
+0x21AF	0x25C7	#  ◇ WHITE DIAMOND
+0x21B0	0x2241	#  ≁ NOT TILDE
+0x21B1	0x22E8	#  ⋨ PRECEDES BUT NOT EQUIVALENT TO
+0x21B2	0x22E9	#  ⋩ SUCCEEDS BUT NOT EQUIVALENT TO
+0x21B3	0x2AB9	#  ⪹ PRECEDES ABOVE NOT ALMOST EQUAL TO
+0x21B4	0x2ABA	#  ⪺ SUCCEEDS ABOVE NOT ALMOST EQUAL TO
+0x21B5	0x2224	#  ∤ DOES NOT DIVIDE
+0x21B6	0x2226	#  ∦ NOT PARALLEL TO
+0x21B7	0x22AC	#  ⊬ DOES NOT PROVE
+0x21B8	0x22AD	#  ⊭ NOT TRUE
+0x21B9	0x22AE	#  ⊮ DOES NOT FORCE
+0x21BA	0x22AF	#  ⊯ NEGATED DOUBLE VERTICAL BAR DOUBLE RIGHT TURNSTILE
+0x21BB	0x22EA	#  ⋪ NOT NORMAL SUBGROUP OF
+0x21BC	0x22EB	#  ⋫ DOES NOT CONTAIN AS NORMAL SUBGROUP
+0x21BD	0x22EC	#  ⋬ NOT NORMAL SUBGROUP OF OR EQUAL TO
+0x21BE	0x22ED	#  ⋭ DOES NOT CONTAIN AS NORMAL SUBGROUP OR EQUAL
+0x21BF	0x2244	#  ≄ NOT ASYMPTOTICALLY EQUAL TO
+0x21C0	0x2249	#  ≉ NOT ALMOST EQUAL TO
+0x21C1	0x2ACB	#  ⫋ SUBSET OF ABOVE NOT EQUAL TO
+0x21C2	0x2ACC	#  ⫌ SUPERSET OF ABOVE NOT EQUAL TO
+0x21C3	0x2288	#  ⊈ NEITHER A SUBSET OF NOR EQUAL TO
+0x21C4	0x2289	#  ⊉ NEITHER A SUPERSET OF NOR EQUAL TO
+0x21C5	0x228A	#  ⊊ SUBSET OF WITH NOT EQUAL TO
+0x21C6	0x228B	#  ⊋ SUPERSET OF WITH NOT EQUAL TO
+0x21C7	0x2ACB	#  ⫋ SUBSET OF ABOVE NOT EQUAL TO
+0x21C8	0x2ACC	#  ⫌ SUPERSET OF ABOVE NOT EQUAL TO
+0x21C9	0x226E	#  ≮ NOT LESS-THAN
+0x21CA	0x226F	#  ≯ NOT GREATER-THAN
+0x21CB	0x224C	#  ≌ ALL EQUAL TO
+0x21CC	0x2247	#  ≇ NEITHER APPROXIMATELY NOR ACTUALLY EQUAL TO
+0x21D0	0x2280	#  ⊀ DOES NOT PRECEDE
+0x21D1	0x2281	#  ⊁ DOES NOT SUCCEED
+0x21D2	0x22E0	#  ⋠ DOES NOT PRECEDE OR EQUAL
+0x21D3	0x22E1	#  ⋡ DOES NOT SUCCEED OR EQUAL
+0x21D4	0x2AB5	#  ⪵ PRECEDES ABOVE NOT EQUAL TO
+0x21D5	0x2AB6	#  ⪶ SUCCEEDS ABOVE NOT EQUAL TO
+0x21D6	0x22E0	#  ⋠ DOES NOT PRECEDE OR EQUAL
+0x21D9	0x2274	#  ≴ NEITHER LESS-THAN NOR EQUIVALENT TO
+0x21DA	0x2275	#  ≵ NEITHER GREATER-THAN NOR EQUIVALENT TO
+0x21E0	0x2270	#  ≰ NEITHER LESS-THAN NOR EQUAL TO
+0x21E1	0x2271	#  ≱ NEITHER GREATER-THAN NOR EQUAL TO
+0x21E2	0x2A87	#  ⪇ LESS-THAN AND SINGLE-LINE NOT EQUAL TO
+0x21E3	0x2A88	#  ⪈ GREATER-THAN AND SINGLE-LINE NOT EQUAL TO
+0x21E4	0x22E6	#  ⋦ LESS-THAN BUT NOT EQUIVALENT TO
+0x21E5	0x22E7	#  ⋧ GREATER-THAN BUT NOT EQUIVALENT TO
+0x21E6	0x2270	#  ≰ NEITHER LESS-THAN NOR EQUAL TO
+0x21E7	0x2271	#  ≱ NEITHER GREATER-THAN NOR EQUAL TO
+0x21EE	0x22E2	#  ⋢ NOT SQUARE IMAGE OF OR EQUAL TO
+0x21EF	0x22E3	#  ⋣ NOT SQUARE ORIGINAL OF OR EQUAL TO
+0x21F0	0x2270	#  ≰ NEITHER LESS-THAN NOR EQUAL TO
+0x21F1	0x2271	#  ≱ NEITHER GREATER-THAN NOR EQUAL TO
+0x21F2	0x2268	#  ≨ LESS-THAN BUT NOT EQUAL TO
+0x21F3	0x2269	#  ≩ GREATER-THAN BUT NOT EQUAL TO
+0x21F4	0x2268	#  ≨ LESS-THAN BUT NOT EQUAL TO
+0x21F5	0x2269	#  ≩ GREATER-THAN BUT NOT EQUAL TO

unicode/xerox/XCCS-41=SYMBOLS1.TXT

@@ -1,199 +0,0 @@
-#  
-#          Name:             XCCS (XC-3-1-1-0) to Unicode
-#          Unicode version:  3.0
-#          XCCS charset:     41 SYMBOLS1
-#          Table version:    0.1
-#          Table format:     Format A
-#          Date:             4-Aug-2020
-#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
-#  This file contains mappings from the Xerox Character Code Standard (version
-#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
-#  XCCS corresponding to the fonts in the Medley system.
-#  
-#  The format of this file conforms to the format of the other Unicode-supplied
-#  mapping files:
-#     Three white-space (tab or spaces) separated columns:
-#       Column 1 is the XCCS code (as hex 0xXXXX)
-#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
-#       Column 3 (after #) is a comment column. For convenience, it contains the
-#          Unicode character itself (since the Unicode character names
-#          are not available)
-#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
-#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
-#  (Column 3 = MISSING)
-#  
-#  This file is encoded in UTF8, so that the Unicode characters
-#  are properly displayed in Column 3 and can be edited by standard
-#  Unicode-enabled editors (e.g. Mac Textedit).
-#  
-#  This file can also be read by the function
-#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
-#  The entries are in XCCS order and grouped by character sets.  In front of
-#  the mappings, for convenience, there is a line with the octal XCCS
-#  character set, after #.
-#  
-#  Note that a given XCCS code might map to codes in several different Unicode
-#  positions, since there are repetitions in the Unicode standard.
-#  
-#  For more details, see the associated README.TXT file.
-#  
-#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
-
-
-#  "41" SYMBOLS1
-0x2121	0x3000	#  　
-0x2122	0x3001	#  、
-0x2123	0x3002	#  。
-0x2124	0xFF0C	#  ，
-0x2125	0xFF0E	#  ．
-0x2126	0xFFFF	#  UNDEFINED
-0x2127	0xFFFF	#  UNDEFINED
-0x2128	0xFFFF	#  UNDEFINED
-0x2129	0xFFFF	#  UNDEFINED
-0x212A	0xFFFF	#  UNDEFINED
-0x212B	0x309B	#  ゛
-0x212C	0x309C	#  ゜
-0x212D	0xFFFF	#  UNDEFINED
-0x212E	0xFFFF	#  UNDEFINED
-0x212F	0xFFFF	#  UNDEFINED
-0x2130	0xFFFF	#  UNDEFINED
-0x2131	0xFFFF	#  UNDEFINED
-0x2132	0xFFFF	#  UNDEFINED
-0x2133	0x30FD	#  ヽ
-0x2134	0x30FE	#  ヾ
-0x2135	0x309D	#  ゝ
-0x2136	0x309E	#  ゞ
-0x2137	0x3003	#  〃
-0x2138	0x4EDD	#  仝
-0x2139	0x3005	#  々
-0x213A	0x3006	#  〆
-0x213B	0x3007	#  〇
-0x213C	0x30FC	#  ー
-0x213D	0xFFFF	#  UNDEFINED
-0x213F	0xFFFF	#  UNDEFINED
-0x213E	0x2010	#  ‐
-0x2140	0x22D6	#  ⋖
-0x2141	0x22D7	#  ⋗
-0x2142	0x2016	#  ‖
-0x2143	0x22A9	#  ⊩
-0x2144	0x2026	#  …
-0x2145	0x2025	#  ‥
-0x2146	0x22D8	#  ⋘
-0x2147	0x22D9	#  ⋙
-0x2148	0x3018	#  〘
-0x2149	0x3019	#  〙
-0x214A	0x301A	#  〚
-0x214B	0x301B	#  〛
-0x214C	0x3014	#  〔
-0x214D	0x3015	#  〕
-0x214E	0x22DA	#  ⋚
-0x214F	0x22DB	#  ⋛
-0x2150	0x227A	#  ≺
-0x2151	0x227B	#  ≻
-0x2152	0x227C	#  ≼
-0x2153	0x227D	#  ≽
-0x2154	0x22DE	#  ⋞
-0x2155	0x22DF	#  ⋟
-0x2156	0x300C	#  「
-0x2157	0x300D	#  」
-0x2158	0x300E	#  『
-0x2159	0x300F	#  』
-0x215A	0x3010	#  【
-0x215B	0x3011	#  】
-0x215C	0x2286	#  ⊆
-0x215D	0x2287	#  ⊇
-0x215E	0x22D0	#  ⋐
-0x215F	0x22D1	#  ⋑
-0x2160	0x22DC	#  ⋜
-0x2161	0x22DD	#  ⋝
-0x2162	0x2260	#  ≠
-0x2163	0x2272	#  ≲
-0x2164	0x2273	#  ≳
-0x2165	0x2264	#  ≤
-0x2166	0x2265	#  ≥
-0x2167	0x221E	#  ∞
-0x2168	0x2234	#  ∴
-0x2169	0x2642	#  ♂
-0x216A	0x2640	#  ♀
-0x216B	0xFFFF	#  UNDEFINED
-0x216C	0x2032	#  ′
-0x216D	0x2033	#  ″
-0x216E	0x2103	#  ℃
-0x216F	0x22AA	#  ⊪
-0x2170	0x2266	#  ≦
-0x2171	0x2267	#  ≧
-0x2172	0x2264	#  ≤
-0x2173	0x2265	#  ≥
-0x2174	0x22DA	#  ⋚
-0x2175	0x22DB	#  ⋛
-0x2176	0x2225	#  ∥
-0x2177	0x229D	#  ⊝
-0x2178	0x229B	#  ⊛
-0x2179	0x2606	#  ☆
-0x217A	0x2605	#  ★
-0x217B	0x25CB	#  ○
-0x217C	0x25CF	#  ●
-0x217D	0x25CE	#  ◎
-0x217E	0x25C7	#  ◇
-0x21A1	0x227E	#  ≾
-0x21A2	0x227F	#  ≿
-0x21A3	0x227E	#  ≾
-0x21A4	0x227F	#  ≿
-0x21A5	0x2323	#  ⌣
-0x21A6	0x2322	#  ⌢
-0x21A7	0x007C	#  |
-0x21A8	0x2251	#  ≑
-0x21A9	0x2257	#  ≗
-0x21AA	0x2256	#  ≖
-0x21AB	0x225C	#  ≜
-0x21AC	0x22D4	#  ⋔
-0x21AD	0x2210	#  ∐
-0x21AE	0x2720	#  ✠
-0x21AF	0xFFFF	#  UNDEFINED
-0x21B0	0x2241	#  ≁
-0x21B1	0x22E8	#  ⋨
-0x21B2	0x22E9	#  ⋩
-0x21B3	0x22E8	#  ⋨
-0x21B4	0x22E9	#  ⋩
-0x21B5	0x2224	#  ∤
-0x21B6	0x2226	#  ∦
-0x21B7	0x22AC	#  ⊬
-0x21B8	0x22AD	#  ⊭
-0x21B9	0x22AE	#  ⊮
-0x21BA	0x22AF	#  ⊯
-0x21BB	0x22EA	#  ⋪
-0x21BC	0x22EB	#  ⋫
-0x21BD	0x22EC	#  ⋬
-0x21BE	0x22ED	#  ⋭
-0x21BF	0xFFFF	#  UNDEFINED
-0x21C0	0x2249	#  ≉
-0x21C1	0x228A	#  ⊊
-0x21C2	0x228B	#  ⊋
-0x21C3	0x2288	#  ⊈
-0x21C4	0x2289	#  ⊉
-0x21C5	0x228A	#  ⊊
-0x21C6	0x228B	#  ⊋
-0x21C7	0x228A	#  ⊊
-0x21C8	0x228B	#  ⊋
-0x21D0	0x2280	#  ⊀
-0x21D1	0x2281	#  ⊁
-0x21D2	0x22E0	#  ⋠
-0x21D3	0x22E1	#  ⋡
-0x21D4	0x22E8	#  ⋨
-0x21D5	0x22E9	#  ⋩
-0x21E0	0x2270	#  ≰
-0x21E1	0x2271	#  ≱
-0x21E2	0x2268	#  ≨
-0x21E3	0x2269	#  ≩
-0x21E4	0x22E6	#  ⋦
-0x21E5	0x22E7	#  ⋧
-0x21F0	0x2270	#  ≰
-0x21F1	0x2271	#  ≱
-0x21F2	0x2268	#  ≨
-0x21F3	0x2269	#  ≩
-0x21F4	0x2268	#  ≨
-0x21F5	0x2269	#  ≩
-0x21F6	0x22E6	#  ⋦
-0x21F7	0x22E7	#  ⋧

unicode/xerox/XCCS-42=JAPANESE-SYMBOLS2.TXT

@@ -0,0 +1,205 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     42 SYMBOLS2
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "42" SYMBOLS2
+0x2221	0x25C6	#  ◆ BLACK DIAMOND
+0x2222	0x25A1	#  □ WHITE SQUARE
+0x2223	0x25A0	#  ■ BLACK SQUARE
+0x2224	0x25B3	#  △ WHITE UP-POINTING TRIANGLE
+0x2225	0x25B2	#  ▲ BLACK UP-POINTING TRIANGLE
+0x2226	0x25BD	#  ▽ WHITE DOWN-POINTING TRIANGLE
+0x2227	0x25BC	#  ▼ BLACK DOWN-POINTING TRIANGLE
+0x2228	0x203B	#  ※ REFERENCE MARK
+0x2229	0x3012	#  〒 POSTAL MARK
+0x222A	0x2018	#  ‘ LEFT SINGLE QUOTATION MARK
+0x222B	0x2032	#  ′ PRIME
+0x222C	0x2033	#  ″ DOUBLE PRIME
+0x222E	0x3013	#  〓 GETA MARK
+0x222F	0x229E	#  ⊞ SQUARED PLUS
+0x2230	0x229F	#  ⊟ SQUARED MINUS
+0x2231	0x22A0	#  ⊠ SQUARED TIMES
+0x2232	0x22A1	#  ⊡ SQUARED DOT OPERATOR
+0x2234	0x226D	#  ≭ NOT EQUIVALENT TO
+0x2238	0x300A	#  《 LEFT DOUBLE ANGLE BRACKET
+0x2239	0x300B	#  》 RIGHT DOUBLE ANGLE BRACKET
+0x223C	0x2042	#  ⁂ ASTERISM
+0x223D	0x2125	#  ℥ OUNCE SIGN
+0x223E	0x2031	#  ‱ PER TEN THOUSAND SIGN
+0x2240	0x21C7	#  ⇇ LEFTWARDS PAIRED ARROWS
+0x2241	0x21C9	#  ⇉ RIGHTWARDS PAIRED ARROWS
+0x2242	0x21C8	#  ⇈ UPWARDS PAIRED ARROWS
+0x2243	0x21CA	#  ⇊ DOWNWARDS PAIRED ARROWS
+0x2244	0x21DA	#  ⇚ LEFTWARDS TRIPLE ARROW
+0x2245	0x21DB	#  ⇛ RIGHTWARDS TRIPLE ARROW
+0x2246	0x219E	#  ↞ LEFTWARDS TWO HEADED ARROW
+0x2247	0x21A0	#  ↠ RIGHTWARDS TWO HEADED ARROW
+0x2248	0x21BF	#  ↿ UPWARDS HARPOON WITH BARB LEFTWARDS
+0x2249	0x21C3	#  ⇃ DOWNWARDS HARPOON WITH BARB LEFTWARDS
+0x224A	0x21BE	#  ↾ UPWARDS HARPOON WITH BARB RIGHTWARDS
+0x224B	0x21C2	#  ⇂ DOWNWARDS HARPOON WITH BARB RIGHTWARDS
+0x224C	0x21A2	#  ↢ LEFTWARDS ARROW WITH TAIL
+0x224D	0x21A3	#  ↣ RIGHTWARDS ARROW WITH TAIL
+0x224E	0x21AB	#  ↫ LEFTWARDS ARROW WITH LOOP
+0x224F	0x21AC	#  ↬ RIGHTWARDS ARROW WITH LOOP
+0x2250	0x21B0	#  ↰ UPWARDS ARROW WITH TIP LEFTWARDS
+0x2251	0x21B1	#  ↱ UPWARDS ARROW WITH TIP RIGHTWARDS
+0x2252	0x21AD	#  ↭ LEFT RIGHT WAVE ARROW
+0x2253	0x22B8	#  ⊸ MULTIMAP
+0x2254	0x2254	#  ≔ COLON EQUALS
+0x2255	0x2255	#  ≕ EQUALS COLON
+0x2256	0x21BC	#  ↼ LEFTWARDS HARPOON WITH BARB UPWARDS
+0x2257	0x21BD	#  ↽ LEFTWARDS HARPOON WITH BARB DOWNWARDS
+0x2258	0x21C0	#  ⇀ RIGHTWARDS HARPOON WITH BARB UPWARDS
+0x2259	0x21C1	#  ⇁ RIGHTWARDS HARPOON WITH BARB DOWNWARDS
+0x225A	0x21AA	#  ↪ RIGHTWARDS ARROW WITH HOOK
+0x225B	0x21A9	#  ↩ LEFTWARDS ARROW WITH HOOK
+0x225C	0x27F5	#  ⟵ LONG LEFTWARDS ARROW
+0x225D	0x27F6	#  ⟶ LONG RIGHTWARDS ARROW
+0x225E	0x27F8	#  ⟸ LONG LEFTWARDS DOUBLE ARROW
+0x225F	0x27F9	#  ⟹ LONG RIGHTWARDS DOUBLE ARROW
+0x2260	0x21D1	#  ⇑ UPWARDS DOUBLE ARROW
+0x2261	0x21D3	#  ⇓ DOWNWARDS DOUBLE ARROW
+0x2262	0x2252	#  ≒ APPROXIMATELY EQUAL TO OR THE IMAGE OF
+0x2263	0x2253	#  ≓ IMAGE OF OR APPROXIMATELY EQUAL TO
+0x2264	0x224D	#  ≍ EQUIVALENT TO
+0x2265	0x2AAF	#  ⪯ PRECEDES ABOVE SINGLE-LINE EQUALS SIGN
+0x2266	0x2AB0	#  ⪰ SUCCEEDS ABOVE SINGLE-LINE EQUALS SIGN
+0x2267	0x27F7	#  ⟷ LONG LEFT RIGHT ARROW
+0x2268	0x27FA	#  ⟺ LONG LEFT RIGHT DOUBLE ARROW
+0x2269	0x27FA	#  ⟺ LONG LEFT RIGHT DOUBLE ARROW
+0x226A	0x222C	#  ∬ DOUBLE INTEGRAL
+0x226B	0x21A6	#  ↦ RIGHTWARDS ARROW FROM BAR
+0x226C	0x22C8	#  ⋈ BOWTIE
+0x226D	0x2B51	#  ⭑ BLACK SMALL STAR
+0x226E	0x266E	#  ♮ MUSIC NATURAL SIGN
+0x226F	0x2323	#  ⌣ SMILE
+0x2270	0x25B5	#  ▵ WHITE UP-POINTING SMALL TRIANGLE
+0x2271	0x226A	#  ≪ MUCH LESS-THAN
+0x2272	0x226B	#  ≫ MUCH GREATER-THAN
+0x2273	0x2295	#  ⊕ CIRCLED PLUS
+0x2274	0x2296	#  ⊖ CIRCLED MINUS
+0x2275	0x2297	#  ⊗ CIRCLED TIMES
+0x2276	0x2298	#  ⊘ CIRCLED DIVISION SLASH
+0x2277	0x223C	#  ∼ TILDE OPERATOR
+0x2278	0x2248	#  ≈ ALMOST EQUAL TO
+0x2279	0x221D	#  ∝ PROPORTIONAL TO
+0x227B	0x25BF	#  ▿ WHITE DOWN-POINTING SMALL TRIANGLE
+0x227C	0x2127	#  ℧ INVERTED OHM SIGN
+0x227D	0x2240	#  ≀ WREATH PRODUCT
+0x227E	0x25EF	#  ◯ LARGE CIRCLE
+0x22A1	0x0026 0x0332	#  &̲ AMPERSAND; COMBINING LOW LINE
+0x22A2	0x2261	#  ≡ IDENTICAL TO
+0x22A3	0x2359	#  ⍙ APL FUNCTIONAL SYMBOL DELTA UNDERBAR
+0x22A4	0x2378	#  ⍸ APL FUNCTIONAL SYMBOL IOTA UNDERBAR
+0x22A5	0x2377	#  ⍷ APL FUNCTIONAL SYMBOL EPSILON UNDERBAR
+0x22A6	0x2118	#  ℘ SCRIPT CAPITAL P
+0x22A7	0x2205	#  ∅ EMPTY SET
+0x22A8	0x211C	#  ℜ BLACK-LETTER CAPITAL R
+0x22A9	0x2111	#  ℑ BLACK-LETTER CAPITAL I
+0x22AA	0x22A4	#  ⊤ DOWN TACK
+0x22AB	0x228E	#  ⊎ MULTISET UNION
+0x22AC	0x22A7	#  ⊧ MODELS
+0x22AD	0x2294	#  ⊔ SQUARE CUP
+0x22AE	0x2293	#  ⊓ SQUARE CAP
+0x22AF	0x228E	#  ⊎ MULTISET UNION
+0x22B0	0x2291	#  ⊑ SQUARE IMAGE OF OR EQUAL TO
+0x22B1	0x2292	#  ⊒ SQUARE ORIGINAL OF OR EQUAL TO
+0x22B2	0x2227	#  ∧ LOGICAL AND
+0x22B3	0x2228	#  ∨ LOGICAL OR
+0x22B4	0x25B4	#  ▴ BLACK UP-POINTING SMALL TRIANGLE
+0x22B5	0x25BE	#  ▾ BLACK DOWN-POINTING SMALL TRIANGLE
+0x22B6	0x2294	#  ⊔ SQUARE CUP
+0x22B7	0x2210	#  ∐ N-ARY COPRODUCT
+0x22B8	0x2222	#  ∢ SPHERICAL ANGLE
+0x22B9	0x220D	#  ∍ SMALL CONTAINS AS MEMBER
+0x22BA	0x22F7	#  ⋷ SMALL ELEMENT OF WITH OVERBAR
+0x22BB	0x25B9	#  ▹ WHITE RIGHT-POINTING SMALL TRIANGLE
+0x22BC	0x25C3	#  ◃ WHITE LEFT-POINTING SMALL TRIANGLE
+0x22BD	0x2299	#  ⊙ CIRCLED DOT OPERATOR
+0x22BE	0x223D	#  ∽ REVERSED TILDE
+0x22C0	0x005E	#  ^ CIRCUMFLEX ACCENT
+0x22C1	0x0041 0x0332	#  A̲ LATIN CAPITAL LETTER A; COMBINING LOW LINE
+0x22C2	0x0042 0x0332	#  B̲ LATIN CAPITAL LETTER B; COMBINING LOW LINE
+0x22C3	0x0043 0x0332	#  C̲ LATIN CAPITAL LETTER C; COMBINING LOW LINE
+0x22C4	0x0044 0x0332	#  D̲ LATIN CAPITAL LETTER D; COMBINING LOW LINE
+0x22C5	0x0045 0x0332	#  E̲ LATIN CAPITAL LETTER E; COMBINING LOW LINE
+0x22C6	0x0046 0x0332	#  F̲ LATIN CAPITAL LETTER F; COMBINING LOW LINE
+0x22C7	0x0047 0x0332	#  G̲ LATIN CAPITAL LETTER G; COMBINING LOW LINE
+0x22C8	0x0048 0x0332	#  H̲ LATIN CAPITAL LETTER H; COMBINING LOW LINE
+0x22C9	0x0049 0x0332	#  I̲ LATIN CAPITAL LETTER I; COMBINING LOW LINE
+0x22CA	0x004A 0x0332	#  J̲ LATIN CAPITAL LETTER J; COMBINING LOW LINE
+0x22CB	0x004B 0x0332	#  K̲ LATIN CAPITAL LETTER K; COMBINING LOW LINE
+0x22CC	0x004C 0x0332	#  L̲ LATIN CAPITAL LETTER L; COMBINING LOW LINE
+0x22CD	0x004D 0x0332	#  M̲ LATIN CAPITAL LETTER M; COMBINING LOW LINE
+0x22CE	0x004E 0x0332	#  N̲ LATIN CAPITAL LETTER N; COMBINING LOW LINE
+0x22CF	0x004F 0x0332	#  O̲ LATIN CAPITAL LETTER O; COMBINING LOW LINE
+0x22D0	0x0050 0x0332	#  P̲ LATIN CAPITAL LETTER P; COMBINING LOW LINE
+0x22D1	0x0051 0x0332	#  Q̲ LATIN CAPITAL LETTER Q; COMBINING LOW LINE
+0x22D2	0x0052 0x0332	#  R̲ LATIN CAPITAL LETTER R; COMBINING LOW LINE
+0x22D3	0x0053 0x0332	#  S̲ LATIN CAPITAL LETTER S; COMBINING LOW LINE
+0x22D4	0x0054 0x0332	#  T̲ LATIN CAPITAL LETTER T; COMBINING LOW LINE
+0x22D5	0x0055 0x0332	#  U̲ LATIN CAPITAL LETTER U; COMBINING LOW LINE
+0x22D6	0x0056 0x0332	#  V̲ LATIN CAPITAL LETTER V; COMBINING LOW LINE
+0x22D7	0x0057 0x0332	#  W̲ LATIN CAPITAL LETTER W; COMBINING LOW LINE
+0x22D8	0x0058 0x0332	#  X̲ LATIN CAPITAL LETTER X; COMBINING LOW LINE
+0x22D9	0x0059 0x0332	#  Y̲ LATIN CAPITAL LETTER Y; COMBINING LOW LINE
+0x22DA	0x005A 0x0332	#  Z̲ LATIN CAPITAL LETTER Z; COMBINING LOW LINE
+0x22DB	0x23A2	#  ⎢ LEFT SQUARE BRACKET EXTENSION
+0x22DC	0x23A5	#  ⎥ RIGHT SQUARE BRACKET EXTENSION
+0x22DF	0x25AF	#  ▯ WHITE VERTICAL RECTANGLE
+0x22E7	0x211A	#  ℚ DOUBLE-STRUCK CAPITAL Q
+0x22E8	0x210D	#  ℍ DOUBLE-STRUCK CAPITAL H
+#  0x22E9	0x1D546	#  XX MATHEMATICAL DOUBLE-STRUCK CAPITAL O   NOT A MEDLEY CHARCODE
+0x22EA	0x2295	#  ⊕ CIRCLED PLUS
+0x22EB	0x2297	#  ⊗ CIRCLED TIMES
+0x22EC	0x2299	#  ⊙ CIRCLED DOT OPERATOR
+0x22ED	0x20A4	#  ₤ LIRA SIGN
+0x22EE	0x21B2	#  ↲ DOWNWARDS ARROW WITH TIP LEFTWARDS
+0x22EF	0x21B3	#  ↳ DOWNWARDS ARROW WITH TIP RIGHTWARDS
+0x22F0	0x2219	#  ∙ BULLET OPERATOR
+0x22F1	0x231C	#  ⌜ TOP LEFT CORNER
+0x22F2	0x231D	#  ⌝ TOP RIGHT CORNER
+0x22F3	0x231E	#  ⌞ BOTTOM LEFT CORNER
+0x22F4	0x231F	#  ⌟ BOTTOM RIGHT CORNER
+0x22F5	0x229A	#  ⊚ CIRCLED RING OPERATOR

unicode/xerox/XCCS-42=SYMBOLS2.TXT

@@ -1,114 +0,0 @@
-#  
-#          Name:             XCCS (XC-3-1-1-0) to Unicode
-#          Unicode version:  3.0
-#          XCCS charset:     42 SYMBOLS2
-#          Table version:    0.1
-#          Table format:     Format A
-#          Date:             4-Aug-2020
-#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
-#  This file contains mappings from the Xerox Character Code Standard (version
-#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
-#  XCCS corresponding to the fonts in the Medley system.
-#  
-#  The format of this file conforms to the format of the other Unicode-supplied
-#  mapping files:
-#     Three white-space (tab or spaces) separated columns:
-#       Column 1 is the XCCS code (as hex 0xXXXX)
-#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
-#       Column 3 (after #) is a comment column. For convenience, it contains the
-#          Unicode character itself (since the Unicode character names
-#          are not available)
-#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
-#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
-#  (Column 3 = MISSING)
-#  
-#  This file is encoded in UTF8, so that the Unicode characters
-#  are properly displayed in Column 3 and can be edited by standard
-#  Unicode-enabled editors (e.g. Mac Textedit).
-#  
-#  This file can also be read by the function
-#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
-#  The entries are in XCCS order and grouped by character sets.  In front of
-#  the mappings, for convenience, there is a line with the octal XCCS
-#  character set, after #.
-#  
-#  Note that a given XCCS code might map to codes in several different Unicode
-#  positions, since there are repetitions in the Unicode standard.
-#  
-#  For more details, see the associated README.TXT file.
-#  
-#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
-
-
-#  "42" SYMBOLS2
-0x2221	0x25C6	#  ◆
-0x2222	0x25A1	#  □
-0x2223	0x25A0	#  ■
-0x2224	0x25B3	#  △
-0x2225	0x25B2	#  ▲
-0x2226	0x25BD	#  ▽
-0x2227	0x25BC	#  ▼
-0x2228	0x203B	#  ※
-0x2229	0x3012	#  〒
-0x222E	0x3013	#  〓
-0x222F	0x229E	#  ⊞
-0x2230	0x229F	#  ⊟
-0x2231	0x22A0	#  ⊠
-0x2232	0x22A1	#  ⊡
-0x2240	0x21C7	#  ⇇
-0x2241	0x21C9	#  ⇉
-0x2242	0x21C8	#  ⇈
-0x2243	0x21CA	#  ⇊
-0x2244	0x21DA	#  ⇚
-0x2245	0x21DB	#  ⇛
-0x2246	0x219E	#  ↞
-0x2247	0x21A0	#  ↠
-0x2248	0x21BF	#  ↿
-0x2249	0x21C3	#  ⇃
-0x224A	0x21BE	#  ↾
-0x224B	0x21C2	#  ⇂
-0x224C	0x21A2	#  ↢
-0x224D	0x21A3	#  ↣
-0x224E	0x21AB	#  ↫
-0x224F	0x21AC	#  ↬
-0x2250	0x21B0	#  ↰
-0x2251	0x21B1	#  ↱
-0x2252	0x21AD	#  ↭
-0x2253	0x22B8	#  ⊸
-0x2262	0x2252	#  ≒
-0x2263	0x2253	#  ≓
-0x226A	0x222C	#  ∬
-0x227E	0x25EF	#  ◯
-0x22A1	0x0026 0x0332	# &̲
-0x22A2	0x2261	#  ≡
-0x22A3	0x2359	#  ⍙
-0x22A4	0x2378	#  ⍸
-0x22A5	0x2377	#  ⍷
-0x22C1	0x0041 0x0332	# A̲  APL underlined A (combining _)
-0x22C2	0x0042 0x0332	# B̲
-0x22C3	0x0043 0x0332	# C̲
-0x22C4	0x0044 0x0332	# D̲
-0x22C5	0x0045 0x0332	# E̲
-0x22C6	0x0046 0x0332	# F̲
-0x22C7	0x0047 0x0332	# G̲
-0x22C8	0x0048 0x0332	# H̲
-0x22C9	0x0049 0x0332	# I̲
-0x22CA	0x004A 0x0332	# J̲
-0x22CB	0x004B 0x0332	# K̲
-0x22CC	0x004C 0x0332	# L̲
-0x22CD	0x004D 0x0332	# M̲
-0x22CE	0x004E 0x0332	# N̲
-0x22CF	0x004F 0x0332	# O̲
-0x22D0	0x0040 0x0332	# P̲
-0x22C1	0x0041 0x0332	# Q̲
-0x22D2	0x0042 0x0332	# R̲
-0x22D3	0x0043 0x0332	# S̲
-0x22D4	0x0044 0x0332	# T̲
-0x22D5	0x0045 0x0332	# U̲
-0x22D6	0x0046 0x0332	# V̲
-0x22D7	0x0047 0x0332	# W̲
-0x22D8	0x0048 0x0332	# X̲
-0x22D9	0x0049 0x0332	# Y̲
-0x22DA	0x004A 0x0332	# X̲

unicode/xerox/XCCS-43=EXTENDED-LATIN.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     43 EXTENDED-LATIN
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             4-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,90 +22,160 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "43" EXTENDED-LATIN
-0x2322	0x00A8	#  ¨
-0x2327	0x0027	#  '
-0x2328	0x02DA	#  ˚
-0x2329	0x02DD	#  ˝
-0x232A	0x02DB	#  ˛
-0x232B	0x02C7	#  ˇ
-0x232C	0x00B8	#  ¸
-0x2330	0x00B7	#  ·
-0x2331	0x0340	#  ̀
-0x2332	0x0341	#  ́
-0x2333	0x0302	#  ̂
-0x2334	0x0303	#  ̃
-0x2335	0x0304	#  ̄
-0x2336	0x0306	#  ̆
-0x2337	0x0307	#  ̇
-0x2338	0x0308	#  ̈
-0x233A	0x030A	#  ̊
-0x233B	0x0327	#  ̧
-0x233D	0x030B	#  ̋
-0x233E	0x0328	#  ̨
-0x2341	0x0181	#  Ɓ
-0x2342	0x018A	#  Ɗ
-0x2343	0x0198	#  Ƙ
-0x2344	0x01A0	#  Ơ
-0x2345	0x01AF	#  Ư
-0x2346	0x018F	#  Ə
-0x2347	0x01A2	#  Ƣ
-0x2348	0x01B5	#  Ƶ
-0x2360	0x0060	#  `
-0x2361	0x0253	#  ɓ
-0x2362	0x0257	#  ɗ
-0x2363	0x0199	#  ƙ
-0x2364	0x01A1	#  ơ
-0x2365	0x01B0	#  ư
-0x2366	0x01DD	#  ǝ
-0x2367	0x01A3	#  ƣ
-0x2368	0x01B6	#  ƶ
-0x237E	0x203E	#  ‾
-0x23AC	0x266D	#  ♭
-0x23AE	0x2117	#  ℗
-0x23B0	0x02BC	#  ʼ
-0x23B1	0x02BB	#  ʻ
-0x23B2	0x201A	#  ‚
-0x23BC	0x266F	#  ♯
-0x23BD	0x02B9	#  ʹ
-0x23BE	0x02BA	#  ʺ
-0x23C0	0x0309	#  ̉
-0x23C3	0x0305	#  ̅
-0x23C5	0x0300	#  ̀
-0x23C6	0x0301	#  ́
-0x23C9	0x0308	#  ̈
-0x23CB	0x0315	#  ̕
-0x23CC	0x0312	#  ̒
-0x23CE	0x031B	#  ̛
-0x23D1	0x0328	#  ̨
-0x23D2	0x0327	#  ̧
-0x23D4	0x0325	#  ̥
-0x23D5	0x032E	#  ̮
-0x23D6	0x0323	#  ̣
-0x23D7	0x0324	#  ̤
-0x23D9	0x0333	#  ̳
-0x23DA	0x0329	#  ̩
-0x23DB	0x032D	#  ̭
-0x23DD	0xFE20	#  ︠
-0x23DE	0xFE21	#  ︡
-0x23DF	0xFE23	#  ︣
+#   "43" EXTENDED-LATIN
+0x2322	0x00A8	#  ¨ DIAERESIS
+0x2323	0x00B4	#  ´ ACUTE ACCENT
+0x2324	0x00AF	#  ¯ MACRON
+0x2325	0x02D8	#  ˘ BREVE
+0x2326	0x02D9	#  ˙ DOT ABOVE
+0x2327	0x0027	#  ' APOSTROPHE
+0x2328	0x02DA	#  ˚ RING ABOVE
+0x2329	0x02DD	#  ˝ DOUBLE ACUTE ACCENT
+0x232A	0x02DB	#  ˛ OGONEK
+0x232B	0x02C7	#  ˇ CARON
+0x232C	0x00B8	#  ¸ CEDILLA
+0x2330	0x00B7	#  · MIDDLE DOT
+0x2331	0x0340	#  ̀ COMBINING GRAVE TONE MARK
+0x2332	0x0341	#  ́ COMBINING ACUTE TONE MARK
+0x2333	0x0302	#  ̂ COMBINING CIRCUMFLEX ACCENT
+0x2334	0x0303	#  ̃ COMBINING TILDE
+0x2335	0x0304	#  ̄ COMBINING MACRON
+0x2336	0x0306	#  ̆ COMBINING BREVE
+0x2337	0x0307	#  ̇ COMBINING DOT ABOVE
+0x2338	0x0308	#  ̈ COMBINING DIAERESIS
+0x233A	0x030A	#  ̊ COMBINING RING ABOVE
+0x233B	0x0327	#  ̧ COMBINING CEDILLA
+0x233D	0x030B	#  ̋ COMBINING DOUBLE ACUTE ACCENT
+0x233E	0x0328	#  ̨ COMBINING OGONEK
+0x233F	0x030C	#  ̌ COMBINING CARON
+0x2340	0x018E	#  Ǝ LATIN CAPITAL LETTER REVERSED E
+0x2341	0x0181	#  Ɓ LATIN CAPITAL LETTER B WITH HOOK
+0x2342	0x018A	#  Ɗ LATIN CAPITAL LETTER D WITH HOOK
+0x2343	0x0198	#  Ƙ LATIN CAPITAL LETTER K WITH HOOK
+0x2344	0x01A0	#  Ơ LATIN CAPITAL LETTER O WITH HORN
+0x2345	0x01AF	#  Ư LATIN CAPITAL LETTER U WITH HORN
+0x2346	0x018F	#  Ə LATIN CAPITAL LETTER SCHWA
+0x2347	0x01A2	#  Ƣ LATIN CAPITAL LETTER OI
+0x2348	0x01B5	#  Ƶ LATIN CAPITAL LETTER Z WITH STROKE
+0x234C	0x019F	#  Ɵ LATIN CAPITAL LETTER O WITH MIDDLE TILDE
+0x234E	0x0190	#  Ɛ LATIN CAPITAL LETTER OPEN E
+0x234F	0x0194	#  Ɣ LATIN CAPITAL LETTER GAMMA
+0x2350	0x0196	#  Ɩ LATIN CAPITAL LETTER IOTA
+0x2351	0x0186	#  Ɔ LATIN CAPITAL LETTER OPEN O
+0x2352	0x01A9	#  Ʃ LATIN CAPITAL LETTER ESH
+0x2353	0x01B2	#  Ʋ LATIN CAPITAL LETTER V WITH HOOK
+0x2354	0x01B7	#  Ʒ LATIN CAPITAL LETTER EZH
+0x2355	0x01B8	#  Ƹ LATIN CAPITAL LETTER EZH REVERSED
+0x2356	0x0187	#  Ƈ LATIN CAPITAL LETTER C WITH HOOK
+0x2357	0x0191	#  Ƒ LATIN CAPITAL LETTER F WITH HOOK
+0x2358	0x01A4	#  Ƥ LATIN CAPITAL LETTER P WITH HOOK
+0x2359	0x01AC	#  Ƭ LATIN CAPITAL LETTER T WITH HOOK
+0x235A	0x01B3	#  Ƴ LATIN CAPITAL LETTER Y WITH HOOK
+0x235D	0x019D	#  Ɲ LATIN CAPITAL LETTER N WITH LEFT HOOK
+0x2360	0x0060	#  ` GRAVE ACCENT
+0x2361	0x0253	#  ɓ LATIN SMALL LETTER B WITH HOOK
+0x2362	0x0257	#  ɗ LATIN SMALL LETTER D WITH HOOK
+0x2363	0x0199	#  ƙ LATIN SMALL LETTER K WITH HOOK
+0x2364	0x01A1	#  ơ LATIN SMALL LETTER O WITH HORN
+0x2365	0x01B0	#  ư LATIN SMALL LETTER U WITH HORN
+0x2366	0x01DD	#  ǝ LATIN SMALL LETTER TURNED E
+0x2367	0x01A3	#  ƣ LATIN SMALL LETTER OI
+0x2368	0x01B6	#  ƶ LATIN SMALL LETTER Z WITH STROKE
+0x2369	0x01BF	#  ƿ LATIN LETTER WYNN
+0x236A	0x019A	#  ƚ LATIN SMALL LETTER L WITH BAR
+0x236C	0x0275	#  ɵ LATIN SMALL LETTER BARRED O
+0x2375	0x01B9	#  ƹ LATIN SMALL LETTER EZH REVERSED
+0x2376	0x0188	#  ƈ LATIN SMALL LETTER C WITH HOOK
+0x2377	0x0192	#  ƒ LATIN SMALL LETTER F WITH HOOK
+0x2378	0x01A5	#  ƥ LATIN SMALL LETTER P WITH HOOK
+0x2379	0x01AD	#  ƭ LATIN SMALL LETTER T WITH HOOK
+0x237A	0x01B4	#  ƴ LATIN SMALL LETTER Y WITH HOOK
+0x237E	0x203E	#  ‾ OVERLINE
+0x23A1	0x02BF	#  ʿ MODIFIER LETTER LEFT HALF RING
+0x23A2	0x2018	#  ‘ LEFT SINGLE QUOTATION MARK
+0x23A4	0x01C2	#  ǂ LATIN LETTER ALVEOLAR CLICK
+0x23A5	0x01C3	#  ǃ LATIN LETTER RETROFLEX CLICK
+0x23A6	0x01C0	#  ǀ LATIN LETTER DENTAL CLICK
+0x23A7	0x01C1	#  ǁ LATIN LETTER LATERAL CLICK
+0x23A9	0x0180	#  ƀ LATIN SMALL LETTER B WITH STROKE
+0x23AA	0x0193	#  Ɠ LATIN CAPITAL LETTER G WITH HOOK
+0x23AB	0x0195	#  ƕ LATIN SMALL LETTER HV
+0x23AC	0x266D	#  ♭ MUSIC FLAT SIGN
+0x23AE	0x2117	#  ℗ SOUND RECORDING COPYRIGHT
+0x23AF	0x2125	#  ℥ OUNCE SIGN
+0x23B0	0x02BC	#  ʼ MODIFIER LETTER APOSTROPHE
+0x23B1	0x02BB	#  ʻ MODIFIER LETTER TURNED COMMA
+0x23B2	0x201A	#  ‚ SINGLE LOW-9 QUOTATION MARK
+0x23B3	0x0361	#  ͡ COMBINING DOUBLE INVERTED BREVE
+0x23B8	0x20D7	#  ⃗ COMBINING RIGHT ARROW ABOVE
+0x23B9	0x0338	#  ̸ COMBINING LONG SOLIDUS OVERLAY
+0x23BA	0x0302	#  ̂ COMBINING CIRCUMFLEX ACCENT
+0x23BB	0x0303	#  ̃ COMBINING TILDE
+0x23BC	0x266F	#  ♯ MUSIC SHARP SIGN
+0x23BD	0x02B9	#  ʹ MODIFIER LETTER PRIME
+0x23BE	0x02BA	#  ʺ MODIFIER LETTER DOUBLE PRIME
+0x23BF	0x0311	#  ̑ COMBINING INVERTED BREVE
+0x23C0	0x0309	#  ̉ COMBINING HOOK ABOVE
+0x23C1	0x0337	#  ̷ COMBINING SHORT SOLIDUS OVERLAY
+0x23C2	0x20E1	#  ⃡ COMBINING LEFT RIGHT ARROW ABOVE
+0x23C3	0x0305	#  ̅ COMBINING OVERLINE
+0x23C5	0x0300	#  ̀ COMBINING GRAVE ACCENT
+0x23C6	0x0301	#  ́ COMBINING ACUTE ACCENT
+0x23C8	0x20D6	#  ⃖ COMBINING LEFT ARROW ABOVE
+0x23C9	0x0308	#  ̈ COMBINING DIAERESIS
+0x23CA	0x030D	#  ̍ COMBINING VERTICAL LINE ABOVE
+0x23CB	0x0315	#  ̕ COMBINING COMMA ABOVE RIGHT
+0x23CC	0x0312	#  ̒ COMBINING TURNED COMMA ABOVE
+0x23CE	0x031B	#  ̛ COMBINING HORN
+0x23CF	0x0335	#  ̵ COMBINING SHORT STROKE OVERLAY
+0x23D0	0x030E	#  ̎ COMBINING DOUBLE VERTICAL LINE ABOVE
+0x23D1	0x0328	#  ̨ COMBINING OGONEK
+0x23D2	0x0327	#  ̧ COMBINING CEDILLA
+0x23D3	0x0326	#  ̦ COMBINING COMMA BELOW
+0x23D4	0x0325	#  ̥ COMBINING RING BELOW
+0x23D5	0x032E	#  ̮ COMBINING BREVE BELOW
+0x23D6	0x0323	#  ̣ COMBINING DOT BELOW
+0x23D7	0x0324	#  ̤ COMBINING DIAERESIS BELOW
+0x23D8	0x0330	#  ̰ COMBINING TILDE BELOW
+0x23D9	0x0333	#  ̳ COMBINING DOUBLE LOW LINE
+0x23DA	0x0329	#  ̩ COMBINING VERTICAL LINE BELOW
+0x23DB	0x032D	#  ̭ COMBINING CIRCUMFLEX ACCENT BELOW
+0x23DC	0x0331	#  ̱ COMBINING MACRON BELOW
+0x23DD	0xFE20	#  ︠ COMBINING LIGATURE LEFT HALF
+0x23DE	0xFE21	#  ︡ COMBINING LIGATURE RIGHT HALF
+0x23DF	0xFE23	#  ︣ COMBINING DOUBLE TILDE RIGHT HALF
+0x23E0	0x20D1	#  ⃑ COMBINING RIGHT HARPOON ABOVE
+0x23E2	0x030F	#  ̏ COMBINING DOUBLE GRAVE ACCENT
+0x23F0	0x033F	#  ̿ COMBINING DOUBLE OVERLINE
+0x23F1	0x0310	#  ̐ COMBINING CANDRABINDU
+0x23F4	0x0314	#  ̔ COMBINING REVERSED COMMA ABOVE
+0x23F5	0x0316	#  ̖ COMBINING GRAVE ACCENT BELOW
+0x23F6	0x0317	#  ̗ COMBINING ACUTE ACCENT BELOW
+0x23F7	0x0318	#  ̘ COMBINING LEFT TACK BELOW
+0x23F8	0x0319	#  ̙ COMBINING RIGHT TACK BELOW
+0x23F9	0x031A	#  ̚ COMBINING LEFT ANGLE ABOVE
+0x23FA	0x032F	#  ̯ COMBINING INVERTED BREVE BELOW
+0x23FB	0x0336	#  ̶ COMBINING LONG STROKE OVERLAY
+0x23FC	0x0339	#  ̹ COMBINING RIGHT HALF RING BELOW
+0x23FD	0x033A	#  ̺ COMBINING INVERTED BRIDGE BELOW
+0x23FE	0x033B	#  ̻ COMBINING SQUARE BELOW

unicode/xerox/XCCS-44=HIRAGANA.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     44 HIRAGANA
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             4-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,152 +22,152 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "44" HIRAGANA
-0x2421	0x3041	#  ぁ
-0x2422	0x3042	#  あ
-0x2423	0x3043	#  ぃ
-0x2424	0x3044	#  い
-0x2425	0x3045	#  ぅ
-0x2426	0x3046	#  う
-0x2427	0x3047	#  ぇ
-0x2428	0x3048	#  え
-0x2429	0x3049	#  ぉ
-0x242A	0x304A	#  お
-0x242B	0x304B	#  か
-0x242C	0x304C	#  が
-0x242D	0x304D	#  き
-0x242E	0x304E	#  ぎ
-0x242F	0x304F	#  く
-0x2430	0x3050	#  ぐ
-0x2431	0x3051	#  け
-0x2432	0x3052	#  げ
-0x2433	0x3053	#  こ
-0x2434	0x3054	#  ご
-0x2435	0x3055	#  さ
-0x2436	0x3056	#  ざ
-0x2437	0x3057	#  し
-0x2438	0x3058	#  じ
-0x2439	0x3059	#  す
-0x243A	0x305A	#  ず
-0x243B	0x305B	#  せ
-0x243C	0x305C	#  ぜ
-0x243D	0x305D	#  そ
-0x243E	0x305E	#  ぞ
-0x243F	0x305F	#  た
-0x2440	0x3060	#  だ
-0x2441	0x3061	#  ち
-0x2442	0x3062	#  ぢ
-0x2443	0x3063	#  っ
-0x2444	0x3064	#  つ
-0x2445	0x3065	#  づ
-0x2446	0x3066	#  て
-0x2447	0x3067	#  で
-0x2448	0x3068	#  と
-0x2449	0x3069	#  ど
-0x244A	0x306A	#  な
-0x244B	0x306B	#  に
-0x244C	0x306C	#  ぬ
-0x244D	0x306D	#  ね
-0x244E	0x306E	#  の
-0x244F	0x306F	#  は
-0x2450	0x3070	#  ば
-0x2451	0x3071	#  ぱ
-0x2452	0x3072	#  ひ
-0x2453	0x3073	#  び
-0x2454	0x3074	#  ぴ
-0x2455	0x3075	#  ふ
-0x2456	0x3076	#  ぶ
-0x2457	0x3077	#  ぷ
-0x2458	0x3078	#  へ
-0x2459	0x3079	#  べ
-0x245A	0x307A	#  ぺ
-0x245B	0x307B	#  ほ
-0x245C	0x307C	#  ぼ
-0x245D	0x307D	#  ぽ
-0x245E	0x307E	#  ま
-0x245F	0x307F	#  み
-0x2460	0x3080	#  む
-0x2461	0x3081	#  め
-0x2462	0x3082	#  も
-0x2463	0x3083	#  ゃ
-0x2464	0x3084	#  や
-0x2465	0x3085	#  ゅ
-0x2466	0x3086	#  ゆ
-0x2467	0x3087	#  ょ
-0x2468	0x3088	#  よ
-0x2469	0x3089	#  ら
-0x246A	0x308A	#  り
-0x246B	0x308B	#  る
-0x246C	0x308C	#  れ
-0x246D	0x308D	#  ろ
-0x246E	0x308E	#  ゎ
-0x246F	0x308F	#  わ
-0x2470	0x3090	#  ゐ
-0x2471	0x3091	#  ゑ
-0x2472	0x3092	#  を
-0x2473	0x3093	#  ん
-0x24A1	0x3105	#  ㄅ
-0x24A2	0x3106	#  ㄆ
-0x24A3	0x3107	#  ㄇ
-0x24A4	0x3108	#  ㄈ
-0x24A5	0x3109	#  ㄉ
-0x24A6	0x310A	#  ㄊ
-0x24A7	0x310B	#  ㄋ
-0x24A8	0x310C	#  ㄌ
-0x24A9	0x310D	#  ㄍ
-0x24AA	0x310E	#  ㄎ
-0x24AB	0x310F	#  ㄏ
-0x24AC	0x3110	#  ㄐ
-0x24AD	0x3111	#  ㄑ
-0x24AE	0x3112	#  ㄒ
-0x24AF	0x3113	#  ㄓ
-0x24B0	0x3114	#  ㄔ
-0x24B1	0x3115	#  ㄕ
-0x24B2	0x3116	#  ㄖ
-0x24B3	0x3117	#  ㄗ
-0x24B4	0x3118	#  ㄘ
-0x24B5	0x3119	#  ㄙ
-0x24B6	0x311A	#  ㄚ
-0x24B7	0x311B	#  ㄛ
-0x24B8	0x311C	#  ㄜ
-0x24B9	0x311D	#  ㄝ
-0x24BA	0x311E	#  ㄞ
-0x24BB	0x311F	#  ㄟ
-0x24BC	0x3120	#  ㄠ
-0x24BD	0x3121	#  ㄡ
-0x24BE	0x3122	#  ㄢ
-0x24BF	0x3123	#  ㄣ
-0x24C0	0x3124	#  ㄤ
-0x24C1	0x3125	#  ㄥ
-0x24C2	0x3126	#  ㄦ
-0x24C3	0x3127	#  ㄧ
-0x24C4	0x3128	#  ㄨ
-0x24C5	0x3129	#  ㄩ
-0x24C6	0x02CA	#  ˊ
-0x24C7	0x02C7	#  ˇ
-0x24C8	0x02CB	#  ˋ
-0x24C9	0x02D9	#  ˙
-0x24CA	0x02C9	#  ˉ
-0x24CB	0x312B	#  ㄫ
-0x24CC	0x312A	#  ㄪ
-0x24CD	0x312C	#  ㄬ
+#   "44" HIRAGANA
+0x2421	0x3041	#  ぁ HIRAGANA LETTER SMALL A
+0x2422	0x3042	#  あ HIRAGANA LETTER A
+0x2423	0x3043	#  ぃ HIRAGANA LETTER SMALL I
+0x2424	0x3044	#  い HIRAGANA LETTER I
+0x2425	0x3045	#  ぅ HIRAGANA LETTER SMALL U
+0x2426	0x3046	#  う HIRAGANA LETTER U
+0x2427	0x3047	#  ぇ HIRAGANA LETTER SMALL E
+0x2428	0x3048	#  え HIRAGANA LETTER E
+0x2429	0x3049	#  ぉ HIRAGANA LETTER SMALL O
+0x242A	0x304A	#  お HIRAGANA LETTER O
+0x242B	0x304B	#  か HIRAGANA LETTER KA
+0x242C	0x304C	#  が HIRAGANA LETTER GA
+0x242D	0x304D	#  き HIRAGANA LETTER KI
+0x242E	0x304E	#  ぎ HIRAGANA LETTER GI
+0x242F	0x304F	#  く HIRAGANA LETTER KU
+0x2430	0x3050	#  ぐ HIRAGANA LETTER GU
+0x2431	0x3051	#  け HIRAGANA LETTER KE
+0x2432	0x3052	#  げ HIRAGANA LETTER GE
+0x2433	0x3053	#  こ HIRAGANA LETTER KO
+0x2434	0x3054	#  ご HIRAGANA LETTER GO
+0x2435	0x3055	#  さ HIRAGANA LETTER SA
+0x2436	0x3056	#  ざ HIRAGANA LETTER ZA
+0x2437	0x3057	#  し HIRAGANA LETTER SI
+0x2438	0x3058	#  じ HIRAGANA LETTER ZI
+0x2439	0x3059	#  す HIRAGANA LETTER SU
+0x243A	0x305A	#  ず HIRAGANA LETTER ZU
+0x243B	0x305B	#  せ HIRAGANA LETTER SE
+0x243C	0x305C	#  ぜ HIRAGANA LETTER ZE
+0x243D	0x305D	#  そ HIRAGANA LETTER SO
+0x243E	0x305E	#  ぞ HIRAGANA LETTER ZO
+0x243F	0x305F	#  た HIRAGANA LETTER TA
+0x2440	0x3060	#  だ HIRAGANA LETTER DA
+0x2441	0x3061	#  ち HIRAGANA LETTER TI
+0x2442	0x3062	#  ぢ HIRAGANA LETTER DI
+0x2443	0x3063	#  っ HIRAGANA LETTER SMALL TU
+0x2444	0x3064	#  つ HIRAGANA LETTER TU
+0x2445	0x3065	#  づ HIRAGANA LETTER DU
+0x2446	0x3066	#  て HIRAGANA LETTER TE
+0x2447	0x3067	#  で HIRAGANA LETTER DE
+0x2448	0x3068	#  と HIRAGANA LETTER TO
+0x2449	0x3069	#  ど HIRAGANA LETTER DO
+0x244A	0x306A	#  な HIRAGANA LETTER NA
+0x244B	0x306B	#  に HIRAGANA LETTER NI
+0x244C	0x306C	#  ぬ HIRAGANA LETTER NU
+0x244D	0x306D	#  ね HIRAGANA LETTER NE
+0x244E	0x306E	#  の HIRAGANA LETTER NO
+0x244F	0x306F	#  は HIRAGANA LETTER HA
+0x2450	0x3070	#  ば HIRAGANA LETTER BA
+0x2451	0x3071	#  ぱ HIRAGANA LETTER PA
+0x2452	0x3072	#  ひ HIRAGANA LETTER HI
+0x2453	0x3073	#  び HIRAGANA LETTER BI
+0x2454	0x3074	#  ぴ HIRAGANA LETTER PI
+0x2455	0x3075	#  ふ HIRAGANA LETTER HU
+0x2456	0x3076	#  ぶ HIRAGANA LETTER BU
+0x2457	0x3077	#  ぷ HIRAGANA LETTER PU
+0x2458	0x3078	#  へ HIRAGANA LETTER HE
+0x2459	0x3079	#  べ HIRAGANA LETTER BE
+0x245A	0x307A	#  ぺ HIRAGANA LETTER PE
+0x245B	0x307B	#  ほ HIRAGANA LETTER HO
+0x245C	0x307C	#  ぼ HIRAGANA LETTER BO
+0x245D	0x307D	#  ぽ HIRAGANA LETTER PO
+0x245E	0x307E	#  ま HIRAGANA LETTER MA
+0x245F	0x307F	#  み HIRAGANA LETTER MI
+0x2460	0x3080	#  む HIRAGANA LETTER MU
+0x2461	0x3081	#  め HIRAGANA LETTER ME
+0x2462	0x3082	#  も HIRAGANA LETTER MO
+0x2463	0x3083	#  ゃ HIRAGANA LETTER SMALL YA
+0x2464	0x3084	#  や HIRAGANA LETTER YA
+0x2465	0x3085	#  ゅ HIRAGANA LETTER SMALL YU
+0x2466	0x3086	#  ゆ HIRAGANA LETTER YU
+0x2467	0x3087	#  ょ HIRAGANA LETTER SMALL YO
+0x2468	0x3088	#  よ HIRAGANA LETTER YO
+0x2469	0x3089	#  ら HIRAGANA LETTER RA
+0x246A	0x308A	#  り HIRAGANA LETTER RI
+0x246B	0x308B	#  る HIRAGANA LETTER RU
+0x246C	0x308C	#  れ HIRAGANA LETTER RE
+0x246D	0x308D	#  ろ HIRAGANA LETTER RO
+0x246E	0x308E	#  ゎ HIRAGANA LETTER SMALL WA
+0x246F	0x308F	#  わ HIRAGANA LETTER WA
+0x2470	0x3090	#  ゐ HIRAGANA LETTER WI
+0x2471	0x3091	#  ゑ HIRAGANA LETTER WE
+0x2472	0x3092	#  を HIRAGANA LETTER WO
+0x2473	0x3093	#  ん HIRAGANA LETTER N
+0x24A1	0x3105	#  ㄅ BOPOMOFO LETTER B
+0x24A2	0x3106	#  ㄆ BOPOMOFO LETTER P
+0x24A3	0x3107	#  ㄇ BOPOMOFO LETTER M
+0x24A4	0x3108	#  ㄈ BOPOMOFO LETTER F
+0x24A5	0x3109	#  ㄉ BOPOMOFO LETTER D
+0x24A6	0x310A	#  ㄊ BOPOMOFO LETTER T
+0x24A7	0x310B	#  ㄋ BOPOMOFO LETTER N
+0x24A8	0x310C	#  ㄌ BOPOMOFO LETTER L
+0x24A9	0x310D	#  ㄍ BOPOMOFO LETTER G
+0x24AA	0x310E	#  ㄎ BOPOMOFO LETTER K
+0x24AB	0x310F	#  ㄏ BOPOMOFO LETTER H
+0x24AC	0x3110	#  ㄐ BOPOMOFO LETTER J
+0x24AD	0x3111	#  ㄑ BOPOMOFO LETTER Q
+0x24AE	0x3112	#  ㄒ BOPOMOFO LETTER X
+0x24AF	0x3113	#  ㄓ BOPOMOFO LETTER ZH
+0x24B0	0x3114	#  ㄔ BOPOMOFO LETTER CH
+0x24B1	0x3115	#  ㄕ BOPOMOFO LETTER SH
+0x24B2	0x3116	#  ㄖ BOPOMOFO LETTER R
+0x24B3	0x3117	#  ㄗ BOPOMOFO LETTER Z
+0x24B4	0x3118	#  ㄘ BOPOMOFO LETTER C
+0x24B5	0x3119	#  ㄙ BOPOMOFO LETTER S
+0x24B6	0x311A	#  ㄚ BOPOMOFO LETTER A
+0x24B7	0x311B	#  ㄛ BOPOMOFO LETTER O
+0x24B8	0x311C	#  ㄜ BOPOMOFO LETTER E
+0x24B9	0x311D	#  ㄝ BOPOMOFO LETTER EH
+0x24BA	0x311E	#  ㄞ BOPOMOFO LETTER AI
+0x24BB	0x311F	#  ㄟ BOPOMOFO LETTER EI
+0x24BC	0x3120	#  ㄠ BOPOMOFO LETTER AU
+0x24BD	0x3121	#  ㄡ BOPOMOFO LETTER OU
+0x24BE	0x3122	#  ㄢ BOPOMOFO LETTER AN
+0x24BF	0x3123	#  ㄣ BOPOMOFO LETTER EN
+0x24C0	0x3124	#  ㄤ BOPOMOFO LETTER ANG
+0x24C1	0x3125	#  ㄥ BOPOMOFO LETTER ENG
+0x24C2	0x3126	#  ㄦ BOPOMOFO LETTER ER
+0x24C3	0x3127	#  ㄧ BOPOMOFO LETTER I
+0x24C4	0x3128	#  ㄨ BOPOMOFO LETTER U
+0x24C5	0x3129	#  ㄩ BOPOMOFO LETTER IU
+0x24C6	0x02CA	#  ˊ MODIFIER LETTER ACUTE ACCENT
+0x24C7	0x02C7	#  ˇ CARON
+0x24C8	0x02CB	#  ˋ MODIFIER LETTER GRAVE ACCENT
+0x24C9	0x02D9	#  ˙ DOT ABOVE
+0x24CA	0x02C9	#  ˉ MODIFIER LETTER MACRON
+0x24CB	0x312B	#  ㄫ BOPOMOFO LETTER NG
+0x24CC	0x312A	#  ㄪ BOPOMOFO LETTER V
+0x24CD	0x312C	#  ㄬ BOPOMOFO LETTER GN

unicode/xerox/XCCS-45=KATAKANA.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     45 KATAKANA
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             4-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,115 +22,115 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "45" KATAKANA
-0x2521	0x30A1	#  ァ
-0x2522	0x30A2	#  ア
-0x2523	0x30A3	#  ィ
-0x2524	0x30A4	#  イ
-0x2525	0x30A5	#  ゥ
-0x2526	0x30A6	#  ウ
-0x2527	0x30A7	#  ェ
-0x2528	0x30A8	#  エ
-0x2529	0x30A9	#  ォ
-0x252A	0x30AA	#  オ
-0x252B	0x30AB	#  カ
-0x252C	0x30AC	#  ガ
-0x252D	0x30AD	#  キ
-0x252E	0x30AE	#  ギ
-0x252F	0x30AF	#  ク
-0x2530	0x30B0	#  グ
-0x2531	0x30B1	#  ケ
-0x2532	0x30B2	#  ゲ
-0x2533	0x30B3	#  コ
-0x2534	0x30B4	#  ゴ
-0x2535	0x30B5	#  サ
-0x2536	0x30B6	#  ザ
-0x2537	0x30B7	#  シ
-0x2538	0x30B8	#  ジ
-0x2539	0x30B9	#  ス
-0x253A	0x30BA	#  ズ
-0x253B	0x30BB	#  セ
-0x253C	0x30BC	#  ゼ
-0x253D	0x30BD	#  ソ
-0x253E	0x30BE	#  ゾ
-0x253F	0x30BF	#  タ
-0x2540	0x30C0	#  ダ
-0x2541	0x30C1	#  チ
-0x2542	0x30C2	#  ヂ
-0x2543	0x30C3	#  ッ
-0x2544	0x30C4	#  ツ
-0x2545	0x30C5	#  ヅ
-0x2546	0x30C6	#  テ
-0x2547	0x30C7	#  デ
-0x2548	0x30C8	#  ト
-0x2549	0x30C9	#  ド
-0x254A	0x30CA	#  ナ
-0x254B	0x30CB	#  ニ
-0x254C	0x30CC	#  ヌ
-0x254D	0x30CD	#  ネ
-0x254E	0x30CE	#  ノ
-0x254F	0x30CF	#  ハ
-0x2550	0x30D0	#  バ
-0x2551	0x30D1	#  パ
-0x2552	0x30D2	#  ヒ
-0x2553	0x30D3	#  ビ
-0x2554	0x30D4	#  ピ
-0x2555	0x30D5	#  フ
-0x2556	0x30D6	#  ブ
-0x2557	0x30D7	#  プ
-0x2558	0x30D8	#  ヘ
-0x2559	0x30D9	#  ベ
-0x255A	0x30DA	#  ペ
-0x255B	0x30DB	#  ホ
-0x255C	0x30DC	#  ボ
-0x255D	0x30DD	#  ポ
-0x255E	0x30DE	#  マ
-0x255F	0x30DF	#  ミ
-0x2560	0x30E0	#  ム
-0x2561	0x30E1	#  メ
-0x2562	0x30E2	#  モ
-0x2563	0x30E3	#  ャ
-0x2564	0x30E4	#  ヤ
-0x2565	0x30E5	#  ュ
-0x2566	0x30E6	#  ユ
-0x2567	0x30E7	#  ョ
-0x2568	0x30E8	#  ヨ
-0x2569	0x30E9	#  ラ
-0x256A	0x30EA	#  リ
-0x256B	0x30EB	#  ル
-0x256C	0x30EC	#  レ
-0x256D	0x30ED	#  ロ
-0x256E	0x30EE	#  ヮ
-0x256F	0x30EF	#  ワ
-0x2570	0x30F0	#  ヰ
-0x2571	0x30F1	#  ヱ
-0x2572	0x30F2	#  ヲ
-0x2573	0x30F3	#  ン
-0x2574	0x30F4	#  ヴ
-0x2575	0x30F5	#  ヵ
-0x2576	0x30F6	#  ヶ
-0x2577	0x30F7	#  ヷ
-0x2578	0x30F8	#  ヸ
-0x2579	0x30F9	#  ヹ
-0x257A	0x30FA	#  ヺ
-0x257B	0x30FB	#  ・
+#   "45" KATAKANA
+0x2521	0x30A1	#  ァ KATAKANA LETTER SMALL A
+0x2522	0x30A2	#  ア KATAKANA LETTER A
+0x2523	0x30A3	#  ィ KATAKANA LETTER SMALL I
+0x2524	0x30A4	#  イ KATAKANA LETTER I
+0x2525	0x30A5	#  ゥ KATAKANA LETTER SMALL U
+0x2526	0x30A6	#  ウ KATAKANA LETTER U
+0x2527	0x30A7	#  ェ KATAKANA LETTER SMALL E
+0x2528	0x30A8	#  エ KATAKANA LETTER E
+0x2529	0x30A9	#  ォ KATAKANA LETTER SMALL O
+0x252A	0x30AA	#  オ KATAKANA LETTER O
+0x252B	0x30AB	#  カ KATAKANA LETTER KA
+0x252C	0x30AC	#  ガ KATAKANA LETTER GA
+0x252D	0x30AD	#  キ KATAKANA LETTER KI
+0x252E	0x30AE	#  ギ KATAKANA LETTER GI
+0x252F	0x30AF	#  ク KATAKANA LETTER KU
+0x2530	0x30B0	#  グ KATAKANA LETTER GU
+0x2531	0x30B1	#  ケ KATAKANA LETTER KE
+0x2532	0x30B2	#  ゲ KATAKANA LETTER GE
+0x2533	0x30B3	#  コ KATAKANA LETTER KO
+0x2534	0x30B4	#  ゴ KATAKANA LETTER GO
+0x2535	0x30B5	#  サ KATAKANA LETTER SA
+0x2536	0x30B6	#  ザ KATAKANA LETTER ZA
+0x2537	0x30B7	#  シ KATAKANA LETTER SI
+0x2538	0x30B8	#  ジ KATAKANA LETTER ZI
+0x2539	0x30B9	#  ス KATAKANA LETTER SU
+0x253A	0x30BA	#  ズ KATAKANA LETTER ZU
+0x253B	0x30BB	#  セ KATAKANA LETTER SE
+0x253C	0x30BC	#  ゼ KATAKANA LETTER ZE
+0x253D	0x30BD	#  ソ KATAKANA LETTER SO
+0x253E	0x30BE	#  ゾ KATAKANA LETTER ZO
+0x253F	0x30BF	#  タ KATAKANA LETTER TA
+0x2540	0x30C0	#  ダ KATAKANA LETTER DA
+0x2541	0x30C1	#  チ KATAKANA LETTER TI
+0x2542	0x30C2	#  ヂ KATAKANA LETTER DI
+0x2543	0x30C3	#  ッ KATAKANA LETTER SMALL TU
+0x2544	0x30C4	#  ツ KATAKANA LETTER TU
+0x2545	0x30C5	#  ヅ KATAKANA LETTER DU
+0x2546	0x30C6	#  テ KATAKANA LETTER TE
+0x2547	0x30C7	#  デ KATAKANA LETTER DE
+0x2548	0x30C8	#  ト KATAKANA LETTER TO
+0x2549	0x30C9	#  ド KATAKANA LETTER DO
+0x254A	0x30CA	#  ナ KATAKANA LETTER NA
+0x254B	0x30CB	#  ニ KATAKANA LETTER NI
+0x254C	0x30CC	#  ヌ KATAKANA LETTER NU
+0x254D	0x30CD	#  ネ KATAKANA LETTER NE
+0x254E	0x30CE	#  ノ KATAKANA LETTER NO
+0x254F	0x30CF	#  ハ KATAKANA LETTER HA
+0x2550	0x30D0	#  バ KATAKANA LETTER BA
+0x2551	0x30D1	#  パ KATAKANA LETTER PA
+0x2552	0x30D2	#  ヒ KATAKANA LETTER HI
+0x2553	0x30D3	#  ビ KATAKANA LETTER BI
+0x2554	0x30D4	#  ピ KATAKANA LETTER PI
+0x2555	0x30D5	#  フ KATAKANA LETTER HU
+0x2556	0x30D6	#  ブ KATAKANA LETTER BU
+0x2557	0x30D7	#  プ KATAKANA LETTER PU
+0x2558	0x30D8	#  ヘ KATAKANA LETTER HE
+0x2559	0x30D9	#  ベ KATAKANA LETTER BE
+0x255A	0x30DA	#  ペ KATAKANA LETTER PE
+0x255B	0x30DB	#  ホ KATAKANA LETTER HO
+0x255C	0x30DC	#  ボ KATAKANA LETTER BO
+0x255D	0x30DD	#  ポ KATAKANA LETTER PO
+0x255E	0x30DE	#  マ KATAKANA LETTER MA
+0x255F	0x30DF	#  ミ KATAKANA LETTER MI
+0x2560	0x30E0	#  ム KATAKANA LETTER MU
+0x2561	0x30E1	#  メ KATAKANA LETTER ME
+0x2562	0x30E2	#  モ KATAKANA LETTER MO
+0x2563	0x30E3	#  ャ KATAKANA LETTER SMALL YA
+0x2564	0x30E4	#  ヤ KATAKANA LETTER YA
+0x2565	0x30E5	#  ュ KATAKANA LETTER SMALL YU
+0x2566	0x30E6	#  ユ KATAKANA LETTER YU
+0x2567	0x30E7	#  ョ KATAKANA LETTER SMALL YO
+0x2568	0x30E8	#  ヨ KATAKANA LETTER YO
+0x2569	0x30E9	#  ラ KATAKANA LETTER RA
+0x256A	0x30EA	#  リ KATAKANA LETTER RI
+0x256B	0x30EB	#  ル KATAKANA LETTER RU
+0x256C	0x30EC	#  レ KATAKANA LETTER RE
+0x256D	0x30ED	#  ロ KATAKANA LETTER RO
+0x256E	0x30EE	#  ヮ KATAKANA LETTER SMALL WA
+0x256F	0x30EF	#  ワ KATAKANA LETTER WA
+0x2570	0x30F0	#  ヰ KATAKANA LETTER WI
+0x2571	0x30F1	#  ヱ KATAKANA LETTER WE
+0x2572	0x30F2	#  ヲ KATAKANA LETTER WO
+0x2573	0x30F3	#  ン KATAKANA LETTER N
+0x2574	0x30F4	#  ヴ KATAKANA LETTER VU
+0x2575	0x30F5	#  ヵ KATAKANA LETTER SMALL KA
+0x2576	0x30F6	#  ヶ KATAKANA LETTER SMALL KE
+0x2577	0x30F7	#  ヷ KATAKANA LETTER VA
+0x2578	0x30F8	#  ヸ KATAKANA LETTER VI
+0x2579	0x30F9	#  ヹ KATAKANA LETTER VE
+0x257A	0x30FA	#  ヺ KATAKANA LETTER VO
+0x257B	0x30FB	#  ・ KATAKANA MIDDLE DOT

unicode/xerox/XCCS-46=GREEK.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     46 GREEK
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             4-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,133 +22,163 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "46" GREEK
-0x2624	0x0384	#  ΄
-0x2625	0x0313	#  ̓
-0x2626	0x0314	#  ̔
-0x2627	0x0345	#  ͅ
-0x2634	0x0374	#  ʹ
-0x2635	0x0375	#  ͵
-0x263B	0x0387	#  ·
-0x2640	0xFFFF	#  UNDEFINED
-0x2641	0x0391	#  Α
-0x2642	0x0392	#  Β
-0x2643	0xFFFF	#  UNDEFINED
-0x2644	0x0393	#  Γ
-0x2645	0x0394	#  Δ
-0x2646	0x0395	#  Ε
-0x2647	0x03DA	#  Ϛ
-0x2648	0x03DC	#  Ϝ
-0x2649	0x0396	#  Ζ
-0x264A	0x0397	#  Η
-0x264B	0x0398	#  Θ
-0x264C	0x0399	#  Ι
-0x264D	0x039A	#  Κ
-0x264E	0x039B	#  Λ
-0x264F	0x039C	#  Μ
-0x2650	0x039D	#  Ν
-0x2651	0x039E	#  Ξ
-0x2652	0x039F	#  Ο
-0x2653	0x03A0	#  Π
-0x2654	0x03DE	#  Ϟ
-0x2655	0x03A1	#  Ρ
-0x2656	0x03A3	#  Σ
-0x2657	0xFFFF	#  UNDEFINED
-0x2658	0x03A4	#  Τ
-0x2659	0x03A5	#  Υ
-0x265A	0x03A6	#  Φ
-0x265B	0x03A7	#  Χ
-0x265C	0x03A8	#  Ψ
-0x265D	0x03A9	#  Ω
-0x265E	0x03E0	#  Ϡ
-0x265F	0xFFFF	#  UNDEFINED
-0x2660	0xFFFF	#  UNDEFINED
-0x2661	0x03B1	#  α
-0x2662	0x03B2	#  β
-0x2663	0x03D0	#  ϐ
-0x2664	0x03B3	#  γ
-0x2665	0x03B4	#  δ
-0x2666	0x03B5	#  ε
-0x2669	0x03B6	#  ζ
-0x266A	0x03B7	#  η
-0x266B	0x03B8	#  θ
-0x266C	0x03B9	#  ι
-0x266D	0x03BA	#  κ
-0x266E	0x03BB	#  λ
-0x266F	0x03BC	#  μ
-0x2670	0x03BD	#  ν
-0x2671	0x03BE	#  ξ
-0x2672	0x03BF	#  ο
-0x2673	0x03C0	#  π
-0x2675	0x03C1	#  ρ
-0x2676	0x03C3	#  σ
-0x2677	0x03C2	#  ς
-0x2678	0x03C4	#  τ
-0x2679	0x03C5	#  υ
-0x267A	0x03C6	#  φ
-0x267B	0x03C7	#  χ
-0x267C	0x03C8	#  ψ
-0x267D	0x03C9	#  ω
-0x267E	0x03E1	#  ϡ
-0x26C0	0x0344	#  ̈́
-0x26C3	0x1FDF	#  ῟
-0x26C4	0x1FCF	#  ῏
-0x26C5	0x0301	#  ́
-0x26C6	0x0300	#  ̀
-0x26C7	0x0342	#  ͂
-0x26C8	0x1FDE	#  ῞
-0x26C9	0x1FDD	#  ῝
-0x26CA	0x1FCE	#  ῎
-0x26CB	0x1FCD	#  ῍
-0x26CC	0x0308	#  ̈
-0x26CD	0x0385	#  ΅
-0x26CE	0x1FED	#  ῭
-0x26CF	0x1FC1	#  ῁
-0x26D0	0x0386	#  Ά
-0x26D1	0x0388	#  Έ
-0x26D2	0x0389	#  Ή
-0x26D3	0x038A	#  Ί
-0x26D4	0x038C	#  Ό
-0x26D5	0x038E	#  Ύ
-0x26D6	0x038F	#  Ώ
-0x26D7	0x03AA	#  Ϊ
-0x26D8	0x03AB	#  Ϋ
-0x26DC	0x03E2	#  Ϣ
-0x26DD	0x03E4	#  Ϥ
-0x26DE	0x03E6	#  Ϧ
-0x26E0	0x03D3	#  ϓ
-0x26E1	0x03D4	#  ϔ
-0x26F0	0x03AC	#  ά
-0x26F1	0x03AD	#  έ
-0x26F2	0x03AE	#  ή
-0x26F3	0x03AF	#  ί
-0x26F4	0x03CC	#  ό
-0x26F5	0x03CD	#  ύ
-0x26F6	0x03CE	#  ώ
-0x26F7	0x03CA	#  ϊ
-0x26F8	0x03CB	#  ϋ
-0x26F9	0x0390	#  ΐ
-0x26FA	0x03B0	#  ΰ
-0x26FB	0x03F3	#  ϳ
-0x26FC	0x03E3	#  ϣ
-0x26FD	0x03E5	#  ϥ
+#   "46" GREEK
+0x2622	0x037E	#  ; GREEK QUESTION MARK
+0x2623	0x0343	#  ̓ COMBINING GREEK KORONIS
+0x2624	0x0384	#  ΄ GREEK TONOS
+0x2625	0x0313	#  ̓ COMBINING COMMA ABOVE
+0x2626	0x0314	#  ̔ COMBINING REVERSED COMMA ABOVE
+0x2627	0x0345	#  ͅ COMBINING GREEK YPOGEGRAMMENI
+0x2629	0x1FDE	#  ῞ GREEK DASIA AND OXIA
+0x262A	0x1FDD	#  ῝ GREEK DASIA AND VARIA
+0x262B	0x0385	#  ΅ GREEK DIALYTIKA TONOS
+0x262C	0x1FDF	#  ῟ GREEK DASIA AND PERISPOMENI
+0x262D	0x1FC0	#  ῀ GREEK PERISPOMENI
+0x262E	0x1FFD	#  ´ GREEK OXIA
+0x262F	0x1FEF	#  ` GREEK VARIA
+0x2630	0x03F2	#  ϲ GREEK LUNATE SIGMA SYMBOL
+0x2631	0x0384	#  ΄ GREEK TONOS
+0x2632	0x037A	#  ͺ GREEK YPOGEGRAMMENI
+0x2633	0x1FBD	#  ᾽ GREEK KORONIS
+0x2634	0x0374	#  ʹ GREEK NUMERAL SIGN
+0x2635	0x0375	#  ͵ GREEK LOWER NUMERAL SIGN
+0x2636	0x1FEE	#  ΅ GREEK DIALYTIKA AND OXIA
+0x2637	0x1FED	#  ῭ GREEK DIALYTIKA AND VARIA
+0x2639	0x1FCE	#  ῎ GREEK PSILI AND OXIA
+0x263A	0x1FCD	#  ῍ GREEK PSILI AND VARIA
+0x263B	0x0387	#  · GREEK ANO TELEIA
+0x263C	0x1FCF	#  ῏ GREEK PSILI AND PERISPOMENI
+0x263D	0x1FC1	#  ῁ GREEK DIALYTIKA AND PERISPOMENI
+0x263E	0x1FBF	#  ᾿ GREEK PSILI
+0x263F	0x1FFE	#  ῾ GREEK DASIA
+0x2640	0x03DE	#  Ϟ GREEK LETTER KOPPA
+0x2641	0x0391	#  Α GREEK CAPITAL LETTER ALPHA
+0x2642	0x0392	#  Β GREEK CAPITAL LETTER BETA
+0x2644	0x0393	#  Γ GREEK CAPITAL LETTER GAMMA
+0x2645	0x0394	#  Δ GREEK CAPITAL LETTER DELTA
+0x2646	0x0395	#  Ε GREEK CAPITAL LETTER EPSILON
+0x2647	0x03DA	#  Ϛ GREEK LETTER STIGMA
+0x2648	0x03DC	#  Ϝ GREEK LETTER DIGAMMA
+0x2649	0x0396	#  Ζ GREEK CAPITAL LETTER ZETA
+0x264A	0x0397	#  Η GREEK CAPITAL LETTER ETA
+0x264B	0x0398	#  Θ GREEK CAPITAL LETTER THETA
+0x264C	0x0399	#  Ι GREEK CAPITAL LETTER IOTA
+0x264D	0x039A	#  Κ GREEK CAPITAL LETTER KAPPA
+0x264E	0x039B	#  Λ GREEK CAPITAL LETTER LAMDA
+0x264F	0x039C	#  Μ GREEK CAPITAL LETTER MU
+0x2650	0x039D	#  Ν GREEK CAPITAL LETTER NU
+0x2651	0x039E	#  Ξ GREEK CAPITAL LETTER XI
+0x2652	0x039F	#  Ο GREEK CAPITAL LETTER OMICRON
+0x2653	0x03A0	#  Π GREEK CAPITAL LETTER PI
+0x2654	0x03D8	#  Ϙ GREEK LETTER ARCHAIC KOPPA
+0x2655	0x03A1	#  Ρ GREEK CAPITAL LETTER RHO
+0x2656	0x03A3	#  Σ GREEK CAPITAL LETTER SIGMA
+0x2658	0x03A4	#  Τ GREEK CAPITAL LETTER TAU
+0x2659	0x03A5	#  Υ GREEK CAPITAL LETTER UPSILON
+0x265A	0x03A6	#  Φ GREEK CAPITAL LETTER PHI
+0x265B	0x03A7	#  Χ GREEK CAPITAL LETTER CHI
+0x265C	0x03A8	#  Ψ GREEK CAPITAL LETTER PSI
+0x265D	0x03A9	#  Ω GREEK CAPITAL LETTER OMEGA
+0x265E	0x03E0	#  Ϡ GREEK LETTER SAMPI
+0x2660	0x03DF	#  ϟ GREEK SMALL LETTER KOPPA
+0x2661	0x03B1	#  α GREEK SMALL LETTER ALPHA
+0x2662	0x03B2	#  β GREEK SMALL LETTER BETA
+0x2663	0x03D0	#  ϐ GREEK BETA SYMBOL
+0x2664	0x03B3	#  γ GREEK SMALL LETTER GAMMA
+0x2665	0x03B4	#  δ GREEK SMALL LETTER DELTA
+0x2666	0x03B5	#  ε GREEK SMALL LETTER EPSILON
+0x2667	0x03DB	#  ϛ GREEK SMALL LETTER STIGMA
+0x2668	0x03DD	#  ϝ GREEK SMALL LETTER DIGAMMA
+0x2669	0x03B6	#  ζ GREEK SMALL LETTER ZETA
+0x266A	0x03B7	#  η GREEK SMALL LETTER ETA
+0x266B	0x03B8	#  θ GREEK SMALL LETTER THETA
+0x266C	0x03B9	#  ι GREEK SMALL LETTER IOTA
+0x266D	0x03BA	#  κ GREEK SMALL LETTER KAPPA
+0x266E	0x03BB	#  λ GREEK SMALL LETTER LAMDA
+0x266F	0x03BC	#  μ GREEK SMALL LETTER MU
+0x2670	0x03BD	#  ν GREEK SMALL LETTER NU
+0x2671	0x03BE	#  ξ GREEK SMALL LETTER XI
+0x2672	0x03BF	#  ο GREEK SMALL LETTER OMICRON
+0x2673	0x03C0	#  π GREEK SMALL LETTER PI
+0x2674	0x03D9	#  ϙ GREEK SMALL LETTER ARCHAIC KOPPA
+0x2675	0x03C1	#  ρ GREEK SMALL LETTER RHO
+0x2676	0x03C3	#  σ GREEK SMALL LETTER SIGMA
+0x2677	0x03C2	#  ς GREEK SMALL LETTER FINAL SIGMA
+0x2678	0x03C4	#  τ GREEK SMALL LETTER TAU
+0x2679	0x03C5	#  υ GREEK SMALL LETTER UPSILON
+0x267A	0x03C6	#  φ GREEK SMALL LETTER PHI
+0x267B	0x03C7	#  χ GREEK SMALL LETTER CHI
+0x267C	0x03C8	#  ψ GREEK SMALL LETTER PSI
+0x267D	0x03C9	#  ω GREEK SMALL LETTER OMEGA
+0x267E	0x03E1	#  ϡ GREEK SMALL LETTER SAMPI
+0x26B0	0x03E9	#  ϩ COPTIC SMALL LETTER HORI
+0x26B1	0x03EB	#  ϫ COPTIC SMALL LETTER GANGIA
+0x26B2	0x03ED	#  ϭ COPTIC SMALL LETTER SHIMA
+0x26B3	0x03EF	#  ϯ COPTIC SMALL LETTER DEI
+0x26C0	0x0344	#  ̈́ COMBINING GREEK DIALYTIKA TONOS
+0x26C1	0x1FDE	#  ῞ GREEK DASIA AND OXIA
+0x26C2	0x1FCE	#  ῎ GREEK PSILI AND OXIA
+0x26C3	0x1FDF	#  ῟ GREEK DASIA AND PERISPOMENI
+0x26C4	0x1FCF	#  ῏ GREEK PSILI AND PERISPOMENI
+0x26C5	0x0301	#  ́ COMBINING ACUTE ACCENT
+0x26C6	0x0300	#  ̀ COMBINING GRAVE ACCENT
+0x26C7	0x0342	#  ͂ COMBINING GREEK PERISPOMENI
+0x26C8	0x1FDE	#  ῞ GREEK DASIA AND OXIA
+0x26C9	0x1FDD	#  ῝ GREEK DASIA AND VARIA
+0x26CA	0x1FCE	#  ῎ GREEK PSILI AND OXIA
+0x26CB	0x1FCD	#  ῍ GREEK PSILI AND VARIA
+0x26CC	0x0308	#  ̈ COMBINING DIAERESIS
+0x26CD	0x0385	#  ΅ GREEK DIALYTIKA TONOS
+0x26CE	0x1FED	#  ῭ GREEK DIALYTIKA AND VARIA
+0x26CF	0x1FC1	#  ῁ GREEK DIALYTIKA AND PERISPOMENI
+0x26D0	0x0386	#  Ά GREEK CAPITAL LETTER ALPHA WITH TONOS
+0x26D1	0x0388	#  Έ GREEK CAPITAL LETTER EPSILON WITH TONOS
+0x26D2	0x0389	#  Ή GREEK CAPITAL LETTER ETA WITH TONOS
+0x26D3	0x038A	#  Ί GREEK CAPITAL LETTER IOTA WITH TONOS
+0x26D4	0x038C	#  Ό GREEK CAPITAL LETTER OMICRON WITH TONOS
+0x26D5	0x038E	#  Ύ GREEK CAPITAL LETTER UPSILON WITH TONOS
+0x26D6	0x038F	#  Ώ GREEK CAPITAL LETTER OMEGA WITH TONOS
+0x26D7	0x03AA	#  Ϊ GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
+0x26D8	0x03AB	#  Ϋ GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
+0x26D9	0x03AA 0x0301	#  Ϊ́ GREEK CAPITAL LETTER IOTA WITH DIALYTIKA; COMBINING ACUTE ACCENT
+0x26DA	0x03AB 0x0301	#  Ϋ́ GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA; COMBINING ACUTE ACCENT
+0x26DC	0x03E2	#  Ϣ COPTIC CAPITAL LETTER SHEI
+0x26DD	0x03E4	#  Ϥ COPTIC CAPITAL LETTER FEI
+0x26DE	0x03E6	#  Ϧ COPTIC CAPITAL LETTER KHEI
+0x26E0	0x03D3	#  ϓ GREEK UPSILON WITH ACUTE AND HOOK SYMBOL
+0x26E1	0x03D4	#  ϔ GREEK UPSILON WITH DIAERESIS AND HOOK SYMBOL
+0x26F0	0x03AC	#  ά GREEK SMALL LETTER ALPHA WITH TONOS
+0x26F1	0x03AD	#  έ GREEK SMALL LETTER EPSILON WITH TONOS
+0x26F2	0x03AE	#  ή GREEK SMALL LETTER ETA WITH TONOS
+0x26F3	0x03AF	#  ί GREEK SMALL LETTER IOTA WITH TONOS
+0x26F4	0x03CC	#  ό GREEK SMALL LETTER OMICRON WITH TONOS
+0x26F5	0x03CD	#  ύ GREEK SMALL LETTER UPSILON WITH TONOS
+0x26F6	0x03CE	#  ώ GREEK SMALL LETTER OMEGA WITH TONOS
+0x26F7	0x03CA	#  ϊ GREEK SMALL LETTER IOTA WITH DIALYTIKA
+0x26F8	0x03CB	#  ϋ GREEK SMALL LETTER UPSILON WITH DIALYTIKA
+0x26F9	0x0390	#  ΐ GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
+0x26FA	0x03B0	#  ΰ GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
+0x26FB	0x03F3	#  ϳ GREEK LETTER YOT
+0x26FC	0x03E3	#  ϣ COPTIC SMALL LETTER SHEI
+0x26FD	0x03E5	#  ϥ COPTIC SMALL LETTER FEI
+0x26FE	0x03E7	#  ϧ COPTIC SMALL LETTER KHEI

unicode/xerox/XCCS-47=CYRILLIC.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     47 CYRILLIC
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             4-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,128 +22,201 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "47" CYRILLIC
-0x2721	0x0410	#  А
-0x2722	0x0411	#  Б
-0x2723	0x0412	#  В
-0x2724	0x0413	#  Г
-0x2725	0x0414	#  Д
-0x2726	0x0415	#  Е
-0x2727	0x0401	#  Ё
-0x2728	0x0416	#  Ж
-0x2729	0x0417	#  З
-0x272A	0x0418	#  И
-0x272B	0x0419	#  Й
-0x272C	0x041A	#  К
-0x272D	0x041B	#  Л
-0x272E	0x041C	#  М
-0x272F	0x041D	#  Н
-0x2730	0x041E	#  О
-0x2731	0x041F	#  П
-0x2732	0x0420	#  Р
-0x2733	0x0421	#  С
-0x2734	0x0422	#  Т
-0x2735	0x0423	#  У
-0x2736	0x0424	#  Ф
-0x2737	0x0425	#  Х
-0x2738	0x0426	#  Ц
-0x2739	0x0427	#  Ч
-0x273A	0x0428	#  Ш
-0x273B	0x0429	#  Щ
-0x273C	0x042A	#  Ъ
-0x273D	0x042B	#  Ы
-0x273E	0x042C	#  Ь
-0x273F	0x042D	#  Э
-0x2740	0x042E	#  Ю
-0x2741	0x042F	#  Я
-0x2742	0x0490	#  Ґ
-0x2743	0x0402	#  Ђ
-0x2744	0x0403	#  Ѓ
-0x2745	0x0404	#  Є
-0x2746	0x0405	#  Ѕ
-0x2747	0x0406	#  І
-0x2748	0x0407	#  Ї
-0x2749	0x0408	#  Ј
-0x274A	0x0409	#  Љ
-0x274B	0x040A	#  Њ
-0x274C	0x040B	#  Ћ
-0x274D	0x040C	#  Ќ
-0x274E	0x040E	#  Ў
-0x274F	0xFFFF	#  UNDEFINED
-0x2750	0xFFFF	#  UNDEFINED
-0x2751	0x0430	#  а
-0x2752	0x0431	#  б
-0x2753	0x0432	#  в
-0x2754	0x0433	#  г
-0x2755	0x0434	#  д
-0x2756	0x0435	#  е
-0x2757	0x0451	#  ё
-0x2758	0x0436	#  ж
-0x2759	0x0437	#  з
-0x275A	0x0438	#  и
-0x275B	0x0439	#  й
-0x275C	0x043A	#  к
-0x275D	0x043B	#  л
-0x275E	0x043C	#  м
-0x275F	0x043D	#  н
-0x2760	0x043E	#  о
-0x2761	0x043F	#  п
-0x2762	0x0440	#  р
-0x2763	0x0441	#  с
-0x2764	0x0442	#  т
-0x2765	0x0443	#  у
-0x2766	0x0444	#  ф
-0x2767	0x0445	#  х
-0x2768	0x0446	#  ц
-0x2769	0x0447	#  ч
-0x276A	0x0448	#  ш
-0x276B	0x0449	#  щ
-0x276C	0x044A	#  ъ
-0x276D	0x044B	#  ы
-0x276E	0x044C	#  ь
-0x276F	0x044D	#  э
-0x2770	0x044E	#  ю
-0x2771	0x044F	#  я
-0x2772	0x0491	#  ґ
-0x2773	0x0452	#  ђ
-0x2774	0x0453	#  ѓ
-0x2775	0x0454	#  є
-0x2776	0x0455	#  ѕ
-0x2777	0x0456	#  і
-0x2778	0x0457	#  ї
-0x2779	0x0458	#  ј
-0x277A	0x0459	#  љ
-0x277B	0x045A	#  њ
-0x277C	0x045B	#  ћ
-0x277D	0x045C	#  ќ
-0x277E	0x045E	#  ў
-0x27A1	0x040F	#  Џ
-0x27A2	0x0462	#  Ѣ
-0x27A3	0x0472	#  Ѳ
-0x27A4	0x0474	#  Ѵ
-0x27A5	0x046A	#  Ѫ
-0x27D1	0x045F	#  џ
-0x27D2	0x0463	#  ѣ
-0x27D3	0x0473	#  ѳ
-0x27D4	0x0475	#  ѵ
-0x27D5	0x046B	#  ѫ
+#   "47" CYRILLIC
+0x2721	0x0410	#  А CYRILLIC CAPITAL LETTER A
+0x2722	0x0411	#  Б CYRILLIC CAPITAL LETTER BE
+0x2723	0x0412	#  В CYRILLIC CAPITAL LETTER VE
+0x2724	0x0413	#  Г CYRILLIC CAPITAL LETTER GHE
+0x2725	0x0414	#  Д CYRILLIC CAPITAL LETTER DE
+0x2726	0x0415	#  Е CYRILLIC CAPITAL LETTER IE
+0x2727	0x0401	#  Ё CYRILLIC CAPITAL LETTER IO
+0x2728	0x0416	#  Ж CYRILLIC CAPITAL LETTER ZHE
+0x2729	0x0417	#  З CYRILLIC CAPITAL LETTER ZE
+0x272A	0x0418	#  И CYRILLIC CAPITAL LETTER I
+0x272B	0x0419	#  Й CYRILLIC CAPITAL LETTER SHORT I
+0x272C	0x041A	#  К CYRILLIC CAPITAL LETTER KA
+0x272D	0x041B	#  Л CYRILLIC CAPITAL LETTER EL
+0x272E	0x041C	#  М CYRILLIC CAPITAL LETTER EM
+0x272F	0x041D	#  Н CYRILLIC CAPITAL LETTER EN
+0x2730	0x041E	#  О CYRILLIC CAPITAL LETTER O
+0x2731	0x041F	#  П CYRILLIC CAPITAL LETTER PE
+0x2732	0x0420	#  Р CYRILLIC CAPITAL LETTER ER
+0x2733	0x0421	#  С CYRILLIC CAPITAL LETTER ES
+0x2734	0x0422	#  Т CYRILLIC CAPITAL LETTER TE
+0x2735	0x0423	#  У CYRILLIC CAPITAL LETTER U
+0x2736	0x0424	#  Ф CYRILLIC CAPITAL LETTER EF
+0x2737	0x0425	#  Х CYRILLIC CAPITAL LETTER HA
+0x2738	0x0426	#  Ц CYRILLIC CAPITAL LETTER TSE
+0x2739	0x0427	#  Ч CYRILLIC CAPITAL LETTER CHE
+0x273A	0x0428	#  Ш CYRILLIC CAPITAL LETTER SHA
+0x273B	0x0429	#  Щ CYRILLIC CAPITAL LETTER SHCHA
+0x273C	0x042A	#  Ъ CYRILLIC CAPITAL LETTER HARD SIGN
+0x273D	0x042B	#  Ы CYRILLIC CAPITAL LETTER YERU
+0x273E	0x042C	#  Ь CYRILLIC CAPITAL LETTER SOFT SIGN
+0x273F	0x042D	#  Э CYRILLIC CAPITAL LETTER E
+0x2740	0x042E	#  Ю CYRILLIC CAPITAL LETTER YU
+0x2741	0x042F	#  Я CYRILLIC CAPITAL LETTER YA
+0x2742	0x0490	#  Ґ CYRILLIC CAPITAL LETTER GHE WITH UPTURN
+0x2743	0x0402	#  Ђ CYRILLIC CAPITAL LETTER DJE
+0x2744	0x0403	#  Ѓ CYRILLIC CAPITAL LETTER GJE
+0x2745	0x0404	#  Є CYRILLIC CAPITAL LETTER UKRAINIAN IE
+0x2746	0x0405	#  Ѕ CYRILLIC CAPITAL LETTER DZE
+0x2747	0x0406	#  І CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
+0x2748	0x0407	#  Ї CYRILLIC CAPITAL LETTER YI
+0x2749	0x0408	#  Ј CYRILLIC CAPITAL LETTER JE
+0x274A	0x0409	#  Љ CYRILLIC CAPITAL LETTER LJE
+0x274B	0x040A	#  Њ CYRILLIC CAPITAL LETTER NJE
+0x274C	0x040B	#  Ћ CYRILLIC CAPITAL LETTER TSHE
+0x274D	0x040C	#  Ќ CYRILLIC CAPITAL LETTER KJE
+0x274E	0x040E	#  Ў CYRILLIC CAPITAL LETTER SHORT U
+0x2751	0x0430	#  а CYRILLIC SMALL LETTER A
+0x2752	0x0431	#  б CYRILLIC SMALL LETTER BE
+0x2753	0x0432	#  в CYRILLIC SMALL LETTER VE
+0x2754	0x0433	#  г CYRILLIC SMALL LETTER GHE
+0x2755	0x0434	#  д CYRILLIC SMALL LETTER DE
+0x2756	0x0435	#  е CYRILLIC SMALL LETTER IE
+0x2757	0x0451	#  ё CYRILLIC SMALL LETTER IO
+0x2758	0x0436	#  ж CYRILLIC SMALL LETTER ZHE
+0x2759	0x0437	#  з CYRILLIC SMALL LETTER ZE
+0x275A	0x0438	#  и CYRILLIC SMALL LETTER I
+0x275B	0x0439	#  й CYRILLIC SMALL LETTER SHORT I
+0x275C	0x043A	#  к CYRILLIC SMALL LETTER KA
+0x275D	0x043B	#  л CYRILLIC SMALL LETTER EL
+0x275E	0x043C	#  м CYRILLIC SMALL LETTER EM
+0x275F	0x043D	#  н CYRILLIC SMALL LETTER EN
+0x2760	0x043E	#  о CYRILLIC SMALL LETTER O
+0x2761	0x043F	#  п CYRILLIC SMALL LETTER PE
+0x2762	0x0440	#  р CYRILLIC SMALL LETTER ER
+0x2763	0x0441	#  с CYRILLIC SMALL LETTER ES
+0x2764	0x0442	#  т CYRILLIC SMALL LETTER TE
+0x2765	0x0443	#  у CYRILLIC SMALL LETTER U
+0x2766	0x0444	#  ф CYRILLIC SMALL LETTER EF
+0x2767	0x0445	#  х CYRILLIC SMALL LETTER HA
+0x2768	0x0446	#  ц CYRILLIC SMALL LETTER TSE
+0x2769	0x0447	#  ч CYRILLIC SMALL LETTER CHE
+0x276A	0x0448	#  ш CYRILLIC SMALL LETTER SHA
+0x276B	0x0449	#  щ CYRILLIC SMALL LETTER SHCHA
+0x276C	0x044A	#  ъ CYRILLIC SMALL LETTER HARD SIGN
+0x276D	0x044B	#  ы CYRILLIC SMALL LETTER YERU
+0x276E	0x044C	#  ь CYRILLIC SMALL LETTER SOFT SIGN
+0x276F	0x044D	#  э CYRILLIC SMALL LETTER E
+0x2770	0x044E	#  ю CYRILLIC SMALL LETTER YU
+0x2771	0x044F	#  я CYRILLIC SMALL LETTER YA
+0x2772	0x0491	#  ґ CYRILLIC SMALL LETTER GHE WITH UPTURN
+0x2773	0x0452	#  ђ CYRILLIC SMALL LETTER DJE
+0x2774	0x0453	#  ѓ CYRILLIC SMALL LETTER GJE
+0x2775	0x0454	#  є CYRILLIC SMALL LETTER UKRAINIAN IE
+0x2776	0x0455	#  ѕ CYRILLIC SMALL LETTER DZE
+0x2777	0x0456	#  і CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
+0x2778	0x0457	#  ї CYRILLIC SMALL LETTER YI
+0x2779	0x0458	#  ј CYRILLIC SMALL LETTER JE
+0x277A	0x0459	#  љ CYRILLIC SMALL LETTER LJE
+0x277B	0x045A	#  њ CYRILLIC SMALL LETTER NJE
+0x277C	0x045B	#  ћ CYRILLIC SMALL LETTER TSHE
+0x277D	0x045C	#  ќ CYRILLIC SMALL LETTER KJE
+0x277E	0x045E	#  ў CYRILLIC SMALL LETTER SHORT U
+0x27A1	0x040F	#  Џ CYRILLIC CAPITAL LETTER DZHE
+0x27A2	0x0462	#  Ѣ CYRILLIC CAPITAL LETTER YAT
+0x27A3	0x0472	#  Ѳ CYRILLIC CAPITAL LETTER FITA
+0x27A4	0x0474	#  Ѵ CYRILLIC CAPITAL LETTER IZHITSA
+0x27A5	0x046A	#  Ѫ CYRILLIC CAPITAL LETTER BIG YUS
+0x27A6	0x051A	#  Ԛ CYRILLIC CAPITAL LETTER QA
+0x27A7	0x051C	#  Ԝ CYRILLIC CAPITAL LETTER WE
+0x27A8	0x04AE	#  Ү CYRILLIC CAPITAL LETTER STRAIGHT U
+0x27A9	0x0410 0x0301	#  А́ CYRILLIC CAPITAL LETTER A; COMBINING ACUTE ACCENT
+0x27AA	0x04D2	#  Ӓ CYRILLIC CAPITAL LETTER A WITH DIAERESIS
+0x27AB	0x04D0	#  Ӑ CYRILLIC CAPITAL LETTER A WITH BREVE
+0x27AC	0x04D4	#  Ӕ CYRILLIC CAPITAL LIGATURE A IE
+0x27AD	0x0492	#  Ғ CYRILLIC CAPITAL LETTER GHE WITH STROKE
+0x27AE	0x0494	#  Ҕ CYRILLIC CAPITAL LETTER GHE WITH MIDDLE HOOK
+0x27AF	0x0415 0x0301	#  Е́ CYRILLIC CAPITAL LETTER IE; COMBINING ACUTE ACCENT
+0x27B0	0x04D6	#  Ӗ CYRILLIC CAPITAL LETTER IE WITH BREVE
+0x27B1	0x04DC	#  Ӝ CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
+0x27B2	0x0496	#  Җ CYRILLIC CAPITAL LETTER ZHE WITH DESCENDER
+0x27B3	0x04DE	#  Ӟ CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
+0x27B4	0x0498	#  Ҙ CYRILLIC CAPITAL LETTER ZE WITH DESCENDER
+0x27B5	0x0418 0x0301	#  И́ CYRILLIC CAPITAL LETTER I; COMBINING ACUTE ACCENT
+0x27B6	0x04E4	#  Ӥ CYRILLIC CAPITAL LETTER I WITH DIAERESIS
+0x27B7	0x04E2	#  Ӣ CYRILLIC CAPITAL LETTER I WITH MACRON
+0x27B8	0x049A	#  Қ CYRILLIC CAPITAL LETTER KA WITH DESCENDER
+0x27BA	0x049C	#  Ҝ CYRILLIC CAPITAL LETTER KA WITH VERTICAL STROKE
+0x27BB	0x04A0	#  Ҡ CYRILLIC CAPITAL LETTER BASHKIR KA
+0x27BC	0x049E	#  Ҟ CYRILLIC CAPITAL LETTER KA WITH STROKE
+0x27BD	0x04A2	#  Ң CYRILLIC CAPITAL LETTER EN WITH DESCENDER
+0x27BE	0x04A4	#  Ҥ CYRILLIC CAPITAL LIGATURE EN GHE
+0x27BF	0x041E 0x0301	#  О́ CYRILLIC CAPITAL LETTER O; COMBINING ACUTE ACCENT
+0x27C0	0x04E6	#  Ӧ CYRILLIC CAPITAL LETTER O WITH DIAERESIS
+0x27C2	0x04A6	#  Ҧ CYRILLIC CAPITAL LETTER PE WITH MIDDLE HOOK
+0x27C3	0x04AA	#  Ҫ CYRILLIC CAPITAL LETTER ES WITH DESCENDER
+0x27C5	0x04AC	#  Ҭ CYRILLIC CAPITAL LETTER TE WITH DESCENDER
+0x27C6	0x04B4	#  Ҵ CYRILLIC CAPITAL LIGATURE TE TSE
+0x27C7	0x0423 0x0301	#  У́ CYRILLIC CAPITAL LETTER U; COMBINING ACUTE ACCENT
+0x27C8	0x04F0	#  Ӱ CYRILLIC CAPITAL LETTER U WITH DIAERESIS
+0x27C9	0x04F2	#  Ӳ CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE
+0x27CB	0x04EE	#  Ӯ CYRILLIC CAPITAL LETTER U WITH MACRON
+0x27CC	0x04B2	#  Ҳ CYRILLIC CAPITAL LETTER HA WITH DESCENDER
+0x27CD	0x04FC	#  Ӽ CYRILLIC CAPITAL LETTER HA WITH HOOK
+0x27CE	0x04F4	#  Ӵ CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
+0x27CF	0x04C0	#  Ӏ CYRILLIC LETTER PALOCHKA
+0x27D1	0x045F	#  џ CYRILLIC SMALL LETTER DZHE
+0x27D2	0x0463	#  ѣ CYRILLIC SMALL LETTER YAT
+0x27D3	0x0473	#  ѳ CYRILLIC SMALL LETTER FITA
+0x27D4	0x0475	#  ѵ CYRILLIC SMALL LETTER IZHITSA
+0x27D5	0x046B	#  ѫ CYRILLIC SMALL LETTER BIG YUS
+0x27D6	0x051B	#  ԛ CYRILLIC SMALL LETTER QA
+0x27D7	0x051D	#  ԝ CYRILLIC SMALL LETTER WE
+0x27D8	0x04AF	#  ү CYRILLIC SMALL LETTER STRAIGHT U
+0x27D9	0x0430 0x0301	#  а́ CYRILLIC SMALL LETTER A; COMBINING ACUTE ACCENT
+0x27DA	0x04D3	#  ӓ CYRILLIC SMALL LETTER A WITH DIAERESIS
+0x27DB	0x04D1	#  ӑ CYRILLIC SMALL LETTER A WITH BREVE
+0x27DC	0x04D5	#  ӕ CYRILLIC SMALL LIGATURE A IE
+0x27DD	0x0493	#  ғ CYRILLIC SMALL LETTER GHE WITH STROKE
+0x27DE	0x0495	#  ҕ CYRILLIC SMALL LETTER GHE WITH MIDDLE HOOK
+0x27DF	0x0435 0x0301	#  е́ CYRILLIC SMALL LETTER IE; COMBINING ACUTE ACCENT
+0x27E0	0x04D7	#  ӗ CYRILLIC SMALL LETTER IE WITH BREVE
+0x27E1	0x04DD	#  ӝ CYRILLIC SMALL LETTER ZHE WITH DIAERESIS
+0x27E2	0x0497	#  җ CYRILLIC SMALL LETTER ZHE WITH DESCENDER
+0x27E3	0x04DF	#  ӟ CYRILLIC SMALL LETTER ZE WITH DIAERESIS
+0x27E4	0x0499	#  ҙ CYRILLIC SMALL LETTER ZE WITH DESCENDER
+0x27E5	0x0438 0x0301	#  и́ CYRILLIC SMALL LETTER I; COMBINING ACUTE ACCENT
+0x27E6	0x04E5	#  ӥ CYRILLIC SMALL LETTER I WITH DIAERESIS
+0x27E7	0x04E3	#  ӣ CYRILLIC SMALL LETTER I WITH MACRON
+0x27E8	0x049B	#  қ CYRILLIC SMALL LETTER KA WITH DESCENDER
+0x27EA	0x049D	#  ҝ CYRILLIC SMALL LETTER KA WITH VERTICAL STROKE
+0x27EB	0x04A1	#  ҡ CYRILLIC SMALL LETTER BASHKIR KA
+0x27EC	0x049F	#  ҟ CYRILLIC SMALL LETTER KA WITH STROKE
+0x27ED	0x04A3	#  ң CYRILLIC SMALL LETTER EN WITH DESCENDER
+0x27EE	0x04A5	#  ҥ CYRILLIC SMALL LIGATURE EN GHE
+0x27EF	0x043E 0x0301	#  о́ CYRILLIC SMALL LETTER O; COMBINING ACUTE ACCENT
+0x27F0	0x04E7	#  ӧ CYRILLIC SMALL LETTER O WITH DIAERESIS
+0x27F2	0x04A7	#  ҧ CYRILLIC SMALL LETTER PE WITH MIDDLE HOOK
+0x27F3	0x04AB	#  ҫ CYRILLIC SMALL LETTER ES WITH DESCENDER
+0x27F5	0x04AD	#  ҭ CYRILLIC SMALL LETTER TE WITH DESCENDER
+0x27F6	0x04B5	#  ҵ CYRILLIC SMALL LIGATURE TE TSE
+0x27F7	0x0443 0x0301	#  у́ CYRILLIC SMALL LETTER U; COMBINING ACUTE ACCENT
+0x27F8	0x04F1	#  ӱ CYRILLIC SMALL LETTER U WITH DIAERESIS
+0x27F9	0x04F3	#  ӳ CYRILLIC SMALL LETTER U WITH DOUBLE ACUTE
+0x27FB	0x04EF	#  ӯ CYRILLIC SMALL LETTER U WITH MACRON
+0x27FC	0x04B3	#  ҳ CYRILLIC SMALL LETTER HA WITH DESCENDER
+0x27FD	0x04FD	#  ӽ CYRILLIC SMALL LETTER HA WITH HOOK
+0x27FE	0x04F5	#  ӵ CYRILLIC SMALL LETTER CHE WITH DIAERESIS

unicode/xerox/XCCS-50=FORMS.TXT

@@ -1,19 +1,19 @@
-#  
+#
 #          Name:             XCCS (XC-3-1-1-0) to Unicode
 #          Unicode version:  3.0
 #          XCCS charset:     50 FORMS
 #          Table version:    0.1
 #          Table format:     Format A
-#          Date:             4-Aug-2020
+#          Date:             9-Aug-2021
 #          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
-#  
+#
 #  This file contains mappings from the Xerox Character Code Standard (version
 #  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
 #  XCCS corresponding to the fonts in the Medley system.
-#  
+#
 #  The format of this file conforms to the format of the other Unicode-supplied
 #  mapping files:
-#     Three white-space (tab or spaces) separated columns:
+#    Three white-space (tab or spaces) separated columns:
 #       Column 1 is the XCCS code (as hex 0xXXXX)
 #       Column 2 is the corresponding Unicode (as hex 0xXXXX)
 #       Column 3 (after #) is a comment column. For convenience, it contains the
@@ -22,88 +22,182 @@
 #  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
 #  Unicode FFFE is used for XCCS codes that have not yet been filled in.
 #  (Column 3 = MISSING)
-#  
+#
 #  This file is encoded in UTF8, so that the Unicode characters
 #  are properly displayed in Column 3 and can be edited by standard
 #  Unicode-enabled editors (e.g. Mac Textedit).
-#  
+#
 #  This file can also be read by the function
 #  READ-UNICODE-MAPPING in the UNICODE Medley library package.
-#  
+#
 #  The entries are in XCCS order and grouped by character sets.  In front of
 #  the mappings, for convenience, there is a line with the octal XCCS
 #  character set, after #.
-#  
+#
 #  Note that a given XCCS code might map to codes in several different Unicode
 #  positions, since there are repetitions in the Unicode standard.
-#  
+#
 #  For more details, see the associated README.TXT file.
-#  
+#
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "50" FORMS
-0x2821	0xFFFF	#  UNDEFINED
-0x2822	0xFFFF	#  UNDEFINED
-0x2823	0x250C	#  ┌
-0x2824	0x250C	#  ┌
-0x2825	0x2518	#  ┘
-0x2826	0x2514	#  └
-0x2827	0x251C	#  ├
-0x2828	0x252C	#  ┬
-0x2829	0x2524	#  ┤
-0x282A	0x2534	#  ┴
-0x282B	0xFFFF	#  UNDEFINED
-0x282C	0xFFFF	#  UNDEFINED
-0x282D	0xFFFF	#  UNDEFINED
-0x282E	0x250F	#  ┏
-0x282F	0x2513	#  ┓
-0x2830	0x251B	#  ┛
-0x2831	0x2517	#  ┗
-0x2832	0x2523	#  ┣
-0x2833	0x2533	#  ┳
-0x2834	0x252B	#  ┫
-0x2835	0x253B	#  ┻
-0x2836	0xFFFF	#  UNDEFINED
-0x2837	0x2520	#  ┠
-0x2838	0x252F	#  ┯
-0x2839	0x2528	#  ┨
-0x283A	0x2537	#  ┷
-0x283B	0x253F	#  ┿
-0x283C	0x251D	#  ┝
-0x283D	0x2530	#  ┰
-0x283E	0x2525	#  ┥
-0x283F	0x2538	#  ┸
-0x2840	0x2542	#  ╂
-0x2841	0x254E	#  ╎
-0x2842	0x254F	#  ╏
-0x2843	0xFFFF	#  UNDEFINED
-0x2850	0x2561	#  ╡
-0x2851	0x2562	#  ╢
-0x2852	0x2556	#  ╖
-0x2853	0x2555	#  ╕
-0x2854	0x2563	#  ╣
-0x2855	0x2551	#  ║
-0x2856	0x2557	#  ╗
-0x2857	0x255D	#  ╝
-0x2858	0x255C	#  ╜
-0x2859	0x255B	#  ╛
-0x285A	0x255E	#  ╞
-0x285B	0x255F	#  ╟
-0x285C	0x255A	#  ╚
-0x285D	0x2554	#  ╔
-0x285E	0x2569	#  ╩
-0x285F	0x2566	#  ╦
-0x2860	0x2560	#  ╠
-0x2861	0x2550	#  ═
-0x2862	0x256C	#  ╬
-0x2863	0x2567	#  ╧
-0x2864	0x2568	#  ╨
-0x2865	0x2564	#  ╤
-0x2866	0x2565	#  ╥
-0x2867	0x2559	#  ╙
-0x2868	0x2558	#  ╘
-0x2869	0x2552	#  ╒
-0x286A	0x2553	#  ╓
-0x286B	0x256B	#  ╫
-0x286C	0x256A	#  ╪
+#   "50" FORMS
+0x2821	0x2500	#  ─ BOX DRAWINGS LIGHT HORIZONTAL
+0x2822	0x2502	#  │ BOX DRAWINGS LIGHT VERTICAL
+0x2823	0x250C	#  ┌ BOX DRAWINGS LIGHT DOWN AND RIGHT
+0x2824	0x2510	#  ┐ BOX DRAWINGS LIGHT DOWN AND LEFT
+0x2825	0x2518	#  ┘ BOX DRAWINGS LIGHT UP AND LEFT
+0x2826	0x2514	#  └ BOX DRAWINGS LIGHT UP AND RIGHT
+0x2827	0x251C	#  ├ BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+0x2828	0x252C	#  ┬ BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+0x2829	0x2524	#  ┤ BOX DRAWINGS LIGHT VERTICAL AND LEFT
+0x282A	0x2534	#  ┴ BOX DRAWINGS LIGHT UP AND HORIZONTAL
+0x282B	0x253C	#  ┼ BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+0x282C	0x2501	#  ━ BOX DRAWINGS HEAVY HORIZONTAL
+0x282D	0x2503	#  ┃ BOX DRAWINGS HEAVY VERTICAL
+0x282E	0x250F	#  ┏ BOX DRAWINGS HEAVY DOWN AND RIGHT
+0x282F	0x2513	#  ┓ BOX DRAWINGS HEAVY DOWN AND LEFT
+0x2830	0x251B	#  ┛ BOX DRAWINGS HEAVY UP AND LEFT
+0x2831	0x2517	#  ┗ BOX DRAWINGS HEAVY UP AND RIGHT
+0x2832	0x2523	#  ┣ BOX DRAWINGS HEAVY VERTICAL AND RIGHT
+0x2833	0x2533	#  ┳ BOX DRAWINGS HEAVY DOWN AND HORIZONTAL
+0x2834	0x252B	#  ┫ BOX DRAWINGS HEAVY VERTICAL AND LEFT
+0x2835	0x253B	#  ┻ BOX DRAWINGS HEAVY UP AND HORIZONTAL
+0x2836	0x254B	#  ╋ BOX DRAWINGS HEAVY VERTICAL AND HORIZONTAL
+0x2837	0x2520	#  ┠ BOX DRAWINGS VERTICAL HEAVY AND RIGHT LIGHT
+0x2838	0x252F	#  ┯ BOX DRAWINGS DOWN LIGHT AND HORIZONTAL HEAVY
+0x2839	0x2528	#  ┨ BOX DRAWINGS VERTICAL HEAVY AND LEFT LIGHT
+0x283A	0x2537	#  ┷ BOX DRAWINGS UP LIGHT AND HORIZONTAL HEAVY
+0x283B	0x253F	#  ┿ BOX DRAWINGS VERTICAL LIGHT AND HORIZONTAL HEAVY
+0x283C	0x251D	#  ┝ BOX DRAWINGS VERTICAL LIGHT AND RIGHT HEAVY
+0x283D	0x2530	#  ┰ BOX DRAWINGS DOWN HEAVY AND HORIZONTAL LIGHT
+0x283E	0x2525	#  ┥ BOX DRAWINGS VERTICAL LIGHT AND LEFT HEAVY
+0x283F	0x2538	#  ┸ BOX DRAWINGS UP HEAVY AND HORIZONTAL LIGHT
+0x2840	0x2542	#  ╂ BOX DRAWINGS VERTICAL HEAVY AND HORIZONTAL LIGHT
+0x2841	0x254E	#  ╎ BOX DRAWINGS LIGHT DOUBLE DASH VERTICAL
+0x2842	0x254F	#  ╏ BOX DRAWINGS HEAVY DOUBLE DASH VERTICAL
+0x2843	0x2549	#  ╉ BOX DRAWINGS RIGHT LIGHT AND LEFT VERTICAL HEAVY
+0x2844	0x2547	#  ╇ BOX DRAWINGS DOWN LIGHT AND UP HORIZONTAL HEAVY
+0x2845	0x2548	#  ╈ BOX DRAWINGS UP LIGHT AND DOWN HORIZONTAL HEAVY
+0x2846	0x254A	#  ╊ BOX DRAWINGS LEFT LIGHT AND RIGHT VERTICAL HEAVY
+0x2847	0x254C	#  ╌ BOX DRAWINGS LIGHT DOUBLE DASH HORIZONTAL
+0x2849	0x250E	#  ┎ BOX DRAWINGS DOWN HEAVY AND RIGHT LIGHT
+0x284A	0x2512	#  ┒ BOX DRAWINGS DOWN HEAVY AND LEFT LIGHT
+0x284B	0x251A	#  ┚ BOX DRAWINGS UP HEAVY AND LEFT LIGHT
+0x284C	0x2516	#  ┖ BOX DRAWINGS UP HEAVY AND RIGHT LIGHT
+0x284D	0x250D	#  ┍ BOX DRAWINGS DOWN LIGHT AND RIGHT HEAVY
+0x284E	0x2511	#  ┑ BOX DRAWINGS DOWN LIGHT AND LEFT HEAVY
+0x284F	0x2519	#  ┙ BOX DRAWINGS UP LIGHT AND LEFT HEAVY
+0x2850	0x2561	#  ╡ BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
+0x2851	0x2562	#  ╢ BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
+0x2852	0x2556	#  ╖ BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
+0x2853	0x2555	#  ╕ BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
+0x2854	0x2563	#  ╣ BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+0x2855	0x2551	#  ║ BOX DRAWINGS DOUBLE VERTICAL
+0x2856	0x2557	#  ╗ BOX DRAWINGS DOUBLE DOWN AND LEFT
+0x2857	0x255D	#  ╝ BOX DRAWINGS DOUBLE UP AND LEFT
+0x2858	0x255C	#  ╜ BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
+0x2859	0x255B	#  ╛ BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
+0x285A	0x255E	#  ╞ BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
+0x285B	0x255F	#  ╟ BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
+0x285C	0x255A	#  ╚ BOX DRAWINGS DOUBLE UP AND RIGHT
+0x285D	0x2554	#  ╔ BOX DRAWINGS DOUBLE DOWN AND RIGHT
+0x285E	0x2569	#  ╩ BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+0x285F	0x2566	#  ╦ BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+0x2860	0x2560	#  ╠ BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+0x2861	0x2550	#  ═ BOX DRAWINGS DOUBLE HORIZONTAL
+0x2862	0x256C	#  ╬ BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+0x2863	0x2567	#  ╧ BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
+0x2864	0x2568	#  ╨ BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
+0x2865	0x2564	#  ╤ BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
+0x2866	0x2565	#  ╥ BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
+0x2867	0x2559	#  ╙ BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
+0x2868	0x2558	#  ╘ BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
+0x2869	0x2552	#  ╒ BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
+0x286A	0x2553	#  ╓ BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
+0x286B	0x256B	#  ╫ BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
+0x286C	0x256A	#  ╪ BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
+0x287B	0x2515	#  ┕ BOX DRAWINGS UP LIGHT AND RIGHT HEAVY
+#   0x28A1	0x1FB00	#  XXXX BLOCK SEXTANT-1    NOT MEDLEY CHARCODES
+#   0x28A2	0x1FB01	#  XXXX BLOCK SEXTANT-2
+#   0x28A3	0x1FB02	#  XXXX BLOCK SEXTANT-12
+#   0x28A4	0x1FB03	#  XXXX BLOCK SEXTANT-3
+#   0x28A5	0x1FB04	#  XXXX BLOCK SEXTANT-13
+#   0x28A6	0x1FB05	#  XXXX BLOCK SEXTANT-23
+#   0x28A7	0x1FB06	#  XXXX BLOCK SEXTANT-123
+#   0x28A8	0x1FB07	#  XXXX BLOCK SEXTANT-4
+#   0x28A9	0x1FB08	#  XXXX BLOCK SEXTANT-14
+#   0x28AA	0x1FB09	#  XXXX BLOCK SEXTANT-24
+#   0x28AB	0x1FB0A	#  XXXX BLOCK SEXTANT-124
+#   0x28AC	0x1FB0B	#  XXXX BLOCK SEXTANT-34
+#   0x28AD	0x1FB0C	#  XXXX BLOCK SEXTANT-134
+#   0x28AE	0x1FB0D	#  XXXX BLOCK SEXTANT-234
+#   0x28AF	0x1FB0E	#  XXXX BLOCK SEXTANT-1234
+#   0x28B0	0x1FB0F	#  XXXX BLOCK SEXTANT-5
+#   0x28B1	0x1FB10	#  XXXX BLOCK SEXTANT-15
+#   0x28B2	0x1FB11	#  XXXX BLOCK SEXTANT-25
+#   0x28B3	0x1FB12	#  XXXX BLOCK SEXTANT-125
+#   0x28B4	0x1FB13	#  XXXX BLOCK SEXTANT-35
+#   0x28B5	0x1FB32	#  XXXX BLOCK SEXTANT-1356
+#   0x28B6	0x1FB14	#  XXXX BLOCK SEXTANT-235
+#   0x28B7	0x1FB15	#  XXXX BLOCK SEXTANT-1235
+#   0x28B8	0x1FB16	#  XXXX BLOCK SEXTANT-45
+#   0x28B9	0x1FB17	#  XXXX BLOCK SEXTANT-145
+#   0x28BA	0x1FB18	#  XXXX BLOCK SEXTANT-245
+#   0x28BB	0x1FB19	#  XXXX BLOCK SEXTANT-1245
+#   0x28BC	0x1FB1A	#  XXXX BLOCK SEXTANT-345
+#   0x28BD	0x1FB1B	#  XXXX BLOCK SEXTANT-1345
+#   0x28BE	0x1FB1C	#  XXXX BLOCK SEXTANT-2345
+#   0x28BF	0x1FB1D	#  XXXX BLOCK SEXTANT-12345
+0x28CC	0x251E	#  ┞ BOX DRAWINGS UP HEAVY AND RIGHT DOWN LIGHT
+0x28CD	0x251F	#  ┟ BOX DRAWINGS DOWN HEAVY AND RIGHT UP LIGHT
+0x28CE	0x2521	#  ┡ BOX DRAWINGS DOWN LIGHT AND RIGHT UP HEAVY
+0x28CF	0x2522	#  ┢ BOX DRAWINGS UP LIGHT AND RIGHT DOWN HEAVY
+0x28D0	0x2504	#  ┄ BOX DRAWINGS LIGHT TRIPLE DASH HORIZONTAL
+0x28D1	0x2505	#  ┅ BOX DRAWINGS HEAVY TRIPLE DASH HORIZONTAL
+0x28D2	0x2506	#  ┆ BOX DRAWINGS LIGHT TRIPLE DASH VERTICAL
+0x28D3	0x2507	#  ┇ BOX DRAWINGS HEAVY TRIPLE DASH VERTICAL
+0x28D4	0x2508	#  ┈ BOX DRAWINGS LIGHT QUADRUPLE DASH HORIZONTAL
+0x28D5	0x2509	#  ┉ BOX DRAWINGS HEAVY QUADRUPLE DASH HORIZONTAL
+0x28D6	0x250A	#  ┊ BOX DRAWINGS LIGHT QUADRUPLE DASH VERTICAL
+0x28D7	0x250B	#  ┋ BOX DRAWINGS HEAVY QUADRUPLE DASH VERTICAL
+0x28D8	0x254D	#  ╍ BOX DRAWINGS HEAVY DOUBLE DASH HORIZONTAL
+0x28D9	0x256D	#  ╭ BOX DRAWINGS LIGHT ARC DOWN AND RIGHT
+0x28DA	0x256E	#  ╮ BOX DRAWINGS LIGHT ARC DOWN AND LEFT
+0x28DB	0x256F	#  ╯ BOX DRAWINGS LIGHT ARC UP AND LEFT
+0x28DC	0x2570	#  ╰ BOX DRAWINGS LIGHT ARC UP AND RIGHT
+0x28DD	0x2571	#  ╱ BOX DRAWINGS LIGHT DIAGONAL UPPER RIGHT TO LOWER LEFT
+0x28DE	0x2572	#  ╲ BOX DRAWINGS LIGHT DIAGONAL UPPER LEFT TO LOWER RIGHT
+0x28DF	0x2588	#  █ FULL BLOCK
+#   0x28E0	0x1FB1E	#  XXXX BLOCK SEXTANT-6   NOT MEDLEY CHARCODES
+#   0x28E1	0x1FB1F	#  XXXX BLOCK SEXTANT-16
+#   0x28E2	0x1FB20	#  XXXX BLOCK SEXTANT-26
+#   0x28E3	0x1FB21	#  XXXX BLOCK SEXTANT-126
+#   0x28E4	0x1FB22	#  XXXX BLOCK SEXTANT-36
+#   0x28E5	0x1FB23	#  XXXX BLOCK SEXTANT-136
+#   0x28E6	0x1FB24	#  XXXX BLOCK SEXTANT-236
+#   0x28E7	0x1FB25	#  XXXX BLOCK SEXTANT-1236
+#   0x28E8	0x1FB26	#  XXXX BLOCK SEXTANT-46
+#   0x28E9	0x1FB27	#  XXXX BLOCK SEXTANT-146
+#   0x28EA	0x1FB28	#  XXXX BLOCK SEXTANT-1246
+#   0x28EB	0x1FB28	#  XXXX BLOCK SEXTANT-1246
+#   0x28EC	0x1FB29	#  XXXX BLOCK SEXTANT-346
+#   0x28ED	0x1FB2A	#  XXXX BLOCK SEXTANT-1346
+#   0x28EE	0x1FB2B	#  XXXX BLOCK SEXTANT-2346
+#   0x28EF	0x1FB2C	#  XXXX BLOCK SEXTANT-12346
+#   0x28F0	0x1FB2D	#  XXXX BLOCK SEXTANT-56
+#   0x28F1	0x1FB2E	#  XXXX BLOCK SEXTANT-156
+#   0x28F2	0x1FB2F	#  XXXX BLOCK SEXTANT-256
+#   0x28F3	0x1FB30	#  XXXX BLOCK SEXTANT-1256
+#   0x28F4	0x1FB31	#  XXXX BLOCK SEXTANT-356
+#   0x28F5	0x1FB32	#  XXXX BLOCK SEXTANT-1356
+#   0x28F6	0x1FB33	#  XXXX BLOCK SEXTANT-2356
+#   0x28F7	0x1FB34	#  XXXX BLOCK SEXTANT-12356
+#   0x28F8	0x1FB35	#  XXXX BLOCK SEXTANT-456
+#   0x28F9	0x1FB36	#  XXXX BLOCK SEXTANT-1456
+#   0x28FA	0x1FB37	#  XXXX BLOCK SEXTANT-2456
+#   0x28FB	0x1FB38	#  XXXX BLOCK SEXTANT-12456
+#   0x28FC	0x1FB39	#  XXXX BLOCK SEXTANT-3456
+#   0x28FD	0x1FB3A	#  XXXX BLOCK SEXTANT-13456
+#   0x28FE	0x1FB3B	#  XXXX BLOCK SEXTANT-23456

unicode/xerox/XCCS-51=RUNIC-GOTHIC.TXT

@@ -0,0 +1,117 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     51 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "51" UNKNOWN
+0x2922	0x16A0	#  ᚠ RUNIC LETTER FEHU FEOH FE F
+0x2924	0x16A2	#  ᚢ RUNIC LETTER URUZ UR U
+0x2927	0x16A6	#  ᚦ RUNIC LETTER THURISAZ THURS THORN
+0x292B	0x16A8	#  ᚨ RUNIC LETTER ANSUZ A
+0x2932	0x16B1	#  ᚱ RUNIC LETTER RAIDO RAD REID R
+0x2935	0x16B2	#  ᚲ RUNIC LETTER KAUNA
+0x2937	0x16B4	#  ᚴ RUNIC LETTER KAUN K
+0x293A	0x16B7	#  ᚷ RUNIC LETTER GEBO GYFU G
+0x293B	0x16B5	#  ᚵ RUNIC LETTER G
+0x293D	0x16B9	#  ᚹ RUNIC LETTER WUNJO WYNN W
+0x293F	0x16BA	#  ᚺ RUNIC LETTER HAGLAZ H
+0x2940	0x16BB	#  ᚻ RUNIC LETTER HAEGL H
+0x2944	0x16BC	#  ᚼ RUNIC LETTER LONG-BRANCH-HAGALL H
+0x2947	0x16BE	#  ᚾ RUNIC LETTER NAUDIZ NYD NAUD N
+0x294A	0x16BF	#  ᚿ RUNIC LETTER SHORT-TWIG-NAUD N
+0x294B	0x16C1	#  ᛁ RUNIC LETTER ISAZ IS ISS I
+0x294C	0x16C3	#  ᛃ RUNIC LETTER JERAN J
+0x2956	0x16C7	#  ᛇ RUNIC LETTER IWAZ EOH
+0x2959	0x16C8	#  ᛈ RUNIC LETTER PERTHO PEORTH P
+0x296F	0x16CF	#  ᛏ RUNIC LETTER TIWAZ TIR TYR T
+0x2970	0x16D0	#  ᛐ RUNIC LETTER SHORT-TWIG-TYR T
+0x2972	0x16D2	#  ᛒ RUNIC LETTER BERKANAN BEORC BJARKAN B
+0x2977	0x16D6	#  ᛖ RUNIC LETTER EHWAZ EH E
+0x2978	0x16D7	#  ᛗ RUNIC LETTER MANNAZ MAN M
+0x297A	0x16D8	#  ᛘ RUNIC LETTER LONG-BRANCH-MADR M
+0x297C	0x16D9	#  ᛙ RUNIC LETTER SHORT-TWIG-MADR M
+0x297E	0x16DA	#  ᛚ RUNIC LETTER LAUKAZ LAGU LOGR L
+0x297F	0x16DC	#  ᛜ RUNIC LETTER INGWAZ
+0x29A2	0x16DD	#  ᛝ RUNIC LETTER ING
+0x29A3	0x16DF	#  ᛟ RUNIC LETTER OTHALAN ETHEL O
+0x29A5	0x16AD	#  ᚭ RUNIC LETTER SHORT-TWIG-OSS O
+0x29A6	0x16AE	#  ᚮ RUNIC LETTER O
+0x29A7	0x16DE	#  ᛞ RUNIC LETTER DAGAZ DAEG D
+0x29A8	0x16D1	#  ᛑ RUNIC LETTER D
+0x29A9	0x16C5	#  ᛅ RUNIC LETTER LONG-BRANCH-AR AE
+0x29AA	0x16AF	#  ᚯ RUNIC LETTER OE
+0x29AB	0x16A9	#  ᚩ RUNIC LETTER OS O
+0x29AD	0x16F1	#  ᛱ RUNIC LETTER K
+0x29AF	0x16AA	#  ᚪ RUNIC LETTER AC A
+0x29B1	0x16AB	#  ᚫ RUNIC LETTER AESC
+0x29B2	0x16A4	#  ᚤ RUNIC LETTER Y
+0x29B5	0x16A3	#  ᚣ RUNIC LETTER YR
+0x29B6	0x16E0	#  ᛠ RUNIC LETTER EAR
+0x29B8	0x16E1	#  ᛡ RUNIC LETTER IOR
+0x29E1	0x10330	#  𐌰 GOTHIC LETTER AHSA
+0x29E2	0x10331	#  𐌱 GOTHIC LETTER BAIRKAN
+0x29E3	0x10332	#  𐌲 GOTHIC LETTER GIBA
+0x29E4	0x10333	#  𐌳 GOTHIC LETTER DAGS
+0x29E5	0x10334	#  𐌴 GOTHIC LETTER AIHVUS
+0x29E6	0x10335	#  𐌵 GOTHIC LETTER QAIRTHRA
+0x29E7	0x10336	#  𐌶 GOTHIC LETTER IUJA
+0x29E8	0x10337	#  𐌷 GOTHIC LETTER HAGL
+0x29E9	0x10338	#  𐌸 GOTHIC LETTER THIUTH
+0x29EA	0x10339 0x0308	#  𐌹̈ GOTHIC LETTER EIS; COMBINING DIAERESIS
+0x29EB	0x10339	#  𐌹 GOTHIC LETTER EIS
+0x29EC	0x1033A	#  𐌺 GOTHIC LETTER KUSMA
+0x29ED	0x1033B	#  𐌻 GOTHIC LETTER LAGUS
+0x29EE	0x1033C	#  𐌼 GOTHIC LETTER MANNA
+0x29EF	0x1033D	#  𐌽 GOTHIC LETTER NAUTHS
+0x29F0	0x1033E	#  𐌾 GOTHIC LETTER JER
+0x29F1	0x1033F	#  𐌿 GOTHIC LETTER URUS
+0x29F2	0x10340	#  𐍀 GOTHIC LETTER PAIRTHRA
+0x29F3	0x10341	#  𐍁 GOTHIC LETTER NINETY
+0x29F4	0x10342	#  𐍂 GOTHIC LETTER RAIDA
+0x29F5	0x10343	#  𐍃 GOTHIC LETTER SAUIL
+0x29F6	0x10344	#  𐍄 GOTHIC LETTER TEIWS
+0x29F7	0x10345	#  𐍅 GOTHIC LETTER WINJA
+0x29F8	0x10346	#  𐍆 GOTHIC LETTER FAIHU
+0x29F9	0x10347	#  𐍇 GOTHIC LETTER IGGWS
+0x29FA	0x10348	#  𐍈 GOTHIC LETTER HWAIR
+0x29FB	0x10349	#  𐍉 GOTHIC LETTER OTHAL
+0x29FC	0x1034A	#  𐍊 GOTHIC LETTER NINE HUNDRED

unicode/xerox/XCCS-52=MORE-CYRILLIC.TXT

@@ -0,0 +1,126 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     52 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "52" UNKNOWN
+0x2A21	0x04B6	#  Ҷ CYRILLIC CAPITAL LETTER CHE WITH DESCENDER
+0x2A22	0x04CB	#  Ӌ CYRILLIC CAPITAL LETTER KHAKASSIAN CHE
+0x2A23	0x04B8	#  Ҹ CYRILLIC CAPITAL LETTER CHE WITH VERTICAL STROKE
+0x2A24	0x042D 0x0301	#  Э́ CYRILLIC CAPITAL LETTER E; COMBINING ACUTE ACCENT
+0x2A26	0x042E 0x0301	#  Ю́ CYRILLIC CAPITAL LETTER YU; COMBINING ACUTE ACCENT
+0x2A28	0x042F 0x0301	#  Я́ CYRILLIC CAPITAL LETTER YA; COMBINING ACUTE ACCENT
+0x2A2A	0x042A 0x0301	#  Ъ́ CYRILLIC CAPITAL LETTER HARD SIGN; COMBINING ACUTE ACCENT
+0x2A2B	0x04F8	#  Ӹ CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
+0x2A2C	0x042B 0x0301	#  Ы́ CYRILLIC CAPITAL LETTER YERU; COMBINING ACUTE ACCENT
+0x2A2D	0x0301 0x0404	#  ́Є COMBINING ACUTE ACCENT; CYRILLIC CAPITAL LETTER UKRAINIAN IE
+0x2A2E	0x04D8	#  Ә CYRILLIC CAPITAL LETTER SCHWA
+0x2A2F	0x04BC	#  Ҽ CYRILLIC CAPITAL LETTER ABKHASIAN CHE
+0x2A30	0x04BE	#  Ҿ CYRILLIC CAPITAL LETTER ABKHASIAN CHE WITH DESCENDER
+0x2A31	0x04A8	#  Ҩ CYRILLIC CAPITAL LETTER ABKHASIAN HA
+0x2A32	0x04AE 0x0301	#  Ү́ CYRILLIC CAPITAL LETTER STRAIGHT U; COMBINING ACUTE ACCENT
+0x2A33	0x04B0	#  Ұ CYRILLIC CAPITAL LETTER STRAIGHT U WITH STROKE
+0x2A37	0x0401 0x0301	#  Ё́ CYRILLIC CAPITAL LETTER IO; COMBINING ACUTE ACCENT
+0x2A38	0x04DA	#  Ӛ CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
+0x2A39	0x04E0	#  Ӡ CYRILLIC CAPITAL LETTER ABKHASIAN DZE
+0x2A3A	0x04C3	#  Ӄ CYRILLIC CAPITAL LETTER KA WITH HOOK
+0x2A3B	0x04EA	#  Ӫ CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
+0x2A40	0x0492	#  Ғ CYRILLIC CAPITAL LETTER GHE WITH STROKE
+0x2A41	0x04E8	#  Ө CYRILLIC CAPITAL LETTER BARRED O
+0x2A42	0x04C1	#  Ӂ CYRILLIC CAPITAL LETTER ZHE WITH BREVE
+0x2A43	0x04BA	#  Һ CYRILLIC CAPITAL LETTER SHHA
+0x2A46	0x04C7	#  Ӈ CYRILLIC CAPITAL LETTER EN WITH HOOK
+0x2A4B	0x0476	#  Ѷ CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+0x2A51	0x04B7	#  ҷ CYRILLIC SMALL LETTER CHE WITH DESCENDER
+0x2A52	0x04CC	#  ӌ CYRILLIC SMALL LETTER KHAKASSIAN CHE
+0x2A53	0x04B9	#  ҹ CYRILLIC SMALL LETTER CHE WITH VERTICAL STROKE
+0x2A54	0x044D 0x0301	#  э́ CYRILLIC SMALL LETTER E; COMBINING ACUTE ACCENT
+0x2A56	0x044E 0x0301	#  ю́ CYRILLIC SMALL LETTER YU; COMBINING ACUTE ACCENT
+0x2A58	0x044F 0x0301	#  я́ CYRILLIC SMALL LETTER YA; COMBINING ACUTE ACCENT
+0x2A5A	0x044A 0x0301	#  ъ́ CYRILLIC SMALL LETTER HARD SIGN; COMBINING ACUTE ACCENT
+0x2A5B	0x04F9	#  ӹ CYRILLIC SMALL LETTER YERU WITH DIAERESIS
+0x2A5C	0x044B 0x0301	#  ы́ CYRILLIC SMALL LETTER YERU; COMBINING ACUTE ACCENT
+0x2A5D	0x0454 0x0301	#  є́ CYRILLIC SMALL LETTER UKRAINIAN IE; COMBINING ACUTE ACCENT
+0x2A5E	0x04D9	#  ә CYRILLIC SMALL LETTER SCHWA
+0x2A5F	0x04BD	#  ҽ CYRILLIC SMALL LETTER ABKHASIAN CHE
+0x2A60	0x04BF	#  ҿ CYRILLIC SMALL LETTER ABKHASIAN CHE WITH DESCENDER
+0x2A61	0x04A9	#  ҩ CYRILLIC SMALL LETTER ABKHASIAN HA
+0x2A62	0x04AF 0x0301	#  ү́ CYRILLIC SMALL LETTER STRAIGHT U; COMBINING ACUTE ACCENT
+0x2A63	0x04B1	#  ұ CYRILLIC SMALL LETTER STRAIGHT U WITH STROKE
+0x2A67	0x0451 0x0301	#  ё́ CYRILLIC SMALL LETTER IO; COMBINING ACUTE ACCENT
+0x2A68	0x04DB	#  ӛ CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS
+0x2A69	0x04E1	#  ӡ CYRILLIC SMALL LETTER ABKHASIAN DZE
+0x2A6A	0x04C4	#  ӄ CYRILLIC SMALL LETTER KA WITH HOOK
+0x2A6B	0x04EB	#  ӫ CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS
+0x2A70	0x0493	#  ғ CYRILLIC SMALL LETTER GHE WITH STROKE
+0x2A71	0x04E9	#  ө CYRILLIC SMALL LETTER BARRED O
+0x2A72	0x04C2	#  ӂ CYRILLIC SMALL LETTER ZHE WITH BREVE
+0x2A73	0x04BB	#  һ CYRILLIC SMALL LETTER SHHA
+0x2A76	0x04C8	#  ӈ CYRILLIC SMALL LETTER EN WITH HOOK
+0x2A7B	0x0477	#  ѷ CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+0x2AA2	0x047A	#  Ѻ CYRILLIC CAPITAL LETTER ROUND OMEGA
+0x2AA8	0x0460	#  Ѡ CYRILLIC CAPITAL LETTER OMEGA
+0x2AAC	0x0464	#  Ѥ CYRILLIC CAPITAL LETTER IOTIFIED E
+0x2AAF	0x0466	#  Ѧ CYRILLIC CAPITAL LETTER LITTLE YUS
+0x2AB1	0x0468	#  Ѩ CYRILLIC CAPITAL LETTER IOTIFIED LITTLE YUS
+0x2AB2	0x046C	#  Ѭ CYRILLIC CAPITAL LETTER IOTIFIED BIG YUS
+0x2AB3	0x046E	#  Ѯ CYRILLIC CAPITAL LETTER KSI
+0x2AB4	0x0470	#  Ѱ CYRILLIC CAPITAL LETTER PSI
+0x2AB6	0x0480	#  Ҁ CYRILLIC CAPITAL LETTER KOPPA
+0x2ABF	0x047E	#  Ѿ CYRILLIC CAPITAL LETTER OT
+0x2AC0	0x047C	#  Ѽ CYRILLIC CAPITAL LETTER OMEGA WITH TITLO
+0x2AC7	0x0478	#  Ѹ CYRILLIC CAPITAL LETTER UK
+0x2AC8	0x0484	#  ҄ COMBINING CYRILLIC PALATALIZATION
+0x2ACD	0x0482	#  ҂ CYRILLIC THOUSANDS SIGN
+0x2AD2	0x047B	#  ѻ CYRILLIC SMALL LETTER ROUND OMEGA
+0x2AD7	0x0479	#  ѹ CYRILLIC SMALL LETTER UK
+0x2AD8	0x0461	#  ѡ CYRILLIC SMALL LETTER OMEGA
+0x2ADC	0x0465	#  ѥ CYRILLIC SMALL LETTER IOTIFIED E
+0x2ADF	0x0467	#  ѧ CYRILLIC SMALL LETTER LITTLE YUS
+0x2AE1	0x0469	#  ѩ CYRILLIC SMALL LETTER IOTIFIED LITTLE YUS
+0x2AE2	0x046D	#  ѭ CYRILLIC SMALL LETTER IOTIFIED BIG YUS
+0x2AE3	0x046F	#  ѯ CYRILLIC SMALL LETTER KSI
+0x2AE4	0x0471	#  ѱ CYRILLIC SMALL LETTER PSI
+0x2AE6	0x0481	#  ҁ CYRILLIC SMALL LETTER KOPPA
+0x2AEF	0x047F	#  ѿ CYRILLIC SMALL LETTER OT
+0x2AF0	0x047D	#  ѽ CYRILLIC SMALL LETTER OMEGA WITH TITLO
+0x2AF7	0x0483	#  ҃ COMBINING CYRILLIC TITLO

unicode/xerox/XCCS-56=UNKNOWN1.TXT

@@ -0,0 +1,50 @@
+#
+#          Name:             XCCS (XC-3-1-1-0) to Unicode
+#          Unicode version:  3.0
+#          XCCS charset:     56 UNKNOWN
+#          Table version:    0.1
+#          Table format:     Format A
+#          Date:             9-Aug-2021
+#          Author:           Ron Kaplan <Ron.Kaplan@post.harvard.edu>
+#
+#  This file contains mappings from the Xerox Character Code Standard (version
+#  XC1-3-3-0, 1987) into Unicode 3.0. standard codes.  That is the version of
+#  XCCS corresponding to the fonts in the Medley system.
+#
+#  The format of this file conforms to the format of the other Unicode-supplied
+#  mapping files:
+#    Three white-space (tab or spaces) separated columns:
+#       Column 1 is the XCCS code (as hex 0xXXXX)
+#       Column 2 is the corresponding Unicode (as hex 0xXXXX)
+#       Column 3 (after #) is a comment column. For convenience, it contains the
+#          Unicode character itself (since the Unicode character names
+#          are not available)
+#  Unicode FFFF is used for undefined XCCS codes (Column 3 = UNDEFINED
+#  Unicode FFFE is used for XCCS codes that have not yet been filled in.
+#  (Column 3 = MISSING)
+#
+#  This file is encoded in UTF8, so that the Unicode characters
+#  are properly displayed in Column 3 and can be edited by standard
+#  Unicode-enabled editors (e.g. Mac Textedit).
+#
+#  This file can also be read by the function
+#  READ-UNICODE-MAPPING in the UNICODE Medley library package.
+#
+#  The entries are in XCCS order and grouped by character sets.  In front of
+#  the mappings, for convenience, there is a line with the octal XCCS
+#  character set, after #.
+#
+#  Note that a given XCCS code might map to codes in several different Unicode
+#  positions, since there are repetitions in the Unicode standard.
+#
+#  For more details, see the associated README.TXT file.
+#
+#  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
+
+
+#   "56" UNKNOWN
+0x2E21	0x2500	#  ─ BOX DRAWINGS LIGHT HORIZONTAL
+0x2E22	0x23AF	#  ⎯ HORIZONTAL LINE EXTENSION
+0x2E23	0x2501	#  ━ BOX DRAWINGS HEAVY HORIZONTAL
+0x2E33	0xFE37	#  ︷ PRESENTATION FORM FOR VERTICAL LEFT CURLY BRACKET
+0x2E34	0xFE38	#  ︸ PRESENTATION FORM FOR VERTICAL RIGHT CURLY BRACKET