initial checkin for misc files

unicode tables

Author: masinter

duplicates.csv

@@ -0,0 +1 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "22-Aug-2020 18:08:21" {DSK}<Users>larry>medley>current>LOCAL-INIT.;44
 10433        changes to%:  (VARS LOCAL-INITCOMS)                    (FNS INTERLISPMODE LOCAL-INIT LoadPatches COLLECT-PATCH-FILES FIXMETA)      previous date%: "22-Aug-2020 17:44:27" {DSK}<Users>larry>medley>current>LOCAL-INIT.;43)(PRETTYCOMPRINT LOCAL-INITCOMS)(RPAQQ LOCAL-INITCOMS
       [        (* ;; "Local (Mac)  system greeting file")
        (FNS INTERLISPMODE)        (VARS (COMPILEIGNOREDECL T)              (MEDLEYDIR (UNIX-GETENV "MEDLEYDIR"))              (SITE 'LOCAL-MAC))        (P (BKSYSBUF " ")                                                             (* ; 
                                                       "So tty window doesn't hang during greeting")
           (INTERLISPMODE)           (DEFCOMMAND ("show" :QUIET)                  (&REST EVENTSPEC)                  (CL:PPRINT (VALUOF EVENTSPEC T)                         T)))        (FNS LOCAL-INIT LoadPatches COLLECT-PATCH-FILES FIXMETA)        (P (FIXMETA))        (FUNCTIONS WITHOUT.PAGEHOLD)        (VARS (LISPUSERSDIRECTORIES (LIST (CONCAT MEDLEYDIR "/lispusers")                                          (CONCAT MEDLEYDIR "/library")))              (LISPSOURCEDIRECTORIES (LIST (CONCAT MEDLEYDIR "/sources")))              (DIRECTORIES (APPEND (CONS (CONCAT MEDLEYDIR "/patches"))                                  LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))              (LOCALPATCHDIRECTORY (CONCAT MEDLEYDIR "/patches")))        [VARS (USERGREETFILES '(({DSK}/Users/ USER /Lisp/INIT.LCOM)                                ({DSK}/Users/ USER /Lisp/INIT.DFASLs)                                ({DSK}/Users/ USER /Lisp/INIT]        [VARS (*USEOLDFONTDIRECTORIES* NIL)              [DISPLAYFONTDIRECTORIES (LIST (CONCAT MEDLEYDIR '/fonts/displayfonts)                                            (CONCAT MEDLEYDIR '/fonts/altofonts]              [INTERPRESSFONTDIRECTORIES (LIST (CONCAT MEDLEYDIR '/fonts/ipfonts]              (POSTSCRIPTFONTDIRECTORIES (LIST (CONCAT MEDLEYDIR '/fonts/postscriptfonts]        (DECLARE%: DONTEVAL@LOAD DOCOPY (P (LOCAL-INIT)                                                             (* ; 
                                                           "(SETQ USERNAME (UNIX-GETENV %"USER%"))")
                                           )                                                             (* ; "To get personal greeting to work, since GREET computes the USERNAME before USERNAMEPATCH is loaded.")
               )        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)                                                                             (NLAML)                                                                             (LAMA])(* ;; "Local (Mac)  system greeting file")
(DEFINEQ(INTERLISPMODE
  [LAMBDA (OLD?)                                             (* N.H.Briggs " 2-Feb-88 14:26")
    (PROCESSPROP 'EXEC 'PROFILE (XCL:COPY-PROFILE (if
 OLD?                                                      then
 "OLD-INTERLISP-T"                                                    else
 "INTERLISP")))    (XCL:SET-DEFAULT-EXEC-TYPE (if
 OLD?                                   then
 "OLD-INTERLISP-T"                                 else
 "INTERLISP"))    (SETQ *DEFAULT-MAKEFILE-ENVIRONMENT* (LIST :READTABLE (if
 OLD?                                                              then
 "OLD-INTERLISP-FILE"                                                            else
 "INTERLISP")                                               :PACKAGE "INTERLISP"]))(RPAQQ COMPILEIGNOREDECL
 T)(RPAQ MEDLEYDIR
 (UNIX-GETENV "MEDLEYDIR"))(RPAQQ SITE
 LOCAL-MAC)(BKSYSBUF " ")                                                             (* ; 
                                                       "So tty window doesn't hang during greeting")
(INTERLISPMODE
)(DEFCOMMAND ("show" :QUIET) (&REST EVENTSPEC) (CL:PPRINT (VALUOF EVENTSPEC T)                                                     T))(DEFINEQ(LOCAL-INIT
  [LAMBDA NIL    (DECLARE
 (GLOBALVARS MAKESYSNAME LOCALPATCHDIRECTORY))                                                             (* ; 
                                                           "Edited 14-Jun-2017 14:45 by kaplan")
                                                             (* ; 
                                                           "Edited 14-Jun-2017 11:15 by kaplan")
    (* ;; "This is what gets called when LOCAL-INIT is loaded.")
    (BKSYSBUF " ")    (* ;; "do the real work")
    (WITHOUT.PAGEHOLD
 (WFROMDS (GETSTREAM T 'OUTPUT))           (CL:WHEN LOCALPATCHDIRECTORY               (LoadPatches
 LOCALPATCHDIRECTORY 'SYSLOAD MAKESYSDATE))])(LoadPatches
  [LAMBDA (DIRECTORY LDFLG AFTERDATE)                        (* ; "Edited  7-Feb-92 11:50 by bbb")
(* ;;; "Load all compiled files from the directory")
    (DECLARE
 (GLOBALVARS *COMPILED-EXTENSIONS*))    (LET [(files (SORT (for
 EXT in
 *COMPILED-EXTENSIONS*                          bind
 (AFTERIDATE _ (if
 AFTERDATE                                                     then
 (OR (IDATE AFTERDATE)                                                                  0)                                                   else
 0)) join
 (COLLECT-PATCH-FILES
                                                                          (DIRECTORYNAME DIRECTORY)                                                                          EXT AFTERIDATE))                       (FUNCTION (LAMBDA (X Y)                                   (LESSP (CDR X)                                          (CDR Y]            (* ; 
                                                           "files are sorted by increasing date")
         (for
 file in
 files do
 (SELECTQ LDFLG                                               (HIDDEN       (* ; 
                                                       "Load the file, but don't put it on FILELST")
                                                       (LOAD? (CAR file)                                                              T)                                                       (SETQ FILELST (DREMOVE (FILENAMEFIELD                                                                               (CAR file)                                                                               'NAME)                                                                            FILELST)))                                               (LOAD? (CAR file)                                                      LDFLG)))         files])(COLLECT-PATCH-FILES
  [LAMBDA (DIRECTORY EXT AFTERIDATE)                         (* ; "Edited  7-Feb-92 11:49 by bbb")
    (* ;; "Generate list of files in DIRECTORY with extension EXT more recent than idate AFTERIDATE.  Return list of pairs (file . date).  Omits subdirectories.")
    (RESETLST        (LET ((FILING.ENUMERATION.DEPTH 1)              (NAKED-DIR (UNPACKFILENAME.STRING DIRECTORY 'DIRECTORY))              FILE DATE)             (bind
 [GEN _ (\GENERATEFILES (CONCAT DIRECTORY "*." EXT ";")                                     '(ICREATIONDATE)                                     '(SORT RESETLST] while
 (SETQ FILE (\GENERATENEXTFILE GEN))                when
 (AND (STRING-EQUAL (UNPACKFILENAME.STRING FILE 'DIRECTORY)                                     NAKED-DIR)                              (> (SETQ DATE (\GENERATEFILEINFO GEN 'ICREATIONDATE))                                 AFTERIDATE)) collect
 (CONS FILE DATE))))])(FIXMETA
  [LAMBDA NIL                                                (* ; 
                                                           "Edited 25-Jun-2017 17:12 by rmk:")
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)           \CURRENTKEYACTION)    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP]))(FIXMETA
)(DEFMACRO WITHOUT.PAGEHOLD
 (WINDOW &BODY FORMS)   `(RESETLST        (LET* ((TTYWINDOW ,WINDOW)               (ORIGINAL.PAGEFULLFN (WINDOWPROP TTYWINDOW 'PAGEFULLFN))               (NEW.PAGEFULLFN (FUNCTION NILL)))              (RESETSAVE (WINDOWPROP TTYWINDOW 'PAGEFULLFN NEW.PAGEFULLFN)                     (LIST [FUNCTION (LAMBDA (TTYWINDOW NEW.PAGEFULLFN ORIGINAL.PAGEFULLFN)                                       (COND                                          ((EQ (WINDOWPROP TTYWINDOW 'PAGEFULLFN)                                               NEW.PAGEFULLFN)                                           (WINDOWPROP TTYWINDOW 'PAGEFULLFN ORIGINAL.PAGEFULLFN]                           TTYWINDOW NEW.PAGEFULLFN ORIGINAL.PAGEFULLFN)))        ,@FORMS))(RPAQ LISPUSERSDIRECTORIES
 (LIST (CONCAT MEDLEYDIR "/lispusers")                                     (CONCAT MEDLEYDIR "/library")))(RPAQ LISPSOURCEDIRECTORIES
 (LIST (CONCAT MEDLEYDIR "/sources")))(RPAQ DIRECTORIES
 (APPEND (CONS (CONCAT MEDLEYDIR "/patches"))                             LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))(RPAQ LOCALPATCHDIRECTORY
 (CONCAT MEDLEYDIR "/patches"))(RPAQQ USERGREETFILES
 (({DSK}/Users/ USER /Lisp/INIT.LCOM)                           ({DSK}/Users/ USER /Lisp/INIT.DFASLs)                           ({DSK}/Users/ USER /Lisp/INIT)))(RPAQQ *USEOLDFONTDIRECTORIES*
 NIL)(RPAQ DISPLAYFONTDIRECTORIES
 (LIST (CONCAT MEDLEYDIR '/fonts/displayfonts)                                       (CONCAT MEDLEYDIR '/fonts/altofonts)))(RPAQ INTERPRESSFONTDIRECTORIES
 (LIST (CONCAT MEDLEYDIR '/fonts/ipfonts)))(RPAQ POSTSCRIPTFONTDIRECTORIES
 (LIST (CONCAT MEDLEYDIR '/fonts/postscriptfonts)))(DECLARE%: DONTEVAL@LOAD DOCOPY (LOCAL-INIT
)                                                             (* ; 
                                                           "(SETQ USERNAME (UNIX-GETENV %"USER%"))")
)(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA
 )(ADDTOVAR NLAML
 )(ADDTOVAR LAMA
 ))(PUTPROPS LOCAL-INIT COPYRIGHT (NONE))(DECLARE%: DONTCOPY  (FILEMAP (NIL (2980 3805 (INTERLISPMODE 2990 . 3803)) (4265 8252 (LOCAL-INIT 4275 . 5012) (LoadPatches 5014 . 6962) (COLLECT-PATCH-FILES 6964 . 7941) (FIXMETA 7943 . 8250)))))STOP

initfiles/LOCAL-INIT

@@ -0,0 +1,20 @@
+This Unicode directory contains mapping files extracted from the CDROM that came with the Unicode 3.0 book (2000).
+
+The Xerox subdirectory contains mappings from the Xerox character encoding (version XC1-3-3-0, 1887) into Unicode 3.0.   standard into Unicode.  That is the version of XCCS corresponding to the fonts in the Medley system.  The Xerox mappings did not come from the Unicode CDROM, they were constructed by combining and constrasting information from a binary file (xerox>XCCStoUni) of unknown provenance with code mappings scraped from the Wikipedia page https://en.wikipedia.org/wiki/Xerox_Character_Code_Standard in July 2020.  Both sources were errorful and incomplete, so many of the mappings were hand corrected.  There are still missing mappings, and there still may be errors.
+
+EASTASIA:
+	CJK cross reference mappings for standards such as KSC5601,
+	GB2312, JIS0208, etc. to Unicode 2.0.
+
+ISO8859:
+	These are the mapping tables of the ISO 8859 series (1 through 9)
+
+VENDORS:
+	Miscellaneous mapping tables for small codesets, typically provided
+	by vendors.
+
+TCVN:
+	Chu Nom mapping & database.
+
+
+Always consult www.unicode.org for updates and changes to these files.