Compare commits
35 Commits
fgh_new-li
...
medley-240
| Author | SHA1 | Date | |
|---|---|---|---|
|
174bbe8e14 | ||
|
d48bd9f77a | ||
|
76a6e26faa | ||
|
f8521c612e | ||
|
|
de7a1e1deb | ||
|
|
49cb172e3d | ||
|
|
cedc8d1e11 | ||
|
|
496fa408c2 | ||
|
|
60e390789c | ||
|
|
4dec18527e | ||
|
|
3ca4495c76 | ||
|
|
6eeccb40cb | ||
|
|
2647d98f8f | ||
|
|
b52015e71d | ||
|
|
39ee2ecb5d | ||
|
|
a90b7ed73d | ||
|
54b2607070 | ||
|
|
971e8936b6 | ||
|
|
e276460836 | ||
|
|
ab818ff335 | ||
|
|
47d77542be | ||
|
|
934d0fb7a4 | ||
|
|
6420bdcf27 | ||
|
|
1d6e43e1ea | ||
|
|
8837c61f85 | ||
|
|
18aae01362 | ||
|
|
a84242561a | ||
|
|
70885c5a19 | ||
|
|
57de705f39 | ||
|
|
7c3fa261c7 | ||
|
|
7fe4d2dcca | ||
|
|
30a4697d75 | ||
|
|
60a766574d | ||
|
25a18f6bc0 | ||
|
|
6558a49adb |
@@ -1,5 +1,5 @@
|
||||
See [Documentation links](https://github.com/Interlisp/medley/wiki/Documentation)
|
||||
a complete list of available documentation. Much of the documentation still
|
||||
See [Using Medley](https://interlisp.org/software/using-medley)
|
||||
for a list of available documentation. Much of the documentation still
|
||||
needs review and updating.
|
||||
|
||||
This directory has source (.TEDIT) for some documents that are found elsewhere.
|
||||
|
||||
@@ -1,11 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "16-Jun-2023 17:20:09" {DSK}<home>frank>il>medley>gmedley>greetfiles>APPS-INIT.;11 21130
|
||||
(FILECREATED "25-Feb-2024 13:56:23" {DSK}<home>frank>il>medley>gmedley>greetfiles>APPS-INIT.;17 23321
|
||||
|
||||
:CHANGES-TO (FNS Apps.DoInit)
|
||||
:CHANGES-TO (VARS APPS-INITCOMS)
|
||||
(FNS Apps.DoInit Apps.AroundExitFn)
|
||||
|
||||
:PREVIOUS-DATE "19-Jan-2023 12:44:20"
|
||||
{DSK}<home>frank>il>medley>gmedley>greetfiles>APPS-INIT.;10)
|
||||
:PREVIOUS-DATE "25-Feb-2024 13:14:02"
|
||||
{DSK}<home>frank>il>medley>gmedley>greetfiles>APPS-INIT.;16)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT APPS-INITCOMS)
|
||||
@@ -16,8 +17,9 @@
|
||||
(GLOBALVARS Apps.NotecardsActivated Apps.RoomsActivated)
|
||||
(INITVARS (Apps.NotecardsActivated NIL)
|
||||
(Apps.RoomsActivated NIL))
|
||||
(FNS Apps.InitNotecards Apps.DoInit Apps.CreateButtons Apps.CreateLabel Apps.ActivateCLOS
|
||||
Apps.ActivateRooms Apps.ShowDoc XCL-USER::EXEC_INTERLISP)
|
||||
(FNS Apps.InitNotecards Apps.SetUpNOTECARDSDIRECTORIES Apps.DoInit Apps.CreateButtons
|
||||
Apps.CreateLabel Apps.ActivateCLOS Apps.ActivateRooms Apps.ShowDoc
|
||||
XCL-USER::EXEC_INTERLISP Apps.AroundExitFn)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (Apps.DoInit)))
|
||||
(DECLARE%: FIRST DONTEVAL@LOAD DOCOPY (P (BKSYSBUF " "])
|
||||
|
||||
@@ -90,6 +92,33 @@
|
||||
(if (NOT DoNotRefreshButtons)
|
||||
then (Apps.CreateButtons])
|
||||
|
||||
(Apps.SetUpNOTECARDSDIRECTORIES
|
||||
[LAMBDA NIL
|
||||
|
||||
(* ;; "Find the location of the Notecards directory and call NC.SetUpNOTECARDSDIRECTORIES.")
|
||||
|
||||
(* ;; " This is needed to make sure that lazy loading of Notecard types works.")
|
||||
|
||||
(LET* [(LOC1 (CONCAT MEDLEYDIR "notecards>"))
|
||||
(LOC2 (CONCAT MEDLEYDIR "..>notecards>"))
|
||||
(LOC3 (CONCAT MEDLEYDIR "..>..>notecards>"))
|
||||
(NCDIR (for LOC in (LIST LOC1 LOC2 LOC3) thereis (OR (INFILEP (CONCAT LOC
|
||||
"system>NOTECARDS"))
|
||||
(INFILEP (CONCAT LOC
|
||||
"system>NOTECARDS.LCOM"
|
||||
]
|
||||
(if NCDIR
|
||||
then [SETQ NCDIR (OR (INFILEP (CONCAT NCDIR "system>NOTECARDS"))
|
||||
(INFILEP (CONCAT NCDIR "system>NOTECARDS.LCOM"]
|
||||
(SETQ NCDIR (SUBSTRING NCDIR 1 (IDIFFERENCE (STRPOS "system>NOTECARDS" NCDIR)
|
||||
1)))
|
||||
(NC.SetUpNOTECARDSDIRECTORIES NCDIR)
|
||||
T
|
||||
else (PRIN1 "Warning: Notecards directory could not be found." T)
|
||||
(PRIN1 "Hence, NOTECARDSDIRECTORIES is probably not set correctly" T)
|
||||
(PRIN1 "and Notecards will not work properly." T)
|
||||
NIL])
|
||||
|
||||
(Apps.DoInit
|
||||
[LAMBDA NIL
|
||||
|
||||
@@ -173,7 +202,16 @@
|
||||
|
||||
(* ;; " Make sure Notecards doesn't try to load its HASH file in NC.PostGreet")
|
||||
|
||||
(SETTOPVAL '\NC.SourceAccessFlg NIL])
|
||||
(SETTOPVAL '\NC.SourceAccessFlg NIL)
|
||||
|
||||
(* ;; "Setup NOTECARDSDIRECTORIES.")
|
||||
|
||||
(Apps.SetUpNOTECARDSDIRECTORIES)
|
||||
|
||||
(* ;; "Add AROUNDEXITFN to ensure NOTECARDSDIRECTORIES get reset after LOGOUT, etc.")
|
||||
|
||||
(SETQ AROUNDEXITFNS (LSUBST '(MEDLEY-INIT-VARS Apps.AroundExitFn)
|
||||
'MEDLEY-INIT-VARS AROUNDEXITFNS])
|
||||
|
||||
(Apps.CreateButtons
|
||||
[LAMBDA (DoDocsToo) (* ; "Edited 13-Dec-2022 12:51 by frank")
|
||||
@@ -366,6 +404,11 @@
|
||||
YCOORD _ (IDIFFERENCE SCREENHEIGHT 460]
|
||||
(XCL:SET-DEFAULT-EXEC-TYPE 'INTERLISP)
|
||||
(XCL:SET-EXEC-TYPE 'INTERLISP])
|
||||
|
||||
(Apps.AroundExitFn
|
||||
[LAMBDA (EVENT)
|
||||
(if (MEMB EVENT '(AFTERLOGOUT AFTERSYSOUT AFTERSAVEVM))
|
||||
then (Apps.SetUpNOTECARDSDIRECTORIES])
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
@@ -376,8 +419,8 @@
|
||||
(BKSYSBUF " ")
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1109 20996 (Apps.InitNotecards 1119 . 4981) (Apps.DoInit 4983 . 8227) (
|
||||
Apps.CreateButtons 8229 . 17053) (Apps.CreateLabel 17055 . 17865) (Apps.ActivateCLOS 17867 . 19216) (
|
||||
Apps.ActivateRooms 19218 . 20069) (Apps.ShowDoc 20071 . 20220) (XCL-USER::EXEC_INTERLISP 20222 . 20994
|
||||
)))))
|
||||
(FILEMAP (NIL (1229 23187 (Apps.InitNotecards 1239 . 5101) (Apps.SetUpNOTECARDSDIRECTORIES 5103 . 6658
|
||||
) (Apps.DoInit 6660 . 10257) (Apps.CreateButtons 10259 . 19083) (Apps.CreateLabel 19085 . 19895) (
|
||||
Apps.ActivateCLOS 19897 . 21246) (Apps.ActivateRooms 21248 . 22099) (Apps.ShowDoc 22101 . 22250) (
|
||||
XCL-USER::EXEC_INTERLISP 22252 . 23024) (Apps.AroundExitFn 23026 . 23185)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,14 +1,16 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "27-Oct-2021 10:55:18" {DSK}<home>larry>medley>library>DATABASEFNS.;7 16051
|
||||
(FILECREATED "20-Feb-2024 23:45:56" {DSK}<mnt>e>Interlisp>medley>library>DATABASEFNS.;4 18445
|
||||
|
||||
changes to%: (FNS DUMPDB)
|
||||
:EDIT-BY "mth"
|
||||
|
||||
previous date%: "24-Oct-2021 20:18:51" {DSK}<home>larry>medley>library>DATABASEFNS.;6)
|
||||
:CHANGES-TO (FNS DUMPDB)
|
||||
|
||||
:PREVIOUS-DATE "19-Feb-2024 16:29:44" {DSK}<mnt>e>Interlisp>medley>library>DATABASEFNS.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1986, 1990-1993 by Xerox Corporation.
|
||||
Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT DATABASEFNSCOMS)
|
||||
@@ -31,7 +33,8 @@ Copyright (c) 1986, 1990-1993 by Xerox Corporation.
|
||||
(INITVARS (LOADDBFLG 'ASK)
|
||||
(SAVEDBFLG 'ASK))
|
||||
(ADDVARS (MAKEFILEFORMS (MAKEDB FILE)))
|
||||
(INITVARS (MSFILETABLE))
|
||||
(INITVARS (MSFILETABLE)
|
||||
(DEFAULTDATABASECOPYRIGHTOWNER 'NEVER))
|
||||
(* ; "To permit MSHASH interface")
|
||||
(LOCALVARS . T)
|
||||
(BLOCKS (LOADDB LOADDB DBFILE DBFILE1 DBFILE2 (NOLINKFNS . T)))
|
||||
@@ -161,52 +164,85 @@ Copyright (c) 1986, 1990-1993 by Xerox Corporation.
|
||||
(DEFINEQ
|
||||
|
||||
(DUMPDB
|
||||
[LAMBDA (FILE PROPFLG) (* ;
|
||||
"Edited 27-Oct-2021 10:51 by larry")
|
||||
(* ;
|
||||
"Edited 24-Oct-2021 16:24 by rmk:")
|
||||
[LAMBDA (FILE PROPFLG) (* ; "Edited 20-Feb-2024 23:45 by mth")
|
||||
(* ; "Edited 7-Feb-2024 18:26 by mth")
|
||||
(* ; "Edited 27-Oct-2021 10:51 by larry")
|
||||
(* ; "Edited 24-Oct-2021 16:24 by rmk:")
|
||||
|
||||
(* ;; "Dumps a Masterscope database for functions in FILE. Checks the DATABASE property if PROPFLG=T which is how the MAKEFILE advice calls it. A user-level call would default PROPFLG to NIL.")
|
||||
|
||||
(* ;;
|
||||
"The FILE check is because MAKEFILE returns a list when it doesn't understand the options")
|
||||
(* ;; "The FILE check is because MAKEFILE returns a list when it doesn't understand the options")
|
||||
|
||||
(DECLARE (GLOBALVARS MSFILETABLE SAVEDBFLG))
|
||||
(DECLARE (GLOBALVARS MSFILETABLE SAVEDBFLG COPYRIGHTFLG DEFAULTCOPYRIGHTOWNER)
|
||||
(SPECVARS DEFAULTDATABASECOPYRIGHTOWNER))
|
||||
(CL:WHEN (AND FILE (OR (LITATOM FILE)
|
||||
(STRINGP FILE)))
|
||||
(PROG (DBFILE (FL (NAMEFIELD FILE))
|
||||
(FNS (FILEFNSLST FILE)))
|
||||
(COND
|
||||
(FNS)
|
||||
((AND MSFILETABLE (TESTTABLE FL (CADR MSFILETABLE)))
|
||||
(LET ((SAVEDCOPYRIGHTFLG COPYRIGHTFLG)
|
||||
(SAVEDDEFAULTCOPYRIGHTOWNER DEFAULTCOPYRIGHTOWNER))
|
||||
(CL:UNWIND-PROTECT
|
||||
(PROG (DBFILE DBFN DBROOTFN FLCPR (FL (NAMEFIELD FILE))
|
||||
(FNS (FILEFNSLST FILE)))
|
||||
(SETQ DBFN (PACKFILENAME 'EXTENSION 'DATABASE 'VERSION NIL 'BODY FILE))
|
||||
(SETQ DBROOTFN (ROOTFILENAME DBFN))
|
||||
(CL:UNLESS (OR (EQ COPYRIGHTFLG 'NEVER)
|
||||
(NULL DEFAULTDATABASECOPYRIGHTOWNER)
|
||||
(GETPROP DBROOTFN 'COPYRIGHT))
|
||||
(SELECTQ DEFAULTDATABASECOPYRIGHTOWNER
|
||||
((NONE NEVER)
|
||||
(* ;;
|
||||
"Set the COPYRIGHT to NONE (I.e., never mention it again.)")
|
||||
|
||||
(/PUT DBROOTFN 'COPYRIGHT (LIST 'NONE)))
|
||||
(SAME
|
||||
(* ;;
|
||||
"Same as the source file. If it doesn't have one, then just normal handling")
|
||||
|
||||
(CL:WHEN (SETQ FLCPR (GETPROP FL 'COPYRIGHT))
|
||||
(/PUT DBROOTFN 'COPYRIGHT (LIST (CAR FLCPR)))))
|
||||
(DEFAULT
|
||||
(* ;; "Use the general default for copyright")
|
||||
|
||||
(SETQ COPYRIGHTFLG 'DEFAULT))
|
||||
(PROGN (SETQ COPYRIGHTFLG 'DEFAULT)
|
||||
|
||||
(* ;;
|
||||
"Hopefully, DEFAULTDATABASECOPYRIGHTOWNER is one of the COPYRIGHTOWNERS keys")
|
||||
|
||||
(SETQ DEFAULTCOPYRIGHTOWNER DEFAULTDATABASECOPYRIGHTOWNER))))
|
||||
(COND
|
||||
(FNS)
|
||||
((AND MSFILETABLE (TESTTABLE FL (CADR MSFILETABLE)))
|
||||
(* ;
|
||||
"Always dump if this is a known file")
|
||||
(SETQ PROPFLG NIL))
|
||||
(T (COND
|
||||
(PROPFLG (/REMPROP FL 'DATABASE))
|
||||
(T (printout T T FILE " has no functions." T)))
|
||||
(RETURN)))
|
||||
(CL:WHEN [OR (NULL PROPFLG)
|
||||
(EQ (GETPROP FL 'DATABASE)
|
||||
'YES)
|
||||
(EQ SAVEDBFLG 'YES)
|
||||
(AND MSFILETABLE (TESTTABLE FL (CADR MSFILETABLE]
|
||||
(CL:WHEN MSFILETABLE
|
||||
[STORETABLE FL MSFILETABLE (CAR (GETPROP FL 'FILEDATES])
|
||||
[SETQ DBFILE (PRETTYDEF NIL (PACKFILENAME 'EXTENSION 'DATABASE 'VERSION NIL
|
||||
'BODY FILE)
|
||||
`((P (PROGN (PRIN1 "Use LOADDB to load database files!" T)
|
||||
(ERROR!)))
|
||||
(E [PRINT (CAR (GETPROP ',FILE 'FILEDATES]
|
||||
(DUMPDATABASE ',FNS]
|
||||
[COND
|
||||
(PROPFLG (PRINT (FULLNAME DBFILE)
|
||||
T))
|
||||
(T (/PUT FL 'DATABASEFILENAME DBFILE) (* ;
|
||||
"Remember that we have this file valid already.")
|
||||
(/PUT FL 'DATABASE 'YES] (* ;
|
||||
"Take future note of the databae on a user call")
|
||||
(RETURN DBFILE))))])
|
||||
"Always dump if this is a known file")
|
||||
(SETQ PROPFLG NIL))
|
||||
(T (COND
|
||||
(PROPFLG (/REMPROP FL 'DATABASE))
|
||||
(T (printout T T FILE " has no functions." T)))
|
||||
(RETURN)))
|
||||
(CL:WHEN [OR (NULL PROPFLG)
|
||||
(EQ (GETPROP FL 'DATABASE)
|
||||
'YES)
|
||||
(EQ SAVEDBFLG 'YES)
|
||||
(AND MSFILETABLE (TESTTABLE FL (CADR MSFILETABLE]
|
||||
(CL:WHEN MSFILETABLE
|
||||
[STORETABLE FL MSFILETABLE (CAR (GETPROP FL 'FILEDATES])
|
||||
[SETQ DBFILE
|
||||
(PRETTYDEF NIL DBFN
|
||||
`((P (PROGN (PRIN1 "Use LOADDB to load database files!" T)
|
||||
(ERROR!)))
|
||||
(E [PRINT (CAR (GETPROP ',FILE 'FILEDATES]
|
||||
(DUMPDATABASE ',FNS]
|
||||
[COND
|
||||
(PROPFLG (PRINT (FULLNAME DBFILE)
|
||||
T))
|
||||
(T (/PUT FL 'DATABASEFILENAME DBFILE)
|
||||
(* ;
|
||||
"Remember that we have this file valid already.")
|
||||
(/PUT FL 'DATABASE 'YES] (* ;
|
||||
"Take future note of the database on a user call")
|
||||
(RETURN DBFILE))))
|
||||
(SETQ COPYRIGHTFLG SAVEDCOPYRIGHTFLG)
|
||||
(SETQ DEFAULTCOPYRIGHTOWNER SAVEDDEFAULTCOPYRIGHTOWNER)))])
|
||||
|
||||
(LOADDB
|
||||
[LAMBDA (FILE ASKFLAG) (* ; "Edited 24-Oct-2021 17:44 by rmk:")
|
||||
@@ -321,6 +357,8 @@ Copyright (c) 1986, 1990-1993 by Xerox Corporation.
|
||||
|
||||
(RPAQ? MSFILETABLE )
|
||||
|
||||
(RPAQ? DEFAULTDATABASECOPYRIGHTOWNER 'NEVER)
|
||||
|
||||
|
||||
|
||||
(* ; "To permit MSHASH interface")
|
||||
@@ -337,9 +375,9 @@ Copyright (c) 1986, 1990-1993 by Xerox Corporation.
|
||||
|
||||
(RESETSAVE DWIMIFYCOMPFLG T)
|
||||
)
|
||||
(PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993))
|
||||
(PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993 2024))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1679 6704 (DBFILE 1689 . 3334) (DBFILE1 3336 . 4846) (DBFILE2 4848 . 6070) (LOAD 6072
|
||||
. 6302) (LOADFROM 6304 . 6492) (MAKEFILE 6494 . 6702)) (6760 15499 (DUMPDB 6770 . 9534) (LOADDB 9536
|
||||
. 14411) (MAKEDB 14413 . 15497)))))
|
||||
(FILEMAP (NIL (1768 6793 (DBFILE 1778 . 3423) (DBFILE1 3425 . 4935) (DBFILE2 4937 . 6159) (LOAD 6161
|
||||
. 6391) (LOADFROM 6393 . 6581) (MAKEFILE 6583 . 6791)) (6849 17838 (DUMPDB 6859 . 11873) (LOADDB
|
||||
11875 . 16750) (MAKEDB 16752 . 17836)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -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
|
||||
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
164
library/SPY
164
library/SPY
@@ -1,13 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "28-Jul-2023 20:13:45" {DSK}<home>larry>il>medley>library>SPY.;4 64149
|
||||
(FILECREATED "27-Feb-2024 20:25:02" {DSK}<home>larry>il>medley>SPY.;1 53724
|
||||
|
||||
:EDIT-BY "lmm"
|
||||
|
||||
:CHANGES-TO (VARS SPYCOMS)
|
||||
(FNS \SPY.INTERRUPT SPY.BUFFER.ENTRY SPY.ADD.ENTRY)
|
||||
:CHANGES-TO (RECORDS FX)
|
||||
(VARS SPYOBJCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 4-Jan-2022 14:09:48" {DSK}<home>larry>il>medley>library>SPY.;1)
|
||||
:PREVIOUS-DATE "28-Jul-2023 20:13:45" {DSK}<home>larry>il>medley>library>SPY.;1)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT SPYCOMS)
|
||||
@@ -114,7 +114,7 @@
|
||||
(FUNCTION SPYOBJ.BUTTON)
|
||||
(FUNCTION SPYOBJ.COPYIN)
|
||||
NIL NIL NIL NIL NIL NIL 'SPYNODE]
|
||||
(DECLARE%: DONTCOPY DOEVAL@COMPILE (RECORDS FX SPYOBJDATA))
|
||||
(DECLARE%: DONTCOPY DOEVAL@COMPILE (RECORDS SPYOBJDATA))
|
||||
(INITRECORDS SPYOBJDATA)))
|
||||
(DEFINEQ
|
||||
|
||||
@@ -189,134 +189,6 @@
|
||||
(DECLARE%: DONTCOPY DOEVAL@COMPILE
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(ACCESSFNS FX ((FXBLOCK (ADDSTACKBASE DATUM))) (* ; "frame extension index")
|
||||
(BLOCKRECORD FXBLOCK ((FLAGS BITS 3) (* ; "= \STK.FX")
|
||||
(FAST FLAG)
|
||||
(NIL FLAG)
|
||||
(INCALL FLAG) (* ;
|
||||
"set when fncall microcode has to punt")
|
||||
(VALIDNAMETABLE FLAG) (* ;
|
||||
"if on, NAMETABLE field is filled in. If off, is same as FNHEADER")
|
||||
(NOPUSH FLAG) (* ;
|
||||
"when returning to this frame, don't push a value. Set by interrupt code")
|
||||
(USECNT BITS 8)
|
||||
(%#ALINK WORD) (* ; "low bit is SLOWP")
|
||||
(FNHEADER FULLXPOINTER)
|
||||
(NEXTBLOCK WORD)
|
||||
(PC WORD)
|
||||
(NAMETABLE# FULLXPOINTER)
|
||||
(%#BLINK WORD)
|
||||
(%#CLINK WORD)))
|
||||
(BLOCKRECORD FXBLOCK ((FLAGBYTE BYTE)
|
||||
(NIL BYTE)
|
||||
(NIL BITS 15) (* ; "most of the bits of #ALINK")
|
||||
(SLOWP FLAG) (* ;
|
||||
"if on, then BLINK and CLINK fields are valid. If off, they are implicit")
|
||||
(NIL FULLXPOINTER 2)
|
||||
(NAMETABHI WORD)
|
||||
(NAMETABLO WORD)))
|
||||
(TYPE? (IEQ (fetch (FX FLAGS) of DATUM)
|
||||
\STK.FX))
|
||||
[ACCESSFNS FX ((NAMETABLE (COND
|
||||
((fetch (FX VALIDNAMETABLE) of DATUM)
|
||||
(fetch (FX NAMETABLE#) of DATUM))
|
||||
(T (fetch (FX FNHEADER) of DATUM)))
|
||||
(PROGN (replace (FX FAST) of DATUM with NIL)
|
||||
(replace (FX NAMETABLE#) of DATUM with NEWVALUE)
|
||||
(replace (FX VALIDNAMETABLE) of DATUM with T)))
|
||||
(FRAMENAME (fetch (FNHEADER FRAMENAME) of (fetch (FX NAMETABLE)
|
||||
of DATUM)))
|
||||
(INVALIDP (EQ DATUM 0)) (* ;
|
||||
"true when A/CLink points at nobody, i.e. FX is bottom of stack")
|
||||
[FASTP (NOT (fetch (FX SLOWP) of DATUM))
|
||||
(PROGN (CHECK (NULL NEWVALUE))
|
||||
(COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#BLINK) of DATUM
|
||||
with (fetch (FX DUMMYBF) of DATUM))
|
||||
(replace (FX %#CLINK) of DATUM
|
||||
with (fetch (FX %#ALINK) of DATUM))
|
||||
(replace (FX SLOWP) of DATUM with T]
|
||||
[BLINK (COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(fetch (FX DUMMYBF) of DATUM))
|
||||
(T (fetch (FX %#BLINK) of DATUM)))
|
||||
(PROGN (replace (FX %#BLINK) of DATUM with NEWVALUE)
|
||||
(COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#CLINK) of DATUM
|
||||
with (fetch (FX %#ALINK) of DATUM))
|
||||
(replace (FX SLOWP) of DATUM with T]
|
||||
[CLINK (IDIFFERENCE (COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(fetch (FX %#ALINK) of DATUM))
|
||||
(T (fetch (FX %#CLINK) of DATUM)))
|
||||
\#ALINK.OFFSET)
|
||||
(PROGN (replace (FX %#CLINK) of DATUM with (IPLUS NEWVALUE
|
||||
\#ALINK.OFFSET)
|
||||
)
|
||||
(COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#BLINK) of DATUM
|
||||
with (fetch (FX DUMMYBF) of DATUM))
|
||||
(replace (FX SLOWP) of DATUM with T]
|
||||
[ALINK (IDIFFERENCE (FLOOR (fetch (FX %#ALINK) of DATUM)
|
||||
WORDSPERCELL)
|
||||
\#ALINK.OFFSET)
|
||||
(PROGN [COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#BLINK) of DATUM
|
||||
with (fetch (FX DUMMYBF) of DATUM))
|
||||
(replace (FX %#CLINK) of DATUM
|
||||
with (fetch (FX %#ALINK) of DATUM]
|
||||
(replace (FX %#ALINK) of DATUM with (IPLUS NEWVALUE
|
||||
\#ALINK.OFFSET
|
||||
(SUB1
|
||||
WORDSPERCELL
|
||||
]
|
||||
[ACLINK (SHOULDNT)
|
||||
(PROGN [COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#BLINK) of DATUM
|
||||
with (fetch (FX DUMMYBF) of DATUM]
|
||||
(replace (FX %#CLINK) of DATUM with (IPLUS NEWVALUE
|
||||
\#ALINK.OFFSET)
|
||||
)
|
||||
(replace (FX %#ALINK) of DATUM with (IPLUS NEWVALUE
|
||||
\#ALINK.OFFSET
|
||||
(SUB1
|
||||
WORDSPERCELL
|
||||
]
|
||||
(* ;
|
||||
"replaces A & C Links at once more efficiently than separately")
|
||||
(DUMMYBF (IDIFFERENCE DATUM WORDSPERCELL))
|
||||
|
||||
(* ;; "This is either an actual BF or %"residual%" BF that provides enough BF to find its IVAR slot. This means that when a FX is copied, the cell preceding the FX is copied too.")
|
||||
|
||||
(IVAR (fetch (BF IVAR) of (fetch (FX DUMMYBF) of DATUM)))
|
||||
[CHECKED (AND (type? FX DATUM)
|
||||
(OR (IEQ (fetch (FX DUMMYBF) of DATUM)
|
||||
(fetch (FX BLINK) of DATUM))
|
||||
(AND (fetch (BF RESIDUAL) of (fetch (FX DUMMYBF)
|
||||
of DATUM))
|
||||
(IEQ (fetch (BF IVAR) of (fetch (FX DUMMYBF)
|
||||
of DATUM))
|
||||
(fetch (BF IVAR) of (fetch (FX BLINK)
|
||||
of DATUM]
|
||||
(FIRSTPVAR (IPLUS DATUM (fetch (FX FXSIZE) of T)))
|
||||
(* ; "stack offset of PVAR0")
|
||||
(FXSIZE (PROGN 10)) (* ;
|
||||
"fixed overhead from flags thru clink")
|
||||
(PADDING (PROGN 4)) (* ;
|
||||
"doublecell of garbage for microcode use")
|
||||
(FIRSTTEMP (IPLUS (fetch (FX FIRSTPVAR) of DATUM)
|
||||
(fetch (FX NPVARWORDS) of DATUM)
|
||||
(fetch (FX PADDING) of DATUM)))
|
||||
(* ;
|
||||
"note that NPVARWORDS is obtained from the FNHEADER")
|
||||
(SIZE (IDIFFERENCE (fetch (FX NEXTBLOCK) of DATUM)
|
||||
DATUM])
|
||||
|
||||
(RECORD SPYOBJDATA (CACHEDLABEL PERCENT LABEL))
|
||||
)
|
||||
)
|
||||
@@ -1053,17 +925,17 @@
|
||||
|
||||
(MOVD? 'NILL 'MODERNWINDOW)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4707 7314 (SPYOBJ 4717 . 5006) (SPYOBJ.BUTTON 5008 . 5118) (SPYOBJ.SAVE 5120 . 5239) (
|
||||
SPYOBJ.COPY 5241 . 5303) (SPYOBJ.GET 5305 . 5434) (SPYOBJ.IMAGEBOX 5436 . 5960) (SPYOBJ.DISPLAY 5962
|
||||
. 6261) (SPYOBJ.LABEL 6263 . 6399) (SPYOBJ.HEIGHT 6401 . 6614) (SPYOBJ.COPYIN 6616 . 6659) (
|
||||
SPY.COPYBUTTON 6661 . 6753) (SPY.MERGEINFO 6755 . 7312)) (18156 60387 (SPY.FIND.TREE 18166 . 18575) (
|
||||
SPY.TOGGLE 18577 . 18767) (SPY.TREE 18769 . 19881) (SPY.LEGEND 19883 . 20233) (SPY.GRAPH.EDITOR 20235
|
||||
. 29800) (SPY.END 29802 . 30044) (SPY.MAKEGRAPHNODES 30046 . 32146) (SPY.MAX 32148 . 33031) (
|
||||
SPY.MERGE 33033 . 34464) (SPY.MERGE1 34466 . 40949) (SPY.MERGETREE 40951 . 43881) (SPY.NEXT.TREE 43883
|
||||
. 44557) (SPY.SUM 44559 . 45248) (SPY.TITLE 45250 . 45467) (SPY.MAKE.TREE 45469 . 47494) (
|
||||
SPY.UPDATE.TITLE 47496 . 50072) (SPY.DELETE 50074 . 50609) (SPY.DRAWBOX 50611 . 51136) (
|
||||
SPY.BUFFER.ENTRY 51138 . 51481) (SPY.BUTTON 51483 . 52052) (SPY.END.ENTRY 52054 . 52134) (SPY.START
|
||||
52136 . 52420) (SPY.INIT 52422 . 52657) (\SPY.INTERRUPT 52659 . 54064) (SPY.DUMP.BUFFER 54066 . 55526)
|
||||
(SPY.START.ENTRY 55528 . 55656) (SPY.ADD.ENTRY 55658 . 56090) (SPY.ORIGINAL 56092 . 56919) (
|
||||
SPY.OVERFLOW 56921 . 57022) (SPY.MERGE.CALLEES 57024 . 60060) (SPY.PRINT 60062 . 60385)))))
|
||||
(FILEMAP (NIL (4660 7267 (SPYOBJ 4670 . 4959) (SPYOBJ.BUTTON 4961 . 5071) (SPYOBJ.SAVE 5073 . 5192) (
|
||||
SPYOBJ.COPY 5194 . 5256) (SPYOBJ.GET 5258 . 5387) (SPYOBJ.IMAGEBOX 5389 . 5913) (SPYOBJ.DISPLAY 5915
|
||||
. 6214) (SPYOBJ.LABEL 6216 . 6352) (SPYOBJ.HEIGHT 6354 . 6567) (SPYOBJ.COPYIN 6569 . 6612) (
|
||||
SPY.COPYBUTTON 6614 . 6706) (SPY.MERGEINFO 6708 . 7265)) (7731 49962 (SPY.FIND.TREE 7741 . 8150) (
|
||||
SPY.TOGGLE 8152 . 8342) (SPY.TREE 8344 . 9456) (SPY.LEGEND 9458 . 9808) (SPY.GRAPH.EDITOR 9810 . 19375
|
||||
) (SPY.END 19377 . 19619) (SPY.MAKEGRAPHNODES 19621 . 21721) (SPY.MAX 21723 . 22606) (SPY.MERGE 22608
|
||||
. 24039) (SPY.MERGE1 24041 . 30524) (SPY.MERGETREE 30526 . 33456) (SPY.NEXT.TREE 33458 . 34132) (
|
||||
SPY.SUM 34134 . 34823) (SPY.TITLE 34825 . 35042) (SPY.MAKE.TREE 35044 . 37069) (SPY.UPDATE.TITLE 37071
|
||||
. 39647) (SPY.DELETE 39649 . 40184) (SPY.DRAWBOX 40186 . 40711) (SPY.BUFFER.ENTRY 40713 . 41056) (
|
||||
SPY.BUTTON 41058 . 41627) (SPY.END.ENTRY 41629 . 41709) (SPY.START 41711 . 41995) (SPY.INIT 41997 .
|
||||
42232) (\SPY.INTERRUPT 42234 . 43639) (SPY.DUMP.BUFFER 43641 . 45101) (SPY.START.ENTRY 45103 . 45231)
|
||||
(SPY.ADD.ENTRY 45233 . 45665) (SPY.ORIGINAL 45667 . 46494) (SPY.OVERFLOW 46496 . 46597) (
|
||||
SPY.MERGE.CALLEES 46599 . 49635) (SPY.PRINT 49637 . 49960)))))
|
||||
STOP
|
||||
|
||||
BIN
library/SPY.LCOM
BIN
library/SPY.LCOM
Binary file not shown.
579
library/UNICODE
579
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
|
||||
|
||||
Binary file not shown.
BIN
library/UNICODE.TEDIT
Normal file
BIN
library/UNICODE.TEDIT
Normal file
Binary file not shown.
@@ -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).
|
||||
|
||||
@@ -1,20 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
(FILECREATED "30-Sep-2021 16:06:26"
|
||||
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXMAIL.;2| 82866
|
||||
|
||||
|changes| |to:| (VARS UNIXMAILCOMS)
|
||||
(FNS UNIX.POLLNEWMAIL UNIX.NEXTMESSAGE UNIXMAILER.OPENMAILBOX
|
||||
UNIXMAILER.RETRIEVEMESSAGE UNIXMAILER.CLOSEMAILBOX UNIXSPOOL.OPENMAILBOX
|
||||
UNIXSPOOL.RETRIEVEMESSAGE UNIXSPOOL.CLOSEMAILBOX UNIX.FLUSH.STREAM
|
||||
UNIX.RETRIEVE.LINE \\UNIXMAIL.SEND \\UNIXMAIL.SEND.WRAPLINES \\SMTP-DUMP
|
||||
\\UNIXMAIL.SEND.PARSE \\UNIXMAIL.CHECK.ABORT \\UNIXMAIL.MUNG.RECIPIENTS
|
||||
\\UNIXMAIL.SMTP \\UNIXMAIL.SMTP.FLUSH \\UNIXMAIL.CHANGE.MODE
|
||||
\\UNIXMAIL.AUTHENTICATE \\UNIXMAIL.LOGIN \\UNIXMAIL.PARSENAMES
|
||||
\\UNIXMAIL.MAKEANSWERFORM \\UNIXMAIL.MESSAGE.FROM.SELF.P
|
||||
\\UNIXMAIL.MESSAGE.P \\UNIXMAIL.REALADDRESS \\UNIXMAIL.FQNAME
|
||||
\\UNIXMAIL.FIXMICROSOFT)
|
||||
(FILECREATED "24-Feb-2024 10:26:07" |{DSK}<home>larry>il>medley>library>lafite>UNIXMAIL.;3| 81776
|
||||
|
||||
|previous| |date:| "10-Feb-2000 12:03:28" |{DSK}<project>medley3.5>library>unixmail.;42|)
|
||||
:EDIT-BY "lmm"
|
||||
|
||||
:CHANGES-TO (VARS UNIXMAILCOMS)
|
||||
|
||||
:PREVIOUS-DATE "30-Sep-2021 16:06:26" |{DSK}<home>larry>il>medley>library>lafite>UNIXMAIL.;1|
|
||||
)
|
||||
|
||||
|
||||
; Copyright (c) 1989-1992, 1997, 1999, 1920, 2021 by ENVOS Corporation.
|
||||
@@ -22,7 +15,11 @@
|
||||
(PRETTYCOMPRINT UNIXMAILCOMS)
|
||||
|
||||
(RPAQQ UNIXMAILCOMS
|
||||
((DECLARE\: DOEVAL@COMPILE DONTCOPY (FILES (SOURCE)
|
||||
(
|
||||
(* |;;| " LMM 2/24/24 need LAFITE to load")
|
||||
|
||||
(FILES LAFITE)
|
||||
(DECLARE\: DOEVAL@COMPILE DONTCOPY (FILES (SOURCE)
|
||||
LAFITEDECLS NSMAIL)
|
||||
(RECORDS UNIXMAILBOX UNIXMAILFILEINFO UNIXMAILPARSE))
|
||||
(ALISTS (LAFITEMODELST UNIX))
|
||||
@@ -90,6 +87,13 @@
|
||||
'(CHANGE \\SENDMSG.CHANGE.MODE TO
|
||||
\\UNIXMAIL.CHANGE.MODE)))))
|
||||
(PROP FILETYPE UNIXMAIL)))
|
||||
|
||||
|
||||
|
||||
(* |;;| " LMM 2/24/24 need LAFITE to load")
|
||||
|
||||
|
||||
(FILESLOAD LAFITE)
|
||||
(DECLARE\: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(FILESLOAD (SOURCE)
|
||||
@@ -106,8 +110,8 @@
|
||||
)
|
||||
|
||||
(ADDTOVAR LAFITEMODELST (UNIX 3 \\UNIXMAIL.SEND.PARSE \\UNIXMAIL.SEND \\UNIXMAIL.MAKEANSWERFORM
|
||||
\\UNIXMAIL.AUTHENTICATE \\UNIXMAIL.MESSAGE.P
|
||||
\\UNIXMAIL.MESSAGE.FROM.SELF.P \\UNIXMAIL.LOGIN))
|
||||
\\UNIXMAIL.AUTHENTICATE \\UNIXMAIL.MESSAGE.P
|
||||
\\UNIXMAIL.MESSAGE.FROM.SELF.P \\UNIXMAIL.LOGIN))
|
||||
|
||||
|
||||
|
||||
@@ -133,9 +137,9 @@
|
||||
|
||||
|
||||
(RPAQQ UNIXMAIL.MSOPS.LIST ((MAILER UNIX.POLLNEWMAIL UNIXMAILER.OPENMAILBOX UNIX.NEXTMESSAGE
|
||||
UNIXMAILER.RETRIEVEMESSAGE UNIXMAILER.CLOSEMAILBOX)
|
||||
(SPOOL UNIX.POLLNEWMAIL UNIXSPOOL.OPENMAILBOX UNIX.NEXTMESSAGE
|
||||
UNIXSPOOL.RETRIEVEMESSAGE UNIXSPOOL.CLOSEMAILBOX)))
|
||||
UNIXMAILER.RETRIEVEMESSAGE UNIXMAILER.CLOSEMAILBOX)
|
||||
(SPOOL UNIX.POLLNEWMAIL UNIXSPOOL.OPENMAILBOX UNIX.NEXTMESSAGE
|
||||
UNIXSPOOL.RETRIEVEMESSAGE UNIXSPOOL.CLOSEMAILBOX)))
|
||||
|
||||
|
||||
|
||||
@@ -979,13 +983,13 @@
|
||||
(* |;;| "This returns multiple-values, so it's a CL:LAMBDA (what the heck).")
|
||||
|
||||
|
||||
(CL:DEFUN \\UNIXMAIL.SMTP.TCP.STREAMS () (* \; "Edited 27-Feb-99 13:55 by rmk:")
|
||||
(CL:DEFUN \\UNIXMAIL.SMTP.TCP.STREAMS () (* \; "Edited 27-Feb-99 13:55 by rmk:")
|
||||
|
||||
(* |;;| "Opens two streams representing the input and output streams of an SMTP TCP connection. On failure return NIL and a string describing the failure.")
|
||||
|
||||
(SELECTQ UNIXMAIL.SEND.MODE
|
||||
(PROCESS (|if| (EQ (MACHINETYPE)
|
||||
'MAIKO)
|
||||
'MAIKO)
|
||||
|then|
|
||||
|
||||
(* |;;| "UNIXMAIL.SEND.PROCESS can be a list of possibilities because the process may be in different places in different operating systems (e.g. solaris vs. sunos). If the first one doesn't exist at this time, we search the remaining ones and move the first one we find to the beginning of the list for next time. This could be done as an AFTERSYSOUTFORMS, but easy enough just to do it here.")
|
||||
@@ -993,36 +997,32 @@
|
||||
(LET ((S (CREATE-PROCESS-STREAM
|
||||
(CONCAT (IF (NLISTP UNIXMAIL.SEND.PROCESS)
|
||||
THEN UNIXMAIL.SEND.PROCESS
|
||||
ELSEIF (INFILEP (PACKFILENAME 'HOST 'DSK 'BODY
|
||||
(CAR UNIXMAIL.SEND.PROCESS)))
|
||||
ELSEIF (INFILEP (PACKFILENAME 'HOST 'DSK 'BODY (CAR
|
||||
UNIXMAIL.SEND.PROCESS
|
||||
)))
|
||||
THEN (CAR UNIXMAIL.SEND.PROCESS)
|
||||
ELSE (FOR P IN (CDR UNIXMAIL.SEND.PROCESS)
|
||||
WHEN (INFILEP (PACKFILENAME 'HOST
|
||||
'DSK
|
||||
'BODY P))
|
||||
DO (SETQ UNIXMAIL.SEND.PROCESS
|
||||
(CONS P (DREMOVE P UNIXMAIL.SEND.PROCESS)
|
||||
))
|
||||
(RETURN P)))
|
||||
WHEN (INFILEP (PACKFILENAME 'HOST 'DSK 'BODY P))
|
||||
DO (SETQ UNIXMAIL.SEND.PROCESS
|
||||
(CONS P (DREMOVE P UNIXMAIL.SEND.PROCESS)))
|
||||
(RETURN P)))
|
||||
(IF UNIXMAIL.SEND.HOST
|
||||
THEN (CONCAT " " UNIXMAIL.SEND.HOST)
|
||||
ELSE "")))))
|
||||
(CL:VALUES S S))
|
||||
|else| (CL:VALUES NIL
|
||||
"this MACHINETYPE can't do Unix process-streams; change UNIXMAIL.SEND.MODE"
|
||||
)))
|
||||
)))
|
||||
(SOCKET (|if| (EQ (MACHINETYPE)
|
||||
'MAIKO)
|
||||
|then| (LET ((S (OPENTCPSTREAM (OR UNIXMAIL.SEND.HOST (UNIX-GETPARM "HOSTNAME"
|
||||
))
|
||||
25)))
|
||||
(CL:VALUES S S))
|
||||
'MAIKO)
|
||||
|then| (LET ((S (OPENTCPSTREAM (OR UNIXMAIL.SEND.HOST (UNIX-GETPARM "HOSTNAME"))
|
||||
25)))
|
||||
(CL:VALUES S S))
|
||||
|else| (LET ((S (TCP.OPEN UNIXMAIL.SEND.HOST 25 NIL 'ACTIVE 'INPUT T)))
|
||||
(|if| S
|
||||
|then| (CL:VALUES S (TCP.OTHER.STREAM S))
|
||||
|else| (CL:VALUES NIL
|
||||
"TCP.OPEN failed; check your Lisp TCP configuration"
|
||||
)))))
|
||||
(|if| S
|
||||
|then| (CL:VALUES S (TCP.OTHER.STREAM S))
|
||||
|else| (CL:VALUES NIL
|
||||
"TCP.OPEN failed; check your Lisp TCP configuration")))))
|
||||
(ERROR "Unrecognized UNIXMAIL.SEND.MODE:" UNIXMAIL.SEND.MODE)))
|
||||
|
||||
|
||||
@@ -1368,23 +1368,22 @@
|
||||
|
||||
(SETQ LAFITESENDINGMENUITEMS (EDITE (CONS (CAR LAFITESENDINGMENUITEMS)
|
||||
(CDR LAFITESENDINGMENUITEMS))
|
||||
'(CHANGE \\SENDMSG.CHANGE.MODE TO \\UNIXMAIL.CHANGE.MODE)
|
||||
)))
|
||||
'(CHANGE \\SENDMSG.CHANGE.MODE TO \\UNIXMAIL.CHANGE.MODE))))
|
||||
|
||||
(PUTPROPS UNIXMAIL FILETYPE :COMPILE-FILE)
|
||||
(PUTPROPS UNIXMAIL COPYRIGHT ("ENVOS Corporation" 1989 1990 1991 1992 1997 1999 1920 2021))
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (7835 26260 (UNIX.POLLNEWMAIL 7845 . 9795) (UNIX.NEXTMESSAGE 9797 . 9973) (
|
||||
UNIXMAILER.OPENMAILBOX 9975 . 14371) (UNIXMAILER.RETRIEVEMESSAGE 14373 . 15580) (
|
||||
UNIXMAILER.CLOSEMAILBOX 15582 . 16607) (UNIXSPOOL.OPENMAILBOX 16609 . 22826) (
|
||||
UNIXSPOOL.RETRIEVEMESSAGE 22828 . 24909) (UNIXSPOOL.CLOSEMAILBOX 24911 . 26258)) (26308 56798 (
|
||||
UNIX.FLUSH.STREAM 26318 . 26899) (UNIX.RETRIEVE.LINE 26901 . 28090) (\\UNIXMAIL.SEND 28092 . 38386) (
|
||||
\\UNIXMAIL.SEND.WRAPLINES 38388 . 42018) (\\SMTP-DUMP 42020 . 43290) (\\UNIXMAIL.SEND.PARSE 43292 .
|
||||
46536) (\\UNIXMAIL.CHECK.ABORT 46538 . 47366) (\\UNIXMAIL.MUNG.RECIPIENTS 47368 . 52236) (
|
||||
\\UNIXMAIL.SMTP 52238 . 52843) (\\UNIXMAIL.SMTP.FLUSH 52845 . 55322) (\\UNIXMAIL.CHANGE.MODE 55324 .
|
||||
56796)) (56886 60196 (\\UNIXMAIL.SMTP.TCP.STREAMS 56886 . 60196)) (60275 81847 (
|
||||
\\UNIXMAIL.AUTHENTICATE 60285 . 61976) (\\UNIXMAIL.LOGIN 61978 . 62323) (\\UNIXMAIL.PARSENAMES 62325
|
||||
. 64643) (\\UNIXMAIL.MAKEANSWERFORM 64645 . 69527) (\\UNIXMAIL.MESSAGE.FROM.SELF.P 69529 . 70658) (
|
||||
\\UNIXMAIL.MESSAGE.P 70660 . 70979) (\\UNIXMAIL.REALADDRESS 70981 . 75025) (\\UNIXMAIL.FQNAME 75027 .
|
||||
75632) (\\UNIXMAIL.FIXMICROSOFT 75634 . 81845)))))
|
||||
(FILEMAP (NIL (7090 25515 (UNIX.POLLNEWMAIL 7100 . 9050) (UNIX.NEXTMESSAGE 9052 . 9228) (
|
||||
UNIXMAILER.OPENMAILBOX 9230 . 13626) (UNIXMAILER.RETRIEVEMESSAGE 13628 . 14835) (
|
||||
UNIXMAILER.CLOSEMAILBOX 14837 . 15862) (UNIXSPOOL.OPENMAILBOX 15864 . 22081) (
|
||||
UNIXSPOOL.RETRIEVEMESSAGE 22083 . 24164) (UNIXSPOOL.CLOSEMAILBOX 24166 . 25513)) (25563 56053 (
|
||||
UNIX.FLUSH.STREAM 25573 . 26154) (UNIX.RETRIEVE.LINE 26156 . 27345) (\\UNIXMAIL.SEND 27347 . 37641) (
|
||||
\\UNIXMAIL.SEND.WRAPLINES 37643 . 41273) (\\SMTP-DUMP 41275 . 42545) (\\UNIXMAIL.SEND.PARSE 42547 .
|
||||
45791) (\\UNIXMAIL.CHECK.ABORT 45793 . 46621) (\\UNIXMAIL.MUNG.RECIPIENTS 46623 . 51491) (
|
||||
\\UNIXMAIL.SMTP 51493 . 52098) (\\UNIXMAIL.SMTP.FLUSH 52100 . 54577) (\\UNIXMAIL.CHANGE.MODE 54579 .
|
||||
56051)) (56141 59147 (\\UNIXMAIL.SMTP.TCP.STREAMS 56141 . 59147)) (59226 80798 (
|
||||
\\UNIXMAIL.AUTHENTICATE 59236 . 60927) (\\UNIXMAIL.LOGIN 60929 . 61274) (\\UNIXMAIL.PARSENAMES 61276
|
||||
. 63594) (\\UNIXMAIL.MAKEANSWERFORM 63596 . 68478) (\\UNIXMAIL.MESSAGE.FROM.SELF.P 68480 . 69609) (
|
||||
\\UNIXMAIL.MESSAGE.P 69611 . 69930) (\\UNIXMAIL.REALADDRESS 69932 . 73976) (\\UNIXMAIL.FQNAME 73978 .
|
||||
74583) (\\UNIXMAIL.FIXMICROSOFT 74585 . 80796)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
File diff suppressed because one or more lines are too long
Binary file not shown.
@@ -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
|
||||
|
||||
Binary file not shown.
127
lispusers/DEMO
Normal file
127
lispusers/DEMO
Normal file
@@ -0,0 +1,127 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "24-Mar-2023 11:59:58" {DSK}<home>larry>il>medley>lispusers>DEMO.;3 5662
|
||||
|
||||
:EDIT-BY "lmm"
|
||||
|
||||
:CHANGES-TO (VARS DEMOCOMS)
|
||||
|
||||
:PREVIOUS-DATE "24-Mar-2023 07:29:15" {DSK}<home>larry>il>medley>lispusers>DEMO.;2)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT DEMOCOMS)
|
||||
|
||||
(RPAQQ DEMOCOMS ((VARS (HELPTIME 1)
|
||||
(AUTOBACKTRACEFLG 'ALWAYS))
|
||||
(COMS * BKSYSOBJCOMS)
|
||||
(FNS MEDLEY-CONTRIB OPEN-URL)))
|
||||
|
||||
(RPAQQ HELPTIME 1)
|
||||
|
||||
(RPAQQ AUTOBACKTRACEFLG ALWAYS)
|
||||
|
||||
(RPAQQ BKSYSOBJCOMS [(FNS BKSYSOBJ BKSYSOBJ.BUTTONEVENTINFN BKSYSOBJ.COPYBUTTONEVENTINFN
|
||||
BKSYSOBJ.DISPLAYFN BKSYSOBJ.FINDEXEC BKSYSOBJ.IMAGEBOXFN)
|
||||
(INITVARS (BKSYSOBJFNS (IMAGEFNSCREATE 'BKSYSOBJ.DISPLAYFN 'BKSYSOBJ.IMAGEBOXFN
|
||||
NIL NIL NIL 'BKSYSOBJ.BUTTONEVENTINFN
|
||||
'BKSYSOBJ.COPYBUTTONEVENTINFN])
|
||||
(DEFINEQ
|
||||
|
||||
(BKSYSOBJ
|
||||
[LAMBDA (STRING) (* ; "Edited 18-Mar-2023 12:52 by rmk")
|
||||
(IMAGEOBJCREATE STRING BKSYSOBJFNS])
|
||||
|
||||
(BKSYSOBJ.BUTTONEVENTINFN
|
||||
[LAMBDA (OBJ WINDOW) (* ; "Edited 18-Mar-2023 13:51 by rmk")
|
||||
(LET [(EXECW (BKSYSOBJ.FINDEXEC))
|
||||
(STR (IMAGEOBJPROP OBJ 'OBJECTDATUM]
|
||||
(CL:WHEN (MEMB (NTHCHARCODE STR -1)
|
||||
(CHARCODE (%) %])))
|
||||
(SETQ STR (SUBSTRING STR 1 -2)))
|
||||
(CL:WHEN EXECW
|
||||
(GIVE.TTY.PROCESS EXECW)
|
||||
(BKSYSBUF STR))])
|
||||
|
||||
(BKSYSOBJ.COPYBUTTONEVENTINFN
|
||||
[LAMBDA (OBJ WINDOW REGION) (* ; "Edited 3-Jan-2022 08:36 by rmk")
|
||||
(CL:WHEN (CAR (IMAGEOBJPROP OBJ 'COMPAREDATA))
|
||||
[COPYINSERT (CAR (IMAGEOBJPROP OBJ 'COMPAREDATA])])
|
||||
|
||||
(BKSYSOBJ.DISPLAYFN
|
||||
[LAMBDA (OBJ WINDOW) (* ; "Edited 18-Mar-2023 13:04 by rmk")
|
||||
(DSPFONT DEFAULTFONT WINDOW)
|
||||
(FOR I C (FONTARRAY _ (FONTMAPARRAY))
|
||||
(STRING _ (IMAGEOBJPROP OBJ 'OBJECTDATUM)) FROM 1
|
||||
DO (SELCHARQ (SETQ C (NTHCHARCODE STRING I))
|
||||
(EOL (TERPRI WINDOW))
|
||||
(NIL (RETURN))
|
||||
(IF (EQ C (CONSTANT (CHARCODE.DECODE FONTESCAPECHAR)))
|
||||
THEN (DSPFONT (ELT FONTARRAY (NTHCHARCODE STRING (ADD I 1)))
|
||||
WINDOW)
|
||||
ELSE (PRINTCCODE C WINDOW])
|
||||
|
||||
(BKSYSOBJ.FINDEXEC
|
||||
[LAMBDA NIL (* ; "Edited 18-Mar-2023 13:45 by rmk")
|
||||
|
||||
(* ;; "Finds the first exec with an Interlisp read table.")
|
||||
|
||||
(find W P in (OPENWINDOWS) suchthat (SETQ P (WINDOWPROP W 'PROCESS))
|
||||
(AND (STRPOS "EXEC" (PROCESSPROP P 'NAME)
|
||||
1 NIL T)
|
||||
(STREQUAL "INTERLISP" (READTABLEPROP
|
||||
(LISTGET (PROCESSPROP P 'PROFILE)
|
||||
'*READTABLE*)
|
||||
'NAME])
|
||||
|
||||
(BKSYSOBJ.IMAGEBOXFN
|
||||
[LAMBDA (OBJ IMAGESTREAM CURRENTX RIGHTMARGIN) (* ; "Edited 18-Mar-2023 13:04 by rmk")
|
||||
|
||||
(* ;; "Calculate the height of each line, and the width of the widest line.")
|
||||
|
||||
(* ;;
|
||||
"Probably ought to compute the max height per line, at every font change, add it at each EOL.")
|
||||
|
||||
(SETQ IMAGESTREAM (GETSTREAM IMAGESTREAM 'OUTPUT))
|
||||
(FOR I C (STRING _ (IMAGEOBJPROP OBJ 'OBJECTDATUM))
|
||||
(FONT _ (FONTCREATE DEFAULTFONT NIL NIL NIL IMAGESTREAM))
|
||||
(HEIGHT _ 0)
|
||||
(LINELENGTH _ 0)
|
||||
(MAXLINELENGTH _ 0)
|
||||
(FONTARRAY _ (FONTMAPARRAY)) FROM 1
|
||||
DO (SELCHARQ (SETQ C (NTHCHARCODE STRING I))
|
||||
(EOL (ADD HEIGHT (FONTPROP FONT 'HEIGHT))
|
||||
(CL:WHEN (IGREATERP LINELENGTH MAXLINELENGTH)
|
||||
(SETQ MAXLINELENGTH LINELENGTH))
|
||||
(SETQ LINELENGTH 0))
|
||||
(NIL (* ; "end of string")
|
||||
(CL:WHEN (IGREATERP LINELENGTH MAXLINELENGTH)
|
||||
(SETQ MAXLINELENGTH LINELENGTH))
|
||||
(RETURN (CREATE IMAGEBOX
|
||||
XSIZE _ MAXLINELENGTH
|
||||
YSIZE _ HEIGHT
|
||||
YDESC _ (DIFFERENCE HEIGHT (FONTPROP FONT 'HEIGHT))
|
||||
XKERN _ 0)))
|
||||
(IF (EQ C (CONSTANT (CHARCODE.DECODE FONTESCAPECHAR)))
|
||||
THEN (SETQ FONT (FONTCREATE (ELT FONTARRAY (NTHCHARCODE STRING (ADD I 1)))
|
||||
NIL NIL NIL IMAGESTREAM))
|
||||
ELSE (ADD LINELENGTH (CHARWIDTH C FONT])
|
||||
)
|
||||
|
||||
(RPAQ? BKSYSOBJFNS (IMAGEFNSCREATE 'BKSYSOBJ.DISPLAYFN 'BKSYSOBJ.IMAGEBOXFN NIL NIL NIL
|
||||
'BKSYSOBJ.BUTTONEVENTINFN 'BKSYSOBJ.COPYBUTTONEVENTINFN))
|
||||
(DEFINEQ
|
||||
|
||||
(MEDLEY-CONTRIB
|
||||
[LAMBDA (REPO) (* ; "Edited 15-Mar-2023 08:05 by lmm")
|
||||
(OPEN-URL (CONCAT "https://github.com/Interlisp/" REPO "/graphs/contributors"])
|
||||
|
||||
(OPEN-URL
|
||||
[LAMBDA (URL) (* ; "Edited 24-Mar-2023 06:31 by lmm")
|
||||
(ShellBrowse URL])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1038 5085 (BKSYSOBJ 1048 . 1211) (BKSYSOBJ.BUTTONEVENTINFN 1213 . 1668) (
|
||||
BKSYSOBJ.COPYBUTTONEVENTINFN 1670 . 1923) (BKSYSOBJ.DISPLAYFN 1925 . 2572) (BKSYSOBJ.FINDEXEC 2574 .
|
||||
3334) (BKSYSOBJ.IMAGEBOXFN 3336 . 5083)) (5264 5639 (MEDLEY-CONTRIB 5274 . 5490) (OPEN-URL 5492 . 5637
|
||||
)))))
|
||||
STOP
|
||||
BIN
lispusers/DEMO-FEATURES.TEDIT
Normal file
BIN
lispusers/DEMO-FEATURES.TEDIT
Normal file
Binary file not shown.
BIN
lispusers/DEMO-OVERVIEW.TEDIT
Normal file
BIN
lispusers/DEMO-OVERVIEW.TEDIT
Normal file
Binary file not shown.
BIN
lispusers/DEMO-PROJECT.TEDIT
Normal file
BIN
lispusers/DEMO-PROJECT.TEDIT
Normal file
Binary file not shown.
BIN
lispusers/DEMO.LCOM
Normal file
BIN
lispusers/DEMO.LCOM
Normal file
Binary file not shown.
29
lispusers/DEMO.TEDIT
Normal file
29
lispusers/DEMO.TEDIT
Normal file
@@ -0,0 +1,29 @@
|
||||
|
||||
DEMO -- utilities for running demos / tutorials in Medley
|
||||
|
||||
includes
|
||||
OPEN-URL (URL)
|
||||
(rename of ShellBrowse)
|
||||
MEDLEY-CONTRIB(REPO)
|
||||
shows GitHub contributors to given repo
|
||||
uses ShellBrowse
|
||||
BKSYSOBJ(string)
|
||||
|
||||
|
||||
DEMO-*.TEDIT
|
||||
contains scripts / TEDIT file talks
|
||||
add your own
|
||||
|
||||
|
||||
|
||||
BKSYSOBJ is the start of a facility
|
||||
|
||||
(TEDIT.INSERT.OBJ (BKSYSOBJ ª(CONS NILº) (TEXTSTREAM(WHICHW)]
|
||||
|
||||
|
||||
|
||||
You should see (CONS NIL) in the TEDIT stream, clicking should shove (CONS NIL into an Interlisp exec, waiting for ) or ]. (probably the image objectg should be shaded, may also have to set the RDTBL flag on BKSYSBUF for strings, but this is a start).
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
BIN
lispusers/DSPSCALE.LCOM
Normal file
BIN
lispusers/DSPSCALE.LCOM
Normal file
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -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 È $È PAGEHEADING RUNNINGHEAD 1 È $ 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 È $È PAGEHEADING RUNNINGHEAD
|
||||
TIMESROMAN $ r d(DEFAULTFONT 1 (TERMINAL 12) (TERMINAL 8) (TERMINAL 8) (PDF (TERMINAL 8)) (POSTSCRIPT (TERMINAL 8))) MODERN
|
||||
TERMINAL
|
||||
MODERN MODERN
|
||||
MODERN
|
||||
TIMESROMAN $ MODERN
|
||||
HRULE.GETFN HRULE.GETFN HRULE.GETFN
HRULE.GETFN HRULE.GETFN 1 R Í é ; ¹ @
|
||||
, " & \
|
||||
TERMINAL MODERN MODERN
|
||||
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
v B 1 O L J ' ' œ ) 2 + Z
!
œ 5 H 5 5 > $ N
!
M
§ ‹ A @ 4
|
||||
@ Ô â
k 6 . R < 9 ' Y " ( ? “ F <00> ì Ë ò 1Rþzº
|
||||
p 6 , ) ) +
5 @ &
I 7
o
E . 8 > I Y
€ $ ;
} ( )
9 ! 0 4
c
5
v B 1 O L J ' ' œ ) 2 + Z
!
œ 5 H 5 5 > $ N
!
M
§ ‹ A @ 4
|
||||
@ Ô â
k 6 . R < 9 ' Y " ( ? “ F <00> ì Ë ò DATE:gK( 1Rþzº
|
||||
@@ -1,12 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "29-Oct-2023 10:56:48" {WMEDLEY}<lispusers>MODERNIZE.;48 30909
|
||||
(FILECREATED "27-Jan-2024 13:38:15" {DSK}<home>frank>il>medley>gmedley>lispusers>MODERNIZE.;7 30816
|
||||
|
||||
:EDIT-BY rmk
|
||||
:CHANGES-TO (FNS \MODERNIZED.TEDIT.BUTTONEVENTFN)
|
||||
|
||||
:CHANGES-TO (FNS NEARESTCORNER)
|
||||
|
||||
:PREVIOUS-DATE "29-Jul-2023 10:48:55" {WMEDLEY}<lispusers>MODERNIZE.;47)
|
||||
:PREVIOUS-DATE "27-Jan-2024 13:28:36" {DSK}<home>frank>il>medley>gmedley>lispusers>MODERNIZE.;6
|
||||
)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT MODERNIZECOMS)
|
||||
@@ -368,26 +367,24 @@
|
||||
(\CURSORPOSITION X Y])
|
||||
|
||||
(INCORNER.REGION
|
||||
[LAMBDA (CORNERREGION TOPMARGIN) (* ; "Edited 13-Oct-2021 15:04 by rmk:")
|
||||
[LAMBDA (CORNERREGION TOPMARGIN) (* ; "Edited 13-Oct-2021 15:04 by rmk:")
|
||||
|
||||
(* ;; "CORNERREGION, LASTMOUSEX, LASTMOUSEY in screen coordinates.")
|
||||
|
||||
(* ;; "TOPMARGIN is the height of the titlebar for titled windows, otherwise the margin at the top of the window's content that we regard as the top. ")
|
||||
|
||||
(IF (ILEQ (IABS (IDIFFERENCE LASTMOUSEX (FETCH LEFT OF CORNERREGION)))
|
||||
MODERN-WINDOW-MARGIN)
|
||||
THEN (IF (NEARTOP CORNERREGION TOPMARGIN)
|
||||
THEN 'LEFTTOP
|
||||
ELSEIF (ILEQ LASTMOUSEY (IPLUS MODERN-WINDOW-MARGIN (FETCH BOTTOM
|
||||
OF CORNERREGION)))
|
||||
THEN 'LEFTBOTTOM)
|
||||
ELSEIF (ILEQ (IABS (IDIFFERENCE LASTMOUSEX (FETCH RIGHT OF CORNERREGION)))
|
||||
MODERN-WINDOW-MARGIN)
|
||||
THEN (IF (NEARTOP CORNERREGION TOPMARGIN)
|
||||
THEN 'RIGHTTOP
|
||||
ELSEIF (ILEQ LASTMOUSEY (IPLUS MODERN-WINDOW-MARGIN (FETCH BOTTOM
|
||||
OF CORNERREGION)))
|
||||
THEN 'RIGHTBOTTOM])
|
||||
(if (ILEQ (IABS (IDIFFERENCE LASTMOUSEX (fetch LEFT of CORNERREGION)))
|
||||
MODERN-WINDOW-MARGIN)
|
||||
then (if (NEARTOP CORNERREGION TOPMARGIN)
|
||||
then 'LEFTTOP
|
||||
elseif (ILEQ LASTMOUSEY (IPLUS MODERN-WINDOW-MARGIN (fetch BOTTOM of CORNERREGION)))
|
||||
then 'LEFTBOTTOM)
|
||||
elseif (ILEQ (IABS (IDIFFERENCE LASTMOUSEX (fetch RIGHT of CORNERREGION)))
|
||||
MODERN-WINDOW-MARGIN)
|
||||
then (if (NEARTOP CORNERREGION TOPMARGIN)
|
||||
then 'RIGHTTOP
|
||||
elseif (ILEQ LASTMOUSEY (IPLUS MODERN-WINDOW-MARGIN (fetch BOTTOM of CORNERREGION)))
|
||||
then 'RIGHTBOTTOM])
|
||||
)
|
||||
|
||||
|
||||
@@ -510,9 +507,11 @@
|
||||
(* ;; "We pass the pane that received the click, because that's what the original \TEDIT.BUTTONEVENTFN needs to see, if we decide not to shape or move.")
|
||||
|
||||
(MODERNWINDOW.BUTTONEVENTFN W (FUNCTION MODERN-ORIG-\TEDIT.BUTTONEVENTFN)
|
||||
NIL NIL [APPLY (FUNCTION UNIONREGIONS)
|
||||
(bind PANE _ (CENTRALWINDOW W) collect (WINDOWPROP PANE 'REGION)
|
||||
repeatwhile (SETQ PANE (WINDOWPROP PANE 'TEDIT-NEXT-PANE-DOWN]
|
||||
NIL
|
||||
(WINDOWPROP W 'MODERNIZE.TITLEPROPORTION)
|
||||
[APPLY (FUNCTION UNIONREGIONS)
|
||||
(bind PANE _ (CENTRALWINDOW W) collect (WINDOWPROP PANE 'REGION)
|
||||
repeatwhile (SETQ PANE (WINDOWPROP PANE 'TEDIT-NEXT-PANE-DOWN]
|
||||
(WINDOWPROP (CENTRALWINDOW W)
|
||||
'TITLE])
|
||||
)
|
||||
@@ -615,11 +614,11 @@
|
||||
(ADDTOVAR LAMA MODERN-ADD-EXEC)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (5048 11410 (MODERNWINDOW 5058 . 6598) (MODERNWINDOW.SETUP 6600 . 9549) (UNMODERNWINDOW
|
||||
9551 . 9945) (MODERNWINDOW.UNSETUP 9947 . 10759) (\MODERNIZED.FREEMENU.BUTTONEVENTFN 10761 . 11408)) (
|
||||
11475 22625 (MODERNWINDOW.BUTTONEVENTFN 11485 . 18512) (NEARTOP 18514 . 19442) (NEARESTCORNER 19444 .
|
||||
21311) (INCORNER.REGION 21313 . 22623)) (22683 25155 (MODERN-ADD-EXEC 22693 . 23124) (MODERN-SNAPW
|
||||
23126 . 23669) (TOTOPW.MODERNIZE 23671 . 24099) (MODERN-MENUBUTTONFN 24101 . 25153)) (25156 27585 (
|
||||
\MODERNIZED.FREEMENU.BUTTONEVENTFN 25166 . 25813) (MODERNIZED.TB.BUTTONEVENTFN 25815 . 27583)) (27626
|
||||
29148 (TEDIT.MODERNIZE 27636 . 27989) (\MODERNIZED.TEDIT.BUTTONEVENTFN 27991 . 29146)))))
|
||||
(FILEMAP (NIL (5095 11457 (MODERNWINDOW 5105 . 6645) (MODERNWINDOW.SETUP 6647 . 9596) (UNMODERNWINDOW
|
||||
9598 . 9992) (MODERNWINDOW.UNSETUP 9994 . 10806) (\MODERNIZED.FREEMENU.BUTTONEVENTFN 10808 . 11455)) (
|
||||
11522 22488 (MODERNWINDOW.BUTTONEVENTFN 11532 . 18559) (NEARTOP 18561 . 19489) (NEARESTCORNER 19491 .
|
||||
21358) (INCORNER.REGION 21360 . 22486)) (22546 25018 (MODERN-ADD-EXEC 22556 . 22987) (MODERN-SNAPW
|
||||
22989 . 23532) (TOTOPW.MODERNIZE 23534 . 23962) (MODERN-MENUBUTTONFN 23964 . 25016)) (25019 27448 (
|
||||
\MODERNIZED.FREEMENU.BUTTONEVENTFN 25029 . 25676) (MODERNIZED.TB.BUTTONEVENTFN 25678 . 27446)) (27489
|
||||
29055 (TEDIT.MODERNIZE 27499 . 27852) (\MODERNIZED.TEDIT.BUTTONEVENTFN 27854 . 29053)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -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
|
||||
|
||||
Binary file not shown.
@@ -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
|
||||
|
||||
Binary file not shown.
15
scripts/cpv
15
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
|
||||
|
||||
Binary file not shown.
@@ -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
|
||||
|
||||
Binary file not shown.
@@ -1,13 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 6-Dec-2023 23:57:52" {WMEDLEY}<sources>EXTERNALFORMAT.;82 37884
|
||||
(FILECREATED "12-Jan-2024 10:59:18" {DSK}<home>larry>il>medley>sources>EXTERNALFORMAT.;3 38380
|
||||
|
||||
:EDIT-BY rmk
|
||||
:EDIT-BY "lmm"
|
||||
|
||||
:CHANGES-TO (MACROS \CHECKEOLC)
|
||||
(FNS \CHECKEOLC.CRLF)
|
||||
:CHANGES-TO (FNS \BACKCCODE)
|
||||
|
||||
:PREVIOUS-DATE "23-Oct-2023 17:07:12" {WMEDLEY}<sources>EXTERNALFORMAT.;79)
|
||||
:PREVIOUS-DATE " 8-Dec-2023 22:02:21" {DSK}<home>larry>il>medley>sources>EXTERNALFORMAT.;1)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT EXTERNALFORMATCOMS)
|
||||
@@ -69,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))
|
||||
@@ -86,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))
|
||||
@@ -107,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)
|
||||
@@ -122,7 +125,8 @@
|
||||
(FORMATBYTESTREAMFN POINTER)
|
||||
(EF1 POINTER)
|
||||
(EF2 POINTER)
|
||||
(FORMATBYTESTRINGFN POINTER)))
|
||||
(FORMATBYTESTRINGFN POINTER)
|
||||
(FORMATCHARSETFN POINTER)))
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
@@ -185,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*.")
|
||||
@@ -225,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")
|
||||
@@ -357,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:")
|
||||
|
||||
@@ -373,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))
|
||||
@@ -720,13 +727,13 @@
|
||||
(\CREATE.THROUGH.EXTERNALFORMAT)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (6547 13182 (\EXTERNALFORMAT 6557 . 10335) (MAKE-EXTERNALFORMAT 10337 . 12709) (
|
||||
\EXTERNALFORMAT.DEFPRINT 12711 . 13180)) (13183 16224 (\INSTALL.EXTERNALFORMAT 13193 . 14642) (
|
||||
\REMOVE.EXTERNALFORMAT 14644 . 15475) (FIND-FORMAT 15477 . 16222)) (16225 16637 (SYSTEM-EXTERNALFORMAT
|
||||
16235 . 16635)) (16986 32303 (\OUTCHAR 16996 . 18213) (\INCCODE 18215 . 19368) (\BACKCCODE 19370 .
|
||||
20939) (\BACKCCODE.EOLC 20941 . 23131) (\PEEKCCODE 23133 . 23458) (\PEEKCCODE.EOLC 23460 . 23839) (
|
||||
\INCCODE.EOLC 23841 . 25640) (\FORMATBYTESTREAM 25642 . 27777) (\FORMATBYTESTRING 27779 . 29238) (
|
||||
\CHECKEOLC.CRLF 29240 . 32301)) (33585 35821 (\NULLDEVICE 33595 . 35497) (\NULL.OPENFILE 35499 . 35819
|
||||
)) (35961 37788 (\CREATE.THROUGH.EXTERNALFORMAT 35971 . 36757) (\THROUGHIN 36759 . 37179) (
|
||||
\THROUGHBACKCCODE 37181 . 37448) (\THROUGHOUTCHARFN 37450 . 37786)))))
|
||||
(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
|
||||
|
||||
Binary file not shown.
141
sources/FILEIO
141
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
|
||||
|
||||
Binary file not shown.
@@ -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
|
||||
|
||||
Binary file not shown.
643
sources/LLKEY
643
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
|
||||
|
||||
Binary file not shown.
606
sources/LLSTK
606
sources/LLSTK
@@ -1,14 +1,14 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 6-Jan-93 18:07:37" |{PELE:MV:ENVOS}<LISPCORE>SOURCES>LLSTK.;9| 112417
|
||||
|
||||
changes to%: (RECORDS FVARSLOT)
|
||||
(FILECREATED "27-Feb-2024 22:46:53" {DSK}<home>larry>il>medley>sources>LLSTK.;5 105300
|
||||
|
||||
previous date%: "17-Dec-92 18:17:01" |{PELE:MV:ENVOS}<LISPCORE>SOURCES>LLSTK.;8|)
|
||||
:EDIT-BY "lmm"
|
||||
|
||||
:CHANGES-TO (RECORDS FX)
|
||||
(VARS LLSTKCOMS)
|
||||
|
||||
:PREVIOUS-DATE "27-Feb-2024 22:31:40" {DSK}<home>larry>il>medley>sources>LLSTK.;4)
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 by Venue & Xerox Corporation. All rights reserved.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT LLSTKCOMS)
|
||||
|
||||
@@ -28,10 +28,10 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
(CONSTANTS \NT.IVAR \NT.PVAR \NT.FVAR))
|
||||
(RECORDS STACKCELL))
|
||||
(COMS (* ;
|
||||
"For LAMBDA* and Common Lisp functions.")
|
||||
"For LAMBDA* and Common Lisp functions.")
|
||||
(FNS \MYARGCOUNT \ARG0 \SETARG0))
|
||||
(COMS (* ;
|
||||
"basic spaghetti for allocating, moving and reclaiming stack frames")
|
||||
"basic spaghetti for allocating, moving and reclaiming stack frames")
|
||||
(FNS \HARDRETURN \DOHARDRETURN \DOGC1 \DOGC \DOHARDRETURN1 \DOSTACKOVERFLOW \MOVEFRAME
|
||||
\INCUSECOUNT \DECUSECOUNT \MAKESTACKP \SMASHLINK \FREESTACKBLOCK \EXTENDSTACK))
|
||||
(COMS (* ; "Some ugly stack-munging ufns")
|
||||
@@ -82,192 +82,186 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
EVAL@COMPILE
|
||||
(ADDVARS (DONTCOMPILEFNS SETUPSTACK)))
|
||||
(LOCALVARS . T)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
|
||||
(NLAML)
|
||||
(LAMA SI::INTERNAL-THROW
|
||||
|
||||
SI::NON-LOCAL-RETURN
|
||||
])
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
(ADDVARS (NLAMA)
|
||||
(NLAML)
|
||||
(LAMA SI::INTERNAL-THROW-VALUES SI::INTERNAL-THROW SI::NON-LOCAL-RETURN-VALUES
|
||||
SI::NON-LOCAL-RETURN])
|
||||
(DECLARE%: DONTCOPY
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(ACCESSFNS BF ((BFBLOCK (ADDSTACKBASE DATUM))) (* ; "basic frame pointer")
|
||||
(BLOCKRECORD BFBLOCK ((FLAGS BITS 3)
|
||||
(NIL BITS 3)
|
||||
(RESIDUAL FLAG) (* ; "true if this is not a full BF")
|
||||
(PADDING BITS 1)
|
||||
(USECNT BITS 8)
|
||||
(IVAR WORD)))
|
||||
(TYPE? (IEQ (fetch (BF FLAGS) of DATUM)
|
||||
\STK.BF))
|
||||
[ACCESSFNS BF ((NARGS (IDIFFERENCE (FOLDLO (IDIFFERENCE DATUM (fetch
|
||||
(BF IVAR)
|
||||
of DATUM))
|
||||
WORDSPERCELL)
|
||||
(fetch (BF PADDING) of DATUM)))
|
||||
[SIZE (IPLUS 2 (IDIFFERENCE DATUM (fetch (BF IVAR) of DATUM]
|
||||
(CHECKED (AND (type? BF DATUM)
|
||||
(for I from (fetch (BF IVAR) of DATUM)
|
||||
to (IDIFFERENCE DATUM 2) by 2
|
||||
always (IEQ \STK.NOTFLAG (fetch
|
||||
(BF FLAGS)
|
||||
of I])
|
||||
(ACCESSFNS BF ((BFBLOCK (ADDSTACKBASE DATUM))) (* ; "basic frame pointer")
|
||||
(BLOCKRECORD BFBLOCK ((FLAGS BITS 3)
|
||||
(NIL BITS 3)
|
||||
(RESIDUAL FLAG) (* ; "true if this is not a full BF")
|
||||
(PADDING BITS 1)
|
||||
(USECNT BITS 8)
|
||||
(IVAR WORD)))
|
||||
(TYPE? (IEQ (fetch (BF FLAGS) of DATUM)
|
||||
\STK.BF))
|
||||
[ACCESSFNS BF ((NARGS (IDIFFERENCE (FOLDLO (IDIFFERENCE DATUM (fetch (BF IVAR)
|
||||
of DATUM))
|
||||
WORDSPERCELL)
|
||||
(fetch (BF PADDING) of DATUM)))
|
||||
[SIZE (IPLUS 2 (IDIFFERENCE DATUM (fetch (BF IVAR) of DATUM]
|
||||
(CHECKED (AND (type? BF DATUM)
|
||||
(for I from (fetch (BF IVAR) of DATUM)
|
||||
to (IDIFFERENCE DATUM 2) by 2
|
||||
always (IEQ \STK.NOTFLAG (fetch (BF FLAGS) of I])
|
||||
|
||||
(ACCESSFNS FX ((FXBLOCK (ADDSTACKBASE DATUM))) (* ; "frame extension index")
|
||||
(BLOCKRECORD FXBLOCK ((FLAGS BITS 3) (* ; "= \STK.FX")
|
||||
(FAST FLAG)
|
||||
(NIL FLAG)
|
||||
(INCALL FLAG) (* ;
|
||||
"set when fncall microcode has to punt")
|
||||
(VALIDNAMETABLE FLAG)(* ;
|
||||
"if on, NAMETABLE field is filled in. If off, is same as FNHEADER")
|
||||
(NOPUSH FLAG) (* ;
|
||||
"when returning to this frame, don't push a value. Set by interrupt code")
|
||||
(USECNT BITS 8)
|
||||
(%#ALINK WORD) (* ; "low bit is SLOWP")
|
||||
(FNHEADER FULLXPOINTER)
|
||||
(NEXTBLOCK WORD)
|
||||
(PC WORD)
|
||||
(NAMETABLE# FULLXPOINTER)
|
||||
(%#BLINK WORD)
|
||||
(%#CLINK WORD)))
|
||||
(BLOCKRECORD FXBLOCK ((FLAGBYTE BYTE)
|
||||
(NIL BYTE)
|
||||
(NIL BITS 15) (* ; "most of the bits of #ALINK")
|
||||
(SLOWP FLAG) (* ;
|
||||
"if on, then BLINK and CLINK fields are valid. If off, they are implicit")
|
||||
(NIL FULLXPOINTER 2)
|
||||
(NAMETABHI WORD)
|
||||
(NAMETABLO WORD)))
|
||||
(TYPE? (IEQ (fetch (FX FLAGS) of DATUM)
|
||||
\STK.FX))
|
||||
[ACCESSFNS FX ((NAMETABLE (COND
|
||||
((fetch (FX VALIDNAMETABLE) of DATUM)
|
||||
(fetch (FX NAMETABLE#) of DATUM))
|
||||
(T (fetch (FX FNHEADER) of DATUM)))
|
||||
(PROGN (replace (FX FAST) of DATUM with NIL)
|
||||
(replace (FX NAMETABLE#) of DATUM with
|
||||
NEWVALUE)
|
||||
(replace (FX VALIDNAMETABLE) of DATUM
|
||||
with T)))
|
||||
(FRAMENAME (fetch (FNHEADER FRAMENAME)
|
||||
of (fetch (FX NAMETABLE) of DATUM)))
|
||||
(INVALIDP (EQ DATUM 0)) (* ;
|
||||
"true when A/CLink points at nobody, i.e. FX is bottom of stack")
|
||||
[FASTP (NOT (fetch (FX SLOWP) of DATUM))
|
||||
(PROGN (CHECK (NULL NEWVALUE))
|
||||
(COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#BLINK) of DATUM
|
||||
with (fetch (FX DUMMYBF) of DATUM))
|
||||
(replace (FX %#CLINK) of DATUM
|
||||
with (fetch (FX %#ALINK) of DATUM))
|
||||
(replace (FX SLOWP) of DATUM with
|
||||
T]
|
||||
[BLINK (COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(fetch (FX DUMMYBF) of DATUM))
|
||||
(T (fetch (FX %#BLINK) of DATUM)))
|
||||
(PROGN (replace (FX %#BLINK) of DATUM with
|
||||
NEWVALUE)
|
||||
(COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#CLINK) of DATUM
|
||||
with (fetch (FX %#ALINK) of DATUM))
|
||||
(replace (FX SLOWP) of DATUM with
|
||||
T]
|
||||
[CLINK (IDIFFERENCE (COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(fetch (FX %#ALINK) of DATUM))
|
||||
(T (fetch (FX %#CLINK) of DATUM)))
|
||||
\#ALINK.OFFSET)
|
||||
(PROGN (replace (FX %#CLINK) of DATUM
|
||||
with (IPLUS NEWVALUE \#ALINK.OFFSET))
|
||||
(COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#BLINK) of DATUM
|
||||
with (fetch (FX DUMMYBF) of DATUM))
|
||||
(replace (FX SLOWP) of DATUM with
|
||||
T]
|
||||
[ALINK (IDIFFERENCE (FLOOR (fetch (FX %#ALINK) of DATUM)
|
||||
WORDSPERCELL)
|
||||
\#ALINK.OFFSET)
|
||||
(PROGN [COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#BLINK) of DATUM
|
||||
with (fetch (FX DUMMYBF) of DATUM))
|
||||
(replace (FX %#CLINK) of DATUM
|
||||
with (fetch (FX %#ALINK) of DATUM]
|
||||
(replace (FX %#ALINK) of DATUM
|
||||
with (IPLUS NEWVALUE \#ALINK.OFFSET
|
||||
(SUB1 WORDSPERCELL]
|
||||
[ACLINK (SHOULDNT)
|
||||
(PROGN [COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#BLINK) of DATUM
|
||||
with (fetch (FX DUMMYBF) of DATUM]
|
||||
(ACCESSFNS FX ((FXBLOCK (ADDSTACKBASE DATUM))) (* ; "frame extension index")
|
||||
(BLOCKRECORD FXBLOCK ((FLAGS BITS 3) (* ; "= \STK.FX")
|
||||
(FAST FLAG)
|
||||
(NIL FLAG)
|
||||
(INCALL FLAG) (* ;
|
||||
"set when fncall microcode has to punt")
|
||||
(VALIDNAMETABLE FLAG) (* ;
|
||||
"if on, NAMETABLE field is filled in. If off, is same as FNHEADER")
|
||||
(NOPUSH FLAG) (* ;
|
||||
"when returning to this frame, don't push a value. Set by interrupt code")
|
||||
(USECNT BITS 8)
|
||||
(%#ALINK WORD) (* ; "low bit is SLOWP")
|
||||
(FNHEADER FULLXPOINTER)
|
||||
(NEXTBLOCK WORD)
|
||||
(PC WORD)
|
||||
(NAMETABLE# FULLXPOINTER)
|
||||
(%#BLINK WORD)
|
||||
(%#CLINK WORD)))
|
||||
(BLOCKRECORD FXBLOCK ((FLAGBYTE BYTE)
|
||||
(NIL BYTE)
|
||||
(NIL BITS 15) (* ; "most of the bits of #ALINK")
|
||||
(SLOWP FLAG) (* ;
|
||||
"if on, then BLINK and CLINK fields are valid. If off, they are implicit")
|
||||
(NIL FULLXPOINTER) (* ; "FNHEADER")
|
||||
(NIL WORD) (* ; "NEXSTBLOCK")
|
||||
(NIL WORD) (* ; "PC")
|
||||
(NAMETABHI WORD)
|
||||
(NAMETABLO WORD)))
|
||||
(TYPE? (IEQ (fetch (FX FLAGS) of DATUM)
|
||||
\STK.FX))
|
||||
[ACCESSFNS FX ((NAMETABLE (COND
|
||||
((fetch (FX VALIDNAMETABLE) of DATUM)
|
||||
(fetch (FX NAMETABLE#) of DATUM))
|
||||
(T (fetch (FX FNHEADER) of DATUM)))
|
||||
(PROGN (replace (FX FAST) of DATUM with NIL)
|
||||
(replace (FX NAMETABLE#) of DATUM with NEWVALUE)
|
||||
(replace (FX VALIDNAMETABLE) of DATUM with T)))
|
||||
(FRAMENAME (fetch (FNHEADER FRAMENAME) of (fetch (FX NAMETABLE)
|
||||
of DATUM)))
|
||||
(INVALIDP (EQ DATUM 0)) (* ;
|
||||
"true when A/CLink points at nobody, i.e. FX is bottom of stack")
|
||||
[FASTP (NOT (fetch (FX SLOWP) of DATUM))
|
||||
(PROGN (CHECK (NULL NEWVALUE))
|
||||
(COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#BLINK) of DATUM
|
||||
with (fetch (FX DUMMYBF) of DATUM))
|
||||
(replace (FX %#CLINK) of DATUM
|
||||
with (IPLUS NEWVALUE \#ALINK.OFFSET))
|
||||
(replace (FX %#ALINK) of DATUM
|
||||
with (IPLUS NEWVALUE \#ALINK.OFFSET
|
||||
(SUB1 WORDSPERCELL]
|
||||
with (fetch (FX %#ALINK) of DATUM))
|
||||
(replace (FX SLOWP) of DATUM with T]
|
||||
[BLINK (COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(fetch (FX DUMMYBF) of DATUM))
|
||||
(T (fetch (FX %#BLINK) of DATUM)))
|
||||
(PROGN (replace (FX %#BLINK) of DATUM with NEWVALUE)
|
||||
(COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#CLINK) of DATUM
|
||||
with (fetch (FX %#ALINK) of DATUM))
|
||||
(replace (FX SLOWP) of DATUM with T]
|
||||
[CLINK (IDIFFERENCE (COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(fetch (FX %#ALINK) of DATUM))
|
||||
(T (fetch (FX %#CLINK) of DATUM)))
|
||||
\#ALINK.OFFSET)
|
||||
(PROGN (replace (FX %#CLINK) of DATUM with (IPLUS NEWVALUE
|
||||
\#ALINK.OFFSET)
|
||||
)
|
||||
(COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#BLINK) of DATUM
|
||||
with (fetch (FX DUMMYBF) of DATUM))
|
||||
(replace (FX SLOWP) of DATUM with T]
|
||||
[ALINK (IDIFFERENCE (FLOOR (fetch (FX %#ALINK) of DATUM)
|
||||
WORDSPERCELL)
|
||||
\#ALINK.OFFSET)
|
||||
(PROGN [COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#BLINK) of DATUM
|
||||
with (fetch (FX DUMMYBF) of DATUM))
|
||||
(replace (FX %#CLINK) of DATUM
|
||||
with (fetch (FX %#ALINK) of DATUM]
|
||||
(replace (FX %#ALINK) of DATUM with (IPLUS NEWVALUE
|
||||
\#ALINK.OFFSET
|
||||
(SUB1
|
||||
WORDSPERCELL
|
||||
]
|
||||
[ACLINK (SHOULDNT)
|
||||
(PROGN [COND
|
||||
((fetch (FX FASTP) of DATUM)
|
||||
(replace (FX %#BLINK) of DATUM
|
||||
with (fetch (FX DUMMYBF) of DATUM]
|
||||
(replace (FX %#CLINK) of DATUM with (IPLUS NEWVALUE
|
||||
\#ALINK.OFFSET)
|
||||
)
|
||||
(replace (FX %#ALINK) of DATUM with (IPLUS NEWVALUE
|
||||
\#ALINK.OFFSET
|
||||
(SUB1
|
||||
WORDSPERCELL
|
||||
]
|
||||
(* ;
|
||||
"replaces A & C Links at once more efficiently than separately")
|
||||
(DUMMYBF (IDIFFERENCE DATUM WORDSPERCELL))
|
||||
"replaces A & C Links at once more efficiently than separately")
|
||||
(DUMMYBF (IDIFFERENCE DATUM WORDSPERCELL))
|
||||
|
||||
(* ;; "This is either an actual BF or %"residual%" BF that provides enough BF to find its IVAR slot. This means that when a FX is copied, the cell preceding the FX is copied too.")
|
||||
(* ;; "This is either an actual BF or %"residual%" BF that provides enough BF to find its IVAR slot. This means that when a FX is copied, the cell preceding the FX is copied too.")
|
||||
|
||||
(IVAR (fetch (BF IVAR) of (fetch (FX DUMMYBF)
|
||||
of DATUM)))
|
||||
[CHECKED (AND (type? FX DATUM)
|
||||
(OR (IEQ (fetch (FX DUMMYBF) of DATUM)
|
||||
(fetch (FX BLINK) of DATUM))
|
||||
(AND (fetch (BF RESIDUAL)
|
||||
of (fetch (FX DUMMYBF)
|
||||
of DATUM))
|
||||
(IEQ (fetch (BF IVAR)
|
||||
of (fetch (FX DUMMYBF)
|
||||
of DATUM))
|
||||
(fetch (BF IVAR)
|
||||
of (fetch (FX BLINK)
|
||||
of DATUM]
|
||||
(FIRSTPVAR (IPLUS DATUM (fetch (FX FXSIZE) of T)))
|
||||
(IVAR (fetch (BF IVAR) of (fetch (FX DUMMYBF) of DATUM)))
|
||||
[CHECKED (AND (type? FX DATUM)
|
||||
(OR (IEQ (fetch (FX DUMMYBF) of DATUM)
|
||||
(fetch (FX BLINK) of DATUM))
|
||||
(AND (fetch (BF RESIDUAL) of (fetch (FX DUMMYBF)
|
||||
of DATUM))
|
||||
(IEQ (fetch (BF IVAR) of (fetch (FX DUMMYBF)
|
||||
of DATUM))
|
||||
(fetch (BF IVAR) of (fetch (FX BLINK)
|
||||
of DATUM]
|
||||
(FIRSTPVAR (IPLUS DATUM (fetch (FX FXSIZE) of T)))
|
||||
(* ; "stack offset of PVAR0")
|
||||
(FXSIZE (PROGN 10)) (* ;
|
||||
"fixed overhead from flags thru clink")
|
||||
(PADDING (PROGN 4)) (* ;
|
||||
"doublecell of garbage for microcode use")
|
||||
(FIRSTTEMP (IPLUS (fetch (FX FIRSTPVAR) of DATUM)
|
||||
(fetch (FX NPVARWORDS) of DATUM)
|
||||
(fetch (FX PADDING) of DATUM)))
|
||||
(FXSIZE (PROGN 10)) (* ;
|
||||
"fixed overhead from flags thru clink")
|
||||
(PADDING (PROGN 4)) (* ;
|
||||
"doublecell of garbage for microcode use")
|
||||
(FIRSTTEMP (IPLUS (fetch (FX FIRSTPVAR) of DATUM)
|
||||
(fetch (FX NPVARWORDS) of DATUM)
|
||||
(fetch (FX PADDING) of DATUM)))
|
||||
(* ;
|
||||
"note that NPVARWORDS is obtained from the FNHEADER")
|
||||
(SIZE (IDIFFERENCE (fetch (FX NEXTBLOCK) of DATUM)
|
||||
DATUM])
|
||||
"note that NPVARWORDS is obtained from the FNHEADER")
|
||||
(SIZE (IDIFFERENCE (fetch (FX NEXTBLOCK) of DATUM)
|
||||
DATUM])
|
||||
|
||||
(ACCESSFNS FSB
|
||||
(* ;; "FREE STACK BLOCK -- ")
|
||||
(* ;; "FREE STACK BLOCK -- ")
|
||||
|
||||
(* ;; " A piece of stack space that's free.")
|
||||
(* ;; " A piece of stack space that's free.")
|
||||
|
||||
(* ;; "The first word contains 120000Q")
|
||||
(* ;; "The first word contains 120000Q")
|
||||
|
||||
(* ;; "The 2nd word is the size of the block, in words.")
|
||||
(* ;; "The 2nd word is the size of the block, in words.")
|
||||
|
||||
((FSBBLOCK (ADDSTACKBASE DATUM))
|
||||
(CHECKED (IEQ (fetch (FSB FLAGWORD) of DATUM)
|
||||
\STK.FSB.WORD)))
|
||||
(BLOCKRECORD FSBBLOCK ((FLAGS BITS 3)
|
||||
(DUMMY BITS 13)
|
||||
(SIZE WORD)))
|
||||
(BLOCKRECORD FSBBLOCK ((FLAGWORD WORD)
|
||||
(SIZE WORD))) (* ; "free stack block")
|
||||
(TYPE? (IEQ (fetch (FSB FLAGS) of DATUM)
|
||||
\STK.FSB)))
|
||||
((FSBBLOCK (ADDSTACKBASE DATUM))
|
||||
(CHECKED (IEQ (fetch (FSB FLAGWORD) of DATUM)
|
||||
\STK.FSB.WORD)))
|
||||
(BLOCKRECORD FSBBLOCK ((FLAGS BITS 3)
|
||||
(DUMMY BITS 13)
|
||||
(SIZE WORD)))
|
||||
(BLOCKRECORD FSBBLOCK ((FLAGWORD WORD)
|
||||
(SIZE WORD))) (* ; "free stack block")
|
||||
(TYPE? (IEQ (fetch (FSB FLAGS) of DATUM)
|
||||
\STK.FSB)))
|
||||
|
||||
(ACCESSFNS STK ((STKBLOCK (ADDSTACKBASE DATUM))) (* ; "unspecified stack block")
|
||||
(BLOCKRECORD STKBLOCK ((FLAGS BITS 3)))
|
||||
(BLOCKRECORD STKBLOCK ((FLAGWORD WORD))))
|
||||
(ACCESSFNS STK ((STKBLOCK (ADDSTACKBASE DATUM))) (* ; "unspecified stack block")
|
||||
(BLOCKRECORD STKBLOCK ((FLAGS BITS 3)))
|
||||
(BLOCKRECORD STKBLOCK ((FLAGWORD WORD))))
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
@@ -287,47 +281,44 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
(PUTPROPS ADDSTACKBASE DMACRO (= . STACKADDBASE))
|
||||
|
||||
(PUTPROPS STACKADDBASE DMACRO ((N)
|
||||
(VAG2 \STACKHI N)))
|
||||
(VAG2 \STACKHI N)))
|
||||
|
||||
(PUTPROPS STACKGETBASE DMACRO ((N)
|
||||
(\GETBASE (STACKADDBASE N)
|
||||
0)))
|
||||
(\GETBASE (STACKADDBASE N)
|
||||
0)))
|
||||
|
||||
(PUTPROPS STACKGETBASEPTR DMACRO ((N)
|
||||
(\GETBASEPTR (STACKADDBASE N)
|
||||
0)))
|
||||
(\GETBASEPTR (STACKADDBASE N)
|
||||
0)))
|
||||
|
||||
(PUTPROPS STACKPUTBASE DMACRO ((N V)
|
||||
(\PUTBASE (STACKADDBASE N)
|
||||
0 V)))
|
||||
(\PUTBASE (STACKADDBASE N)
|
||||
0 V)))
|
||||
|
||||
(PUTPROPS STACKPUTBASEPTR DMACRO ((N V)
|
||||
(\PUTBASEPTR (STACKADDBASE N)
|
||||
0 V)))
|
||||
(\PUTBASEPTR (STACKADDBASE N)
|
||||
0 V)))
|
||||
|
||||
(PUTPROPS \MISCAPPLY* MACRO ((FN ARG1 ARG2)
|
||||
(UNINTERRUPTABLY
|
||||
(replace (IFPAGE MISCSTACKFN) of \InterfacePage
|
||||
with FN)
|
||||
(replace (IFPAGE MISCSTACKARG1) of \InterfacePage
|
||||
with ARG1)
|
||||
(replace (IFPAGE MISCSTACKARG2) of \InterfacePage
|
||||
with ARG2)
|
||||
(\CONTEXTSWITCH \MiscFXP)
|
||||
(fetch (IFPAGE MISCSTACKRESULT) of \InterfacePage))))
|
||||
(UNINTERRUPTABLY
|
||||
(replace (IFPAGE MISCSTACKFN) of \InterfacePage with FN)
|
||||
(replace (IFPAGE MISCSTACKARG1) of \InterfacePage with ARG1)
|
||||
(replace (IFPAGE MISCSTACKARG2) of \InterfacePage with ARG2)
|
||||
(\CONTEXTSWITCH \MiscFXP)
|
||||
(fetch (IFPAGE MISCSTACKRESULT) of \InterfacePage))))
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(BLOCKRECORD STACKP ((STACKP0 WORD)
|
||||
(EDFXP WORD))
|
||||
(BLOCKRECORD STACKP ((STACKPOINTER FULLXPOINTER)))
|
||||
(TYPE? (STACKP DATUM)))
|
||||
(EDFXP WORD))
|
||||
(BLOCKRECORD STACKP ((STACKPOINTER FULLXPOINTER)))
|
||||
(TYPE? (STACKP DATUM)))
|
||||
)
|
||||
|
||||
(RPAQQ STACKTYPES (\STK.GUARD \STK.FX \STK.BF \STK.NOTFLAG \STK.FSB \STK.FLAGS.SHIFT
|
||||
(\STK.FSB.WORD (LLSH \STK.FSB \STK.FLAGS.SHIFT))
|
||||
(\STK.GUARD.WORD (LLSH \STK.GUARD \STK.FLAGS.SHIFT))
|
||||
(\STK.BF.WORD (LLSH \STK.BF \STK.FLAGS.SHIFT))))
|
||||
(\STK.FSB.WORD (LLSH \STK.FSB \STK.FLAGS.SHIFT))
|
||||
(\STK.GUARD.WORD (LLSH \STK.GUARD \STK.FLAGS.SHIFT))
|
||||
(\STK.BF.WORD (LLSH \STK.BF \STK.FLAGS.SHIFT))))
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RPAQQ \STK.GUARD 7)
|
||||
@@ -375,44 +366,44 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(BLOCKRECORD NAMETABLESLOT ((VARTYPE BYTE)
|
||||
(VAROFFSET BYTE)))
|
||||
(VAROFFSET BYTE)))
|
||||
|
||||
(BLOCKRECORD FVARSLOT ((BINDLO WORD)
|
||||
(BINDHI WORD))
|
||||
[ACCESSFNS FVARSLOT ((LOOKEDUP (EVENP (fetch BINDLO of DATUM)))
|
||||
(BINDINGPTR (\VAG2 (fetch BINDHI of DATUM)
|
||||
(fetch BINDLO of DATUM))
|
||||
(PROGN (replace BINDLO of DATUM
|
||||
with (\LOLOC NEWVALUE))
|
||||
(replace BINDHI of DATUM
|
||||
with (\HILOC NEWVALUE])
|
||||
(BINDHI WORD))
|
||||
[ACCESSFNS FVARSLOT ((LOOKEDUP (EVENP (fetch BINDLO of DATUM)))
|
||||
(BINDINGPTR (\VAG2 (fetch BINDHI of DATUM)
|
||||
(fetch BINDLO of DATUM))
|
||||
(PROGN (replace BINDLO of DATUM with (\LOLOC
|
||||
NEWVALUE
|
||||
))
|
||||
(replace BINDHI of DATUM with (\HILOC
|
||||
NEWVALUE
|
||||
])
|
||||
|
||||
(BLOCKRECORD PVARSLOT ((PVHI BITS 4)
|
||||
(PVVALUE XPOINTER))
|
||||
[ACCESSFNS PVARSLOT ((BOUND (EQ (fetch (PVARSLOT PVHI) of DATUM)
|
||||
0)
|
||||
(if (NULL NEWVALUE)
|
||||
then (replace (PVARSLOT PVHI)
|
||||
of DATUM with 255)
|
||||
else (ERROR "Illegal replace" NEWVALUE])
|
||||
(PVVALUE XPOINTER))
|
||||
[ACCESSFNS PVARSLOT ((BOUND (EQ (fetch (PVARSLOT PVHI) of DATUM)
|
||||
0)
|
||||
(if (NULL NEWVALUE)
|
||||
then (replace (PVARSLOT PVHI) of DATUM
|
||||
with 255)
|
||||
else (ERROR "Illegal replace" NEWVALUE])
|
||||
|
||||
(BLOCKRECORD STKTEMPSLOT ((STKTMPHI BITS 4)
|
||||
(VALUE XPOINTER))
|
||||
[ACCESSFNS STKTEMPSLOT ((BINDINGPTRP (NEQ (fetch STKTMPHI
|
||||
of DATUM)
|
||||
0])
|
||||
(VALUE XPOINTER))
|
||||
[ACCESSFNS STKTEMPSLOT ((BINDINGPTRP (NEQ (fetch STKTMPHI of DATUM)
|
||||
0])
|
||||
|
||||
(BLOCKRECORD BINDMARKSLOT ((BINDMARKP FLAG)
|
||||
(NIL BITS 15))
|
||||
(BLOCKRECORD BINDMARKSLOT ((BINDNEGVALUES WORD)
|
||||
(BINDLASTPVAR WORD)))
|
||||
[ACCESSFNS BINDMARKSLOT ((BINDNVALUES (PROGN
|
||||
(NIL BITS 15))
|
||||
(BLOCKRECORD BINDMARKSLOT ((BINDNEGVALUES WORD)
|
||||
(BINDLASTPVAR WORD)))
|
||||
[ACCESSFNS BINDMARKSLOT ((BINDNVALUES (PROGN
|
||||
(* ;
|
||||
"Value stored in high half is one's complement of number of values bound")
|
||||
(LOGXOR (fetch
|
||||
BINDNEGVALUES
|
||||
of DATUM)
|
||||
65535])
|
||||
"Value stored in high half is one's complement of number of values bound")
|
||||
(LOGXOR (fetch BINDNEGVALUES
|
||||
of DATUM)
|
||||
65535])
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
@@ -432,13 +423,12 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(BLOCKRECORD STACKCELL ((STACKNONPOINTERBITS BITS 8)
|
||||
(STACKHIBITS BITS 8)
|
||||
(STACKLOBITS WORD))
|
||||
[ACCESSFNS STACKCELL ((VALIDPOINTERP (EQ 0 (fetch (STACKCELL
|
||||
STACKNONPOINTERBITS
|
||||
)
|
||||
of DATUM)))
|
||||
(VALIDPOINTER (\GETBASEPTR DATUM 0])
|
||||
(STACKHIBITS BITS 8)
|
||||
(STACKLOBITS WORD))
|
||||
[ACCESSFNS STACKCELL ((VALIDPOINTERP (EQ 0 (fetch (STACKCELL
|
||||
STACKNONPOINTERBITS)
|
||||
of DATUM)))
|
||||
(VALIDPOINTER (\GETBASEPTR DATUM 0])
|
||||
)
|
||||
)
|
||||
|
||||
@@ -1221,10 +1211,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
)
|
||||
)
|
||||
|
||||
(RPAQQ *HARDRESET-IGNORE-VARS* (SI::*CLEANUP-FORMS* SI::*DUMMY-FOR-CATCH* SI::*CATCH-RETURN-FROM*
|
||||
SI::*CATCH-RETURN-TO* *FORM* *ARGVAL* *FN* *TAIL*
|
||||
*FIRSTTAIL* \INTERNAL \INTERRUPTABLE SI::*NLSETQFLAG*
|
||||
*PROCEED-CASES*))
|
||||
(RPAQQ *HARDRESET-IGNORE-VARS* (SI::*CLEANUP-FORMS* SI::*DUMMY-FOR-CATCH* SI::*CATCH-RETURN-FROM*
|
||||
SI::*CATCH-RETURN-TO* *FORM* *ARGVAL* *FN* *TAIL* *FIRSTTAIL*
|
||||
\INTERNAL \INTERRUPTABLE SI::*NLSETQFLAG* *PROCEED-CASES*))
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(GLOBALVARS *HARDRESET-IGNORE-VARS*)
|
||||
@@ -1303,118 +1292,31 @@ EVAL@COMPILE
|
||||
|
||||
(ADDTOVAR NLAML )
|
||||
|
||||
(ADDTOVAR LAMA SI::INTERNAL-THROW SI::NON-LOCAL-RETURN)
|
||||
)
|
||||
(PRETTYCOMPRINT LLSTKCOMS)
|
||||
|
||||
(RPAQQ LLSTKCOMS
|
||||
[(DECLARE%: DONTCOPY (EXPORT (RECORDS BF FX FSB STK)
|
||||
(CONSTANTS \#ALINK.OFFSET)
|
||||
(GLOBALVARS \PENDINGINTERRUPT \KBDSTACKBASE \MISCSTACKBASE
|
||||
\STACKOVERFLOW)
|
||||
(MACROS \MYALINK ADDSTACKBASE STACKADDBASE STACKGETBASE
|
||||
STACKGETBASEPTR STACKPUTBASE STACKPUTBASEPTR \MISCAPPLY*)
|
||||
(RECORDS STACKP)
|
||||
(CONSTANTS * STACKTYPES)
|
||||
(CONSTANTS \StackAreaSize (\InitStackSize (ITIMES \StackAreaSize
|
||||
12)))
|
||||
(CONSTANTS \MAXSAFEUSECOUNT)
|
||||
(RECORDS NAMETABLESLOT FVARSLOT PVARSLOT STKTEMPSLOT BINDMARKSLOT)
|
||||
(CONSTANTS \NT.IVAR \NT.PVAR \NT.FVAR))
|
||||
(RECORDS STACKCELL))
|
||||
(COMS (* ;
|
||||
"For LAMBDA* and Common Lisp functions.")
|
||||
(FNS \MYARGCOUNT \ARG0 \SETARG0))
|
||||
(COMS (* ;
|
||||
"basic spaghetti for allocating, moving and reclaiming stack frames")
|
||||
(FNS \HARDRETURN \DOHARDRETURN \DOGC1 \DOGC \DOHARDRETURN1 \DOSTACKOVERFLOW \MOVEFRAME
|
||||
\INCUSECOUNT \DECUSECOUNT \MAKESTACKP \SMASHLINK \FREESTACKBLOCK \EXTENDSTACK))
|
||||
(COMS (* ; "Some ugly stack-munging ufns")
|
||||
(FNS \SLOWRETURN \COPY.N.UFN \POP.N.UFN \STORE.N.UFN \UNWIND.UFN))
|
||||
(COMS (* ; "The unwinder")
|
||||
(FNS SI::NON-LOCAL-GO SI::NON-LOCAL-RETURN SI::NON-LOCAL-RETURN-VALUES
|
||||
SI::INTERNAL-THROW SI::INTERNAL-THROW-VALUES SI::UNWIND-TO-BLIP SI::UNWIND
|
||||
SI::VARIABLE-NAME-IN-FRAME SI::PVAR-VALUE-IN-FRAME)
|
||||
(FNS \DISCARDFRAME \SMASHRETURN))
|
||||
(COMS (* ; "parsing stack for gc")
|
||||
(FNS \GCSCANSTACK))
|
||||
(COMS (* ; "setting up stack from scratch")
|
||||
(FNS CLEARSTK HARDRESET RELSTK RELSTKP)
|
||||
(FNS SETUPSTACK \SETUPSTACK1 \MAKEFRAME \RESETSTACK \RESETSTACK0 \SETUPUSERSTACK
|
||||
\SETUPGUARDBLOCK \MAKEFREEBLOCK \REPEATEDLYEVALQT \DUMMYKEYHANDLER \DUMMYTELERAID
|
||||
\CAUSEINTERRUPT \CONTEXTAPPLY \INTERRUPTFRAME \INTERRUPTED \CODEFORTFRAME
|
||||
\DOMISCAPPLY \DOMISCAPPLY1)
|
||||
(INITVARS \SAVED.USER.CONTEXT \NEED.HARDRESET.CLEANUP)
|
||||
(GLOBALVARS \SAVED.USER.CONTEXT \NEED.HARDRESET.CLEANUP))
|
||||
(COMS (* ; "HARDRESET recovery code")
|
||||
(FNS \GATHER-CLEANUP-FORMS \GATHER-CLEANUP-FORMS1 \GATHER-SPECIAL-BINDINGS
|
||||
\HARDRESET-CLEANUP \HARDRESET-CLEANUP1 \HARDRESET-CLEANUP-RUN)
|
||||
(VARS *HARDRESET-IGNORE-VARS*)
|
||||
(GLOBALVARS *HARDRESET-IGNORE-VARS*))
|
||||
(COMS (* ; "Ufns for RETCALL")
|
||||
(FNS \DORETCALL \RETCALL))
|
||||
(INITVARS (STACKTESTING T))
|
||||
(COMS (* ; "Stack overflow handler")
|
||||
(FNS \DOSTACKFULLINTERRUPT STACK.FULL.WARNING \CLEANUP.STACKFULL)
|
||||
(INITVARS (\PENDINGINTERRUPT)
|
||||
(\STACKOVERFLOW)
|
||||
(AUTOHARDRESETFLG T))
|
||||
(ADDVARS (RESETFORMS (SETQ \STACKOVERFLOW)))
|
||||
(GLOBALVARS AUTOHARDRESETFLG))
|
||||
(DECLARE%: DONTCOPY
|
||||
(ADDVARS [INEWCOMS (FNS SETUPSTACK \SETUPSTACK1 \SETUPGUARDBLOCK \MAKEFREEBLOCK)
|
||||
(ALLOCAL (ADDVARS (LOCKEDFNS \RESETSTACK0 \MAKEFRAME \SETUPSTACK1
|
||||
\MAKEFREEBLOCK \FAULTHANDLER \KEYHANDLER
|
||||
\DUMMYKEYHANDLER \DOTELERAID \DUMMYTELERAID
|
||||
\DOHARDRETURN \DOGC \CAUSEINTERRUPT
|
||||
\INTERRUPTFRAME \CODEFORTFRAME
|
||||
\DOSTACKOVERFLOW \UNLOCKPAGES \DOMISCAPPLY)
|
||||
(LOCKEDVARS \InterfacePage \DEFSPACE \STACKSPACE
|
||||
\KBDSTACKBASE \MISCSTACKBASE
|
||||
\SAVED.USER.CONTEXT \RUNNING.PROCESS
|
||||
\NEED.HARDRESET.CLEANUP]
|
||||
(EXPANDMACROFNS ADDSTACKBASE STACKADDBASE))
|
||||
EVAL@COMPILE
|
||||
(ADDVARS (DONTCOMPILEFNS SETUPSTACK)))
|
||||
(LOCALVARS . T)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
(ADDVARS (NLAMA)
|
||||
(NLAML)
|
||||
(LAMA SI::INTERNAL-THROW-VALUES SI::INTERNAL-THROW SI::NON-LOCAL-RETURN-VALUES
|
||||
SI::NON-LOCAL-RETURN])
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
|
||||
(ADDTOVAR NLAMA )
|
||||
|
||||
(ADDTOVAR NLAML )
|
||||
|
||||
(ADDTOVAR LAMA SI::INTERNAL-THROW-VALUES SI::INTERNAL-THROW SI::NON-LOCAL-RETURN-VALUES
|
||||
SI::NON-LOCAL-RETURN)
|
||||
SI::NON-LOCAL-RETURN)
|
||||
)
|
||||
(PUTPROPS LLSTK COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991
|
||||
1992 1993))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (26973 28438 (\MYARGCOUNT 26983 . 27268) (\ARG0 27270 . 27836) (\SETARG0 27838 . 28436))
|
||||
(28522 45444 (\HARDRETURN 28532 . 28748) (\DOHARDRETURN 28750 . 28929) (\DOGC1 28931 . 29146) (\DOGC
|
||||
29148 . 29253) (\DOHARDRETURN1 29255 . 33570) (\DOSTACKOVERFLOW 33572 . 34472) (\MOVEFRAME 34474 .
|
||||
38001) (\INCUSECOUNT 38003 . 38769) (\DECUSECOUNT 38771 . 39916) (\MAKESTACKP 39918 . 40378) (
|
||||
\SMASHLINK 40380 . 41833) (\FREESTACKBLOCK 41835 . 44576) (\EXTENDSTACK 44578 . 45442)) (45490 49233 (
|
||||
\SLOWRETURN 45500 . 45638) (\COPY.N.UFN 45640 . 45805) (\POP.N.UFN 45807 . 46482) (\STORE.N.UFN 46484
|
||||
. 46658) (\UNWIND.UFN 46660 . 49231)) (49263 60146 (SI::NON-LOCAL-GO 49273 . 49771) (
|
||||
SI::NON-LOCAL-RETURN 49773 . 50498) (SI::NON-LOCAL-RETURN-VALUES 50500 . 51073) (SI::INTERNAL-THROW
|
||||
51075 . 51743) (SI::INTERNAL-THROW-VALUES 51745 . 52251) (SI::UNWIND-TO-BLIP 52253 . 55986) (SI::UNWIND
|
||||
55988 . 57544) (SI::VARIABLE-NAME-IN-FRAME 57546 . 58466) (SI::PVAR-VALUE-IN-FRAME 58468 . 60144)) (
|
||||
60147 63781 (\DISCARDFRAME 60157 . 62105) (\SMASHRETURN 62107 . 63779)) (63819 70819 (\GCSCANSTACK
|
||||
63829 . 70817)) (70866 72307 (CLEARSTK 70876 . 71570) (HARDRESET 71572 . 71693) (RELSTK 71695 . 71893)
|
||||
(RELSTKP 71895 . 72305)) (72308 84299 (SETUPSTACK 72318 . 73336) (\SETUPSTACK1 73338 . 75247) (
|
||||
\MAKEFRAME 75249 . 75602) (\RESETSTACK 75604 . 75907) (\RESETSTACK0 75909 . 79013) (\SETUPUSERSTACK
|
||||
79015 . 80719) (\SETUPGUARDBLOCK 80721 . 80887) (\MAKEFREEBLOCK 80889 . 81128) (\REPEATEDLYEVALQT
|
||||
81130 . 81261) (\DUMMYKEYHANDLER 81263 . 81565) (\DUMMYTELERAID 81567 . 81680) (\CAUSEINTERRUPT 81682
|
||||
. 82730) (\CONTEXTAPPLY 82732 . 82944) (\INTERRUPTFRAME 82946 . 83140) (\INTERRUPTED 83142 . 83354) (
|
||||
\CODEFORTFRAME 83356 . 83612) (\DOMISCAPPLY 83614 . 83689) (\DOMISCAPPLY1 83691 . 84297)) (84513
|
||||
102751 (\GATHER-CLEANUP-FORMS 84523 . 84899) (\GATHER-CLEANUP-FORMS1 84901 . 88530) (
|
||||
\GATHER-SPECIAL-BINDINGS 88532 . 91506) (\HARDRESET-CLEANUP 91508 . 95965) (\HARDRESET-CLEANUP1 95967
|
||||
. 102300) (\HARDRESET-CLEANUP-RUN 102302 . 102749)) (103213 104265 (\DORETCALL 103223 . 104165) (
|
||||
\RETCALL 104167 . 104263)) (104333 105268 (\DOSTACKFULLINTERRUPT 104343 . 104551) (STACK.FULL.WARNING
|
||||
104553 . 104921) (\CLEANUP.STACKFULL 104923 . 105266)))))
|
||||
(FILEMAP (NIL (25672 27137 (\MYARGCOUNT 25682 . 25967) (\ARG0 25969 . 26535) (\SETARG0 26537 . 27135))
|
||||
(27221 44143 (\HARDRETURN 27231 . 27447) (\DOHARDRETURN 27449 . 27628) (\DOGC1 27630 . 27845) (\DOGC
|
||||
27847 . 27952) (\DOHARDRETURN1 27954 . 32269) (\DOSTACKOVERFLOW 32271 . 33171) (\MOVEFRAME 33173 .
|
||||
36700) (\INCUSECOUNT 36702 . 37468) (\DECUSECOUNT 37470 . 38615) (\MAKESTACKP 38617 . 39077) (
|
||||
\SMASHLINK 39079 . 40532) (\FREESTACKBLOCK 40534 . 43275) (\EXTENDSTACK 43277 . 44141)) (44189 47932 (
|
||||
\SLOWRETURN 44199 . 44337) (\COPY.N.UFN 44339 . 44504) (\POP.N.UFN 44506 . 45181) (\STORE.N.UFN 45183
|
||||
. 45357) (\UNWIND.UFN 45359 . 47930)) (47962 58845 (SI::NON-LOCAL-GO 47972 . 48470) (
|
||||
SI::NON-LOCAL-RETURN 48472 . 49197) (SI::NON-LOCAL-RETURN-VALUES 49199 . 49772) (SI::INTERNAL-THROW
|
||||
49774 . 50442) (SI::INTERNAL-THROW-VALUES 50444 . 50950) (SI::UNWIND-TO-BLIP 50952 . 54685) (SI::UNWIND
|
||||
54687 . 56243) (SI::VARIABLE-NAME-IN-FRAME 56245 . 57165) (SI::PVAR-VALUE-IN-FRAME 57167 . 58843)) (
|
||||
58846 62480 (\DISCARDFRAME 58856 . 60804) (\SMASHRETURN 60806 . 62478)) (62518 69518 (\GCSCANSTACK
|
||||
62528 . 69516)) (69565 71006 (CLEARSTK 69575 . 70269) (HARDRESET 70271 . 70392) (RELSTK 70394 . 70592)
|
||||
(RELSTKP 70594 . 71004)) (71007 82998 (SETUPSTACK 71017 . 72035) (\SETUPSTACK1 72037 . 73946) (
|
||||
\MAKEFRAME 73948 . 74301) (\RESETSTACK 74303 . 74606) (\RESETSTACK0 74608 . 77712) (\SETUPUSERSTACK
|
||||
77714 . 79418) (\SETUPGUARDBLOCK 79420 . 79586) (\MAKEFREEBLOCK 79588 . 79827) (\REPEATEDLYEVALQT
|
||||
79829 . 79960) (\DUMMYKEYHANDLER 79962 . 80264) (\DUMMYTELERAID 80266 . 80379) (\CAUSEINTERRUPT 80381
|
||||
. 81429) (\CONTEXTAPPLY 81431 . 81643) (\INTERRUPTFRAME 81645 . 81839) (\INTERRUPTED 81841 . 82053) (
|
||||
\CODEFORTFRAME 82055 . 82311) (\DOMISCAPPLY 82313 . 82388) (\DOMISCAPPLY1 82390 . 82996)) (83212
|
||||
101450 (\GATHER-CLEANUP-FORMS 83222 . 83598) (\GATHER-CLEANUP-FORMS1 83600 . 87229) (
|
||||
\GATHER-SPECIAL-BINDINGS 87231 . 90205) (\HARDRESET-CLEANUP 90207 . 94664) (\HARDRESET-CLEANUP1 94666
|
||||
. 100999) (\HARDRESET-CLEANUP-RUN 101001 . 101448)) (101862 102914 (\DORETCALL 101872 . 102814) (
|
||||
\RETCALL 102816 . 102912)) (102982 103917 (\DOSTACKFULLINTERRUPT 102992 . 103200) (STACK.FULL.WARNING
|
||||
103202 . 103570) (\CLEANUP.STACKFULL 103572 . 103915)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -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
|
||||
|
||||
Binary file not shown.
Binary file not shown.
217
sources/XCCS
217
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
|
||||
|
||||
Binary file not shown.
Binary file not shown.
1500
unicode/xerox/XCCS-0,41-43,46,50,356,357,361.TXT
Normal file
1500
unicode/xerox/XCCS-0,41-43,46,50,356,357,361.TXT
Normal file
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
151
unicode/xerox/XCCS-345=DEVANAGRI.TXT
Normal file
151
unicode/xerox/XCCS-345=DEVANAGRI.TXT
Normal file
@@ -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
|
||||
135
unicode/xerox/XCCS-346=BENGALI.TXT
Normal file
135
unicode/xerox/XCCS-346=BENGALI.TXT
Normal file
@@ -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
|
||||
105
unicode/xerox/XCCS-347=GURMUKHI.TXT
Normal file
105
unicode/xerox/XCCS-347=GURMUKHI.TXT
Normal file
@@ -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
|
||||
198
unicode/xerox/XCCS-350=THAI-LAO.TXT
Normal file
198
unicode/xerox/XCCS-350=THAI-LAO.TXT
Normal file
@@ -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
|
||||
147
unicode/xerox/XCCS-353=SYMBOLS3.TXT
Normal file
147
unicode/xerox/XCCS-353=SYMBOLS3.TXT
Normal file
@@ -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
|
||||
107
unicode/xerox/XCCS-354=EXTENDED-ITC-DINGBATS.TXT
Normal file
107
unicode/xerox/XCCS-354=EXTENDED-ITC-DINGBATS.TXT
Normal file
@@ -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
|
||||
182
unicode/xerox/XCCS-355=ITC-DINGBATS1.TXT
Normal file
182
unicode/xerox/XCCS-355=ITC-DINGBATS1.TXT
Normal file
@@ -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
|
||||
221
unicode/xerox/XCCS-356=SYMBOLS2.TXT
Normal file
221
unicode/xerox/XCCS-356=SYMBOLS2.TXT
Normal file
@@ -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
|
||||
@@ -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 # ≁
|
||||
231
unicode/xerox/XCCS-357=SYMBOLS1.TXT
Normal file
231
unicode/xerox/XCCS-357=SYMBOLS1.TXT
Normal file
@@ -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
|
||||
@@ -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 # ⅔
|
||||
@@ -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 # fj LATIN SMALL LETTER F; ZERO WIDTH JOINER; LATIN SMALL LETTER J
|
||||
0xF028 0x0063 0x200D 0x0074 # ct 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
|
||||
|
||||
@@ -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 # ọ
|
||||
232
unicode/xerox/XCCS-361=ACCENTED-LATIN1.TXT
Normal file
232
unicode/xerox/XCCS-361=ACCENTED-LATIN1.TXT
Normal file
@@ -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
|
||||
87
unicode/xerox/XCCS-362=ACCENTED-LATIN2.TXT
Normal file
87
unicode/xerox/XCCS-362=ACCENTED-LATIN2.TXT
Normal file
@@ -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
|
||||
233
unicode/xerox/XCCS-363=ACCENTED-GREEK1.TXT
Normal file
233
unicode/xerox/XCCS-363=ACCENTED-GREEK1.TXT
Normal file
@@ -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
|
||||
87
unicode/xerox/XCCS-364=ACCENTED-GREEK2.TXT
Normal file
87
unicode/xerox/XCCS-364=ACCENTED-GREEK2.TXT
Normal file
@@ -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
|
||||
161
unicode/xerox/XCCS-365=MORE-ARABIC.TXT
Normal file
161
unicode/xerox/XCCS-365=MORE-ARABIC.TXT
Normal file
@@ -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
|
||||
111
unicode/xerox/XCCS-375=GRAPHIC-VARIANTS.TXT
Normal file
111
unicode/xerox/XCCS-375=GRAPHIC-VARIANTS.TXT
Normal file
@@ -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
|
||||
195
unicode/xerox/XCCS-41=JAPANESE-SYMBOLS1.TXT
Normal file
195
unicode/xerox/XCCS-41=JAPANESE-SYMBOLS1.TXT
Normal file
@@ -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
|
||||
@@ -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 # ⋧
|
||||
205
unicode/xerox/XCCS-42=JAPANESE-SYMBOLS2.TXT
Normal file
205
unicode/xerox/XCCS-42=JAPANESE-SYMBOLS2.TXT
Normal file
@@ -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
|
||||
@@ -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̲
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
117
unicode/xerox/XCCS-51=RUNIC-GOTHIC.TXT
Normal file
117
unicode/xerox/XCCS-51=RUNIC-GOTHIC.TXT
Normal file
@@ -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
|
||||
126
unicode/xerox/XCCS-52=MORE-CYRILLIC.TXT
Normal file
126
unicode/xerox/XCCS-52=MORE-CYRILLIC.TXT
Normal file
@@ -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
|
||||
50
unicode/xerox/XCCS-56=UNKNOWN1.TXT
Normal file
50
unicode/xerox/XCCS-56=UNKNOWN1.TXT
Normal file
@@ -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
|
||||
104
unicode/xerox/XCCS-57=UNKNOWN2.TXT
Normal file
104
unicode/xerox/XCCS-57=UNKNOWN2.TXT
Normal file
@@ -0,0 +1,104 @@
|
||||
#
|
||||
# Name: XCCS (XC-3-1-1-0) to Unicode
|
||||
# Unicode version: 3.0
|
||||
# XCCS charset: 57 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>
|
||||
|
||||
|
||||
# "57" UNKNOWN
|
||||
0x2F24 0xFE33 # ︳ PRESENTATION FORM FOR VERTICAL LOW LINE
|
||||
0x2F26 0xFE31 # ︱ PRESENTATION FORM FOR VERTICAL EM DASH
|
||||
0x2F2B 0x22EE # ⋮ VERTICAL ELLIPSIS
|
||||
0x2F2C 0xFE30 # ︰ PRESENTATION FORM FOR VERTICAL TWO DOT LEADER
|
||||
0x2F2D 0xFE35 # ︵ PRESENTATION FORM FOR VERTICAL LEFT PARENTHESIS
|
||||
0x2F2E 0xFE36 # ︶ PRESENTATION FORM FOR VERTICAL RIGHT PARENTHESIS
|
||||
0x2F2F 0xFE39 # ︹ PRESENTATION FORM FOR VERTICAL LEFT TORTOISE SHELL BRACKET
|
||||
0x2F30 0xFE3A # ︺ PRESENTATION FORM FOR VERTICAL RIGHT TORTOISE SHELL BRACKET
|
||||
0x2F31 0xFE37 # ︷ PRESENTATION FORM FOR VERTICAL LEFT CURLY BRACKET
|
||||
0x2F32 0xFE38 # ︸ PRESENTATION FORM FOR VERTICAL RIGHT CURLY BRACKET
|
||||
0x2F39 0xFE41 # ﹁ PRESENTATION FORM FOR VERTICAL LEFT CORNER BRACKET
|
||||
0x2F3A 0xFE42 # ﹂ PRESENTATION FORM FOR VERTICAL RIGHT CORNER BRACKET
|
||||
0x2F3B 0xFE43 # ﹃ PRESENTATION FORM FOR VERTICAL LEFT WHITE CORNER BRACKET
|
||||
0x2F3C 0xFE44 # ﹄ PRESENTATION FORM FOR VERTICAL RIGHT WHITE CORNER BRACKET
|
||||
0x2F3D 0xFE3B # ︻ PRESENTATION FORM FOR VERTICAL LEFT BLACK LENTICULAR BRACKET
|
||||
0x2F3E 0xFE3C # ︼ PRESENTATION FORM FOR VERTICAL RIGHT BLACK LENTICULAR BRACKET
|
||||
0x2F40 0x3041 # ぁ HIRAGANA LETTER SMALL A
|
||||
0x2F41 0x3045 # ぅ HIRAGANA LETTER SMALL U
|
||||
0x2F42 0x3045 # ぅ HIRAGANA LETTER SMALL U
|
||||
0x2F43 0x3047 # ぇ HIRAGANA LETTER SMALL E
|
||||
0x2F44 0x3049 # ぉ HIRAGANA LETTER SMALL O
|
||||
0x2F45 0x3063 # っ HIRAGANA LETTER SMALL TU
|
||||
0x2F46 0x3083 # ゃ HIRAGANA LETTER SMALL YA
|
||||
0x2F47 0x3085 # ゅ HIRAGANA LETTER SMALL YU
|
||||
0x2F48 0x3087 # ょ HIRAGANA LETTER SMALL YO
|
||||
0x2F49 0x308E # ゎ HIRAGANA LETTER SMALL WA
|
||||
0x2F4A 0x30A1 # ァ KATAKANA LETTER SMALL A
|
||||
0x2F4B 0x30A3 # ィ KATAKANA LETTER SMALL I
|
||||
0x2F4C 0x30A5 # ゥ KATAKANA LETTER SMALL U
|
||||
0x2F4D 0x30A7 # ェ KATAKANA LETTER SMALL E
|
||||
0x2F4E 0x30A9 # ォ KATAKANA LETTER SMALL O
|
||||
0x2F4F 0x30C3 # ッ KATAKANA LETTER SMALL TU
|
||||
0x2F50 0x30E3 # ャ KATAKANA LETTER SMALL YA
|
||||
0x2F51 0x30E5 # ュ KATAKANA LETTER SMALL YU
|
||||
0x2F52 0x30E7 # ョ KATAKANA LETTER SMALL YO
|
||||
0x2F53 0x30EE # ヮ KATAKANA LETTER SMALL WA
|
||||
0x2F54 0x30F5 # ヵ KATAKANA LETTER SMALL KA
|
||||
0x2F55 0x30F6 # ヶ KATAKANA LETTER SMALL KE
|
||||
0x2F62 0x3013 # 〓 GETA MARK
|
||||
0x2FA1 0xFE3F # ︿ PRESENTATION FORM FOR VERTICAL LEFT ANGLE BRACKET
|
||||
0x2FA2 0xFE40 # ﹀ PRESENTATION FORM FOR VERTICAL RIGHT ANGLE BRACKET
|
||||
0x2FB8 0xFE34 # ︴ PRESENTATION FORM FOR VERTICAL WAVY LOW LINE
|
||||
0x2FC0 0x3220 # ㈠ PARENTHESIZED IDEOGRAPH ONE
|
||||
0x2FC1 0x3221 # ㈡ PARENTHESIZED IDEOGRAPH TWO
|
||||
0x2FC2 0x3222 # ㈢ PARENTHESIZED IDEOGRAPH THREE
|
||||
0x2FC3 0x3223 # ㈣ PARENTHESIZED IDEOGRAPH FOUR
|
||||
0x2FC4 0x3224 # ㈤ PARENTHESIZED IDEOGRAPH FIVE
|
||||
0x2FC5 0x3225 # ㈥ PARENTHESIZED IDEOGRAPH SIX
|
||||
0x2FC6 0x3226 # ㈦ PARENTHESIZED IDEOGRAPH SEVEN
|
||||
0x2FC7 0x3227 # ㈧ PARENTHESIZED IDEOGRAPH EIGHT
|
||||
0x2FC8 0x3228 # ㈨ PARENTHESIZED IDEOGRAPH NINE
|
||||
0x2FC9 0x3229 # ㈩ PARENTHESIZED IDEOGRAPH TEN
|
||||
0x2FE1 0x3031 # 〱 VERTICAL KANA REPEAT MARK
|
||||
0x2FE2 0x3032 # 〲 VERTICAL KANA REPEAT WITH VOICED SOUND MARK
|
||||
0x2FE8 0xFE3D # ︽ PRESENTATION FORM FOR VERTICAL LEFT DOUBLE ANGLE BRACKET
|
||||
0x2FE9 0xFE3E # ︾ PRESENTATION FORM FOR VERTICAL RIGHT DOUBLE ANGLE BRACKET
|
||||
0x2FF1 0x3033 # 〳 VERTICAL KANA REPEAT MARK UPPER HALF
|
||||
0x2FF2 0x3034 # 〴 VERTICAL KANA REPEAT WITH VOICED SOUND MARK UPPER HALF
|
||||
0x2FF3 0x3035 # 〵 VERTICAL KANA REPEAT MARK LOWER HALF
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user