Compare commits
25 Commits
medley-260
...
rmk183--Te
| Author | SHA1 | Date | |
|---|---|---|---|
|
d0d9b2329a | ||
|
4de89a6e94 | ||
|
ceccadacef | ||
|
|
6159c64b84 | ||
|
|
eb6ee87170 | ||
|
|
c16e3b4a55 | ||
|
|
285e35f2ea | ||
|
|
4e761298ea | ||
|
|
cbea9a7c9d | ||
|
47dd8edf60 | ||
|
|
1d2292aa62 | ||
|
4499b4d914 | ||
|
|
0317fbd882 | ||
|
|
b0c6136bd6 | ||
|
|
d922212de1 | ||
|
|
96c609e5f0 | ||
|
|
728a278dc0 | ||
|
|
2814618b9a | ||
|
|
af194bdaf7 | ||
|
|
e73aef6dcc | ||
|
|
61a05ac2b5 | ||
|
|
b611af518a | ||
|
|
fb0af3c05f | ||
|
93b09dec66 | ||
|
|
8f3d5c26b5 |
@@ -1,27 +1,29 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "28-Jan-2026 11:03:17" {DSK}<Users>larry>il>medley>internal>MEDLEY-UTILS.;3 26880
|
||||
(FILECREATED "16-Apr-2026 22:42:51" {DSK}<home>matt>Interlisp>medley>internal>MEDLEY-UTILS.;2 30564
|
||||
|
||||
:EDIT-BY "lmm"
|
||||
:EDIT-BY "mth"
|
||||
|
||||
:CHANGES-TO (FNS MAKE-INDEX-HTMLS GATHER-INFO MAKE-FULLER-DB MEDLEY-FIX-LINKS MEDLEY-FIX-DATES
|
||||
MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH MAKE-WHEREIS-LOOPS HCFILES RECOMPILE-ONE
|
||||
RECMPL COMPILE-SETUP REMAKEFILES)
|
||||
:CHANGES-TO (FNS HCFILES MAKE-EXPORTS-ALL MAKE-INDEX-HTMLS)
|
||||
(FUNCTIONS REPORT-AND-GO)
|
||||
(VARS MEDLEY-UTILSCOMS HC-SKIP-EXTENSIONS)
|
||||
(ADVICE TEDIT.PROMPTPRINT)
|
||||
|
||||
:PREVIOUS-DATE "28-Jan-2026 10:46:02" {DSK}<Users>larry>il>medley>internal>MEDLEY-UTILS.;1)
|
||||
:PREVIOUS-DATE "16-Apr-2026 22:27:40" {DSK}<home>matt>Interlisp>medley>internal>MEDLEY-UTILS.;1
|
||||
)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT MEDLEY-UTILSCOMS)
|
||||
|
||||
(RPAQQ MEDLEY-UTILSCOMS
|
||||
[(FNS GATHER-INFO MAKE-FULLER-DB MEDLEY-FIX-LINKS MEDLEY-FIX-DATES)
|
||||
(VARS MEDLEY-FIX-DIRS OKSOURCES OKLIBRARY OKLISPUSERS OKINTERNAL)
|
||||
(VARS HC-SKIP-EXTENSIONS MEDLEY-FIX-DIRS OKSOURCES OKLIBRARY OKLISPUSERS OKINTERNAL)
|
||||
(FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH MAKE-WHEREIS-LOOPS)
|
||||
(FNS HCFILES MAKE-INDEX-HTMLS)
|
||||
(PROP FILETYPE MEDLEY-UTILS)
|
||||
(ADVISE TEDIT.PROMPTPRINT)
|
||||
(FNS RECOMPILE-ONE RECMPL COMPILE-SETUP REMAKEFILES)
|
||||
(FUNCTIONS REPORT-AND-GO)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
|
||||
(NLAML)
|
||||
(LAMA])
|
||||
@@ -140,6 +142,12 @@
|
||||
(for X in (OR DIRS MEDLEY-FIX-DIRS) join (FIX-DIRECTORY-DATES (MEDLEYDIR (PRINT X T])
|
||||
)
|
||||
|
||||
(RPAQQ HC-SKIP-EXTENSIONS
|
||||
(PDF SKIP HTML LCOM DFASL SH SYSOUT DRIBBLE IMPTR DISPLAYFONT WD WIDTHS MEDLEYDISPLAYFONT
|
||||
PSCFONT ALL DATABASE 1 MD GZ PRESS IP BITMAP EL ELC XFORMS BUGREPORTS SUITE LISTING AWK
|
||||
DINFOGRAPH HASHFILE BLTCHAR DOC DOCPOINTERS STATUS NOTEFILE ICO ISS BMP PNG PS1
|
||||
VENUESYSOUT ACE FMC HKB LGC CMD COMMAND HTM SVG XML EXE))
|
||||
|
||||
(RPAQQ MEDLEY-FIX-DIRS ("sources" "library" "lispusers" "internal" "greetfiles" "doctools"))
|
||||
|
||||
(RPAQQ OKSOURCES (RENAMEFNS VMEM READSYS CASH-FILE HASH-FILE MEDLEYDIR MAKEINIT))
|
||||
@@ -162,15 +170,18 @@
|
||||
(DEFINEQ
|
||||
|
||||
(MAKE-EXPORTS-ALL
|
||||
[LAMBDA (OUTFILE) (* ; "Edited 3-Aug-2023 18:34 by frank")
|
||||
[LAMBDA (OUTFILE) (* ; "Edited 15-Apr-2026 16:42 by mth")
|
||||
(* ; "Edited 3-Aug-2023 18:34 by frank")
|
||||
(* ; "Edited 9-Mar-2021 16:11 by larry")
|
||||
(* "Edited May 3, 2018 by Ron Kaplan--relative to MEDLEYDIR/lispcore/. Don't know why it does the CORE/RENAME")
|
||||
(*
|
||||
"Edited Aug 17 94 by Sybalsky -- point it to /king/export/lispcore as the truth directory.")
|
||||
(*
|
||||
"Edited July 5, 1990 by Sybalsky -- point it to Pele as the truth directory.")
|
||||
(*
|
||||
"Edited September 29, 1986 by van Melle")
|
||||
|
||||
(* ;; "Edited May 3, 2018 by Ron Kaplan--relative to MEDLEYDIR/lispcore/. Don't know why it does the CORE/RENAME")
|
||||
|
||||
(* ;; "Edited Aug 17 94 by Sybalsky -- point it to /king/export/lispcore as the truth directory.")
|
||||
|
||||
(* ;; "Edited July 5, 1990 by Sybalsky -- point it to Pele as the truth directory.")
|
||||
|
||||
(* ;; "Edited September 29, 1986 by van Melle")
|
||||
|
||||
(CNDIR (MEDLEYDIR "sources"))
|
||||
(LOAD 'FILESETS)
|
||||
(GATHEREXPORTS EXPORTFILES (OR OUTFILE "exports.all"])
|
||||
@@ -204,7 +215,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(HCFILES
|
||||
[LAMBDA (BASE REDO SUBSETS) (* ; "Edited 30-Jun-2024 08:27 by lmm")
|
||||
[LAMBDA (BASE REDO SUBSETS) (* ; "Edited 16-Apr-2026 22:42 by mth")
|
||||
(* ; "Edited 30-Jun-2024 08:27 by lmm")
|
||||
(* ; "Edited 23-Apr-2024 23:15 by lmm")
|
||||
(* ; "Edited 22-Apr-2024 13:22 by lmm")
|
||||
(* ; "Edited 5-Feb-2024 12:16 by lmm")
|
||||
@@ -213,74 +225,116 @@
|
||||
|
||||
(* ;;;; "BASE is the root directory. Doesn't replace PDF files except when REDO")
|
||||
|
||||
(* ;;; " SUBSETS is some combinsyion og (:YRDY :HYML :PRETTY and INDEX")
|
||||
(* ;;; " SUBSETS is some combination of (:YRDY :HYML :PRETTY and INDEX")
|
||||
|
||||
(LET
|
||||
[[DIRLIST (LIST (OR BASE (PSEUDOFILENAME (MEDLEYDIR]
|
||||
(PHASES (OR SUBSETS '(TEDIT PRETTY INDEX HRULE]
|
||||
(FILESLOAD PDFSTREAM SKETCH)
|
||||
(FONTSET 'STANDARD)
|
||||
(while DIRLIST
|
||||
do
|
||||
(SETQ BASE (pop DIRLIST))
|
||||
(for SRCPATH in (DIRECTORY (CONCAT BASE "*.*;"))
|
||||
do (PROG* [(SRC (UNPACKFILENAME SRCPATH))
|
||||
[EXT (U-CASE (LISTGET SRC 'EXTENSION]
|
||||
(DIR (LISTGET SRC 'DIRECTORY))
|
||||
FRDY LDGP DEST (NOV (PACKFILENAME `(VERSION NIL ,@SRC]
|
||||
(CL:FORMAT T "Starting on ~a :~%%" SRCPATH)
|
||||
(CL:WHEN (DIRECTORYNAMEP SRCPATH)
|
||||
(LET* ([DIRLIST (LIST (OR BASE (PSEUDOFILENAME (MEDLEYDIR]
|
||||
[PHASES (OR SUBSETS '(TEDIT PRETTY INDEX HRULE]
|
||||
(DOTEDIT (MEMB 'TEDIT PHASES))
|
||||
(DOPRETTY (MEMB 'PRETTY PHASES)))
|
||||
(FILESLOAD PDFSTREAM SKETCH)
|
||||
(FONTSET 'STANDARD)
|
||||
(while DIRLIST
|
||||
do (SETQ BASE (pop DIRLIST))
|
||||
|
||||
(* ;; "any directory names, push them off and do them in another phase")
|
||||
(* ;; "Breadth-first processing")
|
||||
|
||||
(CL:UNLESS (OR (STRPOS ">." NOV)
|
||||
(INFILEP (CONCAT NOV ".skip")))
|
||||
(SETQ DIRLIST (NCONC1 DIRLIST SRCPATH)))
|
||||
(RETURN))
|
||||
(CL:WHEN
|
||||
(MEMB EXT
|
||||
'(PDF SKIP HTML LCOM DFASL SH SYSOUT DRIBBLE IMPTR DISPLAYFONT ALL
|
||||
DATABASE))
|
||||
(for SRCPATH in (DIRECTORY (CONCAT BASE "*.*;"))
|
||||
do (PROG* ((SRC (UNPACKFILENAME SRCPATH))
|
||||
[EXT (U-CASE (LISTGET SRC 'EXTENSION]
|
||||
(DIR (LISTGET SRC 'DIRECTORY))
|
||||
[NAME (U-CASE (LISTGET SRC 'NAME]
|
||||
[NOV (PACKFILENAME.STRING `(VERSION NIL ,@SRC]
|
||||
LSFP DEST)
|
||||
(CL:WHEN (DIRECTORYNAMEP SRCPATH)
|
||||
|
||||
(* ;; "ignore any of these extensions")
|
||||
(* ;;
|
||||
"any directory names, push them off and do them in another phase")
|
||||
|
||||
(RETURN))
|
||||
(if [NOT (OR (STRPOS "<." NOV)
|
||||
(CL:SEARCH "<LOADUPS>" NOV :TEST #'CL:CHAR-EQUAL)
|
||||
(STRPOS ">." NOV)
|
||||
(INFILEP (CONCAT NOV ".skip"]
|
||||
then (SETQ DIRLIST (NCONC1 DIRLIST SRCPATH))
|
||||
(CL:FORMAT T "~&Deferring to later ~a~%%" SRCPATH)
|
||||
else (CL:FORMAT T "~&Skipping ~a~%%" SRCPATH))
|
||||
(RETURN))
|
||||
|
||||
(* ;;
|
||||
" doesnt (yet) implement / to - translattion. .readme should show up as -.readme.")
|
||||
(* ;; "Fixup files that start with . and have no other extension")
|
||||
|
||||
(SETQ DEST (CONCAT NOV ".pdf"))
|
||||
(CL:WHEN (AND (NOT REDO)
|
||||
(INFILEP DEST))
|
||||
(CL:FORMAT T "~a already there~%%" DEST)
|
||||
(RETURN))
|
||||
(CL:WHEN (INFILEP (CONCAT DEST ".skip"))
|
||||
(PRINTOUT T "Explicit .skip " DEST T)
|
||||
(RETURN))
|
||||
(if (MEMB 'TEDIT PHASES)
|
||||
then (CL:WHEN [OR (MEMB EXT '(TEDIT TED SKETCH BRAVO))
|
||||
(CAR (NLSETQ (TEDIT.FORMATTEDFILEP SRCPATH]
|
||||
(if (EQ REDO 'TEST)
|
||||
then (CL:FORMAT T "Testing open ~a..." SRCPATH)
|
||||
(CLOSEF? (OPENTEXTSTREAM SRCPATH))
|
||||
else (OR [NLSETQ (CL:WITH-OPEN-STREAM (S (OPENTEXTSTREAM SRCPATH)
|
||||
)
|
||||
(TEDIT.FORMAT.HARDCOPY S DEST T NIL NIL
|
||||
NIL 'PDF]
|
||||
(PRINT 'FAIL T)))
|
||||
(CL:FORMAT T "DONE")))
|
||||
(CL:WHEN (AND (MEMB 'PRETTY PHASES)
|
||||
(MEMB EXT '(NIL IL))
|
||||
[SETQ LSFP (CAR (NLSETQ (LISPSOURCEFILEP SRCPATH]
|
||||
(NEQ LSFP *COMMON-LISP-READ-ENVIRONMENT*))
|
||||
(PRINTOUT T "PDF printing " " to " DEST "...")
|
||||
(OR (NLSETQ (CL:WITH-OPEN-STREAM (STR (OPEN-PDF-STREAM DEST))
|
||||
(PRETTYFILEINDEX SRCPATH NIL STR)))
|
||||
(PRINT 'FAIL T))
|
||||
(PRINTOUT T "DONE" T))])
|
||||
(CL:WHEN (AND (NULL EXT)
|
||||
(EQ (CHCON1 NAME)
|
||||
(CHARCODE %.)))
|
||||
(SETQ EXT (SUBATOM NAME 2)))
|
||||
(CL:WHEN (MEMB EXT HC-SKIP-EXTENSIONS)
|
||||
|
||||
(* ;; "ignore any of these extensions")
|
||||
|
||||
(CL:FORMAT T "~&Ignoring (on extension): ~a~%%" SRCPATH)
|
||||
(RETURN))
|
||||
|
||||
(* ;;
|
||||
" doesn't (yet) implement / to - translation. .readme should show up as -.readme.")
|
||||
|
||||
(SETQ DEST (CONCAT NOV ".pdf"))
|
||||
(CL:WHEN (AND (NOT REDO)
|
||||
(INFILEP DEST))
|
||||
(CL:FORMAT T "~a is already there~%%" DEST)
|
||||
(RETURN))
|
||||
(CL:WHEN (INFILEP (CONCAT DEST ".skip"))
|
||||
(CL:FORMAT T "Explicit .skip ~a~%%" DEST)
|
||||
(RETURN))
|
||||
(CL:FORMAT T "~&Starting on ~a:~%%" SRCPATH)
|
||||
(CL:WHEN [AND DOTEDIT (OR (MEMB EXT '(TEDIT TED SKETCH BRAVO))
|
||||
(CAR (REPORT-AND-GO (TEDIT.FORMATTEDFILEP
|
||||
SRCPATH)
|
||||
(CL:FORMAT NIL
|
||||
"~~%%~S TEDIT.FORMATTEDFILEP of ~A -- Condition: ~~A"
|
||||
'FAIL SRCPATH]
|
||||
(if (EQ REDO 'TEST)
|
||||
then (CL:FORMAT T "Testing open ~a..." SRCPATH)
|
||||
(CLOSEF? (OPENTEXTSTREAM SRCPATH))
|
||||
else (REPORT-AND-GO (CL:WITH-OPEN-STREAM (S (OPENTEXTSTREAM
|
||||
SRCPATH))
|
||||
(TEDIT.FORMAT.HARDCOPY S DEST T NIL NIL
|
||||
NIL 'PDF))
|
||||
(CL:FORMAT NIL
|
||||
"~~%%~S TEDIT.FORMAT.HARDCOPY of ~A -- Condition: ~~A"
|
||||
'FAIL SRCPATH)))
|
||||
(PRIN3 " DONE" T)
|
||||
(TERPRI T)
|
||||
(RETURN))
|
||||
(CL:WHEN (AND DOPRETTY (OR (NULL EXT)
|
||||
(EQ EXT 'IL))
|
||||
[SETQ LSFP (CAR (REPORT-AND-GO (LISPSOURCEFILEP SRCPATH)
|
||||
(CL:FORMAT NIL
|
||||
"~~%%~S LISPSOURCEFILEP of ~A -- Condition: ~~A"
|
||||
'FAIL SRCPATH]
|
||||
(NEQ LSFP *COMMON-LISP-READ-ENVIRONMENT*))
|
||||
|
||||
(* ;; "Why the check for NEQ *COMMON-LISP-READ-ENVIRONMENT* ??")
|
||||
|
||||
(PRIN3 "PDF printing " T)
|
||||
(PRIN3 SRCPATH T)
|
||||
(PRIN3 " to " T)
|
||||
(PRIN3 DEST T)
|
||||
(PRIN3 " ..." T)
|
||||
(REPORT-AND-GO (CL:WITH-OPEN-STREAM (STR (OPEN-PDF-STREAM DEST))
|
||||
(PRETTYFILEINDEX SRCPATH NIL STR))
|
||||
(CL:FORMAT NIL
|
||||
"~~%%~S PRETTYFILEINDEX of ~A -- Condition: ~~A"
|
||||
'FAIL SRCPATH))
|
||||
(PRIN3 " DONE" T)
|
||||
(TERPRI T)
|
||||
(RETURN))
|
||||
|
||||
(* ;; "Everything else")
|
||||
|
||||
(PRIN3 "No processing." T)
|
||||
(TERPRI T])
|
||||
|
||||
(MAKE-INDEX-HTMLS
|
||||
[LAMBDA (BASE TOP LEVEL ROOT.NAME) (* ; "Edited 28-Jan-2026 11:01 by lmm")
|
||||
[LAMBDA (BASE TOP LEVEL ROOT.NAME) (* ; "Edited 15-Apr-2026 16:33 by mth")
|
||||
(* ; "Edited 28-Jan-2026 11:01 by lmm")
|
||||
(* ; "Edited 27-Jan-2026 10:50 by lmm")
|
||||
(* ; "Edited 23-Jan-2026 11:59 by lmm")
|
||||
(* ; "Edited 29-Apr-2024 14:18 by lmm")
|
||||
@@ -339,8 +393,8 @@
|
||||
then 2
|
||||
else 1))
|
||||
-2)))
|
||||
(CL:UNLESS (OR (MEMB SHORTNAME '(.git))
|
||||
(MEMB SHORTNAME '(.GIT))
|
||||
(CL:UNLESS (OR (EQ SHORTNAME '.git)
|
||||
(EQ SHORTNAME '.GIT)
|
||||
[AND (STRPOS ".git" (L-CASE FULLNAME))
|
||||
(NOT (STRPOS ".github" (L-CASE FULLNAME]
|
||||
(INFILEP (CONCAT FULLNAME ".skip")))
|
||||
@@ -372,7 +426,8 @@
|
||||
|
||||
(PUTPROPS MEDLEY-UTILS FILETYPE :COMPILE-FILE)
|
||||
|
||||
[XCL:REINSTALL-ADVICE 'TEDIT.PROMPTPRINT :BEFORE '((:LAST (PRIN1 MSG T)))
|
||||
[XCL:REINSTALL-ADVICE 'TEDIT.PROMPTPRINT :BEFORE '[(:LAST (PROGN (PRIN3 " " T)
|
||||
(PRIN3 MSG T]
|
||||
:AFTER
|
||||
'((:LAST (AND (STRPOS "GETFN" MSG)
|
||||
(HELP MSG]
|
||||
@@ -463,6 +518,15 @@
|
||||
(SETQ DIFF (COMPARESOURCES X DESTFILE NIL))
|
||||
(TERPRI])
|
||||
)
|
||||
|
||||
(DEFMACRO REPORT-AND-GO (FORM REPORT-FORMAT) (* ; "Edited 16-Apr-2026 16:02 by mth")
|
||||
`[CL:MULTIPLE-VALUE-BIND (FORM-RESULT ERROR-CONDITION)
|
||||
(IGNORE-ERRORS (CL:VALUES ,FORM)) (* ; "Only the first value")
|
||||
(COND
|
||||
(ERROR-CONDITION (PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
|
||||
T)
|
||||
NIL)
|
||||
(T (LIST FORM-RESULT])
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
|
||||
(ADDTOVAR NLAMA )
|
||||
@@ -472,9 +536,10 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1312 8246 (GATHER-INFO 1322 . 6704) (MAKE-FULLER-DB 6706 . 7615) (MEDLEY-FIX-LINKS 7617
|
||||
. 8010) (MEDLEY-FIX-DATES 8012 . 8244)) (9425 12213 (MAKE-EXPORTS-ALL 9435 . 10494) (
|
||||
MAKE-WHEREIS-HASH 10496 . 11685) (MAKE-WHEREIS-LOOPS 11687 . 12211)) (12214 21862 (HCFILES 12224 .
|
||||
16487) (MAKE-INDEX-HTMLS 16489 . 21860)) (22112 26724 (RECOMPILE-ONE 22122 . 24019) (RECMPL 24021 .
|
||||
24624) (COMPILE-SETUP 24626 . 25250) (REMAKEFILES 25252 . 26722)))))
|
||||
(FILEMAP (NIL (1289 8223 (GATHER-INFO 1299 . 6681) (MAKE-FULLER-DB 6683 . 7592) (MEDLEY-FIX-LINKS 7594
|
||||
. 7987) (MEDLEY-FIX-DATES 7989 . 8221)) (9795 12371 (MAKE-EXPORTS-ALL 9805 . 10652) (
|
||||
MAKE-WHEREIS-HASH 10654 . 11843) (MAKE-WHEREIS-LOOPS 11845 . 12369)) (12372 24990 (HCFILES 12382 .
|
||||
19514) (MAKE-INDEX-HTMLS 19516 . 24988)) (25324 29936 (RECOMPILE-ONE 25334 . 27231) (RECMPL 27233 .
|
||||
27836) (COMPILE-SETUP 27838 . 28462) (REMAKEFILES 28464 . 29934)) (29938 30408 (REPORT-AND-GO 29938 .
|
||||
30408)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "14-Feb-2026 00:42:39" {WMEDLEY}<internal>loadups>LOADUP-FULL.;38 5967
|
||||
(FILECREATED "28-Apr-2026 10:01:06" {WMEDLEY}<internal>loadups>LOADUP-FULL.;47 5896
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS LOADUP-FULL)
|
||||
|
||||
:PREVIOUS-DATE "13-Feb-2026 00:47:52" {WMEDLEY}<internal>loadups>LOADUP-FULL.;37)
|
||||
:PREVIOUS-DATE "16-Apr-2026 09:37:27" {WMEDLEY}<internal>loadups>LOADUP-FULL.;46)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT LOADUP-FULLCOMS)
|
||||
@@ -16,7 +16,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(LOADFULLFONTS
|
||||
[LAMBDA NIL (* ; "Edited 20-Sep-2025 14:17 by rmk")
|
||||
[LAMBDA NIL (* ; "Edited 16-Apr-2026 09:37 by rmk")
|
||||
(* ; "Edited 20-Sep-2025 14:17 by rmk")
|
||||
(* ; "Edited 2-Sep-2025 20:06 by rmk")
|
||||
(* ; "Edited 13-Jul-2025 11:40 by rmk")
|
||||
(* ; "Edited 30-Jun-2025 00:04 by rmk")
|
||||
@@ -27,11 +28,8 @@
|
||||
|
||||
(* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")
|
||||
|
||||
(PRINTOUT T "Loading FULL fonts..." T)
|
||||
(PRINTOUT T T "Loading FULL fonts..." T)
|
||||
(SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT)
|
||||
|
||||
(* ;; "Previous code reset the coercion variables to NIL, which would have resulted in glyph-incomplete charsets. With Medley-formatted fonts, the completions have already been installed in the files and there is no need to deal with those variables.")
|
||||
|
||||
(for FAMILY in '(CLASSIC MODERN TERMINAL)
|
||||
do (PRINTOUT T " Loading " FAMILY " ")
|
||||
[for SIZE in '(8 10 12)
|
||||
@@ -47,7 +45,8 @@
|
||||
(PRINTOUT T "FULL fonts loaded" T])
|
||||
|
||||
(LOADUP-FULL
|
||||
[LAMBDA (DRIBBLEFILE) (* ; "Edited 14-Feb-2026 00:42 by rmk")
|
||||
[LAMBDA (DRIBBLEFILE) (* ; "Edited 28-Apr-2026 10:00 by rmk")
|
||||
(* ; "Edited 14-Feb-2026 00:42 by rmk")
|
||||
(* ; "Edited 5-Feb-2026 10:26 by rmk")
|
||||
(* ; "Edited 28-Dec-2025 12:06 by rmk")
|
||||
(* ; "Edited 1-Sep-2025 11:59 by rmk")
|
||||
@@ -86,8 +85,7 @@
|
||||
|
||||
(LOADUP '(CHAT INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES
|
||||
GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT HELPSYS
|
||||
DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM UNIXCHAT
|
||||
UNIXYCD))
|
||||
DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM UNIXCHAT))
|
||||
(LOADFULLFONTS)
|
||||
(COND
|
||||
((WINDOWP *WHO-LINE*)
|
||||
@@ -103,5 +101,5 @@
|
||||
|
||||
(FIXMETA)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (456 5929 (LOADFULLFONTS 466 . 2601) (LOADUP-FULL 2603 . 5679) (FIXMETA 5681 . 5927)))))
|
||||
(FILEMAP (NIL (456 5858 (LOADFULLFONTS 466 . 2449) (LOADUP-FULL 2451 . 5608) (FIXMETA 5610 . 5856)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,16 +1,17 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "20-Feb-2024 23:45:56" {DSK}<mnt>e>Interlisp>medley>library>DATABASEFNS.;4 18445
|
||||
(FILECREATED " 2-May-2026 17:38:46" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;4 18684
|
||||
|
||||
:EDIT-BY "mth"
|
||||
|
||||
:CHANGES-TO (FNS DUMPDB)
|
||||
|
||||
:PREVIOUS-DATE "19-Feb-2024 16:29:44" {DSK}<mnt>e>Interlisp>medley>library>DATABASEFNS.;1)
|
||||
:PREVIOUS-DATE "29-Apr-2026 17:43:56" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;2
|
||||
)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
|
||||
Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT DATABASEFNSCOMS)
|
||||
@@ -164,7 +165,9 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
|
||||
(DEFINEQ
|
||||
|
||||
(DUMPDB
|
||||
[LAMBDA (FILE PROPFLG) (* ; "Edited 20-Feb-2024 23:45 by mth")
|
||||
[LAMBDA (FILE PROPFLG) (* ; "Edited 2-May-2026 17:32 by mth")
|
||||
(* ; "Edited 29-Apr-2026 17:42 by mth")
|
||||
(* ; "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:")
|
||||
@@ -180,7 +183,7 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
|
||||
(LET ((SAVEDCOPYRIGHTFLG COPYRIGHTFLG)
|
||||
(SAVEDDEFAULTCOPYRIGHTOWNER DEFAULTCOPYRIGHTOWNER))
|
||||
(CL:UNWIND-PROTECT
|
||||
(PROG (DBFILE DBFN DBROOTFN FLCPR (FL (NAMEFIELD FILE))
|
||||
(PROG (DBFILE DBFN DBROOTFN FLCPR (FL (ROOTFILENAME FILE))
|
||||
(FNS (FILEFNSLST FILE)))
|
||||
(SETQ DBFN (PACKFILENAME 'EXTENSION 'DATABASE 'VERSION NIL 'BODY FILE))
|
||||
(SETQ DBROOTFN (ROOTFILENAME DBFN))
|
||||
@@ -230,7 +233,7 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
|
||||
(PRETTYDEF NIL DBFN
|
||||
`((P (PROGN (PRIN1 "Use LOADDB to load database files!" T)
|
||||
(ERROR!)))
|
||||
(E [PRINT (CAR (GETPROP ',FILE 'FILEDATES]
|
||||
(E [PRINT (CAR (GETPROP ',FL 'FILEDATES]
|
||||
(DUMPDATABASE ',FNS]
|
||||
[COND
|
||||
(PROPFLG (PRINT (FULLNAME DBFILE)
|
||||
@@ -375,9 +378,9 @@ Copyright (c) 1986, 1990-1993, 2024 by Xerox Corporation.
|
||||
|
||||
(RESETSAVE DWIMIFYCOMPFLG T)
|
||||
)
|
||||
(PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993 2024))
|
||||
(PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993 2024 2026))
|
||||
(DECLARE%: DONTCOPY
|
||||
(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)))))
|
||||
(FILEMAP (NIL (1783 6808 (DBFILE 1793 . 3438) (DBFILE1 3440 . 4950) (DBFILE2 4952 . 6174) (LOAD 6176
|
||||
. 6406) (LOADFROM 6408 . 6596) (MAKEFILE 6598 . 6806)) (6864 18072 (DUMPDB 6874 . 12107) (LOADDB
|
||||
12109 . 16984) (MAKEDB 16986 . 18070)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
317
library/GRAPHER
317
library/GRAPHER
@@ -1,21 +1,18 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "14-Mar-2021 20:40:30"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.;5 214171
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
changes to%: (VARS GRAPHERCOMS)
|
||||
(FILECREATED "14-Apr-2026 22:19:19" {DSK}<home>frank>il>medley>library>GRAPHER.;3 215302
|
||||
|
||||
previous date%: "14-May-2018 10:24:38"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.;4)
|
||||
:EDIT-BY "FGH"
|
||||
|
||||
:CHANGES-TO (FNS DISPLAYLINK/RL DISPLAYLINK/LR DISPLAYLINK/BT DISPLAYLINK/TB)
|
||||
|
||||
:PREVIOUS-DATE "14-Mar-2021 20:40:30" {DSK}<home>frank>il>medley>library>GRAPHER.;1)
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT GRAPHERCOMS)
|
||||
|
||||
(RPAQQ GRAPHERCOMS
|
||||
[(COMS (* ; "Graph Editing")
|
||||
[(COMS (* ; "Graph Editing")
|
||||
(FNS ADD/AND/DISPLAY/LINK APPLYTOSELECTEDNODE CALL.MOVENODEFN CHANGE.NODEFONT.SIZE
|
||||
DEFAULT.ADDNODEFN DELETE/AND/DISPLAY/LINK DISPLAY/NAME DISPLAYGRAPH DISPLAYLINK
|
||||
DISPLAYLINK/BT DISPLAYLINK/LR DISPLAYLINK/RL DISPLAYLINK/TB DISPLAYNODE
|
||||
@@ -38,18 +35,18 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
|
||||
(CL:WHEN (GETD 'MODERNWINDOW.SETUP)
|
||||
(MODERNWINDOW.SETUP 'APPLYTOSELECTEDNODE))]
|
||||
|
||||
(* ;; "Support for EDITSUBGRAPH and EDITREGION")
|
||||
(* ;; "Support for EDITSUBGRAPH and EDITREGION")
|
||||
|
||||
(FNS EDITMOVEREGION EDITMOVESUBTREE NOT.TRACKCURSOR RECURSIVE.COLLECTDESCENDENTS
|
||||
MOVEDESCENDENTS COLLECT.CHILD.NODES CREATE.NEW.NODEPOSITION
|
||||
GETBOXPOSITION.FROMINITIALREGION COLLECTDESCENDENTS))
|
||||
(COMS (* ;
|
||||
"functions for finding larger and smaller fonts")
|
||||
(COMS (* ;
|
||||
"functions for finding larger and smaller fonts")
|
||||
(FNS NEXTSIZEFONT DECREASING.FONT.LIST SCALE.FONT)
|
||||
[DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (DECREASING.FONT.LIST (DECREASING.FONT.LIST]
|
||||
(GLOBALVARS DECREASING.FONT.LIST))
|
||||
(* ;
|
||||
"functions for LAYOUTGRAPH And LAYOUTLATTICE")
|
||||
(* ;
|
||||
"functions for LAYOUTGRAPH And LAYOUTLATTICE")
|
||||
(FNS BRH/LAYOUT BRH/LAYOUT/DAUGHTERS BRH/OFFSET BRHC/INTERTREE/SPACE BRHC/LAYOUT
|
||||
BRHC/LAYOUT/DAUGHTERS BRHC/LAYOUT/TERMINAL BRHC/OFFSET BRHL/LAYOUT BRHL/LAYOUT/DAUGHTERS
|
||||
BRHL/MOVE/RIGHT BROWSE/LAYOUT/HORIZ BROWSE/LAYOUT/HORIZ/COMPACTLY BROWSE/LAYOUT/LATTICE
|
||||
@@ -95,7 +92,7 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
|
||||
(LOCALVARS . T)
|
||||
(RECORDS GRAPHNODE GRAPH)
|
||||
(DECLARE%: DONTCOPY (MACROS HALF))
|
||||
(COMS (* ; "Grapher image objects")
|
||||
(COMS (* ; "Grapher image objects")
|
||||
(FNS GRAPHERIMAGEFNS)
|
||||
(FNS GRAPHERCOPYBUTTONEVENTFN GRAPHOBJ.FINDGRAPH)
|
||||
(FNS ALIGNMENTNODE GRAPHOBJ.CHECKALIGN)
|
||||
@@ -303,96 +300,112 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
|
||||
NIL])
|
||||
|
||||
(DISPLAYLINK/BT
|
||||
[LAMBDA (TRANS GNB GNT WIDTH OPERATION STREAM PARAMS)
|
||||
[LAMBDA (TRANS GNB GNT WIDTH OPERATION STREAM PARAMS) (* ; "Edited 14-Apr-2026 22:08 by FGH")
|
||||
(* ; "Edited 29-Apr-94 13:59 by sybalsky")
|
||||
|
||||
(* draws a line from the bottom edge of GNB to the top edge of GNT translated
|
||||
by TRANS)
|
||||
(* draws a line from the bottom edge of GNB to the top edge of GNT translated by
|
||||
TRANS)
|
||||
|
||||
(APPLY* (OR (LISTGET PARAMS 'DRAWLINKFN)
|
||||
'DRAWLINE)
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(fetch XCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNB)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(SUB1 (GN/BOTTOM GNB)))
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(fetch XCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNT)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(ADD1 (GN/TOP GNT)))
|
||||
(OR (LISTGET PARAMS 'LINEWIDTH)
|
||||
WIDTH 1)
|
||||
OPERATION STREAM (LISTGET PARAMS 'COLOR)
|
||||
(LISTGET PARAMS 'DASHING)
|
||||
PARAMS])
|
||||
(LET* [(FN (LISTGET PARAMS 'DRAWLINKFN))
|
||||
(DFN (AND FN (GETD FN]
|
||||
(if (AND FN (NOT DFN))
|
||||
then (PROMPTPRINT (CONCAT "DISPLAYLINK: DRAWLINKFN " FN " NOT FOUND")))
|
||||
(APPLY* (OR (AND DFN FN)
|
||||
'DRAWLINE)
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(fetch XCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNB)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(SUB1 (GN/BOTTOM GNB)))
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(fetch XCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNT)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(ADD1 (GN/TOP GNT)))
|
||||
(OR (LISTGET PARAMS 'LINEWIDTH)
|
||||
WIDTH 1)
|
||||
OPERATION STREAM (LISTGET PARAMS 'COLOR)
|
||||
(LISTGET PARAMS 'DASHING)
|
||||
PARAMS])
|
||||
|
||||
(DISPLAYLINK/LR
|
||||
[LAMBDA (TRANS GNL GNR WIDTH OPERATION STREAM PARAMS)
|
||||
[LAMBDA (TRANS GNL GNR WIDTH OPERATION STREAM PARAMS) (* ; "Edited 14-Apr-2026 22:09 by FGH")
|
||||
(* ; "Edited 29-Apr-94 13:59 by sybalsky")
|
||||
|
||||
(* draws a line from the left edge of GNL to the right edge of GNR, translated
|
||||
by TRANS)
|
||||
(* draws a line from the left edge of GNL to the right edge of GNR, translated by
|
||||
TRANS)
|
||||
|
||||
(APPLY* (OR (LISTGET PARAMS 'DRAWLINKFN)
|
||||
'DRAWLINE)
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(SUB1 (GN/LEFT GNL)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(fetch YCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNL)))
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(ADD1 (GN/RIGHT GNR)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(fetch YCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNR)))
|
||||
(OR (LISTGET PARAMS 'LINEWIDTH)
|
||||
WIDTH 1)
|
||||
OPERATION STREAM (LISTGET PARAMS 'COLOR)
|
||||
(LISTGET PARAMS 'DASHING)
|
||||
PARAMS])
|
||||
(LET* [(FN (LISTGET PARAMS 'DRAWLINKFN))
|
||||
(DFN (AND FN (GETD FN]
|
||||
(if (AND FN (NOT DFN))
|
||||
then (PROMPTPRINT (CONCAT "DISPLAYLINK: DRAWLINKFN " FN " NOT FOUND")))
|
||||
(APPLY* (OR (AND DFN FN)
|
||||
'DRAWLINE)
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(SUB1 (GN/LEFT GNL)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(fetch YCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNL)))
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(ADD1 (GN/RIGHT GNR)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(fetch YCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNR)))
|
||||
(OR (LISTGET PARAMS 'LINEWIDTH)
|
||||
WIDTH 1)
|
||||
OPERATION STREAM (LISTGET PARAMS 'COLOR)
|
||||
(LISTGET PARAMS 'DASHING)
|
||||
PARAMS])
|
||||
|
||||
(DISPLAYLINK/RL
|
||||
[LAMBDA (TRANS GNR GNL WIDTH OPERATION STREAM PARAMS)
|
||||
[LAMBDA (TRANS GNR GNL WIDTH OPERATION STREAM PARAMS) (* ; "Edited 14-Apr-2026 22:09 by FGH")
|
||||
(* ; "Edited 29-Apr-94 13:59 by sybalsky")
|
||||
|
||||
(* draws a line from the right edge of GNR, to the left edge of GNL translated
|
||||
by TRANS)
|
||||
(* draws a line from the right edge of GNR, to the left edge of GNL translated by
|
||||
TRANS)
|
||||
|
||||
(APPLY* (OR (LISTGET PARAMS 'DRAWLINKFN)
|
||||
'DRAWLINE)
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(ADD1 (GN/RIGHT GNR)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(fetch YCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNR)))
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(SUB1 (GN/LEFT GNL)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(fetch YCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNL)))
|
||||
(OR (LISTGET PARAMS 'LINEWIDTH)
|
||||
WIDTH 1)
|
||||
OPERATION STREAM (LISTGET PARAMS 'COLOR)
|
||||
(LISTGET PARAMS 'DASHING)
|
||||
PARAMS])
|
||||
(LET* [(FN (LISTGET PARAMS 'DRAWLINKFN))
|
||||
(DFN (AND FN (GETD FN]
|
||||
(if (AND FN (NOT DFN))
|
||||
then (PROMPTPRINT (CONCAT "DISPLAYLINK: DRAWLINKFN " FN " NOT FOUND")))
|
||||
(APPLY* (OR (AND DFN FN)
|
||||
'DRAWLINE)
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(ADD1 (GN/RIGHT GNR)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(fetch YCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNR)))
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(SUB1 (GN/LEFT GNL)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(fetch YCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNL)))
|
||||
(OR (LISTGET PARAMS 'LINEWIDTH)
|
||||
WIDTH 1)
|
||||
OPERATION STREAM (LISTGET PARAMS 'COLOR)
|
||||
(LISTGET PARAMS 'DASHING)
|
||||
PARAMS])
|
||||
|
||||
(DISPLAYLINK/TB
|
||||
[LAMBDA (TRANS GNT GNB WIDTH OPERATION STREAM PARAMS)
|
||||
[LAMBDA (TRANS GNT GNB WIDTH OPERATION STREAM PARAMS) (* ; "Edited 14-Apr-2026 22:09 by FGH")
|
||||
(* ; "Edited 29-Apr-94 13:59 by sybalsky")
|
||||
|
||||
(* draws a line from the top edge of GNT to the bottom edge of GNR, translated
|
||||
by TRANS)
|
||||
(* draws a line from the top edge of GNT to the bottom edge of GNR, translated by
|
||||
TRANS)
|
||||
|
||||
(APPLY* (OR (LISTGET PARAMS 'DRAWLINKFN)
|
||||
'DRAWLINE)
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(fetch XCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNT)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(ADD1 (GN/TOP GNT)))
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(fetch XCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNB)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(SUB1 (GN/BOTTOM GNB)))
|
||||
(OR (LISTGET PARAMS 'LINEWIDTH)
|
||||
WIDTH 1)
|
||||
OPERATION STREAM (LISTGET PARAMS 'COLOR)
|
||||
(LISTGET PARAMS 'DASHING)
|
||||
PARAMS])
|
||||
(LET* [(FN (LISTGET PARAMS 'DRAWLINKFN))
|
||||
(DFN (AND FN (GETD FN]
|
||||
(if (AND FN (NOT DFN))
|
||||
then (PROMPTPRINT (CONCAT "DISPLAYLINK: DRAWLINKFN " FN " NOT FOUND")))
|
||||
(APPLY* (OR (AND DFN FN)
|
||||
'DRAWLINE)
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(fetch XCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNT)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(ADD1 (GN/TOP GNT)))
|
||||
(IPLUS (fetch XCOORD of TRANS)
|
||||
(fetch XCOORD of (fetch (GRAPHNODE NODEPOSITION) of GNB)))
|
||||
(IPLUS (fetch YCOORD of TRANS)
|
||||
(SUB1 (GN/BOTTOM GNB)))
|
||||
(OR (LISTGET PARAMS 'LINEWIDTH)
|
||||
WIDTH 1)
|
||||
OPERATION STREAM (LISTGET PARAMS 'COLOR)
|
||||
(LISTGET PARAMS 'DASHING)
|
||||
PARAMS])
|
||||
|
||||
(DISPLAYNODE
|
||||
[LAMBDA (NODE TRANS STREAM G TOSONLY) (* kvl "10-Aug-84 19:08")
|
||||
@@ -2014,7 +2027,7 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
|
||||
of N])
|
||||
)
|
||||
|
||||
(* Was MODERNIZE loaded before?)
|
||||
(* Was MODERNIZE loaded before?)
|
||||
|
||||
(CL:WHEN (GETD 'MODERNWINDOW.SETUP)
|
||||
(MODERNWINDOW.SETUP 'APPLYTOSELECTEDNODE))
|
||||
@@ -3075,7 +3088,7 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
|
||||
(RPAQQ GRAPH/HARDCOPY/FORMAT (MODE PORTRAIT PAGENUMBERS T TRANS NIL))
|
||||
|
||||
(RPAQ? DEFAULT.GRAPH.WINDOWSIZE (LIST (TIMES SCREENWIDTH 0.7)
|
||||
(TIMES SCREENHEIGHT 0.4)))
|
||||
(TIMES SCREENHEIGHT 0.4)))
|
||||
|
||||
(RPAQ? EDITGRAPHMENUCOMMANDS
|
||||
'((Move% Node 'MOVENODE "Moves a single node in the graph." (SUBITEMS (|Move Single Node|
|
||||
@@ -3113,19 +3126,19 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RECORD GRAPHNODE (NODEID NODEPOSITION NODELABELBITMAP NIL NODELABELSHADE NODEWIDTH NODEHEIGHT
|
||||
TONODES FROMNODES NODEFONT NODELABEL NODEBORDER)
|
||||
NODEBORDER _ DEFAULT.GRAPH.NODEBORDER NODELABELSHADE _
|
||||
DEFAULT.GRAPH.NODELABELSHADE NODEFONT _ DEFAULT.GRAPH.NODEFONT)
|
||||
TONODES FROMNODES NODEFONT NODELABEL NODEBORDER)
|
||||
NODEBORDER _ DEFAULT.GRAPH.NODEBORDER NODELABELSHADE _ DEFAULT.GRAPH.NODELABELSHADE
|
||||
NODEFONT _ DEFAULT.GRAPH.NODEFONT)
|
||||
|
||||
(RECORD GRAPH (GRAPHNODES SIDESFLG DIRECTEDFLG GRAPH.MOVENODEFN GRAPH.ADDNODEFN
|
||||
GRAPH.DELETENODEFN GRAPH.ADDLINKFN GRAPH.DELETELINKFN GRAPH.FONTCHANGEFN
|
||||
GRAPH.INVERTBORDERFN GRAPH.INVERTLABELFN GRAPH.CHANGELABELFN . GRAPH.PROPS))
|
||||
(RECORD GRAPH (GRAPHNODES SIDESFLG DIRECTEDFLG GRAPH.MOVENODEFN GRAPH.ADDNODEFN GRAPH.DELETENODEFN
|
||||
GRAPH.ADDLINKFN GRAPH.DELETELINKFN GRAPH.FONTCHANGEFN GRAPH.INVERTBORDERFN
|
||||
GRAPH.INVERTLABELFN GRAPH.CHANGELABELFN . GRAPH.PROPS))
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS HALF MACRO ((X)
|
||||
(LRSH X 1)))
|
||||
(LRSH X 1)))
|
||||
)
|
||||
)
|
||||
|
||||
@@ -3789,61 +3802,59 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
|
||||
)
|
||||
|
||||
(ADDTOVAR IMAGEOBJGETFNS (GRAPHOBJ.GETFN))
|
||||
(PUTPROPS GRAPHER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991
|
||||
1992 1993 1994 2018 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (7195 111244 (ADD/AND/DISPLAY/LINK 7205 . 7907) (APPLYTOSELECTEDNODE 7909 . 8397) (
|
||||
CALL.MOVENODEFN 8399 . 8748) (CHANGE.NODEFONT.SIZE 8750 . 10062) (DEFAULT.ADDNODEFN 10064 . 10862) (
|
||||
DELETE/AND/DISPLAY/LINK 10864 . 12431) (DISPLAY/NAME 12433 . 12604) (DISPLAYGRAPH 12606 . 14977) (
|
||||
DISPLAYLINK 14979 . 17532) (DISPLAYLINK/BT 17534 . 18556) (DISPLAYLINK/LR 18558 . 19581) (
|
||||
DISPLAYLINK/RL 19583 . 20606) (DISPLAYLINK/TB 20608 . 21631) (DISPLAYNODE 21633 . 21981) (
|
||||
ERASE/GRAPHNODE 21983 . 23090) (DISPLAYNODE 23092 . 23440) (DISPLAYNODELINKS 23442 . 24586) (
|
||||
DRAW/GRAPHNODE/BORDER 24588 . 25507) (DRAWAREABOX 25509 . 26710) (EDITADDLINK 26712 . 27110) (
|
||||
EDITADDNODE 27112 . 29201) (EDITAPPLYTOLINK 29203 . 31282) (EDITCHANGEFONT 31284 . 32456) (
|
||||
EDITCHANGELABEL 32458 . 33999) (EDITDELETELINK 34001 . 34407) (EDITDELETENODE 34409 . 37110) (
|
||||
EDITGRAPH 37112 . 37179) (EDITGRAPH1 37181 . 37939) (EDITGRAPH2 37941 . 39672) (EDITMOVENODE 39674 .
|
||||
41251) (EDITTOGGLEBORDER 41253 . 42549) (EDITTOGGLELABEL 42551 . 43848) (FILL/GRAPHNODE/LABEL 43850 .
|
||||
44678) (FIX/SCALE 44680 . 45236) (FLIPNODE 45238 . 45842) (FONTNAMELIST 45844 . 46063) (FROMLINKS
|
||||
46065 . 46235) (GETNODEFROMID 46237 . 47256) (GN/BOTTOM 47258 . 47534) (GN/LEFT 47536 . 47809) (
|
||||
GN/RIGHT 47811 . 48202) (GN/TOP 48204 . 48628) (GRAPHADDLINK 48630 . 49189) (GRAPHADDNODE 49191 .
|
||||
49980) (GRAPHBUTTONEVENTFN 49982 . 52162) (GRAPHCHANGELABEL 52164 . 52607) (GRAPHDELETELINK 52609 .
|
||||
53917) (GRAPHDELETENODE 53919 . 54451) (GRAPHEDITCOMMANDFN 54453 . 55837) (GRAPHEDITEVENTFN 55839 .
|
||||
56550) (GRAPHER/CENTERPRINTINAREA 56552 . 57316) (GRAPHERPROP 57318 . 57862) (GRAPHNODE/BORDER/WIDTH
|
||||
57864 . 58385) (GRAPHREGION 58387 . 59556) (HARDCOPYGRAPH 59558 . 66940) (INTERSECT/REGIONP/LBWH 66942
|
||||
. 68218) (INVERTED/GRAPHNODE/BORDER 68220 . 68804) (INVERTED/SHADE/FOR/GRAPHER 68806 . 69438) (
|
||||
LAYOUT/POSITION 69440 . 69619) (LINKPARAMETERS 69621 . 70073) (MAX/RIGHT 70075 . 70277) (MAX/TOP 70279
|
||||
. 70477) (MEASUREGRAPHNODE 70479 . 70928) (MEMBTONODES 70930 . 71455) (MIN/BOTTOM 71457 . 71838) (
|
||||
MIN/LEFT 71840 . 72215) (MOVENODE 72217 . 73460) (NODECREATE 73462 . 74242) (NODELST/AS/MENU 74244 .
|
||||
75844) (NODEREGION 75846 . 76306) (PRINTDISPLAYNODE 76308 . 81366) (PROMPTINWINDOW 81368 . 84177) (
|
||||
READ/NODE 84179 . 85293) (REDISPLAYGRAPH 85295 . 85737) (REMOVETONODES 85739 . 86260) (
|
||||
RESET/NODE/BORDER 86262 . 88049) (RESET/NODE/LABELSHADE 88051 . 89566) (SCALE/GRAPH 89568 . 95854) (
|
||||
SCALE/GRAPHNODE/BORDER 95856 . 96551) (SCALE/TONODES 96553 . 97434) (SET/LABEL/SIZE 97436 . 100382) (
|
||||
SET/LAYOUT/POSITION 100384 . 100869) (SHOWGRAPH 100871 . 102670) (SIZE/GRAPH/WINDOW 102672 . 106156) (
|
||||
TOGGLE/DIRECTEDFLG 106158 . 106788) (TOGGLE/SIDESFLG 106790 . 107278) (TOLINKS 107280 . 107446) (
|
||||
TRACKCURSOR 107448 . 108855) (TRACKNODE 108857 . 109493) (TRANSGRAPH 109495 . 111242)) (111485 128102
|
||||
(EDITMOVEREGION 111495 . 115298) (EDITMOVESUBTREE 115300 . 117077) (NOT.TRACKCURSOR 117079 . 120057) (
|
||||
RECURSIVE.COLLECTDESCENDENTS 120059 . 121547) (MOVEDESCENDENTS 121549 . 123611) (COLLECT.CHILD.NODES
|
||||
123613 . 124729) (CREATE.NEW.NODEPOSITION 124731 . 125271) (GETBOXPOSITION.FROMINITIALREGION 125273 .
|
||||
126745) (COLLECTDESCENDENTS 126747 . 128100)) (128166 130455 (NEXTSIZEFONT 128176 . 129366) (
|
||||
DECREASING.FONT.LIST 129368 . 129694) (SCALE.FONT 129696 . 130453)) (130679 169831 (BRH/LAYOUT 130689
|
||||
. 132433) (BRH/LAYOUT/DAUGHTERS 132435 . 133381) (BRH/OFFSET 133383 . 134061) (BRHC/INTERTREE/SPACE
|
||||
134063 . 135381) (BRHC/LAYOUT 135383 . 137239) (BRHC/LAYOUT/DAUGHTERS 137241 . 140195) (
|
||||
BRHC/LAYOUT/TERMINAL 140197 . 140878) (BRHC/OFFSET 140880 . 141776) (BRHL/LAYOUT 141778 . 144002) (
|
||||
BRHL/LAYOUT/DAUGHTERS 144004 . 145762) (BRHL/MOVE/RIGHT 145764 . 146907) (BROWSE/LAYOUT/HORIZ 146909
|
||||
. 147633) (BROWSE/LAYOUT/HORIZ/COMPACTLY 147635 . 150441) (BROWSE/LAYOUT/LATTICE 150443 . 151299) (
|
||||
BRV/OFFSET 151301 . 152164) (EXTEND/TRANSITION/CHAIN 152166 . 153437) (FOREST/BREAK/CYCLES 153439 .
|
||||
154369) (INIT/NODES/FOR/LAYOUT 154371 . 155866) (INTERPRET/MARK/FORMAT 155868 . 157135) (
|
||||
LATTICE/BREAK/CYCLES 157137 . 157841) (LAYOUTFOREST 157843 . 158544) (LAYOUTGRAPH 158546 . 162013) (
|
||||
LAYOUTLATTICE 162015 . 163468) (LAYOUTSEXPR 163470 . 164541) (LAYOUTSEXPR1 164543 . 165245) (
|
||||
MARK/GRAPH/NODE 165247 . 165977) (NEW/INSTANCE/OF/GRAPHNODE 165979 . 167348) (RAISE/TRANSITION/CHAIN
|
||||
167350 . 167751) (REFLECT/GRAPH/DIAGONALLY 167753 . 168482) (REFLECT/GRAPH/HORIZONTALLY 168484 .
|
||||
169010) (REFLECT/GRAPH/VERTICALLY 169012 . 169536) (SWITCH/NODE/HEIGHT/WIDTH 169538 . 169829)) (173177
|
||||
174528 (GRAPHERIMAGEFNS 173187 . 174526)) (174529 176257 (GRAPHERCOPYBUTTONEVENTFN 174539 . 175518) (
|
||||
GRAPHOBJ.FINDGRAPH 175520 . 176255)) (176258 178878 (ALIGNMENTNODE 176268 . 177690) (
|
||||
GRAPHOBJ.CHECKALIGN 177692 . 178876)) (178879 194729 (GRAPHEROBJ 178889 . 180635) (
|
||||
GRAPHOBJ.BUTTONEVENTINFN 180637 . 182064) (GRAPHOBJ.COPYBUTTONEVENTFN 182066 . 182503) (
|
||||
GRAPHOBJ.COPYFN 182505 . 183429) (GRAPHOBJ.DISPLAYFN 183431 . 186246) (GRAPHOBJ.GETALIGN 186248 .
|
||||
186987) (GRAPHOBJ.GETFN 186989 . 188494) (GRAPHOBJ.IMAGEBOXFN 188496 . 192512) (GRAPHOBJ.PUTALIGN
|
||||
192514 . 193344) (GRAPHOBJ.PUTFN 193346 . 194727)) (194730 213882 (COPYGRAPH 194740 . 196288) (
|
||||
DUMPGRAPH 196290 . 206546) (READGRAPH 206548 . 213880)))))
|
||||
(FILEMAP (NIL (7149 112538 (ADD/AND/DISPLAY/LINK 7159 . 7861) (APPLYTOSELECTEDNODE 7863 . 8351) (
|
||||
CALL.MOVENODEFN 8353 . 8702) (CHANGE.NODEFONT.SIZE 8704 . 10016) (DEFAULT.ADDNODEFN 10018 . 10816) (
|
||||
DELETE/AND/DISPLAY/LINK 10818 . 12385) (DISPLAY/NAME 12387 . 12558) (DISPLAYGRAPH 12560 . 14931) (
|
||||
DISPLAYLINK 14933 . 17486) (DISPLAYLINK/BT 17488 . 18845) (DISPLAYLINK/LR 18847 . 20205) (
|
||||
DISPLAYLINK/RL 20207 . 21565) (DISPLAYLINK/TB 21567 . 22925) (DISPLAYNODE 22927 . 23275) (
|
||||
ERASE/GRAPHNODE 23277 . 24384) (DISPLAYNODE 24386 . 24734) (DISPLAYNODELINKS 24736 . 25880) (
|
||||
DRAW/GRAPHNODE/BORDER 25882 . 26801) (DRAWAREABOX 26803 . 28004) (EDITADDLINK 28006 . 28404) (
|
||||
EDITADDNODE 28406 . 30495) (EDITAPPLYTOLINK 30497 . 32576) (EDITCHANGEFONT 32578 . 33750) (
|
||||
EDITCHANGELABEL 33752 . 35293) (EDITDELETELINK 35295 . 35701) (EDITDELETENODE 35703 . 38404) (
|
||||
EDITGRAPH 38406 . 38473) (EDITGRAPH1 38475 . 39233) (EDITGRAPH2 39235 . 40966) (EDITMOVENODE 40968 .
|
||||
42545) (EDITTOGGLEBORDER 42547 . 43843) (EDITTOGGLELABEL 43845 . 45142) (FILL/GRAPHNODE/LABEL 45144 .
|
||||
45972) (FIX/SCALE 45974 . 46530) (FLIPNODE 46532 . 47136) (FONTNAMELIST 47138 . 47357) (FROMLINKS
|
||||
47359 . 47529) (GETNODEFROMID 47531 . 48550) (GN/BOTTOM 48552 . 48828) (GN/LEFT 48830 . 49103) (
|
||||
GN/RIGHT 49105 . 49496) (GN/TOP 49498 . 49922) (GRAPHADDLINK 49924 . 50483) (GRAPHADDNODE 50485 .
|
||||
51274) (GRAPHBUTTONEVENTFN 51276 . 53456) (GRAPHCHANGELABEL 53458 . 53901) (GRAPHDELETELINK 53903 .
|
||||
55211) (GRAPHDELETENODE 55213 . 55745) (GRAPHEDITCOMMANDFN 55747 . 57131) (GRAPHEDITEVENTFN 57133 .
|
||||
57844) (GRAPHER/CENTERPRINTINAREA 57846 . 58610) (GRAPHERPROP 58612 . 59156) (GRAPHNODE/BORDER/WIDTH
|
||||
59158 . 59679) (GRAPHREGION 59681 . 60850) (HARDCOPYGRAPH 60852 . 68234) (INTERSECT/REGIONP/LBWH 68236
|
||||
. 69512) (INVERTED/GRAPHNODE/BORDER 69514 . 70098) (INVERTED/SHADE/FOR/GRAPHER 70100 . 70732) (
|
||||
LAYOUT/POSITION 70734 . 70913) (LINKPARAMETERS 70915 . 71367) (MAX/RIGHT 71369 . 71571) (MAX/TOP 71573
|
||||
. 71771) (MEASUREGRAPHNODE 71773 . 72222) (MEMBTONODES 72224 . 72749) (MIN/BOTTOM 72751 . 73132) (
|
||||
MIN/LEFT 73134 . 73509) (MOVENODE 73511 . 74754) (NODECREATE 74756 . 75536) (NODELST/AS/MENU 75538 .
|
||||
77138) (NODEREGION 77140 . 77600) (PRINTDISPLAYNODE 77602 . 82660) (PROMPTINWINDOW 82662 . 85471) (
|
||||
READ/NODE 85473 . 86587) (REDISPLAYGRAPH 86589 . 87031) (REMOVETONODES 87033 . 87554) (
|
||||
RESET/NODE/BORDER 87556 . 89343) (RESET/NODE/LABELSHADE 89345 . 90860) (SCALE/GRAPH 90862 . 97148) (
|
||||
SCALE/GRAPHNODE/BORDER 97150 . 97845) (SCALE/TONODES 97847 . 98728) (SET/LABEL/SIZE 98730 . 101676) (
|
||||
SET/LAYOUT/POSITION 101678 . 102163) (SHOWGRAPH 102165 . 103964) (SIZE/GRAPH/WINDOW 103966 . 107450) (
|
||||
TOGGLE/DIRECTEDFLG 107452 . 108082) (TOGGLE/SIDESFLG 108084 . 108572) (TOLINKS 108574 . 108740) (
|
||||
TRACKCURSOR 108742 . 110149) (TRACKNODE 110151 . 110787) (TRANSGRAPH 110789 . 112536)) (112779 129396
|
||||
(EDITMOVEREGION 112789 . 116592) (EDITMOVESUBTREE 116594 . 118371) (NOT.TRACKCURSOR 118373 . 121351) (
|
||||
RECURSIVE.COLLECTDESCENDENTS 121353 . 122841) (MOVEDESCENDENTS 122843 . 124905) (COLLECT.CHILD.NODES
|
||||
124907 . 126023) (CREATE.NEW.NODEPOSITION 126025 . 126565) (GETBOXPOSITION.FROMINITIALREGION 126567 .
|
||||
128039) (COLLECTDESCENDENTS 128041 . 129394)) (129460 131749 (NEXTSIZEFONT 129470 . 130660) (
|
||||
DECREASING.FONT.LIST 130662 . 130988) (SCALE.FONT 130990 . 131747)) (131973 171125 (BRH/LAYOUT 131983
|
||||
. 133727) (BRH/LAYOUT/DAUGHTERS 133729 . 134675) (BRH/OFFSET 134677 . 135355) (BRHC/INTERTREE/SPACE
|
||||
135357 . 136675) (BRHC/LAYOUT 136677 . 138533) (BRHC/LAYOUT/DAUGHTERS 138535 . 141489) (
|
||||
BRHC/LAYOUT/TERMINAL 141491 . 142172) (BRHC/OFFSET 142174 . 143070) (BRHL/LAYOUT 143072 . 145296) (
|
||||
BRHL/LAYOUT/DAUGHTERS 145298 . 147056) (BRHL/MOVE/RIGHT 147058 . 148201) (BROWSE/LAYOUT/HORIZ 148203
|
||||
. 148927) (BROWSE/LAYOUT/HORIZ/COMPACTLY 148929 . 151735) (BROWSE/LAYOUT/LATTICE 151737 . 152593) (
|
||||
BRV/OFFSET 152595 . 153458) (EXTEND/TRANSITION/CHAIN 153460 . 154731) (FOREST/BREAK/CYCLES 154733 .
|
||||
155663) (INIT/NODES/FOR/LAYOUT 155665 . 157160) (INTERPRET/MARK/FORMAT 157162 . 158429) (
|
||||
LATTICE/BREAK/CYCLES 158431 . 159135) (LAYOUTFOREST 159137 . 159838) (LAYOUTGRAPH 159840 . 163307) (
|
||||
LAYOUTLATTICE 163309 . 164762) (LAYOUTSEXPR 164764 . 165835) (LAYOUTSEXPR1 165837 . 166539) (
|
||||
MARK/GRAPH/NODE 166541 . 167271) (NEW/INSTANCE/OF/GRAPHNODE 167273 . 168642) (RAISE/TRANSITION/CHAIN
|
||||
168644 . 169045) (REFLECT/GRAPH/DIAGONALLY 169047 . 169776) (REFLECT/GRAPH/HORIZONTALLY 169778 .
|
||||
170304) (REFLECT/GRAPH/VERTICALLY 170306 . 170830) (SWITCH/NODE/HEIGHT/WIDTH 170832 . 171123)) (174438
|
||||
175789 (GRAPHERIMAGEFNS 174448 . 175787)) (175790 177518 (GRAPHERCOPYBUTTONEVENTFN 175800 . 176779) (
|
||||
GRAPHOBJ.FINDGRAPH 176781 . 177516)) (177519 180139 (ALIGNMENTNODE 177529 . 178951) (
|
||||
GRAPHOBJ.CHECKALIGN 178953 . 180137)) (180140 195990 (GRAPHEROBJ 180150 . 181896) (
|
||||
GRAPHOBJ.BUTTONEVENTINFN 181898 . 183325) (GRAPHOBJ.COPYBUTTONEVENTFN 183327 . 183764) (
|
||||
GRAPHOBJ.COPYFN 183766 . 184690) (GRAPHOBJ.DISPLAYFN 184692 . 187507) (GRAPHOBJ.GETALIGN 187509 .
|
||||
188248) (GRAPHOBJ.GETFN 188250 . 189755) (GRAPHOBJ.IMAGEBOXFN 189757 . 193773) (GRAPHOBJ.PUTALIGN
|
||||
193775 . 194605) (GRAPHOBJ.PUTFN 194607 . 195988)) (195991 215143 (COPYGRAPH 196001 . 197549) (
|
||||
DUMPGRAPH 197551 . 207807) (READGRAPH 207809 . 215141)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "19-Jan-2026 14:09:03" {WMEDLEY}<library>UNIXUTILS.;55 20711
|
||||
(FILECREATED "28-Apr-2026 09:59:13" {WMEDLEY}<library>UNIXUTILS.;61 22079
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS UNIX-FILE-NAME)
|
||||
:CHANGES-TO (VARS UNIXUTILSCOMS)
|
||||
|
||||
:PREVIOUS-DATE "17-Jan-2026 23:16:17" {WMEDLEY}<library>UNIXUTILS.;54)
|
||||
:PREVIOUS-DATE "27-Apr-2026 11:10:07" {MEDLEY}<library>UNIXUTILS.;60)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT UNIXUTILSCOMS)
|
||||
@@ -23,6 +23,7 @@
|
||||
(ShellOpener NIL RESET)))
|
||||
(FNS ShellBrowser ShellBrowse ShellOpener ShellOpen PROCESS-COMMAND SLASHIT UNIX-FILE-NAME
|
||||
UNIX-TMP-FILE-NAME)
|
||||
(COMMANDS "cd" cdm "ls" "pwd")
|
||||
(PROPS (UNIXUTILS FILETYPE))))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
|
||||
@@ -148,7 +149,8 @@
|
||||
"true"])
|
||||
|
||||
(ShellOpen
|
||||
[LAMBDA (FilenameOrURL) (* ; "Edited 28-Dec-2025 18:26 by rmk")
|
||||
[LAMBDA (FilenameOrURL) (* ; "Edited 27-Apr-2026 11:08 by FGH")
|
||||
(* ; "Edited 28-Dec-2025 18:26 by rmk")
|
||||
(* ; "Edited 10-Sep-2025 15:29 by rmk")
|
||||
(* ; "Edited 4-May-2025 11:14 by rmk")
|
||||
|
||||
@@ -210,7 +212,8 @@
|
||||
'NAME NEWNAME 'EXTENSION EXTENSION))
|
||||
(TARGETFILE.UNIX (SLASHIT (PACKFILENAME.STRING 'HOST NIL 'DIRECTORY
|
||||
TMPDIR 'NAME NEWNAME 'EXTENSION
|
||||
EXTENSION)))
|
||||
EXTENSION)
|
||||
NIL NIL NIL T))
|
||||
(UNIXFILE NIL))
|
||||
(DECLARE (SPECVARS UNIXFILE))
|
||||
(if (OR VERSION.SPECIFIED (NOT UNVERSIONED.EXISTS))
|
||||
@@ -245,7 +248,8 @@
|
||||
0))) DO (BLOCK) FINALLY (RETURN CODE])
|
||||
|
||||
(SLASHIT
|
||||
[LAMBDA (X LCASEDIRS NOHOST KEEPDOT) (* ; "Edited 17-Jan-2026 23:15 by rmk")
|
||||
[LAMBDA (X LCASEDIRS NOHOST KEEPDOT NO.QUOTE.SPACE) (* ; "Edited 27-Apr-2026 11:00 by FGH")
|
||||
(* ; "Edited 17-Jan-2026 23:15 by rmk")
|
||||
(* ; "Edited 4-Nov-2025 10:10 by rmk")
|
||||
(* ; "Edited 22-Oct-2025 13:05 by rmk")
|
||||
(* ; "Edited 25-Sep-2025 09:57 by rmk")
|
||||
@@ -258,7 +262,10 @@
|
||||
(* ;; "This is a first approximation to a utility that converts a filename X on a host whose files physically reside in the local Unix file system into the strings that shell commands can use to reference that file. For now, this just involves replacing directory brackets with /, removing the host, perhaps lower-casing the directory, and perhaps removing a final dot. It probably should be extended to deal with version number translation, for now it just keeps the ; version. ")
|
||||
|
||||
(LET [LASTDIRPOS SLASHED (DIRPOS (ADD1 (OR (STRPOS "}" X)
|
||||
0]
|
||||
0)))
|
||||
(REPLACE.SPACE (if NO.QUOTE.SPACE
|
||||
then (CONS (CHARCODE SPACE))
|
||||
else (CHARCODE (\ SPACE]
|
||||
[SETQ SLASHED (CONCATCODES (for I C from DIRPOS while (SETQ C (NTHCHARCODE X I))
|
||||
join (SELCHARQ C
|
||||
((< >)
|
||||
@@ -266,7 +273,7 @@
|
||||
(CONS (CHARCODE /)))
|
||||
(/ (SETQ LASTDIRPOS I)
|
||||
(CONS C))
|
||||
(SPACE (APPEND (CHARCODE (\ SPACE))))
|
||||
(SPACE (APPEND REPLACE.SPACE))
|
||||
(CONS C]
|
||||
(CL:WHEN (AND LCASEDIRS LASTDIRPOS)
|
||||
(SETQ LASTDIRPOS (ADD1 (IDIFFERENCE LASTDIRPOS DIRPOS)))
|
||||
@@ -287,7 +294,9 @@
|
||||
SLASHED])
|
||||
|
||||
(UNIX-FILE-NAME
|
||||
[LAMBDA (FILE ACCESS COPY EXTENSION) (* ; "Edited 19-Jan-2026 14:05 by rmk")
|
||||
[LAMBDA (FILE ACCESS COPY EXTENSION) (* ; "Edited 31-Mar-2026 00:13 by rmk")
|
||||
(* ; "Edited 29-Mar-2026 00:26 by rmk")
|
||||
(* ; "Edited 19-Jan-2026 14:05 by rmk")
|
||||
(* ; "Edited 17-Jan-2026 22:32 by rmk")
|
||||
(* ; "Edited 11-Jan-2026 23:54 by rmk")
|
||||
(* ; "Edited 27-Dec-2025 21:24 by rmk")
|
||||
@@ -317,8 +326,13 @@
|
||||
FILE))
|
||||
(DSK [LET ((VERSION (FILENAMEFIELD FILE 'VERSION))
|
||||
(UNAME (PACKFILENAME 'VERSION NIL 'BODY FILE)))
|
||||
(CL:UNLESS (EQ VERSION 1)
|
||||
(CONCAT UNAME (CONCAT "~" VERSION "~")))])
|
||||
(CL:IF (EQ VERSION 1)
|
||||
UNAME
|
||||
(CONCAT UNAME (CONCAT (CL:IF (EQ (CHARCODE %.)
|
||||
(NTHCHARCODE UNAME -1))
|
||||
""
|
||||
".")
|
||||
"~" VERSION "~")))])
|
||||
(LET (UNAME)
|
||||
|
||||
(* ;; "Catch the streams as well as other devices (CORE, servers)")
|
||||
@@ -358,10 +372,20 @@
|
||||
unless (INFILEP UNAME) do (RETURN (SLASHIT (CLOSEF (OPENSTREAM UNAME 'OUTPUT 'NEW])
|
||||
)
|
||||
|
||||
(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
|
||||
|
||||
(DEFCOMMAND cdm (SUBDIR) (/CNDIR (CL:IF SUBDIR
|
||||
(CONCAT '{MEDLEY}/ SUBDIR)
|
||||
'{MEDLEY})))
|
||||
|
||||
(DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST)))
|
||||
|
||||
(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
|
||||
|
||||
(PUTPROPS UNIXUTILS FILETYPE CL:COMPILE-FILE)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1170 1543 (ShellCommand 1170 . 1543)) (1545 1942 (ShellWhich 1545 . 1942)) (2052 20633
|
||||
(ShellBrowser 2062 . 3834) (ShellBrowse 3836 . 4521) (ShellOpener 4523 . 6211) (ShellOpen 6213 . 11982
|
||||
) (PROCESS-COMMAND 11984 . 12597) (SLASHIT 12599 . 15623) (UNIX-FILE-NAME 15625 . 18952) (
|
||||
UNIX-TMP-FILE-NAME 18954 . 20631)))))
|
||||
(FILEMAP (NIL (1208 1581 (ShellCommand 1208 . 1581)) (1583 1980 (ShellWhich 1583 . 1980)) (2090 21695
|
||||
(ShellBrowser 2100 . 3872) (ShellBrowse 3874 . 4559) (ShellOpener 4561 . 6249) (ShellOpen 6251 . 12198
|
||||
) (PROCESS-COMMAND 12200 . 12813) (SLASHIT 12815 . 16127) (UNIX-FILE-NAME 16129 . 20014) (
|
||||
UNIX-TMP-FILE-NAME 20016 . 21693)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED " 2-Mar-2026 18:32:06" {WMEDLEY}<library>tedit>TEDIT.;853 146506
|
||||
(FILECREATED "10-Mar-2026 18:07:31" {WMEDLEY}<library>tedit>TEDIT.;855 146853
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS TEDITCOMS)
|
||||
:CHANGES-TO (FNS TDRIBBLE)
|
||||
|
||||
:PREVIOUS-DATE " 4-Feb-2026 16:02:02" {WMEDLEY}<library>tedit>TEDIT.;852)
|
||||
:PREVIOUS-DATE " 2-Mar-2026 18:32:06" {WMEDLEY}<library>tedit>TEDIT.;853)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDITCOMS)
|
||||
@@ -743,17 +743,21 @@
|
||||
(DEFINEQ
|
||||
|
||||
(TDRIBBLE
|
||||
[LAMBDA NIL (* ; "Edited 31-Mar-2025 12:03 by rmk")
|
||||
[LAMBDA (TITLE WINDOW) (* ; "Edited 10-Mar-2026 17:39 by rmk")
|
||||
(* ; "Edited 31-Mar-2025 12:03 by rmk")
|
||||
(* ; "Edited 16-Mar-2025 21:47 by rmk")
|
||||
(* ; "Edited 27-Nov-2024 23:20 by rmk")
|
||||
(* ; "Edited 17-Nov-2024 14:10 by rmk")
|
||||
(* ; "Edited 15-Nov-2024 21:13 by rmk")
|
||||
(* ; "Edited 22-Oct-2024 21:23 by rmk")
|
||||
(LET [(TSTREAM (OPENTEXTSTREAM NIL NIL NIL NIL `(HISTORY OFF FONT DEFAULTFONT]
|
||||
(LET [(TSTREAM (OPENTEXTSTREAM NIL NIL NIL NIL `(TITLE ,(CONCAT (OR TITLE "Tedit Dribble")
|
||||
" "
|
||||
(DATE))
|
||||
HISTORY OFF FONT DEFAULTFONT]
|
||||
[WHENCLOSE TSTREAM 'BEFORE
|
||||
(FUNCTION (LAMBDA (TSTREAM)
|
||||
[TEDIT TSTREAM 'Dribble NIL
|
||||
`(TITLE ,(CONCAT "Tedit Dribble " (DATE))
|
||||
`(TITLE ,(TEXTPROP TSTREAM 'TITLE)
|
||||
LEAVETTY T APPEND QUIET PARABREAKCHARS NIL HISTORY OFF
|
||||
OPENWIDTH ,(fetch (REGION WIDTH)
|
||||
of (WINDOWPROP (WFROMDS T)
|
||||
@@ -2345,27 +2349,27 @@
|
||||
|
||||
(DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4738 7132 (MAKE-TEDIT-EXPORTS.ALL 4748 . 5294) (UPDATE-TEDIT 5296 . 6225) (EDIT-TEDIT
|
||||
6227 . 7130)) (8487 37486 (TEDIT 8497 . 11111) (TEXTSTREAM 11113 . 13002) (TEXTSTREAMP 13004 . 13388)
|
||||
(COERCETEXTSTREAM 13390 . 17601) (TEDIT.CONCAT 17603 . 20905) (TEDITSTRING 20907 . 21821) (TEDIT-SEE
|
||||
21823 . 22507) (TEDIT.COPY 22509 . 24654) (TEDIT.DELETE 24656 . 26017) (TEDIT.INSERT 26019 . 28988) (
|
||||
TEDIT.TERPRI 28990 . 30104) (TEDIT.KILL 30106 . 31088) (TEDIT.QUIT 31090 . 32456) (TEDIT.MOVE 32458 .
|
||||
33346) (TEDIT.STRINGWIDTH 33348 . 34019) (TEDIT.CHARWIDTH 34021 . 36263) (TEDIT.PARAGRAPH.BOUNDARIES
|
||||
36265 . 37484)) (37487 39428 (TEXTOBJ 37497 . 37962) (COERCETEXTOBJ 37964 . 39426)) (40828 42478 (
|
||||
TDRIBBLE 40838 . 42476)) (42519 54499 (TEDIT.INSERT.OBJECT 42529 . 46236) (TEDIT.EDIT.OBJECT 46238 .
|
||||
49178) (TEDIT.OBJECT.CHANGED 49180 . 52370) (TEDIT.MAP.OBJECTS 52372 . 54027) (\TEDIT.FIRST.OBJPIECE
|
||||
54029 . 54262) (\TEDIT.NEXT.OBJPIECE 54264 . 54497)) (54522 61965 (\TEDIT.CONCAT.PAGEFRAMES 54532 .
|
||||
59599) (\TEDIT.GET.PAGE.HEADINGS 59601 . 60630) (\TEDIT.CONCAT.INSTALL.HEADINGS 60632 . 61963)) (61966
|
||||
65573 (\TEDIT.MOVE.MSG 61976 . 64057) (\TEDIT.READONLY 64059 . 65571)) (65574 71465 (TEDIT.NCHARS
|
||||
65584 . 65957) (TEDIT.RPLCHARCODE 65959 . 68949) (TEDIT.NTHCHARCODE 68951 . 70994) (TEDIT.NTHCHAR
|
||||
70996 . 71463)) (71511 128555 (\TEDIT1 71521 . 73598) (\TEDIT.INSERT 73600 . 79713) (\TEDIT.MOVE 79715
|
||||
. 87813) (\TEDIT.COPY 87815 . 92421) (\TEDIT.REPLACE.SELPIECES 92423 . 96959) (
|
||||
\TEDIT.INSERT.SELPIECES 96961 . 99958) (\TEDIT.RESTARTFN 99960 . 102465) (\TEDIT.CHARDELETE 102467 .
|
||||
105396) (\TEDIT.COPYPIECE 105398 . 110560) (\TEDIT.APPLY.OBJFN 110562 . 113648) (\TEDIT.DELETE 113650
|
||||
. 118018) (\TEDIT.DIFFUSE.PARALOOKS 118020 . 120291) (\TEDIT.WORDDELETE 120293 . 121908) (
|
||||
\TEDIT.WORDDELETE.FORWARD 121910 . 123699) (\TEDIT.FINISHEDIT? 123701 . 128553)) (128556 129215 (
|
||||
\TEDIT.THELP 128566 . 129213)) (129249 138380 (\TEDIT.PARAPIECES 129259 . 131233) (\TEDIT.PARACHNOS
|
||||
131235 . 132127) (\TEDIT.PARA.FIRST 132129 . 135230) (\TEDIT.PARA.LAST 135232 . 138378)) (138381
|
||||
145476 (\TEDIT.WORD.FIRST 138391 . 142395) (\TEDIT.WORD.LAST 142397 . 145474)) (145677 145954 (
|
||||
TEDITSYSTEMDATE 145687 . 145952)) (146090 146297 (TEDIT.IMAGESOURCEP 146100 . 146295)))))
|
||||
(FILEMAP (NIL (4736 7130 (MAKE-TEDIT-EXPORTS.ALL 4746 . 5292) (UPDATE-TEDIT 5294 . 6223) (EDIT-TEDIT
|
||||
6225 . 7128)) (8485 37484 (TEDIT 8495 . 11109) (TEXTSTREAM 11111 . 13000) (TEXTSTREAMP 13002 . 13386)
|
||||
(COERCETEXTSTREAM 13388 . 17599) (TEDIT.CONCAT 17601 . 20903) (TEDITSTRING 20905 . 21819) (TEDIT-SEE
|
||||
21821 . 22505) (TEDIT.COPY 22507 . 24652) (TEDIT.DELETE 24654 . 26015) (TEDIT.INSERT 26017 . 28986) (
|
||||
TEDIT.TERPRI 28988 . 30102) (TEDIT.KILL 30104 . 31086) (TEDIT.QUIT 31088 . 32454) (TEDIT.MOVE 32456 .
|
||||
33344) (TEDIT.STRINGWIDTH 33346 . 34017) (TEDIT.CHARWIDTH 34019 . 36261) (TEDIT.PARAGRAPH.BOUNDARIES
|
||||
36263 . 37482)) (37485 39426 (TEXTOBJ 37495 . 37960) (COERCETEXTOBJ 37962 . 39424)) (40826 42825 (
|
||||
TDRIBBLE 40836 . 42823)) (42866 54846 (TEDIT.INSERT.OBJECT 42876 . 46583) (TEDIT.EDIT.OBJECT 46585 .
|
||||
49525) (TEDIT.OBJECT.CHANGED 49527 . 52717) (TEDIT.MAP.OBJECTS 52719 . 54374) (\TEDIT.FIRST.OBJPIECE
|
||||
54376 . 54609) (\TEDIT.NEXT.OBJPIECE 54611 . 54844)) (54869 62312 (\TEDIT.CONCAT.PAGEFRAMES 54879 .
|
||||
59946) (\TEDIT.GET.PAGE.HEADINGS 59948 . 60977) (\TEDIT.CONCAT.INSTALL.HEADINGS 60979 . 62310)) (62313
|
||||
65920 (\TEDIT.MOVE.MSG 62323 . 64404) (\TEDIT.READONLY 64406 . 65918)) (65921 71812 (TEDIT.NCHARS
|
||||
65931 . 66304) (TEDIT.RPLCHARCODE 66306 . 69296) (TEDIT.NTHCHARCODE 69298 . 71341) (TEDIT.NTHCHAR
|
||||
71343 . 71810)) (71858 128902 (\TEDIT1 71868 . 73945) (\TEDIT.INSERT 73947 . 80060) (\TEDIT.MOVE 80062
|
||||
. 88160) (\TEDIT.COPY 88162 . 92768) (\TEDIT.REPLACE.SELPIECES 92770 . 97306) (
|
||||
\TEDIT.INSERT.SELPIECES 97308 . 100305) (\TEDIT.RESTARTFN 100307 . 102812) (\TEDIT.CHARDELETE 102814
|
||||
. 105743) (\TEDIT.COPYPIECE 105745 . 110907) (\TEDIT.APPLY.OBJFN 110909 . 113995) (\TEDIT.DELETE
|
||||
113997 . 118365) (\TEDIT.DIFFUSE.PARALOOKS 118367 . 120638) (\TEDIT.WORDDELETE 120640 . 122255) (
|
||||
\TEDIT.WORDDELETE.FORWARD 122257 . 124046) (\TEDIT.FINISHEDIT? 124048 . 128900)) (128903 129562 (
|
||||
\TEDIT.THELP 128913 . 129560)) (129596 138727 (\TEDIT.PARAPIECES 129606 . 131580) (\TEDIT.PARACHNOS
|
||||
131582 . 132474) (\TEDIT.PARA.FIRST 132476 . 135577) (\TEDIT.PARA.LAST 135579 . 138725)) (138728
|
||||
145823 (\TEDIT.WORD.FIRST 138738 . 142742) (\TEDIT.WORD.LAST 142744 . 145821)) (146024 146301 (
|
||||
TEDITSYSTEMDATE 146034 . 146299)) (146437 146644 (TEDIT.IMAGESOURCEP 146447 . 146642)))))
|
||||
STOP
|
||||
|
||||
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "23-Jan-2026 15:49:26" {WMEDLEY}<library>TEDIT>TEDIT-ABBREV.;58 18256
|
||||
(FILECREATED "30-Apr-2026 11:55:15" {MEDLEY}<library>tedit>TEDIT-ABBREV.;59 18372
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.ABBREV.EXPAND)
|
||||
|
||||
:PREVIOUS-DATE "13-Jan-2026 17:51:55" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;55)
|
||||
:PREVIOUS-DATE "23-Jan-2026 15:49:26" {MEDLEY}<library>tedit>TEDIT-ABBREV.;58)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-ABBREVCOMS)
|
||||
@@ -86,7 +86,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.ABBREV.EXPAND
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 23-Jan-2026 15:49 by rmk")
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 30-Apr-2026 11:53 by rmk")
|
||||
(* ; "Edited 23-Jan-2026 15:49 by rmk")
|
||||
(* ; "Edited 20-Jan-2026 09:56 by rmk")
|
||||
(* ; "Edited 13-Jan-2026 17:51 by rmk")
|
||||
(* ; "Edited 8-Jan-2026 09:08 by rmk")
|
||||
@@ -118,7 +119,7 @@
|
||||
(SETQ BACKSLASH T) (* ;
|
||||
"Started with backslash, extend match")
|
||||
(SETQ POINTSELECTION NIL)
|
||||
(for I CH from (SUB1 LASTCHNO) by -1 as J from 1 to 25
|
||||
(for I CH from (SUB1 LASTCHNO) by -1 to 1 as J from 1 to 25
|
||||
do (SETQ CH (TEDIT.NTHCHARCODE TSTREAM I)) (* ; "Don't cross over an image obj")
|
||||
(if (IMAGEOBJP CH)
|
||||
then (RETURN)
|
||||
@@ -363,7 +364,7 @@
|
||||
("DATE" \TEDIT.EXPAND.DATE)
|
||||
(">>DATE<<" \TEDIT.EXPAND.DATE)))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4348 15152 (\TEDIT.ABBREV.EXPAND 4358 . 9123) (\TEDIT.ABBREV.EXPANSION 9125 . 12189) (
|
||||
\TEDIT.ABBREV.TREE 12191 . 13322) (\TEDIT.ABBREV.PARSE 13324 . 14476) (\TEDIT.ABBREV.PARSE.CHARCODE
|
||||
14478 . 15150)) (15153 15798 (\TEDIT.EXPAND.DATE 15163 . 15796)))))
|
||||
(FILEMAP (NIL (4346 15268 (\TEDIT.ABBREV.EXPAND 4356 . 9239) (\TEDIT.ABBREV.EXPANSION 9241 . 12305) (
|
||||
\TEDIT.ABBREV.TREE 12307 . 13438) (\TEDIT.ABBREV.PARSE 13440 . 14592) (\TEDIT.ABBREV.PARSE.CHARCODE
|
||||
14594 . 15266)) (15269 15914 (\TEDIT.EXPAND.DATE 15279 . 15912)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "25-Jan-2026 09:14:04" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;230 123301
|
||||
(FILECREATED "29-Apr-2026 17:57:09" {MEDLEY}<library>TEDIT>TEDIT-BUTTONS.;233 123809
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS TEDIT-BUTTONSCOMS)
|
||||
:CHANGES-TO (FNS MB.NWAY.SIZEFN)
|
||||
|
||||
:PREVIOUS-DATE "19-Oct-2025 10:44:18" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;229)
|
||||
:PREVIOUS-DATE "17-Mar-2026 00:38:38" {MEDLEY}<library>TEDIT>TEDIT-BUTTONS.;231)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-BUTTONSCOMS)
|
||||
@@ -922,11 +922,12 @@
|
||||
SOBJ STREAM])
|
||||
|
||||
(MB.NWAY.SIZEFN
|
||||
[LAMBDA (OBJ STREAM CURX RIGHTMARGIN) (* ; "Edited 20-Aug-2024 15:12 by rmk")
|
||||
[LAMBDA (OBJ STREAM CURX RIGHTMARGIN) (* ; "Edited 29-Apr-2026 17:56 by rmk")
|
||||
(* ; "Edited 20-Aug-2024 15:12 by rmk")
|
||||
(* ; "Edited 22-Jul-2024 11:31 by rmk")
|
||||
(* jds " 6-Sep-84 14:19")
|
||||
(* ; "Tell the size of an n-way menu")
|
||||
(OR (IMAGEOBJPROP OBJ 'BOUNDBOX)
|
||||
(OR (AND NIL (IMAGEOBJPROP OBJ 'BOUNDBOX))
|
||||
(LET ((OLDBOX (IMAGEOBJPROP OBJ 'BOUNDBOX))
|
||||
(SUBOBJECTS (IMAGEOBJPROP OBJ 'SUBOBJECTS))
|
||||
(MAXITEMS/LINE (IMAGEOBJPROP OBJ 'MAXITEMS/LINE))
|
||||
@@ -935,7 +936,9 @@
|
||||
(BUTTONHEIGHT (IMAGEOBJPROP OBJ 'BUTTONHEIGHT))
|
||||
(SPACING (IMAGEOBJPROP OBJ 'ITEMSPACE))
|
||||
(SLACK (IDIFFERENCE RIGHTMARGIN CURX))
|
||||
BOX XSIZE YSIZE LINES)
|
||||
(XSIZE 0)
|
||||
(YSIZE 0)
|
||||
BOX YSIZE LINES)
|
||||
[if (AND (IGEQ SLACK MAXWIDTH)
|
||||
(EQ MAXITEMS/LINE (LENGTH SUBOBJECTS)))
|
||||
then (* ;
|
||||
@@ -950,8 +953,11 @@
|
||||
(IMAGEOBJPROP SO 'Y 0))
|
||||
elseif (ILEQ SLACK (IMAGEOBJPROP OBJ 'MINWIDTH))
|
||||
then (* ; "Stack them vertically.")
|
||||
(for SO (Y _ (ITIMES BUTTONHEIGHT (LENGTH SUBOBJECTS))) in SUBOBJECTS
|
||||
(SETQ YSIZE (ITIMES BUTTONHEIGHT (LENGTH SUBOBJECTS)))
|
||||
(SETQ XSIZE SPACING)
|
||||
(for SO (Y _ YSIZE) in SUBOBJECTS
|
||||
do (add Y (IMINUS BUTTONHEIGHT))
|
||||
[SETQ XSIZE (IMAX XSIZE (fetch XSIZE of (IMAGEOBJPROP SO 'BOUNDBOX]
|
||||
(IMAGEOBJPROP SO 'Y Y)
|
||||
(IMAGEOBJPROP SO 'X 0))
|
||||
else (* ; "Divide them into lines")
|
||||
@@ -1749,7 +1755,8 @@
|
||||
ENDPC])
|
||||
|
||||
(MB.FIELD.SETSTATEFN
|
||||
[LAMBDA (PREFIXPC NEWVALUE TSTREAM) (* ; "Edited 6-Apr-2025 12:23 by rmk")
|
||||
[LAMBDA (PREFIXPC NEWVALUE TSTREAM) (* ; "Edited 17-Mar-2026 00:38 by rmk")
|
||||
(* ; "Edited 6-Apr-2025 12:23 by rmk")
|
||||
(* ; "Edited 9-Dec-2024 22:14 by rmk")
|
||||
(* ; "Edited 4-Dec-2024 20:31 by rmk")
|
||||
(* ; "Edited 20-Oct-2024 17:20 by rmk")
|
||||
@@ -1805,8 +1812,9 @@
|
||||
(\TEDIT.INSERT NEWVALUE FSEL TSTREAM T T)
|
||||
(NCHARS NEWVALUE)))
|
||||
(\TEDIT.UPDATE.SEL FSEL FIELDSTART FIELDLENGTH 'LEFT)
|
||||
(\TEDIT.CHANGE.CHARLOOKS TSTREAM (IMAGEOBJPROP PREFIXOBJ 'FIELDLOOKS)
|
||||
FSEL)
|
||||
(CL:UNLESS (EQ 0 (GETSEL FSEL DCH))
|
||||
(\TEDIT.CHANGE.CHARLOOKS TSTREAM (IMAGEOBJPROP PREFIXOBJ 'FIELDLOOKS)
|
||||
FSEL))
|
||||
(IMAGEOBJPROP PREFIXOBJ 'FIELDLENGTH FIELDLENGTH)
|
||||
(IMAGEOBJPROP PREFIXOBJ 'STATE NEWVALUE)
|
||||
|
||||
@@ -1937,25 +1945,25 @@
|
||||
(MB.FIELD.INIT)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3188 19324 (MB.ADD 3198 . 9910) (MB.DELETE 9912 . 10286) (MB.GET 10288 . 17058) (
|
||||
MB.GET.MBARG 17060 . 18729) (TEDIT.BACKTOMAIN 18731 . 19322)) (19368 39304 (MB.BUTTONEVENTINFN 19378
|
||||
. 20946) (MB.DISPLAYFN 20948 . 23007) (MB.SETIMAGE 23009 . 24177) (MB.SIZEFN 24179 . 25727) (
|
||||
MB.WHENOPERATEDONFN 25729 . 27678) (MB.COPYFN 27680 . 28138) (MB.GETFN 28140 . 29101) (MB.PUTFN 29103
|
||||
. 30203) (MB.SHOWSELFN 30205 . 31714) (MB.CREATE 31716 . 35739) (MB.CHANGENAME 35741 . 36223) (
|
||||
MB.INIT 36225 . 37686) (MB.TRACK.UNTIL 37688 . 38383) (MB.DON'T 38385 . 38681) (MB.SPEC.REMAINDER
|
||||
38683 . 39302)) (39466 49471 (MB.3STATE.CREATE 39476 . 40340) (MB.3STATE.DISPLAYFN 40342 . 41328) (
|
||||
MB.3STATE.SHOWSELFN 41330 . 43641) (MB.3STATE.INIT 43643 . 45054) (MB.3STATE.SETSTATEFN 45056 . 45714)
|
||||
(MB.3STATE.BUTTONEVENTINFN 45716 . 49469)) (49626 78530 (MB.NWAY.CREATE 49636 . 55819) (
|
||||
MB.NWAY.DISPLAYFN 55821 . 56684) (MB.NWAY.SIZEFN 56686 . 60622) (MB.NWAY.SELECT 60624 . 64194) (
|
||||
MB.NWAY.BUTTONEVENTINFN 64196 . 67408) (MB.NWAY.NEWMENUBUTTON 67410 . 68122) (MB.NWAY.COPYFN 68124 .
|
||||
69091) (MB.NWAY.INIT 69093 . 70584) (MB.NWAY.ARRANGEBUTTONS 70586 . 72557) (MB.NWAY.ADDITEM 72559 .
|
||||
76708) (MB.NWAY.FINDSUBOBJ 76710 . 77224) (MB.NWAY.SETSTATEFN 77226 . 78528)) (78609 90608 (
|
||||
MB.TOGGLE.CREATE 78619 . 79614) (MB.TOGGLE.DISPLAYFN 79616 . 81099) (MB.TOGGLE.INIT 81101 . 82900) (
|
||||
MB.SET.TOGGLE 82902 . 84103) (MB.TOGGLE.SETSTATEFN 84105 . 84945) (MB.TOGGLE.BUTTONEVENTINFN 84947 .
|
||||
89263) (MB.TOGGLE.WHENOPERATEDONFN 89265 . 90606)) (90689 123222 (MB.FIELD.CREATE 90699 . 96150) (
|
||||
MB.FIELD.DISPLAYFN 96152 . 96943) (MB.FIELD.IMAGEBOXFN 96945 . 98427) (MB.FIELD.PREFIXCREATE 98429 .
|
||||
102365) (MB.FIELD.SUFFIXCREATE 102367 . 104027) (MB.FIELD.INIT 104029 . 105796) (
|
||||
MB.FIELD.WHENOPERATEDONFN 105798 . 107069) (MB.FIELD.GETSTATEFN 107071 . 111005) (MB.FIELD.SETSTATEFN
|
||||
111007 . 115811) (MB.FIELD.BUTTONEVENTINFN 115813 . 118118) (MB.FIELD.SIZEFN 118120 . 118360) (
|
||||
MB.FIELD.INSURETYPE 118362 . 123220)))))
|
||||
(FILEMAP (NIL (3182 19318 (MB.ADD 3192 . 9904) (MB.DELETE 9906 . 10280) (MB.GET 10282 . 17052) (
|
||||
MB.GET.MBARG 17054 . 18723) (TEDIT.BACKTOMAIN 18725 . 19316)) (19362 39298 (MB.BUTTONEVENTINFN 19372
|
||||
. 20940) (MB.DISPLAYFN 20942 . 23001) (MB.SETIMAGE 23003 . 24171) (MB.SIZEFN 24173 . 25721) (
|
||||
MB.WHENOPERATEDONFN 25723 . 27672) (MB.COPYFN 27674 . 28132) (MB.GETFN 28134 . 29095) (MB.PUTFN 29097
|
||||
. 30197) (MB.SHOWSELFN 30199 . 31708) (MB.CREATE 31710 . 35733) (MB.CHANGENAME 35735 . 36217) (
|
||||
MB.INIT 36219 . 37680) (MB.TRACK.UNTIL 37682 . 38377) (MB.DON'T 38379 . 38675) (MB.SPEC.REMAINDER
|
||||
38677 . 39296)) (39460 49465 (MB.3STATE.CREATE 39470 . 40334) (MB.3STATE.DISPLAYFN 40336 . 41322) (
|
||||
MB.3STATE.SHOWSELFN 41324 . 43635) (MB.3STATE.INIT 43637 . 45048) (MB.3STATE.SETSTATEFN 45050 . 45708)
|
||||
(MB.3STATE.BUTTONEVENTINFN 45710 . 49463)) (49620 78873 (MB.NWAY.CREATE 49630 . 55813) (
|
||||
MB.NWAY.DISPLAYFN 55815 . 56678) (MB.NWAY.SIZEFN 56680 . 60965) (MB.NWAY.SELECT 60967 . 64537) (
|
||||
MB.NWAY.BUTTONEVENTINFN 64539 . 67751) (MB.NWAY.NEWMENUBUTTON 67753 . 68465) (MB.NWAY.COPYFN 68467 .
|
||||
69434) (MB.NWAY.INIT 69436 . 70927) (MB.NWAY.ARRANGEBUTTONS 70929 . 72900) (MB.NWAY.ADDITEM 72902 .
|
||||
77051) (MB.NWAY.FINDSUBOBJ 77053 . 77567) (MB.NWAY.SETSTATEFN 77569 . 78871)) (78952 90951 (
|
||||
MB.TOGGLE.CREATE 78962 . 79957) (MB.TOGGLE.DISPLAYFN 79959 . 81442) (MB.TOGGLE.INIT 81444 . 83243) (
|
||||
MB.SET.TOGGLE 83245 . 84446) (MB.TOGGLE.SETSTATEFN 84448 . 85288) (MB.TOGGLE.BUTTONEVENTINFN 85290 .
|
||||
89606) (MB.TOGGLE.WHENOPERATEDONFN 89608 . 90949)) (91032 123730 (MB.FIELD.CREATE 91042 . 96493) (
|
||||
MB.FIELD.DISPLAYFN 96495 . 97286) (MB.FIELD.IMAGEBOXFN 97288 . 98770) (MB.FIELD.PREFIXCREATE 98772 .
|
||||
102708) (MB.FIELD.SUFFIXCREATE 102710 . 104370) (MB.FIELD.INIT 104372 . 106139) (
|
||||
MB.FIELD.WHENOPERATEDONFN 106141 . 107412) (MB.FIELD.GETSTATEFN 107414 . 111348) (MB.FIELD.SETSTATEFN
|
||||
111350 . 116319) (MB.FIELD.BUTTONEVENTINFN 116321 . 118626) (MB.FIELD.SIZEFN 118628 . 118868) (
|
||||
MB.FIELD.INSURETYPE 118870 . 123728)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,13 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "15-Feb-2026 23:45:51" {WMEDLEY}<library>tedit>TEDIT-FILE.;666 175062
|
||||
(FILECREATED "29-Apr-2026 23:49:14" {MEDLEY}<library>tedit>TEDIT-FILE.;684 174888
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.PUT.MCCS.SPLITPIECES \TEDIT.PUT.PCTB.NEXTNEW)
|
||||
(VARS TEDIT-FILECOMS)
|
||||
:CHANGES-TO (FNS \TEDIT.INTERPRET.MCCS.SHIFTS)
|
||||
|
||||
:PREVIOUS-DATE "14-Feb-2026 10:32:44" {WMEDLEY}<library>tedit>TEDIT-FILE.;659)
|
||||
:PREVIOUS-DATE "24-Apr-2026 21:09:13" {MEDLEY}<library>tedit>TEDIT-FILE.;683)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-FILECOMS)
|
||||
@@ -39,8 +38,8 @@
|
||||
(P (MOVD? '\TEDIT.GET.TRAILER '\TEDIT.FORMATTEDP1]
|
||||
(FNS \TEDIT.GET.PIECES3 \TEDIT.GET.PROPS3 \TEDIT.MAKE.STRINGPIECE)
|
||||
(FNS \TEDIT.GET.UNFORMATTED.FILE.MCCS \TEDIT.INTERPRET.MCCS.SHIFTS
|
||||
\TEDIT.CONVERT.XCCSTOMCCS)
|
||||
(* ; "XCCS")
|
||||
\TEDIT.CONVERT.XCCSTOMCCS \TEDIT.RUN.TO.STRINGPIECE)
|
||||
(* ; "MCCS")
|
||||
(FNS \TEDIT.GET.UNFORMATTED.FILE.UTF8)
|
||||
(* ; "UTF-8")
|
||||
(FNS \TEDIT.GET.CHARLOOKS.LIST \TEDIT.GET.SINGLE.CHARLOOKS \TEDIT.GET.CHARLOOKS
|
||||
@@ -643,7 +642,8 @@
|
||||
TSTREAM)])
|
||||
|
||||
(\TEDIT.GET.UNFORMATTED.FILE
|
||||
[LAMBDA (STREAM TSTREAM START END PROPS) (* ; "Edited 28-Jul-2025 23:46 by rmk")
|
||||
[LAMBDA (STREAM TSTREAM START END PROPS) (* ; "Edited 10-Apr-2026 09:33 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:46 by rmk")
|
||||
(* ; "Edited 24-Apr-2025 17:21 by rmk")
|
||||
(* ; "Edited 8-Feb-2025 20:21 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 00:21 by rmk")
|
||||
@@ -669,7 +669,7 @@
|
||||
(CL:WHEN (AND (EQ FORMAT :STRING)
|
||||
(\IOMODEP STREAM 'OUTPUT T))
|
||||
(SETQ STREAM (COPYFILE STREAM '{NODIRCORE})))
|
||||
[SETQ PIECES
|
||||
(SETQ PIECES
|
||||
(SELECTQ FORMAT
|
||||
((:MCCS :XCCS) (* ; "XCCS is done later")
|
||||
(\TEDIT.GET.UNFORMATTED.FILE.MCCS STREAM START END DEFAULTCHARLOOKS
|
||||
@@ -703,8 +703,7 @@
|
||||
PPARALAST _ NIL
|
||||
PPARALOOKS _ DEFAULTPARALOOKS
|
||||
PTYPE _ THINFILE.PTYPE
|
||||
PBYTESPERCHAR _ 1
|
||||
PBINABLE _ (fetch (STREAM BINABLE) of STREAM]
|
||||
PBYTESPERCHAR _ 1)))
|
||||
(\TEDIT.INSERTPIECES PIECES NIL TEXTOBJ)))])
|
||||
|
||||
(\TEDIT.GET.FORMATTED.FILE
|
||||
@@ -940,7 +939,9 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.GET.PIECES3
|
||||
[LAMBDA (TEXT TSTREAM PCCOUNT CURFILEBYTE# END) (* ; "Edited 29-Jul-2025 09:30 by rmk")
|
||||
[LAMBDA (TEXT TSTREAM PCCOUNT CURTEXTBYTE# END) (* ; "Edited 15-Apr-2026 12:06 by rmk")
|
||||
(* ; "Edited 9-Apr-2026 13:45 by rmk")
|
||||
(* ; "Edited 29-Jul-2025 09:30 by rmk")
|
||||
(* ; "Edited 24-Apr-2025 17:20 by rmk")
|
||||
(* ; "Edited 8-Feb-2025 20:21 by rmk")
|
||||
(* ; "Edited 30-Aug-2024 15:44 by rmk")
|
||||
@@ -962,7 +963,7 @@
|
||||
(SETFILEPTR TEXT (\DWIN TEXT)) (* ; "Pieceinfo byte #")
|
||||
(for PCNO PC BYTELEN PREVPC FIRSTPC PARALOOKSMAP CHARLOOKSMAP DEFAULTCHARLOOKS OLDPARALOOKS
|
||||
(TEXTOBJ _ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)))
|
||||
(ORIGBYTE# _ CURFILEBYTE#) from 1 to PCCOUNT first (SETQ DEFAULTCHARLOOKS (FGETTOBJ TEXTOBJ
|
||||
(ORIGBYTE# _ CURTEXTBYTE#) from 1 to PCCOUNT first (SETQ DEFAULTCHARLOOKS (FGETTOBJ TEXTOBJ
|
||||
|
||||
DEFAULTCHARLOOKS
|
||||
))
|
||||
@@ -981,17 +982,15 @@
|
||||
(SETQ PC
|
||||
(create PIECE
|
||||
PCONTENTS _ TEXT
|
||||
PFPOS _ CURFILEBYTE#
|
||||
PFPOS _ CURTEXTBYTE#
|
||||
PLEN _ BYTELEN
|
||||
PBYTELEN _ BYTELEN
|
||||
PPARALOOKS _ OLDPARALOOKS
|
||||
PTYPE _ THINFILE.PTYPE
|
||||
PCHARSET _ 0
|
||||
PBYTESPERCHAR _ 1
|
||||
PREVPIECE _ PREVPC))
|
||||
(\TEDIT.GET.CHARLOOKS.INDEX PC TEXT) (* ;
|
||||
"Get its looks and character-pointers")
|
||||
(add CURFILEBYTE# BYTELEN))
|
||||
(add CURTEXTBYTE# BYTELEN))
|
||||
(\PieceDescriptorPARA (* ;
|
||||
"Reading a new set of paragraph looks.")
|
||||
(CL:WHEN PREVPC (FSETPC PREVPC PPARALAST T))
|
||||
@@ -1010,14 +1009,13 @@
|
||||
(SETQ PC
|
||||
(create PIECE
|
||||
PCONTENTS _ TEXT
|
||||
PFPOS _ CURFILEBYTE#
|
||||
PBYTELEN _ BYTELEN
|
||||
PFPOS _ CURTEXTBYTE#
|
||||
PLEN _ 1
|
||||
PPARALOOKS _ OLDPARALOOKS
|
||||
PTYPE _ OBJECT.PTYPE
|
||||
PREVPIECE _ PREVPC))
|
||||
(\TEDIT.GET.OBJECT TSTREAM PC TEXT CURFILEBYTE#)
|
||||
(add CURFILEBYTE# BYTELEN)
|
||||
(\TEDIT.GET.OBJECT TSTREAM PC TEXT CURTEXTBYTE#)
|
||||
(add CURTEXTBYTE# BYTELEN)
|
||||
(FSETPC PC PCHARLOOKS (if (ZEROP (BIN TEXT))
|
||||
then
|
||||
|
||||
@@ -1142,7 +1140,9 @@
|
||||
PROPS)))])
|
||||
|
||||
(\TEDIT.MAKE.STRINGPIECE
|
||||
[LAMBDA (PC STRING) (* ; "Edited 23-Jan-2024 14:32 by rmk")
|
||||
[LAMBDA (PC STRING) (* ; "Edited 12-Apr-2026 21:30 by rmk")
|
||||
(* ; "Edited 10-Apr-2026 09:33 by rmk")
|
||||
(* ; "Edited 23-Jan-2024 14:32 by rmk")
|
||||
(* ; "Edited 16-Jan-2024 11:15 by rmk")
|
||||
(* ; "Edited 12-Jan-2024 16:34 by rmk")
|
||||
|
||||
@@ -1155,15 +1155,10 @@
|
||||
(SETQ SPIECE (if (fetch (STRINGP FATSTRINGP) of STRING)
|
||||
then (create PIECE using PC PTYPE _ FATSTRING.PTYPE PCONTENTS _ STRING PLEN
|
||||
_ (NCHARS STRING)
|
||||
PBYTESPERCHAR _ 2 PBINABLE _ NIL PBYTELEN _
|
||||
(UNFOLD (NCHARS STRING)
|
||||
2)
|
||||
PREVPIECE _ PC PUTF8BYTESPERCHAR _ 2 PFPOS _ 0)
|
||||
PBYTESPERCHAR _ 2 PREVPIECE _ PC)
|
||||
else (create PIECE using PC PTYPE _ THINSTRING.PTYPE PCONTENTS _ STRING PLEN
|
||||
_ (NCHARS STRING)
|
||||
PBYTESPERCHAR _ 1 PBINABLE _ T PBYTELEN _
|
||||
(NCHARS STRING)
|
||||
PREVPIECE _ PC PUTF8BYTESPERCHAR _ 1 PFPOS _ 0)))
|
||||
PBYTESPERCHAR _ 1 PREVPIECE _ PC)))
|
||||
(CL:WHEN (NEXTPIECE PC)
|
||||
(FSETPC (NEXTPIECE PC)
|
||||
PREVPIECE SPIECE))
|
||||
@@ -1173,111 +1168,114 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.GET.UNFORMATTED.FILE.MCCS
|
||||
[LAMBDA (STRM START END DEFAULTCHARLOOKS DEFAULTPARALOOKS) (* ; "Edited 28-Jul-2025 23:45 by rmk")
|
||||
(* ; "Edited 21-Jan-2024 09:40 by rmk")
|
||||
(* ; "Edited 12-Jan-2024 13:13 by rmk")
|
||||
(* ; "Edited 10-Jan-2024 11:19 by rmk")
|
||||
(* ; "Edited 8-Jan-2024 13:15 by rmk")
|
||||
[LAMBDA (STRM START END DEFAULTCHARLOOKS DEFAULTPARALOOKS) (* ; "Edited 12-Apr-2026 21:34 by rmk")
|
||||
(* ; "Edited 10-Apr-2026 09:33 by rmk")
|
||||
|
||||
(* ;; "We build a chain of pieces for the NS stringlets, some of which are divided at CR/LF. ")
|
||||
(* ;;
|
||||
"We build a chain of pieces for the MCCS stringlets, some of which are subdivided at CR/LF. ")
|
||||
|
||||
(* ;; "We assume that caller has positioned the stream at the intended start byte and has set the ENDOFSTREAMOP to return NIL on EOF. ")
|
||||
|
||||
(* ;; "CRBEFORE and the LF test are used to ensure that potential EOL's are normalized to EOL and appear at the end of their pieces, whether or not they we decide to make them PPARALAST on input. LF's after CR are discarded, LF's by themselves are converted to singleton EOLstring pieces.")
|
||||
(* ;; "This does not set PPARALAST on EOL pieces. Maybe double EOL's?")
|
||||
|
||||
(bind (NEXTFILEPOS _ START)
|
||||
(CHARSET _ 0)
|
||||
(FIRSTPC _ (create PIECE
|
||||
PCHARLOOKS _ DEFAULTCHARLOOKS
|
||||
PPARALOOKS _ DEFAULTPARALOOKS))
|
||||
(CODESIZE _ 1)
|
||||
(SBINABLE _ (fetch (STREAM BINABLE) of STRM))
|
||||
EOLC PC BYTE CHAR PREVPC PTYPE RUNLEN FILEPOS CRBEFORE SHIFTNEXT first (SETQ PREVPC FIRSTPC
|
||||
)
|
||||
(* ; "FIRSTPC is a throwaway")
|
||||
do (SETQ FILEPOS NEXTFILEPOS) (* ; "Start of next file piece")
|
||||
(* ;; "If a shift at the EOF is ill-formed, it is ignored--no error.")
|
||||
|
||||
(* ;; "In thin or fat mode, we have to look at the first byte of the next character, to see if it is a shift. If not a shift, we have to decode the byte configuration to make sure we can detect CR or LF.")
|
||||
(* ;;
|
||||
" LF's after CR are discarded, LF's by themselves are converted to singleton EOLstring pieces.")
|
||||
|
||||
(do (CL:WHEN (IGEQ NEXTFILEPOS END)
|
||||
(RETURN))
|
||||
(SETQ BYTE (\PEEKBIN STRM T))
|
||||
(CL:WHEN (SETQ SHIFTNEXT (EQ NSCHARSETSHIFT BYTE))
|
||||
(SETQ CHAR NIL) (* ;
|
||||
"Suppress CR/LF checking on real shift")
|
||||
(RETURN))
|
||||
(BIN STRM) (* ; "Not a shift, read the peeked byte")
|
||||
(SETQ CHAR (if (EQ CODESIZE 2)
|
||||
then (* ;
|
||||
"Return T if this takes us over the end")
|
||||
(LOGOR (LLSH BYTE 8)
|
||||
(CL:IF (AND (ILEQ NEXTFILEPOS END)
|
||||
(SETQ BYTE (BIN STRM)))
|
||||
BYTE
|
||||
(RETURN)))
|
||||
else (LOGOR (LLSH CHARSET 8)
|
||||
BYTE)))
|
||||
(add NEXTFILEPOS CODESIZE)
|
||||
(CL:WHEN (MEMB CHAR (CHARCODE (CR LF)))
|
||||
(RETURN)))
|
||||
(bind PREVPC PC CHAR TWOBYTE CHARLIST PLEN STARTPOS STRING (FIRSTPIECE _ (create PIECE))
|
||||
(CHARSET _ 0) first (SETQ PREVPC FIRSTPIECE)
|
||||
do (SETQ PLEN 0)
|
||||
(SETQ STARTPOS (GETFILEPTR STRM))
|
||||
[while (SETQ CHAR (BIN STRM)) until (EQ CHAR NSCHARSETSHIFT)
|
||||
do (CL:WHEN TWOBYTE
|
||||
(SETQ CHARSET (LLSH CHAR 8))
|
||||
(CL:UNLESS (SETQ CHAR (BIN STRM)) (* ; "Ill-formed at EOF, skip last byte")
|
||||
(RETURN)))
|
||||
(SETQ CHAR (LOGOR CHARSET CHAR))
|
||||
(CL:UNLESS (OR TWOBYTE (EQ CHARSET 0)) (* ; "Collect characters for fatstring")
|
||||
(push CHARLIST CHAR))
|
||||
(add PLEN 1) repeatuntil (MEMB CHAR (CHARCODE (CR LF]
|
||||
|
||||
(* ;; "NEXTFILEPOS and file are positioned at beginning of the next piece, possibly after CR and LF have been read.")
|
||||
(* ;; "Reached the end of the current (sub) run")
|
||||
|
||||
(SETQ RUNLEN (IDIFFERENCE NEXTFILEPOS FILEPOS))
|
||||
(CL:WHEN (EQ CHAR (CHARCODE LF)) (* ; "We never produce raw LF's")
|
||||
(add RUNLEN (IMINUS CODESIZE)))
|
||||
(CL:WHEN (IGREATERP RUNLEN 0)
|
||||
(SETQ PTYPE (if (EQ CODESIZE 2)
|
||||
then FATFILE2.PTYPE
|
||||
elseif (EQ CHARSET 0)
|
||||
then THINFILE.PTYPE
|
||||
else FATFILE1.PTYPE))
|
||||
(CL:UNLESS (EQ PLEN 0) (* ; "Make subrun's piece")
|
||||
(SELCHARQ CHAR
|
||||
(CR (* ; "Skip following LF")
|
||||
(if TWOBYTE
|
||||
then (CL:WHEN (EQ 0 (\PEEKCCODE STRM T))
|
||||
(BIN STRM)
|
||||
(CL:IF (EQ (CHARCODE LF)
|
||||
(\PEEKCCODE STRM T))
|
||||
(BIN STRM)
|
||||
(\BACKFILEPTR STRM)))
|
||||
elseif (EQ (CHARCODE LF)
|
||||
(\PEEKCCODE STRM T))
|
||||
then (BIN STRM)))
|
||||
(LF (* ;
|
||||
"Prefix bcomes a separate piece, LF a singleton coerced to EOL")
|
||||
(if (EQ PLEN 1)
|
||||
then (SETQ CHARLIST (CHARCODE (EOL)))
|
||||
(* ; "Let it be fat below")
|
||||
else (add PLEN -1) (* ;
|
||||
"Back up to split the LF off into a separate EOL piece")
|
||||
(\BACKFILEPTR STRM)
|
||||
(CL:WHEN TWOBYTE (\BACKFILEPTR STRM))))
|
||||
NIL)
|
||||
(SETQ PC
|
||||
(create PIECE
|
||||
PTYPE _ PTYPE
|
||||
PCONTENTS _ STRM
|
||||
PFPOS _ FILEPOS
|
||||
PLEN _ (IQUOTIENT RUNLEN CODESIZE)
|
||||
PCHARLOOKS _ DEFAULTCHARLOOKS
|
||||
PPARALOOKS _ DEFAULTPARALOOKS
|
||||
PCHARSET _ CHARSET
|
||||
PBYTESPERCHAR _ CODESIZE
|
||||
PBYTELEN _ RUNLEN
|
||||
PREVPIECE _ PREVPC
|
||||
PBINABLE _ (AND (EQ PTYPE THINFILE.PTYPE)
|
||||
SBINABLE)))
|
||||
(SETQ PREVPC (FSETPC PREVPC NEXTPIECE PC)))
|
||||
(CL:WHEN (EQ CHAR (CHARCODE LF))
|
||||
[if CRBEFORE
|
||||
then (SETQ EOLC CRLF.EOLC)
|
||||
else
|
||||
(* ;; "Linefeed not preceded by CR, replace by string piece")
|
||||
(if CHARLIST
|
||||
then (SETQ STRING (ALLOCSTRING (LENGTH CHARLIST)
|
||||
NIL NIL T))
|
||||
(for C in CHARLIST as I from PLEN by -1 do (RPLCHARCODE STRING I C))
|
||||
(SETQ CHARLIST NIL)
|
||||
(create PIECE
|
||||
PTYPE _ FATSTRING.PTYPE
|
||||
PCONTENTS _ STRING
|
||||
PLEN _ PLEN
|
||||
PBYTESPERCHAR _ 2)
|
||||
elseif TWOBYTE
|
||||
then (create PIECE
|
||||
PTYPE _ FATFILE2.PTYPE
|
||||
PCONTENTS _ STRM
|
||||
PFPOS _ STARTPOS
|
||||
PLEN _ PLEN
|
||||
PBYTESPERCHAR _ 2)
|
||||
else (create PIECE
|
||||
PTYPE _ THINFILE.PTYPE
|
||||
PCONTENTS _ STRM
|
||||
PFPOS _ STARTPOS
|
||||
PLEN _ PLEN
|
||||
PBYTESPERCHAR _ 1)))
|
||||
(FSETPC PC PCHARLOOKS DEFAULTCHARLOOKS)
|
||||
(FSETPC PC PPARALOOKS DEFAULTPARALOOKS)
|
||||
(FSETPC PC PREVPIECE PREVPC)
|
||||
(FSETPC PREVPC NEXTPIECE PC)
|
||||
(SETQ PREVPC PC))
|
||||
|
||||
(SETQ EOLC LF.EOLC)
|
||||
(SETQ PREVPC (\TEDIT.MAKE.STRINGPIECE PREVPC (CHARCODE EOL])
|
||||
(CL:WHEN SHIFTNEXT (* ;
|
||||
"Interpret and bump NEXTFILEPOS for the shifting bytes. ")
|
||||
(BIN STRM) (* ; "Read the original peeked byte")
|
||||
(SETQ CHARSET (BIN STRM))
|
||||
(if (EQ CHARSET \NORUNCODE)
|
||||
then (CL:UNLESS (MEMB (BIN STRM)
|
||||
'(0 NIL))
|
||||
(ERROR "EXPECTED PLANE 0 XCCS CHARACTER IS ILL-FORMED"))
|
||||
(SETQ CHARSET 0)
|
||||
(SETQ CODESIZE 2)
|
||||
else (SETQ CODESIZE 1))
|
||||
(add NEXTFILEPOS (ADD1 CODESIZE))
|
||||
(SETQ SHIFTNEXT NIL))
|
||||
(CL:WHEN (IGEQ NEXTFILEPOS END)
|
||||
(CL:WHEN EOLC (* ;
|
||||
"Record the last one we encountered")
|
||||
(replace (STREAM EOLCONVENTION) of STRM with EOLC))
|
||||
(RETURN (NEXTPIECE FIRSTPC)))
|
||||
(CL:WHEN (SETQ CRBEFORE (EQ CHAR (CHARCODE CR)))
|
||||
(SETQ EOLC CR.EOLC])
|
||||
(* ;; "Switch to next run, end, or continue with next subrun")
|
||||
|
||||
(SELECTC CHAR
|
||||
(NSCHARSETSHIFT (* ; "Switch to next run")
|
||||
(SETQ CHARSET (BIN STRM))
|
||||
(CL:UNLESS CHARSET (* ; "Ill-formed")
|
||||
(RETURN (NEXTPIECE FIRSTPIECE)))
|
||||
(SETQ TWOBYTE (CL:WHEN (EQ CHARSET \NORUNCODE)
|
||||
(SETQ CHARSET (BIN STRM))
|
||||
(CL:UNLESS CHARSET (* ; "Ill-formed")
|
||||
(RETURN (NEXTPIECE FIRSTPIECE)))
|
||||
(CL:UNLESS (EQ CHARSET 0)
|
||||
(\MCCS.24BITENCODING.ERROR STRM))
|
||||
T))
|
||||
(SETQ CHARSET (LLSH CHARSET 8)))
|
||||
(NIL (* ; "End of file")
|
||||
(RETURN (NEXTPIECE FIRSTPIECE)))
|
||||
NIL])
|
||||
|
||||
(\TEDIT.INTERPRET.MCCS.SHIFTS
|
||||
[LAMBDA (PIECES PFILE) (* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
[LAMBDA (PIECES PFILE) (* ; "Edited 29-Apr-2026 23:48 by rmk")
|
||||
(* ; "Edited 24-Apr-2026 21:08 by rmk")
|
||||
(* ; "Edited 10-Apr-2026 09:33 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
(* ; "Edited 14-May-2024 18:39 by rmk")
|
||||
(* ; "Edited 21-Jan-2024 00:02 by rmk")
|
||||
(* ; "Edited 19-Jan-2024 10:34 by rmk")
|
||||
@@ -1285,58 +1283,44 @@
|
||||
(* ; "Edited 6-Jan-2024 15:02 by rmk")
|
||||
(* ; "Edited 19-Dec-2023 13:13 by rmk")
|
||||
|
||||
(* ;; "This is called after a GET or PUT, when the file pieces are known all to reside in PFILE.PIECES is a chain of pieces read from a formatted XCCS file but not yet inserted into the BTREE. Each file piece has PFILE, PFPOS, and PBYTELEN. This function interprets any XCCS shift characters that prefix the actual characters, coercing the piece properties and bumping the PFPOS/PLEN to hide the shifts. ")
|
||||
(* ;; "This is called after by \TEDIT.GET.PIECES, after a GET, when the pieces are known all to reside in PFILE. PIECES is a chain of pieces read from a formatted MCCS (or XCCS) file but not yet inserted into the BTREE. Each file piece has PFILE and PFPOS. This function makes sure that no shift bytes are included in the pieces, by coercing the piece properties and bumping the PFPOS/PLEN to hide the shifts. This also coerces non-charset 0 one-byte pieces to fatstrings.")
|
||||
|
||||
(* ;; "We run this before the pieces are inistalled in a stream, since this may change the character lengths.")
|
||||
|
||||
(* ;; "This also has some EOL normalization.")
|
||||
|
||||
(for PC BYTE EOLC inpieces PIECES when (EQ PFILE (PCONTENTS PC))
|
||||
do (\SETFILEPTR PFILE (PFPOS PC))
|
||||
(SETQ BYTE (BIN PFILE))
|
||||
[if (EQ NSCHARSETSHIFT BYTE)
|
||||
(if (EQ NSCHARSETSHIFT BYTE)
|
||||
then (SELECTC (SETQ BYTE (BIN PFILE))
|
||||
(0 (* ; "Runlength of charset 0")
|
||||
(add (PBYTELEN PC)
|
||||
-2) (* ;
|
||||
"The shift characters really disappear")
|
||||
(FSETPC PC PLEN (PBYTELEN PC))
|
||||
(FSETPC PC PTYPE THINFILE.PTYPE)
|
||||
(FSETPC PC PBINABLE T)
|
||||
(FSETPC PC PCHARSET 0)
|
||||
(add (PFPOS PC)
|
||||
2))
|
||||
(\NORUNCODE (* ; "Going for 3 byte characters")
|
||||
(0 (add (PFPOS PC)
|
||||
2)
|
||||
(add (PLEN PC)
|
||||
-2))
|
||||
(\NORUNCODE (* ; "Going for 2 byte characters")
|
||||
(CL:UNLESS (EQ 0 (BIN PFILE))
|
||||
(\TEDIT.THELP "XCCS CHARACTER NOT IN PLANE 0"))
|
||||
(\TEDIT.THELP "MCCS CHARACTER NOT IN PLANE 0, FILEPOS = "
|
||||
(IDIFFERENCE (GETFILEPTR PFILE)
|
||||
2)))
|
||||
(FSETPC PC PTYPE FATFILE2.PTYPE)
|
||||
(FSETPC PC PBYTESPERCHAR 2)
|
||||
(add (PFPOS PC)
|
||||
3)
|
||||
(add (PBYTELEN PC)
|
||||
-3)
|
||||
(FSETPC PC PLEN (FOLDLO (PBYTELEN PC)
|
||||
2)))
|
||||
(change (PLEN PC)
|
||||
(FOLDLO (IDIFFERENCE DATUM 3)
|
||||
2)))
|
||||
(PROGN
|
||||
(* ;; "A run in a non-zero charset. Convert it to FATFILE1. Could also read into a FATSTRING instead, get rid of on-file FATFILE1. A string piece could hold adjacent substrings in different charsets")
|
||||
(* ;; "A run in a non-zero charset. Convert it to FATSTRING so we don't have to maintain code to interpret XCCS stringlet pieces. After all, space efficiency is far worse for our ultimate goal of UTF-8 codes.")
|
||||
|
||||
(add (PBYTELEN PC)
|
||||
-2)
|
||||
(add (PFPOS PC)
|
||||
2)
|
||||
(FSETPC PC PLEN (PBYTELEN PC))
|
||||
(FSETPC PC PBINABLE NIL)
|
||||
(FSETPC PC PTYPE FATFILE1.PTYPE)
|
||||
(FSETPC PC PBYTESPERCHAR 1)
|
||||
(FSETPC PC PCHARSET BYTE)))
|
||||
elseif (EQ 2 (PBYTESPERCHAR PC))
|
||||
then (FSETPC PC PTYPE FATFILE2.PTYPE) (* ; "This is the continuation of an XCCS 2-byte run that was broken up presumably for looks or paragraphs")
|
||||
(FSETPC PC PCHARSET \NORUNCODE)
|
||||
(FSETPC PC PLEN (FOLDLO (PBYTELEN PC)
|
||||
2))
|
||||
else (FSETPC PC PCHARSET 0) (* ; "A charset 0 1-byte run")
|
||||
(FSETPC PC PBINABLE T)
|
||||
(FSETPC PC PBYTESPERCHAR 1)
|
||||
[\SETFILEPTR PFILE (IPLUS (PFPOS PC)
|
||||
(SUB1 (PLEN PC]
|
||||
(\TEDIT.RUN.TO.STRINGPIECE PC BYTE PFILE)))
|
||||
elseif (EQ FATFILE2.PTYPE (PTYPE PC))
|
||||
then (* ; "This is the continuation of an MCCS 2-byte run that was broken up presumably for looks or paragraphs")
|
||||
(change (PLEN PC)
|
||||
(FOLDLO DATUM 2))
|
||||
else (FSETPC PC PBYTESPERCHAR 1) (* ; "A charset 0 1-byte run")
|
||||
[\SETFILEPTR PFILE (SUB1 (IPLUS (PFPOS PC)
|
||||
(PLEN PC] (* ;
|
||||
"Position for the last byte for EOL processing. Maybe only if PPARALAST ?")
|
||||
(if (EQ (CHARCODE LF)
|
||||
(SETQ BYTE (BIN PFILE)))
|
||||
then
|
||||
@@ -1350,8 +1334,6 @@
|
||||
else (add (PLEN PC)
|
||||
-1) (* ;
|
||||
"Shorten PC, add EOL string piece unless preceded by CR")
|
||||
(add (PBYTELEN PC)
|
||||
-1)
|
||||
(if (EQ (CHARCODE CR)
|
||||
(\BACKBIN PFILE))
|
||||
then (SETQ EOLC CRLF.EOLC)
|
||||
@@ -1360,10 +1342,9 @@
|
||||
(FSETPC PC PPARALAST NIL]
|
||||
else (CL:WHEN (EQ BYTE (CHARCODE CR))
|
||||
(SETQ EOLC CR.EOLC))
|
||||
(FSETPC PC PTYPE THINFILE.PTYPE)
|
||||
(FSETPC PC PLEN (PBYTELEN PC] finally (CL:WHEN EOLC
|
||||
(replace (STREAM EOLCONVENTION)
|
||||
of PFILE with EOLC)))
|
||||
(FSETPC PC PTYPE THINFILE.PTYPE)))
|
||||
finally (CL:WHEN EOLC
|
||||
(replace (STREAM EOLCONVENTION) of PFILE with EOLC)))
|
||||
PIECES])
|
||||
|
||||
(\TEDIT.CONVERT.XCCSTOMCCS
|
||||
@@ -1379,16 +1360,30 @@
|
||||
TSTREAM CHNO)))
|
||||
unless (EQ CHAR (SETQ CHAR (MTOXCODE CHAR))) do (\TEDIT.RPLCHARCODE TSTREAM CHNO CHAR NIL
|
||||
T)))])
|
||||
|
||||
(\TEDIT.RUN.TO.STRINGPIECE
|
||||
[LAMBDA (PC CHARSET PFILE) (* ; "Edited 10-Apr-2026 09:20 by rmk")
|
||||
(* ; "Edited 7-Apr-2026 18:16 by rmk")
|
||||
(SETQ CHARSET (LLSH CHARSET 8))
|
||||
(LET ((STRING (ALLOCSTRING (PLEN PC)
|
||||
NIL NIL T)))
|
||||
[for I from 1 to (PLEN PC) do (RPLCHARCODE STRING I (LOGOR CHARSET (BIN PFILE]
|
||||
(FSETPC PC PTYPE FATSTRING.PTYPE)
|
||||
(FSETPC PC PCONTENTS STRING)
|
||||
(FSETPC PC PBYTESPERCHAR 2)
|
||||
PC])
|
||||
)
|
||||
|
||||
|
||||
|
||||
(* ; "XCCS")
|
||||
(* ; "MCCS")
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.GET.UNFORMATTED.FILE.UTF8
|
||||
[LAMBDA (STRM START END DEFAULTCHARLOOKS DEFAULTPARALOOKS) (* ; "Edited 23-Oct-2025 08:48 by rmk")
|
||||
[LAMBDA (STRM START END DEFAULTCHARLOOKS DEFAULTPARALOOKS) (* ; "Edited 12-Apr-2026 21:46 by rmk")
|
||||
(* ; "Edited 10-Apr-2026 09:24 by rmk")
|
||||
(* ; "Edited 23-Oct-2025 08:48 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:45 by rmk")
|
||||
(* ; "Edited 11-Mar-2024 23:55 by rmk")
|
||||
(* ; "Edited 4-Feb-2024 10:12 by rmk")
|
||||
@@ -1409,7 +1404,6 @@
|
||||
PCHARLOOKS _ DEFAULTCHARLOOKS
|
||||
PPARALOOKS _ DEFAULTPARALOOKS))
|
||||
(NEXTCODESIZE _ 1)
|
||||
(SBINABLE _ (fetch (STREAM BINABLE) of STRM))
|
||||
EOLC CHAR PREVPC PTYPE RUNLEN FILEPOS CRBEFORE CODESIZE PREVCRLF
|
||||
first (SELECTQ (READBOM STRM)
|
||||
(:UTF-8 (add NEXTFILEPOS 3))
|
||||
@@ -1457,21 +1451,16 @@
|
||||
(SETQ PTYPE (CL:IF (EQ CODESIZE 1)
|
||||
THINFILE.PTYPE
|
||||
UTF8.PTYPE))
|
||||
(SETQ PREVPC
|
||||
(FSETPC PREVPC NEXTPIECE
|
||||
(create PIECE
|
||||
PTYPE _ PTYPE
|
||||
PCONTENTS _ STRM
|
||||
PFPOS _ FILEPOS
|
||||
PLEN _ (IQUOTIENT RUNLEN CODESIZE)
|
||||
PCHARLOOKS _ DEFAULTCHARLOOKS
|
||||
PPARALOOKS _ DEFAULTPARALOOKS
|
||||
PBYTESPERCHAR _ CODESIZE
|
||||
PBYTELEN _ RUNLEN
|
||||
PREVPIECE _ PREVPC
|
||||
PBINABLE _ (AND (EQ PTYPE THINFILE.PTYPE)
|
||||
SBINABLE)
|
||||
PUTF8BYTESPERCHAR _ CODESIZE))))
|
||||
(SETQ PREVPC (FSETPC PREVPC NEXTPIECE
|
||||
(create PIECE
|
||||
PTYPE _ PTYPE
|
||||
PCONTENTS _ STRM
|
||||
PFPOS _ FILEPOS
|
||||
PLEN _ (IQUOTIENT RUNLEN CODESIZE)
|
||||
PCHARLOOKS _ DEFAULTCHARLOOKS
|
||||
PPARALOOKS _ DEFAULTPARALOOKS
|
||||
PBYTESPERCHAR _ CODESIZE
|
||||
PREVPIECE _ PREVPC))))
|
||||
(CL:WHEN (EQ CHAR (CHARCODE LF))
|
||||
[if CRBEFORE
|
||||
then (SETQ EOLC CRLF.EOLC)
|
||||
@@ -1646,7 +1635,8 @@
|
||||
(\WIN STREAM])
|
||||
|
||||
(\TEDIT.GET.CHARLOOKS.INDEX
|
||||
[LAMBDA (PC FORMATSTREAM) (* ; "Edited 28-Jul-2025 23:46 by rmk")
|
||||
[LAMBDA (PC FORMATSTREAM) (* ; "Edited 24-Apr-2026 21:03 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:46 by rmk")
|
||||
(* ; "Edited 14-Jan-2024 00:11 by rmk")
|
||||
(* ; "Edited 19-Dec-2023 10:13 by rmk")
|
||||
(* ; "Edited 3-Sep-2023 23:31 by rmk")
|
||||
@@ -1654,18 +1644,18 @@
|
||||
(* ; "Edited 26-Aug-2023 23:22 by rmk")
|
||||
(* ; "Edited 30-May-91 21:43 by jds")
|
||||
|
||||
(* ;; "Set the type, length, and and charlooks-index for the current piece, PC")
|
||||
(* ;; "Set the type, length, and charlooks-index for the current piece, PC")
|
||||
|
||||
(LET ((FLAGS (BIN FORMATSTREAM)))
|
||||
(FSETPC PC PCHARLOOKS (\WIN FORMATSTREAM))
|
||||
(CL:UNLESS (ZEROP (LOGAND FLAGS 1))
|
||||
(FSETPC PC PNEW T))
|
||||
(CL:UNLESS (ZEROP (LOGAND FLAGS 2)) (* ;
|
||||
"XCSS FAT. It may be a continuation of a previous fat piece")
|
||||
(FSETPC PC PLEN (IQUOTIENT (FGETPC PC PLEN)
|
||||
2))
|
||||
(FSETPC PC PTYPE FATFILE2.PTYPE)
|
||||
(FSETPC PC PBYTESPERCHAR 2))])
|
||||
(CL:UNLESS (ZEROP (LOGAND FLAGS 2))
|
||||
|
||||
(* ;; "MCSS FAT. It may have a 255 255 0 (NSHIFTBYTES=3) prefix or it may be a continuation of a previous fat piece. PLEN on the file is the runlength including the NSHIFTBYTES, so we can't fold from bytes to chars here: \TEDIT.INTERPRET.MCCS.SHIFTS. Until then, this is goofy")
|
||||
|
||||
(FSETPC PC PBYTESPERCHAR 2)
|
||||
(FSETPC PC PTYPE FATFILE2.PTYPE))])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
@@ -1773,7 +1763,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.GET.OBJECT
|
||||
[LAMBDA (TSTREAM PIECE FILE CURFILEBYTE# BYTELEN) (* ; "Edited 1-Aug-2025 14:50 by rmk")
|
||||
[LAMBDA (TSTREAM PIECE FILE CURTEXTBYTE# BYTELEN) (* ; "Edited 15-Apr-2026 12:05 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 14:50 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:46 by rmk")
|
||||
(* ; "Edited 31-Jul-2024 12:09 by rmk")
|
||||
(* ; "Edited 5-Dec-2023 12:28 by rmk")
|
||||
@@ -1794,13 +1785,13 @@
|
||||
|
||||
(* ;; "rrb 10-AUG-87 --- calculate the length of the image object's data. This assumes that the file is currently pointed at the end of the data which is where the GETFN is written {I think}.")
|
||||
|
||||
(* ;; "RMK: Originally, BYTELEN was calculated here as (DIFFERENCE (GETFILEPTR FILE) CURFILEBYTE#). But this is garbage: (GETFILEPTR FILE) is in the looks section, CURFILEBYTE# is in the text section. The caller knows the true value, now passes it in. ")
|
||||
(* ;; "RMK: Originally, BYTELEN was calculated here as (DIFFERENCE (GETFILEPTR FILE) CURTEXTBYTE#). But this is garbage: (GETFILEPTR FILE) is in the looks section, CURTEXTBYTE# is in the text section. The caller knows the true value, now passes it in. ")
|
||||
|
||||
(SETQ GETFN (\ATMIN FILE)) (* ;
|
||||
"The GETFN for this kind of IMAGEOBJ")
|
||||
(SETQ FILEPTRSAVE (GETFILEPTR FILE)) (* ;
|
||||
"Save our file location thru the building of the object")
|
||||
(SETFILEPTR FILE CURFILEBYTE#)
|
||||
(SETFILEPTR FILE CURTEXTBYTE#)
|
||||
(SETQ OBJ (READIMAGEOBJ FILE GETFN NIL BYTELEN))
|
||||
(CL:WHEN (IMAGEOBJPROP OBJ 'UNKNOWNGETFN) (* ;
|
||||
"If the object has an unknown getfn property, then it's an encapsulated object. Warn the user")
|
||||
@@ -1832,6 +1823,9 @@
|
||||
|
||||
(\TEDIT.PUT.PCTB
|
||||
[LAMBDA (TEXTOBJ CHARSTREAM FORMATSTREAM CONTINUE KEEPSEPARATE)
|
||||
(* ; "Edited 18-Apr-2026 14:56 by rmk")
|
||||
(* ; "Edited 9-Apr-2026 23:19 by rmk")
|
||||
(* ; "Edited 7-Apr-2026 12:31 by rmk")
|
||||
(* ; "Edited 14-Feb-2026 10:32 by rmk")
|
||||
(* ; "Edited 9-Sep-2025 21:32 by rmk")
|
||||
(* ; "Edited 26-Apr-2025 00:11 by rmk")
|
||||
@@ -1870,8 +1864,8 @@
|
||||
(CL:WHEN (EQ :UTF-8 (STREAMPROP CHARSTREAM 'FORMAT))
|
||||
(\TEDIT.PUT.UTF8.SPLITPIECES TEXTOBJ))
|
||||
(for PC PFILE NEXTNEW RUNLEN UNFORMATTED? (NSHIFTBYTES _ 0)
|
||||
(CURBYTE# _ 0)
|
||||
(OLDBYTE# _ 0)
|
||||
(CURTEXTBYTE# _ 0)
|
||||
(OLDTEXTBYTE# _ 0)
|
||||
[UNFORMATTED? _ (PROG1 (EQ FORMATSTREAM T)
|
||||
(CL:UNLESS (STREAMP FORMATSTREAM)
|
||||
[SETQ FORMATSTREAM (OPENSTREAM '{NODIRCORE} 'BOTH 'NEW
|
||||
@@ -1906,8 +1900,8 @@
|
||||
|
||||
(* ;; " We're ready to put the pieces on the output file. ")
|
||||
|
||||
(SETQ CURBYTE# (\GETFILEPTR CHARSTREAM))
|
||||
(SETQ OLDBYTE# CURBYTE#)
|
||||
(SETQ CURTEXTBYTE# (\GETFILEPTR CHARSTREAM))
|
||||
(SETQ OLDTEXTBYTE# CURTEXTBYTE#)
|
||||
|
||||
(* ;; "ZEROP should never happen, but...")
|
||||
|
||||
@@ -1915,7 +1909,7 @@
|
||||
|
||||
unless (ZEROP (PLEN PC))
|
||||
do
|
||||
(* ;; "PC starts a run of one or more pieces that can be collapsed together into a single file piece. The paragraph looks are produced before the first piece of a new paragraph (first piece or previous piece was PPARALAST), then the piece(s)-characters, followed by the charlooks. I.e., FORMATSTREAM describes the paragraph-start piece with its paragraph looks forllowed by its char looks.")
|
||||
(* ;; "PC starts a run of one or more pieces that can be collapsed together into a single file piece. The paragraph looks are produced before the first piece of a new paragraph (first piece or previous piece was PPARALAST), then the piece(s)-characters, followed by the charlooks. I.e., FORMATSTREAM describes the paragraph-start piece with its paragraph looks followed by its char looks.")
|
||||
|
||||
(CL:WHEN (OR (NULL (PREVPIECE PC))
|
||||
(PPARALAST (PREVPIECE PC)))
|
||||
@@ -1923,15 +1917,15 @@
|
||||
(add PCCOUNT 1))
|
||||
(CL:WHEN (MEMB EXTFORMAT '(:MCCS :XCCS))
|
||||
|
||||
(* ;; "For MCCS, CHARSET will put out the char-shifting prefix bytes as needed. In format-version 3 all the file bytes belong to a piece, no skipping in the file. TEDIT.GET calls \TEDIT.INTERPRET.XCCS.SHIFTS to shave those bytes. NSHIFTBYTES is used here if the edit will continue.")
|
||||
(* ;; "For MCCS, CHARSET will put out the char-shifting prefix bytes as needed. In format-version 3 all the file bytes belong to a piece, no skipping in the file. TEDIT.GET calls \TEDIT.INTERPRET.MCCS.SHIFTS to shave those bytes. NSHIFTBYTES is used here so the edit can continue.")
|
||||
|
||||
(CHARSET CHARSTREAM (OR (AND (EQ EXTFORMAT :XCCS)
|
||||
(MEMB (PTYPE PC)
|
||||
FAT.PTYPES))
|
||||
(PCHARSET PC)))
|
||||
(CHARSET CHARSTREAM (CL:IF (MEMB (PTYPE PC)
|
||||
FAT.PTYPES)
|
||||
T
|
||||
0))
|
||||
(SETQ NSHIFTBYTES (IDIFFERENCE (\GETFILEPTR CHARSTREAM)
|
||||
OLDBYTE#)))
|
||||
(do (\TEDIT.PUT.PCTB.PIECEDATA PC CHARSTREAM TEXTOBJ FORMATSTREAM OLDBYTE#)
|
||||
OLDTEXTBYTE#)))
|
||||
(do (\TEDIT.PUT.PCTB.PIECEDATA PC CHARSTREAM TEXTOBJ FORMATSTREAM OLDTEXTBYTE#)
|
||||
(CL:UNLESS (\TEDIT.PUT.PCTB.MERGEABLE PC (NEXTPIECE PC)
|
||||
EDITSTENTATIVE EXTFORMAT TEXTOBJ)
|
||||
(RETURN))
|
||||
@@ -1939,8 +1933,8 @@
|
||||
|
||||
(* ;; "PC is the last piece written for a mergeable sequence. Finish off the corresponding file piece by writing PC's character looks into FORMATSTREAM. ")
|
||||
|
||||
(SETQ CURBYTE# (\GETFILEPTR CHARSTREAM))
|
||||
(SETQ RUNLEN (IDIFFERENCE CURBYTE# OLDBYTE#))
|
||||
(SETQ CURTEXTBYTE# (\GETFILEPTR CHARSTREAM))
|
||||
(SETQ RUNLEN (IDIFFERENCE CURTEXTBYTE# OLDTEXTBYTE#))
|
||||
(CL:UNLESS (EQ OBJECT.PTYPE (PTYPE PC)) (* ;
|
||||
"Objects get their charlooks from the preceding piece.")
|
||||
(\TEDIT.PUT.CHARLOOKS FORMATSTREAM RUNLEN PC EDITSTENTATIVE LOOKSHASH))
|
||||
@@ -1952,28 +1946,30 @@
|
||||
|
||||
(* ;; "Only for continued editing: make a new piece that describes those characters as they now reside on CHARSTREAM. ")
|
||||
|
||||
(SETQ NEXTNEW (\TEDIT.PUT.PCTB.NEXTNEW NEXTNEW PC OLDBYTE# RUNLEN EXTFORMAT TEXTOBJ
|
||||
(SETQ NEXTNEW (\TEDIT.PUT.PCTB.NEXTNEW NEXTNEW PC OLDTEXTBYTE# RUNLEN EXTFORMAT TEXTOBJ
|
||||
EOLC NSHIFTBYTES)))
|
||||
(SETQ OLDBYTE# CURBYTE#) finally
|
||||
(SETQ OLDTEXTBYTE# CURTEXTBYTE#) finally
|
||||
|
||||
(* ;; "Finalize and append FORMATSTREAM unless unformatted or KEEPSEPARATE (for splitting). If KEEPSEPARATE, the caller must have provided the formatstream")
|
||||
|
||||
(CL:UNLESS UNFORMATTED?
|
||||
(\TEDIT.PUT.TRAILER FORMATSTREAM (\GETFILEPTR CHARSTREAM
|
||||
)
|
||||
PCCOUNT 3 (FGETTOBJ TEXTOBJ DOCPROPS)))
|
||||
(CL:UNLESS (OR UNFORMATTED? KEEPSEPARATE)
|
||||
(COPYBYTES FORMATSTREAM CHARSTREAM 0 (GETEOFPTR
|
||||
FORMATSTREAM
|
||||
)))
|
||||
(RETURN (CL:WHEN NEWPIECES
|
||||
(CL:UNLESS UNFORMATTED?
|
||||
(\TEDIT.PUT.TRAILER FORMATSTREAM (\GETFILEPTR
|
||||
CHARSTREAM)
|
||||
PCCOUNT 3 (FGETTOBJ TEXTOBJ DOCPROPS)))
|
||||
(CL:UNLESS (OR UNFORMATTED? KEEPSEPARATE)
|
||||
(COPYBYTES FORMATSTREAM CHARSTREAM 0
|
||||
(GETEOFPTR FORMATSTREAM)))
|
||||
(RETURN (CL:WHEN NEWPIECES
|
||||
|
||||
(* ;; "Throw away the dummy head of the new piece chain (NEWPIECES is NIL if not continuing). The caller must make install the new pieces.")
|
||||
(* ;; "Throw away the dummy head of the new piece chain (NEWPIECES is NIL if not continuing). The caller must install the new pieces.")
|
||||
|
||||
(NEXTPIECE NEWPIECES))])
|
||||
(NEXTPIECE NEWPIECES))])
|
||||
|
||||
(\TEDIT.PUT.PCTB.PIECEDATA
|
||||
[LAMBDA (PC CHARSTREAM TEXTOBJ FORMATSTREAM OLDBYTE#) (* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
[LAMBDA (PC CHARSTREAM TEXTOBJ FORMATSTREAM OLDTEXTBYTE#) (* ; "Edited 18-Apr-2026 14:54 by rmk")
|
||||
(* ; "Edited 9-Apr-2026 13:37 by rmk")
|
||||
(* ; "Edited 7-Apr-2026 18:10 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
(* ; "Edited 15-May-2024 17:04 by rmk")
|
||||
|
||||
(* ;; "Write the data defining PC on CHARSTREAM.")
|
||||
@@ -1982,7 +1978,7 @@
|
||||
|
||||
(* ;; "FORMATSTREAM is needed for objects.")
|
||||
|
||||
(* ;; "OLDBYTE# needed to deal with XCCS shift before objects.")
|
||||
(* ;; "OLDTEXTBYTE# needed to deal with XCCS shift before objects.")
|
||||
|
||||
(LET (PFILE)
|
||||
(CL:WHEN (MEMB (PTYPE PC)
|
||||
@@ -2004,16 +2000,9 @@
|
||||
(for CH instring (PCONTENTS PC) do (\OUTCHAR CHARSTREAM CH)))
|
||||
(FATFILE2.PTYPE
|
||||
(for I from 1 to (PLEN PC) do (\OUTCHAR CHARSTREAM (\WIN PFILE))))
|
||||
(FATFILE1.PTYPE
|
||||
(* ;;
|
||||
"We read but don't write FATFILE1 pieces, they merge with FATFILE2.")
|
||||
|
||||
[for I (CSET _ (LLSH (PCHARSET PC)
|
||||
8)) from 1 to (PLEN PC)
|
||||
do (\OUTCHAR CHARSTREAM (LOGOR CSET (BIN PFILE])
|
||||
(UTF8.PTYPE (for I from 1 to (PLEN PC) do (\OUTCHAR CHARSTREAM (UTF8.INCCODEFN PFILE))))
|
||||
(OBJECT.PTYPE (* ; "It's an object, use its PUTFN.")
|
||||
(\TEDIT.PUT.OBJECT PC CHARSTREAM FORMATSTREAM OLDBYTE#)
|
||||
(\TEDIT.PUT.OBJECT PC CHARSTREAM FORMATSTREAM OLDTEXTBYTE#)
|
||||
|
||||
(* ;; "0 indicates that nothing special needs to be done here to recover the looks of this piece. \TEDIT.GET.PIECES3 says that the object-piece looks are taken from the previous piece (or default for first piece. In earlier versions the value 1 indicated that the looks were not indexed and therefore had to be written explicitly here. This byte won't be needed in the next version of the format.")
|
||||
|
||||
@@ -2041,7 +2030,9 @@
|
||||
(\WOUT FORMATSTREAM (IPLUS 31415 VERSION])
|
||||
|
||||
(\TEDIT.PUT.PCTB.MERGEABLE
|
||||
[LAMBDA (PREVPC PC EDITSTENTATIVE EXTFORMAT TEXTOBJ) (* ; "Edited 1-Aug-2025 14:51 by rmk")
|
||||
[LAMBDA (PREVPC PC EDITSTENTATIVE EXTFORMAT TEXTOBJ) (* ; "Edited 12-Apr-2026 21:44 by rmk")
|
||||
(* ; "Edited 7-Apr-2026 18:07 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 14:51 by rmk")
|
||||
(* ; "Edited 25-Apr-2025 23:50 by rmk")
|
||||
(* ; "Edited 24-Apr-2025 16:02 by rmk")
|
||||
(* ; "Edited 14-May-2024 11:55 by rmk")
|
||||
@@ -2076,21 +2067,21 @@
|
||||
(THINPIECEP PC)))
|
||||
(:UTF-8
|
||||
|
||||
(* ;; "UTF8 pieces with the same bytesperchar are mergeable. We rely on \TEDIT.PUT.UTF8.SPLITPIECES to examine string pieces and split thin strings that include mixtures of Ascii and non-Ascii characters, and to split fat pieces that may contain Ascii character in 2-byte form. After splitting, all pieces with the same PUTF8BYTESPERCHAR can be merged.")
|
||||
(* ;; "UTF8 pieces with the same bytesperchar are mergeable. We rely on \TEDIT.PUT.UTF8.SPLITPIECES to examine string pieces and split thin strings that include mixtures of Ascii and non-Ascii characters, and to split fat pieces that may contain Ascii character in 2-byte form. After splitting, all pieces with the same PBYTESPERCHAR can be merged.")
|
||||
|
||||
(EQ (FGETPC PREVPC PUTF8BYTESPERCHAR)
|
||||
(FGETPC PC PUTF8BYTESPERCHAR)))
|
||||
(EQ (FGETPC PREVPC PBYTESPERCHAR)
|
||||
(FGETPC PC PBYTESPERCHAR)))
|
||||
NIL)
|
||||
(OR (EQ PREVTYPE UTF8.PTYPE)
|
||||
(AND (EQ PREVTYPE FATFILE1.PTYPE)
|
||||
(NEQ 0 (PCHARSET PREVPC)))
|
||||
[AND (EQ EXTFORMAT :UTF-8)
|
||||
(NOT (MEMB PREVTYPE (CONSTANT (LIST THINFILE.PTYPE THINSTRING.PTYPE]
|
||||
(NOT (MEMB (\TEDIT.PIECE.NTHCHARCODE PREVPC (SUB1 (PLEN PREVPC)))
|
||||
(CHARCODE (EOL LF])])])
|
||||
|
||||
(\TEDIT.PUT.UTF8.SPLITPIECES
|
||||
[LAMBDA (TEXTOBJ) (* ; "Edited 19-Jan-2025 15:02 by rmk")
|
||||
[LAMBDA (TEXTOBJ) (* ; "Edited 12-Apr-2026 21:49 by rmk")
|
||||
(* ; "Edited 9-Apr-2026 00:05 by rmk")
|
||||
(* ; "Edited 19-Jan-2025 15:02 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 00:14 by rmk")
|
||||
(* ; "Edited 3-Feb-2024 14:52 by rmk")
|
||||
(* ; "Edited 11-Jan-2024 23:29 by rmk")
|
||||
@@ -2101,24 +2092,24 @@
|
||||
|
||||
(for PC inpieces (\TEDIT.FIRSTPIECE TEXTOBJ)
|
||||
do (SELECTC (PTYPE PC)
|
||||
(UTF8.PTYPE (FSETPC PC PUTF8BYTESPERCHAR (PBYTESPERCHAR PC)))
|
||||
(UTF8.PTYPE)
|
||||
(STRING.PTYPES (for CH BPC instring (PCONTENTS PC) as I from 1
|
||||
do
|
||||
|
||||
(* ;; "If BPC changes, split off and mark the prefix piece with the previous value, go back to the main loop to continue on the residual suffix piece.")
|
||||
|
||||
(if (EQ I 1)
|
||||
then (SETQ BPC (NUTF8-CODE-BYTES (XTOUCODE CH)))
|
||||
(FSETPC PC PUTF8BYTESPERCHAR BPC)
|
||||
then (SETQ BPC (NUTF8-CODE-BYTES (MTOUCODE CH)))
|
||||
(FSETPC PC PBYTESPERCHAR BPC)
|
||||
(* ;
|
||||
"The first character defines the piece")
|
||||
elseif (EQ BPC (NUTF8-CODE-BYTES (XTOUCODE CH)))
|
||||
elseif (EQ BPC (NUTF8-CODE-BYTES (MTOUCODE CH)))
|
||||
else (\TEDIT.SPLITPIECE PC (SUB1 I)
|
||||
TEXTOBJ)
|
||||
(SETQ PC (PREVPIECE PC))
|
||||
(* ;
|
||||
"Prefix piece always exists since I>1")
|
||||
(FSETPC PC PUTF8BYTESPERCHAR BPC)
|
||||
(FSETPC PC PBYTESPERCHAR BPC)
|
||||
(* ;
|
||||
"Mark it, iteration continues on its next.")
|
||||
(RETURN))))
|
||||
@@ -2128,30 +2119,26 @@
|
||||
(for I BPC (PFILE _ (PCONTENTS PC)) from 1 to (PLEN PC)
|
||||
first (\SETFILEPTR PFILE (PFPOS PC))
|
||||
do (if (EQ I 1)
|
||||
then [SETQ BPC (NUTF8-CODE-BYTES (XTOUCODE (BIN PFILE]
|
||||
(FSETPC PC PUTF8BYTESPERCHAR BPC)
|
||||
elseif [EQ BPC (NUTF8-CODE-BYTES (XTOUCODE (BIN PFILE]
|
||||
then [SETQ BPC (NUTF8-CODE-BYTES (MTOUCODE (BIN PFILE]
|
||||
(FSETPC PC PBYTESPERCHAR BPC)
|
||||
elseif [EQ BPC (NUTF8-CODE-BYTES (MTOUCODE (BIN PFILE]
|
||||
else (\TEDIT.SPLITPIECE PC (SUB1 I)
|
||||
TEXTOBJ)
|
||||
(SETQ PC (PREVPIECE PC))
|
||||
(FSETPC PC PUTF8BYTESPERCHAR BPC)
|
||||
(FSETPC PC PBYTESPERCHAR BPC)
|
||||
(RETURN)))))
|
||||
((LIST FATFILE2.PTYPE FATFILE1.PTYPE) (* ; "XCCS pieces")
|
||||
(FATFILE2.PTYPE (* ; "XCCS pieces")
|
||||
(for I BPC CH (PFILE _ (PCONTENTS PC)) from 1 to (PLEN PC)
|
||||
first (\SETFILEPTR PFILE (PFPOS PC))
|
||||
do (SETQ CH (LOGOR (LLSH (CL:IF (EQ FATFILE2.PTYPE (PTYPE PC))
|
||||
(BIN PFILE)
|
||||
(PCHARSET PC))
|
||||
8)
|
||||
(BIN PFILE)))
|
||||
do (SETQ CH (\WIN PFILE))
|
||||
(if (EQ I 1)
|
||||
then (SETQ BPC (NUTF8-CODE-BYTES (XTOUCODE CH)))
|
||||
(FSETPC PC PUTF8BYTESPERCHAR BPC)
|
||||
elseif (EQ BPC (NUTF8-CODE-BYTES (XTOUCODE CH)))
|
||||
then (SETQ BPC (NUTF8-CODE-BYTES (MTOUCODE CH)))
|
||||
(FSETPC PC PBYTESPERCHAR BPC)
|
||||
elseif (EQ BPC (NUTF8-CODE-BYTES (MTOUCODE CH)))
|
||||
else (\TEDIT.SPLITPIECE PC (SUB1 I)
|
||||
TEXTOBJ)
|
||||
(SETQ PC (PREVPIECE PC))
|
||||
(FSETPC PC PUTF8BYTESPERCHAR BPC)
|
||||
(FSETPC PC PBYTESPERCHAR BPC)
|
||||
(RETURN))))
|
||||
NIL])
|
||||
|
||||
@@ -2183,6 +2170,11 @@
|
||||
|
||||
(\TEDIT.PUT.PCTB.NEXTNEW
|
||||
[LAMBDA (NEXTNEW PC OLDBYTE# RUNLEN EXTFORMAT TEXTOBJ EOLC NSHIFTBYTES)
|
||||
(* ; "Edited 24-Apr-2026 20:45 by rmk")
|
||||
(* ; "Edited 17-Apr-2026 23:55 by rmk")
|
||||
(* ; "Edited 12-Apr-2026 21:47 by rmk")
|
||||
(* ; "Edited 9-Apr-2026 13:20 by rmk")
|
||||
(* ; "Edited 7-Apr-2026 18:12 by rmk")
|
||||
(* ; "Edited 15-Feb-2026 15:09 by rmk")
|
||||
(* ; "Edited 25-Apr-2025 08:48 by rmk")
|
||||
(* ; "Edited 26-Mar-2025 09:27 by rmk")
|
||||
@@ -2198,28 +2190,25 @@
|
||||
|
||||
(* ;; "This updates the piece chain that is created for continued editing.")
|
||||
|
||||
(* ;; "Note that the PCONTENTS (= PFILE) field for these file pieces isn't filled in, that has to be done after CHARSTREAM is closed and reopened at the TEDIT.PUT level. For the same reason, PBINABLE isn't set here.")
|
||||
(* ;; "Note that the PCONTENTS (= PFILE) field for these file pieces isn't filled in, that has to be done after CHARSTREAM is closed and reopened at the TEDIT.PUT level. ")
|
||||
|
||||
(* ;; "NSHIFTBYTES strips any MCCS/XCCS charset shifts at the beginning of the new piece.")
|
||||
(* ;; "NSHIFTBYTES ignores any MCCS/XCCS charset shifts at the beginning of the new piece.")
|
||||
|
||||
(SETQ RUNLEN (IDIFFERENCE RUNLEN NSHIFTBYTES))
|
||||
(FSETPC NEXTNEW NEXTPIECE (SETQ NEXTNEW (create PIECE
|
||||
using PC PFPOS _ (IPLUS NSHIFTBYTES OLDBYTE#)
|
||||
PBYTELEN _ RUNLEN PREVPIECE _ NEXTNEW PTREENODE
|
||||
_ NIL)))
|
||||
PLEN _ RUNLEN PREVPIECE _ NEXTNEW PTREENODE _
|
||||
NIL)))
|
||||
(SELECTQ EXTFORMAT
|
||||
(:UTF-8 (FSETPC NEXTNEW PTYPE (CL:IF (EQ 1 (FGETPC PC PUTF8BYTESPERCHAR))
|
||||
(:UTF-8 (FSETPC NEXTNEW PTYPE (CL:IF (EQ 1 (FGETPC PC PBYTESPERCHAR))
|
||||
THINFILE.PTYPE
|
||||
UTF8.PTYPE))
|
||||
(FSETPC NEXTNEW PBYTESPERCHAR (FGETPC PC PUTF8BYTESPERCHAR)))
|
||||
UTF8.PTYPE)))
|
||||
((:MCCS :XCCS) (* ;
|
||||
"String pieces can be merged with corresponding file pieces")
|
||||
(FSETPC NEXTNEW PTYPE (SELECTC (PTYPE PC)
|
||||
(THINSTRING.PTYPE
|
||||
THINFILE.PTYPE)
|
||||
((LIST FATSTRING.PTYPE FATFILE1.PTYPE)
|
||||
(* ;
|
||||
"PCHARSET is not relevant for FILEFILE2")
|
||||
(FATSTRING.PTYPE
|
||||
(FSETPC NEXTNEW PBYTESPERCHAR 2)
|
||||
FATFILE2.PTYPE)
|
||||
(PTYPE PC))))
|
||||
@@ -2238,15 +2227,14 @@
|
||||
(FSETPC NEXTNEW PCONTENTS (ALLOCSTRING 1 (CHARCODE EOL)))
|
||||
else (add (FGETPC NEXTNEW PLEN)
|
||||
-1) (* ; "We know it's thin, maybe paralast")
|
||||
(add (FGETPC NEXTNEW PBYTELEN)
|
||||
-1)
|
||||
(SETQ NEXTNEW (\TEDIT.MAKE.STRINGPIECE NEXTNEW (CHARCODE EOL)))
|
||||
(FSETPC (PREVPIECE NEXTNEW)
|
||||
PPARALAST NIL))))
|
||||
NEXTNEW])
|
||||
|
||||
(\TEDIT.INSERT.NEWPIECES
|
||||
[LAMBDA (DESTSTREAM OLDSTREAM NEWPIECES) (* ; "Edited 14-May-2024 18:38 by rmk")
|
||||
[LAMBDA (DESTSTREAM OLDSTREAM NEWPIECES) (* ; "Edited 10-Apr-2026 09:25 by rmk")
|
||||
(* ; "Edited 14-May-2024 18:38 by rmk")
|
||||
(* ; "Edited 29-Apr-2024 10:13 by rmk")
|
||||
(* ; "Edited 20-Mar-2024 10:59 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 12:06 by rmk")
|
||||
@@ -2265,13 +2253,8 @@
|
||||
(LET ((TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of OLDSTREAM)))
|
||||
FILEPTR)
|
||||
(SETQ FILEPTR (\TEDIT.TEXTGETFILEPTR OLDSTREAM)) (* ; "Restore the editing parameters")
|
||||
(for PC (SBINABLE _ (fetch (STREAM BINABLE) of DESTSTREAM)) inpieces NEWPIECES
|
||||
when (MEMB (PTYPE PC)
|
||||
FILE.PTYPES) do (FSETPC PC PCONTENTS DESTSTREAM)
|
||||
(CL:WHEN (EQ THINFILE.PTYPE (PTYPE PC))
|
||||
(* ;
|
||||
"If the backing stream isn't binable, the thinfile pieces aren't either")
|
||||
(FSETPC PC PBINABLE SBINABLE)))
|
||||
(for PC inpieces NEWPIECES when (MEMB (PTYPE PC)
|
||||
FILE.PTYPES) do (FSETPC PC PCONTENTS DESTSTREAM))
|
||||
(* ; "Non-object pieces are on OFILE")
|
||||
|
||||
(* ;; "Here, finally, we toss the out-of-date pieces to install the new ones. For complete safety, the rest should be uninterruptable (although the file has just been saved, so nothing would really be lost)")
|
||||
@@ -2459,6 +2442,7 @@
|
||||
|
||||
(\TEDIT.PUT.CHARLOOKS
|
||||
[LAMBDA (FORMATSTREAM BYTELEN PC EDITSTENTATIVE LOOKSHARRAY)
|
||||
(* ; "Edited 9-Apr-2026 23:24 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 14:51 by rmk")
|
||||
(* ; "Edited 14-May-2024 10:24 by rmk")
|
||||
(* ; "Edited 13-Jan-2024 16:35 by rmk")
|
||||
@@ -2471,7 +2455,7 @@
|
||||
(* ;; "Put a description of PC's charlooks into FORMATSTREAM. The looks apply to bytes OLDBYTE# thru CURBYTE#-1")
|
||||
|
||||
(\DTEST PC 'PIECE)
|
||||
(\TEDIT.PUT.CHARLOOKS1 FORMATSTREAM BYTELEN (GETHASH (PCHARALOOKS PC)
|
||||
(\TEDIT.PUT.CHARLOOKS1 FORMATSTREAM BYTELEN (GETHASH (PCHARLOOKS PC)
|
||||
LOOKSHARRAY)
|
||||
(AND EDITSTENTATIVE PC (PNEW PC))
|
||||
(EQ FATFILE2.PTYPE (PTYPE PC])
|
||||
@@ -2496,7 +2480,8 @@
|
||||
(\WOUT FORMATSTREAM CHARLOOKSINDEX])
|
||||
|
||||
(\TEDIT.PUT.OBJECT
|
||||
[LAMBDA (PIECE CHARSTREAM FORMATSTREAM CURFILEBYTE#) (* ; "Edited 14-May-2024 12:09 by rmk")
|
||||
[LAMBDA (PIECE CHARSTREAM FORMATSTREAM CURTEXTBYTE#) (* ; "Edited 18-Apr-2026 14:52 by rmk")
|
||||
(* ; "Edited 14-May-2024 12:09 by rmk")
|
||||
(* ; "Edited 24-Jan-2024 23:35 by rmk")
|
||||
(* ; "Edited 13-Jan-2024 12:20 by rmk")
|
||||
(* ; "Edited 19-Dec-2023 10:14 by rmk")
|
||||
@@ -2519,7 +2504,7 @@
|
||||
(APPLY* (IMAGEOBJPROP OBJECT 'PUTFN)
|
||||
OBJECT CHARSTREAM)
|
||||
(SETQ BYTELEN (IDIFFERENCE (GETEOFPTR CHARSTREAM)
|
||||
CURFILEBYTE#))
|
||||
CURTEXTBYTE#))
|
||||
(SETFILEPTR FORMATSTREAM ORIGFILEPTR) (* ;
|
||||
"Now go back and fill in the length of the text description of the object.")
|
||||
(\DWOUT FORMATSTREAM BYTELEN)
|
||||
@@ -2721,29 +2706,29 @@
|
||||
|
||||
(RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (5423 35682 (TEDIT.GET 5433 . 11843) (TEDIT.FORMATTEDFILEP 11845 . 13161) (
|
||||
TEDIT.FILEDATE 13163 . 14472) (TEDIT.INCLUDE 14474 . 22503) (TEDIT.RAW.INCLUDE 22505 . 23313) (
|
||||
TEDIT.PUT 23315 . 31671) (TEDIT.PUT.STREAM 31673 . 35680)) (35683 56957 (\TEDIT.GET.FOREIGN.FILE 35693
|
||||
. 39118) (\TEDIT.GET.UNFORMATTED.FILE 39120 . 43426) (\TEDIT.GET.FORMATTED.FILE 43428 . 47071) (
|
||||
\TEDIT.FORMATTEDSTREAMP 47073 . 50204) (\ARBIN 50206 . 50926) (\ATMIN 50928 . 51465) (\DWIN 51467 .
|
||||
51846) (\STRINGIN 51848 . 52556) (\TEDIT.GET.TRAILER 52558 . 55426) (\TEDIT.CACHEFILE 55428 . 56955))
|
||||
(57123 73161 (\TEDIT.GET.PIECES3 57133 . 68096) (\TEDIT.GET.PROPS3 68098 . 71320) (
|
||||
\TEDIT.MAKE.STRINGPIECE 71322 . 73159)) (73162 86588 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73172 . 79405)
|
||||
(\TEDIT.INTERPRET.MCCS.SHIFTS 79407 . 85652) (\TEDIT.CONVERT.XCCSTOMCCS 85654 . 86586)) (86610 92855 (
|
||||
\TEDIT.GET.UNFORMATTED.FILE.UTF8 86620 . 92853)) (92878 104220 (\TEDIT.GET.CHARLOOKS.LIST 92888 .
|
||||
93619) (\TEDIT.GET.SINGLE.CHARLOOKS 93621 . 100693) (\TEDIT.GET.CHARLOOKS 100695 . 102251) (
|
||||
\TEDIT.GET.PARALOOKS.INDEX 102253 . 102797) (\TEDIT.GET.CHARLOOKS.INDEX 102799 . 104218)) (104221
|
||||
111878 (\TEDIT.GET.PARALOOKS.LIST 104231 . 104853) (\TEDIT.GET.SINGLE.PARALOOKS 104855 . 111876)) (
|
||||
111879 115712 (\TEDIT.GET.OBJECT 111889 . 115710)) (115777 150880 (\TEDIT.PUT.PCTB 115787 . 125844) (
|
||||
\TEDIT.PUT.PCTB.PIECEDATA 125846 . 129044) (\TEDIT.PUT.TRAILER 129046 . 130374) (
|
||||
\TEDIT.PUT.PCTB.MERGEABLE 130376 . 134149) (\TEDIT.PUT.UTF8.SPLITPIECES 134151 . 138853) (
|
||||
\TEDIT.PUT.MCCS.SPLITPIECES 138855 . 140433) (\TEDIT.PUT.PCTB.NEXTNEW 140435 . 145041) (
|
||||
\TEDIT.INSERT.NEWPIECES 145043 . 148478) (\TEDIT.PUTRESET 148480 . 148722) (\ARBOUT 148724 . 149448) (
|
||||
\ATMOUT 149450 . 150055) (\DWOUT 150057 . 150336) (\STRINGOUT 150338 . 150878)) (150881 163615 (
|
||||
\TEDIT.PUT.CHARLOOKS.LIST 150891 . 152563) (\TEDIT.PUT.SINGLE.CHARLOOKS 152565 . 158845) (
|
||||
\TEDIT.PUT.CHARLOOKS 158847 . 160186) (\TEDIT.PUT.CHARLOOKS1 160188 . 161239) (\TEDIT.PUT.OBJECT
|
||||
161241 . 163613)) (163616 171255 (\TEDIT.PUT.PARALOOKS.LIST 163626 . 164528) (
|
||||
\TEDIT.PUT.SINGLE.PARALOOKS 164530 . 170114) (\TEDIT.PUT.PARALOOKS 170116 . 171253)) (171350 174755 (
|
||||
TEDITFROMLISPSOURCE 171360 . 174004) (SHELLSCRIPTP 174006 . 174235) (TEDITFROMSHELLSCRIPT 174237 .
|
||||
174753)))))
|
||||
(FILEMAP (NIL (5384 35643 (TEDIT.GET 5394 . 11804) (TEDIT.FORMATTEDFILEP 11806 . 13122) (
|
||||
TEDIT.FILEDATE 13124 . 14433) (TEDIT.INCLUDE 14435 . 22464) (TEDIT.RAW.INCLUDE 22466 . 23274) (
|
||||
TEDIT.PUT 23276 . 31632) (TEDIT.PUT.STREAM 31634 . 35641)) (35644 56951 (\TEDIT.GET.FOREIGN.FILE 35654
|
||||
. 39079) (\TEDIT.GET.UNFORMATTED.FILE 39081 . 43420) (\TEDIT.GET.FORMATTED.FILE 43422 . 47065) (
|
||||
\TEDIT.FORMATTEDSTREAMP 47067 . 50198) (\ARBIN 50200 . 50920) (\ATMIN 50922 . 51459) (\DWIN 51461 .
|
||||
51840) (\STRINGIN 51842 . 52550) (\TEDIT.GET.TRAILER 52552 . 55420) (\TEDIT.CACHEFILE 55422 . 56949))
|
||||
(57117 73044 (\TEDIT.GET.PIECES3 57127 . 68176) (\TEDIT.GET.PROPS3 68178 . 71400) (
|
||||
\TEDIT.MAKE.STRINGPIECE 71402 . 73042)) (73045 85841 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73055 . 78706)
|
||||
(\TEDIT.INTERPRET.MCCS.SHIFTS 78708 . 84304) (\TEDIT.CONVERT.XCCSTOMCCS 84306 . 85238) (
|
||||
\TEDIT.RUN.TO.STRINGPIECE 85240 . 85839)) (85863 92124 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 85873 . 92122
|
||||
)) (92147 103665 (\TEDIT.GET.CHARLOOKS.LIST 92157 . 92888) (\TEDIT.GET.SINGLE.CHARLOOKS 92890 . 99962)
|
||||
(\TEDIT.GET.CHARLOOKS 99964 . 101520) (\TEDIT.GET.PARALOOKS.INDEX 101522 . 102066) (
|
||||
\TEDIT.GET.CHARLOOKS.INDEX 102068 . 103663)) (103666 111323 (\TEDIT.GET.PARALOOKS.LIST 103676 . 104298
|
||||
) (\TEDIT.GET.SINGLE.PARALOOKS 104300 . 111321)) (111324 115266 (\TEDIT.GET.OBJECT 111334 . 115264)) (
|
||||
115331 150489 (\TEDIT.PUT.PCTB 115341 . 125667) (\TEDIT.PUT.PCTB.PIECEDATA 125669 . 128826) (
|
||||
\TEDIT.PUT.TRAILER 128828 . 130156) (\TEDIT.PUT.PCTB.MERGEABLE 130158 . 134019) (
|
||||
\TEDIT.PUT.UTF8.SPLITPIECES 134021 . 138597) (\TEDIT.PUT.MCCS.SPLITPIECES 138599 . 140177) (
|
||||
\TEDIT.PUT.PCTB.NEXTNEW 140179 . 144920) (\TEDIT.INSERT.NEWPIECES 144922 . 148087) (\TEDIT.PUTRESET
|
||||
148089 . 148331) (\ARBOUT 148333 . 149057) (\ATMOUT 149059 . 149664) (\DWOUT 149666 . 149945) (
|
||||
\STRINGOUT 149947 . 150487)) (150490 163441 (\TEDIT.PUT.CHARLOOKS.LIST 150500 . 152172) (
|
||||
\TEDIT.PUT.SINGLE.CHARLOOKS 152174 . 158454) (\TEDIT.PUT.CHARLOOKS 158456 . 159903) (
|
||||
\TEDIT.PUT.CHARLOOKS1 159905 . 160956) (\TEDIT.PUT.OBJECT 160958 . 163439)) (163442 171081 (
|
||||
\TEDIT.PUT.PARALOOKS.LIST 163452 . 164354) (\TEDIT.PUT.SINGLE.PARALOOKS 164356 . 169940) (
|
||||
\TEDIT.PUT.PARALOOKS 169942 . 171079)) (171176 174581 (TEDITFROMLISPSOURCE 171186 . 173830) (
|
||||
SHELLSCRIPTP 173832 . 174061) (TEDITFROMSHELLSCRIPT 174063 . 174579)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
183
library/tedit/TEDIT-FIXFILES
Normal file
183
library/tedit/TEDIT-FIXFILES
Normal file
@@ -0,0 +1,183 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "14-Dec-2024 16:53:27" {WMEDLEY}<library>TEDIT>TEDIT-FIXFILES.;14 9776
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS CR-LF-FONTFIX)
|
||||
(VARS TEDIT-FIXFILESCOMS)
|
||||
(ADVICE ELT)
|
||||
|
||||
:PREVIOUS-DATE "12-Dec-2024 21:50:29" {WMEDLEY}<library>TEDIT>TEDIT-FIXFILES.;10)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-FIXFILESCOMS)
|
||||
|
||||
(RPAQQ TEDIT-FIXFILESCOMS (
|
||||
(* ;; "Hacks that may help in fixing broken Tedit files")
|
||||
|
||||
(FILES TEDIT-DEBUG)
|
||||
(FNS CRLFSWAP CHANGEPLEN)
|
||||
(FNS CR-LF-FONTFIX)
|
||||
(P (MOVD 'CR-LF-FONTFIX '\TEDIT.GET.SINGLE.CHARLOOKS))
|
||||
(ADVISE ELT)))
|
||||
|
||||
|
||||
|
||||
(* ;; "Hacks that may help in fixing broken Tedit files")
|
||||
|
||||
|
||||
(FILESLOAD TEDIT-DEBUG)
|
||||
(DEFINEQ
|
||||
|
||||
(CRLFSWAP
|
||||
[LAMBDA (INFILE OUTFILE) (* ; "Edited 12-Dec-2024 08:25 by rmk")
|
||||
(* ; "Edited 9-Dec-2024 13:33 by rmk")
|
||||
(CL:WITH-OPEN-FILE (INSTREAM INFILE :DIRECTION :INPUT)
|
||||
(CL:UNLESS OUTFILE
|
||||
(SETQ OUTFILE (PACKFILENAME 'VERSION NIL 'NAME (CONCAT (FILENAMEFIELD INSTREAM
|
||||
'NAME)
|
||||
"-SWAPPED")
|
||||
'BODY INSTREAM)))
|
||||
(CL:WITH-OPEN-FILE (OUTSTREAM OUTFILE :DIRECTION :OUTPUT)
|
||||
(for I B from 1 to (GETEOFPTR INSTREAM)
|
||||
do (BOUT OUTSTREAM (SELCHARQ (SETQ B (BIN INSTREAM))
|
||||
(LF (CHARCODE CR))
|
||||
(CR (CHARCODE LF))
|
||||
B)))
|
||||
(FULLNAME OUTSTREAM])
|
||||
|
||||
(CHANGEPLEN
|
||||
[LAMBDA (PC DELTA ARG) (* ; "Edited 11-Dec-2024 15:18 by rmk")
|
||||
|
||||
(* ;; "Change the length of piece PC by DELTA (negative = shorter).")
|
||||
|
||||
(LET [(PC (SP PC 1 NIL (GTO ARG]
|
||||
(CL:WHEN (EQ 'Y (ASKUSER NIL NIL (CONCAT "Confirm changing PLEN by " DELTA " from "
|
||||
(PLEN PC)
|
||||
" to "
|
||||
(IPLUS (PLEN PC)
|
||||
DELTA)
|
||||
" ? ")))
|
||||
(FSETPC PC PLEN (IPLUS (PLEN PC)
|
||||
DELTA))
|
||||
(SP PC 1 NIL (GTO ARG)))])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(CR-LF-FONTFIX
|
||||
[LAMBDA (FILE TEXTOBJ) (* ; "Edited 14-Dec-2024 14:31 by rmk")
|
||||
(* ; "Edited 12-Dec-2024 21:50 by rmk")
|
||||
(SI::%%WITH-CHANGED-CALLS
|
||||
((|TEXTPROP in INTERLISP::\TEDIT.GET.SINGLE.CHARLOOKS| . TEXTPROP))
|
||||
(* ; "Edited 12-Dec-2024 20:51 by rmk")
|
||||
(* ; "Edited 11-Dec-2024 17:11 by rmk")
|
||||
(* ; "Edited 9-Dec-2024 20:11 by rmk")
|
||||
(* ; "Edited 13-Aug-2024 08:49 by rmk")
|
||||
(* ; "Edited 31-Jul-2024 00:04 by rmk")
|
||||
(* ; "Edited 7-Apr-2024 17:21 by rmk")
|
||||
(* ; "Edited 16-Jan-2024 22:46 by rmk")
|
||||
(* ; "Edited 21-Dec-2023 23:54 by rmk")
|
||||
(* ; "Edited 19-Dec-2023 10:13 by rmk")
|
||||
(* ; "Edited 25-Nov-2023 23:21 by rmk")
|
||||
(* ; "Edited 24-Aug-2023 15:05 by rmk")
|
||||
(* ; "Edited 20-Feb-2022 12:42 by larry")
|
||||
(* ; "Edited 30-May-91 20:25 by jds")
|
||||
|
||||
(* ;; "Read one CHARLOOKS from FILE. This gets and then sets the file pointer, based on the stored length. But that won't work if the file is not random access. Maybe that's not necessary?")
|
||||
|
||||
(* ;; "TEXTOBJ only for printing in the local promptwindow, if necessary.")
|
||||
|
||||
(PROG* ((LOOKS (create CHARLOOKS))
|
||||
(FILEPOS (GETFILEPTR FILE))
|
||||
(LOOKSLEN (\WIN FILE))
|
||||
FONT NAME FACE SIZE SUPER PROPS STYLESTR)
|
||||
(SETQ NAME (\ARBIN FILE)) (* ; "The font name")
|
||||
(SETQ SIZE (\WIN FILE)) (* ; "Size of the type, in points")
|
||||
(SETQ SUPER (\SMALLPIN FILE)) (* ;
|
||||
"Superscripting distance, could be negative")
|
||||
(FSETCLOOKS LOOKS CLSTYLE (OR (\ARBIN FILE)
|
||||
0))
|
||||
(FSETCLOOKS LOOKS CLUSERINFO (\ARBIN FILE))
|
||||
(SETQ PROPS (\WIN FILE))
|
||||
(with CHARLOOKS LOOKS [SETQ CLSELBEFORE (NOT (ZEROP (LOGAND 8192 PROPS]
|
||||
[SETQ CLUNBREAKABLE (NOT (ZEROP (LOGAND 4096 PROPS]
|
||||
[SETQ CLLEADER (NOT (ZEROP (LOGAND 2048 PROPS]
|
||||
[SETQ CLINVERTED (NOT (ZEROP (LOGAND 1024 PROPS]
|
||||
[SETQ CLBOLD (NOT (ZEROP (LOGAND 512 PROPS]
|
||||
[SETQ CLITAL (NOT (ZEROP (LOGAND 256 PROPS]
|
||||
[SETQ CLULINE (NOT (ZEROP (LOGAND 128 PROPS]
|
||||
[SETQ CLOLINE (NOT (ZEROP (LOGAND 64 PROPS]
|
||||
[SETQ CLSTRIKE (NOT (ZEROP (LOGAND 32 PROPS]
|
||||
[SETQ CLSMALLCAP (NOT (ZEROP (LOGAND 16 PROPS]
|
||||
[SETQ CLPROTECTED (NOT (ZEROP (LOGAND 8 PROPS]
|
||||
[SETQ CLINVISIBLE (NOT (ZEROP (LOGAND 4 PROPS]
|
||||
[SETQ CLSELAFTER (NOT (ZEROP (LOGAND 2 PROPS]
|
||||
[SETQ CLCANCOPY (NOT (ZEROP (LOGAND 1 PROPS]
|
||||
(SETQ CLSIZE SIZE)
|
||||
(SETQ CLOFFSET SUPER))
|
||||
(SETQ FACE (PACK* (CL:IF (FGETCLOOKS LOOKS CLBOLD)
|
||||
'B
|
||||
'M)
|
||||
(CL:IF (FGETCLOOKS LOOKS CLITAL)
|
||||
'I
|
||||
'R)
|
||||
'R))
|
||||
(if (LISTP NAME)
|
||||
then (* ;
|
||||
"This was a font class. Restore it.")
|
||||
(SETQ FONT (FONTCLASS (pop NAME)
|
||||
NAME))
|
||||
elseif (OR (NOT NAME)
|
||||
(ZEROP SIZE))
|
||||
then
|
||||
(* ;; "This was a test in the original, seems bogus")
|
||||
|
||||
elseif (SETQ FONT (FONTCREATE NAME SIZE FACE NIL NIL T))
|
||||
elseif [AND (EQ SIZE 13)
|
||||
(SETQ FONT (FONTCREATE NAME 10 FACE NIL NIL T))
|
||||
(SELECTQ (STREAMPROP FILE 'COERCEFONT)
|
||||
(YES T)
|
||||
(NO NIL)
|
||||
(SELECTQ [U-CASE (MKATOM (CL:IF TEXTOBJ
|
||||
(TEDIT.GETINPUT TEXTOBJ
|
||||
"Change font size 13 to 10 ? ")
|
||||
(ASKUSER NIL NIL
|
||||
"Change font size 13 to 10 ? "))]
|
||||
((Y YES)
|
||||
(STREAMPROP FILE 'COERCEFONT 'YES)
|
||||
T)
|
||||
(PROGN (STREAMPROP FILE 'COERCEFONT 'NO)
|
||||
NIL]
|
||||
then
|
||||
(* ;; "A hack to deal with files that have CR-LF corruption")
|
||||
|
||||
(SETQ SIZE 10)
|
||||
(FSETCLOOKS LOOKS CLSIZE 10)
|
||||
else (SETQ FONT (FONTCREATE NAME SIZE FACE)))
|
||||
(FSETCLOOKS LOOKS CLNAME (if (type? FONTCLASS FONT)
|
||||
then
|
||||
(* ;;
|
||||
"Put the display family in the CLNAME spot. Better than NIL.")
|
||||
|
||||
(CL:WHEN [SETQ NAME (FONTCOPY FONT
|
||||
'(DEVICE DISPLAY NOERROR T]
|
||||
(FONTPROP NAME 'FAMILY))
|
||||
else NAME))
|
||||
(FSETCLOOKS LOOKS CLFONT FONT)
|
||||
(SETFILEPTR FILE (IPLUS FILEPOS LOOKSLEN))
|
||||
(RETURN LOOKS])
|
||||
)
|
||||
|
||||
(MOVD 'CR-LF-FONTFIX '\TEDIT.GET.SINGLE.CHARLOOKS)
|
||||
|
||||
[XCL:REINSTALL-ADVICE 'ELT :BEFORE '((:LAST (CL:WHEN (AND (EQ N 13)
|
||||
(ILESSP (ARRAYSIZE A)
|
||||
13))
|
||||
(SETQ N 10]
|
||||
|
||||
(READVISE ELT)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (912 2760 (CRLFSWAP 922 . 1990) (CHANGEPLEN 1992 . 2758)) (2761 9403 (CR-LF-FONTFIX 2771
|
||||
. 9401)))))
|
||||
STOP
|
||||
BIN
library/tedit/TEDIT-FIXFILES.LCOM
Normal file
BIN
library/tedit/TEDIT-FIXFILES.LCOM
Normal file
Binary file not shown.
@@ -1,14 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 1-Aug-2025 14:58:56"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-HISTORY.;252 59126
|
||||
(FILECREATED "19-Feb-2026 12:39:37" {WMEDLEY}<library>tedit>TEDIT-HISTORY.;253 59143
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.UNDO.CHARLOOKS)
|
||||
:CHANGES-TO (FNS \TEDIT.UNDO1)
|
||||
|
||||
:PREVIOUS-DATE "28-Jul-2025 23:47:41"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-HISTORY.;251)
|
||||
:PREVIOUS-DATE " 1-Aug-2025 14:58:56" {WMEDLEY}<library>tedit>TEDIT-HISTORY.;252)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-HISTORYCOMS)
|
||||
@@ -407,7 +405,8 @@
|
||||
(\TEDIT.SHOWSEL SEL T TSTREAM])
|
||||
|
||||
(\TEDIT.UNDO1
|
||||
[LAMBDA (TSTREAM EVENT) (* ; "Edited 6-Apr-2025 14:42 by rmk")
|
||||
[LAMBDA (TSTREAM EVENT) (* ; "Edited 19-Feb-2026 12:39 by rmk")
|
||||
(* ; "Edited 6-Apr-2025 14:42 by rmk")
|
||||
(* ; "Edited 1-Apr-2025 21:22 by rmk")
|
||||
(* ; "Edited 28-Mar-2025 14:22 by rmk")
|
||||
(* ; "Edited 16-Mar-2025 18:46 by rmk")
|
||||
@@ -457,7 +456,7 @@
|
||||
(COND
|
||||
(UNDOFN
|
||||
|
||||
(* ;; "<EFBFBD>TEDIT.HISTORY.TYPELST is an ALST of form (type redofn undofn)")
|
||||
(* ;; "TEDIT.HISTORY.TYPELST is an ALST of form (type redofn undofn)")
|
||||
|
||||
(APPLY* UNDOFN TSTREAM EVENT (GETTH EVENT THLEN)
|
||||
(GETTH EVENT THCH#)
|
||||
@@ -920,15 +919,15 @@
|
||||
(\TEDIT.THELP 'Redo-composite])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (5022 6043 (\TEDIT.HISTORYEVENT.DEFPRINT 5032 . 6041)) (7133 18387 (\TEDIT.HISTORYADD
|
||||
7143 . 12405) (\TEDIT.HISTORYADD.COMPOSITE 12407 . 13439) (\TEDIT.CUMULATE.EVENTS 13441 . 15035) (
|
||||
\TEDIT.COMPOSITE.EVENT 15037 . 15773) (\TEDIT.HISTORY.PROP 15775 . 17138) (\TEDIT.HISTORY.EVENT 17140
|
||||
. 18211) (\TEDIT.POPEVENT 18213 . 18385)) (18440 37427 (TEDIT.UNDO 18450 . 23326) (\TEDIT.UNDO1 23328
|
||||
. 27666) (TEDIT.REDO 27668 . 34581) (\TEDIT.UNDO.UNDO 34583 . 37425)) (37428 56129 (
|
||||
\TEDIT.UNDO.INSERT 37438 . 38563) (\TEDIT.UNDO.DELETE 38565 . 39577) (\TEDIT.UNDO.MOVE 39579 . 41232)
|
||||
(\TEDIT.UNDO.REPLACE 41234 . 42744) (\TEDIT.UNDO.CHARLOOKS 42746 . 48209) (\TEDIT.UNDO.PARALOOKS 48211
|
||||
. 52040) (\TEDIT.UNDO.PAGELOOKS 52042 . 52600) (\TEDIT.UNDO.COMPOSITE 52602 . 54202) (
|
||||
\TEDIT.UNDO.REPLACECODE 54204 . 54538) (\TEDIT.UNDO.WRAP 54540 . 55469) (\TEDIT.UNDO.SEL 55471 . 56127
|
||||
)) (56130 59103 (\TEDIT.REDO.INSERT 56140 . 57102) (\TEDIT.REDO.REPLACE 57104 . 58710) (
|
||||
\TEDIT.REDO.COMPOSITE 58712 . 59101)))))
|
||||
(FILEMAP (NIL (4931 5952 (\TEDIT.HISTORYEVENT.DEFPRINT 4941 . 5950)) (7042 18296 (\TEDIT.HISTORYADD
|
||||
7052 . 12314) (\TEDIT.HISTORYADD.COMPOSITE 12316 . 13348) (\TEDIT.CUMULATE.EVENTS 13350 . 14944) (
|
||||
\TEDIT.COMPOSITE.EVENT 14946 . 15682) (\TEDIT.HISTORY.PROP 15684 . 17047) (\TEDIT.HISTORY.EVENT 17049
|
||||
. 18120) (\TEDIT.POPEVENT 18122 . 18294)) (18349 37444 (TEDIT.UNDO 18359 . 23235) (\TEDIT.UNDO1 23237
|
||||
. 27683) (TEDIT.REDO 27685 . 34598) (\TEDIT.UNDO.UNDO 34600 . 37442)) (37445 56146 (
|
||||
\TEDIT.UNDO.INSERT 37455 . 38580) (\TEDIT.UNDO.DELETE 38582 . 39594) (\TEDIT.UNDO.MOVE 39596 . 41249)
|
||||
(\TEDIT.UNDO.REPLACE 41251 . 42761) (\TEDIT.UNDO.CHARLOOKS 42763 . 48226) (\TEDIT.UNDO.PARALOOKS 48228
|
||||
. 52057) (\TEDIT.UNDO.PAGELOOKS 52059 . 52617) (\TEDIT.UNDO.COMPOSITE 52619 . 54219) (
|
||||
\TEDIT.UNDO.REPLACECODE 54221 . 54555) (\TEDIT.UNDO.WRAP 54557 . 55486) (\TEDIT.UNDO.SEL 55488 . 56144
|
||||
)) (56147 59120 (\TEDIT.REDO.INSERT 56157 . 57119) (\TEDIT.REDO.REPLACE 57121 . 58727) (
|
||||
\TEDIT.REDO.COMPOSITE 58729 . 59118)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "16-Feb-2026 00:36:00" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;467 155443
|
||||
(FILECREATED "10-Apr-2026 09:34:11" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;469 155253
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.MCCS.TRANSLATE)
|
||||
|
||||
:PREVIOUS-DATE "10-Feb-2026 11:07:12" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;465)
|
||||
:PREVIOUS-DATE " 9-Apr-2026 17:25:54" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;468)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-LOOKSCOMS)
|
||||
@@ -924,7 +924,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.MCCS.TRANSLATE
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 16-Feb-2026 00:35 by rmk")
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 10-Apr-2026 09:34 by rmk")
|
||||
(* ; "Edited 16-Feb-2026 00:35 by rmk")
|
||||
(* ; "Edited 6-Oct-2025 20:50 by rmk")
|
||||
(* ; "Edited 5-Oct-2025 10:57 by rmk")
|
||||
(* ; "Edited 25-Sep-2025 21:30 by rmk")
|
||||
@@ -972,14 +973,9 @@
|
||||
THINSTRING.PTYPE))
|
||||
(FSETPC PC PCONTENTS STRING)
|
||||
(FSETPC PC PFPOS NIL)
|
||||
(FSETPC PC PBINABLE (NOT FAT))
|
||||
(FSETPC PC PBYTESPERCHAR (CL:IF FAT
|
||||
2
|
||||
1))
|
||||
(FSETPC PC PBYTELEN (CL:IF FAT
|
||||
(UNFOLD (PLEN PC)
|
||||
2)
|
||||
(PLEN PC)))
|
||||
(CL:UNLESS (EQ 'MCCS (fetch (FONTDESCRIPTOR FONTCHARENCODING) of CLFONT))
|
||||
|
||||
(* ;;
|
||||
@@ -2472,18 +2468,18 @@
|
||||
\TEDIT.UNPARSE.CHARLOOKS.LIST 40951 . 44445) (\TEDIT.MODIFYLOOKS 44447 . 46607) (TEDIT.NEW.FONT 46609
|
||||
. 47056) (\TEDIT.CARETLOOKS.VERIFY 47058 . 47895) (\TEDIT.CARETPIECE 47897 . 48202) (
|
||||
\TEDIT.GET.INSERT.CHARLOOKS 48204 . 51251) (\TEDIT.GET.TERMSA.WIDTHS 51253 . 51669) (
|
||||
\TEDIT.PARSE.CHARLOOKS.LIST 51671 . 52871)) (52874 64879 (\TEDIT.MCCS.TRANSLATE 52884 . 58615) (
|
||||
\TEDIT.CONVERT.TO.FORMATTED 58617 . 64877)) (65751 73088 (\TEDIT.UNIQUIFY.CHARLOOKS 65761 . 67421) (
|
||||
\TEDIT.UNIQUIFY.PARALOOKS 67423 . 68690) (\TEDIT.UNIQUIFY.ALL 68692 . 70780) (
|
||||
\TEDIT.FLUSH.UNUSED.LOOKS 70782 . 73086)) (73121 85079 (TEDIT.LOOKS 73131 . 75520) (TEDIT.GET.LOOKS
|
||||
75522 . 77857) (TEDIT.SUBLOOKS 77859 . 82239) (TEDIT.FINDLOOKS 82241 . 85077)) (85080 114853 (
|
||||
\TEDIT.CHANGE.CHARLOOKS 85090 . 93991) (\TEDIT.CHANGE.CHARLOOKS.NEW 93993 . 97808) (
|
||||
\TEDIT.CHARLOOKS.CHANGE.FONT 97810 . 106117) (\TEDIT.FONT.NEXTSIZE 106119 . 107740) (\TEDIT.LOOKS
|
||||
107742 . 111071) (\TEDIT.FONTCOPY 111073 . 112574) (\TEDIT.COERCE.FONTCLASS 112576 . 113727) (
|
||||
\TEDIT.FONTCLASS.TO.FONT 113729 . 114851)) (114896 146785 (\TEDIT.EQFMTSPEC 114906 . 118121) (
|
||||
TEDIT.GET.PARALOOKS 118123 . 122170) (\TEDIT.PARSE.PARALOOKS.LIST 122172 . 130205) (TEDIT.PARALOOKS
|
||||
130207 . 131247) (\TEDIT.CHANGE.PARALOOKS 131249 . 138458) (\TEDIT.CHANGE.PARALOOKS.NEW 138460 .
|
||||
142443) (TEDIT.COPY.PARALOOKS 142445 . 145119) (\TEDIT.PARABOUNDS 145121 . 146783)) (146845 154561 (
|
||||
TEDIT.SUBPARALOOKS 146855 . 150957) (SAMEPARALOOKS 150959 . 154559)) (154562 155249 (
|
||||
\TEDIT.MARK.REVISION 154572 . 155247)))))
|
||||
\TEDIT.PARSE.CHARLOOKS.LIST 51671 . 52871)) (52874 64689 (\TEDIT.MCCS.TRANSLATE 52884 . 58425) (
|
||||
\TEDIT.CONVERT.TO.FORMATTED 58427 . 64687)) (65561 72898 (\TEDIT.UNIQUIFY.CHARLOOKS 65571 . 67231) (
|
||||
\TEDIT.UNIQUIFY.PARALOOKS 67233 . 68500) (\TEDIT.UNIQUIFY.ALL 68502 . 70590) (
|
||||
\TEDIT.FLUSH.UNUSED.LOOKS 70592 . 72896)) (72931 84889 (TEDIT.LOOKS 72941 . 75330) (TEDIT.GET.LOOKS
|
||||
75332 . 77667) (TEDIT.SUBLOOKS 77669 . 82049) (TEDIT.FINDLOOKS 82051 . 84887)) (84890 114663 (
|
||||
\TEDIT.CHANGE.CHARLOOKS 84900 . 93801) (\TEDIT.CHANGE.CHARLOOKS.NEW 93803 . 97618) (
|
||||
\TEDIT.CHARLOOKS.CHANGE.FONT 97620 . 105927) (\TEDIT.FONT.NEXTSIZE 105929 . 107550) (\TEDIT.LOOKS
|
||||
107552 . 110881) (\TEDIT.FONTCOPY 110883 . 112384) (\TEDIT.COERCE.FONTCLASS 112386 . 113537) (
|
||||
\TEDIT.FONTCLASS.TO.FONT 113539 . 114661)) (114706 146595 (\TEDIT.EQFMTSPEC 114716 . 117931) (
|
||||
TEDIT.GET.PARALOOKS 117933 . 121980) (\TEDIT.PARSE.PARALOOKS.LIST 121982 . 130015) (TEDIT.PARALOOKS
|
||||
130017 . 131057) (\TEDIT.CHANGE.PARALOOKS 131059 . 138268) (\TEDIT.CHANGE.PARALOOKS.NEW 138270 .
|
||||
142253) (TEDIT.COPY.PARALOOKS 142255 . 144929) (\TEDIT.PARABOUNDS 144931 . 146593)) (146655 154371 (
|
||||
TEDIT.SUBPARALOOKS 146665 . 150767) (SAMEPARALOOKS 150769 . 154369)) (154372 155059 (
|
||||
\TEDIT.MARK.REVISION 154382 . 155057)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED " 9-Feb-2026 09:10:43" {WMEDLEY}<library>tedit>TEDIT-MENU.;510 183027
|
||||
(FILECREATED "29-Apr-2026 15:35:33" {MEDLEY}<library>TEDIT>TEDIT-MENU.;512 183159
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.PAGEMENU.CREATE)
|
||||
:CHANGES-TO (FNS \TEDIT.SHOW.PAGELOOKS)
|
||||
|
||||
:PREVIOUS-DATE "27-Jan-2026 10:42:09" {WMEDLEY}<library>tedit>TEDIT-MENU.;508)
|
||||
:PREVIOUS-DATE " 9-Feb-2026 09:10:43" {MEDLEY}<library>TEDIT>TEDIT-MENU.;510)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-MENUCOMS)
|
||||
@@ -2525,7 +2525,8 @@
|
||||
'PAGE))])
|
||||
|
||||
(\TEDIT.SHOW.PAGELOOKS
|
||||
[LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM) (* ; "Edited 20-Apr-2025 23:41 by rmk")
|
||||
[LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM) (* ; "Edited 29-Apr-2026 15:35 by rmk")
|
||||
(* ; "Edited 20-Apr-2025 23:41 by rmk")
|
||||
(* ; "Edited 22-Oct-2024 11:04 by rmk")
|
||||
(* ; "Edited 20-Oct-2024 17:32 by rmk")
|
||||
(* ; "Edited 29-Sep-2024 15:10 by rmk")
|
||||
@@ -2538,19 +2539,18 @@
|
||||
|
||||
(* ;; "OBJ is unused, presumably to have a standard interface with other menu functions that update image objects.")
|
||||
|
||||
(PROG [(PAGEID (MB.GET 'PAGEID MENUSTREAM 'STATE]
|
||||
(CL:WHEN (MEMB PAGEID '(NIL OFF))
|
||||
(TEDIT.PROMPTPRINT MENUWINDOW "Please specify the page-type" T T)
|
||||
(RETURN))
|
||||
(RESETLST
|
||||
(TEDIT.DEFER.UPDATES MENUSTREAM)
|
||||
(\TEDIT.PAGEMENU.FILLIN MENUSTREAM (\TEDIT.PAGEREGION.UNPARSE (\TEDIT.MAINSTREAM
|
||||
(LET [(PAGEID (MB.GET 'PAGEID MENUSTREAM 'STATE]
|
||||
(if (MEMB PAGEID '(NIL OFF))
|
||||
then (TEDIT.PROMPTPRINT MENUWINDOW "Please specify the page-type" T T)
|
||||
else (RESETLST
|
||||
(TEDIT.DEFER.UPDATES MENUSTREAM)
|
||||
(\TEDIT.PAGEMENU.FILLIN MENUSTREAM (\TEDIT.PAGEREGION.UNPARSE (\TEDIT.MAINSTREAM
|
||||
MENUSTREAM)
|
||||
PAGEID)))
|
||||
(FSETSEL MENUSEL ONFLG T)
|
||||
(\TEDIT.UPDATE.SEL MENUSEL 1 0 'LEFT)
|
||||
(\TEDIT.FIXSEL MENUSEL MENUSTREAM)
|
||||
(TEDIT.BACKTOMAIN MENUSTREAM])
|
||||
PAGEID)))
|
||||
(FSETSEL MENUSEL ONFLG T)
|
||||
(\TEDIT.UPDATE.SEL MENUSEL 1 0 'LEFT)
|
||||
(\TEDIT.FIXSEL MENUSEL MENUSTREAM))
|
||||
(TEDIT.BACKTOMAIN MENUSTREAM])
|
||||
|
||||
(\TEDIT.PAGEMENU.FILLIN
|
||||
[LAMBDA (MENUSTREAM PAGELOOKS) (* ; "Edited 29-Sep-2024 12:53 by rmk")
|
||||
@@ -2899,32 +2899,32 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4936 16574 (TEDIT.ADD.MENUITEM 4946 . 7063) (TEDIT.DEFAULT.MENUFN 7065 . 13786) (
|
||||
TEDIT.REMOVE.MENUITEM 13788 . 14785) (\TEDIT.CREATEMENU 14787 . 15352) (\TEDIT.MENU.WHENHELDFN 15354
|
||||
. 16259) (\TEDIT.MENU.WHENSELECTEDFN 16261 . 16572)) (17388 65423 (DRAWMARGINSCALE 17398 . 20857) (
|
||||
MARGINBAR 20859 . 27984) (MARGINBAR.CREATE 27986 . 32184) (MB.MARGINBAR.BUTTONEVENTINFN 32186 . 39988)
|
||||
(MB.MARGINBAR.SELFN.TABS 39990 . 45230) (MB.MARGINBAR.SELFN.TABS.KIND 45232 . 46167) (
|
||||
MARGINBAR.GETSTATEFN 46169 . 50156) (MARGINBAR.SETSTATEFN 50158 . 50368) (MARGINBAR.NEUTRALIZE 50370
|
||||
. 51045) (MARGINBAR.LOOKS 51047 . 54153) (MB.MARGINBAR.SIZEFN 54155 . 54941) (MB.MARGINBAR.DISPLAYFN
|
||||
54943 . 58004) (MDESCALE 58006 . 58546) (MSCALE 58548 . 58878) (MB.MARGINBAR.SHOWTAB 58880 . 61203) (
|
||||
MB.MARGINBAR.TABTRACK 61205 . 62590) (MARGINBAR.INIT 62592 . 63985) (\TEDIT.PARALOOKS.TO.MARBAR 63987
|
||||
. 65421)) (66248 73530 (TEDIT.MENUSTREAM 66258 . 67258) (TEDITMENUP 67260 . 68229) (\TEDIT.MENU.START
|
||||
68231 . 72578) (\TEDIT.MENU.OPEN? 72580 . 72954) (\TEDIT.MENU.BUTTONEVENTFN 72956 . 73528)) (73849
|
||||
81900 (\TEDIT.MENU.CREATE 73859 . 75799) (\TEDIT.MENU.PARSE 75801 . 79490) (\TEDIT.MENU.NEUTRALIZE
|
||||
79492 . 81563) (\TEDITMENU.RECORD.UNFORMATTED 81565 . 81898)) (81966 101368 (
|
||||
\TEDIT.EXPANDEDMENU.CREATE 81976 . 87654) (\TEDIT.EXPANDEDMENU.START 87656 . 89280) (
|
||||
\TEDIT.EXPANDEDMENU.FN 89282 . 92537) (\TEDIT.EXPANDEDMENU.ACTIONFN 92539 . 101366)) (101430 120855 (
|
||||
\TEDIT.PARAMENU.CREATE 101440 . 110171) (\TEDIT.PARAMENU.START 110173 . 111427) (
|
||||
\TEDIT.APPLY.PARALOOKS 111429 . 112481) (\TEDIT.SHOW.PARALOOKS 112483 . 115200) (
|
||||
\TEDIT.PARAMENU.FILLIN 115202 . 119951) (\TEDIT.PARAMENU.RESHAPEFN 119953 . 120853)) (121049 147891 (
|
||||
\TEDIT.CHARMENU.CREATE 121059 . 123663) (\TEDIT.CHARMENU.START 123665 . 124955) (\TEDIT.CHARMENU.SPEC
|
||||
124957 . 129640) (\TEDIT.CHARMENU.PARSE 129642 . 132810) (\TEDIT.CHARMENU.FILLIN 132812 . 137442) (
|
||||
\TEDIT.SHOW.CHARLOOKS 137444 . 140989) (\TEDIT.APPLY.CHARLOOKS 140991 . 142152) (
|
||||
\TEDIT.OFFSETTYPE.STATEFN 142154 . 144117) (\TEDIT.OTHER.STATECHANGEFN 144119 . 145764) (
|
||||
\TEDIT.OTHER.SELECTFN 145766 . 147889)) (147953 177067 (\TEDIT.PAGEMENU.CREATE 147963 . 156484) (
|
||||
\TEDIT.PAGEMENU.START 156486 . 156837) (\TEDIT.SHOW.PAGELOOKS 156839 . 158725) (\TEDIT.PAGEMENU.FILLIN
|
||||
158727 . 160277) (\TEDIT.PAGEREGION.UNPARSE 160279 . 169678) (\TEDIT.APPLY.PAGELOOKS 169680 . 171607)
|
||||
(\TEDIT.CHANGE.PAGELOOKS 171609 . 176223) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176225 . 177065)) (
|
||||
177068 182871 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177078 . 179890) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN
|
||||
179892 . 181317) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181319 . 182869)))))
|
||||
(FILEMAP (NIL (4933 16571 (TEDIT.ADD.MENUITEM 4943 . 7060) (TEDIT.DEFAULT.MENUFN 7062 . 13783) (
|
||||
TEDIT.REMOVE.MENUITEM 13785 . 14782) (\TEDIT.CREATEMENU 14784 . 15349) (\TEDIT.MENU.WHENHELDFN 15351
|
||||
. 16256) (\TEDIT.MENU.WHENSELECTEDFN 16258 . 16569)) (17385 65420 (DRAWMARGINSCALE 17395 . 20854) (
|
||||
MARGINBAR 20856 . 27981) (MARGINBAR.CREATE 27983 . 32181) (MB.MARGINBAR.BUTTONEVENTINFN 32183 . 39985)
|
||||
(MB.MARGINBAR.SELFN.TABS 39987 . 45227) (MB.MARGINBAR.SELFN.TABS.KIND 45229 . 46164) (
|
||||
MARGINBAR.GETSTATEFN 46166 . 50153) (MARGINBAR.SETSTATEFN 50155 . 50365) (MARGINBAR.NEUTRALIZE 50367
|
||||
. 51042) (MARGINBAR.LOOKS 51044 . 54150) (MB.MARGINBAR.SIZEFN 54152 . 54938) (MB.MARGINBAR.DISPLAYFN
|
||||
54940 . 58001) (MDESCALE 58003 . 58543) (MSCALE 58545 . 58875) (MB.MARGINBAR.SHOWTAB 58877 . 61200) (
|
||||
MB.MARGINBAR.TABTRACK 61202 . 62587) (MARGINBAR.INIT 62589 . 63982) (\TEDIT.PARALOOKS.TO.MARBAR 63984
|
||||
. 65418)) (66245 73527 (TEDIT.MENUSTREAM 66255 . 67255) (TEDITMENUP 67257 . 68226) (\TEDIT.MENU.START
|
||||
68228 . 72575) (\TEDIT.MENU.OPEN? 72577 . 72951) (\TEDIT.MENU.BUTTONEVENTFN 72953 . 73525)) (73846
|
||||
81897 (\TEDIT.MENU.CREATE 73856 . 75796) (\TEDIT.MENU.PARSE 75798 . 79487) (\TEDIT.MENU.NEUTRALIZE
|
||||
79489 . 81560) (\TEDITMENU.RECORD.UNFORMATTED 81562 . 81895)) (81963 101365 (
|
||||
\TEDIT.EXPANDEDMENU.CREATE 81973 . 87651) (\TEDIT.EXPANDEDMENU.START 87653 . 89277) (
|
||||
\TEDIT.EXPANDEDMENU.FN 89279 . 92534) (\TEDIT.EXPANDEDMENU.ACTIONFN 92536 . 101363)) (101427 120852 (
|
||||
\TEDIT.PARAMENU.CREATE 101437 . 110168) (\TEDIT.PARAMENU.START 110170 . 111424) (
|
||||
\TEDIT.APPLY.PARALOOKS 111426 . 112478) (\TEDIT.SHOW.PARALOOKS 112480 . 115197) (
|
||||
\TEDIT.PARAMENU.FILLIN 115199 . 119948) (\TEDIT.PARAMENU.RESHAPEFN 119950 . 120850)) (121046 147888 (
|
||||
\TEDIT.CHARMENU.CREATE 121056 . 123660) (\TEDIT.CHARMENU.START 123662 . 124952) (\TEDIT.CHARMENU.SPEC
|
||||
124954 . 129637) (\TEDIT.CHARMENU.PARSE 129639 . 132807) (\TEDIT.CHARMENU.FILLIN 132809 . 137439) (
|
||||
\TEDIT.SHOW.CHARLOOKS 137441 . 140986) (\TEDIT.APPLY.CHARLOOKS 140988 . 142149) (
|
||||
\TEDIT.OFFSETTYPE.STATEFN 142151 . 144114) (\TEDIT.OTHER.STATECHANGEFN 144116 . 145761) (
|
||||
\TEDIT.OTHER.SELECTFN 145763 . 147886)) (147950 177199 (\TEDIT.PAGEMENU.CREATE 147960 . 156481) (
|
||||
\TEDIT.PAGEMENU.START 156483 . 156834) (\TEDIT.SHOW.PAGELOOKS 156836 . 158857) (\TEDIT.PAGEMENU.FILLIN
|
||||
158859 . 160409) (\TEDIT.PAGEREGION.UNPARSE 160411 . 169810) (\TEDIT.APPLY.PAGELOOKS 169812 . 171739)
|
||||
(\TEDIT.CHANGE.PAGELOOKS 171741 . 176355) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176357 . 177197)) (
|
||||
177200 183003 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177210 . 180022) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN
|
||||
180024 . 181449) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181451 . 183001)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED " 8-Sep-2025 22:10:10" {WMEDLEY}<library>TEDIT>TEDIT-OLDFILE.;40 73888
|
||||
(FILECREATED "10-Apr-2026 09:29:21" {WMEDLEY}<library>tedit>TEDIT-OLDFILE.;45 73241
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.GET.PCTB2)
|
||||
:CHANGES-TO (FNS \TEDIT.GET.PCTB2 \TEDIT.GET.PCTB1 \TEDIT.GET.PCTB0)
|
||||
|
||||
:PREVIOUS-DATE " 7-Sep-2025 11:07:57" {WMEDLEY}<library>TEDIT>TEDIT-OLDFILE.;39)
|
||||
:PREVIOUS-DATE "10-Apr-2026 00:16:32" {WMEDLEY}<library>tedit>TEDIT-OLDFILE.;41)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-OLDFILECOMS)
|
||||
@@ -46,23 +46,18 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.GET.PCTB2
|
||||
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 8-Sep-2025 22:08 by rmk")
|
||||
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 10-Apr-2026 09:28 by rmk")
|
||||
(* ; "Edited 8-Sep-2025 22:08 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 14:55 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:39 by rmk")
|
||||
(* ; "Edited 8-Feb-2025 20:21 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
(* ; "Edited 29-Apr-2024 10:28 by rmk")
|
||||
(* ; "Edited 20-Mar-2024 11:00 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 12:41 by rmk")
|
||||
(* ; "Edited 15-Mar-2024 14:37 by rmk")
|
||||
(* ; "Edited 21-Jan-2024 10:21 by rmk")
|
||||
(* ; "Edited 13-Jan-2024 12:09 by rmk")
|
||||
(* ; "Edited 19-Dec-2023 10:13 by rmk")
|
||||
(* ; "Edited 25-Nov-2023 23:18 by rmk")
|
||||
(* ; "Edited 8-Nov-2023 13:48 by rmk")
|
||||
(* ; "Edited 4-Oct-2022 16:58 by rmk")
|
||||
(* ; "Edited 8-Sep-2022 23:06 by rmk")
|
||||
(* ; "Edited 5-Sep-2022 21:33 by rmk")
|
||||
(* ; "Edited 4-May-93 16:27 by jds")
|
||||
|
||||
(* ;; "READ OBSOLETE FORMATS OF TEDIT FILE")
|
||||
@@ -80,8 +75,7 @@
|
||||
(SETQ PIECEINFOCH# (\DWIN TEXT))
|
||||
(SETFILEPTR TEXT PIECEINFOCH#)
|
||||
(bind PC TYPECODE PCLEN OLDPC (DEFAULTCHARLOOKS _ (FGETTOBJ TEXTOBJ DEFAULTCHARLOOKS))
|
||||
(OLDPARALOOKS _ (FGETTOBJ TEXTOBJ DEFAULTPARALOOKS))
|
||||
(SBINABLE _ (fetch (STREAM BINABLE) of TEXT)) for I from 1 to PCCOUNT
|
||||
(OLDPARALOOKS _ (FGETTOBJ TEXTOBJ DEFAULTPARALOOKS)) for I from 1 to PCCOUNT
|
||||
do (SETQ PC NIL) (* ;
|
||||
"This loop may not really read a piece, so we have to distinguish that case.")
|
||||
(SETQ PCLEN (\DWIN TEXT))
|
||||
@@ -131,37 +125,35 @@
|
||||
(create PIECE
|
||||
PCONTENTS _ TEXT
|
||||
PFPOS _ CURFILECH#
|
||||
PBYTELEN _ PCLEN
|
||||
PLEN _ PCLEN
|
||||
PPARALOOKS _ OLDPARALOOKS
|
||||
PTYPE _ THINFILE.PTYPE
|
||||
PBYTESPERCHAR _ 1)) (* ; "Build the new piece")
|
||||
(\TEDIT.GET.CHARLOOKS2 PC TEXT LOOKSHASH)
|
||||
(CL:WHEN (EQ THINFILE.PTYPE (PTYPE PC))
|
||||
(FSETPC PC PBINABLE SBINABLE))(* ;
|
||||
(* ;
|
||||
"Read the character looks for this guy.")
|
||||
(COND
|
||||
[OLDPC (* ;
|
||||
(if OLDPC
|
||||
then (* ;
|
||||
"If there's a prior piece, hook this one on the chain.")
|
||||
(COND
|
||||
([AND (EQ FATFILE2.PTYPE (PTYPE PC))
|
||||
(NOT (EQ FATFILE2.PTYPE (PTYPE OLDPC]
|
||||
(* ;
|
||||
(if [AND (EQ FATFILE2.PTYPE (PTYPE PC))
|
||||
(NOT (EQ FATFILE2.PTYPE (PTYPE OLDPC]
|
||||
then (* ;
|
||||
"Switching from not-fat to fat. Add 3 bytes for the 255-255-0")
|
||||
(add (PFPOS PC)
|
||||
3)
|
||||
(add CURFILECH# -3))
|
||||
([AND (EQ FATFILE2.PTYPE (PTYPE OLDPC))
|
||||
(NOT (EQ FATFILE2.PTYPE (PTYPE PC]
|
||||
(* ;
|
||||
(add (PFPOS PC)
|
||||
3)
|
||||
(add CURFILECH# -3)
|
||||
elseif [AND (EQ FATFILE2.PTYPE (PTYPE OLDPC))
|
||||
(NOT (EQ FATFILE2.PTYPE (PTYPE PC]
|
||||
then (* ;
|
||||
"Switching from fat to not-fat. Add 3 bytes for the 255-0")
|
||||
(add (PFPOS PC)
|
||||
2]
|
||||
((EQ FATFILE2.PTYPE (PTYPE PC)) (* ;
|
||||
(add (PFPOS PC)
|
||||
2))
|
||||
elseif (EQ FATFILE2.PTYPE (PTYPE PC))
|
||||
then (* ;
|
||||
"Switching from not-fat to fat. Add 3 bytes for the 255-255-0")
|
||||
(add (PFPOS PC)
|
||||
3)
|
||||
(add CURFILECH# -3))) (* ;
|
||||
(add (PFPOS PC)
|
||||
3)
|
||||
(add CURFILECH# -3)) (* ;
|
||||
"And note the passing of characters.")
|
||||
(add CURFILECH# PCLEN))
|
||||
(\PieceDescriptorOBJECT (* ;
|
||||
@@ -580,7 +572,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.GET.PCTB1
|
||||
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 1-Aug-2025 14:56 by rmk")
|
||||
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 10-Apr-2026 09:25 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 14:56 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:39 by rmk")
|
||||
(* ; "Edited 8-Feb-2025 20:22 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
@@ -612,8 +605,7 @@
|
||||
(SETQ PIECEINFOCH# (\DWIN TEXT))
|
||||
(SETFILEPTR TEXT PIECEINFOCH#)
|
||||
(bind PC TYPECODE PCLEN OLDPC (DEFAULTCHARLOOKS _ (FGETTOBJ TEXTOBJ DEFAULTCHARLOOKS))
|
||||
(OLDPARALOOKS _ (FGETTOBJ TEXTOBJ DEFAULTPARALOOKS))
|
||||
(SBINABLE _ (fetch (STREAM BINABLE) of TEXT)) for I from 1 to PCCOUNT
|
||||
(OLDPARALOOKS _ (FGETTOBJ TEXTOBJ DEFAULTPARALOOKS)) for I from 1 to PCCOUNT
|
||||
do (SETQ PC NIL) (* ;
|
||||
"This loop may not really read a piece, so we have to distinguish that case.")
|
||||
(SETQ PCLEN (\DWIN TEXT))
|
||||
@@ -640,13 +632,11 @@
|
||||
(create PIECE
|
||||
PCONTENTS _ TEXT
|
||||
PFPOS _ CURFILECH#
|
||||
PBYTELEN _ PCLEN
|
||||
PLEN _ PCLEN
|
||||
PPARALOOKS _ OLDPARALOOKS
|
||||
PTYPE _ THINFILE.PTYPE
|
||||
PBYTESPERCHAR _ 1))
|
||||
(\TEDIT.GET.CHARLOOKS1 PC TEXT)
|
||||
(FSETPC PC PBINABLE SBINABLE) (* ;
|
||||
(\TEDIT.GET.CHARLOOKS1 PC TEXT) (* ;
|
||||
"Read the character looks for this guy.")
|
||||
(add CURFILECH# (PLEN PC)) (* ;
|
||||
"And note the passing of characters.")
|
||||
@@ -891,7 +881,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.GET.PCTB0
|
||||
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 8-Feb-2025 20:22 by rmk")
|
||||
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 10-Apr-2026 09:22 by rmk")
|
||||
(* ; "Edited 8-Feb-2025 20:22 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
(* ; "Edited 29-Apr-2024 10:27 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 12:41 by rmk")
|
||||
@@ -908,7 +899,7 @@
|
||||
|
||||
(LET ((TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)))
|
||||
OLDPC TYPECODE PCLEN PIECEINFOCH# TSTREAM USERFILEFORMAT USERTEMP (CURFILECH# (OR START 0))
|
||||
(SBINABLE (fetch (STREAM BINABLE) of TEXT)))
|
||||
)
|
||||
(SETFILEPTR TEXT (IDIFFERENCE (OR END (GETEOFPTR TEXT))
|
||||
8))
|
||||
(SETQ PIECEINFOCH# (\DWIN TEXT))
|
||||
@@ -924,8 +915,7 @@
|
||||
PREVPIECE _ OLDPC
|
||||
PPARALOOKS _ DEFAULTPARALOOKS
|
||||
PTYPE _ THINFILE.PTYPE
|
||||
PBYTESPERCHAR _ 1
|
||||
PBINABLE _ SBINABLE))
|
||||
PBYTESPERCHAR _ 1))
|
||||
[COND
|
||||
(OLDPC (FSETPC OLDPC NEXTPIECE PC)
|
||||
(FSETPC PC PPARALOOKS (PPARALOOKS OLDPC]
|
||||
@@ -1100,14 +1090,14 @@
|
||||
PARALOOKS])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1649 37832 (\TEDIT.GET.PCTB2 1659 . 12415) (\TEDIT.GET.PARALOOKS2 12417 . 13006) (
|
||||
\TEDIT.GET.CHARLOOKS2 13008 . 14565) (\TEDIT.PARSE.PAGEFRAMES2 14567 . 17306) (
|
||||
\TEDIT.GET.CHARLOOKS.LIST2 17308 . 17815) (\TEDIT.GET.SINGLE.CHARLOOKS2 17817 . 21176) (
|
||||
\TEDIT.PUT.SINGLE.PARALOOKS2 21178 . 25428) (\TEDIT.PUT.SINGLE.CHARLOOKS2 25430 . 29140) (
|
||||
\TEDIT.GET.PARALOOKS.LIST2 29142 . 29649) (\TEDIT.GET.SINGLE.PARALOOKS2 29651 . 34550) (
|
||||
\TEDIT.PUT.CHARLOOKS.LIST2 34552 . 36631) (\TEDIT.PUT.PARALOOKS.LIST2 36633 . 37830)) (37909 59190 (
|
||||
\TEDIT.GET.PCTB1 37919 . 44936) (\TEDIT.GET.PAGEFRAMES1 44938 . 45390) (\TEDIT.PARSE.PAGEFRAMES1 45392
|
||||
. 48045) (\TEDIT.GET.CHARLOOKS1 48047 . 52413) (\TEDIT.GET.PARALOOKS1 52415 . 57326) (
|
||||
TEDIT.GET.OBJECT1 57328 . 59188)) (59250 73865 (\TEDIT.GET.PCTB0 59260 . 63341) (\TEDIT.GET.CHARLOOKS0
|
||||
63343 . 67783) (\TEDIT.GET.OBJECT0 67785 . 69860) (\TEDIT.GET.PARALOOKS0 69862 . 73863)))))
|
||||
(FILEMAP (NIL (1683 37235 (\TEDIT.GET.PCTB2 1693 . 11818) (\TEDIT.GET.PARALOOKS2 11820 . 12409) (
|
||||
\TEDIT.GET.CHARLOOKS2 12411 . 13968) (\TEDIT.PARSE.PAGEFRAMES2 13970 . 16709) (
|
||||
\TEDIT.GET.CHARLOOKS.LIST2 16711 . 17218) (\TEDIT.GET.SINGLE.CHARLOOKS2 17220 . 20579) (
|
||||
\TEDIT.PUT.SINGLE.PARALOOKS2 20581 . 24831) (\TEDIT.PUT.SINGLE.CHARLOOKS2 24833 . 28543) (
|
||||
\TEDIT.GET.PARALOOKS.LIST2 28545 . 29052) (\TEDIT.GET.SINGLE.PARALOOKS2 29054 . 33953) (
|
||||
\TEDIT.PUT.CHARLOOKS.LIST2 33955 . 36034) (\TEDIT.PUT.PARALOOKS.LIST2 36036 . 37233)) (37312 58528 (
|
||||
\TEDIT.GET.PCTB1 37322 . 44274) (\TEDIT.GET.PAGEFRAMES1 44276 . 44728) (\TEDIT.PARSE.PAGEFRAMES1 44730
|
||||
. 47383) (\TEDIT.GET.CHARLOOKS1 47385 . 51751) (\TEDIT.GET.PARALOOKS1 51753 . 56664) (
|
||||
TEDIT.GET.OBJECT1 56666 . 58526)) (58588 73218 (\TEDIT.GET.PCTB0 58598 . 62694) (\TEDIT.GET.CHARLOOKS0
|
||||
62696 . 67136) (\TEDIT.GET.OBJECT0 67138 . 69213) (\TEDIT.GET.PARALOOKS0 69215 . 73216)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,13 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "27-Jan-2026 10:30:27" {WMEDLEY}<library>TEDIT>TEDIT-PAGE.;243 130855
|
||||
(FILECREATED " 6-May-2026 22:17:41" {MEDLEY}<library>TEDIT>TEDIT-PAGE.;244 130772
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS TEDIT.SINGLE.PAGEFORMAT)
|
||||
(VARS TEDIT-PAGECOMS)
|
||||
:CHANGES-TO (FNS TEDIT.TO.IMAGEFILE)
|
||||
|
||||
:PREVIOUS-DATE "17-Jan-2026 12:00:08" {WMEDLEY}<library>TEDIT>TEDIT-PAGE.;241)
|
||||
:PREVIOUS-DATE "27-Jan-2026 10:30:27" {MEDLEY}<library>TEDIT>TEDIT-PAGE.;243)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-PAGECOMS)
|
||||
@@ -636,7 +635,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(TEDIT.TO.IMAGEFILE
|
||||
[LAMBDA (TSTREAM IMAGEFILE IMAGETYPE OPTIONS) (* ; "Edited 17-Jan-2026 11:59 by rmk")
|
||||
[LAMBDA (TSTREAM IMAGEFILE IMAGETYPE OPTIONS) (* ; "Edited 6-May-2026 22:16 by rmk")
|
||||
(* ; "Edited 17-Jan-2026 11:59 by rmk")
|
||||
(* ; "Edited 15-Jan-2026 08:46 by rmk")
|
||||
(* ; "Edited 25-Dec-2025 15:07 by rmk")
|
||||
(* ; "Edited 20-Dec-2025 23:03 by rmk")
|
||||
@@ -650,11 +650,9 @@
|
||||
|
||||
(RESETLST
|
||||
(SETQ TSTREAM (if (TEXTSTREAM TSTREAM T)
|
||||
elseif (TEDIT.FORMATTEDFILEP TSTREAM)
|
||||
then [RESETSAVE (SETQ TSTREAM (OPENTEXTSTREAM TSTREAM))
|
||||
`(PROGN (CLOSEF? OLDVALUE]
|
||||
TSTREAM
|
||||
else (ERROR TSTREAM "is not a Tedit stream")))
|
||||
else [RESETSAVE (SETQ TSTREAM (OPENTEXTSTREAM TSTREAM))
|
||||
`(PROGN (CLOSEF? OLDVALUE]
|
||||
TSTREAM))
|
||||
(CL:WHEN (GETTEXTPROP TSTREAM 'MENUFLG)
|
||||
(SETQ TSTREAM (TEXTSTREAM (\TEDIT.MAINW TSTREAM))))
|
||||
(CL:UNLESS IMAGEFILE
|
||||
@@ -2062,18 +2060,18 @@
|
||||
(RETURN (DREMOVE NIL $$VAL])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (12248 15860 (\TEDIT.PARSE.PAGEFRAMES 12258 . 14037) (\TEDIT.PUT.PAGEFRAMES 14039 .
|
||||
14863) (\TEDIT.UNPARSE.PAGEFRAMES 14865 . 15858)) (15923 38091 (TEDIT.SINGLE.PAGEFORMAT 15933 . 27077)
|
||||
(TEDIT.COMPOUND.PAGEFORMAT 27079 . 28058) (TEDIT.PAGEFORMAT 28060 . 35349) (TEDIT.GET.PAGEFORMAT
|
||||
35351 . 38089)) (38378 44858 (TEDIT.TO.IMAGEFILE 38388 . 44856)) (45006 98258 (\TEDIT.FORMATBOX 45016
|
||||
. 58440) (\TEDIT.FORMATHEADING 58442 . 63088) (\TEDIT.FORMATPAGE 63090 . 72279) (\TEDIT.FORMATTEXTBOX
|
||||
72281 . 88794) (\TEDIT.FORMATFOLIO 88796 . 94113) (\TEDIT.FORMAT.FOUNDBOX? 94115 . 96154) (
|
||||
\TEDIT.SKIP.SPECIALCOND 96156 . 98256)) (98338 103393 (\TEDIT.HARDCOPY.PAGEHEADINGS 98348 . 103391)) (
|
||||
103502 111553 (\TEDIT.HARDCOPY-COLUMN-END 103512 . 111551)) (111598 116539 (SCALEPAGEUNITS 111608 .
|
||||
112749) (SCALEPAGEXUNITS 112751 . 113521) (SCALEPAGEYUNITS 113523 . 114294) (\TEDIT.PAPERHEIGHT 114296
|
||||
. 115231) (\TEDIT.PAPERWIDTH 115233 . 116537)) (116955 120523 (ROMANNUMERALS 116965 . 120521)) (
|
||||
120562 127828 (TEDIT.PAGENO.CREATE 120572 . 120948) (\TEDIT.PAGENO.OBJINIT 120950 . 122233) (
|
||||
\TEDIT.PAGENO.BUTTONEVENTINFN 122235 . 123301) (\TEDIT.PAGENO.IMAGEBOXFN 123303 . 125453) (
|
||||
\TEDIT.PAGENO.DISPLAYFN 125455 . 127105) (\TEDIT.PAGENO.GETFN 127107 . 127499) (\TEDIT.PAGENO.PUTFN
|
||||
127501 . 127826)) (127893 130832 (\TEDIT.FORMAT.FOOTNOTE 127903 . 130830)))))
|
||||
(FILEMAP (NIL (12201 15813 (\TEDIT.PARSE.PAGEFRAMES 12211 . 13990) (\TEDIT.PUT.PAGEFRAMES 13992 .
|
||||
14816) (\TEDIT.UNPARSE.PAGEFRAMES 14818 . 15811)) (15876 38044 (TEDIT.SINGLE.PAGEFORMAT 15886 . 27030)
|
||||
(TEDIT.COMPOUND.PAGEFORMAT 27032 . 28011) (TEDIT.PAGEFORMAT 28013 . 35302) (TEDIT.GET.PAGEFORMAT
|
||||
35304 . 38042)) (38331 44775 (TEDIT.TO.IMAGEFILE 38341 . 44773)) (44923 98175 (\TEDIT.FORMATBOX 44933
|
||||
. 58357) (\TEDIT.FORMATHEADING 58359 . 63005) (\TEDIT.FORMATPAGE 63007 . 72196) (\TEDIT.FORMATTEXTBOX
|
||||
72198 . 88711) (\TEDIT.FORMATFOLIO 88713 . 94030) (\TEDIT.FORMAT.FOUNDBOX? 94032 . 96071) (
|
||||
\TEDIT.SKIP.SPECIALCOND 96073 . 98173)) (98255 103310 (\TEDIT.HARDCOPY.PAGEHEADINGS 98265 . 103308)) (
|
||||
103419 111470 (\TEDIT.HARDCOPY-COLUMN-END 103429 . 111468)) (111515 116456 (SCALEPAGEUNITS 111525 .
|
||||
112666) (SCALEPAGEXUNITS 112668 . 113438) (SCALEPAGEYUNITS 113440 . 114211) (\TEDIT.PAPERHEIGHT 114213
|
||||
. 115148) (\TEDIT.PAPERWIDTH 115150 . 116454)) (116872 120440 (ROMANNUMERALS 116882 . 120438)) (
|
||||
120479 127745 (TEDIT.PAGENO.CREATE 120489 . 120865) (\TEDIT.PAGENO.OBJINIT 120867 . 122150) (
|
||||
\TEDIT.PAGENO.BUTTONEVENTINFN 122152 . 123218) (\TEDIT.PAGENO.IMAGEBOXFN 123220 . 125370) (
|
||||
\TEDIT.PAGENO.DISPLAYFN 125372 . 127022) (\TEDIT.PAGENO.GETFN 127024 . 127416) (\TEDIT.PAGENO.PUTFN
|
||||
127418 . 127743)) (127810 130749 (\TEDIT.FORMAT.FOOTNOTE 127820 . 130747)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,13 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "14-Feb-2026 13:22:06" {WMEDLEY}<library>TEDIT>TEDIT-PCTREE.;251 68691
|
||||
(FILECREATED " 9-Apr-2026 17:25:38" {WMEDLEY}<library>TEDIT>TEDIT-PCTREE.;252 68540
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS TEDIT-PCTREECOMS)
|
||||
(FNS \TEDIT.UNLINKPIECE \TEDIT.DELETEPIECES)
|
||||
:CHANGES-TO (FNS \TEDIT.SPLITPIECE)
|
||||
|
||||
:PREVIOUS-DATE "28-Jul-2025 23:25:19" {WMEDLEY}<library>TEDIT>TEDIT-PCTREE.;249)
|
||||
:PREVIOUS-DATE "14-Feb-2026 13:22:06" {WMEDLEY}<library>TEDIT>TEDIT-PCTREE.;251)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-PCTREECOMS)
|
||||
@@ -658,7 +657,8 @@
|
||||
NEW])
|
||||
|
||||
(\TEDIT.SPLITPIECE
|
||||
[LAMBDA (PC CHOFFSET TEXTOBJ) (* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
[LAMBDA (PC CHOFFSET TEXTOBJ) (* ; "Edited 9-Apr-2026 13:22 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 00:11 by rmk")
|
||||
(* ; "Edited 28-Dec-2023 22:17 by rmk")
|
||||
(* ; "Edited 7-Dec-2023 21:07 by rmk")
|
||||
@@ -680,9 +680,8 @@
|
||||
(\INSURE.VACANT.BTREESLOT (FGETPC PC PTREENODE)
|
||||
TEXTOBJ) (* ;
|
||||
"Do this before reducing PC, so tree remains valid")
|
||||
(LET [(PREVPC (create PIECE using PC PPARALAST _ NIL PLEN _ CHOFFSET PBYTELEN _
|
||||
(ITIMES (PBYTESPERCHAR PC)
|
||||
CHOFFSET] (* ;
|
||||
(LET ((PREVPC (create PIECE using PC PPARALAST _ NIL PLEN _ CHOFFSET)))
|
||||
(* ;
|
||||
"There can be no para break before the split, as things now work.")
|
||||
|
||||
(* ;; "PREVPC is the prefix before the split point of length CHOFFSET, PC will be the suffix, a shortened version of a piece that was already in the piece tree.")
|
||||
@@ -713,8 +712,6 @@
|
||||
|
||||
(change (PLEN PC)
|
||||
(IDIFFERENCE DATUM CHOFFSET))
|
||||
(FSETPC PC PBYTELEN (ITIMES (PBYTESPERCHAR PC)
|
||||
(PLEN PC)))
|
||||
(freplace (BTSLOT DLEN) of (\FINDSLOT (FGETPC PC PTREENODE)
|
||||
PC) with (PLEN PC))
|
||||
|
||||
@@ -1104,13 +1101,13 @@
|
||||
(GLOBALVARS BTVALIDATETAGS)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (8731 56217 (\TEDIT.MAKEPCTB 8741 . 10634) (\TEDIT.UPDATEPCNODES 10636 . 12930) (
|
||||
\TEDIT.FIRSTPIECE 12932 . 14339) (\TEDIT.DELETETREE 14341 . 17615) (\TEDIT.INSERTTREE 17617 . 20362) (
|
||||
\TEDIT.LASTPIECE 20364 . 21171) (\TEDIT.PCTOCH 21173 . 23270) (\TEDIT.CHTOPC 23272 . 29449) (
|
||||
\TEDIT.SET-TOTLEN 29451 . 30239) (\TEDIT.MAKE.VACANT.BTREESLOT 30241 . 36971) (\TEDIT.LINKNEWPIECE
|
||||
36973 . 38562) (\TEDIT.SPLITPIECE 38564 . 43220) (\TEDIT.INSERTPIECE 43222 . 46494) (
|
||||
\TEDIT.INSERTPIECES 46496 . 49588) (\TEDIT.DELETEPIECES 49590 . 54100) (\TEDIT.ALIGNEDPIECE 54102 .
|
||||
56215)) (56245 68568 (\TEDIT.BTVALIDATE 56255 . 57796) (\TEDIT.BTVALIDATE.PRINT 57798 . 59163) (
|
||||
\TEDIT.CHECK-BTREE 59165 . 61492) (\TEDIT.CHECK-BTREE1 61494 . 67125) (\TEDIT.BTFAIL 67127 . 67549) (
|
||||
\TEDIT.MATCHPCS 67551 . 68566)))))
|
||||
(FILEMAP (NIL (8668 56066 (\TEDIT.MAKEPCTB 8678 . 10571) (\TEDIT.UPDATEPCNODES 10573 . 12867) (
|
||||
\TEDIT.FIRSTPIECE 12869 . 14276) (\TEDIT.DELETETREE 14278 . 17552) (\TEDIT.INSERTTREE 17554 . 20299) (
|
||||
\TEDIT.LASTPIECE 20301 . 21108) (\TEDIT.PCTOCH 21110 . 23207) (\TEDIT.CHTOPC 23209 . 29386) (
|
||||
\TEDIT.SET-TOTLEN 29388 . 30176) (\TEDIT.MAKE.VACANT.BTREESLOT 30178 . 36908) (\TEDIT.LINKNEWPIECE
|
||||
36910 . 38499) (\TEDIT.SPLITPIECE 38501 . 43069) (\TEDIT.INSERTPIECE 43071 . 46343) (
|
||||
\TEDIT.INSERTPIECES 46345 . 49437) (\TEDIT.DELETEPIECES 49439 . 53949) (\TEDIT.ALIGNEDPIECE 53951 .
|
||||
56064)) (56094 68417 (\TEDIT.BTVALIDATE 56104 . 57645) (\TEDIT.BTVALIDATE.PRINT 57647 . 59012) (
|
||||
\TEDIT.CHECK-BTREE 59014 . 61341) (\TEDIT.CHECK-BTREE1 61343 . 66974) (\TEDIT.BTFAIL 66976 . 67398) (
|
||||
\TEDIT.MATCHPCS 67400 . 68415)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED " 5-Feb-2026 00:39:54" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;916 186880
|
||||
(FILECREATED " 6-May-2026 22:52:37" {MEDLEY}<library>TEDIT>TEDIT-SCREEN.;918 186879
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.FORMATLINE)
|
||||
|
||||
:PREVIOUS-DATE "31-Dec-2025 23:10:18" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;915)
|
||||
:PREVIOUS-DATE " 5-Feb-2026 00:39:54" {MEDLEY}<library>TEDIT>TEDIT-SCREEN.;916)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-SCREENCOMS)
|
||||
@@ -654,6 +654,7 @@
|
||||
|
||||
(\TEDIT.FORMATLINE
|
||||
[LAMBDA (TSTREAM CH#1 LINE REGION IMAGESTREAM FORMATTINGSTATE)
|
||||
(* ; "Edited 6-May-2026 22:52 by rmk")
|
||||
(* ; "Edited 5-Feb-2026 00:38 by rmk")
|
||||
(* ; "Edited 21-Nov-2025 16:36 by rmk")
|
||||
(* ; "Edited 7-Aug-2025 12:49 by rmk")
|
||||
@@ -1101,28 +1102,26 @@
|
||||
|
||||
(CL:WHEN (EQ CHARSLOT LASTCHARSLOT)
|
||||
|
||||
(* ;;
|
||||
"If too long, we let it roll over to the next line. Should we put something in the margin??")
|
||||
(* ;; "If too long, we let it roll over to the next line. ")
|
||||
|
||||
(TEDIT.PROMPTPRINT TEXTOBJ "Line too long to format." T)
|
||||
(RETURN)) finally
|
||||
(GO $$OUT)) finally
|
||||
|
||||
(* ;;
|
||||
(* ;;
|
||||
"Ran out of TEXTLEN (and paragraph). Back up and force a break. Are ASCENT/DESCENT correct?")
|
||||
|
||||
(CL:WHEN (AND (EQ PREVSP (PREVCHARSLOT CHARSLOT))
|
||||
(NULL (CHAR PREVSP)))
|
||||
(CL:WHEN (AND (EQ PREVSP (PREVCHARSLOT CHARSLOT))
|
||||
(NULL (CHAR PREVSP)))
|
||||
|
||||
(* ;; "The line ended in a space that needs to be resolved. If we coded the end of a space-chain as (CHARCODE SPACE) instead of NIL, maybe this wouldn't be necessary.")
|
||||
|
||||
(FILLCHARSLOT PREVSP (CHARCODE SPACE)
|
||||
(CHARW PREVSP)
|
||||
CHARLOOKS)
|
||||
(SETQ PREVSP NIL))
|
||||
(SETQ CHARSLOT (PREVCHARSLOT CHARSLOT))
|
||||
(add CHNO -1)
|
||||
(SETQ DX 0) (* ; "TX is already correct")
|
||||
(FORCEBREAK))
|
||||
(FILLCHARSLOT PREVSP (CHARCODE SPACE)
|
||||
(CHARW PREVSP)
|
||||
CHARLOOKS)
|
||||
(SETQ PREVSP NIL))
|
||||
(SETQ CHARSLOT (PREVCHARSLOT CHARSLOT))
|
||||
(add CHNO -1)
|
||||
(SETQ DX 0) (* ; "TX is already correct")
|
||||
(FORCEBREAK))
|
||||
|
||||
(* ;; "End of character loop. ")
|
||||
|
||||
@@ -2866,21 +2865,21 @@
|
||||
(\TEDIT.LINE.TALLP LINE PHEIGHT))))])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (26200 28416 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26210 . 28414)) (35870 119724 (
|
||||
\TEDIT.FORMATLINE 35880 . 71208) (\TEDIT.FORMATLINE.SETUP.PARA 71210 . 76404) (
|
||||
\TEDIT.FORMATLINE.HORIZONTAL 76406 . 81223) (\TEDIT.FORMATLINE.VERTICAL 81225 . 83676) (
|
||||
\TEDIT.FORMATLINE.JUSTIFY 83678 . 89699) (\TEDIT.FORMATLINE.TABS 89701 . 97729) (\TEDIT.SCALE.TABS
|
||||
97731 . 98522) (\TEDIT.FORMATLINE.PURGE.SPACES 98524 . 99951) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
|
||||
99953 . 101030) (\TEDIT.FORMATLINE.EMPTY 101032 . 105852) (\TEDIT.FORMATLINE.UPDATELOOKS 105854 .
|
||||
112035) (\TEDIT.FORMATLINE.LASTLEGAL 112037 . 115487) (\TEDIT.LINES.ABOVE 115489 . 119100) (
|
||||
\TEDIT.CHNO.TO.YTOP 119102 . 119722)) (120001 140581 (\TEDIT.DISPLAYLINE 120011 . 132521) (
|
||||
\TEDIT.DISPLAYLINE.TABS 132523 . 135327) (\TEDIT.LINECACHE 135329 . 136057) (\TEDIT.CREATE.LINECACHE
|
||||
136059 . 136895) (\TEDIT.BLTCHAR 136897 . 139524) (\TEDIT.DIACRITIC.SHIFT 139526 . 140579)) (141196
|
||||
186857 (\TEDIT.BACKFORMAT 141206 . 143760) (\TEDIT.PREVIOUS.LINEBREAK 143762 . 146565) (
|
||||
\TEDIT.UPDATE.LINES 146567 . 152873) (\TEDIT.PANE.CREATELINES 152875 . 155165) (
|
||||
\TEDIT.SUFFIXLINE.CREATE 155167 . 156782) (\TEDIT.LINES.BELOW 156784 . 161394) (\TEDIT.MEASURED.LINES
|
||||
161396 . 163405) (\TEDIT.VALID.LASTCHNOS 163407 . 167183) (\TEDIT.VALID.NEXTCHNOS 167185 . 170659) (
|
||||
\TEDIT.LASTVALIDLINE 170661 . 175332) (\TEDIT.NEXTVALIDLINE 175334 . 178304) (
|
||||
\TEDIT.CLEARPANE.BELOW.LINE 178306 . 180412) (\TEDIT.INSERTLINE 180414 . 181800) (\TEDIT.LINE.BOTTOM
|
||||
181802 . 185032) (\TEDIT.SHOW.AT.BOTTOMP 185034 . 186144) (\TEDIT.SHOW.AT.TOPP 186146 . 186855)))))
|
||||
(FILEMAP (NIL (26198 28414 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26208 . 28412)) (35868 119723 (
|
||||
\TEDIT.FORMATLINE 35878 . 71207) (\TEDIT.FORMATLINE.SETUP.PARA 71209 . 76403) (
|
||||
\TEDIT.FORMATLINE.HORIZONTAL 76405 . 81222) (\TEDIT.FORMATLINE.VERTICAL 81224 . 83675) (
|
||||
\TEDIT.FORMATLINE.JUSTIFY 83677 . 89698) (\TEDIT.FORMATLINE.TABS 89700 . 97728) (\TEDIT.SCALE.TABS
|
||||
97730 . 98521) (\TEDIT.FORMATLINE.PURGE.SPACES 98523 . 99950) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
|
||||
99952 . 101029) (\TEDIT.FORMATLINE.EMPTY 101031 . 105851) (\TEDIT.FORMATLINE.UPDATELOOKS 105853 .
|
||||
112034) (\TEDIT.FORMATLINE.LASTLEGAL 112036 . 115486) (\TEDIT.LINES.ABOVE 115488 . 119099) (
|
||||
\TEDIT.CHNO.TO.YTOP 119101 . 119721)) (120000 140580 (\TEDIT.DISPLAYLINE 120010 . 132520) (
|
||||
\TEDIT.DISPLAYLINE.TABS 132522 . 135326) (\TEDIT.LINECACHE 135328 . 136056) (\TEDIT.CREATE.LINECACHE
|
||||
136058 . 136894) (\TEDIT.BLTCHAR 136896 . 139523) (\TEDIT.DIACRITIC.SHIFT 139525 . 140578)) (141195
|
||||
186856 (\TEDIT.BACKFORMAT 141205 . 143759) (\TEDIT.PREVIOUS.LINEBREAK 143761 . 146564) (
|
||||
\TEDIT.UPDATE.LINES 146566 . 152872) (\TEDIT.PANE.CREATELINES 152874 . 155164) (
|
||||
\TEDIT.SUFFIXLINE.CREATE 155166 . 156781) (\TEDIT.LINES.BELOW 156783 . 161393) (\TEDIT.MEASURED.LINES
|
||||
161395 . 163404) (\TEDIT.VALID.LASTCHNOS 163406 . 167182) (\TEDIT.VALID.NEXTCHNOS 167184 . 170658) (
|
||||
\TEDIT.LASTVALIDLINE 170660 . 175331) (\TEDIT.NEXTVALIDLINE 175333 . 178303) (
|
||||
\TEDIT.CLEARPANE.BELOW.LINE 178305 . 180411) (\TEDIT.INSERTLINE 180413 . 181799) (\TEDIT.LINE.BOTTOM
|
||||
181801 . 185031) (\TEDIT.SHOW.AT.BOTTOMP 185033 . 186143) (\TEDIT.SHOW.AT.TOPP 186145 . 186854)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "16-Feb-2026 00:38:33" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;738 162152
|
||||
(FILECREATED "16-Apr-2026 09:27:41" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;741 161623
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.SELPIECES.CHARTRANSFORM)
|
||||
:CHANGES-TO (FNS \TEDIT.SELPIECES.FROM.STRING)
|
||||
|
||||
:PREVIOUS-DATE "14-Jan-2026 14:32:01" {WMEDLEY}<library>tedit>TEDIT-SELECTION.;736)
|
||||
:PREVIOUS-DATE "10-Apr-2026 09:31:20" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;740)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-SELECTIONCOMS)
|
||||
@@ -2041,7 +2041,8 @@
|
||||
SPLASTCHAR _ (ffetch (SELPIECES SPLASTCHAR) of SP2])
|
||||
|
||||
(\TEDIT.SELPIECES.CHARTRANSFORM
|
||||
[LAMBDA (SELPIECES CHARFN OBJECTSTOO TSTREAM) (* ; "Edited 16-Feb-2026 00:38 by rmk")
|
||||
[LAMBDA (SELPIECES CHARFN OBJECTSTOO TSTREAM) (* ; "Edited 10-Apr-2026 09:17 by rmk")
|
||||
(* ; "Edited 16-Feb-2026 00:38 by rmk")
|
||||
(* ; "Edited 24-Apr-2025 16:02 by rmk")
|
||||
(* ; "Edited 20-Apr-2025 23:23 by rmk")
|
||||
(* ; "Edited 16-Mar-2025 10:03 by rmk")
|
||||
@@ -2063,7 +2064,7 @@
|
||||
(STRING.PTYPES (for I CH (STR _ PCONTENTS) from 1 while (SETQ CH (NTHCHARCODE STR I))
|
||||
do (RPLCHARCODE STR I (APPLY* CHARFN CH (add INDEX 1)
|
||||
TEXTOBJ))))
|
||||
(FILE.PTYPES [LET [(STR (ALLOCSTRING (PLEN PC]
|
||||
(FILE.PTYPES (LET [(STR (ALLOCSTRING (PLEN PC]
|
||||
|
||||
(* ;; "This assumes that no file piece has a PLEN greater than \MaxArrayLen characters. We rely on the piece-table reader and writer to guarantee this. If not, ALLOCSTRING will cause an error.")
|
||||
|
||||
@@ -2074,13 +2075,9 @@
|
||||
(if (fetch (STRINGP FATSTRINGP) of STR)
|
||||
then (FSETPC PC PTYPE FATSTRING.PTYPE)
|
||||
(FSETPC PC PBYTESPERCHAR 2)
|
||||
(FSETPC PC PBINABLE NIL)
|
||||
else (FSETPC PC PTYPE THINSTRING.PTYPE)
|
||||
(FSETPC PC PBYTESPERCHAR 1)
|
||||
(FSETPC PC PBINABLE T))
|
||||
(FSETPC PC PCONTENTS STR)
|
||||
(FSETPC PC PBYTELEN (ITIMES (PBYTESPERCHAR PC)
|
||||
(PLEN PC])
|
||||
(FSETPC PC PBYTESPERCHAR 1))
|
||||
(FSETPC PC PCONTENTS STR)))
|
||||
(OBJECT.PTYPE (add INDEX 1)
|
||||
(CL:WHEN OBJECTSTOO
|
||||
(FSETPC PC PCONTENTS (APPLY* CHARFN PCONTENTS INDEX))))
|
||||
@@ -2088,7 +2085,8 @@
|
||||
SELPIECES])
|
||||
|
||||
(\TEDIT.SELPIECES.FROM.STRING
|
||||
[LAMBDA (STRING TEXTOBJ CHECKFOREOL CHARLOOKS PARALOOKS) (* ; "Edited 28-Jul-2025 23:50 by rmk")
|
||||
[LAMBDA (STRING TEXTOBJ CHECKFOREOL CHARLOOKS PARALOOKS) (* ; "Edited 10-Apr-2026 09:18 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:50 by rmk")
|
||||
(* ; "Edited 8-Feb-2025 20:14 by rmk")
|
||||
(* ; "Edited 20-Mar-2024 10:57 by rmk")
|
||||
(* ; "Edited 3-Mar-2024 13:00 by rmk")
|
||||
@@ -2109,12 +2107,10 @@
|
||||
(CL:WHEN (AND TEXTOBJ (FGETTOBJ TEXTOBJ FORMATTEDP))
|
||||
(SETQ CHECKFOREOL T))
|
||||
(LET (FIRSTPIECE EOLPOS (BYTESPERCHAR 1)
|
||||
(PTYPE THINSTRING.PTYPE)
|
||||
(PBINABLE T))
|
||||
(PTYPE THINSTRING.PTYPE))
|
||||
(SETQ STRING (CONCAT STRING))
|
||||
(CL:WHEN (fetch (STRINGP FATSTRINGP) of STRING)
|
||||
(SETQ PTYPE FATSTRING.PTYPE)
|
||||
(SETQ PBINABLE NIL)
|
||||
(SETQ BYTESPERCHAR 2))
|
||||
(if (AND CHECKFOREOL (SETQ EOLPOS (STRPOS (CONSTANT (CHARACTER (CHARCODE EOL)))
|
||||
STRING)))
|
||||
@@ -2131,13 +2127,10 @@
|
||||
PTYPE _ PTYPE
|
||||
PCONTENTS _ STR
|
||||
PLEN _ (NCHARS STR)
|
||||
PBYTELEN _ (ITIMES (NCHARS STR)
|
||||
BYTESPERCHAR)
|
||||
PCHARLOOKS _ CHARLOOKS
|
||||
PPARALOOKS _ PARALOOKS
|
||||
PPARALAST _ T
|
||||
PREVPIECE _ PC
|
||||
PBINABLE _ PBINABLE))
|
||||
PREVPIECE _ PC))
|
||||
(CL:WHEN PREVPC (FSETPC PREVPC NEXTPIECE PC))
|
||||
(SETQ PREVPC PC)
|
||||
(SETQ EOLPOS (OR (STRPOS (CONSTANT (CHARACTER (CHARCODE EOL)))
|
||||
@@ -2158,10 +2151,7 @@
|
||||
PTYPE _ PTYPE
|
||||
PCONTENTS _ STRING
|
||||
PLEN _ (NCHARS STRING)
|
||||
PBYTELEN _ (ITIMES (NCHARS STRING)
|
||||
BYTESPERCHAR)
|
||||
PBYTESPERCHAR _ BYTESPERCHAR
|
||||
PBINABLE _ PBINABLE
|
||||
PCHARLOOKS _ CHARLOOKS
|
||||
PPARALOOKS _ PARALOOKS))
|
||||
(create SELPIECES
|
||||
@@ -2571,26 +2561,26 @@
|
||||
(ADDTOVAR LAMA TEDIT.SELPROP)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (15888 17709 (\TEDIT.SELECTION.DEFPRINT 15898 . 17707)) (17746 19251 (
|
||||
\TEDIT.SET.GLOBAL.SELECTIONS 17756 . 19249)) (19252 25473 (\TEDIT.SELECTED.PIECES 19262 . 20901) (
|
||||
\TEDIT.FIND.PROTECTED.END 20903 . 22697) (\TEDIT.FIND.PROTECTED.START 22699 . 24682) (
|
||||
\TEDIT.WORD.BOUND 24684 . 25471)) (25607 59714 (\TEDIT.EXTEND.SEL 25617 . 32857) (\TEDIT.SCAN.LINE
|
||||
32859 . 44532) (\TEDIT.SCAN.LINE.WORD 44534 . 49527) (\TEDIT.XYTOSEL 49529 . 56867) (\TEDIT.REGIONTYPE
|
||||
56869 . 57888) (\TEDIT.XYTOSEL.INLINEP 57890 . 58345) (\TEDIT.XYTOSEL.LINE 58347 . 59712)) (59715
|
||||
73260 (\TEDIT.FIXSEL 59725 . 69102) (\TEDIT.CHTOLINEX 69104 . 73258)) (73261 77465 (
|
||||
\TEDIT.RESET.EXTEND.PENDING.DELETE 73271 . 74549) (\TEDIT.SET.SEL.LOOKS 74551 . 77463)) (78402 99555 (
|
||||
\TEDIT.SHOWSEL 78412 . 83388) (\TEDIT.NOSEL 83390 . 83691) (\TEDIT.SEL.OFF 83693 . 84104) (
|
||||
\TEDIT.SEL.ON 84106 . 84522) (\TEDIT.SHOWSEL.HILIGHT 84524 . 89145) (\TEDIT.UPDATE.SEL 89147 . 93749)
|
||||
(\TEDIT.CARETLINE 93751 . 94465) (\TEDIT.SEL.L1 94467 . 95150) (\TEDIT.SEL.LN 95152 . 95835) (
|
||||
\TEDIT.SEL.DELETEDCHARS 95837 . 99553)) (99556 104438 (\TEDIT.COPYSEL 99566 . 102208) (
|
||||
\TEDIT.SEL.CHANGED? 102210 . 104436)) (104469 118128 (\TEDIT.SELECT.OBJECT 104479 . 109432) (
|
||||
\TEDIT.SHOWSEL.OBJECT 109434 . 111665) (\TEDIT.CLIP.OBJECT 111667 . 113671) (\TEDIT.OPERATE.OBJECT
|
||||
113673 . 118126)) (118156 137982 (\TEDIT.SELPIECES 118166 . 122447) (\TEDIT.SELPIECES.COPY 122449 .
|
||||
124938) (\TEDIT.SELPIECES.CONCAT 124940 . 126819) (\TEDIT.SELPIECES.CHARTRANSFORM 126821 . 130357) (
|
||||
\TEDIT.SELPIECES.FROM.STRING 130359 . 135617) (\TEDIT.SELPIECES.TO.STRING 135619 . 137980)) (138035
|
||||
161983 (TEDIT.XYTOCH 138045 . 140621) (TEDIT.SELPROP 140623 . 144900) (TEDIT.GETPOINT 144902 . 146822)
|
||||
(TEDIT.GETSEL 146824 . 147700) (TEDIT.GETSEL.PARA 147702 . 148651) (TEDIT.SCANSEL 148653 . 149601) (
|
||||
TEDIT.SET.SEL.LOOKS 149603 . 151088) (TEDIT.SETSEL 151090 . 156008) (TEDIT.SHOWSEL 156010 . 157874) (
|
||||
TEDIT.SEL.AS.STRING 157876 . 160361) (TEDIT.SEL.AS.SEXPR 160363 . 161649) (TEDIT.SELECTALL 161651 .
|
||||
161981)))))
|
||||
(FILEMAP (NIL (15886 17707 (\TEDIT.SELECTION.DEFPRINT 15896 . 17705)) (17744 19249 (
|
||||
\TEDIT.SET.GLOBAL.SELECTIONS 17754 . 19247)) (19250 25471 (\TEDIT.SELECTED.PIECES 19260 . 20899) (
|
||||
\TEDIT.FIND.PROTECTED.END 20901 . 22695) (\TEDIT.FIND.PROTECTED.START 22697 . 24680) (
|
||||
\TEDIT.WORD.BOUND 24682 . 25469)) (25605 59712 (\TEDIT.EXTEND.SEL 25615 . 32855) (\TEDIT.SCAN.LINE
|
||||
32857 . 44530) (\TEDIT.SCAN.LINE.WORD 44532 . 49525) (\TEDIT.XYTOSEL 49527 . 56865) (\TEDIT.REGIONTYPE
|
||||
56867 . 57886) (\TEDIT.XYTOSEL.INLINEP 57888 . 58343) (\TEDIT.XYTOSEL.LINE 58345 . 59710)) (59713
|
||||
73258 (\TEDIT.FIXSEL 59723 . 69100) (\TEDIT.CHTOLINEX 69102 . 73256)) (73259 77463 (
|
||||
\TEDIT.RESET.EXTEND.PENDING.DELETE 73269 . 74547) (\TEDIT.SET.SEL.LOOKS 74549 . 77461)) (78400 99553 (
|
||||
\TEDIT.SHOWSEL 78410 . 83386) (\TEDIT.NOSEL 83388 . 83689) (\TEDIT.SEL.OFF 83691 . 84102) (
|
||||
\TEDIT.SEL.ON 84104 . 84520) (\TEDIT.SHOWSEL.HILIGHT 84522 . 89143) (\TEDIT.UPDATE.SEL 89145 . 93747)
|
||||
(\TEDIT.CARETLINE 93749 . 94463) (\TEDIT.SEL.L1 94465 . 95148) (\TEDIT.SEL.LN 95150 . 95833) (
|
||||
\TEDIT.SEL.DELETEDCHARS 95835 . 99551)) (99554 104436 (\TEDIT.COPYSEL 99564 . 102206) (
|
||||
\TEDIT.SEL.CHANGED? 102208 . 104434)) (104467 118126 (\TEDIT.SELECT.OBJECT 104477 . 109430) (
|
||||
\TEDIT.SHOWSEL.OBJECT 109432 . 111663) (\TEDIT.CLIP.OBJECT 111665 . 113669) (\TEDIT.OPERATE.OBJECT
|
||||
113671 . 118124)) (118154 137453 (\TEDIT.SELPIECES 118164 . 122445) (\TEDIT.SELPIECES.COPY 122447 .
|
||||
124936) (\TEDIT.SELPIECES.CONCAT 124938 . 126817) (\TEDIT.SELPIECES.CHARTRANSFORM 126819 . 130189) (
|
||||
\TEDIT.SELPIECES.FROM.STRING 130191 . 135088) (\TEDIT.SELPIECES.TO.STRING 135090 . 137451)) (137506
|
||||
161454 (TEDIT.XYTOCH 137516 . 140092) (TEDIT.SELPROP 140094 . 144371) (TEDIT.GETPOINT 144373 . 146293)
|
||||
(TEDIT.GETSEL 146295 . 147171) (TEDIT.GETSEL.PARA 147173 . 148122) (TEDIT.SCANSEL 148124 . 149072) (
|
||||
TEDIT.SET.SEL.LOOKS 149074 . 150559) (TEDIT.SETSEL 150561 . 155479) (TEDIT.SHOWSEL 155481 . 157345) (
|
||||
TEDIT.SEL.AS.STRING 157347 . 159832) (TEDIT.SEL.AS.SEXPR 159834 . 161120) (TEDIT.SELECTALL 161122 .
|
||||
161452)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "16-Feb-2026 12:40:44" {WMEDLEY}<library>tedit>TEDIT-STREAM.;944 193110
|
||||
(FILECREATED " 1-May-2026 08:15:56" {MEDLEY}<library>tedit>TEDIT-STREAM.;956 190971
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.STREAMINIT)
|
||||
:CHANGES-TO (RECORDS PIECE)
|
||||
|
||||
:PREVIOUS-DATE "16-Feb-2026 09:39:00" {WMEDLEY}<library>tedit>TEDIT-STREAM.;943)
|
||||
:PREVIOUS-DATE "26-Apr-2026 23:46:38" {MEDLEY}<library>tedit>TEDIT-STREAM.;955)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-STREAMCOMS)
|
||||
@@ -14,8 +14,8 @@
|
||||
(RPAQQ TEDIT-STREAMCOMS
|
||||
[(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
(EXPORT (RECORDS PIECE TEXTOBJ TEXTSTREAM)
|
||||
(MACROS NEXTPIECE PREVPIECE PLEN PLAST PTYPE PCONTENTS PCHARLOOKS PCHARSET
|
||||
PPARALOOKS PPARALAST PFPOS PBYTELEN PNEW PBINABLE PBYTESPERCHAR POBJ)
|
||||
(MACROS NEXTPIECE PREVPIECE PLEN PLAST PTYPE PCONTENTS PCHARLOOKS PPARALOOKS
|
||||
PPARALAST PFPOS PBYTELEN PNEW PBYTESPERCHAR POBJ)
|
||||
(MACROS SETPC FSETPC GETPC FGETPC)
|
||||
(MACROS THINPIECEP)
|
||||
(MACROS VISIBLEPIECEP \NEXT.VISIBLE.PIECE \PREV.VISIBLE.PIECE)
|
||||
@@ -94,8 +94,8 @@
|
||||
PCONTENTS (* ; "The background source of data for this piece (stream, string, block, object, depending on the PTYPE).")
|
||||
(PTYPE BITS 4) (* ;
|
||||
"How the characters are delivered: thinfile, fatstring, object, substream")
|
||||
PBYTELEN (* ;
|
||||
"Length of this character piece in bytes. PBYTELEN = PLEN*PBYTESPERCHAR")
|
||||
NIL (* ;
|
||||
"Was PBYTELEN: Length of this character piece in bytes. PBYTELEN = PLEN*PBYTESPERCHAR")
|
||||
PFPOS (* ;
|
||||
"The FILEPTR of the start of the piece in the file")
|
||||
PLEN (* ;
|
||||
@@ -111,20 +111,18 @@
|
||||
(PNEW FLAG) (* ;
|
||||
"This text is new here; used by the tentative edit system, and anyone else interested.")
|
||||
(NIL FLAG) (* ; "Was PFATP")
|
||||
(PBINABLE FLAG) (* ;
|
||||
"8-bit bytes are binable (THINSTRING and THINFILE) ")
|
||||
(NIL FLAG)
|
||||
(PTREENODE XPOINTER) (* ;
|
||||
"Points to the PCTB tree-node that contains this piece.")
|
||||
(PCHARSET BYTE) (* ;
|
||||
"High-order charset for FATFILE1 pieces")
|
||||
(PUTF8BYTESPERCHAR BYTE)) (* ;
|
||||
"The number of bytes in the UTF-8 encoding of all the Unicode characters in this piece")
|
||||
(NIL BYTE) (* ;
|
||||
"Was PCHARSET: High-order charset for FATFILE1 pieces")
|
||||
NIL) (* ; "Was PUTF8BYTESPERCHAR: The number of bytes in the UTF-8 encoding of all the Unicode characters in this piece. But this just duplicates PBYTESPERCHAR for UTF-8 pieces")
|
||||
[ACCESSFNS ((POBJ (AND (EQ OBJECT.PTYPE (PTYPE DATUM))
|
||||
(type? IMAGEOBJ (PCONTENTS DATUM))
|
||||
(PCONTENTS DATUM))
|
||||
(AND (EQ OBJECT.PTYPE (PTYPE DATUM))
|
||||
(SETPC DATUM PCONTENTS NEWVALUE]
|
||||
PFPOS _ 0 PLEN _ 0 PBYTELEN _ 0)
|
||||
PFPOS _ 0 PLEN _ 0)
|
||||
|
||||
(DATATYPE TEXTOBJ (
|
||||
(* ;;
|
||||
@@ -294,7 +292,7 @@
|
||||
(/DECLAREDATATYPE 'PIECE
|
||||
'(POINTER (BITS 4)
|
||||
POINTER POINTER POINTER POINTER FULLXPOINTER POINTER POINTER FLAG POINTER FLAG FLAG
|
||||
FLAG XPOINTER BYTE BYTE)
|
||||
FLAG XPOINTER BYTE POINTER)
|
||||
'((PIECE 0 POINTER)
|
||||
(PIECE 0 (BITS . 3))
|
||||
(PIECE 2 POINTER)
|
||||
@@ -311,8 +309,8 @@
|
||||
(PIECE 16 (FLAGBITS . 32))
|
||||
(PIECE 18 XPOINTER)
|
||||
(PIECE 20 (BITS . 7))
|
||||
(PIECE 20 (BITS . 135)))
|
||||
'22)
|
||||
(PIECE 22 POINTER))
|
||||
'24)
|
||||
|
||||
(/DECLAREDATATYPE 'TEXTOBJ
|
||||
'(POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER FLAG FLAG POINTER
|
||||
@@ -405,9 +403,6 @@
|
||||
(PUTPROPS PCHARLOOKS MACRO ((PC)
|
||||
(ffetch (PIECE PCHARLOOKS) of PC)))
|
||||
|
||||
(PUTPROPS PCHARSET MACRO ((PC)
|
||||
(ffetch (PIECE PCHARSET) of PC)))
|
||||
|
||||
(PUTPROPS PPARALOOKS MACRO ((PC)
|
||||
(ffetch (PIECE PPARALOOKS) of PC)))
|
||||
|
||||
@@ -417,15 +412,13 @@
|
||||
(PUTPROPS PFPOS MACRO ((PC)
|
||||
(ffetch (PIECE PFPOS) of PC)))
|
||||
|
||||
(PUTPROPS PBYTELEN MACRO ((PC)
|
||||
(ffetch (PIECE PBYTELEN) of PC)))
|
||||
(PUTPROPS PBYTELEN MACRO (OPENLAMBDA (PC)
|
||||
(ITIMES (ffetch (PIECE PLEN) of PC)
|
||||
(ffetch (PIECE PBYTESPERCHAR) of PC))))
|
||||
|
||||
(PUTPROPS PNEW MACRO ((PC)
|
||||
(ffetch (PIECE PNEW) of PC)))
|
||||
|
||||
(PUTPROPS PBINABLE MACRO ((PC)
|
||||
(ffetch (PIECE PBINABLE) of PC)))
|
||||
|
||||
(PUTPROPS PBYTESPERCHAR MACRO ((PC)
|
||||
(ffetch (PIECE PBYTESPERCHAR) of PC)))
|
||||
|
||||
@@ -454,7 +447,7 @@
|
||||
|
||||
(SELECTC (PTYPE PC)
|
||||
(THIN.PTYPES T)
|
||||
(UTF8.PTYPE (EQ 1 (FGETPC PC PUTF8BYTESPERCHAR)))
|
||||
(UTF8.PTYPE (EQ 1 (FGETPC PC PBYTESPERCHAR)))
|
||||
NIL)))
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
@@ -517,7 +510,6 @@
|
||||
|
||||
(RPAQQ PTYPES
|
||||
((THINFILE.PTYPE 0)
|
||||
(FATFILE1.PTYPE 1)
|
||||
(FATFILE2.PTYPE 2)
|
||||
(THINSTRING.PTYPE 3)
|
||||
(FATSTRING.PTYPE 4)
|
||||
@@ -527,18 +519,15 @@
|
||||
(UTF16BE.PTYPE 8)
|
||||
(UTF16LE.PTYPE 9)
|
||||
(UTF8.PTYPE 11)
|
||||
(FILE.PTYPES (LIST THINFILE.PTYPE FATFILE1.PTYPE FATFILE2.PTYPE UTF8.PTYPE UTF16BE.PTYPE
|
||||
UTF16LE.PTYPE))
|
||||
(FILE.PTYPES (LIST THINFILE.PTYPE FATFILE2.PTYPE UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE))
|
||||
(STRING.PTYPES (LIST THINSTRING.PTYPE FATSTRING.PTYPE))
|
||||
(BINABLE.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE))
|
||||
(THIN.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE))
|
||||
(FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE))))
|
||||
(FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE))))
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RPAQQ THINFILE.PTYPE 0)
|
||||
|
||||
(RPAQQ FATFILE1.PTYPE 1)
|
||||
|
||||
(RPAQQ FATFILE2.PTYPE 2)
|
||||
|
||||
(RPAQQ THINSTRING.PTYPE 3)
|
||||
@@ -557,8 +546,7 @@
|
||||
|
||||
(RPAQQ UTF8.PTYPE 11)
|
||||
|
||||
(RPAQ FILE.PTYPES (LIST THINFILE.PTYPE FATFILE1.PTYPE FATFILE2.PTYPE UTF8.PTYPE UTF16BE.PTYPE
|
||||
UTF16LE.PTYPE))
|
||||
(RPAQ FILE.PTYPES (LIST THINFILE.PTYPE FATFILE2.PTYPE UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE))
|
||||
|
||||
(RPAQ STRING.PTYPES (LIST THINSTRING.PTYPE FATSTRING.PTYPE))
|
||||
|
||||
@@ -566,11 +554,10 @@
|
||||
|
||||
(RPAQ THIN.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE))
|
||||
|
||||
(RPAQ FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE))
|
||||
(RPAQ FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE))
|
||||
|
||||
|
||||
(CONSTANTS (THINFILE.PTYPE 0)
|
||||
(FATFILE1.PTYPE 1)
|
||||
(FATFILE2.PTYPE 2)
|
||||
(THINSTRING.PTYPE 3)
|
||||
(FATSTRING.PTYPE 4)
|
||||
@@ -580,12 +567,11 @@
|
||||
(UTF16BE.PTYPE 8)
|
||||
(UTF16LE.PTYPE 9)
|
||||
(UTF8.PTYPE 11)
|
||||
(FILE.PTYPES (LIST THINFILE.PTYPE FATFILE1.PTYPE FATFILE2.PTYPE UTF8.PTYPE UTF16BE.PTYPE
|
||||
UTF16LE.PTYPE))
|
||||
(FILE.PTYPES (LIST THINFILE.PTYPE FATFILE2.PTYPE UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE))
|
||||
(STRING.PTYPES (LIST THINSTRING.PTYPE FATSTRING.PTYPE))
|
||||
(BINABLE.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE))
|
||||
(THIN.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE))
|
||||
(FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE)))
|
||||
(FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE)))
|
||||
)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
@@ -599,7 +585,7 @@
|
||||
(/DECLAREDATATYPE 'PIECE
|
||||
'(POINTER (BITS 4)
|
||||
POINTER POINTER POINTER POINTER FULLXPOINTER POINTER POINTER FLAG POINTER FLAG FLAG
|
||||
FLAG XPOINTER BYTE BYTE)
|
||||
FLAG XPOINTER BYTE POINTER)
|
||||
'((PIECE 0 POINTER)
|
||||
(PIECE 0 (BITS . 3))
|
||||
(PIECE 2 POINTER)
|
||||
@@ -616,8 +602,8 @@
|
||||
(PIECE 16 (FLAGBITS . 32))
|
||||
(PIECE 18 XPOINTER)
|
||||
(PIECE 20 (BITS . 7))
|
||||
(PIECE 20 (BITS . 135)))
|
||||
'22)
|
||||
(PIECE 22 POINTER))
|
||||
'24)
|
||||
|
||||
(/DECLAREDATATYPE 'TEXTOBJ
|
||||
'(POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER FLAG FLAG POINTER
|
||||
@@ -697,6 +683,10 @@
|
||||
(\TEDIT.TEXTBIN
|
||||
[LAMBDA (TSTREAM)
|
||||
|
||||
(* ;; "Edited 9-Apr-2026 00:06 by rmk")
|
||||
|
||||
(* ;; "Edited 7-Apr-2026 09:57 by rmk")
|
||||
|
||||
(* ;; "Edited 13-Oct-2025 17:16 by rmk")
|
||||
|
||||
(* ;; "Edited 21-Oct-2024 00:26 by rmk")
|
||||
@@ -818,18 +808,6 @@
|
||||
(\TEDIT.INSTALL.FILEBUFFER TSTREAM
|
||||
(ffetch (TEXTSTREAM PCCHARSLEFT)
|
||||
of TSTREAM)))))
|
||||
(FATFILE1.PTYPE
|
||||
(PROG1 (create WORD
|
||||
HIBYTE _ (PCHARSET PC)
|
||||
LOBYTE _ (BIN (PCONTENTS PC)))
|
||||
(add (ffetch (STREAM COFFSET) of TSTREAM)
|
||||
1)
|
||||
(CL:WHEN (\ENDOFBUFFERP TSTREAM)
|
||||
(\TEDIT.INSTALL.FILEBUFFER TSTREAM (ffetch
|
||||
(TEXTSTREAM
|
||||
PCCHARSLEFT
|
||||
)
|
||||
of TSTREAM)))))
|
||||
(THINFILE.PTYPE (* ;
|
||||
"Fall through when the underlying stream is not binable")
|
||||
(PROG1 (BIN (PCONTENTS PC))
|
||||
@@ -848,7 +826,8 @@
|
||||
(\TEDIT.THELP "\TEXTBIN UNKNOWN PTYPE" (PTYPE PC])
|
||||
|
||||
(\TEDIT.TEXTPEEKBIN
|
||||
[LAMBDA (TSTREAM NOERROR) (* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
[LAMBDA (TSTREAM NOERROR) (* ; "Edited 9-Apr-2026 00:06 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
(* ; "Edited 19-Mar-2024 19:14 by rmk")
|
||||
(* ; "Edited 16-Mar-2024 12:44 by rmk")
|
||||
(* ; "Edited 1-Feb-2024 11:13 by rmk")
|
||||
@@ -911,10 +890,6 @@
|
||||
'OBJECTBYTE)
|
||||
PCONTENTS))
|
||||
(UTF8.PTYPE (UTF8.PEEKCCODEFN PCONTENTS))
|
||||
(FATFILE1.PTYPE
|
||||
(create WORD
|
||||
HIBYTE _ (PCHARSET PC)
|
||||
LOBYTE _ (\PEEKBIN PCONTENTS)))
|
||||
(SUBSTREAM.PTYPE (* ; "A substream stored as an object")
|
||||
(\PEEKBIN (IMAGEOBJPROP PCONTENTS 'SUBSTREAM)))
|
||||
(\TEDIT.THELP "UNKNOWN PIECE TYPE")))
|
||||
@@ -923,7 +898,8 @@
|
||||
else (STREAMOP 'ENDOFSTREAMOP TSTREAM TSTREAM])
|
||||
|
||||
(\TEDIT.TEXTBACKFILEPTR
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 16-Feb-2026 08:54 by rmk")
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 9-Apr-2026 00:07 by rmk")
|
||||
(* ; "Edited 16-Feb-2026 08:54 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
(* ; "Edited 1-Feb-2024 11:25 by rmk")
|
||||
(* ; "Edited 5-Jan-2024 17:57 by rmk")
|
||||
@@ -1008,10 +984,6 @@
|
||||
'OBJECTBYTE)
|
||||
(PCONTENTS PC)))
|
||||
(UTF8.PTYPE (UTF8.PEEKCCODEFN (PCONTENTS PC)))
|
||||
(FATFILE1.PTYPE
|
||||
(LOGOR (LLSH (PCHARSET PC)
|
||||
8)
|
||||
(\PEEKBIN (PCONTENTS PC))))
|
||||
(SUBSTREAM.PTYPE (* ; "A substream stored as an object")
|
||||
(BIN (IMAGEOBJPROP (PCONTENTS PC)
|
||||
'SUBSTREAM)))
|
||||
@@ -1760,7 +1732,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.STREAMINIT
|
||||
[LAMBDA NIL (* ; "Edited 16-Feb-2026 12:40 by rmk")
|
||||
[LAMBDA NIL (* ; "Edited 24-Feb-2026 23:38 by rmk")
|
||||
(* ; "Edited 16-Feb-2026 12:40 by rmk")
|
||||
(* ; "Edited 26-Jan-2026 16:06 by rmk")
|
||||
(* ; "Edited 23-Sep-2025 21:03 by rmk")
|
||||
(* ; "Edited 20-Sep-2025 08:48 by rmk")
|
||||
@@ -1823,7 +1796,7 @@
|
||||
(FUNCTION \TEDIT.TEXTBACKCCODEFN)
|
||||
(FUNCTION \TEDIT.TEXTOUTCHARFN)
|
||||
(FUNCTION \TEDIT.TEXTFORMATBYTESTREAM)
|
||||
'CR NIL (FUNCTION \TEDIT.TEXTFORMATBYTESTRING))
|
||||
'CR T (FUNCTION \TEDIT.TEXTFORMATBYTESTRING))
|
||||
|
||||
(* ;; "Support for error handling: The old error handler for the stream-not-open error. ")
|
||||
|
||||
@@ -2277,7 +2250,8 @@
|
||||
(IDIFFERENCE N START-OF-PIECE)))])
|
||||
|
||||
(\TEDIT.PIECE.NTHCHARCODE
|
||||
[LAMBDA (PC OFFSET) (* ; "Edited 15-Feb-2026 14:31 by rmk")
|
||||
[LAMBDA (PC OFFSET) (* ; "Edited 9-Apr-2026 00:06 by rmk")
|
||||
(* ; "Edited 15-Feb-2026 14:31 by rmk")
|
||||
(* ; "Edited 24-Apr-2025 16:04 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:26 by rmk")
|
||||
(* ; "Edited 29-Apr-2024 08:46 by rmk")
|
||||
@@ -2304,14 +2278,6 @@
|
||||
OFFSET))
|
||||
(PROG1 (BIN PCONTENTS)
|
||||
(\SETFILEPTR PCONTENTS FILEPOS)))
|
||||
(FATFILE1.PTYPE
|
||||
(SETQ FILEPOS (\GETFILEPTR PCONTENTS))
|
||||
(\SETFILEPTR PCONTENTS (IPLUS (PFPOS PC)
|
||||
OFFSET))
|
||||
(PROG1 (create WORD
|
||||
HIBYTE _ (PCHARSET PC)
|
||||
LOBYTE _ (BIN PCONTENTS))
|
||||
(\SETFILEPTR PCONTENTS FILEPOS)))
|
||||
(FATFILE2.PTYPE
|
||||
(SETQ FILEPOS (\GETFILEPTR PCONTENTS))
|
||||
(\SETFILEPTR PCONTENTS (IPLUS (PFPOS PC)
|
||||
@@ -2359,7 +2325,8 @@
|
||||
TSTREAM))])
|
||||
|
||||
(\TEDIT.PIECE.RPLCHARCODE
|
||||
[LAMBDA (TEXTOBJ PC OFFSET NEWCHARCODE NEWCHARLOOKS) (* ; "Edited 16-Feb-2026 08:41 by rmk")
|
||||
[LAMBDA (TEXTOBJ PC OFFSET NEWCHARCODE NEWCHARLOOKS) (* ; "Edited 10-Apr-2026 09:32 by rmk")
|
||||
(* ; "Edited 16-Feb-2026 08:41 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:38 by rmk")
|
||||
(* ; "Edited 24-Apr-2025 16:30 by rmk")
|
||||
(* ; "Edited 20-Apr-2025 13:25 by rmk")
|
||||
@@ -2393,10 +2360,7 @@
|
||||
(CL:WHEN (AND (EQ THINSTRING.PTYPE (PTYPE PC))
|
||||
(IGREATERP NEWCHARCODE \MAXTHINCHAR))
|
||||
(FSETPC PC PTYPE FATSTRING.PTYPE)
|
||||
(FSETPC PC PBINABLE NIL)
|
||||
(FSETPC PC PBYTESPERCHAR 2)
|
||||
(FSETPC PC PBYTELEN (UNFOLD (PLEN PC)
|
||||
2)))
|
||||
(FSETPC PC PBYTESPERCHAR 2))
|
||||
elseif [AND (IMAGEOBJP NEWCHARCODE)
|
||||
(EQ OBJECT.PTYPE (PTYPE PC))
|
||||
(OR (NULL NEWCHARLOOKS)
|
||||
@@ -2425,24 +2389,17 @@
|
||||
|
||||
(SETQ OLDCHAR (\TEDIT.PIECE.NTHCHARCODE PC 0))
|
||||
(if (IMAGEOBJP NEWCHARCODE)
|
||||
then (FSETPC PC PBINABLE NIL)
|
||||
(FSETPC PC PCONTENTS NEWCHARCODE)
|
||||
then (FSETPC PC PCONTENTS NEWCHARCODE)
|
||||
(FSETPC PC PTYPE OBJECT.PTYPE)
|
||||
(FSETPC PC PBYTESPERCHAR NIL) (* ; "Doesn't make sense for objects")
|
||||
(FSETPC PC PBYTELEN NIL)
|
||||
else (FSETPC PC PCONTENTS (MKSTRING (CHARACTER NEWCHARCODE)))
|
||||
(* ;
|
||||
"Use the extend-string in INSERTCH for repeated calls?")
|
||||
(if (IGREATERP NEWCHARCODE \MAXTHINCHAR)
|
||||
then (FSETPC PC PTYPE FATSTRING.PTYPE)
|
||||
(FSETPC PC PBINABLE NIL)
|
||||
(FSETPC PC PBYTESPERCHAR 2)
|
||||
(FSETPC PC PBYTELEN 2)
|
||||
else (FSETPC PC PTYPE THINSTRING.PTYPE)
|
||||
(FSETPC PC PBINABLE T)
|
||||
(FSETPC PC PBYTESPERCHAR 1)
|
||||
(FSETPC PC PBYTELEN 1)
|
||||
(FSETPC PC PCHARSET 0)))
|
||||
(FSETPC PC PBYTESPERCHAR 1)))
|
||||
(FSETPC PC PFPOS NIL)
|
||||
(CL:WHEN NEWCHARLOOKS
|
||||
(FSETPC PC PCHARLOOKS (CL:IF (FONTP NEWCHARLOOKS)
|
||||
@@ -2546,7 +2503,8 @@
|
||||
T)])
|
||||
|
||||
(\TEDIT.INSERTCH
|
||||
[LAMBDA (CH CH# TEXTOBJ PARALAST) (* ; "Edited 26-Jul-2025 21:13 by rmk")
|
||||
[LAMBDA (CH CH# TEXTOBJ PARALAST) (* ; "Edited 10-Apr-2026 09:46 by rmk")
|
||||
(* ; "Edited 26-Jul-2025 21:13 by rmk")
|
||||
(* ; "Edited 26-Mar-2025 00:29 by rmk")
|
||||
(* ; "Edited 22-Nov-2024 13:48 by rmk")
|
||||
(* ; "Edited 22-Sep-2024 12:32 by rmk")
|
||||
@@ -2634,14 +2592,9 @@
|
||||
PNEW _ T))
|
||||
(SELECTC INSERTPTYPE
|
||||
(THINSTRING.PTYPE
|
||||
(FSETPC PREVPC PBYTESPERCHAR 1)
|
||||
(FSETPC PREVPC PBYTELEN ILEN)
|
||||
(FSETPC PREVPC PBINABLE T)
|
||||
(FSETPC PREVPC PCHARSET 0))
|
||||
(FATSTRING.PTYPE (* ; "PCHARSET is not relevant")
|
||||
(FSETPC PREVPC PBYTESPERCHAR 2)
|
||||
(FSETPC PREVPC PBYTELEN (UNFOLD ILEN 2))
|
||||
(FSETPC PREVPC PBINABLE NIL))
|
||||
(FSETPC PREVPC PBYTESPERCHAR 1))
|
||||
(FATSTRING.PTYPE
|
||||
(FSETPC PREVPC PBYTESPERCHAR 2))
|
||||
(\TEDIT.THELP "Unexpected PTYPE"))
|
||||
(\TEDIT.INSERTPIECE PREVPC INSERTPC TEXTOBJ))
|
||||
|
||||
@@ -2785,7 +2738,8 @@
|
||||
INSERTION])
|
||||
|
||||
(\TEDIT.INSERTCH.EXTEND
|
||||
[LAMBDA (PC ILEN TEXTOBJ) (* ; "Edited 16-Mar-2024 09:56 by rmk")
|
||||
[LAMBDA (PC ILEN TEXTOBJ) (* ; "Edited 9-Apr-2026 13:24 by rmk")
|
||||
(* ; "Edited 16-Mar-2024 09:56 by rmk")
|
||||
(* ; "Edited 21-Jan-2024 14:09 by rmk")
|
||||
(* ; "Edited 12-Apr-2023 09:37 by rmk")
|
||||
(* ; "Edited 1-Sep-2022 08:26 by rmk")
|
||||
@@ -2796,8 +2750,6 @@
|
||||
|
||||
(add (PLEN PC)
|
||||
ILEN)
|
||||
(FSETPC PC PBYTELEN (ITIMES (PLEN PC)
|
||||
(PBYTESPERCHAR PC)))
|
||||
(add (ffetch (STRINGP LENGTH) of (PCONTENTS PC))
|
||||
ILEN)
|
||||
(add (ffetch (BTSLOT DLEN) of (\FINDSLOT (ffetch (PIECE PTREENODE) of PC)
|
||||
@@ -2836,7 +2788,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.INSTALL.PIECE
|
||||
[LAMBDA (TSTREAM PC CHOFFSET) (* ; "Edited 21-Oct-2024 00:26 by rmk")
|
||||
[LAMBDA (TSTREAM PC CHOFFSET) (* ; "Edited 26-Apr-2026 23:46 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:26 by rmk")
|
||||
(* ; "Edited 18-May-2024 22:39 by rmk")
|
||||
(* ; "Edited 9-May-2024 22:34 by rmk")
|
||||
(* ; "Edited 18-Mar-2024 22:26 by rmk")
|
||||
@@ -2891,7 +2844,11 @@
|
||||
PLEN)))
|
||||
(OBJECT.PTYPE (freplace (STREAM CBUFSIZE) of TSTREAM with 1))
|
||||
NIL)
|
||||
(freplace (STREAM BINABLE) of TSTREAM with (PBINABLE PC))
|
||||
|
||||
(* ;; "Would work for an ASCII. PTYPE or 1-byte UTF-8, except for MCCS/UNICODE differences.")
|
||||
|
||||
[freplace (STREAM BINABLE) of TSTREAM with (OR (EQ THINFILE.PTYPE (PTYPE PC))
|
||||
(EQ THINSTRING.PTYPE (PTYPE PC]
|
||||
(freplace (TEXTSTREAM STARTINGCOFFSET) of TSTREAM with (ffetch (STREAM COFFSET)
|
||||
of TSTREAM))
|
||||
(freplace (TEXTSTREAM PCCHARSLEFT) of TSTREAM with PCCHARSLEFT)
|
||||
@@ -3127,33 +3084,33 @@
|
||||
(ADDTOVAR LAMA TEXTPROP)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (36667 67629 (\TEDIT.TEXTBIN 36677 . 47470) (\TEDIT.TEXTPEEKBIN 47472 . 53022) (
|
||||
\TEDIT.TEXTBACKFILEPTR 53024 . 58800) (\TEDIT.TEXTBOUT 58802 . 63419) (\TEDIT.INSTALL.FILEBUFFER 63421
|
||||
. 67627)) (68527 72818 (\TEDIT.TEXTOUTCHARFN 68537 . 70093) (\TEDIT.TEXTINCCODEFN 70095 . 70834) (
|
||||
\TEDIT.TEXTBACKCCODEFN 70836 . 71428) (\TEDIT.TEXTFORMATBYTESTREAM 71430 . 72267) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 72269 . 72816)) (72865 84940 (OPENTEXTSTREAM 72875 . 79851) (
|
||||
COPYTEXTSTREAM 79853 . 84163) (TEDIT.STREAMCHANGEDP 84165 . 84467) (TXTFILE 84469 . 84938)) (84941
|
||||
108146 (\TEDIT.REOPENTEXTSTREAM 84951 . 86303) (\TEDIT.OPENTEXTSTREAM.PIECES 86305 . 91233) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 91235 . 92337) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 92339 . 97789) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 97791 . 100582) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100584 . 102523) (
|
||||
\TEDIT.OPENTEXTFILE 102525 . 104657) (\TEDIT.CREATE.TEXTSTREAM 104659 . 105806) (\TEDIT.REOPEN.STREAM
|
||||
105808 . 108144)) (108147 116372 (\TEDIT.STREAMINIT 108157 . 116189) (TEDIT.IMAGESTREAM.OPEN 116191 .
|
||||
116370)) (116560 117748 (\TEDIT.TTYBOUT 116570 . 117746)) (117866 139549 (\TEDIT.TEXTCLOSEF 117876 .
|
||||
119200) (\TEDIT.TEXTDSPFONT 119202 . 120400) (\TEDIT.TEXTEOFP 120402 . 122157) (\TEDIT.TEXTGETEOFPTR
|
||||
122159 . 122482) (\TEDIT.TEXTSETEOFPTR 122484 . 123771) (\TEDIT.TEXTGETFILEPTR 123773 . 126608) (
|
||||
\TEDIT.TEXTSETFILEINFO 126610 . 127118) (\TEDIT.TEXTOPENF 127120 . 128051) (\TEDIT.TEXTSETEOF 128053
|
||||
. 128669) (\TEDIT.TEXTSETFILEPTR 128671 . 130781) (\TEDIT.TEXTDSPXPOSITION 130783 . 133486) (
|
||||
\TEDIT.TEXTDSPYPOSITION 133488 . 134229) (\TEDIT.TEXTLEFTMARGIN 134231 . 134822) (\TEDIT.TEXTCOLOR
|
||||
134824 . 135407) (\TEDIT.TEXTRIGHTMARGIN 135409 . 138698) (\TEDIT.TEXTDSPCHARWIDTH 138700 . 139004) (
|
||||
\TEDIT.TEXTDSPSTRINGWIDTH 139006 . 139312) (\TEDIT.TEXTDSPLINEFEED 139314 . 139547)) (139587 152583 (
|
||||
\TEDIT.NTHCHARCODE 139597 . 141123) (\TEDIT.PIECE.NTHCHARCODE 141125 . 145033) (\TEDIT.RPLCHARCODE
|
||||
145035 . 146593) (\TEDIT.PIECE.RPLCHARCODE 146595 . 152228) (\TEDIT.NTHCHARLOOKS 152230 . 152581)) (
|
||||
153630 174724 (\TEDIT.DELETE.SELPIECES 153640 . 157265) (\TEDIT.INSERTCH 157267 . 165306) (
|
||||
\TEDIT.INSERTCH.HISTORY 165308 . 168772) (\TEDIT.INSERTEOL 168774 . 170599) (\TEDIT.INSERTCH.INSERTION
|
||||
170601 . 173438) (\TEDIT.INSERTCH.EXTEND 173440 . 174722)) (174725 176332 (\TEDIT.NEXTCHANGEABLE.CHNO
|
||||
174735 . 175450) (\TEDIT.LASTCHANGEABLE.CHNO 175452 . 176330)) (176333 180791 (\TEDIT.INSTALL.PIECE
|
||||
176343 . 180789)) (180829 190295 (TEXTPROP 180839 . 181186) (GETTEXTPROP 181188 . 181432) (PUTTEXTPROP
|
||||
181434 . 181691) (GETTEXTPROPS 181693 . 182137) (PUTTEXTPROPS 182139 . 183043) (TEXTPROP.ADD 183045
|
||||
. 183308) (\TEDIT.TEXTPROP 183310 . 190293)) (190296 192673 (\TEDIT.TEXTOBJ.PROPNAMES 190306 . 191565
|
||||
) (\TEDIT.TEXTOBJ.PROPFETCHFN 191567 . 192083) (\TEDIT.TEXTOBJ.PROPSTOREFN 192085 . 192671)))))
|
||||
(FILEMAP (NIL (36156 66033 (\TEDIT.TEXTBIN 36166 . 46068) (\TEDIT.TEXTPEEKBIN 46070 . 51495) (
|
||||
\TEDIT.TEXTBACKFILEPTR 51497 . 57204) (\TEDIT.TEXTBOUT 57206 . 61823) (\TEDIT.INSTALL.FILEBUFFER 61825
|
||||
. 66031)) (66931 71222 (\TEDIT.TEXTOUTCHARFN 66941 . 68497) (\TEDIT.TEXTINCCODEFN 68499 . 69238) (
|
||||
\TEDIT.TEXTBACKCCODEFN 69240 . 69832) (\TEDIT.TEXTFORMATBYTESTREAM 69834 . 70671) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 70673 . 71220)) (71269 83344 (OPENTEXTSTREAM 71279 . 78255) (
|
||||
COPYTEXTSTREAM 78257 . 82567) (TEDIT.STREAMCHANGEDP 82569 . 82871) (TXTFILE 82873 . 83342)) (83345
|
||||
106550 (\TEDIT.REOPENTEXTSTREAM 83355 . 84707) (\TEDIT.OPENTEXTSTREAM.PIECES 84709 . 89637) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 89639 . 90741) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90743 . 96193) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 96195 . 98986) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98988 . 100927) (
|
||||
\TEDIT.OPENTEXTFILE 100929 . 103061) (\TEDIT.CREATE.TEXTSTREAM 103063 . 104210) (\TEDIT.REOPEN.STREAM
|
||||
104212 . 106548)) (106551 114883 (\TEDIT.STREAMINIT 106561 . 114700) (TEDIT.IMAGESTREAM.OPEN 114702 .
|
||||
114881)) (115071 116259 (\TEDIT.TTYBOUT 115081 . 116257)) (116377 138060 (\TEDIT.TEXTCLOSEF 116387 .
|
||||
117711) (\TEDIT.TEXTDSPFONT 117713 . 118911) (\TEDIT.TEXTEOFP 118913 . 120668) (\TEDIT.TEXTGETEOFPTR
|
||||
120670 . 120993) (\TEDIT.TEXTSETEOFPTR 120995 . 122282) (\TEDIT.TEXTGETFILEPTR 122284 . 125119) (
|
||||
\TEDIT.TEXTSETFILEINFO 125121 . 125629) (\TEDIT.TEXTOPENF 125631 . 126562) (\TEDIT.TEXTSETEOF 126564
|
||||
. 127180) (\TEDIT.TEXTSETFILEPTR 127182 . 129292) (\TEDIT.TEXTDSPXPOSITION 129294 . 131997) (
|
||||
\TEDIT.TEXTDSPYPOSITION 131999 . 132740) (\TEDIT.TEXTLEFTMARGIN 132742 . 133333) (\TEDIT.TEXTCOLOR
|
||||
133335 . 133918) (\TEDIT.TEXTRIGHTMARGIN 133920 . 137209) (\TEDIT.TEXTDSPCHARWIDTH 137211 . 137515) (
|
||||
\TEDIT.TEXTDSPSTRINGWIDTH 137517 . 137823) (\TEDIT.TEXTDSPLINEFEED 137825 . 138058)) (138098 150332 (
|
||||
\TEDIT.NTHCHARCODE 138108 . 139634) (\TEDIT.PIECE.NTHCHARCODE 139636 . 143204) (\TEDIT.RPLCHARCODE
|
||||
143206 . 144764) (\TEDIT.PIECE.RPLCHARCODE 144766 . 149977) (\TEDIT.NTHCHARLOOKS 149979 . 150330)) (
|
||||
151379 172254 (\TEDIT.DELETE.SELPIECES 151389 . 155014) (\TEDIT.INSERTCH 155016 . 162821) (
|
||||
\TEDIT.INSERTCH.HISTORY 162823 . 166287) (\TEDIT.INSERTEOL 166289 . 168114) (\TEDIT.INSERTCH.INSERTION
|
||||
168116 . 170953) (\TEDIT.INSERTCH.EXTEND 170955 . 172252)) (172255 173862 (\TEDIT.NEXTCHANGEABLE.CHNO
|
||||
172265 . 172980) (\TEDIT.LASTCHANGEABLE.CHNO 172982 . 173860)) (173863 178652 (\TEDIT.INSTALL.PIECE
|
||||
173873 . 178650)) (178690 188156 (TEXTPROP 178700 . 179047) (GETTEXTPROP 179049 . 179293) (PUTTEXTPROP
|
||||
179295 . 179552) (GETTEXTPROPS 179554 . 179998) (PUTTEXTPROPS 180000 . 180904) (TEXTPROP.ADD 180906
|
||||
. 181169) (\TEDIT.TEXTPROP 181171 . 188154)) (188157 190534 (\TEDIT.TEXTOBJ.PROPNAMES 188167 . 189426
|
||||
) (\TEDIT.TEXTOBJ.PROPFETCHFN 189428 . 189944) (\TEDIT.TEXTOBJ.PROPSTOREFN 189946 . 190532)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,13 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "21-Jan-2026 12:15:57" {WMEDLEY}<library>TEDIT>TEDIT-TFBRAVO.;190 98203
|
||||
(FILECREATED "10-Apr-2026 09:25:52" {WMEDLEY}<library>tedit>TEDIT-TFBRAVO.;192 97960
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS BRAVOFILEP)
|
||||
(VARS TEDIT-TFBRAVOCOMS)
|
||||
:CHANGES-TO (FNS \TFBRAVO.INSERT.RUN)
|
||||
|
||||
:PREVIOUS-DATE " 7-Sep-2025 11:11:43" {WMEDLEY}<library>TEDIT>TEDIT-TFBRAVO.;187)
|
||||
:PREVIOUS-DATE " 9-Apr-2026 17:24:28" {WMEDLEY}<library>tedit>TEDIT-TFBRAVO.;191)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-TFBRAVOCOMS)
|
||||
@@ -1027,7 +1026,8 @@
|
||||
(\TFBRAVO.INSERT.RUN RUN BSTREAM PARALOOKS TEXTOBJ])
|
||||
|
||||
(\TFBRAVO.INSERT.RUN
|
||||
[LAMBDA (RUN BSTREAM PARALOOKS TEXTOBJ) (* ; "Edited 28-Jul-2025 23:33 by rmk")
|
||||
[LAMBDA (RUN BSTREAM PARALOOKS TEXTOBJ) (* ; "Edited 10-Apr-2026 09:22 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:33 by rmk")
|
||||
(* ; "Edited 8-Feb-2025 23:08 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 12:41 by rmk")
|
||||
(* ; "Edited 16-Jan-2024 18:28 by rmk")
|
||||
@@ -1064,17 +1064,11 @@
|
||||
THINSTRING.PTYPE))
|
||||
(SETQ PBYTESPERCHAR (CL:IF FATP
|
||||
2
|
||||
1))
|
||||
(SETQ PBINABLE (NOT FATP))
|
||||
(SETQ PBYTELEN (UNFOLD NCHARS 2))
|
||||
(SETQ PUTF8BYTESPERCHAR 2))
|
||||
1)))
|
||||
else (with PIECE PC (SETQ PCONTENTS BSTREAM)
|
||||
(SETQ PFPOS RUNSTART)
|
||||
(SETQ PTYPE THINFILE.PTYPE)
|
||||
(SETQ PBINABLE T)
|
||||
(SETQ PBYTESPERCHAR 1)
|
||||
(SETQ PBYTELEN NCHARS)
|
||||
(SETQ PUTF8BYTESPERCHAR 2)))
|
||||
(SETQ PBYTESPERCHAR 1)))
|
||||
(\TEDIT.INSERTPIECE PC NIL TEXTOBJ)
|
||||
PC))])
|
||||
|
||||
@@ -1571,18 +1565,18 @@
|
||||
(AND NIL (\TEDIT.NAMEDTAB.INIT))
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (7784 15335 (BRAVOFILEP 7794 . 9981) (TEDITFROMBRAVO 9983 . 15333)) (15610 32026 (
|
||||
\TFBRAVO.GET.USER.CM 15620 . 18800) (\TFBRAVO.USER.CM.LOOKS 18802 . 20295) (\TFBRAVO.READ.USER.CM
|
||||
20297 . 24920) (\TFBRAVO.INIT.PARALOOKS 24922 . 27139) (\TFBRAVO.INIT.PAGEFORMAT 27141 . 28021) (
|
||||
\TFBRAVO.GETPARAMS 28023 . 30877) (\TFBRAVO.FIND.LAST.TRAILER 30879 . 32024)) (32068 52773 (
|
||||
\TFBRAVO.PARSE.PARA 32078 . 36005) (\TFBRAVO.READ.PARALOOKS 36007 . 42897) (\TFBRAVO.CREATE.RUNS 42899
|
||||
. 44287) (\TFBRAVO.READ.CHARLOOKS 44289 . 49318) (\TFBRAVO.FONT.FROM.CHARLOOKS 49320 . 50874) (
|
||||
\TFBRAVO.READNUM? 50876 . 52771)) (52810 63851 (\TFBRAVO.HANDLE.HEADING 52820 . 55547) (
|
||||
\TFBRAVO.PARSE.PROFILE.PARA 55549 . 63849)) (63894 86228 (\TFBRAVO.INSERT.PARA 63904 . 64745) (
|
||||
\TFBRAVO.INSERT.RUN 64747 . 68238) (\TFBRAVO.SPLIT.PARA 68240 . 75664) (\TFBRAVO.RUN.TABSPEC 75666 .
|
||||
80533) (\TFBRAVO.INSTALL.PAGEFORMAT 80535 . 86226)) (86229 90372 (\TFBRAVO.ASSERT 86239 . 86769) (
|
||||
\TEST.CHARACTER.LOOKS 86771 . 88657) (\TEST.PARAGRAPH.LOOKS 88659 . 90370)) (91382 98037 (
|
||||
\TFBRAVO.ADD.NAMEDTAB 91392 . 94995) (\TFBRAVO.COPY.NAMEDTAB 94997 . 95445) (\TFBRAVO.PUT.NAMEDTAB
|
||||
95447 . 95727) (\TFBRAVO.GET.NAMEDTAB 95729 . 96106) (\NAMEDTABNYET 96108 . 96268) (\NAMEDTABSIZE
|
||||
96270 . 96785) (\NAMEDTABPREPRINT 96787 . 96985) (\TEDIT.NAMEDTAB.INIT 96987 . 98035)))))
|
||||
(FILEMAP (NIL (7750 15301 (BRAVOFILEP 7760 . 9947) (TEDITFROMBRAVO 9949 . 15299)) (15576 31992 (
|
||||
\TFBRAVO.GET.USER.CM 15586 . 18766) (\TFBRAVO.USER.CM.LOOKS 18768 . 20261) (\TFBRAVO.READ.USER.CM
|
||||
20263 . 24886) (\TFBRAVO.INIT.PARALOOKS 24888 . 27105) (\TFBRAVO.INIT.PAGEFORMAT 27107 . 27987) (
|
||||
\TFBRAVO.GETPARAMS 27989 . 30843) (\TFBRAVO.FIND.LAST.TRAILER 30845 . 31990)) (32034 52739 (
|
||||
\TFBRAVO.PARSE.PARA 32044 . 35971) (\TFBRAVO.READ.PARALOOKS 35973 . 42863) (\TFBRAVO.CREATE.RUNS 42865
|
||||
. 44253) (\TFBRAVO.READ.CHARLOOKS 44255 . 49284) (\TFBRAVO.FONT.FROM.CHARLOOKS 49286 . 50840) (
|
||||
\TFBRAVO.READNUM? 50842 . 52737)) (52776 63817 (\TFBRAVO.HANDLE.HEADING 52786 . 55513) (
|
||||
\TFBRAVO.PARSE.PROFILE.PARA 55515 . 63815)) (63860 85985 (\TFBRAVO.INSERT.PARA 63870 . 64711) (
|
||||
\TFBRAVO.INSERT.RUN 64713 . 67995) (\TFBRAVO.SPLIT.PARA 67997 . 75421) (\TFBRAVO.RUN.TABSPEC 75423 .
|
||||
80290) (\TFBRAVO.INSTALL.PAGEFORMAT 80292 . 85983)) (85986 90129 (\TFBRAVO.ASSERT 85996 . 86526) (
|
||||
\TEST.CHARACTER.LOOKS 86528 . 88414) (\TEST.PARAGRAPH.LOOKS 88416 . 90127)) (91139 97794 (
|
||||
\TFBRAVO.ADD.NAMEDTAB 91149 . 94752) (\TFBRAVO.COPY.NAMEDTAB 94754 . 95202) (\TFBRAVO.PUT.NAMEDTAB
|
||||
95204 . 95484) (\TFBRAVO.GET.NAMEDTAB 95486 . 95863) (\NAMEDTABNYET 95865 . 96025) (\NAMEDTABSIZE
|
||||
96027 . 96542) (\NAMEDTABPREPRINT 96544 . 96742) (\TEDIT.NAMEDTAB.INIT 96744 . 97792)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "24-Dec-2025 11:22:33" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;883 231422
|
||||
(FILECREATED " 7-Feb-2026 18:53:22" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;896 234678
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.MINIMAL.WINDOW.SETUP TEDIT.PROMPTCLEAR TEDIT.PROMPTPRINT)
|
||||
:CHANGES-TO (FNS TEDIT.PROMPTPRINT)
|
||||
|
||||
:PREVIOUS-DATE "15-Nov-2025 01:27:38" {WMEDLEY}<library>tedit>TEDIT-WINDOW.;881)
|
||||
:PREVIOUS-DATE " 5-Feb-2026 08:24:23" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;895)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
|
||||
@@ -458,7 +458,10 @@
|
||||
WINDOW])
|
||||
|
||||
(\TEDIT.WINDOW.GETREGION
|
||||
[LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 25-Oct-2025 10:27 by rmk")
|
||||
[LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 5-Feb-2026 08:24 by rmk")
|
||||
(* ; "Edited 27-Jan-2026 15:30 by rmk")
|
||||
(* ; "Edited 25-Jan-2026 20:09 by rmk")
|
||||
(* ; "Edited 25-Oct-2025 10:27 by rmk")
|
||||
(* ; "Edited 19-Oct-2025 01:05 by rmk")
|
||||
(* ; "Edited 14-Apr-2025 00:05 by rmk")
|
||||
(* ; "Edited 31-Mar-2025 22:43 by rmk")
|
||||
@@ -466,87 +469,94 @@
|
||||
(* ; "Edited 18-Mar-2025 21:52 by rmk")
|
||||
(* ; "Edited 19-Feb-2025 16:48 by rmk")
|
||||
(* ; "Edited 18-Feb-2025 10:09 by rmk")
|
||||
(LET ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ))
|
||||
[WIDTHOVERHEAD (IPLUS \TEDIT.LINEREGION.WIDTH (TIMES 2 WBorder)
|
||||
(if (FGETTOBJ TEXTOBJ TXTNOTSPLITTABLE)
|
||||
then 0
|
||||
elseif (ILEQ \TEDIT.OP.WIDTH 0)
|
||||
then
|
||||
(* ;; "On both sides, for symmetry")
|
||||
(LET* ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ))
|
||||
[WIDTHOVERHEAD (IPLUS \TEDIT.LINEREGION.WIDTH (TIMES 2 WBorder)
|
||||
(if (FGETTOBJ TEXTOBJ TXTNOTSPLITTABLE)
|
||||
then 0
|
||||
elseif (ILEQ \TEDIT.OP.WIDTH 0)
|
||||
then
|
||||
(* ;; "On both sides, for symmetry")
|
||||
|
||||
\TEDIT.LINEREGION.WIDTH
|
||||
else
|
||||
(* ;;
|
||||
\TEDIT.LINEREGION.WIDTH
|
||||
else
|
||||
(* ;;
|
||||
"36 to allow for some spacing between the text and the OPS area on the right.")
|
||||
|
||||
(IPLUS \TEDIT.OP.WIDTH 36]
|
||||
[HEIGHTOVERHEAD (IPLUS PHEIGHT (ADD1 (TIMES 2 WBorder))
|
||||
(FONTPROP WindowTitleDisplayStream 'HEIGHT]
|
||||
WIDTH HEIGHT)
|
||||
(IPLUS \TEDIT.OP.WIDTH 36]
|
||||
[HEIGHTOVERHEAD (IPLUS PHEIGHT (ADD1 (TIMES 2 WBorder))
|
||||
(FONTPROP WindowTitleDisplayStream 'HEIGHT]
|
||||
WIDTH HEIGHT)
|
||||
|
||||
(* ;; "Explict properties cover content")
|
||||
(* ;; "Explict properties cover content")
|
||||
|
||||
[SETQ WIDTH (OR (GETTEXTPROP TEXTOBJ 'OPENWIDTH)
|
||||
(for PARALOOKS in (FGETTOBJ TEXTOBJ TXTPARALOOKSLIST)
|
||||
when (IGREATERP (GETPLOOKS PARALOOKS RIGHTMAR)
|
||||
0) largest (GETPLOOKS PARALOOKS RIGHTMAR)
|
||||
finally (RETURN $$EXTREME]
|
||||
(SETQ HEIGHT (GETTEXTPROP TEXTOBJ 'OPENHEIGHT))
|
||||
[SETQ WIDTH (OR (GETTEXTPROP TEXTOBJ 'OPENWIDTH)
|
||||
(for PARALOOKS in (FGETTOBJ TEXTOBJ TXTPARALOOKSLIST)
|
||||
when (IGREATERP (GETPLOOKS PARALOOKS RIGHTMAR)
|
||||
0) largest (GETPLOOKS PARALOOKS RIGHTMAR)
|
||||
finally (RETURN $$EXTREME]
|
||||
(SETQ HEIGHT (GETTEXTPROP TEXTOBJ 'OPENHEIGHT))
|
||||
|
||||
(* ;; "If still no WIDTH or HEIGHT, look at the first 20 lines")
|
||||
(* ;; "If still no WIDTH or HEIGHT, look at the first 20 lines")
|
||||
|
||||
(CL:UNLESS (AND HEIGHT WIDTH)
|
||||
(for I L (TEXTLEN _ (TEXTLEN TEXTOBJ))
|
||||
(REG _ (CREATEREGION 0 0 (IDIFFERENCE SCREENWIDTH WIDTHOVERHEAD)
|
||||
(IDIFFERENCE SCREENHEIGHT HEIGHTOVERHEAD)))
|
||||
(W _ 0)
|
||||
(H _ 0)
|
||||
(CHNO _ 1) from 1 to 20 while (ILEQ CHNO TEXTLEN)
|
||||
do
|
||||
(* ;;
|
||||
(CL:UNLESS (AND HEIGHT WIDTH)
|
||||
(for I L (TEXTLEN _ (TEXTLEN TEXTOBJ))
|
||||
(REG _ (CREATEREGION 0 0 (IDIFFERENCE SCREENWIDTH WIDTHOVERHEAD)
|
||||
(IDIFFERENCE SCREENHEIGHT HEIGHTOVERHEAD)))
|
||||
(IMAGESTREAM _ (CL:IF (\TEDIT.PRIMARYPANE TSTREAM)
|
||||
(WINDOWPROP (\TEDIT.PRIMARYPANE TSTREAM)
|
||||
'DSP)
|
||||
(DSPCREATE)))
|
||||
(W _ 0)
|
||||
(H _ 0)
|
||||
(CHNO _ 1) from 1 to 20 while (ILESSP CHNO TEXTLEN)
|
||||
do
|
||||
(* ;;
|
||||
"But we start by saying that the right margin is infinite, so we can find the true width")
|
||||
|
||||
(SETQ L (\TEDIT.FORMATLINE TSTREAM CHNO NIL REG))
|
||||
(SETQ CHNO (FGETLD L LCHARLIM))
|
||||
(add H (FGETLD L LHEIGHT))
|
||||
(CL:UNLESS WIDTH
|
||||
(CL:WHEN (EQ 'LEFT (FGETPLOOKS (FGETLD L LPARALOOKS)
|
||||
QUAD))
|
||||
(SETQ L (\TEDIT.FORMATLINE TSTREAM CHNO NIL REG IMAGESTREAM))
|
||||
(SETQ CHNO (FGETLD L LCHARLIM))
|
||||
(add H (FGETLD L LHEIGHT))
|
||||
(CL:UNLESS WIDTH
|
||||
(CL:WHEN (EQ 'LEFT (FGETPLOOKS (FGETLD L LPARALOOKS)
|
||||
QUAD))
|
||||
|
||||
(* ;;
|
||||
"JUSTIFIED, RIGHT and CENTERED involve right margin, which we don't know")
|
||||
(* ;;
|
||||
"JUSTIFIED, RIGHT and CENTERED involve right margin, which we don't know")
|
||||
|
||||
(SETQ W (IMAX W (FGETLD L LXLIM)))))
|
||||
finally (CL:UNLESS (OR WIDTH (EQ W 0)) (* ; "Maybe no lefts?")
|
||||
(SETQ WIDTH W))
|
||||
(CL:UNLESS (OR HEIGHT (EQ H 0))
|
||||
(SETQ HEIGHT H))))
|
||||
(SETQ W (IMAX W (FGETLD L LXLIM)))))
|
||||
finally (CL:UNLESS (OR WIDTH (EQ W 0)) (* ; "Maybe no lefts?")
|
||||
(SETQ WIDTH W))
|
||||
(CL:UNLESS (OR HEIGHT (EQ H 0))
|
||||
(SETQ HEIGHT H))))
|
||||
|
||||
(* ;; "Minimum sizes")
|
||||
(* ;; "Minimum sizes: 90 characters by 10 lines")
|
||||
|
||||
(SETQ WIDTH (IMAX 200 (OR WIDTH 0)))
|
||||
(SETQ HEIGHT (IMAX 100 (OR HEIGHT 0)))
|
||||
(CL:UNLESS WIDTH
|
||||
[SETQ WIDTH (TIMES 80 (FONTPROP TSTREAM 'AVGCHARWIDTH])
|
||||
(CL:UNLESS HEIGHT
|
||||
[SETQ HEIGHT (TIMES 10 (FONTPROP TSTREAM 'HEIGHT])
|
||||
|
||||
(* ;; "Allow for the extra stuff")
|
||||
(* ;; "Allow for the extra stuff")
|
||||
|
||||
(add WIDTH WIDTHOVERHEAD)
|
||||
(add HEIGHT HEIGHTOVERHEAD)
|
||||
(if (GRAB-TYPED-REGION REGIONTYPE WIDTH HEIGHT 1.1)
|
||||
else
|
||||
(* ;; "Maximum new sizes")
|
||||
(add WIDTH WIDTHOVERHEAD)
|
||||
(add HEIGHT HEIGHTOVERHEAD)
|
||||
(if (GRAB-TYPED-REGION REGIONTYPE WIDTH HEIGHT 1.1)
|
||||
else
|
||||
(* ;; "Maximum new sizes")
|
||||
|
||||
[SETQ WIDTH (IMIN WIDTH (FIXR (FTIMES SCREENWIDTH 0.9]
|
||||
[SETQ HEIGHT (IMIN HEIGHT (FIXR (FTIMES SCREENHEIGHT 0.9]
|
||||
(CLRPROMPT) (* ; "System promptwindow")
|
||||
(printout PROMPTWINDOW "Please specify a " (OR REGIONTYPE "Tedit")
|
||||
" region")
|
||||
(CL:WHEN (TXTFILE TSTREAM)
|
||||
(printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME)))
|
||||
(TERPRI PROMPTWINDOW)
|
||||
(GETBOXREGION WIDTH HEIGHT])
|
||||
[SETQ WIDTH (IMIN WIDTH (FIXR (FTIMES SCREENWIDTH 0.9]
|
||||
[SETQ HEIGHT (IMIN HEIGHT (FIXR (FTIMES SCREENHEIGHT 0.9]
|
||||
(CLRPROMPT) (* ; "System promptwindow")
|
||||
(printout PROMPTWINDOW "Please specify a " (OR REGIONTYPE "Tedit")
|
||||
" region")
|
||||
(CL:WHEN (TXTFILE TSTREAM)
|
||||
(printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME)))
|
||||
(TERPRI PROMPTWINDOW)
|
||||
(GETBOXREGION WIDTH HEIGHT])
|
||||
|
||||
(\TEDIT.WINDOW.SETUP
|
||||
[LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 6-May-2025 11:44 by rmk")
|
||||
[LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 15-Jan-2026 10:35 by rmk")
|
||||
(* ; "Edited 6-May-2025 11:44 by rmk")
|
||||
(* ; "Edited 21-Apr-2025 12:02 by rmk")
|
||||
(* ; "Edited 6-Apr-2025 18:56 by rmk")
|
||||
(* ; "Edited 5-Apr-2025 14:07 by rmk")
|
||||
@@ -595,11 +605,12 @@
|
||||
(\TEDIT.CLEARPANE PANE)
|
||||
(\TEDIT.SUFFIXLINE.CREATE PANE TSTREAM (\TEDIT.LINES.BELOW NIL PANE TSTREAM))
|
||||
(CL:WHEN AFTERPANE
|
||||
(for PANE inpanes (PROGN TEXTOBJ) as L1 on (GETSEL SEL L1) as LN
|
||||
on (GETSEL SEL LN) when (EQ PANE AFTERPANE) do (push (CDR L1)
|
||||
NIL)
|
||||
(push (CDR LN)
|
||||
NIL)))
|
||||
(for P inpanes (PROGN TEXTOBJ) as L1 on (GETSEL SEL L1) as LN
|
||||
on (GETSEL SEL LN) when (EQ P AFTERPANE) do (push (CDR L1)
|
||||
NIL)
|
||||
(push (CDR LN)
|
||||
NIL))
|
||||
(WINDOWPROP PANE 'PROMPTWINDOW (WINDOWPROP AFTERPANE 'PROMPTWINDOW)))
|
||||
(FSETSEL SEL HASCARET (NOT (FGETTOBJ TEXTOBJ TXTREADONLY)))
|
||||
(\TEDIT.FIXSEL SEL TSTREAM (AND AFTERPANE PANE)) (* ;
|
||||
"If not fixed, the highlight in the lower pane will disappear")
|
||||
@@ -775,7 +786,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.CURSORMOVEDFN
|
||||
[LAMBDA (PANE) (* ; "Edited 27-Apr-2025 23:43 by rmk")
|
||||
[LAMBDA (PANE) (* ; "Edited 14-Jan-2026 00:42 by rmk")
|
||||
(* ; "Edited 27-Apr-2025 23:43 by rmk")
|
||||
(* ; "Edited 24-Apr-2025 10:35 by rmk")
|
||||
(* ; "Edited 19-Apr-2025 22:22 by rmk")
|
||||
(* ; "Edited 1-Dec-2024 11:55 by rmk")
|
||||
@@ -792,71 +804,68 @@
|
||||
|
||||
(CL:WHEN (fetch (TEXTWINDOW WTEXTSTREAM) of (OR (WINDOWP PANE)
|
||||
(PANEWINDOW PANE)))
|
||||
[PROG ((X (LASTMOUSEX PANE))
|
||||
(Y (LASTMOUSEY PANE))
|
||||
(TEXTOBJ (PANETEXTOBJ PANE))
|
||||
(CURSORREG (fetch (TEXTWINDOW CURSORREGION) of (PANEWINDOW PANE)))
|
||||
LINE LEFT)
|
||||
(CL:UNLESS (INSIDE? (PANEREGION PANE)
|
||||
X Y)
|
||||
(CURSOR T)
|
||||
(RETURN))
|
||||
(CL:UNLESS (INSIDE? CURSORREG X Y)
|
||||
[if [AND (IGEQ X (SETQ LEFT (IDIFFERENCE (PANERIGHT PANE)
|
||||
\TEDIT.OP.WIDTH)))
|
||||
(IGEQ Y (IPLUS (PANEBOTTOM PANE)
|
||||
\TEDIT.OP.BOTTOM))
|
||||
(NOT (OR (FGETTOBJ TEXTOBJ TXTNOTSPLITTABLE)
|
||||
(EQ \TEDIT.OP.WIDTH -1]
|
||||
then
|
||||
(* ;; "We're in the split region on the right")
|
||||
[LET ((X (LASTMOUSEX PANE))
|
||||
(Y (LASTMOUSEY PANE))
|
||||
(TEXTOBJ (PANETEXTOBJ PANE))
|
||||
(CURSORREG (fetch (TEXTWINDOW CURSORREGION) of (PANEWINDOW PANE)))
|
||||
LINE LEFT)
|
||||
(CL:UNLESS (INSIDE? CURSORREG X Y)
|
||||
[if [AND (IGEQ X (SETQ LEFT (IDIFFERENCE (PANERIGHT PANE)
|
||||
\TEDIT.OP.WIDTH)))
|
||||
(IGEQ Y (IPLUS (PANEBOTTOM PANE)
|
||||
\TEDIT.OP.BOTTOM))
|
||||
(NOT (OR (FGETTOBJ TEXTOBJ TXTNOTSPLITTABLE)
|
||||
(EQ \TEDIT.OP.WIDTH -1]
|
||||
then
|
||||
(* ;; "We're in the split region on the right")
|
||||
|
||||
(CURSOR \TEDIT.SPLITCURSOR)
|
||||
(FSETTOBJ TEXTOBJ MOUSEREGION 'PANE)
|
||||
(CURSOR \TEDIT.SPLITCURSOR)
|
||||
(FSETTOBJ TEXTOBJ MOUSEREGION 'PANE)
|
||||
(* ;
|
||||
"PANE just signals \TEDIT.BUTTONEVENTFN to do a split operation.")
|
||||
(replace (REGION LEFT) of CURSORREG with LEFT)
|
||||
(replace (REGION WIDTH) of CURSORREG with \TEDIT.OP.WIDTH)
|
||||
else
|
||||
(* ;; "Not in the split region. Are we in the line-select region on the left? Don't call PANEPREFIX, because that tests for LINEDESCRIPTOR")
|
||||
(replace (REGION LEFT) of CURSORREG with LEFT)
|
||||
(replace (REGION WIDTH) of CURSORREG with \TEDIT.OP.WIDTH)
|
||||
else
|
||||
(* ;; "Not in the split region. Are we in the line-select region on the left? Don't call PANEPREFIX, because that tests for LINEDESCRIPTOR")
|
||||
|
||||
(SETQ LINE (find L inlines (GETPANEPROP (PANEPROPS PANE)
|
||||
PREFIXLINE)
|
||||
suchthat (ILEQ (FGETLD L YBOT)
|
||||
Y)))
|
||||
(CL:WHEN LINE (* ;
|
||||
(SETQ LINE (find L inlines (GETPANEPROP (PANEPROPS PANE)
|
||||
PREFIXLINE)
|
||||
suchthat (ILEQ (FGETLD L YBOT)
|
||||
Y)))
|
||||
(CL:WHEN LINE (* ;
|
||||
"The CURSORREGION picks out just LINE")
|
||||
(replace BOTTOM of CURSORREG with (FGETLD LINE YBOT))
|
||||
(replace HEIGHT of CURSORREG with (FGETLD LINE LHEIGHT)))
|
||||
(replace BOTTOM of CURSORREG with (FGETLD LINE YBOT))
|
||||
(replace HEIGHT of CURSORREG with (FGETLD LINE LHEIGHT)))
|
||||
|
||||
(* ;; "The line region gets wider if the paragraph is indented")
|
||||
(* ;; "The line region gets wider if the paragraph is indented")
|
||||
|
||||
(SETQ LEFT (OR (AND LINE (FGETLD LINE LEFTMARGIN))
|
||||
(IPLUS (PANELEFT PANE)
|
||||
\TEDIT.LINEREGION.WIDTH)))
|
||||
(if (ILESSP X LEFT)
|
||||
then
|
||||
(* ;; "In left margin; switch to the line-select cursor")
|
||||
(SETQ LEFT (OR (AND LINE (FGETLD LINE LEFTMARGIN))
|
||||
(IPLUS (PANELEFT PANE)
|
||||
\TEDIT.LINEREGION.WIDTH)))
|
||||
(if (ILESSP X LEFT)
|
||||
then
|
||||
(* ;; "In left margin; switch to the line-select cursor")
|
||||
|
||||
(CURSOR \TEDIT.LINECURSOR)
|
||||
(FSETTOBJ TEXTOBJ MOUSEREGION 'LINE)
|
||||
(replace (REGION LEFT) of CURSORREG with 0)
|
||||
(replace (REGION WIDTH) of CURSORREG with LEFT)
|
||||
else
|
||||
(* ;;
|
||||
(CURSOR \TEDIT.LINECURSOR)
|
||||
(FSETTOBJ TEXTOBJ MOUSEREGION 'LINE)
|
||||
(replace (REGION LEFT) of CURSORREG with 0)
|
||||
(replace (REGION WIDTH) of CURSORREG with LEFT)
|
||||
else
|
||||
(* ;;
|
||||
"Not in the line-select region, not in the split region, must be the main text. ")
|
||||
|
||||
(CURSOR T)
|
||||
(FSETTOBJ TEXTOBJ MOUSEREGION 'TEXT)
|
||||
(replace (REGION LEFT) of CURSORREG with LEFT)
|
||||
(replace (REGION WIDTH) of CURSORREG with (IDIFFERENCE (PANERIGHT
|
||||
PANE)
|
||||
(IPLUS LEFT
|
||||
(CURSOR T)
|
||||
(FSETTOBJ TEXTOBJ MOUSEREGION 'TEXT)
|
||||
(replace (REGION LEFT) of CURSORREG with LEFT)
|
||||
(replace (REGION WIDTH) of CURSORREG with (IDIFFERENCE (PANERIGHT
|
||||
PANE)
|
||||
(IPLUS LEFT
|
||||
\TEDIT.LINEREGION.WIDTH
|
||||
])])])
|
||||
])])])
|
||||
|
||||
(\TEDIT.CURSOROUTFN
|
||||
[LAMBDA (PANE) (* ; "Edited 4-May-2025 14:27 by rmk")
|
||||
[LAMBDA (PANE) (* ; "Edited 10-Jan-2026 22:49 by rmk")
|
||||
(* ; "Edited 4-May-2025 14:27 by rmk")
|
||||
(* ; "Edited 20-Jul-2023 20:32 by rmk")
|
||||
(* ; "Edited 30-May-91 23:32 by jds")
|
||||
|
||||
@@ -1147,7 +1156,9 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.BUTTONEVENTFN
|
||||
[LAMBDA (PANE) (* ; "Edited 6-May-2025 20:35 by rmk")
|
||||
[LAMBDA (PANE) (* ; "Edited 15-Jan-2026 00:39 by rmk")
|
||||
(* ; "Edited 11-Jan-2026 08:30 by rmk")
|
||||
(* ; "Edited 6-May-2025 20:35 by rmk")
|
||||
(* ; "Edited 21-Apr-2025 20:19 by rmk")
|
||||
(* ; "Edited 13-Apr-2025 13:33 by rmk")
|
||||
(* ; "Edited 6-Apr-2025 18:59 by rmk")
|
||||
@@ -1187,7 +1198,7 @@
|
||||
(OLDX _ MIN.SMALLP)
|
||||
(OLDY _ MIN.SMALLP)
|
||||
(PREG _ (PANEREGION PANE))
|
||||
TEXTOBJ CURSEL NEWSEL CUROPERATION NEWOPERATION PENDINGDEL READONLY
|
||||
TEXTOBJ CURSEL NEWSEL CUROPERATION NEWOPERATION PENDINGDEL READONLY SECSEL
|
||||
declare (SPECVARS CURSEL) first
|
||||
|
||||
(* ;; "Pick off and return from a bunch of peripheral situations, then fall through to the complexities of normal text selection.")
|
||||
@@ -1215,13 +1226,34 @@
|
||||
(* ;; "")
|
||||
|
||||
(SETQ READONLY (FGETTOBJ TEXTOBJ TXTREADONLY))
|
||||
(SETQ CUROPERATION 'NORMAL)
|
||||
(SETQ NEWOPERATION (\TEDIT.BUTTONEVENTFN.GETOPERATION
|
||||
READONLY NIL))
|
||||
(CL:UNLESS (SETQ CURSEL (
|
||||
READONLY NIL))
|
||||
|
||||
(* ;; "")
|
||||
|
||||
(if (SETQ CURSEL (FGETTOBJ TEXTOBJ SECONDARYSEL))
|
||||
then (* ;
|
||||
"Mouse moved out and came back...and clicked.")
|
||||
(SETQ CUROPERATION (FGETSEL CURSEL
|
||||
SELOPERATION))
|
||||
(SETQ PENDINGDEL (EQ CUROPERATION
|
||||
'PENDINGDEL))
|
||||
(CL:UNLESS (EQ NEWOPERATION CUROPERATION)
|
||||
(* ;
|
||||
"Shift keys have changed, turn off old secondary")
|
||||
(\TEDIT.SEL.OFF TSTREAM CURSEL))
|
||||
(CL:WHEN (EQ NEWOPERATION 'NORMAL)
|
||||
(* ; "")
|
||||
(CL:UNLESS (SETQ CURSEL (
|
||||
\TEDIT.BUTTONEVENTFN.CURSEL.INIT
|
||||
NEWOPERATION TSTREAM))
|
||||
(RETURN))
|
||||
NEWOPERATION
|
||||
TSTREAM))
|
||||
(RETURN)))
|
||||
elseif (SETQ CURSEL (
|
||||
\TEDIT.BUTTONEVENTFN.CURSEL.INIT
|
||||
NEWOPERATION TSTREAM))
|
||||
then (SETQ CUROPERATION 'NORMAL)
|
||||
else (RETURN))
|
||||
(SETQ NEWSEL (\TEDIT.COPYSEL CURSEL))
|
||||
(* ;
|
||||
"Gets line-chains and consistent initial looks")
|
||||
@@ -1230,35 +1262,27 @@
|
||||
(GETMOUSESTATE) (* ;
|
||||
"And get the new mouse and key info")
|
||||
(\TEDIT.CURSORMOVEDFN PANE)
|
||||
(SETQ NEWOPERATION (\TEDIT.BUTTONEVENTFN.GETOPERATION READONLY CUROPERATION))
|
||||
(SETQ NEWOPERATION (\TEDIT.BUTTONEVENTFN.GETOPERATION READONLY CUROPERATION))
|
||||
(FSETTOBJ TEXTOBJ SECONDARYSEL CURSEL)
|
||||
|
||||
(* ;; "We're done if keys and buttons are up")
|
||||
until (AND (EQ NEWOPERATION 'NORMAL)
|
||||
(ALLBUTTONSUP)) unless (AND (IEQP OLDX (SETQ X (LASTMOUSEX DS)))
|
||||
(IEQP OLDY (SETQ Y (LASTMOUSEY DS)))
|
||||
(EQ CUROPERATION NEWOPERATION))
|
||||
do
|
||||
do (CL:UNLESS (INSIDEP (PANEREGION PANE PREG)
|
||||
X Y) (* ;
|
||||
"Left the window, stay in the loop if scrolling")
|
||||
(CL:UNLESS (IN/SCROLL/BAR? PANE LASTMOUSEX LASTMOUSEY)
|
||||
(RETURN))
|
||||
(SCROLL.HANDLER PANE))
|
||||
|
||||
(* ;; "")
|
||||
|
||||
(* ;; "Polling loop, track the mouse until the buttons and modifier keys come up, i.e. NORMAL Nothing to do until the mouse moves or the operation changes. .")
|
||||
|
||||
(* ;; "First and always: CURSEL is ON at this point and matches the display. NEWSEL may not be well-defined.")
|
||||
|
||||
(CL:UNLESS (INSIDEP (PANEREGION PANE PREG)
|
||||
X Y) (* ;
|
||||
"The mouse left the window: cleanup and leave. ")
|
||||
(CL:UNLESS (EQ CUROPERATION 'NORMAL) (* ;
|
||||
"Take down the copy/delete/copylooks highlight")
|
||||
(\TEDIT.SEL.OFF TSTREAM CURSEL)
|
||||
(\TEDIT.SEL.ON TSTREAM)) (* ; "Go back to original selection?")
|
||||
|
||||
(* ;;
|
||||
"Scroll if mouse moved to scroll bar (and scroll bar doesn't overlap the window)")
|
||||
|
||||
(CL:WHEN (IN/SCROLL/BAR? PANE LASTMOUSEX LASTMOUSEY)
|
||||
(SCROLL.HANDLER PANE))
|
||||
(RETURN))
|
||||
|
||||
(* ;; "")
|
||||
|
||||
(* ;; "Ready to track the selection.")
|
||||
|
||||
(SETQ OLDX X)
|
||||
@@ -1322,9 +1346,12 @@
|
||||
|
||||
(* ;; "Out of Polling loop")
|
||||
|
||||
(SETTOBJ (FTEXTOBJ TSTREAM)
|
||||
SECONDARYSEL NIL) (* ;
|
||||
"All keys are up, secondary selection is closed")
|
||||
(CL:UNLESS (FGETSEL NEWSEL SET)
|
||||
|
||||
(* ;; ".Here to restore when no valid selection, maybe an unhappy image object?")
|
||||
(* ;; "Here to restore when no valid selection, maybe an unhappy image object?")
|
||||
|
||||
(\TEDIT.SEL.OFF TSTREAM CURSEL) (* ; "Turn off CURSEL")
|
||||
(\TEDIT.SET.SEL.LOOKS (TEXTSEL TEXTOBJ)
|
||||
@@ -1335,6 +1362,8 @@
|
||||
|
||||
(\TEDIT.BUTTONEVENTFN.DOOPERATION
|
||||
[LAMBDA (CURSEL CUROPERATION TSTREAM PANE PENDINGDEL TTYPROC)
|
||||
(* ; "Edited 31-Jan-2026 11:51 by rmk")
|
||||
(* ; "Edited 9-Jan-2026 11:28 by rmk")
|
||||
(* ; "Edited 6-May-2025 11:54 by rmk")
|
||||
(* ; "Edited 27-Apr-2025 22:26 by rmk")
|
||||
(* ; "Edited 21-Apr-2025 20:32 by rmk")
|
||||
@@ -1388,14 +1417,14 @@
|
||||
"Make sure the caret blinks in the position of a successful deletion")
|
||||
(FSETSEL TEXTSEL HASCARET T))
|
||||
(\TEDIT.SETCARET TEXTSEL PANE TEXTOBJ T))
|
||||
(COPY (CL:IF TTYSEL
|
||||
(COPY (\TEDIT.SEL.OFF TSTREAM CURSEL)
|
||||
(CL:IF TTYSEL
|
||||
(\TEDIT.COPY CURSEL TTYSEL TSTREAM TTYSTREAM)
|
||||
(\TEDIT.FOREIGN.COPY TTYW CURSEL TSTREAM))
|
||||
(\TEDIT.SEL.OFF TSTREAM CURSEL))
|
||||
(\TEDIT.FOREIGN.COPY CURSEL TSTREAM)))
|
||||
(MOVE (\TEDIT.SEL.OFF TSTREAM CURSEL)
|
||||
(if TTYSEL
|
||||
then (\TEDIT.MOVE CURSEL TTYSEL TSTREAM TTYSTREAM)
|
||||
else (\TEDIT.FOREIGN.COPY TTYW CURSEL TSTREAM)
|
||||
else (\TEDIT.FOREIGN.COPY CURSEL TSTREAM)
|
||||
(* ; "TEXTSEL moves to deletion point")
|
||||
(\TEDIT.UPDATE.SEL TEXTSEL (FGETSEL CURSEL CH#)
|
||||
0
|
||||
@@ -1618,7 +1647,8 @@
|
||||
then (TEDIT.INSERT TSTREAM I])
|
||||
|
||||
(\TEDIT.FOREIGN.COPY
|
||||
[LAMBDA (TTYW SOURCESEL SOURCESTREAM BKSYSBUFP) (* ; "Edited 28-Mar-2025 12:51 by rmk")
|
||||
[LAMBDA (SOURCESEL SOURCESTREAM BKSYSBUFP) (* ; "Edited 31-Jan-2026 09:20 by rmk")
|
||||
(* ; "Edited 28-Mar-2025 12:51 by rmk")
|
||||
(* ; "Edited 27-Aug-2024 13:38 by rmk")
|
||||
(* ; "Edited 7-Jul-2024 09:26 by rmk")
|
||||
(* ; "Edited 29-Apr-2024 13:37 by rmk")
|
||||
@@ -1630,7 +1660,8 @@
|
||||
(CL:WHEN (IGREATERP (GETSEL SOURCESEL DCH)
|
||||
0) (* ; "If empty, nothing to do")
|
||||
[if (AND NIL (NOT BKSYSBUFP)
|
||||
(WINDOWPROP TTYW 'COPYINSERTFN))
|
||||
(PROCESSPROP (TTY.PROCESS)
|
||||
'WINDOW))
|
||||
then
|
||||
(* ;; "This is a stub for a definition that knows how to do a looked string object, given that the destination TTY window has a COPYINSERTFN. OBJECTFROMSEL is in {LFG}tedit/UNBREAKABLESTRING")
|
||||
|
||||
@@ -2060,7 +2091,8 @@
|
||||
PROMPTWINDOW])
|
||||
|
||||
(TEDIT.PROMPTPRINT
|
||||
[LAMBDA (TSTREAM MSG CLEAR? FLASH?) (* ; "Edited 14-Dec-2025 17:41 by rmk")
|
||||
[LAMBDA (TSTREAM MSG CLEAR? FLASH?) (* ; "Edited 7-Feb-2026 18:51 by rmk")
|
||||
(* ; "Edited 14-Dec-2025 17:41 by rmk")
|
||||
(* ; "Edited 29-Dec-2024 14:45 by rmk")
|
||||
(* ; "Edited 26-Nov-2023 10:10 by rmk")
|
||||
(* ; "Edited 10-Sep-2023 00:27 by rmk")
|
||||
@@ -2072,31 +2104,33 @@
|
||||
|
||||
(* ;; "Print a message in the editor's prompt window (if none, use the global promptwindow). Optionally clear the window first.")
|
||||
|
||||
(LET ((TEXTOBJ (TEXTOBJ TSTREAM T))
|
||||
PWINDOW MAINWINDOW)
|
||||
(if TEXTOBJ
|
||||
then (CL:WHEN (SETQ MAINWINDOW (\TEDIT.MAINW TEXTOBJ))
|
||||
[SETQ PWINDOW
|
||||
(CAR (NLSETQ (SELECTQ PWINDOW
|
||||
(DON'T (CL:WHEN (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND)
|
||||
(GETPROMPTWINDOW MAINWINDOW)))
|
||||
(NIL (CL:WHEN TSTREAM
|
||||
[GETPROMPTWINDOW MAINWINDOW NIL NIL
|
||||
(NOT (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND]))
|
||||
PWINDOW]) (* ;
|
||||
(PROG ((TEXTOBJ (TEXTOBJ TSTREAM T))
|
||||
PWINDOW MAINWINDOW)
|
||||
(CL:UNLESS TEXTOBJ
|
||||
(PROMPTPRINT MSG)
|
||||
(RETURN))
|
||||
(CL:WHEN (SETQ MAINWINDOW (\TEDIT.MAINW TSTREAM))
|
||||
(SETQ PWINDOW (FGETTOBJ TEXTOBJ PROMPTWINDOW))
|
||||
[SETQ PWINDOW (CAR (NLSETQ (SELECTQ PWINDOW
|
||||
(DON'T (CL:WHEN (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND)
|
||||
(GETPROMPTWINDOW MAINWINDOW)))
|
||||
(NIL (CL:WHEN TSTREAM
|
||||
[GETPROMPTWINDOW MAINWINDOW NIL NIL
|
||||
(NOT (GETTEXTPROP TEXTOBJ
|
||||
'PWINDOW.ON.DEMAND]))
|
||||
PWINDOW]) (* ;
|
||||
"Try to find an editor's prompt window for our message")
|
||||
(COND
|
||||
((WINDOWP PWINDOW) (* ;
|
||||
(if (WINDOWP PWINDOW)
|
||||
then (* ;
|
||||
"We found a window to use. Print the message.")
|
||||
(CL:WHEN CLEAR? (CLEARW PWINDOW))
|
||||
(CL:WHEN FLASH? (FLASHWINDOW PWINDOW 1 75))
|
||||
(PRIN1 MSG PWINDOW))
|
||||
(T (* ;
|
||||
(CL:WHEN CLEAR? (CLEARW PWINDOW))
|
||||
(CL:WHEN FLASH? (FLASHWINDOW PWINDOW 1 75))
|
||||
(PRIN1 MSG PWINDOW)
|
||||
else (* ;
|
||||
"Failing all else, use global PROMPTWINDOW.")
|
||||
(FRESHLINE PROMPTWINDOW)
|
||||
(CL:WHEN FLASH? (FLASHWINDOW PWINDOW 1 75))
|
||||
(printout PROMPTWINDOW MSG)))
|
||||
else (PROMPTPRINT MSG])
|
||||
(FRESHLINE PROMPTWINDOW)
|
||||
(CL:WHEN FLASH? (FLASHWINDOW PWINDOW 1 75))
|
||||
(printout PROMPTWINDOW MSG])
|
||||
|
||||
(TEDIT.PROMPTCLEAR
|
||||
[LAMBDA (TSTREAM FONT) (* ; "Edited 14-Dec-2025 17:34 by rmk")
|
||||
@@ -3664,36 +3698,36 @@
|
||||
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
|
||||
TEDIT.ICON.TITLE.REGION))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (17143 18039 (TEDIT.DEFER.UPDATES 17153 . 18037)) (18040 45281 (\TEDIT.WINDOW.CREATE
|
||||
18050 . 24913) (\TEDIT.WINDOW.GETREGION 24915 . 29619) (\TEDIT.WINDOW.SETUP 29621 . 33951) (
|
||||
\TEDIT.MINIMAL.WINDOW.SETUP 33953 . 41913) (\TEDIT.CLEARPANE 41915 . 42632) (\TEDIT.FILL.PANES 42634
|
||||
. 45279)) (45282 68983 (\TEDIT.CURSORMOVEDFN 45292 . 50902) (\TEDIT.CURSOROUTFN 50904 . 51592) (
|
||||
\TEDIT.ACTIVE.WINDOWP 51594 . 52664) (\TEDIT.EXPANDFN 52666 . 53229) (\TEDIT.MAINW 53231 . 54511) (
|
||||
\TEDIT.MAINSTREAM 54513 . 54847) (\TEDIT.PRIMARYPANE 54849 . 55619) (\TEDIT.PANELIST 55621 . 56117) (
|
||||
\TEDIT.NEWREGIONFN 56119 . 58635) (\TEDIT.SET.WINDOW.EXTENT 58637 . 63619) (\TEDIT.SHRINK.ICONCREATE
|
||||
63621 . 66354) (\TEDIT.SHRINKFN 66356 . 66765) (\TEDIT.PANEREGION 66767 . 68981)) (69015 102061 (
|
||||
\TEDIT.BUTTONEVENTFN 69025 . 81998) (\TEDIT.BUTTONEVENTFN.DOOPERATION 82000 . 89263) (
|
||||
\TEDIT.BUTTONEVENTFN.GETOPERATION 89265 . 91107) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 91109 . 94779) (
|
||||
\TEDIT.BUTTONEVENTFN.INACTIVE 94781 . 97211) (\TEDIT.BUTTONEVENTFN.INTITLE 97213 . 99048) (
|
||||
\TEDIT.COPYINSERTFN 99050 . 100182) (\TEDIT.FOREIGN.COPY 100184 . 102059)) (102062 119625 (
|
||||
\TEDIT.PANE.SPLIT 102072 . 106020) (\TEDIT.SPLITW 106022 . 114081) (\TEDIT.UNSPLITW 114083 . 118282) (
|
||||
\TEDIT.LINKPANES 118284 . 119047) (\TEDIT.UNLINKPANE 119049 . 119623)) (121059 121950 (TEDITWINDOWP
|
||||
121069 . 121948)) (121987 125090 (TEDIT.GETINPUT 121997 . 124440) (\TEDIT.MAKEFILENAME 124442 . 125088
|
||||
)) (125139 132985 (TEDIT.PROMPTWINDOW 125149 . 125463) (TEDIT.PROMPTPRINT 125465 . 128195) (
|
||||
TEDIT.PROMPTCLEAR 128197 . 130032) (TEDIT.PROMPTFLASH 130034 . 131292) (\TEDIT.PROMPT.PAGEFULLFN
|
||||
131294 . 132983)) (133223 143801 (\TEDIT.FILENAME 133233 . 134005) (\TEDIT.DEFAULT.TITLE 134007 .
|
||||
136386) (\TEDIT.WINDOW.TITLE 136388 . 138557) (\TEDIT.LIKELY.FILENAME 138559 . 141283) (
|
||||
\TEDIT.UPDATE.TITLE 141285 . 143799)) (143844 156328 (TEDIT.DEACTIVATE.WINDOW 143854 . 149427) (
|
||||
\TEDIT.RESHAPEFN 149429 . 151514) (\TEDIT.REPAINTFN 151516 . 151740) (\TEDIT.CLOSESPLITS 151742 .
|
||||
154187) (\TEDIT.CLOSEPANE 154189 . 156326)) (156329 199128 (\TEDIT.SCROLLFN 156339 . 158570) (
|
||||
\TEDIT.SCROLLCH.TOP 158572 . 160683) (\TEDIT.SCROLLCH.BOTTOM 160685 . 165015) (\TEDIT.SCROLLUP 165017
|
||||
. 170743) (\TEDIT.TOPLINE.YTOP 170745 . 172414) (\TEDIT.SCROLLDOWN 172416 . 179455) (
|
||||
\TEDIT.SCROLL.CARET 179457 . 182295) (\TEDIT.VISIBLECARETP 182297 . 184591) (\TEDIT.VISIBLECHARP
|
||||
184593 . 185684) (\TEDIT.BITMAPLINES 185686 . 189606) (\TEDIT.SETPANE.TOPLINE 189608 . 190220) (
|
||||
\TEDIT.SHIFTLINES 190222 . 199126)) (199129 209998 (\TEDIT.ONSCREEN? 199139 . 203690) (
|
||||
\TEDIT.ONSCREEN.REGION 203692 . 207343) (\TEDIT.AFTERMOVEFN 207345 . 208242) (OFFSCREENP 208244 .
|
||||
209996)) (210040 212854 (\TEDIT.PROCIDLEFN 210050 . 211710) (\TEDIT.PROCENTRYFN 211712 . 212157) (
|
||||
\TEDIT.PROCEXITFN 212159 . 212852)) (212933 226158 (\TEDIT.DOWNCARET 212943 . 213736) (
|
||||
\TEDIT.FLASHCARET 213738 . 215849) (\TEDIT.UPCARET 215851 . 216955) (TEDIT.NORMALIZECARET 216957 .
|
||||
220175) (\TEDIT.SETCARET 220177 . 225528) (\TEDIT.CARET 225530 . 226156)))))
|
||||
(FILEMAP (NIL (17097 17993 (TEDIT.DEFER.UPDATES 17107 . 17991)) (17994 46195 (\TEDIT.WINDOW.CREATE
|
||||
18004 . 24867) (\TEDIT.WINDOW.GETREGION 24869 . 30356) (\TEDIT.WINDOW.SETUP 30358 . 34865) (
|
||||
\TEDIT.MINIMAL.WINDOW.SETUP 34867 . 42827) (\TEDIT.CLEARPANE 42829 . 43546) (\TEDIT.FILL.PANES 43548
|
||||
. 46193)) (46196 69923 (\TEDIT.CURSORMOVEDFN 46206 . 51733) (\TEDIT.CURSOROUTFN 51735 . 52532) (
|
||||
\TEDIT.ACTIVE.WINDOWP 52534 . 53604) (\TEDIT.EXPANDFN 53606 . 54169) (\TEDIT.MAINW 54171 . 55451) (
|
||||
\TEDIT.MAINSTREAM 55453 . 55787) (\TEDIT.PRIMARYPANE 55789 . 56559) (\TEDIT.PANELIST 56561 . 57057) (
|
||||
\TEDIT.NEWREGIONFN 57059 . 59575) (\TEDIT.SET.WINDOW.EXTENT 59577 . 64559) (\TEDIT.SHRINK.ICONCREATE
|
||||
64561 . 67294) (\TEDIT.SHRINKFN 67296 . 67705) (\TEDIT.PANEREGION 67707 . 69921)) (69955 105080 (
|
||||
\TEDIT.BUTTONEVENTFN 69965 . 84672) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84674 . 92145) (
|
||||
\TEDIT.BUTTONEVENTFN.GETOPERATION 92147 . 93989) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 93991 . 97661) (
|
||||
\TEDIT.BUTTONEVENTFN.INACTIVE 97663 . 100093) (\TEDIT.BUTTONEVENTFN.INTITLE 100095 . 101930) (
|
||||
\TEDIT.COPYINSERTFN 101932 . 103064) (\TEDIT.FOREIGN.COPY 103066 . 105078)) (105081 122644 (
|
||||
\TEDIT.PANE.SPLIT 105091 . 109039) (\TEDIT.SPLITW 109041 . 117100) (\TEDIT.UNSPLITW 117102 . 121301) (
|
||||
\TEDIT.LINKPANES 121303 . 122066) (\TEDIT.UNLINKPANE 122068 . 122642)) (124078 124969 (TEDITWINDOWP
|
||||
124088 . 124967)) (125006 128109 (TEDIT.GETINPUT 125016 . 127459) (\TEDIT.MAKEFILENAME 127461 . 128107
|
||||
)) (128158 136241 (TEDIT.PROMPTWINDOW 128168 . 128482) (TEDIT.PROMPTPRINT 128484 . 131451) (
|
||||
TEDIT.PROMPTCLEAR 131453 . 133288) (TEDIT.PROMPTFLASH 133290 . 134548) (\TEDIT.PROMPT.PAGEFULLFN
|
||||
134550 . 136239)) (136479 147057 (\TEDIT.FILENAME 136489 . 137261) (\TEDIT.DEFAULT.TITLE 137263 .
|
||||
139642) (\TEDIT.WINDOW.TITLE 139644 . 141813) (\TEDIT.LIKELY.FILENAME 141815 . 144539) (
|
||||
\TEDIT.UPDATE.TITLE 144541 . 147055)) (147100 159584 (TEDIT.DEACTIVATE.WINDOW 147110 . 152683) (
|
||||
\TEDIT.RESHAPEFN 152685 . 154770) (\TEDIT.REPAINTFN 154772 . 154996) (\TEDIT.CLOSESPLITS 154998 .
|
||||
157443) (\TEDIT.CLOSEPANE 157445 . 159582)) (159585 202384 (\TEDIT.SCROLLFN 159595 . 161826) (
|
||||
\TEDIT.SCROLLCH.TOP 161828 . 163939) (\TEDIT.SCROLLCH.BOTTOM 163941 . 168271) (\TEDIT.SCROLLUP 168273
|
||||
. 173999) (\TEDIT.TOPLINE.YTOP 174001 . 175670) (\TEDIT.SCROLLDOWN 175672 . 182711) (
|
||||
\TEDIT.SCROLL.CARET 182713 . 185551) (\TEDIT.VISIBLECARETP 185553 . 187847) (\TEDIT.VISIBLECHARP
|
||||
187849 . 188940) (\TEDIT.BITMAPLINES 188942 . 192862) (\TEDIT.SETPANE.TOPLINE 192864 . 193476) (
|
||||
\TEDIT.SHIFTLINES 193478 . 202382)) (202385 213254 (\TEDIT.ONSCREEN? 202395 . 206946) (
|
||||
\TEDIT.ONSCREEN.REGION 206948 . 210599) (\TEDIT.AFTERMOVEFN 210601 . 211498) (OFFSCREENP 211500 .
|
||||
213252)) (213296 216110 (\TEDIT.PROCIDLEFN 213306 . 214966) (\TEDIT.PROCENTRYFN 214968 . 215413) (
|
||||
\TEDIT.PROCEXITFN 215415 . 216108)) (216189 229414 (\TEDIT.DOWNCARET 216199 . 216992) (
|
||||
\TEDIT.FLASHCARET 216994 . 219105) (\TEDIT.UPCARET 219107 . 220211) (TEDIT.NORMALIZECARET 220213 .
|
||||
223431) (\TEDIT.SETCARET 223433 . 228784) (\TEDIT.CARET 228786 . 229412)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,11 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "16-Feb-2026 08:56:58"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;249 52790
|
||||
(FILECREATED " 1-May-2026 08:16:04" {MEDLEY}<library>tedit>tedit-exports.all;255 52514
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:PREVIOUS-DATE "14-Jan-2026 14:50:53" {WMEDLEY}<library>TEDIT>tedit-exports.all;248)
|
||||
:PREVIOUS-DATE "15-Apr-2026 23:45:28" {MEDLEY}<library>TEDIT>tedit-exports.all;254)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT ((E (MAPC (MKLIST FROMFILES) (FUNCTION (LAMBDA (F) (MAPC (IMPORTFILE F FLG) (FUNCTION
|
||||
@@ -17,7 +16,7 @@ PRINT))))))))
|
||||
(PUTPROPS FTEXTOBJ MACRO ((X) (TEXTOBJ! (CL:IF (type? TEXTOBJ X) X (GETTSTR X TEXTOBJ)))))
|
||||
(GLOBALVARS CHECK-TEDIT-ASSERTIONS)
|
||||
(RPAQ? CHECK-TEDIT-ASSERTIONS T)
|
||||
(PUTPROP (QUOTE TEDIT) (QUOTE IMPORTDATE) (IDATE " 4-Feb-2026 16:02:02"))
|
||||
(PUTPROP (QUOTE TEDIT) (QUOTE IMPORTDATE) (IDATE "10-Mar-2026 18:07:31"))
|
||||
(RPAQQ \BTREEWORDSPERSLOT 4)
|
||||
(RPAQQ \BTREEMAXCOUNT 8)
|
||||
(CONSTANTS (\BTREEWORDSPERSLOT 4) (\BTREEMAXCOUNT 8))
|
||||
@@ -51,7 +50,7 @@ DLEN1 DOWN2 DLEN2 DOWN3 DLEN3 DOWN4 DLEN4 DOWN5 DLEN5 DOWN6 DLEN6 DOWN7 DLEN7 DO
|
||||
(\DTEST (OR (NEXTPIECE I.V.) (GO $$OUT)) (QUOTE PIECE)))))
|
||||
(I.S.OPR (QUOTE backpieces) NIL (QUOTE (first (SETQ I.V. (\DTEST (OR BODY (GO $$OUT)) (QUOTE PIECE)))
|
||||
by (\DTEST (OR (PREVPIECE I.V.) (GO $$OUT)) (QUOTE PIECE)))))
|
||||
(PUTPROP (QUOTE TEDIT-PCTREE) (QUOTE IMPORTDATE) (IDATE "14-Feb-2026 13:22:06"))
|
||||
(PUTPROP (QUOTE TEDIT-PCTREE) (QUOTE IMPORTDATE) (IDATE " 9-Apr-2026 17:25:38"))
|
||||
(DATATYPE SELECTION ((* ;;
|
||||
"Description of a piece of selected text for TEdit. Text has to be selected before it can be operated on by the user. The caret is to the left of CH# if POINT is LEFT, to the keft of CHLIM if POINT is RIGHT."
|
||||
) (* ;; "If DCH > 0, highlighting goes from CH# to (SUB1 CHLIM = (SUB1 (IPLUS CH# DCH)).") (* ;;
|
||||
@@ -128,7 +127,7 @@ TSTREAM ONLYPANE DONTFIX)))
|
||||
(PUTPROPS \TEDIT.SEL.OFF MACRO ((TSTREAM SEL ONLYPANE) (* ;
|
||||
"Takes down SEL in TSTREAM, where SEL defaults to the current selection") (\TEDIT.SHOWSEL SEL NIL
|
||||
TSTREAM ONLYPANE)))
|
||||
(PUTPROP (QUOTE TEDIT-SELECTION) (QUOTE IMPORTDATE) (IDATE "16-Feb-2026 00:38:33"))
|
||||
(PUTPROP (QUOTE TEDIT-SELECTION) (QUOTE IMPORTDATE) (IDATE "16-Apr-2026 09:27:41"))
|
||||
(RECORD TAB (TABX . TABKIND))
|
||||
(RECORD TABSPEC (DEFAULTTAB . TABS))
|
||||
(DATATYPE LINECACHE ((* ;; "Image cache for display lines.") LCBITMAP (* ;
|
||||
@@ -263,21 +262,22 @@ $$CHARSLOTLIMIT))))) T)
|
||||
(DATATYPE PIECE ((* ;
|
||||
"The piece describes either a string or part of a file. , or a generalized OBJECT.") PCONTENTS (* ;
|
||||
"The background source of data for this piece (stream, string, block, object, depending on the PTYPE)."
|
||||
) (PTYPE BITS 4) (* ; "How the characters are delivered: thinfile, fatstring, object, substream")
|
||||
PBYTELEN (* ; "Length of this character piece in bytes. PBYTELEN = PLEN*PBYTESPERCHAR") PFPOS (* ;
|
||||
"The FILEPTR of the start of the piece in the file") PLEN (* ; "Length of the piece, in characters.")
|
||||
NEXTPIECE (* ; "-> Next piece in this textobj.") (PREVPIECE FULLXPOINTER) (* ;
|
||||
"-> Prior piece in this text object.") PCHARLOOKS (* ; "Character formatting info ") PBYTESPERCHAR (*
|
||||
; "The number of bytes per character, given that all characters in a piece are the same length.") (
|
||||
) (PTYPE BITS 4) (* ; "How the characters are delivered: thinfile, fatstring, object, substream") NIL
|
||||
(* ; "Was PBYTELEN: Length of this character piece in bytes. PBYTELEN = PLEN*PBYTESPERCHAR") PFPOS (*
|
||||
; "The FILEPTR of the start of the piece in the file") PLEN (* ;
|
||||
"Length of the piece, in characters.") NEXTPIECE (* ; "-> Next piece in this textobj.") (PREVPIECE
|
||||
FULLXPOINTER) (* ; "-> Prior piece in this text object.") PCHARLOOKS (* ; "Character formatting info "
|
||||
) PBYTESPERCHAR (* ;
|
||||
"The number of bytes per character, given that all characters in a piece are the same length.") (
|
||||
PPARALAST FLAG) (* ; "This piece ends paragraph") PPARALOOKS (* ; "Paragraph looks for this piece") (
|
||||
PNEW FLAG) (* ;
|
||||
"This text is new here; used by the tentative edit system, and anyone else interested.") (NIL FLAG) (
|
||||
* ; "Was PFATP") (PBINABLE FLAG) (* ; "8-bit bytes are binable (THINSTRING and THINFILE) ") (PTREENODE
|
||||
XPOINTER) (* ; "Points to the PCTB tree-node that contains this piece.") (PCHARSET BYTE) (* ;
|
||||
"High-order charset for FATFILE1 pieces") (PUTF8BYTESPERCHAR BYTE)) (* ;
|
||||
"The number of bytes in the UTF-8 encoding of all the Unicode characters in this piece") (ACCESSFNS ((
|
||||
POBJ (AND (EQ OBJECT.PTYPE (PTYPE DATUM)) (type? IMAGEOBJ (PCONTENTS DATUM)) (PCONTENTS DATUM)) (AND (
|
||||
EQ OBJECT.PTYPE (PTYPE DATUM)) (SETPC DATUM PCONTENTS NEWVALUE))))) PFPOS _ 0 PLEN _ 0 PBYTELEN _ 0)
|
||||
* ; "Was PFATP") (NIL FLAG) (PTREENODE XPOINTER) (* ;
|
||||
"Points to the PCTB tree-node that contains this piece.") (NIL BYTE) (* ;
|
||||
"Was PCHARSET: High-order charset for FATFILE1 pieces") NIL) (* ;
|
||||
"Was PUTF8BYTESPERCHAR: The number of bytes in the UTF-8 encoding of all the Unicode characters in this piece. But this just duplicates PBYTESPERCHAR for UTF-8 pieces"
|
||||
) (ACCESSFNS ((POBJ (AND (EQ OBJECT.PTYPE (PTYPE DATUM)) (type? IMAGEOBJ (PCONTENTS DATUM)) (PCONTENTS
|
||||
DATUM)) (AND (EQ OBJECT.PTYPE (PTYPE DATUM)) (SETPC DATUM PCONTENTS NEWVALUE))))) PFPOS _ 0 PLEN _ 0)
|
||||
(DATATYPE TEXTOBJ ((* ;;
|
||||
"This is where TEdit stores its state information, and internal data about the text being edited.")
|
||||
PCTB (* ; "The piece table") TEXTLEN (* ; "# of chars in the text") PRIMARYPANE (* ;
|
||||
@@ -376,13 +376,12 @@ IMAGEDATA _ NIL)))
|
||||
(PUTPROPS PTYPE MACRO ((PC) (ffetch (PIECE PTYPE) of PC)))
|
||||
(PUTPROPS PCONTENTS MACRO ((PC) (ffetch (PIECE PCONTENTS) of PC)))
|
||||
(PUTPROPS PCHARLOOKS MACRO ((PC) (ffetch (PIECE PCHARLOOKS) of PC)))
|
||||
(PUTPROPS PCHARSET MACRO ((PC) (ffetch (PIECE PCHARSET) of PC)))
|
||||
(PUTPROPS PPARALOOKS MACRO ((PC) (ffetch (PIECE PPARALOOKS) of PC)))
|
||||
(PUTPROPS PPARALAST MACRO ((PC) (ffetch (PIECE PPARALAST) of PC)))
|
||||
(PUTPROPS PFPOS MACRO ((PC) (ffetch (PIECE PFPOS) of PC)))
|
||||
(PUTPROPS PBYTELEN MACRO ((PC) (ffetch (PIECE PBYTELEN) of PC)))
|
||||
(PUTPROPS PBYTELEN MACRO (OPENLAMBDA (PC) (ITIMES (ffetch (PIECE PLEN) of PC) (ffetch (PIECE
|
||||
PBYTESPERCHAR) of PC))))
|
||||
(PUTPROPS PNEW MACRO ((PC) (ffetch (PIECE PNEW) of PC)))
|
||||
(PUTPROPS PBINABLE MACRO ((PC) (ffetch (PIECE PBINABLE) of PC)))
|
||||
(PUTPROPS PBYTESPERCHAR MACRO ((PC) (ffetch (PIECE PBYTESPERCHAR) of PC)))
|
||||
(PUTPROPS POBJ MACRO ((PC) (ffetch (PIECE POBJ) of PC)))
|
||||
(PUTPROPS SETPC MACRO ((PC FIELD NEWVALUE) (replace (PIECE FIELD) of PC with NEWVALUE)))
|
||||
@@ -391,7 +390,7 @@ IMAGEDATA _ NIL)))
|
||||
(PUTPROPS FGETPC MACRO ((PC FIELD) (ffetch (PIECE FIELD) of PC)))
|
||||
(PUTPROPS THINPIECEP MACRO ((PC) (* ;;
|
||||
"Assume that objects start out thin, for CHARSET in \TEDIT.PUT.PCTB. The putfn might immediately change that, but we don't care."
|
||||
) (SELECTC (PTYPE PC) (THIN.PTYPES T) (UTF8.PTYPE (EQ 1 (FGETPC PC PUTF8BYTESPERCHAR))) NIL)))
|
||||
) (SELECTC (PTYPE PC) (THIN.PTYPES T) (UTF8.PTYPE (EQ 1 (FGETPC PC PBYTESPERCHAR))) NIL)))
|
||||
(PUTPROPS VISIBLEPIECEP MACRO ((PC) (AND PC (NEQ 0 (PLEN PC)) (NOT (FGETCLOOKS (PCHARLOOKS PC)
|
||||
CLINVISIBLE)))))
|
||||
(PUTPROPS \NEXT.VISIBLE.PIECE MACRO ((PC) (find NPC inpieces (AND PC (NEXTPIECE PC)) suchthat (
|
||||
@@ -411,14 +410,13 @@ VISIBLEPIECEP PPC))))
|
||||
(PUTPROPS FSETTSTR MACRO ((TSTR FIELD NEWVALUE) (freplace (TEXTSTREAM FIELD) of TSTR with NEWVALUE)))
|
||||
(PUTPROPS TEXTSTREAM! MACRO (OPENLAMBDA (TSTR) (AND (\DTEST TSTR (QUOTE STREAM)) (TEXTOBJ! (FGETTSTR
|
||||
TSTR TEXTOBJ)) TSTR)))
|
||||
(RPAQQ PTYPES ((THINFILE.PTYPE 0) (FATFILE1.PTYPE 1) (FATFILE2.PTYPE 2) (THINSTRING.PTYPE 3) (
|
||||
FATSTRING.PTYPE 4) (SUBSTREAM.PTYPE 5) (OBJECT.PTYPE 6) (LOOKS.PTYPE 7) (UTF16BE.PTYPE 8) (
|
||||
UTF16LE.PTYPE 9) (UTF8.PTYPE 11) (FILE.PTYPES (LIST THINFILE.PTYPE FATFILE1.PTYPE FATFILE2.PTYPE
|
||||
UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE)) (STRING.PTYPES (LIST THINSTRING.PTYPE FATSTRING.PTYPE)) (
|
||||
BINABLE.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE)) (THIN.PTYPES (LIST THINFILE.PTYPE
|
||||
THINSTRING.PTYPE)) (FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE))))
|
||||
(RPAQQ PTYPES ((THINFILE.PTYPE 0) (FATFILE2.PTYPE 2) (THINSTRING.PTYPE 3) (FATSTRING.PTYPE 4) (
|
||||
SUBSTREAM.PTYPE 5) (OBJECT.PTYPE 6) (LOOKS.PTYPE 7) (UTF16BE.PTYPE 8) (UTF16LE.PTYPE 9) (UTF8.PTYPE 11
|
||||
) (FILE.PTYPES (LIST THINFILE.PTYPE FATFILE2.PTYPE UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE)) (
|
||||
STRING.PTYPES (LIST THINSTRING.PTYPE FATSTRING.PTYPE)) (BINABLE.PTYPES (LIST THINFILE.PTYPE
|
||||
THINSTRING.PTYPE)) (THIN.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE)) (FAT.PTYPES (LIST
|
||||
FATFILE2.PTYPE FATSTRING.PTYPE))))
|
||||
(RPAQQ THINFILE.PTYPE 0)
|
||||
(RPAQQ FATFILE1.PTYPE 1)
|
||||
(RPAQQ FATFILE2.PTYPE 2)
|
||||
(RPAQQ THINSTRING.PTYPE 3)
|
||||
(RPAQQ FATSTRING.PTYPE 4)
|
||||
@@ -428,20 +426,19 @@ THINSTRING.PTYPE)) (FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTY
|
||||
(RPAQQ UTF16BE.PTYPE 8)
|
||||
(RPAQQ UTF16LE.PTYPE 9)
|
||||
(RPAQQ UTF8.PTYPE 11)
|
||||
(RPAQ FILE.PTYPES (LIST THINFILE.PTYPE FATFILE1.PTYPE FATFILE2.PTYPE UTF8.PTYPE UTF16BE.PTYPE
|
||||
UTF16LE.PTYPE))
|
||||
(RPAQ FILE.PTYPES (LIST THINFILE.PTYPE FATFILE2.PTYPE UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE))
|
||||
(RPAQ STRING.PTYPES (LIST THINSTRING.PTYPE FATSTRING.PTYPE))
|
||||
(RPAQ BINABLE.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE))
|
||||
(RPAQ THIN.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE))
|
||||
(RPAQ FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE))
|
||||
(CONSTANTS (THINFILE.PTYPE 0) (FATFILE1.PTYPE 1) (FATFILE2.PTYPE 2) (THINSTRING.PTYPE 3) (
|
||||
FATSTRING.PTYPE 4) (SUBSTREAM.PTYPE 5) (OBJECT.PTYPE 6) (LOOKS.PTYPE 7) (UTF16BE.PTYPE 8) (
|
||||
UTF16LE.PTYPE 9) (UTF8.PTYPE 11) (FILE.PTYPES (LIST THINFILE.PTYPE FATFILE1.PTYPE FATFILE2.PTYPE
|
||||
UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE)) (STRING.PTYPES (LIST THINSTRING.PTYPE FATSTRING.PTYPE)) (
|
||||
BINABLE.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE)) (THIN.PTYPES (LIST THINFILE.PTYPE
|
||||
THINSTRING.PTYPE)) (FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE)))
|
||||
(RPAQ FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE))
|
||||
(CONSTANTS (THINFILE.PTYPE 0) (FATFILE2.PTYPE 2) (THINSTRING.PTYPE 3) (FATSTRING.PTYPE 4) (
|
||||
SUBSTREAM.PTYPE 5) (OBJECT.PTYPE 6) (LOOKS.PTYPE 7) (UTF16BE.PTYPE 8) (UTF16LE.PTYPE 9) (UTF8.PTYPE 11
|
||||
) (FILE.PTYPES (LIST THINFILE.PTYPE FATFILE2.PTYPE UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE)) (
|
||||
STRING.PTYPES (LIST THINSTRING.PTYPE FATSTRING.PTYPE)) (BINABLE.PTYPES (LIST THINFILE.PTYPE
|
||||
THINSTRING.PTYPE)) (THIN.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE)) (FAT.PTYPES (LIST
|
||||
FATFILE2.PTYPE FATSTRING.PTYPE)))
|
||||
(GLOBALVARS \TEXTIMAGEOPS \TEXTFDEV)
|
||||
(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE "16-Feb-2026 08:56:40"))
|
||||
(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE " 1-May-2026 08:15:56"))
|
||||
(PUTPROPS \TEDIT.MOUSESTATE MACRO (BUTTON (* ;;
|
||||
"Test to see if only the specified mouse button is down. DOES NOT call GETMOUSESTATE, so the mouse-button info is the same as the last time it was called."
|
||||
) (SELECTQ (CAR BUTTON) (LEFT (QUOTE (EQ LASTMOUSEBUTTONS 4))) (MIDDLE (QUOTE (EQ LASTMOUSEBUTTONS 1))
|
||||
@@ -455,8 +452,8 @@ I in ARGS as J on ARGS when (NOT (STRINGP I)) collect (LIST (QUOTE OR) I (LIST (
|
||||
\BIN STREAM)) BITSPERWORD)))
|
||||
(PUTPROPS \SMALLPOUT MACRO (OPENLAMBDA (STREAM W) (* ; "Signed smallp, unlike \WOUT") (\BOUT STREAM (
|
||||
LOGAND 255 (LRSH W 8))) (\BOUT STREAM (LOGAND W 255))))
|
||||
(PUTPROP (QUOTE TEDIT-FILE) (QUOTE IMPORTDATE) (IDATE "15-Feb-2026 23:45:51"))
|
||||
(PUTPROP (QUOTE TEDIT-OLDFILE) (QUOTE IMPORTDATE) (IDATE " 8-Sep-2025 22:10:10"))
|
||||
(PUTPROP (QUOTE TEDIT-FILE) (QUOTE IMPORTDATE) (IDATE "29-Apr-2026 23:49:14"))
|
||||
(PUTPROP (QUOTE TEDIT-OLDFILE) (QUOTE IMPORTDATE) (IDATE "10-Apr-2026 09:29:21"))
|
||||
(DATATYPE CHARLOOKS ((* ;; "Describes the appearance (%"Looks%") of characters in a TEdit document.")
|
||||
(* ;; "NOTE: If fields change EQCLOOKS should change too.") CLFONT (* ;
|
||||
"The font descriptor for these characters") CLFONTUNPARSE (* ;;
|
||||
@@ -538,7 +535,7 @@ LINELEAD _ 0)
|
||||
(PUTPROPS FSETPLOOKS MACRO ((PLOOKS FIELD NEWVALUE) (freplace (PARALOOKS FIELD) of PLOOKS with
|
||||
NEWVALUE)))
|
||||
(PUTPROPS PARALOOKS! MACRO ((PL) (\DTEST PL (QUOTE PARALOOKS))))
|
||||
(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE "16-Feb-2026 00:36:00"))
|
||||
(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE "10-Apr-2026 09:34:11"))
|
||||
(PUTPROP (QUOTE TEDIT-STYLES) (QUOTE IMPORTDATE) (IDATE "28-Jul-2025 23:25:43"))
|
||||
(DATATYPE TEDITCARET (TCNOWTIME (* Used to hold the current time, when checking to see if a transition
|
||||
is due) TCTHENTIME (* Time when the next transition is to take place) TCFORCEDDOWN (* TCFORCEDOWN = T
|
||||
@@ -602,8 +599,8 @@ GETPANEPROP (PANEPROPS P) NEXTPANE))) (GO $$OUT))) by (OR (GETPANEPROP (PANEPROP
|
||||
$$OUT)))))
|
||||
(PUTPROPS ALLBUTTONSUP MACRO (NIL (ZEROP (LOGAND 7 LASTMOUSEBUTTONS))))
|
||||
(PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE " 7-Feb-2026 18:53:22"))
|
||||
(PUTPROP (QUOTE TEDIT-BUTTONS) (QUOTE IMPORTDATE) (IDATE "25-Jan-2026 09:14:04"))
|
||||
(PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE " 9-Feb-2026 09:10:43"))
|
||||
(PUTPROP (QUOTE TEDIT-BUTTONS) (QUOTE IMPORTDATE) (IDATE "29-Apr-2026 17:57:09"))
|
||||
(PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE "29-Apr-2026 15:35:33"))
|
||||
(PUTPROP (QUOTE TEDIT-FIND) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:42:57"))
|
||||
(RPAQQ \TEDIT.TTCCODES ((NONE . 0) (CHARDELETE . 1) (:CHARDELETE.BACKWARD . 1) (WORDDELETE . 2) (
|
||||
:WORDDELETE.BACKWORD . 2) (DELETE . 3) (:DELETE . 3) (FN . 4) (REDO . 5) (:REDO . 5) (UNDO . 6) (:UNDO
|
||||
@@ -626,7 +623,7 @@ TEDITHISTORYEVENT THLEN) of DATUM) 0))))) (INIT (DEFPRINT (QUOTE TEDITHISTORYEVE
|
||||
(PUTPROPS GETTH MACRO ((EVENT FIELD) (fetch (TEDITHISTORYEVENT FIELD) of EVENT)))
|
||||
(PUTPROPS SETTH MACRO ((EVENT FIELD NEWVALUE) (replace (TEDITHISTORYEVENT FIELD) of EVENT with
|
||||
NEWVALUE)))
|
||||
(PUTPROP (QUOTE TEDIT-HISTORY) (QUOTE IMPORTDATE) (IDATE " 1-Aug-2025 14:58:56"))
|
||||
(PUTPROP (QUOTE TEDIT-HISTORY) (QUOTE IMPORTDATE) (IDATE "19-Feb-2026 12:39:37"))
|
||||
(RECORD PAGEFORMATTINGSTATE ((* ;; "Contains the state for a TEdit page-formatting job.") PAGE# (* ;
|
||||
"The current page number. Counted from 1") FIRSTPAGE (* ;;
|
||||
"T if the current page is the 'first page' . Is set initially, and can be set again by the user at will. Gets reset after each page image is printed."
|
||||
@@ -662,8 +659,8 @@ $$VALUES)) (PROG1 (CAR $$VALUES) (\,@ (FOR V IN (CAR ARGS) collect (COND (V (BQU
|
||||
$$VALUES)))) (T (BQUOTE (SETQ $$VALUES (CDR $$VALUES))))))))))))
|
||||
(PUTPROPS TEDIT.VALUES MACRO (ARGS (BQUOTE (LIST (\,@ ARGS)))))
|
||||
(PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE "27-Jan-2026 10:30:27"))
|
||||
(PUTPROP (QUOTE TEDIT-ABBREV) (QUOTE IMPORTDATE) (IDATE "23-Jan-2026 15:49:26"))
|
||||
(PUTPROP (QUOTE TEDIT-TFBRAVO) (QUOTE IMPORTDATE) (IDATE "21-Jan-2026 12:15:57"))
|
||||
(PUTPROP (QUOTE TEDIT-ABBREV) (QUOTE IMPORTDATE) (IDATE "30-Apr-2026 11:55:15"))
|
||||
(PUTPROP (QUOTE TEDIT-TFBRAVO) (QUOTE IMPORTDATE) (IDATE "10-Apr-2026 09:25:52"))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL)))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
187
lispusers/BROKEN-ATOMS
Normal file
187
lispusers/BROKEN-ATOMS
Normal file
@@ -0,0 +1,187 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "14-Apr-2026 12:14:44" {PROJECTS}<BROKENATOMS>BROKEN-ATOMS.;10 7207
|
||||
|
||||
:CHANGES-TO (FUNCTIONS WITHOUT-BROKEN-ATOMS TEST-PRETTY-FILE TEST-DEEP-COMPUTATION
|
||||
CURE-BROKEN-ATOM)
|
||||
(VARS BROKEN-ATOMSCOMS)
|
||||
|
||||
:PREVIOUS-DATE "18-Feb-2026 16:08:40" {PROJECTS}<BROKENATOMS>BROKEN-ATOMS.;3)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT BROKEN-ATOMSCOMS)
|
||||
|
||||
(RPAQQ BROKEN-ATOMSCOMS
|
||||
(
|
||||
(* ;; "the representation of a broken atom")
|
||||
|
||||
(RECORDS BROKEN-ATOM)
|
||||
(FUNCTIONS CURE-BROKEN-ATOM)
|
||||
|
||||
(* ;; "for DEFPRINT")
|
||||
|
||||
(FNS BROKEN-ATOM-PRINTER)
|
||||
|
||||
(* ;; "special form")
|
||||
|
||||
(FUNCTIONS WITHOUT-BROKEN-ATOMS)
|
||||
|
||||
(* ;; "setup")
|
||||
|
||||
(P (DEFPRINT 'BROKEN-ATOM 'BROKEN-ATOM-PRINTER))
|
||||
|
||||
(* ;; "Debugging/testing")
|
||||
|
||||
(FUNCTIONS TEST-INTERNAL-BA TEST-EXTERNAL-BA TEST-DEEP-COMPUTATION TEST-PRETTY-FILE)))
|
||||
|
||||
|
||||
|
||||
(* ;; "the representation of a broken atom")
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(DATATYPE BROKEN-ATOM ((PACKAGE POINTER)
|
||||
(NAME POINTER)
|
||||
(EXTERNAL FLAG)))
|
||||
)
|
||||
|
||||
(/DECLAREDATATYPE 'BROKEN-ATOM '(POINTER POINTER FLAG)
|
||||
'((BROKEN-ATOM 0 POINTER)
|
||||
(BROKEN-ATOM 2 POINTER)
|
||||
(BROKEN-ATOM 2 (FLAGBITS . 0)))
|
||||
'4)
|
||||
|
||||
(CL:DEFUN CURE-BROKEN-ATOM (CONDITION)
|
||||
"Given an XCL:MISSING-EXTERNAL-SYMBOL condition, return a corresponding BROKEN-ATOM"
|
||||
(COND
|
||||
((TYPEP CONDITION 'XCL:MISSING-PACKAGE) (* ; "no such package ")
|
||||
(create BROKEN-ATOM
|
||||
PACKAGE _ (XCL:MISSING-PACKAGE-PACKAGE-NAME CONDITION)
|
||||
NAME _ (XCL:MISSING-PACKAGE-SYMBOL-NAME CONDITION)
|
||||
EXTERNAL _ (XCL:MISSING-PACKAGE-EXTERNAL CONDITION)))
|
||||
((TYPEP CONDITION 'XCL:MISSING-EXTERNAL-SYMBOL) (* ;
|
||||
"package exists, no such external symbol")
|
||||
(create BROKEN-ATOM
|
||||
PACKAGE _ (CL:PACKAGE-NAME (XCL:MISSING-EXTERNAL-SYMBOL-PACKAGE CONDITION))
|
||||
NAME _ (XCL:MISSING-EXTERNAL-SYMBOL-NAME CONDITION)
|
||||
EXTERNAL _ NIL))
|
||||
(T (HELP "Don't know how to cure" CONDITION))))
|
||||
|
||||
|
||||
|
||||
(* ;; "for DEFPRINT")
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(BROKEN-ATOM-PRINTER
|
||||
[LAMBDA (BROKEN-ATOM STREAM)
|
||||
(CONS (CONCAT (fetch (BROKEN-ATOM PACKAGE) of BROKEN-ATOM)
|
||||
(if (fetch (BROKEN-ATOM EXTERNAL) of BROKEN-ATOM)
|
||||
then ":"
|
||||
else "::")
|
||||
(fetch (BROKEN-ATOM NAME) of BROKEN-ATOM])
|
||||
)
|
||||
|
||||
|
||||
|
||||
(* ;; "special form")
|
||||
|
||||
|
||||
(DEFMACRO WITHOUT-BROKEN-ATOMS (&BODY FORMS)
|
||||
"Handle any broken-atom errors by producing a BROKEN-ATOM that prints as if the original atom were intact"
|
||||
`[HANDLER-BIND [[XCL:MISSING-PACKAGE #'(CL:LAMBDA (C)
|
||||
(CONDITIONS:INVOKE-RESTART
|
||||
'CREATE-MISSING-PACKAGE-BA (CURE-BROKEN-ATOM
|
||||
C]
|
||||
(XCL:MISSING-EXTERNAL-SYMBOL #'(CL:LAMBDA (C)
|
||||
(CONDITIONS:INVOKE-RESTART
|
||||
'CREATE-EXTERNAL-BA (CURE-BROKEN-ATOM
|
||||
C]
|
||||
(CONDITIONS:RESTART-BIND [(CREATE-MISSING-PACKAGE-BA
|
||||
#'(CL:LAMBDA (V)
|
||||
(RETFROM (FUNCTION RESOLVE-MISSING-PACKAGE)
|
||||
V)
|
||||
V))
|
||||
(CREATE-EXTERNAL-BA #'(CL:LAMBDA (V)
|
||||
(RETFROM (FUNCTION
|
||||
RESOLVE-MISSING-EXTERNAL-SYMBOL
|
||||
)
|
||||
V)
|
||||
V]
|
||||
(PROGN ,@FORMS])
|
||||
|
||||
|
||||
|
||||
(* ;; "setup")
|
||||
|
||||
|
||||
(DEFPRINT 'BROKEN-ATOM 'BROKEN-ATOM-PRINTER)
|
||||
|
||||
|
||||
|
||||
(* ;; "Debugging/testing")
|
||||
|
||||
|
||||
(CL:DEFUN TEST-INTERNAL-BA ()
|
||||
[LET ((FILE NIL))
|
||||
(CL:WITH-OPEN-STREAM (OUT (OPENSTREAM "{nodircore}" 'OUTPUT))
|
||||
(SETQ FILE OUT)
|
||||
(PRINTOUT OUT "BROKEN::INTERNAL-ATOM" T))
|
||||
(CL:WITH-OPEN-STREAM (IN (OPENSTREAM FILE 'INPUT))
|
||||
(WITHOUT-BROKEN-ATOMS (RATOM IN])
|
||||
|
||||
(CL:DEFUN TEST-EXTERNAL-BA ()
|
||||
[LET ((FILE NIL))
|
||||
(CL:WITH-OPEN-STREAM (OUT (OPENSTREAM "{nodircore}" 'OUTPUT))
|
||||
(SETQ FILE OUT)
|
||||
(PRINTOUT OUT "BROKEN:EXTERNAL-ATOM" T))
|
||||
(CL:WITH-OPEN-STREAM (IN (OPENSTREAM FILE 'INPUT))
|
||||
(WITHOUT-BROKEN-ATOMS (RATOM IN])
|
||||
|
||||
(CL:DEFUN TEST-DEEP-COMPUTATION ()
|
||||
"Test that we can handle internal calls to READ that encounter broken atoms"
|
||||
|
||||
(* ;; "make sure it works when there's no error")
|
||||
|
||||
(LET [(RESULT (WITHOUT-BROKEN-ATOMS (CL:LOOP :FOR X :FROM 0 :TO 9 :COLLECT X]
|
||||
(PRINTOUT T "No error loop result: " RESULT T))
|
||||
|
||||
(* ;; "and when reading legit atoms")
|
||||
|
||||
(LET [(RESULT (WITHOUT-BROKEN-ATOMS (CL:LOOP :FOR X :FROM 0 :TO 9 :COLLECT (CL:READ-FROM-STRING
|
||||
(CONCAT "IL:ATOM" X]
|
||||
(PRINTOUT T "No error read loop result: " RESULT T))
|
||||
|
||||
(* ;; "test XCL:MISSING-PACKAGE.")
|
||||
|
||||
(COND
|
||||
((CL:FIND-PACKAGE :BROKEN)
|
||||
(DELETE-PACKAGE :BROKEN)))
|
||||
(LET [(RESULT (WITHOUT-BROKEN-ATOMS (CL:LOOP :FOR X :FROM 0 :TO 9 :COLLECT (CL:READ-FROM-STRING
|
||||
(CONCAT "BROKEN:ATOM"
|
||||
X]
|
||||
(PRINTOUT T "No such package loop result: " RESULT T))
|
||||
|
||||
(* ;; "test XCL:MISSING-EXTERNAL-SYMBOL")
|
||||
|
||||
(CL:UNWIND-PROTECT
|
||||
(PROGN (CL:MAKE-PACKAGE :BROKEN)
|
||||
(LET [(RESULT (WITHOUT-BROKEN-ATOMS (CL:LOOP :FOR X :FROM 0 :TO 9 :COLLECT
|
||||
(CL:READ-FROM-STRING (CONCAT "BROKEN:ATOM" X
|
||||
]
|
||||
(PRINTOUT T "Not external symbol loop result: " RESULT T)))
|
||||
[COND
|
||||
((CL:FIND-PACKAGE :BROKEN)
|
||||
(DELETE-PACKAGE 'BROKEN]))
|
||||
|
||||
(CL:DEFUN TEST-PRETTY-FILE (SOURCE-FILE-NAME OUTPUT-FILE-NAME OUTPUT-TYPE)
|
||||
"Prettyprint a Lisp source file to an imagestream file"
|
||||
(CL:WITH-OPEN-STREAM (OUTPUT-STREAM (OPENIMAGESTREAM OUTPUT-FILE-NAME OUTPUT-TYPE))
|
||||
(WITHOUT-BROKEN-ATOMS (PRETTYFILEINDEX SOURCE-FILE-NAME NIL OUTPUT-STREAM T))
|
||||
(FULLNAME OUTPUT-STREAM)))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1403 2315 (CURE-BROKEN-ATOM 1403 . 2315)) (2346 2699 (BROKEN-ATOM-PRINTER 2356 . 2697))
|
||||
(2731 4397 (WITHOUT-BROKEN-ATOMS 2731 . 4397)) (4503 4831 (TEST-INTERNAL-BA 4503 . 4831)) (4833 5160
|
||||
(TEST-EXTERNAL-BA 4833 . 5160)) (5162 6829 (TEST-DEEP-COMPUTATION 5162 . 6829)) (6831 7184 (
|
||||
TEST-PRETTY-FILE 6831 . 7184)))))
|
||||
STOP
|
||||
BIN
lispusers/BROKEN-ATOMS.DFASL
Normal file
BIN
lispusers/BROKEN-ATOMS.DFASL
Normal file
Binary file not shown.
BIN
lispusers/BROKEN-ATOMS.TEdit
Normal file
BIN
lispusers/BROKEN-ATOMS.TEdit
Normal file
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "10-Feb-2026 21:28:55" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;286 138607
|
||||
(FILECREATED "28-Apr-2026 23:41:24" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;289 139726
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS CD-MENUFN)
|
||||
:CHANGES-TO (FNS CDFILES.PATS CDFILES.MATCH CDBROWSER-COPY)
|
||||
|
||||
:PREVIOUS-DATE " 8-Nov-2025 13:07:39" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;285)
|
||||
:PREVIOUS-DATE "28-Apr-2026 21:38:49" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;288)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
|
||||
@@ -507,32 +507,37 @@
|
||||
UNLESS (CDFILES.MATCH SUBDIR NAME EXT THISDEPTH EXCLUDES) COLLECT FULLNAME])
|
||||
|
||||
(CDFILES.MATCH
|
||||
[LAMBDA (SUBDIR NAME EXT THISDEPTH PATTERNS) (* ; "Edited 26-Jan-2022 15:33 by rmk")
|
||||
[LAMBDA (SUBDIR NAME EXT THISDEPTH PATTERNS) (* ; "Edited 28-Apr-2026 23:40 by rmk")
|
||||
(* ; "Edited 26-Jan-2022 15:33 by rmk")
|
||||
(* ; "Edited 23-Dec-2021 21:47 by rmk")
|
||||
(thereis P in PATTERNS suchthat
|
||||
|
||||
(* ;; "True if the components of the fullname match at least one of the patterns")
|
||||
(* ;; "The SUBDIR test is tricky. If the exclusion pattern was internal/fonts/**, this shows up as (* * internal/fonts 65535), it has to match internal/fonts/display/completed/. Below we test for an initial substring")
|
||||
|
||||
(THEREIS P IN PATTERNS SUCHTHAT (AND [OR (STRING.EQUAL NAME (CAR P)
|
||||
FILEDIRCASEARRAY)
|
||||
(EQ '* (CAR P))
|
||||
(AND (EQ (CHARCODE %.)
|
||||
(CHCON1 (CAR P)))
|
||||
(EQ (CHARCODE %.)
|
||||
(CHCON1 NAME))
|
||||
(OR (STRING.EQUAL NAME (SUBATOM (CAR P)
|
||||
2))
|
||||
(EQ (CHARCODE *)
|
||||
(NTHCHARCODE (CAR P)
|
||||
2]
|
||||
(OR (STRING.EQUAL EXT (CADR P))
|
||||
(EQ '* (CADR P)))
|
||||
(OR (STRING.EQUAL SUBDIR (CADDR P))
|
||||
(NULL (CADDR P))
|
||||
(EQ '* (CADDR P)))
|
||||
(ILEQ THISDEPTH (CADDDR P])
|
||||
(AND [OR (STRING.EQUAL NAME (CAR P)
|
||||
FILEDIRCASEARRAY)
|
||||
(EQ '* (CAR P))
|
||||
(AND (EQ (CHARCODE %.)
|
||||
(CHCON1 (CAR P)))
|
||||
(EQ (CHARCODE %.)
|
||||
(CHCON1 NAME))
|
||||
(OR (STRING.EQUAL NAME (SUBATOM (CAR P)
|
||||
2))
|
||||
(EQ (CHARCODE *)
|
||||
(NTHCHARCODE (CAR P)
|
||||
2]
|
||||
(OR (STRING.EQUAL EXT (CADR P))
|
||||
(EQ '* (CADR P)))
|
||||
(ILEQ THISDEPTH (CADDDR P))
|
||||
(OR (STRING.EQUAL SUBDIR (CADDR P))
|
||||
(NULL (CADDR P))
|
||||
(EQ '* (CADDR P))
|
||||
(STRPOS (CADDR P)
|
||||
SUBDIR 1 NIL T])
|
||||
|
||||
(CDFILES.PATS
|
||||
[LAMBDA (PATTERNS) (* ; "Edited 17-Jun-2023 23:36 by rmk")
|
||||
[LAMBDA (PATTERNS) (* ; "Edited 28-Apr-2026 23:01 by rmk")
|
||||
(* ; "Edited 17-Jun-2023 23:36 by rmk")
|
||||
(* ; "Edited 23-Dec-2021 17:02 by rmk")
|
||||
|
||||
(* ;; "Returns (NAME EXT SUBDIR DEPTH) items where NAME or EXT may be the wildcard *, SD is the subdirectory (if any) and DEPTH is the number of / or > in the subdirectory")
|
||||
@@ -544,15 +549,15 @@
|
||||
(* * NIL 1)
|
||||
)
|
||||
ELSE (FOR P N E SD DEPTH UNPACK INSIDE PATTERNS
|
||||
JOIN (SETQ UNPACK (UNPACKFILENAME.STRING P)) (* ;
|
||||
JOIN (SETQ UNPACK (UNPACKFILENAME P)) (* ;
|
||||
"String so we can tell the difference between x and x.")
|
||||
[SETQ SD (MKATOM (LISTGET UNPACK 'SUBDIRECTORY]
|
||||
(SETQ SD (LISTGET UNPACK 'SUBDIRECTORY))
|
||||
|
||||
(* ;; "Count the subdirectory depth")
|
||||
|
||||
[SETQ DEPTH (IF (EQ SD '*)
|
||||
THEN MAX.SMALLP
|
||||
ELSE (FOR I (CNT _ 1) FROM 1 DO (SELCHARQ (NTHCHARCODE SD I)
|
||||
[SETQ DEPTH (if (EQ SD '*)
|
||||
then MAX.SMALLP
|
||||
else (for I (CNT _ 1) from 1 do (SELCHARQ (NTHCHARCODE SD I)
|
||||
((/ >)
|
||||
(ADD CNT 1))
|
||||
(NIL (RETURN CNT))
|
||||
@@ -560,28 +565,31 @@
|
||||
(SETQ N (LISTGET UNPACK 'NAME))
|
||||
(SETQ N (if (NULL N)
|
||||
then '*
|
||||
elseif (EQ N '**)
|
||||
then (SETQ DEPTH MAX.SMALLP)
|
||||
'*
|
||||
elseif (NEQ 0 (NCHARS N))
|
||||
then (MKATOM N)))
|
||||
then N))
|
||||
(SETQ E (LISTGET UNPACK 'EXTENSION))
|
||||
(SETQ E (if (NULL E)
|
||||
then '*
|
||||
elseif (NEQ 0 (NCHARS E))
|
||||
then (MKATOM E)))
|
||||
(if [OR (AND (STRING.EQUAL N 'COM)
|
||||
then E))
|
||||
(if [OR (AND (EQ N 'COM)
|
||||
(NULL E))
|
||||
(AND (STRING.EQUAL E 'COM)
|
||||
(AND (EQ E 'COM)
|
||||
(MEMB N ' (* NIL)]
|
||||
THEN (FOR CE IN *COMPILED-EXTENSIONS* COLLECT (LIST '* CE SD DEPTH))
|
||||
ELSE (CONS (IF N
|
||||
THEN (LIST N E SD DEPTH)
|
||||
ELSEIF E
|
||||
THEN
|
||||
then (for CE in *COMPILED-EXTENSIONS* collect (LIST '* CE SD DEPTH))
|
||||
else (CONS (if N
|
||||
then (LIST N E SD DEPTH)
|
||||
elseif E
|
||||
then
|
||||
|
||||
(* ;; "This is the case .XXX, which presumably identifies a dotted file. If this is supposed to be all files with extension XXX, it shoud be specified as *.XXX, the case above. So we move .E into the N field.")
|
||||
|
||||
(LIST (PACK* '%. E)
|
||||
NIL SD DEPTH)
|
||||
ELSE `
|
||||
else `
|
||||
|
||||
(* * (\, SD) (\, DEPTH))
|
||||
])
|
||||
@@ -2146,7 +2154,9 @@
|
||||
NIL])
|
||||
|
||||
(CDBROWSER-COPY
|
||||
[LAMBDA (CDBROWSER TBITEM SOURCE UNIXDEST) (* ; "Edited 28-Oct-2025 17:39 by rmk")
|
||||
[LAMBDA (CDBROWSER TBITEM SOURCE UNIXDEST) (* ; "Edited 28-Apr-2026 18:54 by rmk")
|
||||
(* ; "Edited 31-Mar-2026 10:49 by rmk")
|
||||
(* ; "Edited 28-Oct-2025 17:39 by rmk")
|
||||
(* ; "Edited 25-Oct-2025 23:58 by rmk")
|
||||
(* ; "Edited 24-May-2022 15:49 by rmk")
|
||||
(* ; "Edited 25-Apr-2022 09:24 by rmk")
|
||||
@@ -2184,7 +2194,8 @@
|
||||
(PRIN3 "No source file to copy" T)
|
||||
(RETURN NIL))
|
||||
(CL:WHEN [AND (EQ DATERELBAD (FETCH (CDENTRY DATEREL) OF CDENTRY))
|
||||
(PROGN (FLASHWINDOW T)
|
||||
(PROGN (GIVE.TTY.PROCESS T)
|
||||
(FLASHWINDOW T)
|
||||
(EQ 'N (ASKUSER NIL NIL
|
||||
"Target is newer than source. Really copy? "]
|
||||
(RETURN NIL))
|
||||
@@ -2194,6 +2205,7 @@
|
||||
))
|
||||
'VERSION))
|
||||
(PROGN (FLASHWINDOW T)
|
||||
(GIVE.TTY.PROCESS T)
|
||||
(EQ 'N (ASKUSER NIL NIL (CONCAT SOURCEFILE
|
||||
" is not the newest version. Really copy? "
|
||||
]
|
||||
@@ -2202,8 +2214,10 @@
|
||||
(CL:UNLESS DESTFILE
|
||||
(SETQ DESTFILE (CD-SWAPDIRS SOURCEFILE SOURCEDIR DESTDIR)))
|
||||
[SETQ RESULT (if UNIXDEST
|
||||
then (SPUTMULTI (fetch (TABLEBROWSER TBUSERDATA) of CDBROWSER)
|
||||
'ORIGINALFILES DESTFILE (COPYFILE DESTFILE '{NODIRCORE))
|
||||
then (CL:WHEN (INFILEP DESTFILE)
|
||||
(SPUTMULTI (fetch (TABLEBROWSER TBUSERDATA) of CDBROWSER)
|
||||
'ORIGINALFILES DESTFILE (COPYFILE DESTFILE
|
||||
'{NODIRCORE})))
|
||||
[PSEUDOFILENAME (PACKFILENAME 'HOST 'DSK 'BODY
|
||||
(COPYFILE SOURCEFILE (PACKFILENAME
|
||||
'HOST
|
||||
@@ -2323,25 +2337,25 @@
|
||||
|
||||
(MOVD? 'NILL 'TEDIT.FILEDATE)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2653 23632 (COMPAREDIRECTORIES 2663 . 7998) (COMPAREDIRECTORIES.INFOS 8000 . 11229) (
|
||||
COMPAREDIRECTORIES.CANDIDATES 11231 . 14616) (CDENTRIES.SELECT 14618 . 19520) (
|
||||
COMPAREDIRECTORIES.INFOS.TYPE 19522 . 20866) (MATCHNAME 20868 . 21548) (CD.INSURECDVALUE 21550 . 23164
|
||||
) (CD.UPDATEWIDTHS 23166 . 23630)) (23633 34338 (CDFILES 23643 . 29740) (CDFILES.MATCH 29742 . 31367)
|
||||
(CDFILES.PATS 31369 . 34336)) (34339 52357 (CDPRINT 34349 . 36866) (CDPRINT.HEADER 36868 . 37765) (
|
||||
CDPRINT.LINE 37767 . 41196) (CDPRINT.MAXWIDTHS 41198 . 45313) (CDPRINT.COLHEADERS 45315 . 46600) (
|
||||
CDPRINT.COLUMNS 46602 . 51722) (CDTEDIT 51724 . 52355)) (52358 61479 (CDMAP 52368 . 53800) (CDENTRY
|
||||
53802 . 54111) (CDSUBSET 54113 . 55552) (CDMERGE 55554 . 59538) (CDMERGE.COMMON 59540 . 60855) (
|
||||
CD.SORT 60857 . 61477)) (61480 69018 (BINCOMP 61490 . 65779) (EOLTYPE 65781 . 68343) (EOLTYPE.SHOW
|
||||
68345 . 69016)) (69546 82073 (FIND-UNCOMPILED-FILES 69556 . 73199) (FIND-UNSOURCED-FILES 73201 . 75585
|
||||
) (FIND-SOURCE-FILES 75587 . 77325) (FIND-COMPILED-FILES 77327 . 79204) (FIND-UNLOADED-FILES 79206 .
|
||||
80059) (FIND-LOADED-FILES 80061 . 80489) (FIND-MULTICOMPILED-FILES 80491 . 82071)) (82074 90505 (
|
||||
CREATED-AS 82084 . 86881) (SOURCE-FOR-COMPILED-P 86883 . 89810) (COMPILE-SOURCE-DATE-DIFF 89812 .
|
||||
90503)) (90506 101269 (FIX-DIRECTORY-DATES 90516 . 93966) (FIX-EQUIV-DATES 93968 . 95493) (
|
||||
COPY-COMPARED-FILES 95495 . 97316) (COPY-MISSING-FILES 97318 . 99475) (COMPILED-ON-SAME-SOURCE 99477
|
||||
. 101267)) (101463 109341 (CDBROWSER 101473 . 105440) (CDBROWSER.STRINGS 105442 . 109339)) (109503
|
||||
111239 (CD.TABLEITEM 109513 . 109733) (CD.TABLEITEM.PRINTFN 109735 . 109934) (CD.TABLEITEM.COPYFN
|
||||
109936 . 110994) (CDTABLEBROWSER.HEADING.REPAINTFN 110996 . 111237)) (111240 138091 (
|
||||
CDTABLEBROWSER.WHENSELECTEDFN 111250 . 111718) (CD.COMMANDSELECTEDFN 111720 . 117893) (CD-MENUFN
|
||||
117895 . 124372) (CD-COMPARE-FILES 124374 . 127901) (CDBROWSER-COPY 127903 . 132965) (
|
||||
CDBROWSER-DELETE-FILE 132967 . 137570) (CD-SWAPDIRS 137572 . 138089)))))
|
||||
(FILEMAP (NIL (2683 23662 (COMPAREDIRECTORIES 2693 . 8028) (COMPAREDIRECTORIES.INFOS 8030 . 11259) (
|
||||
COMPAREDIRECTORIES.CANDIDATES 11261 . 14646) (CDENTRIES.SELECT 14648 . 19550) (
|
||||
COMPAREDIRECTORIES.INFOS.TYPE 19552 . 20896) (MATCHNAME 20898 . 21578) (CD.INSURECDVALUE 21580 . 23194
|
||||
) (CD.UPDATEWIDTHS 23196 . 23660)) (23663 34971 (CDFILES 23673 . 29770) (CDFILES.MATCH 29772 . 31782)
|
||||
(CDFILES.PATS 31784 . 34969)) (34972 52990 (CDPRINT 34982 . 37499) (CDPRINT.HEADER 37501 . 38398) (
|
||||
CDPRINT.LINE 38400 . 41829) (CDPRINT.MAXWIDTHS 41831 . 45946) (CDPRINT.COLHEADERS 45948 . 47233) (
|
||||
CDPRINT.COLUMNS 47235 . 52355) (CDTEDIT 52357 . 52988)) (52991 62112 (CDMAP 53001 . 54433) (CDENTRY
|
||||
54435 . 54744) (CDSUBSET 54746 . 56185) (CDMERGE 56187 . 60171) (CDMERGE.COMMON 60173 . 61488) (
|
||||
CD.SORT 61490 . 62110)) (62113 69651 (BINCOMP 62123 . 66412) (EOLTYPE 66414 . 68976) (EOLTYPE.SHOW
|
||||
68978 . 69649)) (70179 82706 (FIND-UNCOMPILED-FILES 70189 . 73832) (FIND-UNSOURCED-FILES 73834 . 76218
|
||||
) (FIND-SOURCE-FILES 76220 . 77958) (FIND-COMPILED-FILES 77960 . 79837) (FIND-UNLOADED-FILES 79839 .
|
||||
80692) (FIND-LOADED-FILES 80694 . 81122) (FIND-MULTICOMPILED-FILES 81124 . 82704)) (82707 91138 (
|
||||
CREATED-AS 82717 . 87514) (SOURCE-FOR-COMPILED-P 87516 . 90443) (COMPILE-SOURCE-DATE-DIFF 90445 .
|
||||
91136)) (91139 101902 (FIX-DIRECTORY-DATES 91149 . 94599) (FIX-EQUIV-DATES 94601 . 96126) (
|
||||
COPY-COMPARED-FILES 96128 . 97949) (COPY-MISSING-FILES 97951 . 100108) (COMPILED-ON-SAME-SOURCE 100110
|
||||
. 101900)) (102096 109974 (CDBROWSER 102106 . 106073) (CDBROWSER.STRINGS 106075 . 109972)) (110136
|
||||
111872 (CD.TABLEITEM 110146 . 110366) (CD.TABLEITEM.PRINTFN 110368 . 110567) (CD.TABLEITEM.COPYFN
|
||||
110569 . 111627) (CDTABLEBROWSER.HEADING.REPAINTFN 111629 . 111870)) (111873 139210 (
|
||||
CDTABLEBROWSER.WHENSELECTEDFN 111883 . 112351) (CD.COMMANDSELECTEDFN 112353 . 118526) (CD-MENUFN
|
||||
118528 . 125005) (CD-COMPARE-FILES 125007 . 128534) (CDBROWSER-COPY 128536 . 134084) (
|
||||
CDBROWSER-DELETE-FILE 134086 . 138689) (CD-SWAPDIRS 138691 . 139208)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
184
lispusers/GITFNS
184
lispusers/GITFNS
@@ -1,12 +1,14 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
|
||||
|
||||
(FILECREATED " 2-Mar-2026 14:00:13" {WMEDLEY}<lispusers>GITFNS.;576 133513
|
||||
(FILECREATED "29-Apr-2026 12:51:53" {MEDLEY}<lispusers>GITFNS.;592 137200
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS GIT-MY-NEXT-BRANCH)
|
||||
:CHANGES-TO (FNS GIT-GWC-COMMAND)
|
||||
(COMMANDS gwc)
|
||||
(VARS GITFNSCOMS)
|
||||
|
||||
:PREVIOUS-DATE "26-Feb-2026 00:39:22" {WMEDLEY}<lispusers>GITFNS.;575)
|
||||
:PREVIOUS-DATE "29-Apr-2026 09:00:33" {MEDLEY}<lispusers>GITFNS.;588)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT GITFNSCOMS)
|
||||
@@ -51,7 +53,7 @@
|
||||
(INITVARS (GIT-MERGE-COMPARES T)
|
||||
(GIT-CDBROWSER-SEPARATE-DIRECTIONS T))
|
||||
(COMMANDS gwc bbc prc cob b? cdg cdw)
|
||||
(FNS PRC-COMMAND)
|
||||
(FNS PRC-COMMAND GIT-GWC-COMMAND)
|
||||
|
||||
(* ;; "")
|
||||
|
||||
@@ -60,7 +62,7 @@
|
||||
|
||||
(FNS ALLSUBDIRS MEDLEYSUBDIRS GITSUBDIRS)
|
||||
(FNS TOGIT FROMGIT)
|
||||
(FNS MYMEDLEYSUBDIR GITSUBDIR STRIPDIR STRIPHOST STRIPNAME STRIPWHERE)
|
||||
(FNS WORKINGSUBDIR GITSUBDIR STRIPDIR STRIPHOST STRIPNAME STRIPWHERE)
|
||||
(FNS GFILE4MFILE MFILE4GFILE GIT-REPO-FILENAME)
|
||||
|
||||
(* ;; "")
|
||||
@@ -169,6 +171,9 @@
|
||||
|
||||
(GIT-MAKE-PROJECT
|
||||
[LAMBDA (PROJECTNAME CLONEPATH WORKINGPATH EXCLUSIONS DEFAULTSUBDIRS)
|
||||
(* ; "Edited 29-Apr-2026 09:00 by rmk")
|
||||
(* ; "Edited 17-Apr-2026 12:33 by rmk")
|
||||
(* ; "Edited 15-Apr-2026 16:33 by rmk")
|
||||
(* ; "Edited 25-Feb-2026 23:25 by rmk")
|
||||
(* ; "Edited 25-Oct-2025 16:53 by rmk")
|
||||
(* ; "Edited 22-Oct-2025 12:45 by rmk")
|
||||
@@ -275,7 +280,8 @@
|
||||
"for " PROJECTNAME]
|
||||
(SETQ PROJECT (create GIT-PROJECT
|
||||
PROJECTNAME ← PROJECTNAME
|
||||
GITHOST ← (PACK* "{" (PSEUDOHOST PROJECTNAME CLONEPATH)
|
||||
GITHOST ← (PACK* "{" (PSEUDOHOST (CONCAT "G" PROJECTNAME)
|
||||
CLONEPATH)
|
||||
"}")
|
||||
WHOST ← (AND WORKINGPATH (PACK* "{" (PSEUDOHOST (CONCAT "W"
|
||||
PROJECTNAME)
|
||||
@@ -439,18 +445,7 @@
|
||||
|
||||
(RPAQ? GIT-CDBROWSER-SEPARATE-DIRECTIONS T)
|
||||
|
||||
(DEFCOMMAND gwc (SUBDIR . OTHERS)
|
||||
|
||||
(* ;; "Compares the specified local git-medley subdirectories against my working Medley. The SUBDIRS are the arguments up to one that looks like a project")
|
||||
|
||||
(LET ((SUBDIRS (AND SUBDIR (CONS SUBDIR OTHERS)))
|
||||
PROJECT)
|
||||
(SETQ SUBDIRS (FOR STAIL ON SUBDIRS COLLECT (IF (GIT-GET-PROJECT (CAR STAIL)
|
||||
NIL T)
|
||||
THEN (SETQ PROJECT (CAR STAIL))
|
||||
(GO $$OUT))
|
||||
(CAR STAIL)))
|
||||
(GIT-WORKING-COMPARE-DIRECTORIES SUBDIRS NIL NIL NIL T PROJECT)))
|
||||
(DEFCOMMAND gwc (SUBDIR . OTHERS) (GIT-GWC-COMMAND SUBDIR OTHERS))
|
||||
|
||||
(DEFCOMMAND bbc (BRANCH1 BRANCH2 LOCAL PROJECT)
|
||||
|
||||
@@ -535,7 +530,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(PRC-COMMAND
|
||||
[LAMBDA (REMOTEBRANCH DRAFTS PROJECT) (* ; "Edited 29-Jan-2025 19:19 by rmk")
|
||||
[LAMBDA (REMOTEBRANCH DRAFTS PROJECT) (* ; "Edited 16-Mar-2026 11:54 by rmk")
|
||||
(* ; "Edited 29-Jan-2025 19:19 by rmk")
|
||||
(* ; "Edited 13-May-2024 18:49 by rmk")
|
||||
(* ; "Edited 2-May-2024 11:44 by rmk")
|
||||
(* ; "Edited 1-Apr-2024 20:24 by rmk")
|
||||
@@ -592,7 +588,10 @@
|
||||
then (SETQ MENUWINDOW (ADDMENU (GIT-BRANCH-MENU (GIT-PRC-BRANCHES DRAFTS
|
||||
PROJECT PRS)
|
||||
(CONCAT (LENGTH PRS)
|
||||
" pull requests"))
|
||||
" pull requests in "
|
||||
(GIT-GET-PROJECT PROJECT
|
||||
'PROJECTNAME))
|
||||
PROJECT)
|
||||
NIL NIL T))
|
||||
|
||||
(* ;; "Position the new menu just under the current TTY window, to keep it out of the way of the comparison windows. If we have menus open for other projects, those probably should be pushed down to make room for the new menu, and moved up when a higher menu is closed. An edge case that is not worth the effort. ")
|
||||
@@ -612,6 +611,32 @@
|
||||
PROJECT))
|
||||
else (CONCAT "No open " (OR REMOTEBRANCH "")
|
||||
" pull requests"])
|
||||
|
||||
(GIT-GWC-COMMAND
|
||||
[LAMBDA (SUBDIR OTHERS) (* ; "Edited 29-Apr-2026 12:51 by rmk")
|
||||
|
||||
(* ;; "Compares the specified local git-medley subdirectories against my working Medley. The SUBDIRS are the arguments up to one that looks like a project, which may be followed by - and some excluded files")
|
||||
|
||||
(LET ((SUBDIRS (AND SUBDIR (CONS SUBDIR OTHERS)))
|
||||
EXCLUDEDFILES PROJECT)
|
||||
(SETQ SUBDIRS (for STAIL on SUBDIRS unless (CL:WHEN (AND (NULL PROJECT)
|
||||
(SETQ PROJECT (GIT-GET-PROJECT
|
||||
(CAR STAIL)
|
||||
NIL T)))
|
||||
(CL:UNLESS (EQ '- (CADR STAIL))
|
||||
(RETURN $$VAL))
|
||||
T) collect (CL:WHEN (EQ '- (CAR STAIL))
|
||||
(SETQ EXCLUDEDFILES
|
||||
(CDR STAIL))
|
||||
(RETURN $$VAL))
|
||||
(CAR STAIL)))
|
||||
(CL:UNLESS PROJECT
|
||||
(SETQ PROJECT (GIT-GET-PROJECT PROJECT)))
|
||||
(if (AND (fetch GITHOST of PROJECT)
|
||||
(fetch WHOST of PROJECT))
|
||||
then (GIT-WORKING-COMPARE-DIRECTORIES SUBDIRS NIL EXCLUDEDFILES NIL T PROJECT)
|
||||
else (PRINTOUT T "gwc requires " (fetch PROJECTNAME of PROJECT)
|
||||
" to have both git and working directories" T T])
|
||||
)
|
||||
|
||||
|
||||
@@ -723,7 +748,7 @@
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(MYMEDLEYSUBDIR
|
||||
(WORKINGSUBDIR
|
||||
[LAMBDA (SUBDIR STAR PROJECT) (* ; "Edited 13-May-2022 10:40 by rmk")
|
||||
(* ; "Edited 7-May-2022 23:15 by rmk")
|
||||
(UNSLASHIT (PACK* (PACKFILENAME 'HOST (FETCH WHOST OF PROJECT)
|
||||
@@ -1394,13 +1419,12 @@
|
||||
" branches"])
|
||||
|
||||
(GIT-BRANCH-MENU
|
||||
[LAMBDA (BRANCHES TITLE PIN?) (* ; "Edited 1-May-2024 14:36 by rmk")
|
||||
[LAMBDA (BRANCHES TITLE) (* ; "Edited 18-Apr-2026 21:36 by rmk")
|
||||
(* ; "Edited 1-May-2024 14:36 by rmk")
|
||||
(* ; "Edited 6-Jul-2023 22:31 by rmk")
|
||||
(* ; "Edited 30-Jun-2023 16:58 by rmk")
|
||||
(* ; "Edited 18-May-2022 13:44 by rmk")
|
||||
(CL:WHEN (SETQ BRANCHES (MKLIST BRANCHES))
|
||||
(CL:WHEN PIN?
|
||||
[SETQ BRANCHES (APPEND BRANCHES '((" Pin menu" 'PinMenu])
|
||||
(create MENU
|
||||
TITLE ← (OR TITLE (CONCAT (LENGTH BRANCHES)
|
||||
" branches"))
|
||||
@@ -1409,7 +1433,8 @@
|
||||
WHENSELECTEDFN ← (FUNCTION GIT-BRANCH-WHENSELECTEDFN)))])
|
||||
|
||||
(GIT-BRANCH-WHENSELECTEDFN
|
||||
[LAMBDA (ITEM MENU BUTTON) (* ; "Edited 2-Oct-2025 23:08 by rmk")
|
||||
[LAMBDA (ITEM MENU BUTTON) (* ; "Edited 16-Mar-2026 12:05 by rmk")
|
||||
(* ; "Edited 2-Oct-2025 23:08 by rmk")
|
||||
(* ; "Edited 30-Sep-2025 14:58 by rmk")
|
||||
(* ; "Edited 21-Mar-2025 19:07 by rmk")
|
||||
(* ; "Edited 11-May-2024 11:05 by rmk")
|
||||
@@ -1420,9 +1445,11 @@
|
||||
|
||||
(LET [(PR (CAR (LAST ITEM]
|
||||
(if (EQ BUTTON 'MIDDLE)
|
||||
then (ShellOpen (CONCAT "https://github.com/Interlisp/medley/pull/" (fetch (PULLREQUEST
|
||||
PRNUMBER)
|
||||
of PR)))
|
||||
then (ShellOpen (CONCAT "https://github.com/Interlisp/"
|
||||
(L-CASE (GIT-GET-PROJECT (fetch PRPROJECT of PR)
|
||||
'PROJECTNAME))
|
||||
"/pull/"
|
||||
(fetch (PULLREQUEST PRNUMBER) of PR)))
|
||||
else
|
||||
(* ;; "This prints notices in its own TTY window")
|
||||
|
||||
@@ -1943,6 +1970,8 @@
|
||||
(GIT-WORKING-COMPARE-DIRECTORIES
|
||||
[LAMBDA (SUBDIRS SELECT EXCLUDEDFILES FIXDIRECTORYDATES UPDATE PROJECT)
|
||||
|
||||
(* ;; "Edited 29-Apr-2026 08:46 by rmk")
|
||||
|
||||
(* ;; "Edited 28-Oct-2025 14:00 by rmk")
|
||||
|
||||
(* ;; "Edited 25-Oct-2025 23:32 by rmk")
|
||||
@@ -1953,18 +1982,12 @@
|
||||
|
||||
(* ;; "Edited 26-Sep-2023 22:41 by rmk")
|
||||
|
||||
(* ;; "Edited 17-Jun-2023 22:54 by rmk")
|
||||
|
||||
(* ;; "Edited 10-Jun-2023 21:32 by rmk")
|
||||
|
||||
(* ;; "Edited 20-Jul-2022 21:18 by rmk")
|
||||
|
||||
(* ;; "Edited 25-Jun-2022 21:37 by rmk")
|
||||
|
||||
(* ;; "Edited 17-May-2022 17:39 by rmk")
|
||||
|
||||
(* ;; "Edited 10-May-2022 10:41 by rmk")
|
||||
|
||||
(* ;;
|
||||
"Edited 29-Mar-2022 13:58 by rmk: working medley subdirectories with the current local git branch.")
|
||||
|
||||
@@ -1984,7 +2007,8 @@
|
||||
(LET ((SUBDIRSTRING (if (EQ SUBDIRS 'all)
|
||||
then (SETQ SUBDIRS (ALLSUBDIRS PROJECT))
|
||||
"ALL subdirectories"
|
||||
else SUBDIRS)))
|
||||
else SUBDIRS))
|
||||
(EXCLUSIONS))
|
||||
(for SUBDIR TITLE CDVAL (WPROJ ← (CONCAT "Working " (L-CASE (fetch PROJECTNAME of PROJECT)
|
||||
T)))
|
||||
(NENTRIES ← 0)
|
||||
@@ -1992,11 +2016,12 @@
|
||||
first (PRINTOUT T "Comparing " SUBDIRSTRING 6 " of " WPROJ " and Git " BRANCH2 T)
|
||||
(BKSYSBUF " ") inside SUBDIRS
|
||||
collect (TERPRI T)
|
||||
(SETQ CDVAL (COMPAREDIRECTORIES (MYMEDLEYSUBDIR SUBDIR T PROJECT)
|
||||
(SETQ CDVAL (COMPAREDIRECTORIES (WORKINGSUBDIR SUBDIR T PROJECT)
|
||||
(GITSUBDIR SUBDIR T PROJECT)
|
||||
(OR SELECT '(> < ~= -* *-))
|
||||
'(*.* *>*.* .* *>.*)
|
||||
(for E DPOS in (GIT-GET-PROJECT PROJECT 'EXCLUSIONS)
|
||||
(for E DPOS in (APPEND (MKLIST EXCLUDEDFILES)
|
||||
(GIT-GET-PROJECT PROJECT 'EXCLUSIONS))
|
||||
collect (SETQ DPOS (STRPOS SUBDIR (FILENAMEFIELD E
|
||||
'DIRECTORY)
|
||||
1 NIL T T FILEDIRCASEARRAY))
|
||||
@@ -2209,7 +2234,7 @@
|
||||
(OR LABEL2 FILE2])
|
||||
|
||||
(GIT-CD-MENUFN
|
||||
[LAMBDA (TBITEM MENUITEM CDBROWSER KEY) (* ; "Edited 28-Oct-2025 11:50 by rmk")
|
||||
[LAMBDA (TBITEM MENUITEM CDBROWSER KEY) (* ; "Edited 28-Oct-2025 11:30 by rmk")
|
||||
(* ; "Edited 25-Oct-2025 23:44 by rmk")
|
||||
(* ; "Edited 21-Sep-2022 21:34 by rmk")
|
||||
(* ; "Edited 22-May-2022 19:13 by rmk")
|
||||
@@ -2218,9 +2243,32 @@
|
||||
|
||||
(* ;; "MENUITEM is of the form (display-atom <this function> . extrainfo). The selector for the selectq is either the CAR of the extrainfo or the display atom")
|
||||
|
||||
(DECLARE (USEDFREE FILE1 FILE2 LABEL2 TYPE CDENTRY USERDATA PWINDOW))
|
||||
(DECLARE (USEDFREE FILE1 FILE2 LABEL2 TYPE CDENTRY USERDATA))
|
||||
(SELECTQ (OR (CADDR MENUITEM)
|
||||
(CAR MENUITEM))
|
||||
(Delete% -> (FLASHWINDOW PWINDOW)
|
||||
(GIVE.TTY.PROCESS PWINDOW)
|
||||
(CL:WHEN [OR (EQ KEY 'MIDDLE)
|
||||
(EQ 'Y (ASKUSER NIL 'N (CONCAT "Delete " LABEL2 " ? "]
|
||||
(CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'RIGHT NIL T)))
|
||||
(|Delete ALL <-|
|
||||
(FLASHWINDOW PWINDOW)
|
||||
(GIVE.TTY.PROCESS PWINDOW)
|
||||
(if (NAMEFIELD LABEL1 T)
|
||||
then (CL:WHEN [OR (EQ KEY 'MIDDLE)
|
||||
(EQ 'Y (ASKUSER NIL 'N (CONCAT "Delete ALL versions of "
|
||||
(NAMEFIELD LABEL1 T)
|
||||
" ? "]
|
||||
(CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'LEFT NIL T))
|
||||
else (PRINTOUT T "Nothing to delete")))
|
||||
(Delete% BOTH (FLASHWINDOW PWINDOW)
|
||||
(GIVE.TTY.PROCESS PWINDOW)
|
||||
(CL:WHEN (EQ 'Y (ASKUSER NIL 'N (CONCAT
|
||||
"Delete all Medley and git versions of "
|
||||
(NAMEFIELD LABEL1 T)
|
||||
" ? ")))
|
||||
(CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'LEFT NIL T)
|
||||
(CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'RIGHT NIL T T)))
|
||||
(Copy% -> (CDBROWSER-COPY CDBROWSER TBITEM 'LEFT (CADDDR MENUITEM)))
|
||||
(SHOULDNT])
|
||||
|
||||
@@ -2422,33 +2470,33 @@
|
||||
|
||||
(PUTPROPS GITFNS FILETYPE :TCOMPL)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4178 21056 (GIT-CLONEP 4188 . 5619) (GIT-INIT 5621 . 6251) (GIT-MAKE-PROJECT 6253 .
|
||||
14110) (GIT-GET-PROJECT 14112 . 16037) (GIT-PUT-PROJECT-FIELD 16039 . 17680) (GIT-PROJECT-PATH 17682
|
||||
. 18726) (FIND-ANCESTOR-DIRECTORY 18728 . 19079) (GIT-FIND-CLONE 19081 . 20164) (GIT-MAINBRANCH 20166
|
||||
. 20561) (GIT-MAINBRANCH? 20563 . 21054)) (26519 31448 (PRC-COMMAND 26529 . 31446)) (31504 34292 (
|
||||
ALLSUBDIRS 31514 . 32800) (MEDLEYSUBDIRS 32802 . 33495) (GITSUBDIRS 33497 . 34290)) (34293 36698 (
|
||||
TOGIT 34303 . 35711) (FROMGIT 35713 . 36696)) (36699 39709 (MYMEDLEYSUBDIR 36709 . 37165) (GITSUBDIR
|
||||
37167 . 37610) (STRIPDIR 37612 . 37990) (STRIPHOST 37992 . 38232) (STRIPNAME 38234 . 38987) (
|
||||
STRIPWHERE 38989 . 39707)) (39710 41945 (GFILE4MFILE 39720 . 40416) (MFILE4GFILE 40418 . 40987) (
|
||||
GIT-REPO-FILENAME 40989 . 41943)) (41994 52251 (GIT-COMMIT 42004 . 42830) (GIT-PUSH 42832 . 43592) (
|
||||
GIT-PULL 43594 . 44346) (GIT-APPROVAL 44348 . 44697) (GIT-GET-FILE 44699 . 46614) (GIT-FILE-EXISTS?
|
||||
46616 . 46890) (GIT-REMOTE-UPDATE 46892 . 47727) (GIT-REMOTE-ADD 47729 . 48036) (GIT-FILE-DATE 48038
|
||||
. 49085) (GIT-FILE-HISTORY 49087 . 51021) (GIT-PRINT-FILE-HISTORY 51023 . 52075) (GIT-FETCH 52077 .
|
||||
52249)) (52281 64233 (GIT-BRANCH-DIFF 52291 . 59180) (GIT-COMMIT-DIFFS 59182 . 60073) (
|
||||
GIT-BRANCH-RELATIONS 60075 . 63759) (GIT-MODIFIED 63761 . 64231)) (64278 83045 (GIT-BRANCH-NUM 64288
|
||||
. 64861) (GIT-CHECKOUT 64863 . 66149) (GIT-WHICH-BRANCH 66151 . 66558) (GIT-MAKE-BRANCH 66560 . 69139
|
||||
) (GIT-BRANCHES 69141 . 71738) (GIT-BRANCH-EXISTS? 71740 . 72611) (GIT-PICK-BRANCH 72613 . 73103) (
|
||||
GIT-BRANCH-MENU 73105 . 73994) (GIT-BRANCH-WHENSELECTEDFN 73996 . 75535) (GIT-PULL-REQUESTS 75537 .
|
||||
79422) (GIT-SHORT-BRANCH-NAME 79424 . 79715) (GIT-LONG-NAME 79717 . 80034) (GIT-PRC-BRANCHES 80036 .
|
||||
83043)) (83075 87829 (GIT-MY-CURRENT-BRANCH 83085 . 83455) (GIT-MY-BRANCHP 83457 . 84075) (
|
||||
GIT-MY-NEXT-BRANCH 84077 . 85877) (GIT-MY-BRANCHES 85879 . 87827)) (87875 91959 (GIT-ADD-WORKTREE
|
||||
87885 . 89492) (GIT-REMOVE-WORKTREE 89494 . 90426) (GIT-LIST-WORKTREES 90428 . 91239) (WORKTREEDIR
|
||||
91241 . 91957)) (92007 125045 (GIT-GET-DIFFERENT-FILES 92017 . 98925) (
|
||||
GIT-BRANCHES-COMPARE-DIRECTORIES 98927 . 106566) (GIT-WORKING-COMPARE-DIRECTORIES 106568 . 112370) (
|
||||
GIT-COMPARE-WORKTREE 112372 . 116350) (GITCDOBJBUTTONFN 116352 . 120850) (GIT-CD-LABELFN 120852 .
|
||||
121938) (GIT-CD-MENUFN 121940 . 123026) (GIT-WORKING-COMPARE-FILES 123028 . 123648) (
|
||||
GIT-BRANCHES-COMPARE-FILES 123650 . 124814) (GIT-PR-COMPARE 124816 . 125043)) (125115 133446 (CDGITDIR
|
||||
125125 . 125812) (GIT-COMMAND 125814 . 127372) (GITORIGIN 127374 . 128071) (GIT-INITIALS 128073 .
|
||||
128377) (GIT-COMMAND-TO-FILE 128379 . 131864) (GIT-RESULT-TO-LINES 131866 . 132779) (STRIPLOCAL 132781
|
||||
. 133444)))))
|
||||
(FILEMAP (NIL (4257 21537 (GIT-CLONEP 4267 . 5698) (GIT-INIT 5700 . 6330) (GIT-MAKE-PROJECT 6332 .
|
||||
14591) (GIT-GET-PROJECT 14593 . 16518) (GIT-PUT-PROJECT-FIELD 16520 . 18161) (GIT-PROJECT-PATH 18163
|
||||
. 19207) (FIND-ANCESTOR-DIRECTORY 19209 . 19560) (GIT-FIND-CLONE 19562 . 20645) (GIT-MAINBRANCH 20647
|
||||
. 21042) (GIT-MAINBRANCH? 21044 . 21535)) (26309 33483 (PRC-COMMAND 26319 . 31601) (GIT-GWC-COMMAND
|
||||
31603 . 33481)) (33539 36327 (ALLSUBDIRS 33549 . 34835) (MEDLEYSUBDIRS 34837 . 35530) (GITSUBDIRS
|
||||
35532 . 36325)) (36328 38733 (TOGIT 36338 . 37746) (FROMGIT 37748 . 38731)) (38734 41743 (
|
||||
WORKINGSUBDIR 38744 . 39199) (GITSUBDIR 39201 . 39644) (STRIPDIR 39646 . 40024) (STRIPHOST 40026 .
|
||||
40266) (STRIPNAME 40268 . 41021) (STRIPWHERE 41023 . 41741)) (41744 43979 (GFILE4MFILE 41754 . 42450)
|
||||
(MFILE4GFILE 42452 . 43021) (GIT-REPO-FILENAME 43023 . 43977)) (44028 54285 (GIT-COMMIT 44038 . 44864)
|
||||
(GIT-PUSH 44866 . 45626) (GIT-PULL 45628 . 46380) (GIT-APPROVAL 46382 . 46731) (GIT-GET-FILE 46733 .
|
||||
48648) (GIT-FILE-EXISTS? 48650 . 48924) (GIT-REMOTE-UPDATE 48926 . 49761) (GIT-REMOTE-ADD 49763 .
|
||||
50070) (GIT-FILE-DATE 50072 . 51119) (GIT-FILE-HISTORY 51121 . 53055) (GIT-PRINT-FILE-HISTORY 53057 .
|
||||
54109) (GIT-FETCH 54111 . 54283)) (54315 66267 (GIT-BRANCH-DIFF 54325 . 61214) (GIT-COMMIT-DIFFS 61216
|
||||
. 62107) (GIT-BRANCH-RELATIONS 62109 . 65793) (GIT-MODIFIED 65795 . 66265)) (66312 85259 (
|
||||
GIT-BRANCH-NUM 66322 . 66895) (GIT-CHECKOUT 66897 . 68183) (GIT-WHICH-BRANCH 68185 . 68592) (
|
||||
GIT-MAKE-BRANCH 68594 . 71173) (GIT-BRANCHES 71175 . 73772) (GIT-BRANCH-EXISTS? 73774 . 74645) (
|
||||
GIT-PICK-BRANCH 74647 . 75137) (GIT-BRANCH-MENU 75139 . 76040) (GIT-BRANCH-WHENSELECTEDFN 76042 .
|
||||
77749) (GIT-PULL-REQUESTS 77751 . 81636) (GIT-SHORT-BRANCH-NAME 81638 . 81929) (GIT-LONG-NAME 81931 .
|
||||
82248) (GIT-PRC-BRANCHES 82250 . 85257)) (85289 90043 (GIT-MY-CURRENT-BRANCH 85299 . 85669) (
|
||||
GIT-MY-BRANCHP 85671 . 86289) (GIT-MY-NEXT-BRANCH 86291 . 88091) (GIT-MY-BRANCHES 88093 . 90041)) (
|
||||
90089 94173 (GIT-ADD-WORKTREE 90099 . 91706) (GIT-REMOVE-WORKTREE 91708 . 92640) (GIT-LIST-WORKTREES
|
||||
92642 . 93453) (WORKTREEDIR 93455 . 94171)) (94221 128732 (GIT-GET-DIFFERENT-FILES 94231 . 101139) (
|
||||
GIT-BRANCHES-COMPARE-DIRECTORIES 101141 . 108780) (GIT-WORKING-COMPARE-DIRECTORIES 108782 . 114597) (
|
||||
GIT-COMPARE-WORKTREE 114599 . 118577) (GITCDOBJBUTTONFN 118579 . 123077) (GIT-CD-LABELFN 123079 .
|
||||
124165) (GIT-CD-MENUFN 124167 . 126713) (GIT-WORKING-COMPARE-FILES 126715 . 127335) (
|
||||
GIT-BRANCHES-COMPARE-FILES 127337 . 128501) (GIT-PR-COMPARE 128503 . 128730)) (128802 137133 (CDGITDIR
|
||||
128812 . 129499) (GIT-COMMAND 129501 . 131059) (GITORIGIN 131061 . 131758) (GIT-INITIALS 131760 .
|
||||
132064) (GIT-COMMAND-TO-FILE 132066 . 135551) (GIT-RESULT-TO-LINES 135553 . 136466) (STRIPLOCAL 136468
|
||||
. 137131)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,13 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "27-Jan-2026 13:21:10" {WMEDLEY}<lispusers>HELPSYS.;21 88654
|
||||
(FILECREATED "20-Apr-2026 08:07:50" {MEDLEY}<lispusers>HELPSYS.;24 89018
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS DOCS.LOOKUP GENERIC.MAN.LOOKUP)
|
||||
(VARS HELPSYSCOMS)
|
||||
:CHANGES-TO (FNS REPO.LOOKUP)
|
||||
|
||||
:PREVIOUS-DATE " 5-May-2025 22:04:32" {WMEDLEY}<lispusers>HELPSYS.;15)
|
||||
:PREVIOUS-DATE "27-Jan-2026 13:21:10" {MEDLEY}<lispusers>HELPSYS.;21)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT HELPSYSCOMS)
|
||||
@@ -340,21 +339,27 @@
|
||||
else "git web--browse"])
|
||||
|
||||
(REPO.LOOKUP
|
||||
[LAMBDA (ENTRY TYPES) (* ; "Edited 13-Jan-2023 10:46 by lmm")
|
||||
[LAMBDA (ENTRY TYPES) (* ; "Edited 20-Apr-2026 08:06 by rmk")
|
||||
(* ; "Edited 13-Jan-2023 10:46 by lmm")
|
||||
(* ; "Edited 16-Aug-2022 16:26 by lmm")
|
||||
(for FL in (UNION (WHEREIS ENTRY (OR TYPES HELPSYS.REPO.TYPES)
|
||||
T)
|
||||
(LIST ENTRY)) bind POS FND
|
||||
(for FL POS FND TSTREAM in (UNION (WHEREIS ENTRY (OR TYPES HELPSYS.REPO.TYPES)
|
||||
T)
|
||||
(LIST ENTRY))
|
||||
when [SETQ FND (OR (FINDFILE-WITH-EXTENSIONS FL NIL '(TEDIT TXT TED))
|
||||
(AND (SETQ POS (STRPOS "-" FL))
|
||||
(FINDFILE-WITH-EXTENSIONS (SUBSTRING FL 1 (CL:1- POS))
|
||||
NIL
|
||||
'(TEDIT TXT TTY TED]
|
||||
join (CL:WITH-OPEN-FILE (STR (PATHNAME FND)
|
||||
:DIRECTION :INPUT)
|
||||
(CL:WHEN (SETQ POS (FFILEPOS ENTRY STR))
|
||||
(TEDIT-SEE STR NIL NIL (CL:FORMAT NIL "~a [~a]" FL ENTRY))
|
||||
(LIST FL))])
|
||||
collect (SETQ TSTREAM (OPENTEXTSTREAM FND))
|
||||
[TEDIT TSTREAM NIL NIL `(READONLY T LEAVETTY T FONT ,DEFAULTFONT TITLE
|
||||
,(CL:IF (EQ FL ENTRY)
|
||||
FL
|
||||
(CONCAT ENTRY " on " FL))]
|
||||
(CL:UNLESS (EQ FL ENTRY)
|
||||
(CL:WHEN (SETQ POS (TEDIT.FIND TSTREAM ENTRY))
|
||||
(TEDIT.SETSEL TSTREAM POS (NCHARS ENTRY))
|
||||
(TEDIT.NORMALIZECARET TSTREAM)))
|
||||
FL])
|
||||
)
|
||||
|
||||
(RPAQQ CLHS.INDEX
|
||||
@@ -1716,14 +1721,14 @@
|
||||
|
||||
(PUTPROPS HELPSYS FILETYPE :FAKE-COMPILE-FILE)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4640 10992 (HELPSYS 4650 . 6491) (IRM.LOOKUP 6493 . 8131) (GENERIC.MAN.LOOKUP 8133 .
|
||||
10001) (IRM.SMART.LOOKUP 10003 . 10159) (IRM.RESET 10161 . 10570) (DOCS.LOOKUP 10572 . 10990)) (11249
|
||||
18568 (CLHS.INDEX 11259 . 14223) (CLHS.LOOKUP 14225 . 16231) (CLHS.OPENER 16233 . 17556) (REPO.LOOKUP
|
||||
17558 . 18566)) (71663 73181 (IRM.GET.DINFOGRAPH 71673 . 72548) (IRM.DISPLAY.REF 72550 . 73179)) (
|
||||
73183 73545 (IRM.LOAD-GRAPH 73183 . 73545)) (73870 79374 (IRM.DISPLAY.CREF 73880 . 75594) (
|
||||
IRM.CREF.BOX 75596 . 76423) (IRM.PUT.CREF 76425 . 76650) (IRM.GET.CREF 76652 . 77023) (
|
||||
IRM.CREF.BUTTONEVENTFN 77025 . 79372)) (79929 88235 (\IRM.GET.REF 79939 . 81270) (\IRM.SMART.REF 81272
|
||||
. 83199) (\IRM.CHOOSE.REF 83201 . 84452) (\IRM.WILD.REF 84454 . 85709) (\IRM.WILDCARD 85711 . 86077)
|
||||
(\IRM.WILD.MATCH 86079 . 87309) (\IRM.GET.HASHFILE 87311 . 87774) (\IRM.GET.KEYWORDS 87776 . 88233)) (
|
||||
88372 88528 (\IRM.AROUND-EXIT 88372 . 88528)))))
|
||||
(FILEMAP (NIL (4582 10934 (HELPSYS 4592 . 6433) (IRM.LOOKUP 6435 . 8073) (GENERIC.MAN.LOOKUP 8075 .
|
||||
9943) (IRM.SMART.LOOKUP 9945 . 10101) (IRM.RESET 10103 . 10512) (DOCS.LOOKUP 10514 . 10932)) (11191
|
||||
18932 (CLHS.INDEX 11201 . 14165) (CLHS.LOOKUP 14167 . 16173) (CLHS.OPENER 16175 . 17498) (REPO.LOOKUP
|
||||
17500 . 18930)) (72027 73545 (IRM.GET.DINFOGRAPH 72037 . 72912) (IRM.DISPLAY.REF 72914 . 73543)) (
|
||||
73547 73909 (IRM.LOAD-GRAPH 73547 . 73909)) (74234 79738 (IRM.DISPLAY.CREF 74244 . 75958) (
|
||||
IRM.CREF.BOX 75960 . 76787) (IRM.PUT.CREF 76789 . 77014) (IRM.GET.CREF 77016 . 77387) (
|
||||
IRM.CREF.BUTTONEVENTFN 77389 . 79736)) (80293 88599 (\IRM.GET.REF 80303 . 81634) (\IRM.SMART.REF 81636
|
||||
. 83563) (\IRM.CHOOSE.REF 83565 . 84816) (\IRM.WILD.REF 84818 . 86073) (\IRM.WILDCARD 86075 . 86441)
|
||||
(\IRM.WILD.MATCH 86443 . 87673) (\IRM.GET.HASHFILE 87675 . 88138) (\IRM.GET.KEYWORDS 88140 . 88597)) (
|
||||
88736 88892 (\IRM.AROUND-EXIT 88736 . 88892)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,24 +0,0 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "12-Aug-2022 12:29:18" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1 568
|
||||
|
||||
:CHANGES-TO (VARS UNIXYCDCOMS)
|
||||
|
||||
:PREVIOUS-DATE "12-Aug-2022 11:14:47" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT UNIXYCDCOMS)
|
||||
|
||||
(RPAQQ UNIXYCDCOMS ((COMMANDS "cd" "ls" "pwd")))
|
||||
|
||||
(DEFCOMMAND "cd" (DIR)
|
||||
(/CNDIR DIR))
|
||||
|
||||
(DEFCOMMAND "ls" (FIRST . REST)
|
||||
(DODIR (CONS FIRST REST)))
|
||||
|
||||
(DEFCOMMAND "pwd" ()
|
||||
(DIRECTORYNAME T))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL)))
|
||||
STOP
|
||||
@@ -1,13 +0,0 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "12-Aug-2022 12:29:30" ("compiled on " {DSK}<home>larry>medley>lispusers>UNIXYCD.;1)
|
||||
"12-Aug-2022 10:18:11" bcompl'd in "Welcome to Fuller sysout 12-Aug-2022 ..." dated
|
||||
"12-Aug-2022 10:22:21")
|
||||
(FILECREATED "12-Aug-2022 12:29:18" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1 568 :CHANGES-TO (VARS
|
||||
UNIXYCDCOMS) :PREVIOUS-DATE "12-Aug-2022 11:14:47" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1)
|
||||
(PRETTYCOMPRINT UNIXYCDCOMS)
|
||||
(RPAQQ UNIXYCDCOMS ((COMMANDS "cd" "ls" "pwd")))
|
||||
(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
|
||||
(DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST)))
|
||||
(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
|
||||
NIL
|
||||
@@ -1,13 +0,0 @@
|
||||
UNIXYCD & .LCOM .TXT
|
||||
|
||||
|
||||
This file implements little commands:
|
||||
|
||||
cd change Lisp's current directory to home
|
||||
cd dir dir can be a path separated by / or >.
|
||||
if no "hostname" is given, it's assumed {DSK}
|
||||
ls [dir] list current directory or a directory that's given
|
||||
non-feature: ls foo only prints foo; you need to
|
||||
specify ls foo/
|
||||
pwd print working directory
|
||||
|
||||
@@ -57,7 +57,12 @@ main() {
|
||||
|
||||
# save dribble file to loadups; extract and save fails
|
||||
"${MEDLEYDIR}"/scripts/cpv ${logindir}/HCFILES.DRIBBLE "${MEDLEYDIR}"/loadups/hcfiles.dribble
|
||||
grep "IL:FAIL" < "${MEDLEYDIR}"/loadups/hcfiles.dribble > ${logindir}/fails
|
||||
if [ -f "$(command -v perl)" ] && [ -x "$(command -v perl)" ]
|
||||
then
|
||||
perl "${MEDLEYDIR}"/scripts/getFails.pl '^[^\n]*IL:FAIL' 'DONE' "${MEDLEYDIR}"/loadups/hcfiles.dribble > ${logindir}/fails
|
||||
else
|
||||
echo Unable to extract FAIL information from "${MEDLEYDIR}"/loadups/hcfiles.dribble > ${logindir}/fails
|
||||
fi
|
||||
"${MEDLEYDIR}"/scripts/cpv ${logindir}/fails "${MEDLEYDIR}"/loadups/hcfiles-fails.txt
|
||||
|
||||
# cleanup
|
||||
|
||||
31
scripts/getFails.pl
Normal file
31
scripts/getFails.pl
Normal file
@@ -0,0 +1,31 @@
|
||||
#!/usr/bin/env perl
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
die "Usage: $0 <pattern1> <pattern2> [file...]\n" unless @ARGV >= 2;
|
||||
|
||||
my $pat1 = shift;
|
||||
my $pat2 = shift;
|
||||
my $regex1line = qr/${pat1}.*?${pat2}/; # all on 1 line
|
||||
my $regexStart = qr/${pat1}/; # the line has the start pattern
|
||||
my $regexEnd = qr/${pat2}/; # the line has the end pattern
|
||||
|
||||
my $flag = 0;
|
||||
|
||||
while (<>) {
|
||||
if ($flag) { # we're in a multi-line block
|
||||
print;
|
||||
if (/$regexEnd/) { # does this line end the multi-line block?
|
||||
$flag = 0;
|
||||
print "\n"; # separator
|
||||
};
|
||||
}
|
||||
elsif (/$regex1line/) { # all on 1 line
|
||||
print;
|
||||
print "\n"; # separator
|
||||
}
|
||||
elsif (/$regexStart/) { # begin a multi-line block
|
||||
print;
|
||||
$flag = 1;
|
||||
}
|
||||
}
|
||||
147
sources/FILEIO
147
sources/FILEIO
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED " 6-Feb-2026 23:22:00" {WMEDLEY}<sources>FILEIO.;142 166519
|
||||
(FILECREATED "26-Apr-2026 23:27:40" {WMEDLEY}<sources>FILEIO.;146 165936
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS DIRECTORYNAME)
|
||||
:CHANGES-TO (FNS \DO.PARAMS.AT.OPEN)
|
||||
|
||||
:PREVIOUS-DATE "12-Sep-2025 08:19:06" {WMEDLEY}<sources>FILEIO.;141)
|
||||
:PREVIOUS-DATE "26-Apr-2026 21:00:55" {WMEDLEY}<sources>FILEIO.;145)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT FILEIOCOMS)
|
||||
@@ -1446,7 +1446,10 @@
|
||||
(GO RETRY])
|
||||
|
||||
(\DO.PARAMS.AT.OPEN
|
||||
[LAMBDA (STREAM ACCESS PARAMETERS) (* ; "Edited 25-Dec-2024 10:54 by rmk")
|
||||
[LAMBDA (STREAM ACCESS PARAMETERS) (* ; "Edited 26-Apr-2026 23:27 by rmk")
|
||||
(* ; "Edited 21-Apr-2026 20:57 by mth")
|
||||
(* ; "Edited 20-Apr-2026 17:36 by mth")
|
||||
(* ; "Edited 25-Dec-2024 10:54 by rmk")
|
||||
(* ; "Edited 15-Jul-2024 22:29 by rmk")
|
||||
(* ; "Edited 25-Aug-2023 08:43 by rmk")
|
||||
(* ; "Edited 6-Jul-2022 00:00 by rmk")
|
||||
@@ -1469,44 +1472,40 @@
|
||||
|
||||
(DECLARE (USEDFREE STREAM-AFTER-OPEN-FNS))
|
||||
(\EXTERNALFORMAT STREAM :DEFAULT)
|
||||
[for X ATTR VAL EOL in PARAMETERS do [(COND
|
||||
[(LISTP X)
|
||||
(SETQ ATTR (CAR X))
|
||||
(SETQ VAL (CAR (LISTP (CDR X]
|
||||
(T (SETQ ATTR X)
|
||||
(SETQ VAL T)))
|
||||
(SELECTQ ATTR
|
||||
(BUFFERS (SETFILEINFO STREAM 'BUFFERS VAL))
|
||||
(ENDOFSTREAMOP (SETFILEINFO STREAM 'ENDOFSTREAMOP VAL))
|
||||
(CHARSET (CHARSET STREAM VAL))
|
||||
((FORMAT EXTERNALFORMAT :EXTERNAL-FORMAT)
|
||||
(for X ATTR VAL EOL in PARAMETERS
|
||||
do (COND
|
||||
[(LISTP X)
|
||||
(SETQ ATTR (CAR X))
|
||||
(SETQ VAL (CAR (LISTP (CDR X]
|
||||
(T (SETQ ATTR X)
|
||||
(SETQ VAL T)))
|
||||
(SELECTQ ATTR
|
||||
(BUFFERS (SETFILEINFO STREAM 'BUFFERS VAL))
|
||||
(ENDOFSTREAMOP (SETFILEINFO STREAM 'ENDOFSTREAMOP VAL))
|
||||
(CHARSET (CHARSET STREAM VAL))
|
||||
((FORMAT EXTERNALFORMAT :EXTERNAL-FORMAT)
|
||||
(* ;;
|
||||
"This allows an EOL and format to be intermixed, the last ones of each are installed")
|
||||
|
||||
(* ;;
|
||||
"VAL can be :UTF-8, CR, (UTF:8 CR), i.e. specify either one or both")
|
||||
(for V inside VAL do (if (MEMB V '(LF CR CRLF ANY))
|
||||
then (SETQ EOL V)
|
||||
else (\EXTERNALFORMAT STREAM V))))
|
||||
(CONVHANKAKU (CONVHANKAKU STREAM VAL))
|
||||
((EOL EOLCONVENTION EOLC)
|
||||
(SETQ EOL VAL))
|
||||
NIL) finally
|
||||
|
||||
(if (LISTP VAL)
|
||||
then (* ;
|
||||
"VAL could be (:UTF-8 CR) e.g. from CL:OPEN")
|
||||
(\EXTERNALFORMAT STREAM (CAR VAL))
|
||||
(* ;
|
||||
"Can override the EOL of the format")
|
||||
(SETQ EOL (CADR VAL))
|
||||
elseif (SETQ EOL (CAR)
|
||||
VAL)
|
||||
else (\EXTERNALFORMAT STREAM VAL)))
|
||||
(CONVHANKAKU (CONVHANKAKU STREAM VAL))
|
||||
((EOL EOLCONVENTION EOLC)
|
||||
(SETQ EOL VAL] finally
|
||||
(* ;; "If EOL is not specified, default input streams to ANY. ")
|
||||
|
||||
(* ;;
|
||||
"If not specified, default EOL to ANY--SETFILEINFO checks for output streams")
|
||||
|
||||
(SETFILEINFO STREAM 'EOL
|
||||
(OR EOL 'ANY]
|
||||
(FOR FN IN STREAM-AFTER-OPEN-FNS DO (APPLY* FN STREAM ACCESS PARAMETERS])
|
||||
(CL:UNLESS (OR EOL (\GETSTREAM STREAM 'OUTPUT T))
|
||||
(SETQ EOL 'ANY))
|
||||
(CL:WHEN EOL
|
||||
(SETFILEINFO STREAM 'EOL EOL)))
|
||||
(for FN in STREAM-AFTER-OPEN-FNS do (APPLY* FN STREAM ACCESS PARAMETERS])
|
||||
|
||||
(\RENAMEFILE
|
||||
[LAMBDA (OLDFILE NEWFILE) (* ; "Edited 25-Dec-2024 10:14 by rmk")
|
||||
[LAMBDA (OLDFILE NEWFILE) (* ; "Edited 25-Apr-2026 16:03 by rmk")
|
||||
(* ; "Edited 25-Dec-2024 10:14 by rmk")
|
||||
(* ; "Edited 16-Dec-2024 21:07 by rmk")
|
||||
(* hdj " 7-May-86 12:22")
|
||||
(SETQ OLDFILE (\ADD.CONNECTED.DIR OLDFILE))
|
||||
@@ -1521,7 +1520,7 @@
|
||||
NEW-DEVICE
|
||||
(TRUEFILENAME NEWFILE)))
|
||||
(CL:IF (PSEUDOHOSTP NEWFILE)
|
||||
(PSEUDOFILENAME NEWFULLNAME)
|
||||
(PSEUDOFILENAME NEWFULLNAME (FILENAMEFIELD NEWFILE 'HOST))
|
||||
NEWFULLNAME))])
|
||||
|
||||
(\REVALIDATEFILE
|
||||
@@ -3161,39 +3160,39 @@ update the map")
|
||||
(ADDTOVAR LAMA \IS.NOT.RANDACCESSP \ILLEGAL.DEVICEOP STREAMPROP)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (27706 31822 (STREAMPROP 27716 . 28150) (GETSTREAMPROP 28152 . 28901) (PUTSTREAMPROP
|
||||
28903 . 31670) (STREAMP 31672 . 31820)) (31865 35244 (\DEFPRINT.BY.NAME 31875 . 33027) (
|
||||
\STREAM.DEFPRINT 33029 . 34937) (\FDEV.DEFPRINT 34939 . 35242)) (35502 40543 (\GETACCESS 35512 . 35966
|
||||
) (\SETACCESS 35968 . 40541)) (60769 66738 (\DEFINEDEVICE 60779 . 63095) (\GETDEVICEFROMNAME 63097 .
|
||||
63570) (\GETDEVICEFROMHOSTNAME 63572 . 64616) (\REMOVEDEVICE 64618 . 65741) (\REMOVEDEVICE.NAMES 65743
|
||||
. 66736)) (66778 94509 (\CLOSEFILE 66788 . 67613) (\DELETEFILE 67615 . 67909) (\DEVICEEVENT 67911 .
|
||||
69681) (\GENERATEFILES 69683 . 70630) (\GENERATENEXTFILE 70632 . 71283) (\GENERATEFILEINFO 71285 .
|
||||
71746) (\GETFILENAME 71748 . 72137) (\GENERIC.OUTFILEP 72139 . 72609) (\OPENFILE 72611 . 75189) (
|
||||
\DO.PARAMS.AT.OPEN 75191 . 79387) (\RENAMEFILE 79389 . 80345) (\REVALIDATEFILE 80347 . 82949) (
|
||||
\PAGED.REVALIDATEFILELST 82951 . 84509) (\PAGED.REVALIDATEFILES 84511 . 86230) (\PAGED.REVALIDATEFILE
|
||||
86232 . 88515) (\BUFFERED.REVALIDATEFILE 88517 . 90803) (\BUFFERED.REVALIDATEFILELST 90805 . 91989) (
|
||||
\PRINT-REVALIDATION-RESULT 91991 . 92833) (\TRUNCATEFILE 92835 . 93226) (\FILE-CONFLICT 93228 . 94507)
|
||||
) (94545 99208 (\GENERATENOFILES 94555 . 96651) (\NULLFILEGENERATOR 96653 . 96897) (\NOFILESNEXTFILEFN
|
||||
96899 . 98890) (\NOFILESINFOFN 98892 . 99206)) (99327 101235 (\FILE.NOT.OPEN 99337 . 99850) (
|
||||
\FILE.WONT.OPEN 99852 . 100180) (\ILLEGAL.DEVICEOP 100182 . 100464) (\IS.NOT.RANDACCESSP 100466 .
|
||||
100912) (\STREAM.NOT.OPEN 100914 . 101233)) (101370 103668 (\FDEVINSTANCE 101380 . 103666)) (104870
|
||||
111841 (CNDIR 104880 . 106185) (DIRECTORYNAME 106187 . 109967) (DIRECTORYNAMEP 109969 . 110585) (
|
||||
HOSTNAMEP 110587 . 111394) (\ADD.CONNECTED.DIR 111396 . 111839)) (111886 140833 (\BACKFILEPTR 111896
|
||||
. 112084) (\BACKPEEKBIN 112086 . 112447) (\BACKBIN 112449 . 112800) (BIN 112802 . 113019) (\BIN
|
||||
113021 . 113298) (\BINS 113300 . 113586) (BOUT 113588 . 113950) (\BOUT 113952 . 114267) (\BOUTS 114269
|
||||
. 114580) (COPYBYTES 114582 . 117914) (COPYCHARS 117916 . 121714) (COPYFILE 121716 . 123076) (
|
||||
\COPYOPENFILE 123078 . 126277) (\INFER.FILE.TYPE 126279 . 127233) (EOFP 127235 . 127532) (FORCEOUTPUT
|
||||
127534 . 127781) (\FLUSH.OPEN.STREAMS 127783 . 128139) (CHARSET 128141 . 129500) (ACCESS-CHARSET
|
||||
129502 . 130139) (GETEOFPTR 130141 . 130391) (GETFILEINFO 130393 . 133586) (\TYPE.FROM.FILETYPE 133588
|
||||
. 134058) (\FILETYPE.FROM.TYPE 134060 . 134239) (GETFILEPTR 134241 . 134493) (SETFILEINFO 134495 .
|
||||
138732) (SETFILEPTR 138734 . 140453) (BOUT16 140455 . 140640) (BIN16 140642 . 140831)) (140936 148116
|
||||
(\GENERIC.BINS 140946 . 141226) (\GENERIC.BOUTS 141228 . 141493) (\GENERIC.RENAMEFILE 141495 . 143743)
|
||||
(\GENERIC.OPENP 143745 . 145060) (\GENERIC.READP 145062 . 146214) (\GENERIC.CHARSET 146216 . 148114))
|
||||
(148117 148456 (\MAP-OPEN-STREAMS 148127 . 148454)) (150311 152391 (\EOF.ACTION 150321 . 150572) (
|
||||
\EOSERROR 150574 . 150767) (\GETEOFPTR 150769 . 150951) (\INCFILEPTR 150953 . 151303) (\PEEKBIN 151305
|
||||
. 151496) (\SETCLOSEDFILELENGTH 151498 . 151832) (\SETEOFPTR 151834 . 152022) (\SETFILEPTR 152024 .
|
||||
152389)) (152392 152934 (\FIXPOUT 152402 . 152702) (\FIXPIN 152704 . 152932)) (152935 153501 (\BOUTEOL
|
||||
152945 . 153499)) (156397 166261 (\BUFFERED.BIN 156407 . 157259) (\BUFFERED.PEEKBIN 157261 . 158043)
|
||||
(\BUFFERED.BOUT 158045 . 158905) (\BUFFERED.BINS 158907 . 162592) (\BUFFERED.BOUTS 162594 . 164395) (
|
||||
\BUFFERED.COPYBYTES 164397 . 166259)))))
|
||||
(FILEMAP (NIL (27711 31827 (STREAMPROP 27721 . 28155) (GETSTREAMPROP 28157 . 28906) (PUTSTREAMPROP
|
||||
28908 . 31675) (STREAMP 31677 . 31825)) (31870 35249 (\DEFPRINT.BY.NAME 31880 . 33032) (
|
||||
\STREAM.DEFPRINT 33034 . 34942) (\FDEV.DEFPRINT 34944 . 35247)) (35507 40548 (\GETACCESS 35517 . 35971
|
||||
) (\SETACCESS 35973 . 40546)) (60774 66743 (\DEFINEDEVICE 60784 . 63100) (\GETDEVICEFROMNAME 63102 .
|
||||
63575) (\GETDEVICEFROMHOSTNAME 63577 . 64621) (\REMOVEDEVICE 64623 . 65746) (\REMOVEDEVICE.NAMES 65748
|
||||
. 66741)) (66783 93926 (\CLOSEFILE 66793 . 67618) (\DELETEFILE 67620 . 67914) (\DEVICEEVENT 67916 .
|
||||
69686) (\GENERATEFILES 69688 . 70635) (\GENERATENEXTFILE 70637 . 71288) (\GENERATEFILEINFO 71290 .
|
||||
71751) (\GETFILENAME 71753 . 72142) (\GENERIC.OUTFILEP 72144 . 72614) (\OPENFILE 72616 . 75194) (
|
||||
\DO.PARAMS.AT.OPEN 75196 . 78665) (\RENAMEFILE 78667 . 79762) (\REVALIDATEFILE 79764 . 82366) (
|
||||
\PAGED.REVALIDATEFILELST 82368 . 83926) (\PAGED.REVALIDATEFILES 83928 . 85647) (\PAGED.REVALIDATEFILE
|
||||
85649 . 87932) (\BUFFERED.REVALIDATEFILE 87934 . 90220) (\BUFFERED.REVALIDATEFILELST 90222 . 91406) (
|
||||
\PRINT-REVALIDATION-RESULT 91408 . 92250) (\TRUNCATEFILE 92252 . 92643) (\FILE-CONFLICT 92645 . 93924)
|
||||
) (93962 98625 (\GENERATENOFILES 93972 . 96068) (\NULLFILEGENERATOR 96070 . 96314) (\NOFILESNEXTFILEFN
|
||||
96316 . 98307) (\NOFILESINFOFN 98309 . 98623)) (98744 100652 (\FILE.NOT.OPEN 98754 . 99267) (
|
||||
\FILE.WONT.OPEN 99269 . 99597) (\ILLEGAL.DEVICEOP 99599 . 99881) (\IS.NOT.RANDACCESSP 99883 . 100329)
|
||||
(\STREAM.NOT.OPEN 100331 . 100650)) (100787 103085 (\FDEVINSTANCE 100797 . 103083)) (104287 111258 (
|
||||
CNDIR 104297 . 105602) (DIRECTORYNAME 105604 . 109384) (DIRECTORYNAMEP 109386 . 110002) (HOSTNAMEP
|
||||
110004 . 110811) (\ADD.CONNECTED.DIR 110813 . 111256)) (111303 140250 (\BACKFILEPTR 111313 . 111501) (
|
||||
\BACKPEEKBIN 111503 . 111864) (\BACKBIN 111866 . 112217) (BIN 112219 . 112436) (\BIN 112438 . 112715)
|
||||
(\BINS 112717 . 113003) (BOUT 113005 . 113367) (\BOUT 113369 . 113684) (\BOUTS 113686 . 113997) (
|
||||
COPYBYTES 113999 . 117331) (COPYCHARS 117333 . 121131) (COPYFILE 121133 . 122493) (\COPYOPENFILE
|
||||
122495 . 125694) (\INFER.FILE.TYPE 125696 . 126650) (EOFP 126652 . 126949) (FORCEOUTPUT 126951 .
|
||||
127198) (\FLUSH.OPEN.STREAMS 127200 . 127556) (CHARSET 127558 . 128917) (ACCESS-CHARSET 128919 .
|
||||
129556) (GETEOFPTR 129558 . 129808) (GETFILEINFO 129810 . 133003) (\TYPE.FROM.FILETYPE 133005 . 133475
|
||||
) (\FILETYPE.FROM.TYPE 133477 . 133656) (GETFILEPTR 133658 . 133910) (SETFILEINFO 133912 . 138149) (
|
||||
SETFILEPTR 138151 . 139870) (BOUT16 139872 . 140057) (BIN16 140059 . 140248)) (140353 147533 (
|
||||
\GENERIC.BINS 140363 . 140643) (\GENERIC.BOUTS 140645 . 140910) (\GENERIC.RENAMEFILE 140912 . 143160)
|
||||
(\GENERIC.OPENP 143162 . 144477) (\GENERIC.READP 144479 . 145631) (\GENERIC.CHARSET 145633 . 147531))
|
||||
(147534 147873 (\MAP-OPEN-STREAMS 147544 . 147871)) (149728 151808 (\EOF.ACTION 149738 . 149989) (
|
||||
\EOSERROR 149991 . 150184) (\GETEOFPTR 150186 . 150368) (\INCFILEPTR 150370 . 150720) (\PEEKBIN 150722
|
||||
. 150913) (\SETCLOSEDFILELENGTH 150915 . 151249) (\SETEOFPTR 151251 . 151439) (\SETFILEPTR 151441 .
|
||||
151806)) (151809 152351 (\FIXPOUT 151819 . 152119) (\FIXPIN 152121 . 152349)) (152352 152918 (\BOUTEOL
|
||||
152362 . 152916)) (155814 165678 (\BUFFERED.BIN 155824 . 156676) (\BUFFERED.PEEKBIN 156678 . 157460)
|
||||
(\BUFFERED.BOUT 157462 . 158322) (\BUFFERED.BINS 158324 . 162009) (\BUFFERED.BOUTS 162011 . 163812) (
|
||||
\BUFFERED.COPYBYTES 163814 . 165676)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,10 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
|
||||
|
||||
(FILECREATED "31-Mar-2026 09:03:25" {WMEDLEY}<sources>UNICODE-FORMATS.;4 218013
|
||||
(FILECREATED " 7-May-2026 11:08:18" {MEDLEY}<sources>UNICODE-FORMATS.;5 218405
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:PREVIOUS-DATE " 9-Mar-2026 13:11:16" {WMEDLEY}<sources>UNICODE-FORMATS.;3)
|
||||
:CHANGES-TO (FNS SYSTEM-EXTERNALFORMAT)
|
||||
|
||||
:PREVIOUS-DATE "31-Mar-2026 09:03:25" {MEDLEY}<sources>UNICODE-FORMATS.;4)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT UNICODE-FORMATSCOMS)
|
||||
@@ -1246,7 +1248,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(SYSTEM-EXTERNALFORMAT
|
||||
[LAMBDA NIL (* ; "Edited 6-Feb-2026 11:29 by rmk")
|
||||
[LAMBDA NIL (* ; "Edited 7-May-2026 11:08 by rmk")
|
||||
(* ; "Edited 6-Feb-2026 11:29 by rmk")
|
||||
(* ; "Edited 31-Jan-2026 18:51 by rmk")
|
||||
(* ; "Edited 10-Oct-2022 11:55 by lmm")
|
||||
(* ; "Edited 7-Jul-2022 10:41 by rmk")
|
||||
@@ -1254,9 +1257,13 @@
|
||||
(* ;; "Returns the name, sets the global. For now, UTF-8 or through, could be something else.")
|
||||
|
||||
(fetch (EXTERNALFORMAT NAME) of (SETQ *SYSTEM-EXTERNALFORMAT*
|
||||
(FIND-FORMAT (FOR X IN '("LC_CTYPE" "LC_ALL" "LANG")
|
||||
WHEN (STRPOS ".UTF-8" (UNIX-GETENV X))
|
||||
DO (RETURN :UTF-8) FINALLY (RETURN :THROUGH])
|
||||
(FIND-FORMAT (for X in '("LC_CTYPE" "LC_ALL" "LANG")
|
||||
when (STRPOS "UTF" (U-CASE (UNIX-GETENV X)))
|
||||
do
|
||||
(* ;;
|
||||
"Should it check separately for 8? Would anyone ever say UTF-16 ?")
|
||||
|
||||
(RETURN :UTF-8) finally (RETURN :THROUGH])
|
||||
|
||||
(MTOSYSSTRING
|
||||
[LAMBDA (MSTRING) (* ; "Edited 6-Feb-2026 00:20 by rmk")
|
||||
@@ -2756,20 +2763,20 @@
|
||||
(64994 8322) (64995 8323) (64996 8324) (64997 8325) (64998 8326) (64999 8327) (65000 8328) (65001
|
||||
8329) (65002 8331) (65003 8330) (65004 8332) (65008 (48 824)))))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3431 19523 (UTF8.OUTCHARFN 3441 . 6457) (UTF8.SLUG.OUTCHARFN 6459 . 7123) (
|
||||
UTF8.INCCODEFN 7125 . 13404) (UTF8.PEEKCCODEFN 13406 . 18539) (\UTF8.BACKCCODEFN 18541 . 19521)) (
|
||||
19524 24439 (UTF16BE.OUTCHARFN 19534 . 20553) (UTF16BE.INCCODEFN 20555 . 21897) (UTF16BE.PEEKCCODEFN
|
||||
21899 . 23243) (\UTF16BE.BACKCCODEFN 23245 . 24437)) (24440 29171 (UTF16LE.OUTCHARFN 24450 . 25566) (
|
||||
UTF16LE.INCCODEFN 25568 . 26697) (UTF16LE.PEEKCCODEFN 26699 . 27975) (\UTF16LE.BACKCCODEFN 27977 .
|
||||
29169)) (29172 32219 (READBOM 29182 . 31251) (WRITEBOM 31253 . 32217)) (32220 36251 (
|
||||
MAKE-UNICODE-FORMATS 32230 . 36249)) (36319 40813 (UTF8.BINCODE 36329 . 39017) (\UTF8.FETCHCODE 39019
|
||||
. 40811)) (40814 46437 (UTF8.VALIDATE 40824 . 43421) (NUTF8-BYTE1-BYTES 43423 . 44160) (
|
||||
NUTF8-CODE-BYTES 44162 . 45219) (NUTF8-STRING-BYTES 45221 . 46113) (N-MCHARS 46115 . 46435)) (46501
|
||||
47775 (MTOUCODE 46511 . 46680) (UTOMCODE 46682 . 46879) (MTOUCODE? 46881 . 47260) (UTOMCODE? 47262 .
|
||||
47773)) (47776 54348 (MTOUSTRING 47786 . 48369) (UTOMSTRING 48371 . 48954) (MTOUTF8STRING 48956 .
|
||||
53235) (UTF8TOMSTRING 53237 . 54346)) (54406 60114 (XTOUCODE 54416 . 54934) (UTOXCODE 54936 . 55444) (
|
||||
XTOUCODE? 55446 . 56507) (UTOXCODE? 56509 . 57592) (XTOUSTRING 57594 . 58289) (UTOXSTRING 58291 .
|
||||
59034) (XTOUTF8STRING 59036 . 60112)) (60115 65294 (MERGE-UNICODE-TRANSLATION-TABLES 60125 . 62887) (
|
||||
UNICODE.UNMAPPED 62889 . 65292)) (69033 69286 (UNICODE-INIT 69043 . 69284)) (69307 70745 (
|
||||
SYSTEM-EXTERNALFORMAT 69317 . 70261) (MTOSYSSTRING 70263 . 70456) (SYSTOMSTRING 70458 . 70743)))))
|
||||
(FILEMAP (NIL (3476 19568 (UTF8.OUTCHARFN 3486 . 6502) (UTF8.SLUG.OUTCHARFN 6504 . 7168) (
|
||||
UTF8.INCCODEFN 7170 . 13449) (UTF8.PEEKCCODEFN 13451 . 18584) (\UTF8.BACKCCODEFN 18586 . 19566)) (
|
||||
19569 24484 (UTF16BE.OUTCHARFN 19579 . 20598) (UTF16BE.INCCODEFN 20600 . 21942) (UTF16BE.PEEKCCODEFN
|
||||
21944 . 23288) (\UTF16BE.BACKCCODEFN 23290 . 24482)) (24485 29216 (UTF16LE.OUTCHARFN 24495 . 25611) (
|
||||
UTF16LE.INCCODEFN 25613 . 26742) (UTF16LE.PEEKCCODEFN 26744 . 28020) (\UTF16LE.BACKCCODEFN 28022 .
|
||||
29214)) (29217 32264 (READBOM 29227 . 31296) (WRITEBOM 31298 . 32262)) (32265 36296 (
|
||||
MAKE-UNICODE-FORMATS 32275 . 36294)) (36364 40858 (UTF8.BINCODE 36374 . 39062) (\UTF8.FETCHCODE 39064
|
||||
. 40856)) (40859 46482 (UTF8.VALIDATE 40869 . 43466) (NUTF8-BYTE1-BYTES 43468 . 44205) (
|
||||
NUTF8-CODE-BYTES 44207 . 45264) (NUTF8-STRING-BYTES 45266 . 46158) (N-MCHARS 46160 . 46480)) (46546
|
||||
47820 (MTOUCODE 46556 . 46725) (UTOMCODE 46727 . 46924) (MTOUCODE? 46926 . 47305) (UTOMCODE? 47307 .
|
||||
47818)) (47821 54393 (MTOUSTRING 47831 . 48414) (UTOMSTRING 48416 . 48999) (MTOUTF8STRING 49001 .
|
||||
53280) (UTF8TOMSTRING 53282 . 54391)) (54451 60159 (XTOUCODE 54461 . 54979) (UTOXCODE 54981 . 55489) (
|
||||
XTOUCODE? 55491 . 56552) (UTOXCODE? 56554 . 57637) (XTOUSTRING 57639 . 58334) (UTOXSTRING 58336 .
|
||||
59079) (XTOUTF8STRING 59081 . 60157)) (60160 65339 (MERGE-UNICODE-TRANSLATION-TABLES 60170 . 62932) (
|
||||
UNICODE.UNMAPPED 62934 . 65337)) (69078 69331 (UNICODE-INIT 69088 . 69329)) (69352 71137 (
|
||||
SYSTEM-EXTERNALFORMAT 69362 . 70653) (MTOSYSSTRING 70655 . 70848) (SYSTOMSTRING 70850 . 71135)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
323
sources/XCCS
323
sources/XCCS
@@ -1,323 +0,0 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "13-Jul-2025 23:08:39" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;10 15413
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS XCCSCOMS)
|
||||
|
||||
:PREVIOUS-DATE "25-Mar-2025 23:40:52"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;9)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT XCCSCOMS)
|
||||
|
||||
(RPAQQ XCCSCOMS
|
||||
[(FNS \XCCSINCCODE \XCCSPEEKCCODE \XCCSOUTCHAR \XCCSBACKCCODE \XCCSFORMATBYTESTREAM
|
||||
\XCCSCHARSETFN)
|
||||
(FNS \CREATE.XCCS.EXTERNALFORMAT)
|
||||
(FNS \NSIN.24BITENCODING.ERROR)
|
||||
(FNS KANJICHARSETP CHINESECHARSETP)
|
||||
(INITVARS (*SIGNAL-24BIT-NSENCODING-ERROR*))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (CONSTANTS (\NORUNCODE 255)
|
||||
(NSCHARSETSHIFT 255))
|
||||
(MACROS \RUNCODED)))
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.XCCS.EXTERNALFORMAT])
|
||||
(DEFINEQ
|
||||
|
||||
(\XCCSINCCODE
|
||||
[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.")
|
||||
|
||||
(* ;;; "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")
|
||||
|
||||
(DECLARE (USEDFREE *BYTECOUNTER*))
|
||||
(\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. ")
|
||||
|
||||
(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")
|
||||
(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)")
|
||||
|
||||
(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.")
|
||||
|
||||
ELSEIF (EQ CSET \NORUNCODE)
|
||||
THEN (* ; "2-bytes")
|
||||
(SETQ CSET CHAR)
|
||||
(SETQ CHAR (\BIN STREAM))
|
||||
(SETQ NUMBYTES 2)
|
||||
ELSE
|
||||
(* ;; "Runcoded CSET and CHAR")
|
||||
|
||||
(SETQ NUMBYTES 1))
|
||||
(CL:WHEN COUNTP (SETQ *BYTECOUNTER* NUMBYTES))
|
||||
(CL:WHEN CHAR (* ;
|
||||
"Typically NIL if ENDOFSTREAMOP returned NIL at EOF ")
|
||||
(LOGOR (UNFOLD CSET 256)
|
||||
CHAR))])
|
||||
|
||||
(\XCCSPEEKCCODE
|
||||
[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")
|
||||
|
||||
(\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. ")
|
||||
|
||||
(* ;; "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
|
||||
(* ;;
|
||||
"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")
|
||||
|
||||
(* ;;
|
||||
"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))
|
||||
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))
|
||||
|
||||
(* ;; "No need to back up for the runcoded case")
|
||||
|
||||
(CL:WHEN CHAR
|
||||
(LOGOR (UNFOLD CSET 256)
|
||||
CHAR)))])
|
||||
|
||||
(\XCCSOUTCHAR
|
||||
[LAMBDA (STREAM CHARCODE) (* ; "Edited 13-Aug-2021 10:24 by rmk:")
|
||||
|
||||
(* ;; "Closed function for the :XCCS external format, also called when :XCCS is the default")
|
||||
|
||||
(COND
|
||||
((EQ CHARCODE (CHARCODE EOL))
|
||||
(FREPLACE (STREAM CHARPOSITION) OF STREAM WITH 0)
|
||||
[COND
|
||||
[(NOT (\RUNCODED STREAM)) (* ;
|
||||
"Charset is a constant 0, we put out the high-order byte.")
|
||||
(\BOUT STREAM (\CHARSET (CHARCODE EOL]
|
||||
((EQ (\CHARSET (CHARCODE EOL))
|
||||
(ffetch (STREAM CHARSET) of STREAM)))
|
||||
(T (* ;
|
||||
"We are runcoded, and not in character set 0, have to shift.")
|
||||
(\BOUT STREAM NSCHARSETSHIFT)
|
||||
(\BOUT STREAM (freplace (STREAM CHARSET) of STREAM with (\CHARSET
|
||||
(CHARCODE EOL]
|
||||
|
||||
(* ;; "We are now in the right charset (0) for the first EOL byte. For CRLF, the CR is immediately followed by the LF byte, without the prefix 0 byte even if not runcoded, i.e. the 2 bytes are though of as a composite. The stream is left in CSET0 (the freplace above), read for another shift according to the next shift in a runcoded file.")
|
||||
|
||||
(\BOUTEOL STREAM))
|
||||
(T (CHANGE (FFETCH (STREAM CHARPOSITION) OF STREAM)
|
||||
(IPLUS16 1 DATUM))
|
||||
(COND
|
||||
((NOT (\RUNCODED STREAM))
|
||||
(\BOUT STREAM (\CHARSET CHARCODE))
|
||||
(\BOUT STREAM (\CHAR8CODE CHARCODE)))
|
||||
((EQ (\CHARSET CHARCODE)
|
||||
(ffetch (STREAM CHARSET) of STREAM))
|
||||
(\BOUT STREAM (\CHAR8CODE CHARCODE)))
|
||||
(T (\BOUT STREAM NSCHARSETSHIFT)
|
||||
(\BOUT STREAM (freplace (STREAM CHARSET) of STREAM with (\CHARSET
|
||||
CHARCODE))
|
||||
)
|
||||
(\BOUT STREAM (\CHAR8CODE CHARCODE])
|
||||
|
||||
(\XCCSBACKCCODE
|
||||
[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 (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.")
|
||||
|
||||
(* ;; "But if we are currently in a nonruncoded file, we have to go back one more to get the character set byte.")
|
||||
|
||||
(* ;; "If we can't back up, we are already at the beginning.")
|
||||
|
||||
(IF (EQ \NORUNCODE CSET)
|
||||
THEN (IF (\BACKFILEPTR STREAM)
|
||||
THEN (CL:WHEN COUNTP (SETQ *BYTECOUNTER* -2))
|
||||
(LOGOR (UNFOLD (\PEEKBIN STREAM)
|
||||
256)
|
||||
BYTE)
|
||||
ELSE (CL:WHEN COUNTP (SETQ *BYTECOUNTER* -1))
|
||||
NIL)
|
||||
ELSE (CL:WHEN COUNTP (SETQ *BYTECOUNTER* -1))
|
||||
(LOGOR (UNFOLD CSET 256)
|
||||
BYTE)))])
|
||||
|
||||
(\XCCSFORMATBYTESTREAM
|
||||
[LAMBDA (STREAM BYTESTREAM) (* ; "Edited 26-Mar-2024 11:00 by rmk")
|
||||
(* ; "Edited 19-Mar-2024 16:02 by rmk")
|
||||
(\EXTERNALFORMAT BYTESTREAM (\EXTERNALFORMAT STREAM))
|
||||
|
||||
(* ;; "This stream may be read as a continuation of STREAM (TTYIN, LAFITE?), and we want to make sure that the bytes are encoded properly. So let's assert (and possibly mark) that that's its current situation.")
|
||||
|
||||
(\XCCSCHARSETFN BYTESTREAM (fetch (STREAM CHARSET) of STREAM))
|
||||
BYTESTREAM])
|
||||
|
||||
(\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 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")
|
||||
|
||||
(MAKE-EXTERNALFORMAT (OR NAME :XCCS)
|
||||
(FUNCTION \XCCSINCCODE)
|
||||
(FUNCTION \XCCSPEEKCCODE)
|
||||
(FUNCTION \XCCSBACKCCODE)
|
||||
(FUNCTION \XCCSOUTCHAR)
|
||||
(FUNCTION \XCCSFORMATBYTESTREAM)
|
||||
(OR EOL 'LF)
|
||||
T NIL NIL (FUNCTION \XCCSCHARSETFN])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(\NSIN.24BITENCODING.ERROR
|
||||
[LAMBDA (STREAM) (* bvm%: "12-Mar-86 15:35")
|
||||
(DECLARE (USEDFREE *SIGNAL-24BIT-NSENCODING-ERROR*))
|
||||
|
||||
(* ;;; "Called if we see the sequence shift,shift on STREAM -- means shift to 24-bit character set, which we don't support. Usually this just means we're erroneously reading a binary file as text. If this function returns, its value is taken as a character set to shift to")
|
||||
|
||||
(COND
|
||||
(*SIGNAL-24BIT-NSENCODING-ERROR* (* ;
|
||||
"Only cause error if user/reader cares")
|
||||
(ERROR "24-bit NS encoding not supported" STREAM)))
|
||||
(* ; "Return charset zero")
|
||||
0])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(KANJICHARSETP
|
||||
[LAMBDA (CHARSET) (* ; "Edited 13-Jun-2025 16:33 by rmk")
|
||||
|
||||
(* ;; "Returns CHARSET if it is a charset with MCCS Kanji characters")
|
||||
|
||||
(AND (<= 48 CHARSET 118)
|
||||
CHARSET])
|
||||
|
||||
(CHINESECHARSETP
|
||||
[LAMBDA (CHARSET) (* ; "Edited 18-Jun-2025 23:09 by rmk")
|
||||
(* ; "Edited 13-Jun-2025 16:33 by rmk")
|
||||
|
||||
(* ;; "Returns CHARSET if it is a charset with MCCS Chinese characters")
|
||||
|
||||
(AND (<= 161 CHARSET 212)
|
||||
CHARSET])
|
||||
)
|
||||
|
||||
(RPAQ? *SIGNAL-24BIT-NSENCODING-ERROR* )
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RPAQQ \NORUNCODE 255)
|
||||
|
||||
(RPAQQ NSCHARSETSHIFT 255)
|
||||
|
||||
|
||||
(CONSTANTS (\NORUNCODE 255)
|
||||
(NSCHARSETSHIFT 255))
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS \RUNCODED MACRO (OPENLAMBDA (STREAM)
|
||||
|
||||
(* ;; "returns NIL is the stream is not runcoded, that is, if the stream has 16 bit bytes explicitly represented")
|
||||
(* ;
|
||||
"note that neq is ok since charsets are known to be SMALLP's")
|
||||
(NEQ (fetch CHARSET of STREAM)
|
||||
\NORUNCODE)))
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(\CREATE.XCCS.EXTERNALFORMAT)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (997 12253 (\XCCSINCCODE 1007 . 3986) (\XCCSPEEKCCODE 3988 . 6657) (\XCCSOUTCHAR 6659 .
|
||||
8879) (\XCCSBACKCCODE 8881 . 10425) (\XCCSFORMATBYTESTREAM 10427 . 11048) (\XCCSCHARSETFN 11050 .
|
||||
12251)) (12254 13027 (\CREATE.XCCS.EXTERNALFORMAT 12264 . 13025)) (13028 13859 (
|
||||
\NSIN.24BITENCODING.ERROR 13038 . 13857)) (13860 14500 (KANJICHARSETP 13870 . 14126) (CHINESECHARSETP
|
||||
14128 . 14498)))))
|
||||
STOP
|
||||
Binary file not shown.
4
unicode/xerox/unihan/XCCS-171=UNIHAN.TXT
Normal file
4
unicode/xerox/unihan/XCCS-171=UNIHAN.TXT
Normal file
@@ -0,0 +1,4 @@
|
||||
|
||||
# "171" UNIHAN
|
||||
|
||||
0x7963 0xFA20 # 蘒 -- 171,143
|
||||
191
unicode/xerox/unihan/XCCS-241=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-241=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "241" UNIHAN
|
||||
|
||||
0xA121 0x7684 # 的 -- 241,041
|
||||
0xA122 0x4E00 # 一 -- 241,042
|
||||
0xA123 0x662F # 是 -- 241,043
|
||||
0xA124 0x4E0D # 不 -- 241,044
|
||||
0xA125 0x4E86 # 了 -- 241,045
|
||||
0xA126 0x6211 # 我 -- 241,046
|
||||
0xA127 0x6709 # 有 -- 241,047
|
||||
0xA128 0x4ED6 # 他 -- 241,050
|
||||
0xA129 0x4EBA # 人 -- 241,051
|
||||
0xA12A 0x4E0A # 上 -- 241,052
|
||||
0xA12B 0x5728 # 在 -- 241,053
|
||||
0xA12C 0x4F86 # 來 -- 241,054
|
||||
0xA12D 0x9019 # 這 -- 241,055
|
||||
0xA12E 0x570B # 國 -- 241,056
|
||||
0xA12F 0x5011 # 們 -- 241,057
|
||||
0xA130 0x5927 # 大 -- 241,060
|
||||
0xA131 0x5C0F # 小 -- 241,061
|
||||
0xA132 0x8AAA # 說 -- 241,062
|
||||
0xA133 0x5B50 # 子 -- 241,063
|
||||
0xA134 0x500B # 個 -- 241,064
|
||||
0xA135 0x5C31 # 就 -- 241,065
|
||||
0xA136 0x8981 # 要 -- 241,066
|
||||
0xA137 0x53EF # 可 -- 241,067
|
||||
0xA138 0x5168 # 全 -- 241,070
|
||||
0xA139 0x5230 # 到 -- 241,071
|
||||
0xA13A 0x4E8C # 二 -- 241,072
|
||||
0xA13B 0x4EE5 # 以 -- 241,073
|
||||
0xA13C 0x4E2D # 中 -- 241,074
|
||||
0xA13D 0x4F60 # 你 -- 241,075
|
||||
0xA13E 0x4E5F # 也 -- 241,076
|
||||
0xA13F 0x6642 # 時 -- 241,077
|
||||
0xA140 0x90A3 # 那 -- 241,100
|
||||
0xA141 0x5341 # 十 -- 241,101
|
||||
0xA142 0x88CF # 裏 -- 241,102
|
||||
0xA143 0x548C # 和 -- 241,103
|
||||
0xA144 0x9053 # 道 -- 241,104
|
||||
0xA145 0x8457 # 著 -- 241,105
|
||||
0xA146 0x751F # 生 -- 241,106
|
||||
0xA147 0x5F97 # 得 -- 241,107
|
||||
0xA148 0x5BB6 # 家 -- 241,110
|
||||
0xA149 0x53BB # 去 -- 241,111
|
||||
0xA14A 0x5929 # 天 -- 241,112
|
||||
0xA14B 0x4E09 # 三 -- 241,113
|
||||
0xA14C 0x597D # 好 -- 241,114
|
||||
0xA14D 0x5B78 # 學 -- 241,115
|
||||
0xA14E 0x5730 # 地 -- 241,116
|
||||
0xA14F 0x7232 # 爲 -- 241,117
|
||||
0xA150 0x4E0B # 下 -- 241,120
|
||||
0xA151 0x90FD # 都 -- 241,121
|
||||
0xA152 0x9EBC # 麼 -- 241,122
|
||||
0xA153 0x4E8B # 事 -- 241,123
|
||||
0xA154 0x770B # 看 -- 241,124
|
||||
0xA155 0x5E74 # 年 -- 241,125
|
||||
0xA156 0x591A # 多 -- 241,126
|
||||
0xA157 0x51FA # 出 -- 241,127
|
||||
0xA158 0x6703 # 會 -- 241,130
|
||||
0xA159 0x7528 # 用 -- 241,131
|
||||
0xA15A 0x65E5 # 日 -- 241,132
|
||||
0xA15B 0x5F88 # 很 -- 241,133
|
||||
0xA15C 0x81EA # 自 -- 241,134
|
||||
0xA15D 0x628A # 把 -- 241,135
|
||||
0xA15E 0x56DB # 四 -- 241,136
|
||||
0xA15F 0x5F8C # 後 -- 241,137
|
||||
0xA160 0x904E # 過 -- 241,140
|
||||
0xA161 0x6A23 # 樣 -- 241,141
|
||||
0xA162 0x4E4B # 之 -- 241,142
|
||||
0xA163 0x6240 # 所 -- 241,143
|
||||
0xA164 0x5152 # 兒 -- 241,144
|
||||
0xA165 0x6C92 # 沒 -- 241,145
|
||||
0xA166 0x4E94 # 五 -- 241,146
|
||||
0xA167 0x751A # 甚 -- 241,147
|
||||
0xA168 0x898B # 見 -- 241,150
|
||||
0xA169 0x80FD # 能 -- 241,151
|
||||
0xA16A 0x9762 # 面 -- 241,152
|
||||
0xA16B 0x53C8 # 又 -- 241,153
|
||||
0xA16C 0x65B9 # 方 -- 241,154
|
||||
0xA16D 0x8D77 # 起 -- 241,155
|
||||
0xA16E 0x505A # 做 -- 241,156
|
||||
0xA16F 0x672C # 本 -- 241,157
|
||||
0xA170 0x7A2E # 種 -- 241,160
|
||||
0xA171 0x8001 # 老 -- 241,161
|
||||
0xA172 0x65BC # 於 -- 241,162
|
||||
0xA173 0x884C # 行 -- 241,163
|
||||
0xA174 0x6C11 # 民 -- 241,164
|
||||
0xA175 0x5982 # 如 -- 241,165
|
||||
0xA176 0x524D # 前 -- 241,166
|
||||
0xA177 0x4F5C # 作 -- 241,167
|
||||
0xA178 0x540C # 同 -- 241,170
|
||||
0xA179 0x7B2C # 第 -- 241,171
|
||||
0xA17A 0x6210 # 成 -- 241,172
|
||||
0xA17B 0x660E # 明 -- 241,173
|
||||
0xA17C 0x554F # 問 -- 241,174
|
||||
0xA17D 0x767C # 發 -- 241,175
|
||||
0xA17E 0x6CD5 # 法 -- 241,176
|
||||
0xA1A1 0x5F9E # 從 -- 241,241
|
||||
0xA1A2 0x897F # 西 -- 241,242
|
||||
0xA1A3 0x7136 # 然 -- 241,243
|
||||
0xA1A4 0x5FC3 # 心 -- 241,244
|
||||
0xA1A5 0x60F3 # 想 -- 241,245
|
||||
0xA1A6 0x9577 # 長 -- 241,246
|
||||
0xA1A7 0x5169 # 兩 -- 241,247
|
||||
0xA1A8 0x4FBF # 便 -- 241,250
|
||||
0xA1A9 0x56E0 # 因 -- 241,251
|
||||
0xA1AA 0x516B # 八 -- 241,252
|
||||
0xA1AB 0x52D5 # 動 -- 241,253
|
||||
0xA1AC 0x77E5 # 知 -- 241,254
|
||||
0xA1AD 0x6C34 # 水 -- 241,255
|
||||
0xA1AE 0x982D # 頭 -- 241,256
|
||||
0xA1AF 0x6559 # 教 -- 241,257
|
||||
0xA1B0 0x7D93 # 經 -- 241,260
|
||||
0xA1B1 0x5C0D # 對 -- 241,261
|
||||
0xA1B2 0x5DF2 # 已 -- 241,262
|
||||
0xA1B3 0x9084 # 還 -- 241,263
|
||||
0xA1B4 0x5916 # 外 -- 241,264
|
||||
0xA1B5 0x5206 # 分 -- 241,265
|
||||
0xA1B6 0x8A71 # 話 -- 241,266
|
||||
0xA1B7 0x53EB # 叫 -- 241,267
|
||||
0xA1B8 0x5DE5 # 工 -- 241,270
|
||||
0xA1B9 0x7B49 # 等 -- 241,271
|
||||
0xA1BA 0x6821 # 校 -- 241,272
|
||||
0xA1BB 0x5148 # 先 -- 241,273
|
||||
0xA1BC 0x6B64 # 此 -- 241,274
|
||||
0xA1BD 0x6708 # 月 -- 241,275
|
||||
0xA1BE 0x6771 # 東 -- 241,276
|
||||
0xA1BF 0x56DE # 回 -- 241,277
|
||||
0xA1C0 0x7576 # 當 -- 241,300
|
||||
0xA1C1 0x958B # 開 -- 241,301
|
||||
0xA1C2 0x516D # 六 -- 241,302
|
||||
0xA1C3 0x800C # 而 -- 241,303
|
||||
0xA1C4 0x610F # 意 -- 241,304
|
||||
0xA1C5 0x4E3B # 主 -- 241,305
|
||||
0xA1C6 0x4F46 # 但 -- 241,306
|
||||
0xA1C7 0x5B9A # 定 -- 241,307
|
||||
0xA1C8 0x5019 # 候 -- 241,310
|
||||
0xA1C9 0x5E7E # 幾 -- 241,311
|
||||
0xA1CA 0x5403 # 吃 -- 241,312
|
||||
0xA1CB 0x516C # 公 -- 241,313
|
||||
0xA1CC 0x7121 # 無 -- 241,314
|
||||
0xA1CD 0x4E9B # 些 -- 241,315
|
||||
0xA1CE 0x529B # 力 -- 241,316
|
||||
0xA1CF 0x5E38 # 常 -- 241,317
|
||||
0xA1D0 0x767D # 白 -- 241,320
|
||||
0xA1D1 0x5404 # 各 -- 241,321
|
||||
0xA1D2 0x5973 # 女 -- 241,322
|
||||
0xA1D3 0x8D70 # 走 -- 241,323
|
||||
0xA1D4 0x540D # 名 -- 241,324
|
||||
0xA1D5 0x9AD8 # 高 -- 241,325
|
||||
0xA1D6 0x61C9 # 應 -- 241,326
|
||||
0xA1D7 0x53EA # 只 -- 241,327
|
||||
0xA1D8 0x9032 # 進 -- 241,330
|
||||
0xA1D9 0x624B # 手 -- 241,331
|
||||
0xA1DA 0x73FE # 現 -- 241,332
|
||||
0xA1DB 0x6700 # 最 -- 241,333
|
||||
0xA1DC 0x7D66 # 給 -- 241,334
|
||||
0xA1DD 0x5462 # 呢 -- 241,335
|
||||
0xA1DE 0x807D # 聽 -- 241,336
|
||||
0xA1DF 0x5B98 # 官 -- 241,337
|
||||
0xA1E0 0x5C71 # 山 -- 241,340
|
||||
0xA1E1 0x7269 # 物 -- 241,341
|
||||
0xA1E2 0x4ECA # 今 -- 241,342
|
||||
0xA1E3 0x5C07 # 將 -- 241,343
|
||||
0xA1E4 0x592A # 太 -- 241,344
|
||||
0xA1E5 0x4E03 # 七 -- 241,345
|
||||
0xA1E6 0x6C23 # 氣 -- 241,346
|
||||
0xA1E7 0x5317 # 北 -- 241,347
|
||||
0xA1E8 0x4F4D # 位 -- 241,350
|
||||
0xA1E9 0x653F # 政 -- 241,351
|
||||
0xA1EA 0x4F7F # 使 -- 241,352
|
||||
0xA1EB 0x771E # 眞 -- 241,353
|
||||
0xA1EC 0x7F8E # 美 -- 241,354
|
||||
0xA1ED 0x5BE6 # 實 -- 241,355
|
||||
0xA1EE 0x53E3 # 口 -- 241,356
|
||||
0xA1EF 0x7531 # 由 -- 241,357
|
||||
0xA1F0 0x4E5D # 九 -- 241,360
|
||||
0xA1F1 0x6253 # 打 -- 241,361
|
||||
0xA1F2 0x6B63 # 正 -- 241,362
|
||||
0xA1F3 0x5357 # 南 -- 241,363
|
||||
0xA1F4 0x90E8 # 部 -- 241,364
|
||||
0xA1F5 0x8DEF # 路 -- 241,365
|
||||
0xA1F6 0x60C5 # 情 -- 241,366
|
||||
0xA1F7 0x518D # 再 -- 241,367
|
||||
0xA1F8 0x65B0 # 新 -- 241,370
|
||||
0xA1F9 0x5411 # 向 -- 241,371
|
||||
0xA1FA 0x5176 # 其 -- 241,372
|
||||
0xA1FB 0x9EDE # 點 -- 241,373
|
||||
0xA1FC 0x767E # 百 -- 241,374
|
||||
0xA1FD 0x9580 # 門 -- 241,375
|
||||
0xA1FE 0x8072 # 聲 -- 241,376
|
||||
190
unicode/xerox/unihan/XCCS-242=UNIHAN.TXT
Normal file
190
unicode/xerox/unihan/XCCS-242=UNIHAN.TXT
Normal file
@@ -0,0 +1,190 @@
|
||||
|
||||
# "242" UNIHAN
|
||||
|
||||
0xA221 0x5B57 # 字 -- 242,041
|
||||
0xA222 0x600E # 怎 -- 242,042
|
||||
0xA223 0x5FEB # 快 -- 242,043
|
||||
0xA224 0x5E2B # 師 -- 242,044
|
||||
0xA225 0x8655 # 處 -- 242,045
|
||||
0xA226 0x76F8 # 相 -- 242,046
|
||||
0xA227 0x6D3B # 活 -- 242,047
|
||||
0xA228 0x89AA # 親 -- 242,050
|
||||
0xA229 0x6D77 # 海 -- 242,051
|
||||
0xA22A 0x96FB # 電 -- 242,052
|
||||
0xA22B 0x6BCD # 母 -- 242,053
|
||||
0xA22C 0x679C # 果 -- 242,054
|
||||
0xA22D 0x7ACB # 立 -- 242,055
|
||||
0xA22E 0x539F # 原 -- 242,056
|
||||
0xA22F 0x5408 # 合 -- 242,057
|
||||
0xA230 0x66F8 # 書 -- 242,060
|
||||
0xA231 0x5165 # 入 -- 242,061
|
||||
0xA233 0x5E73 # 平 -- 242,063
|
||||
0xA234 0x696D # 業 -- 242,064
|
||||
0xA235 0x5831 # 報 -- 242,065
|
||||
0xA236 0x8EAB # 身 -- 242,066
|
||||
0xA237 0x5E02 # 市 -- 242,067
|
||||
0xA238 0x88AB # 被 -- 242,070
|
||||
0xA239 0x8A31 # 許 -- 242,071
|
||||
0xA23A 0x8ACB # 請 -- 242,072
|
||||
0xA23B 0x5C11 # 少 -- 242,073
|
||||
0xA23C 0x9593 # 間 -- 242,074
|
||||
0xA23D 0x9AD4 # 體 -- 242,075
|
||||
0xA23E 0x4F4F # 住 -- 242,076
|
||||
0xA23F 0x8ECA # 車 -- 242,077
|
||||
0xA240 0x8ECD # 軍 -- 242,100
|
||||
0xA241 0x908A # 邊 -- 242,101
|
||||
0xA242 0x91CD # 重 -- 242,102
|
||||
0xA243 0x52A0 # 加 -- 242,103
|
||||
0xA244 0x5716 # 圖 -- 242,104
|
||||
0xA245 0x6216 # 或 -- 242,105
|
||||
0xA246 0x6B21 # 次 -- 242,106
|
||||
0xA247 0x6BCF # 每 -- 242,107
|
||||
0xA248 0x7E3D # 總 -- 242,110
|
||||
0xA249 0x706B # 火 -- 242,111
|
||||
0xA24A 0x6587 # 文 -- 242,112
|
||||
0xA24B 0x5B69 # 孩 -- 242,113
|
||||
0xA24C 0x4E16 # 世 -- 242,114
|
||||
0xA24D 0x5B89 # 安 -- 242,115
|
||||
0xA24E 0x653E # 放 -- 242,116
|
||||
0xA24F 0x6A5F # 機 -- 242,117
|
||||
0xA250 0x5167 # 內 -- 242,120
|
||||
0xA251 0x95DC # 關 -- 242,121
|
||||
0xA252 0x5229 # 利 -- 242,122
|
||||
0xA253 0x50CF # 像 -- 242,123
|
||||
0xA254 0x7406 # 理 -- 242,124
|
||||
0xA255 0x6BD4 # 比 -- 242,125
|
||||
0xA256 0x611B # 愛 -- 242,126
|
||||
0xA257 0x738B # 王 -- 242,127
|
||||
0xA258 0x5225 # 別 -- 242,130
|
||||
0xA259 0x592B # 夫 -- 242,131
|
||||
0xA25A 0x8207 # 與 -- 242,132
|
||||
0xA25B 0x5149 # 光 -- 242,133
|
||||
0xA25C 0x82B1 # 花 -- 242,134
|
||||
0xA25D 0x83EF # 華 -- 242,135
|
||||
0xA25E 0x8AB2 # 課 -- 242,136
|
||||
0xA25F 0x80B2 # 育 -- 242,137
|
||||
0xA260 0x6545 # 故 -- 242,140
|
||||
0xA261 0x5FC5 # 必 -- 242,141
|
||||
0xA262 0x689D # 條 -- 242,142
|
||||
0xA263 0x5ABD # 媽 -- 242,143
|
||||
0xA264 0x5F1F # 弟 -- 242,144
|
||||
0xA265 0x7236 # 父 -- 242,145
|
||||
0xA266 0x901A # 通 -- 242,146
|
||||
0xA267 0x8868 # 表 -- 242,147
|
||||
0xA268 0x91D1 # 金 -- 242,150
|
||||
0xA269 0x5BEB # 寫 -- 242,151
|
||||
0xA26A 0x5DF1 # 己 -- 242,152
|
||||
0xA26B 0x624D # 才 -- 242,153
|
||||
0xA26C 0x6CB3 # 河 -- 242,154
|
||||
0xA26D 0x7701 # 省 -- 242,155
|
||||
0xA26E 0x53F0 # 台 -- 242,156
|
||||
0xA26F 0x6C42 # 求 -- 242,157
|
||||
0xA270 0x6536 # 收 -- 242,160
|
||||
0xA271 0x842C # 萬 -- 242,161
|
||||
0xA272 0x4E14 # 且 -- 242,162
|
||||
0xA273 0x4F55 # 何 -- 242,163
|
||||
0xA274 0x4EE3 # 代 -- 242,164
|
||||
0xA275 0x5171 # 共 -- 242,165
|
||||
0xA276 0x53D7 # 受 -- 242,166
|
||||
0xA277 0x98A8 # 風 -- 242,167
|
||||
0xA278 0x6C5F # 江 -- 242,170
|
||||
0xA279 0x62FF # 拿 -- 242,171
|
||||
0xA27A 0x96E3 # 難 -- 242,172
|
||||
0xA27B 0x754C # 界 -- 242,173
|
||||
0xA27C 0x4FE1 # 信 -- 242,174
|
||||
0xA27D 0x671B # 望 -- 242,175
|
||||
0xA27E 0x7A7A # 空 -- 242,176
|
||||
0xA2A1 0x6B7B # 死 -- 242,241
|
||||
0xA2A2 0x73ED # 班 -- 242,242
|
||||
0xA2A3 0x99AC # 馬 -- 242,243
|
||||
0xA2A4 0x671F # 期 -- 242,244
|
||||
0xA2A5 0x975E # 非 -- 242,245
|
||||
0xA2A6 0x6A39 # 樹 -- 242,246
|
||||
0xA2A7 0x53CA # 及 -- 242,247
|
||||
0xA2A8 0x7D50 # 結 -- 242,250
|
||||
0xA2A9 0x865F # 號 -- 242,251
|
||||
0xA2AA 0x5E36 # 帶 -- 242,252
|
||||
0xA2AB 0x5143 # 元 -- 242,253
|
||||
0xA2AC 0x4EA4 # 交 -- 242,254
|
||||
0xA2AD 0x8A72 # 該 -- 242,255
|
||||
0xA2AE 0x672A # 未 -- 242,256
|
||||
0xA2AF 0x7FA9 # 義 -- 242,257
|
||||
0xA2B0 0x5E9C # 府 -- 242,260
|
||||
0xA2B1 0x5B8C # 完 -- 242,261
|
||||
0xA2B2 0x8AD6 # 論 -- 242,262
|
||||
0xA2B3 0x9322 # 錢 -- 242,263
|
||||
0xA2B4 0x98DB # 飛 -- 242,264
|
||||
0xA2B5 0x547D # 命 -- 242,265
|
||||
0xA2B6 0x5F35 # 張 -- 242,266
|
||||
0xA2B7 0x54E1 # 員 -- 242,267
|
||||
0xA2B8 0x6578 # 數 -- 242,270
|
||||
0xA2B9 0x6797 # 林 -- 242,271
|
||||
0xA2BA 0x63A5 # 接 -- 242,272
|
||||
0xA2BB 0x5C40 # 局 -- 242,273
|
||||
0xA2BC 0x53CB # 友 -- 242,274
|
||||
0xA2BD 0x559C # 喜 -- 242,275
|
||||
0xA2BE 0x6E05 # 清 -- 242,276
|
||||
0xA2BF 0x6D0B # 洋 -- 242,277
|
||||
0xA2C0 0x6A02 # 樂 -- 242,300
|
||||
0xA2C1 0x5A5A # 婚 -- 242,301
|
||||
0xA2C2 0x793E # 社 -- 242,302
|
||||
0xA2C3 0x65E9 # 早 -- 242,303
|
||||
0xA2C4 0x5E03 # 布 -- 242,304
|
||||
0xA2C5 0x6975 # 極 -- 242,305
|
||||
0xA2C6 0x773C # 眼 -- 242,306
|
||||
0xA2C7 0x55CE # 嗎 -- 242,307
|
||||
0xA2C8 0x7522 # 產 -- 242,310
|
||||
0xA2C9 0x544A # 告 -- 242,311
|
||||
0xA2CA 0x54E5 # 哥 -- 242,312
|
||||
0xA2CB 0x8208 # 興 -- 242,313
|
||||
0xA2CC 0x52DE # 勞 -- 242,314
|
||||
0xA2CD 0x9435 # 鐵 -- 242,315
|
||||
0xA2CE 0x53D6 # 取 -- 242,316
|
||||
0xA2CF 0x7B97 # 算 -- 242,317
|
||||
0xA2D0 0x66F4 # 更 -- 242,320
|
||||
0xA2D1 0x5175 # 兵 -- 242,321
|
||||
0xA2D2 0x9020 # 造 -- 242,322
|
||||
0xA2D3 0x7B54 # 答 -- 242,323
|
||||
0xA2D4 0x627E # 找 -- 242,324
|
||||
0xA2D5 0x7F77 # 罷 -- 242,325
|
||||
0xA2D6 0x5931 # 失 -- 242,326
|
||||
0xA2D7 0x904B # 運 -- 242,327
|
||||
0xA2D8 0x5F62 # 形 -- 242,330
|
||||
0xA2D9 0x6613 # 易 -- 242,331
|
||||
0xA2DA 0x7FA3 # 羣 -- 242,332
|
||||
0xA2DB 0x5EA6 # 度 -- 242,333
|
||||
0xA2DC 0x534A # 半 -- 242,334
|
||||
0xA2DD 0x8863 # 衣 -- 242,335
|
||||
0xA2DE 0x82E5 # 若 -- 242,336
|
||||
0xA2DF 0x81F3 # 至 -- 242,337
|
||||
0xA2E0 0x8B70 # 議 -- 242,340
|
||||
0xA2E1 0x8FD1 # 近 -- 242,341
|
||||
0xA2E2 0x7167 # 照 -- 242,342
|
||||
0xA2E3 0x8B8A # 變 -- 242,343
|
||||
0xA2E4 0x59D0 # 姐 -- 242,344
|
||||
0xA2E5 0x670D # 服 -- 242,345
|
||||
0xA2E6 0x5247 # 則 -- 242,346
|
||||
0xA2E7 0x985E # 類 -- 242,347
|
||||
0xA2E8 0x82F1 # 英 -- 242,350
|
||||
0xA2E9 0x7403 # 球 -- 242,351
|
||||
0xA2EA 0x5343 # 千 -- 242,352
|
||||
0xA2EB 0x5F80 # 往 -- 242,353
|
||||
0xA2EC 0x8B1B # 講 -- 242,354
|
||||
0xA2ED 0x8A08 # 計 -- 242,355
|
||||
0xA2EE 0x6230 # 戰 -- 242,356
|
||||
0xA2EF 0x6728 # 木 -- 242,357
|
||||
0xA2F0 0x7B11 # 笑 -- 242,360
|
||||
0xA2F1 0x529F # 功 -- 242,361
|
||||
0xA2F2 0x8209 # 舉 -- 242,362
|
||||
0xA2F3 0x8DDF # 跟 -- 242,363
|
||||
0xA2F4 0x795E # 神 -- 242,364
|
||||
0xA2F5 0x6C7A # 決 -- 242,365
|
||||
0xA2F6 0x6D41 # 流 -- 242,366
|
||||
0xA2F7 0x71B1 # 熱 -- 242,367
|
||||
0xA2F8 0x541B # 君 -- 242,370
|
||||
0xA2F9 0x7A76 # 究 -- 242,371
|
||||
0xA2FA 0x7D04 # 約 -- 242,372
|
||||
0xA2FB 0x96BB # 隻 -- 242,373
|
||||
0xA2FC 0x76F4 # 直 -- 242,374
|
||||
0xA2FD 0x53E4 # 古 -- 242,375
|
||||
0xA2FE 0x9EC3 # 黃 -- 242,376
|
||||
190
unicode/xerox/unihan/XCCS-243=UNIHAN.TXT
Normal file
190
unicode/xerox/unihan/XCCS-243=UNIHAN.TXT
Normal file
@@ -0,0 +1,190 @@
|
||||
|
||||
# "243" UNIHAN
|
||||
|
||||
0xA321 0x661F # 星 -- 243,041
|
||||
0xA322 0x984C # 題 -- 243,042
|
||||
0xA323 0x4FDD # 保 -- 243,043
|
||||
0xA324 0x5012 # 倒 -- 243,044
|
||||
0xA325 0x7AE5 # 童 -- 243,045
|
||||
0xA326 0x9060 # 遠 -- 243,046
|
||||
0xA327 0x5316 # 化 -- 243,047
|
||||
0xA328 0x76EE # 目 -- 243,050
|
||||
0xA329 0x5750 # 坐 -- 243,051
|
||||
0xA32A 0x623F # 房 -- 243,052
|
||||
0xA32B 0x5F3A # 强 -- 243,053
|
||||
0xA32C 0x8B80 # 讀 -- 243,054
|
||||
0xA32D 0x9001 # 送 -- 243,055
|
||||
0xA32E 0x672B # 末 -- 243,056
|
||||
0xA32F 0x665A # 晚 -- 243,057
|
||||
0xA330 0x98DF # 食 -- 243,060
|
||||
0xA331 0x96D6 # 雖 -- 243,061
|
||||
0xA332 0x97F3 # 音 -- 243,062
|
||||
0xA333 0x6EFF # 滿 -- 243,063
|
||||
0xA334 0x8FA6 # 辦 -- 243,064
|
||||
0xA335 0x6027 # 性 -- 243,065
|
||||
0xA336 0x6B61 # 歡 -- 243,066
|
||||
0xA337 0x75C5 # 病 -- 243,067
|
||||
0xA338 0x9054 # 達 -- 243,070
|
||||
0xA339 0x5BB3 # 害 -- 243,071
|
||||
0xA33A 0x8CB7 # 買 -- 243,072
|
||||
0xA33B 0x9280 # 銀 -- 243,073
|
||||
0xA33C 0x52D9 # 務 -- 243,074
|
||||
0xA33D 0x5920 # 夠 -- 243,075
|
||||
0xA33E 0x4EFB # 任 -- 243,076
|
||||
0xA33F 0x9023 # 連 -- 243,077
|
||||
0xA340 0x5546 # 商 -- 243,100
|
||||
0xA341 0x7279 # 特 -- 243,101
|
||||
0xA342 0x82E6 # 苦 -- 243,102
|
||||
0xA343 0x5FB7 # 德 -- 243,103
|
||||
0xA344 0x9662 # 院 -- 243,104
|
||||
0xA345 0x6B0A # 權 -- 243,105
|
||||
0xA346 0x6B65 # 步 -- 243,106
|
||||
0xA347 0x5440 # 呀 -- 243,107
|
||||
0xA348 0x6015 # 怕 -- 243,110
|
||||
0xA349 0x77F3 # 石 -- 243,111
|
||||
0xA34A 0x8272 # 色 -- 243,112
|
||||
0xA34B 0x5EFA # 建 -- 243,113
|
||||
0xA34C 0x6B3E # 款 -- 243,114
|
||||
0xA34D 0x5A66 # 婦 -- 243,115
|
||||
0xA34E 0x8A2D # 設 -- 243,116
|
||||
0xA34F 0x7238 # 爸 -- 243,117
|
||||
0xA350 0x5DF4 # 巴 -- 243,120
|
||||
0xA351 0x571F # 土 -- 243,121
|
||||
0xA352 0x8A18 # 記 -- 243,122
|
||||
0xA353 0x5E0C # 希 -- 243,123
|
||||
0xA354 0x58EB # 士 -- 243,124
|
||||
0xA355 0x50B3 # 傳 -- 243,125
|
||||
0xA356 0x7FD2 # 習 -- 243,126
|
||||
0xA357 0x5236 # 制 -- 243,127
|
||||
0xA358 0x63D0 # 提 -- 243,130
|
||||
0xA359 0x7BC0 # 節 -- 243,131
|
||||
0xA35A 0x5BB9 # 容 -- 243,132
|
||||
0xA35B 0x5FF5 # 念 -- 243,133
|
||||
0xA35C 0x6307 # 指 -- 243,134
|
||||
0xA35D 0x7814 # 研 -- 243,135
|
||||
0xA35E 0x6CBB # 治 -- 243,136
|
||||
0xA35F 0x89E3 # 解 -- 243,137
|
||||
0xA360 0x8239 # 船 -- 243,140
|
||||
0xA361 0x904A # 遊 -- 243,141
|
||||
0xA362 0x5099 # 備 -- 243,142
|
||||
0xA363 0x89C0 # 觀 -- 243,143
|
||||
0xA364 0x52DD # 勝 -- 243,144
|
||||
0xA365 0x6539 # 改 -- 243,145
|
||||
0xA366 0x9664 # 除 -- 243,146
|
||||
0xA367 0x967D # 陽 -- 243,147
|
||||
0xA368 0x53CD # 反 -- 243,150
|
||||
0xA369 0x7D71 # 統 -- 243,151
|
||||
0xA36A 0x9B5A # 魚 -- 243,152
|
||||
0xA36B 0x5B83 # 它 -- 243,153
|
||||
0xA36C 0x5E1D # 帝 -- 243,154
|
||||
0xA36D 0x8A9E # 語 -- 243,155
|
||||
0xA36E 0x7530 # 田 -- 243,156
|
||||
0xA36F 0x52A9 # 助 -- 243,157
|
||||
0xA370 0x6CE8 # 注 -- 243,160
|
||||
0xA371 0x5348 # 午 -- 243,161
|
||||
0xA372 0x8A00 # 言 -- 243,162
|
||||
0xA373 0x5EE2 # 廢 -- 243,163
|
||||
0xA374 0x54C1 # 品 -- 243,164
|
||||
0xA375 0x6599 # 料 -- 243,165
|
||||
0xA376 0x5834 # 場 -- 243,166
|
||||
0xA377 0x5FD9 # 忙 -- 243,167
|
||||
0xA378 0x8DD1 # 跑 -- 243,170
|
||||
0xA379 0x66FE # 曾 -- 243,171
|
||||
0xA37A 0x52E2 # 勢 -- 243,172
|
||||
0xA37B 0x73A9 # 玩 -- 243,173
|
||||
0xA37C 0x8B58 # 識 -- 243,174
|
||||
0xA37D 0x6D88 # 消 -- 243,175
|
||||
0xA37E 0x5C4B # 屋 -- 243,176
|
||||
0xA3A1 0x601D # 思 -- 243,241
|
||||
0xA3A2 0x8DB3 # 足 -- 243,242
|
||||
0xA3A3 0x9808 # 須 -- 243,243
|
||||
0xA3A4 0x656C # 敬 -- 243,244
|
||||
0xA3A5 0x7CBE # 精 -- 243,245
|
||||
0xA3A6 0x7E23 # 縣 -- 243,246
|
||||
0xA3A7 0x59B9 # 妹 -- 243,247
|
||||
0xA3A8 0x5979 # 她 -- 243,250
|
||||
0xA3A9 0x8CBB # 費 -- 243,251
|
||||
0xA3AA 0x57CE # 城 -- 243,252
|
||||
0xA3AB 0x5668 # 器 -- 243,253
|
||||
0xA3AC 0x96E2 # 離 -- 243,254
|
||||
0xA3AD 0x9858 # 願 -- 243,255
|
||||
0xA3AE 0x76AE # 皮 -- 243,256
|
||||
0xA3AF 0x6551 # 救 -- 243,257
|
||||
0xA3B0 0x98EF # 飯 -- 243,260
|
||||
0xA3B1 0x9ED1 # 黑 -- 243,261
|
||||
0xA3B2 0x8FB2 # 農 -- 243,262
|
||||
0xA3B3 0x5EE3 # 廣 -- 243,263
|
||||
0xA3B4 0x7D1A # 級 -- 243,264
|
||||
0xA3B5 0x7A31 # 稱 -- 243,265
|
||||
0xA3B6 0x7BA1 # 管 -- 243,266
|
||||
0xA3B7 0x50F9 # 價 -- 243,267
|
||||
0xA3B8 0x523B # 刻 -- 243,270
|
||||
0xA3B9 0x7D44 # 組 -- 243,271
|
||||
0xA3BA 0x4E45 # 久 -- 243,272
|
||||
0xA3BB 0x7D30 # 細 -- 243,273
|
||||
0xA3BC 0x826F # 良 -- 243,274
|
||||
0xA3BD 0x9752 # 青 -- 243,275
|
||||
0xA3BE 0x9078 # 選 -- 243,276
|
||||
0xA3BF 0x6F38 # 漸 -- 243,277
|
||||
0xA3C0 0x5F04 # 弄 -- 243,300
|
||||
0xA3C1 0x53C3 # 參 -- 243,301
|
||||
0xA3C2 0x6562 # 敢 -- 243,302
|
||||
0xA3C3 0x5370 # 印 -- 243,303
|
||||
0xA3C4 0x6B78 # 歸 -- 243,304
|
||||
0xA3C5 0x5207 # 切 -- 243,305
|
||||
0xA3C6 0x8077 # 職 -- 243,306
|
||||
0xA3C7 0x88DD # 裝 -- 243,307
|
||||
0xA3C8 0x756B # 畫 -- 243,310
|
||||
0xA3C9 0x5C08 # 專 -- 243,311
|
||||
0xA3CA 0x7D05 # 紅 -- 243,312
|
||||
0xA3CB 0x96E8 # 雨 -- 243,313
|
||||
0xA3CC 0x5373 # 即 -- 243,314
|
||||
0xA3CD 0x8A8D # 認 -- 243,315
|
||||
0xA3CE 0x6FDF # 濟 -- 243,316
|
||||
0xA3CF 0x7247 # 片 -- 243,317
|
||||
0xA3D0 0x990A # 養 -- 243,320
|
||||
0xA3D1 0x91CF # 量 -- 243,321
|
||||
0xA3D3 0x5FFD # 忽 -- 243,323
|
||||
0xA3D4 0x822C # 般 -- 243,324
|
||||
0xA3D5 0x5305 # 包 -- 243,325
|
||||
0xA3D6 0x4EF6 # 件 -- 243,326
|
||||
0xA3D7 0x8349 # 草 -- 243,327
|
||||
0xA3D8 0x6F22 # 漢 -- 243,330
|
||||
0xA3D9 0x723E # 爾 -- 243,331
|
||||
0xA3DA 0x904D # 遍 -- 243,332
|
||||
0xA3DB 0x6232 # 戲 -- 243,333
|
||||
0xA3DC 0x8AF8 # 諸 -- 243,334
|
||||
0xA3DD 0x8AB0 # 誰 -- 243,335
|
||||
0xA3DE 0x7ADF # 竟 -- 243,336
|
||||
0xA3DF 0x65E2 # 既 -- 243,337
|
||||
0xA3E0 0x9109 # 鄉 -- 243,340
|
||||
0xA3E1 0x80AF # 肯 -- 243,341
|
||||
0xA3E2 0x6839 # 根 -- 243,342
|
||||
0xA3E3 0x514D # 免 -- 243,343
|
||||
0xA3E4 0x722D # 爭 -- 243,344
|
||||
0xA3E5 0x5468 # 周 -- 243,345
|
||||
0xA3E6 0x5566 # 啦 -- 243,346
|
||||
0xA3E7 0x55AE # 單 -- 243,347
|
||||
0xA3E8 0x7A7F # 穿 -- 243,350
|
||||
0xA3E9 0x584A # 塊 -- 243,351
|
||||
0xA3EA 0x521D # 初 -- 243,352
|
||||
0xA3EB 0x91CC # 里 -- 243,353
|
||||
0xA3EC 0x76E1 # 盡 -- 243,354
|
||||
0xA3ED 0x8846 # 衆 -- 243,355
|
||||
0xA3EE 0x6BDB # 毛 -- 243,356
|
||||
0xA3EF 0x6B72 # 歲 -- 243,357
|
||||
0xA3F0 0x8089 # 肉 -- 243,360
|
||||
0xA3F1 0x9F4A # 齊 -- 243,361
|
||||
0xA3F2 0x96C6 # 集 -- 243,362
|
||||
0xA3F3 0x5DDE # 州 -- 243,363
|
||||
0xA3F4 0x843D # 落 -- 243,364
|
||||
0xA3F5 0x6025 # 急 -- 243,365
|
||||
0xA3F6 0x5047 # 假 -- 243,366
|
||||
0xA3F7 0x63A8 # 推 -- 243,367
|
||||
0xA3F8 0x7968 # 票 -- 243,370
|
||||
0xA3F9 0x7834 # 破 -- 243,371
|
||||
0xA3FA 0x7537 # 男 -- 243,372
|
||||
0xA3FB 0x5531 # 唱 -- 243,373
|
||||
0xA3FC 0x5553 # 啓 -- 243,374
|
||||
0xA3FD 0x611F # 感 -- 243,375
|
||||
0xA3FE 0x554A # 啊 -- 243,376
|
||||
189
unicode/xerox/unihan/XCCS-244=UNIHAN.TXT
Normal file
189
unicode/xerox/unihan/XCCS-244=UNIHAN.TXT
Normal file
@@ -0,0 +1,189 @@
|
||||
|
||||
# "244" UNIHAN
|
||||
|
||||
0xA421 0x4F3C # 似 -- 244,041
|
||||
0xA422 0x79D1 # 科 -- 244,042
|
||||
0xA423 0x79AE # 禮 -- 244,043
|
||||
0xA424 0x798F # 福 -- 244,044
|
||||
0xA425 0x9632 # 防 -- 244,045
|
||||
0xA426 0x6BBA # 殺 -- 244,046
|
||||
0xA427 0x8AC7 # 談 -- 244,047
|
||||
0xA428 0x4EE4 # 令 -- 244,050
|
||||
0xA429 0x8CC7 # 資 -- 244,051
|
||||
0xA42A 0x64DA # 據 -- 244,052
|
||||
0xA42B 0x4FC4 # 俄 -- 244,053
|
||||
0xA42C 0x7559 # 留 -- 244,054
|
||||
0xA42D 0x811A # 脚 -- 244,055
|
||||
0xA42E 0x5CF6 # 島 -- 244,056
|
||||
0xA42F 0x5718 # 團 -- 244,057
|
||||
0xA430 0x8CE3 # 賣 -- 244,060
|
||||
0xA431 0x5FD7 # 志 -- 244,061
|
||||
0xA432 0x62C9 # 拉 -- 244,062
|
||||
0xA433 0x6B66 # 武 -- 244,063
|
||||
0xA434 0x602A # 怪 -- 244,064
|
||||
0xA435 0x4ED8 # 付 -- 244,065
|
||||
0xA436 0x4FC2 # 係 -- 244,066
|
||||
0xA437 0x725B # 牛 -- 244,067
|
||||
0xA438 0x606F # 息 -- 244,070
|
||||
0xA439 0x50B7 # 傷 -- 244,071
|
||||
0xA43A 0x5BA2 # 客 -- 244,072
|
||||
0xA43B 0x8A0E # 討 -- 244,073
|
||||
0xA43C 0x96A8 # 隨 -- 244,074
|
||||
0xA43D 0x8336 # 茶 -- 244,075
|
||||
0xA43E 0x501F # 借 -- 244,076
|
||||
0xA43F 0x885B # 衛 -- 244,077
|
||||
0xA440 0x591C # 夜 -- 244,100
|
||||
0xA441 0x7063 # 灣 -- 244,101
|
||||
0xA442 0x806F # 聯 -- 244,102
|
||||
0xA443 0x4E9E # 亞 -- 244,103
|
||||
0xA444 0x8D95 # 趕 -- 244,104
|
||||
0xA445 0x5C45 # 居 -- 244,105
|
||||
0xA446 0x9152 # 酒 -- 244,106
|
||||
0xA447 0x968A # 隊 -- 244,107
|
||||
0xA448 0x9047 # 遇 -- 244,110
|
||||
0xA449 0x5BCC # 富 -- 244,111
|
||||
0xA44A 0x8B93 # 讓 -- 244,112
|
||||
0xA44B 0x5BDF # 察 -- 244,113
|
||||
0xA44C 0x5947 # 奇 -- 244,114
|
||||
0xA44D 0x65AF # 斯 -- 244,115
|
||||
0xA44E 0x7D00 # 紀 -- 244,116
|
||||
0xA44F 0x683C # 格 -- 244,117
|
||||
0xA450 0x6DF1 # 深 -- 244,120
|
||||
0xA452 0x8FEB # 迫 -- 244,122
|
||||
0xA453 0x7DCA # 緊 -- 244,123
|
||||
0xA454 0x7E54 # 織 -- 244,124
|
||||
0xA455 0x9CE5 # 鳥 -- 244,125
|
||||
0xA456 0x6625 # 春 -- 244,126
|
||||
0xA458 0x7B46 # 筆 -- 244,130
|
||||
0xA459 0x66FF # 替 -- 244,131
|
||||
0xA45A 0x5F71 # 影 -- 244,132
|
||||
0xA45B 0x7C73 # 米 -- 244,133
|
||||
0xA45C 0x4E82 # 亂 -- 244,134
|
||||
0xA45D 0x51B7 # 冷 -- 244,135
|
||||
0xA45E 0x59CB # 始 -- 244,136
|
||||
0xA45F 0x8607 # 蘇 -- 244,137
|
||||
0xA460 0x6050 # 恐 -- 244,140
|
||||
0xA461 0x6CB9 # 油 -- 244,141
|
||||
0xA462 0x65C1 # 旁 -- 244,142
|
||||
0xA463 0x820A # 舊 -- 244,143
|
||||
0xA464 0x5B97 # 宗 -- 244,144
|
||||
0xA465 0x54ED # 哭 -- 244,145
|
||||
0xA466 0x963F # 阿 -- 244,146
|
||||
0xA467 0x88FD # 製 -- 244,147
|
||||
0xA468 0x71C8 # 燈 -- 244,150
|
||||
0xA469 0x6B4C # 歌 -- 244,151
|
||||
0xA46A 0x7761 # 睡 -- 244,152
|
||||
0xA46B 0x5712 # 園 -- 244,153
|
||||
0xA46C 0x9DC4 # 鷄 -- 244,154
|
||||
0xA46D 0x5F85 # 待 -- 244,155
|
||||
0xA46E 0x5C0E # 導 -- 244,156
|
||||
0xA46F 0x537B # 卻 -- 244,157
|
||||
0xA470 0x9F20 # 鼠 -- 244,160
|
||||
0xA471 0x9805 # 項 -- 244,161
|
||||
0xA472 0x53E5 # 句 -- 244,162
|
||||
0xA473 0x5200 # 刀 -- 244,163
|
||||
0xA474 0x5340 # 區 -- 244,164
|
||||
0xA475 0x8A34 # 訴 -- 244,165
|
||||
0xA476 0x4EA6 # 亦 -- 244,166
|
||||
0xA477 0x8003 # 考 -- 244,167
|
||||
0xA478 0x589E # 增 -- 244,170
|
||||
0xA479 0x9678 # 陸 -- 244,171
|
||||
0xA47A 0x5E6B # 幫 -- 244,172
|
||||
0xA47B 0x8F15 # 輕 -- 244,173
|
||||
0xA47C 0x6628 # 昨 -- 244,174
|
||||
0xA47D 0x5E8F # 序 -- 244,175
|
||||
0xA47E 0x7DE8 # 編 -- 244,176
|
||||
0xA4A1 0x9810 # 預 -- 244,241
|
||||
0xA4A2 0x4EAC # 京 -- 244,242
|
||||
0xA4A3 0x590F # 夏 -- 244,243
|
||||
0xA4A4 0x96F2 # 雲 -- 244,244
|
||||
0xA4A5 0x5177 # 具 -- 244,245
|
||||
0xA4A6 0x8D8A # 越 -- 244,246
|
||||
0xA4A7 0x5BA4 # 室 -- 244,247
|
||||
0xA4A8 0x54C8 # 哈 -- 244,250
|
||||
0xA4A9 0x8CEA # 質 -- 244,251
|
||||
0xA4AA 0x7D19 # 紙 -- 244,252
|
||||
0xA4AB 0x9418 # 鐘 -- 244,253
|
||||
0xA4AC 0x4EAE # 亮 -- 244,254
|
||||
0xA4AD 0x907A # 遺 -- 244,255
|
||||
0xA4AE 0x60E1 # 惡 -- 244,256
|
||||
0xA4AF 0x674E # 李 -- 244,257
|
||||
0xA4B0 0x805E # 聞 -- 244,260
|
||||
0xA4B1 0x6557 # 敗 -- 244,261
|
||||
0xA4B2 0x4ECD # 仍 -- 244,262
|
||||
0xA4B3 0x8CA1 # 財 -- 244,263
|
||||
0xA4B4 0x6D32 # 洲 -- 244,264
|
||||
0xA4B5 0x8ABF # 調 -- 244,265
|
||||
0xA4B6 0x91AB # 醫 -- 244,266
|
||||
0xA4B7 0x8CA8 # 貨 -- 244,267
|
||||
0xA4B8 0x570D # 圍 -- 244,270
|
||||
0xA4B9 0x72D7 # 狗 -- 244,271
|
||||
0xA4BA 0x898F # 規 -- 244,272
|
||||
0xA4BB 0x58DE # 壞 -- 244,273
|
||||
0xA4BC 0x6389 # 掉 -- 244,274
|
||||
0xA4BD 0x547C # 呼 -- 244,275
|
||||
0xA4BE 0x7A0B # 程 -- 244,276
|
||||
0xA4BF 0x5B6B # 孫 -- 244,277
|
||||
0xA4C0 0x5144 # 兄 -- 244,300
|
||||
0xA4C1 0x6697 # 暗 -- 244,301
|
||||
0xA4C2 0x793A # 示 -- 244,302
|
||||
0xA4C3 0x532A # 匪 -- 244,303
|
||||
0xA4C4 0x8F03 # 較 -- 244,304
|
||||
0xA4C5 0x53F8 # 司 -- 244,305
|
||||
0xA4C6 0x932F # 錯 -- 244,306
|
||||
0xA4C7 0x8A66 # 試 -- 244,307
|
||||
0xA4C8 0x9673 # 陳 -- 244,310
|
||||
0xA4C9 0x5DEE # 差 -- 244,311
|
||||
0xA4CA 0x6295 # 投 -- 244,312
|
||||
0xA4CB 0x75DB # 痛 -- 244,313
|
||||
0xA4CC 0x7E94 # 纔 -- 244,314
|
||||
0xA4CD 0x5BF6 # 寶 -- 244,315
|
||||
0xA4CE 0x6C7D # 汽 -- 244,316
|
||||
0xA4CF 0x81F4 # 致 -- 244,317
|
||||
0xA4D0 0x89D2 # 角 -- 244,320
|
||||
0xA4D1 0x7D42 # 終 -- 244,321
|
||||
0xA4D2 0x8449 # 葉 -- 244,322
|
||||
0xA4D3 0x6D3E # 派 -- 244,323
|
||||
0xA4D4 0x8DF3 # 跳 -- 244,324
|
||||
0xA4D5 0x505C # 停 -- 244,325
|
||||
0xA4D6 0x71D2 # 燒 -- 244,326
|
||||
0xA4D7 0x6B62 # 止 -- 244,327
|
||||
0xA4D8 0x6E2F # 港 -- 244,330
|
||||
0xA4D9 0x5584 # 善 -- 244,331
|
||||
0xA4DA 0x5F15 # 引 -- 244,332
|
||||
0xA4DB 0x627F # 承 -- 244,333
|
||||
0xA4DC 0x670B # 朋 -- 244,334
|
||||
0xA4DD 0x8F2A # 輪 -- 244,335
|
||||
0xA4DE 0x7AD9 # 站 -- 244,336
|
||||
0xA4DF 0x6162 # 慢 -- 244,337
|
||||
0xA4E0 0x7368 # 獨 -- 244,340
|
||||
0xA4E1 0x7D72 # 絲 -- 244,341
|
||||
0xA4E2 0x65B7 # 斷 -- 244,342
|
||||
0xA4E3 0x5E78 # 幸 -- 244,343
|
||||
0xA4E4 0x6301 # 持 -- 244,344
|
||||
0xA4E5 0x8B77 # 護 -- 244,345
|
||||
0xA4E6 0x91CE # 野 -- 244,346
|
||||
0xA4E7 0x5E97 # 店 -- 244,347
|
||||
0xA4E8 0x5FA9 # 復 -- 244,350
|
||||
0xA4E9 0x5C24 # 尤 -- 244,351
|
||||
0xA4EA 0x655D # 敝 -- 244,352
|
||||
0xA4EB 0x9769 # 革 -- 244,353
|
||||
0xA4EC 0x67E5 # 查 -- 244,354
|
||||
0xA4ED 0x8B1D # 謝 -- 244,355
|
||||
0xA4EE 0x76DB # 盛 -- 244,356
|
||||
0xA4EF 0x8853 # 術 -- 244,357
|
||||
0xA4F0 0x9996 # 首 -- 244,360
|
||||
0xA4F1 0x7562 # 畢 -- 244,361
|
||||
0xA4F2 0x85CF # 藏 -- 244,362
|
||||
0xA4F3 0x7DF4 # 練 -- 244,363
|
||||
0xA4F4 0x4F4E # 低 -- 244,364
|
||||
0xA4F5 0x4E43 # 乃 -- 244,365
|
||||
0xA4F6 0x96D9 # 雙 -- 244,366
|
||||
0xA4F7 0x9760 # 靠 -- 244,367
|
||||
0xA4F8 0x4FEE # 修 -- 244,370
|
||||
0xA4F9 0x6751 # 村 -- 244,371
|
||||
0xA4FA 0x52AA # 努 -- 244,372
|
||||
0xA4FB 0x4F9D # 依 -- 244,373
|
||||
0xA4FC 0x4E4E # 乎 -- 244,374
|
||||
0xA4FD 0x5EAD # 庭 -- 244,375
|
||||
0xA4FE 0x83DC # 菜 -- 244,376
|
||||
191
unicode/xerox/unihan/XCCS-245=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-245=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "245" UNIHAN
|
||||
|
||||
0xA521 0x89BA # 覺 -- 245,041
|
||||
0xA522 0x7AEF # 端 -- 245,042
|
||||
0xA523 0x7956 # 祖 -- 245,043
|
||||
0xA524 0x5427 # 吧 -- 245,044
|
||||
0xA525 0x71DF # 營 -- 245,045
|
||||
0xA526 0x65CF # 族 -- 245,046
|
||||
0xA527 0x6D17 # 洗 -- 245,047
|
||||
0xA528 0x8CB4 # 貴 -- 245,050
|
||||
0xA529 0x6EAB # 溫 -- 245,051
|
||||
0xA52A 0x862D # 蘭 -- 245,052
|
||||
0xA52B 0x8FA8 # 辨 -- 245,053
|
||||
0xA52C 0x8CAC # 責 -- 245,054
|
||||
0xA52D 0x6E96 # 準 -- 245,055
|
||||
0xA52E 0x6848 # 案 -- 245,056
|
||||
0xA52F 0x87F2 # 蟲 -- 245,057
|
||||
0xA530 0x8996 # 視 -- 245,060
|
||||
0xA531 0x7F8A # 羊 -- 245,061
|
||||
0xA532 0x7E8C # 續 -- 245,062
|
||||
0xA533 0x63DB # 換 -- 245,063
|
||||
0xA534 0x6574 # 整 -- 245,064
|
||||
0xA535 0x6E56 # 湖 -- 245,065
|
||||
0xA536 0x9644 # 附 -- 245,066
|
||||
0xA537 0x5F0F # 式 -- 245,067
|
||||
0xA538 0x62B5 # 抵 -- 245,070
|
||||
0xA539 0x6B77 # 歷 -- 245,071
|
||||
0xA53A 0x5C04 # 射 -- 245,072
|
||||
0xA53B 0x5DE6 # 左 -- 245,073
|
||||
0xA53C 0x72C0 # 狀 -- 245,074
|
||||
0xA53D 0x7F85 # 羅 -- 245,075
|
||||
0xA53E 0x81C9 # 臉 -- 245,076
|
||||
0xA53F 0x67D0 # 某 -- 245,077
|
||||
0xA540 0x6C0F # 氏 -- 245,100
|
||||
0xA541 0x9E97 # 麗 -- 245,101
|
||||
0xA542 0x62DC # 拜 -- 245,102
|
||||
0xA543 0x57FA # 基 -- 245,103
|
||||
0xA544 0x80CC # 背 -- 245,104
|
||||
0xA545 0x7D55 # 絕 -- 245,105
|
||||
0xA546 0x5A18 # 娘 -- 245,106
|
||||
0xA547 0x9B27 # 鬧 -- 245,107
|
||||
0xA548 0x514B # 克 -- 245,110
|
||||
0xA549 0x4E58 # 乘 -- 245,111
|
||||
0xA54A 0x6F14 # 演 -- 245,112
|
||||
0xA54B 0x5C6C # 屬 -- 245,113
|
||||
0xA54C 0x5C55 # 展 -- 245,114
|
||||
0xA54D 0x9000 # 退 -- 245,115
|
||||
0xA54E 0x6A4B # 橋 -- 245,116
|
||||
0xA54F 0x97FF # 響 -- 245,117
|
||||
0xA550 0x8070 # 聰 -- 245,120
|
||||
0xA551 0x9928 # 館 -- 245,121
|
||||
0xA552 0x9003 # 逃 -- 245,122
|
||||
0xA553 0x666F # 景 -- 245,123
|
||||
0xA554 0x9A5A # 驚 -- 245,124
|
||||
0xA555 0x969B # 際 -- 245,125
|
||||
0xA556 0x4F9B # 供 -- 245,126
|
||||
0xA557 0x8005 # 者 -- 245,127
|
||||
0xA558 0x6297 # 抗 -- 245,130
|
||||
0xA559 0x8C93 # 貓 -- 245,131
|
||||
0xA55A 0x8CFD # 賽 -- 245,132
|
||||
0xA55B 0x5B88 # 守 -- 245,133
|
||||
0xA55C 0x775B # 睛 -- 245,134
|
||||
0xA55D 0x5145 # 充 -- 245,135
|
||||
0xA55E 0x8499 # 蒙 -- 245,136
|
||||
0xA55F 0x9999 # 香 -- 245,137
|
||||
0xA560 0x8B49 # 證 -- 245,140
|
||||
0xA561 0x58D3 # 壓 -- 245,141
|
||||
0xA562 0x59D4 # 委 -- 245,142
|
||||
0xA563 0x9EE8 # 黨 -- 245,143
|
||||
0xA564 0x7565 # 略 -- 245,144
|
||||
0xA565 0x525B # 剛 -- 245,145
|
||||
0xA566 0x51E1 # 凡 -- 245,146
|
||||
0xA567 0x5C1A # 尚 -- 245,147
|
||||
0xA568 0x5BC6 # 密 -- 245,150
|
||||
0xA569 0x93E1 # 鏡 -- 245,151
|
||||
0xA56A 0x6C89 # 沉 -- 245,152
|
||||
0xA56B 0x5473 # 味 -- 245,153
|
||||
0xA56C 0x6D1E # 洞 -- 245,154
|
||||
0xA56D 0x7389 # 玉 -- 245,155
|
||||
0xA56E 0x5802 # 堂 -- 245,156
|
||||
0xA56F 0x5EA7 # 座 -- 245,157
|
||||
0xA570 0x64D4 # 擔 -- 245,160
|
||||
0xA571 0x8857 # 街 -- 245,161
|
||||
0xA572 0x5F8B # 律 -- 245,162
|
||||
0xA573 0x9A57 # 驗 -- 245,163
|
||||
0xA574 0x53E6 # 另 -- 245,164
|
||||
0xA575 0x8033 # 耳 -- 245,165
|
||||
0xA576 0x66C9 # 曉 -- 245,166
|
||||
0xA577 0x6C38 # 永 -- 245,167
|
||||
0xA578 0x6383 # 掃 -- 245,170
|
||||
0xA579 0x5FAE # 微 -- 245,171
|
||||
0xA57A 0x7F6E # 置 -- 245,172
|
||||
0xA57B 0x6563 # 散 -- 245,173
|
||||
0xA57C 0x77ED # 短 -- 245,174
|
||||
0xA57D 0x9802 # 頂 -- 245,175
|
||||
0xA57E 0x9F8D # 龍 -- 245,176
|
||||
0xA5A1 0x5CB8 # 岸 -- 245,241
|
||||
0xA5A2 0x7E7C # 繼 -- 245,242
|
||||
0xA5A3 0x5634 # 嘴 -- 245,243
|
||||
0xA5A4 0x9650 # 限 -- 245,244
|
||||
0xA5A5 0x6668 # 晨 -- 245,245
|
||||
0xA5A6 0x5217 # 列 -- 245,246
|
||||
0xA5A7 0x7532 # 甲 -- 245,247
|
||||
0xA5A8 0x7AF9 # 竹 -- 245,250
|
||||
0xA5A9 0x96AA # 險 -- 245,251
|
||||
0xA5AA 0x8C61 # 象 -- 245,252
|
||||
0xA5AB 0x975C # 靜 -- 245,253
|
||||
0xA5AC 0x5438 # 吸 -- 245,254
|
||||
0xA5AD 0x9818 # 領 -- 245,255
|
||||
0xA5AE 0x4EFD # 份 -- 245,256
|
||||
0xA5AF 0x5065 # 健 -- 245,257
|
||||
0xA5B0 0x56FA # 固 -- 245,260
|
||||
0xA5B1 0x5371 # 危 -- 245,261
|
||||
0xA5B2 0x9E7D # 鹽 -- 245,262
|
||||
0xA5B3 0x8FCE # 迎 -- 245,263
|
||||
0xA5B4 0x6392 # 排 -- 245,264
|
||||
0xA5B5 0x50BE # 傾 -- 245,265
|
||||
0xA5B6 0x7C21 # 簡 -- 245,266
|
||||
0xA5B7 0x6B50 # 歐 -- 245,267
|
||||
0xA5B8 0x6C99 # 沙 -- 245,270
|
||||
0xA5B9 0x9285 # 銅 -- 245,271
|
||||
0xA5BA 0x6EC5 # 滅 -- 245,272
|
||||
0xA5BB 0x65D7 # 旗 -- 245,273
|
||||
0xA5BC 0x9014 # 途 -- 245,274
|
||||
0xA5BD 0x5B58 # 存 -- 245,275
|
||||
0xA5BE 0x8A02 # 訂 -- 245,276
|
||||
0xA5BF 0x76CA # 益 -- 245,277
|
||||
0xA5C0 0x85E5 # 藥 -- 245,300
|
||||
0xA5C1 0x9EBB # 麻 -- 245,301
|
||||
0xA5C2 0x5F48 # 彈 -- 245,302
|
||||
0xA5C3 0x8A5E # 詞 -- 245,303
|
||||
0xA5C4 0x4F38 # 伸 -- 245,304
|
||||
0xA5C5 0x81E8 # 臨 -- 245,305
|
||||
0xA5C6 0x6349 # 捉 -- 245,306
|
||||
0xA5C7 0x592E # 央 -- 245,307
|
||||
0xA5C8 0x53F2 # 史 -- 245,310
|
||||
0xA5C9 0x5C3A # 尺 -- 245,311
|
||||
0xA5CA 0x9069 # 適 -- 245,312
|
||||
0xA5CB 0x5EB7 # 康 -- 245,313
|
||||
0xA5CC 0x7686 # 皆 -- 245,314
|
||||
0xA5CD 0x68C9 # 棉 -- 245,315
|
||||
0xA5CE 0x4F11 # 休 -- 245,316
|
||||
0xA5CF 0x5C0B # 尋 -- 245,317
|
||||
0xA5D0 0x652F # 支 -- 245,320
|
||||
0xA5D1 0x59BB # 妻 -- 245,321
|
||||
0xA5D2 0x5BA3 # 宣 -- 245,322
|
||||
0xA5D3 0x679D # 枝 -- 245,323
|
||||
0xA5D4 0x723A # 爺 -- 245,324
|
||||
0xA5D5 0x7A4D # 積 -- 245,325
|
||||
0xA5D6 0x8CA0 # 負 -- 245,326
|
||||
0xA5D7 0x5E2D # 席 -- 245,327
|
||||
0xA5D8 0x5439 # 吹 -- 245,330
|
||||
0xA5D9 0x8702 # 蜂 -- 245,331
|
||||
0xA5DA 0x6416 # 搖 -- 245,332
|
||||
0xA5DB 0x5E95 # 底 -- 245,333
|
||||
0xA5DC 0x9EA5 # 麥 -- 245,334
|
||||
0xA5DD 0x9700 # 需 -- 245,335
|
||||
0xA5DE 0x677F # 板 -- 245,336
|
||||
0xA5DF 0x51AC # 冬 -- 245,337
|
||||
0xA5E0 0x838A # 莊 -- 245,340
|
||||
0xA5E1 0x653B # 攻 -- 245,341
|
||||
0xA5E2 0x684C # 桌 -- 245,342
|
||||
0xA5E3 0x559D # 喝 -- 245,343
|
||||
0xA5E4 0x6982 # 概 -- 245,344
|
||||
0xA5E5 0x8166 # 腦 -- 245,345
|
||||
0xA5E6 0x6236 # 戶 -- 245,346
|
||||
0xA5E7 0x69CD # 槍 -- 245,347
|
||||
0xA5E8 0x6E38 # 游 -- 245,350
|
||||
0xA5E9 0x88DC # 補 -- 245,351
|
||||
0xA5EA 0x6068 # 恨 -- 245,352
|
||||
0xA5EB 0x7570 # 異 -- 245,353
|
||||
0xA5EC 0x8840 # 血 -- 245,354
|
||||
0xA5ED 0x6575 # 敵 -- 245,355
|
||||
0xA5EE 0x5A01 # 威 -- 245,356
|
||||
0xA5EF 0x96C4 # 雄 -- 245,357
|
||||
0xA5F0 0x5713 # 圓 -- 245,360
|
||||
0xA5F1 0x7518 # 甘 -- 245,361
|
||||
0xA5F2 0x5EE0 # 廠 -- 245,362
|
||||
0xA5F3 0x8C6C # 豬 -- 245,363
|
||||
0xA5F4 0x8C48 # 豈 -- 245,364
|
||||
0xA5F5 0x52C7 # 勇 -- 245,365
|
||||
0xA5F6 0x7AE0 # 章 -- 245,366
|
||||
0xA5F7 0x53F3 # 右 -- 245,367
|
||||
0xA5F8 0x7239 # 爹 -- 245,370
|
||||
0xA5F9 0x7260 # 牠 -- 245,371
|
||||
0xA5FA 0x5024 # 値 -- 245,372
|
||||
0xA5FB 0x7BC4 # 範 -- 245,373
|
||||
0xA5FC 0x7CD6 # 糖 -- 245,374
|
||||
0xA5FD 0x6750 # 材 -- 245,375
|
||||
0xA5FE 0x5347 # 升 -- 245,376
|
||||
191
unicode/xerox/unihan/XCCS-246=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-246=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "246" UNIHAN
|
||||
|
||||
0xA621 0x6F54 # 潔 -- 246,041
|
||||
0xA622 0x5883 # 境 -- 246,042
|
||||
0xA623 0x6190 # 憐 -- 246,043
|
||||
0xA624 0x65BD # 施 -- 246,044
|
||||
0xA625 0x62B1 # 抱 -- 246,045
|
||||
0xA626 0x80A5 # 肥 -- 246,046
|
||||
0xA627 0x54E9 # 哩 -- 246,047
|
||||
0xA628 0x9732 # 露 -- 246,050
|
||||
0xA629 0x56F0 # 困 -- 246,051
|
||||
0xA62A 0x5275 # 創 -- 246,052
|
||||
0xA62B 0x9F13 # 鼓 -- 246,053
|
||||
0xA62C 0x51B0 # 冰 -- 246,054
|
||||
0xA62D 0x9867 # 顧 -- 246,055
|
||||
0xA62E 0x822A # 航 -- 246,056
|
||||
0xA62F 0x5C01 # 封 -- 246,057
|
||||
0xA630 0x7235 # 爵 -- 246,060
|
||||
0xA631 0x5B63 # 季 -- 246,061
|
||||
0xA632 0x62DB # 招 -- 246,062
|
||||
0xA633 0x7BC9 # 築 -- 246,063
|
||||
0xA634 0x86CB # 蛋 -- 246,064
|
||||
0xA635 0x666E # 普 -- 246,065
|
||||
0xA636 0x9806 # 順 -- 246,066
|
||||
0xA637 0x5E79 # 幹 -- 246,067
|
||||
0xA638 0x5F7C # 彼 -- 246,070
|
||||
0xA639 0x901F # 速 -- 246,071
|
||||
0xA63A 0x7C89 # 粉 -- 246,072
|
||||
0xA63B 0x6163 # 慣 -- 246,073
|
||||
0xA63C 0x596C # 奬 -- 246,074
|
||||
0xA63D 0x53D4 # 叔 -- 246,075
|
||||
0xA63E 0x79C1 # 私 -- 246,076
|
||||
0xA63F 0x4F48 # 佈 -- 246,077
|
||||
0xA640 0x4F2F # 伯 -- 246,100
|
||||
0xA641 0x7159 # 煙 -- 246,101
|
||||
0xA642 0x9192 # 醒 -- 246,102
|
||||
0xA643 0x7591 # 疑 -- 246,103
|
||||
0xA644 0x864E # 虎 -- 246,104
|
||||
0xA645 0x96DC # 雜 -- 246,105
|
||||
0xA646 0x6CBF # 沿 -- 246,106
|
||||
0xA647 0x4FD7 # 俗 -- 246,107
|
||||
0xA648 0x7240 # 牀 -- 246,110
|
||||
0xA649 0x72E0 # 狠 -- 246,111
|
||||
0xA64A 0x6BB5 # 段 -- 246,112
|
||||
0xA64B 0x821E # 舞 -- 246,113
|
||||
0xA64C 0x7E3E # 績 -- 246,114
|
||||
0xA64D 0x79CB # 秋 -- 246,115
|
||||
0xA64E 0x767B # 登 -- 246,116
|
||||
0xA64F 0x7F6A # 罪 -- 246,117
|
||||
0xA650 0x56B4 # 嚴 -- 246,120
|
||||
0xA651 0x6BD2 # 毒 -- 246,121
|
||||
0xA652 0x64CA # 擊 -- 246,122
|
||||
0xA653 0x6CC1 # 況 -- 246,123
|
||||
0xA654 0x7AAE # 窮 -- 246,124
|
||||
0xA655 0x7DAD # 維 -- 246,125
|
||||
0xA656 0x52F8 # 勸 -- 246,126
|
||||
0xA657 0x756A # 番 -- 246,127
|
||||
0xA658 0x4E39 # 丹 -- 246,130
|
||||
0xA659 0x78BA # 確 -- 246,131
|
||||
0xA65A 0x7A05 # 稅 -- 246,132
|
||||
0xA65B 0x62CD # 拍 -- 246,133
|
||||
0xA65C 0x7A97 # 窗 -- 246,134
|
||||
0xA65D 0x8DA3 # 趣 -- 246,135
|
||||
0xA65E 0x74B0 # 環 -- 246,136
|
||||
0xA65F 0x5747 # 均 -- 246,137
|
||||
0xA660 0x7D20 # 素 -- 246,140
|
||||
0xA661 0x6A6B # 橫 -- 246,141
|
||||
0xA662 0x59D1 # 姑 -- 246,142
|
||||
0xA663 0x65C5 # 旅 -- 246,143
|
||||
0xA664 0x986F # 顯 -- 246,144
|
||||
0xA665 0x66F2 # 曲 -- 246,145
|
||||
0xA666 0x77A7 # 瞧 -- 246,146
|
||||
0xA667 0x558A # 喊 -- 246,147
|
||||
0xA668 0x5426 # 否 -- 246,150
|
||||
0xA669 0x5BC4 # 寄 -- 246,151
|
||||
0xA66A 0x5E55 # 幕 -- 246,152
|
||||
0xA66B 0x6012 # 怒 -- 246,153
|
||||
0xA66C 0x9B2D # 鬭 -- 246,154
|
||||
0xA66D 0x6CE5 # 泥 -- 246,155
|
||||
0xA66E 0x614B # 態 -- 246,156
|
||||
0xA66F 0x9748 # 靈 -- 246,157
|
||||
0xA670 0x695A # 楚 -- 246,160
|
||||
0xA671 0x5999 # 妙 -- 246,161
|
||||
0xA672 0x639B # 掛 -- 246,162
|
||||
0xA673 0x5F31 # 弱 -- 246,163
|
||||
0xA674 0x6DE8 # 淨 -- 246,164
|
||||
0xA675 0x5FD8 # 忘 -- 246,165
|
||||
0xA676 0x6FC0 # 激 -- 246,166
|
||||
0xA677 0x9AA8 # 骨 -- 246,167
|
||||
0xA678 0x7687 # 皇 -- 246,170
|
||||
0xA679 0x7947 # 祇 -- 246,171
|
||||
0xA67A 0x54EA # 哪 -- 246,172
|
||||
0xA67B 0x59D3 # 姓 -- 246,173
|
||||
0xA67C 0x719F # 熟 -- 246,174
|
||||
0xA67D 0x4ED9 # 仙 -- 246,175
|
||||
0xA67E 0x5949 # 奉 -- 246,176
|
||||
0xA6A1 0x9AEE # 髮 -- 246,241
|
||||
0xA6A2 0x4E92 # 互 -- 246,242
|
||||
0xA6A3 0x6176 # 慶 -- 246,243
|
||||
0xA6A4 0x63A1 # 採 -- 246,244
|
||||
0xA6A5 0x9813 # 頓 -- 246,245
|
||||
0xA6A6 0x7BC7 # 篇 -- 246,246
|
||||
0xA6A7 0x4EA1 # 亡 -- 246,247
|
||||
0xA6A8 0x7DA0 # 綠 -- 246,250
|
||||
0xA6A9 0x5FCD # 忍 -- 246,251
|
||||
0xA6AA 0x5974 # 奴 -- 246,252
|
||||
0xA6AB 0x84CB # 蓋 -- 246,253
|
||||
0xA6AC 0x6309 # 按 -- 246,254
|
||||
0xA6AD 0x93AD # 鎭 -- 246,255
|
||||
0xA6AE 0x690D # 植 -- 246,256
|
||||
0xA6AF 0x7DE3 # 緣 -- 246,257
|
||||
0xA6B0 0x8F09 # 載 -- 246,260
|
||||
0xA6B1 0x8C50 # 豐 -- 246,261
|
||||
0xA6B2 0x5018 # 倘 -- 246,262
|
||||
0xA6B3 0x5BD2 # 寒 -- 246,263
|
||||
0xA6B4 0x76E3 # 監 -- 246,264
|
||||
0xA6B5 0x7D0D # 納 -- 246,265
|
||||
0xA6B6 0x6DDA # 淚 -- 246,266
|
||||
0xA6B7 0x5E16 # 帖 -- 246,267
|
||||
0xA6B8 0x7CE7 # 糧 -- 246,270
|
||||
0xA6B9 0x5354 # 協 -- 246,271
|
||||
0xA6BA 0x8B66 # 警 -- 246,272
|
||||
0xA6BB 0x64CD # 操 -- 246,273
|
||||
0xA6BC 0x675F # 束 -- 246,274
|
||||
0xA6BD 0x67B6 # 架 -- 246,275
|
||||
0xA6BE 0x91DD # 針 -- 246,276
|
||||
0xA6BF 0x60DC # 惜 -- 246,277
|
||||
0xA6C0 0x9130 # 鄰 -- 246,300
|
||||
0xA6C1 0x523A # 刺 -- 246,301
|
||||
0xA6C2 0x7070 # 灰 -- 246,302
|
||||
0xA6C3 0x70C8 # 烈 -- 246,303
|
||||
0xA6C4 0x912D # 鄭 -- 246,304
|
||||
0xA6C5 0x6B3A # 欺 -- 246,305
|
||||
0xA6C6 0x9663 # 陣 -- 246,306
|
||||
0xA6C7 0x638C # 掌 -- 246,307
|
||||
0xA6C8 0x7BAD # 箭 -- 246,310
|
||||
0xA6C9 0x53DF # 叟 -- 246,311
|
||||
0xA6CA 0x8A0A # 訊 -- 246,312
|
||||
0xA6CB 0x80E1 # 胡 -- 246,313
|
||||
0xA6CC 0x7926 # 礦 -- 246,314
|
||||
0xA6CD 0x8056 # 聖 -- 246,315
|
||||
0xA6CE 0x58C1 # 壁 -- 246,316
|
||||
0xA6CF 0x9031 # 週 -- 246,317
|
||||
0xA6D0 0x5BAE # 宮 -- 246,320
|
||||
0xA6D1 0x83AB # 莫 -- 246,321
|
||||
0xA6D2 0x5C3E # 尾 -- 246,322
|
||||
0xA6D3 0x66B4 # 暴 -- 246,323
|
||||
0xA6D4 0x5A46 # 婆 -- 246,324
|
||||
0xA6D5 0x502B # 倫 -- 246,325
|
||||
0xA6D6 0x5283 # 劃 -- 246,326
|
||||
0xA6D7 0x8F9B # 辛 -- 246,327
|
||||
0xA6D8 0x98EE # 飮 -- 246,330
|
||||
0xA6D9 0x5BE7 # 寧 -- 246,331
|
||||
0xA6DA 0x8A13 # 訓 -- 246,332
|
||||
0xA6DB 0x676F # 杯 -- 246,333
|
||||
0xA6DC 0x5DDD # 川 -- 246,334
|
||||
0xA6DD 0x542B # 含 -- 246,335
|
||||
0xA6DE 0x9670 # 陰 -- 246,336
|
||||
0xA6DF 0x9063 # 遣 -- 246,337
|
||||
0xA6E0 0x8FAD # 辭 -- 246,340
|
||||
0xA6E1 0x4E08 # 丈 -- 246,341
|
||||
0xA6E2 0x526F # 副 -- 246,342
|
||||
0xA6E3 0x5433 # 吳 -- 246,343
|
||||
0xA6E4 0x8B00 # 謀 -- 246,344
|
||||
0xA6E5 0x914D # 配 -- 246,345
|
||||
0xA6E6 0x984F # 顏 -- 246,346
|
||||
0xA6E7 0x526A # 剪 -- 246,347
|
||||
0xA6E8 0x9042 # 遂 -- 246,350
|
||||
0xA6E9 0x76E4 # 盤 -- 246,351
|
||||
0xA6EA 0x5B54 # 孔 -- 246,352
|
||||
0xA6EB 0x9694 # 隔 -- 246,353
|
||||
0xA6EC 0x68D2 # 棒 -- 246,354
|
||||
0xA6ED 0x4FB5 # 侵 -- 246,355
|
||||
0xA6EE 0x7981 # 禁 -- 246,356
|
||||
0xA6EF 0x5976 # 奶 -- 246,357
|
||||
0xA6F0 0x5077 # 偷 -- 246,360
|
||||
0xA6F1 0x8EDF # 軟 -- 246,361
|
||||
0xA6F2 0x978B # 鞋 -- 246,362
|
||||
0xA6F3 0x888B # 袋 -- 246,363
|
||||
0xA6F4 0x73E0 # 珠 -- 246,364
|
||||
0xA6F5 0x6CE2 # 波 -- 246,365
|
||||
0xA6F6 0x7259 # 牙 -- 246,366
|
||||
0xA6F7 0x722C # 爬 -- 246,367
|
||||
0xA6F8 0x4E59 # 乙 -- 246,370
|
||||
0xA6F9 0x52E4 # 勤 -- 246,371
|
||||
0xA6FA 0x9B6F # 魯 -- 246,372
|
||||
0xA6FB 0x512A # 優 -- 246,373
|
||||
0xA6FC 0x7F75 # 罵 -- 246,374
|
||||
0xA6FD 0x535A # 博 -- 246,375
|
||||
0xA6FE 0x8FF0 # 述 -- 246,376
|
||||
191
unicode/xerox/unihan/XCCS-247=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-247=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "247" UNIHAN
|
||||
|
||||
0xA721 0x8D0A # 贊 -- 247,041
|
||||
0xA722 0x7248 # 版 -- 247,042
|
||||
0xA723 0x6B98 # 殘 -- 247,043
|
||||
0xA724 0x6D6A # 浪 -- 247,044
|
||||
0xA725 0x596A # 奪 -- 247,045
|
||||
0xA726 0x4EC1 # 仁 -- 247,046
|
||||
0xA727 0x812B # 脫 -- 247,047
|
||||
0xA728 0x6B32 # 欲 -- 247,050
|
||||
0xA729 0x594F # 奏 -- 247,051
|
||||
0xA72A 0x6ED1 # 滑 -- 247,052
|
||||
0xA72B 0x7246 # 牆 -- 247,053
|
||||
0xA72C 0x964D # 降 -- 247,054
|
||||
0xA72D 0x6E21 # 渡 -- 247,055
|
||||
0xA72E 0x50C5 # 僅 -- 247,056
|
||||
0xA72F 0x96F6 # 零 -- 247,057
|
||||
0xA730 0x6A21 # 模 -- 247,060
|
||||
0xA731 0x5F69 # 彩 -- 247,061
|
||||
0xA732 0x5509 # 唉 -- 247,062
|
||||
0xA733 0x5C64 # 層 -- 247,063
|
||||
0xA734 0x6E1B # 減 -- 247,064
|
||||
0xA735 0x5E3D # 帽 -- 247,065
|
||||
0xA736 0x795D # 祝 -- 247,066
|
||||
0xA737 0x7FFB # 翻 -- 247,067
|
||||
0xA738 0x5922 # 夢 -- 247,070
|
||||
0xA739 0x6101 # 愁 -- 247,071
|
||||
0xA73A 0x6D25 # 津 -- 247,072
|
||||
0xA73B 0x79FB # 移 -- 247,073
|
||||
0xA73C 0x5C3C # 尼 -- 247,074
|
||||
0xA73D 0x5C0A # 尊 -- 247,075
|
||||
0xA73E 0x5E7C # 幼 -- 247,076
|
||||
0xA73F 0x8A69 # 詩 -- 247,077
|
||||
0xA740 0x4ED4 # 仔 -- 247,100
|
||||
0xA741 0x5805 # 堅 -- 247,101
|
||||
0xA742 0x8AA0 # 誠 -- 247,102
|
||||
0xA743 0x80DE # 胞 -- 247,103
|
||||
0xA744 0x69AE # 榮 -- 247,104
|
||||
0xA745 0x6DFA # 淺 -- 247,105
|
||||
0xA746 0x70CF # 烏 -- 247,106
|
||||
0xA747 0x5DE7 # 巧 -- 247,107
|
||||
0xA748 0x5510 # 唐 -- 247,110
|
||||
0xA749 0x96F7 # 雷 -- 247,111
|
||||
0xA74A 0x7169 # 煩 -- 247,112
|
||||
0xA74B 0x7164 # 煤 -- 247,113
|
||||
0xA74C 0x5BF8 # 寸 -- 247,114
|
||||
0xA74D 0x6D89 # 涉 -- 247,115
|
||||
0xA74E 0x8F38 # 輸 -- 247,116
|
||||
0xA74F 0x8332 # 茲 -- 247,117
|
||||
0xA750 0x95B1 # 閱 -- 247,120
|
||||
0xA751 0x8836 # 蠶 -- 247,121
|
||||
0xA752 0x518A # 冊 -- 247,122
|
||||
0xA753 0x4E4F # 乏 -- 247,123
|
||||
0xA754 0x85DD # 藝 -- 247,124
|
||||
0xA755 0x559A # 喚 -- 247,125
|
||||
0xA756 0x90F5 # 郵 -- 247,126
|
||||
0xA757 0x7267 # 牧 -- 247,127
|
||||
0xA758 0x5DE8 # 巨 -- 247,130
|
||||
0xA759 0x614C # 慌 -- 247,131
|
||||
0xA75A 0x6843 # 桃 -- 247,132
|
||||
0xA75B 0x4F5B # 佛 -- 247,133
|
||||
0xA75C 0x596E # 奮 -- 247,134
|
||||
0xA75D 0x74F6 # 瓶 -- 247,135
|
||||
0xA75E 0x8FFD # 追 -- 247,136
|
||||
0xA75F 0x7D1B # 紛 -- 247,137
|
||||
0xA760 0x6C57 # 汗 -- 247,140
|
||||
0xA761 0x5192 # 冒 -- 247,141
|
||||
0xA762 0x59CA # 姊 -- 247,142
|
||||
0xA763 0x96EA # 雪 -- 247,143
|
||||
0xA764 0x585E # 塞 -- 247,144
|
||||
0xA765 0x57DF # 域 -- 247,145
|
||||
0xA766 0x6BEB # 毫 -- 247,146
|
||||
0xA767 0x6DB2 # 液 -- 247,147
|
||||
0xA768 0x667A # 智 -- 247,150
|
||||
0xA769 0x5446 # 呆 -- 247,151
|
||||
0xA76A 0x6E90 # 源 -- 247,152
|
||||
0xA76B 0x8CDE # 賞 -- 247,153
|
||||
0xA76C 0x67F4 # 柴 -- 247,154
|
||||
0xA76D 0x6C60 # 池 -- 247,155
|
||||
0xA76E 0x51C6 # 准 -- 247,156
|
||||
0xA76F 0x72D0 # 狐 -- 247,157
|
||||
0xA770 0x8377 # 荷 -- 247,160
|
||||
0xA771 0x8A2A # 訪 -- 247,161
|
||||
0xA772 0x63DA # 揚 -- 247,162
|
||||
0xA773 0x5049 # 偉 -- 247,163
|
||||
0xA774 0x81E3 # 臣 -- 247,164
|
||||
0xA775 0x66AB # 暫 -- 247,165
|
||||
0xA776 0x5E72 # 干 -- 247,166
|
||||
0xA777 0x64E1 # 擡 -- 247,167
|
||||
0xA778 0x632F # 振 -- 247,170
|
||||
0xA779 0x4F0A # 伊 -- 247,171
|
||||
0xA77A 0x8805 # 蠅 -- 247,172
|
||||
0xA77B 0x7387 # 率 -- 247,173
|
||||
0xA77C 0x62FE # 拾 -- 247,174
|
||||
0xA77D 0x7B56 # 策 -- 247,175
|
||||
0xA77E 0x8CA7 # 貧 -- 247,176
|
||||
0xA7A1 0x640D # 損 -- 247,241
|
||||
0xA7A2 0x5289 # 劉 -- 247,242
|
||||
0xA7A3 0x7897 # 碗 -- 247,243
|
||||
0xA7A4 0x5EF3 # 廳 -- 247,244
|
||||
0xA7A5 0x6DE1 # 淡 -- 247,245
|
||||
0xA7A6 0x74DC # 瓜 -- 247,246
|
||||
0xA7A7 0x63A2 # 探 -- 247,247
|
||||
0xA7A8 0x677E # 松 -- 247,250
|
||||
0xA7A9 0x907F # 避 -- 247,251
|
||||
0xA7AA 0x60DF # 惟 -- 247,252
|
||||
0xA7AB 0x7CFB # 系 -- 247,253
|
||||
0xA7AC 0x8C46 # 豆 -- 247,254
|
||||
0xA7AD 0x6234 # 戴 -- 247,255
|
||||
0xA7AE 0x871C # 蜜 -- 247,256
|
||||
0xA7AF 0x6B20 # 欠 -- 247,257
|
||||
0xA7B0 0x8B02 # 謂 -- 247,260
|
||||
0xA7B1 0x885D # 衝 -- 247,261
|
||||
0xA7B2 0x5FE0 # 忠 -- 247,262
|
||||
0xA7B3 0x8015 # 耕 -- 247,263
|
||||
0xA7B4 0x5154 # 兔 -- 247,264
|
||||
0xA7B5 0x4E8E # 于 -- 247,265
|
||||
0xA7B6 0x6696 # 暖 -- 247,266
|
||||
0xA7B7 0x7375 # 獵 -- 247,267
|
||||
0xA7B8 0x50D1 # 僑 -- 247,270
|
||||
0xA7B9 0x8216 # 舖 -- 247,271
|
||||
0xA7BA 0x6191 # 憑 -- 247,272
|
||||
0xA7BB 0x6148 # 慈 -- 247,273
|
||||
0xA7BC 0x707D # 災 -- 247,274
|
||||
0xA7BD 0x64AD # 播 -- 247,275
|
||||
0xA7BE 0x89BD # 覽 -- 247,276
|
||||
0xA7BF 0x9304 # 錄 -- 247,277
|
||||
0xA7C0 0x6CF0 # 泰 -- 247,300
|
||||
0xA7C1 0x925B # 鉛 -- 247,301
|
||||
0xA7C2 0x75BE # 疾 -- 247,302
|
||||
0xA7C3 0x73BB # 玻 -- 247,303
|
||||
0xA7C4 0x7A3B # 稻 -- 247,304
|
||||
0xA7C5 0x4FAE # 侮 -- 247,305
|
||||
0xA7C6 0x50B5 # 債 -- 247,306
|
||||
0xA7C7 0x5237 # 刷 -- 247,307
|
||||
0xA7C8 0x8352 # 荒 -- 247,310
|
||||
0xA7C9 0x8108 # 脈 -- 247,311
|
||||
0xA7CA 0x8AA4 # 誤 -- 247,312
|
||||
0xA7CB 0x5141 # 允 -- 247,313
|
||||
0xA7CC 0x5954 # 奔 -- 247,314
|
||||
0xA7CD 0x809A # 肚 -- 247,315
|
||||
0xA7CE 0x7E69 # 繩 -- 247,316
|
||||
0xA7CF 0x90CE # 郎 -- 247,317
|
||||
0xA7D0 0x61F7 # 懷 -- 247,320
|
||||
0xA7D1 0x8667 # 虧 -- 247,321
|
||||
0xA7D2 0x5272 # 割 -- 247,322
|
||||
0xA7D3 0x9589 # 閉 -- 247,323
|
||||
0xA7D4 0x9010 # 逐 -- 247,324
|
||||
0xA7D5 0x984D # 額 -- 247,325
|
||||
0xA7D6 0x9920 # 餠 -- 247,326
|
||||
0xA7D7 0x7210 # 爐 -- 247,327
|
||||
0xA7D8 0x64FA # 擺 -- 247,330
|
||||
0xA7D9 0x868A # 蚊 -- 247,331
|
||||
0xA7DA 0x8A73 # 詳 -- 247,332
|
||||
0xA7DB 0x9072 # 遲 -- 247,333
|
||||
0xA7DC 0x865B # 虛 -- 247,334
|
||||
0xA7DD 0x606D # 恭 -- 247,335
|
||||
0xA7DE 0x9F3B # 鼻 -- 247,336
|
||||
0xA7DF 0x9D09 # 鴉 -- 247,337
|
||||
0xA7E0 0x61B2 # 憲 -- 247,340
|
||||
0xA7E1 0x7A81 # 突 -- 247,341
|
||||
0xA7E2 0x79C0 # 秀 -- 247,342
|
||||
0xA7E3 0x5806 # 堆 -- 247,343
|
||||
0xA7E4 0x9913 # 餓 -- 247,344
|
||||
0xA7E5 0x64E6 # 擦 -- 247,345
|
||||
0xA7E6 0x4ECB # 介 -- 247,346
|
||||
0xA7E7 0x4F54 # 佔 -- 247,347
|
||||
0xA7E8 0x4E95 # 井 -- 247,350
|
||||
0xA7E9 0x6247 # 扇 -- 247,351
|
||||
0xA7EA 0x8A55 # 評 -- 247,352
|
||||
0xA7EB 0x8CCA # 賊 -- 247,353
|
||||
0xA7EC 0x6108 # 愈 -- 247,354
|
||||
0xA7ED 0x4EAB # 享 -- 247,355
|
||||
0xA7EE 0x7763 # 督 -- 247,356
|
||||
0xA7EF 0x78E8 # 磨 -- 247,357
|
||||
0xA7F0 0x798D # 禍 -- 247,360
|
||||
0xA7F1 0x7372 # 獲 -- 247,361
|
||||
0xA7F2 0x72AF # 犯 -- 247,362
|
||||
0xA7F3 0x5BA6 # 宦 -- 247,363
|
||||
0xA7F4 0x5957 # 套 -- 247,364
|
||||
0xA7F5 0x85A9 # 薩 -- 247,365
|
||||
0xA7F6 0x7F3A # 缺 -- 247,366
|
||||
0xA7F7 0x80A1 # 股 -- 247,367
|
||||
0xA7F8 0x7D22 # 索 -- 247,370
|
||||
0xA7F9 0x5287 # 劇 -- 247,371
|
||||
0xA7FA 0x57F7 # 執 -- 247,372
|
||||
0xA7FB 0x6F01 # 漁 -- 247,373
|
||||
0xA7FC 0x67D3 # 染 -- 247,374
|
||||
0xA7FD 0x5360 # 占 -- 247,375
|
||||
0xA7FE 0x8C9D # 貝 -- 247,376
|
||||
190
unicode/xerox/unihan/XCCS-250=UNIHAN.TXT
Normal file
190
unicode/xerox/unihan/XCCS-250=UNIHAN.TXT
Normal file
@@ -0,0 +1,190 @@
|
||||
|
||||
# "250" UNIHAN
|
||||
|
||||
0xA821 0x6478 # 摸 -- 250,041
|
||||
0xA822 0x63EE # 揮 -- 250,042
|
||||
0xA823 0x7AF6 # 競 -- 250,043
|
||||
0xA824 0x543E # 吾 -- 250,044
|
||||
0xA825 0x6DBC # 涼 -- 250,045
|
||||
0xA826 0x737B # 獻 -- 250,046
|
||||
0xA827 0x731B # 猛 -- 250,047
|
||||
0xA828 0x820D # 舍 -- 250,050
|
||||
0xA829 0x6355 # 捕 -- 250,051
|
||||
0xA82A 0x8EB1 # 躱 -- 250,052
|
||||
0xA82B 0x87FB # 蟻 -- 250,053
|
||||
0xA82C 0x76DC # 盜 -- 250,054
|
||||
0xA82D 0x7A40 # 穀 -- 250,055
|
||||
0xA82E 0x5361 # 卡 -- 250,056
|
||||
0xA830 0x71D5 # 燕 -- 250,060
|
||||
0xA831 0x5B9C # 宜 -- 250,061
|
||||
0xA832 0x5EF6 # 延 -- 250,062
|
||||
0xA833 0x4EF0 # 仰 -- 250,063
|
||||
0xA834 0x5F90 # 徐 -- 250,064
|
||||
0xA835 0x6350 # 捐 -- 250,065
|
||||
0xA836 0x778E # 瞎 -- 250,066
|
||||
0xA837 0x642C # 搬 -- 250,067
|
||||
0xA838 0x5687 # 嚇 -- 250,070
|
||||
0xA839 0x7B52 # 筒 -- 250,071
|
||||
0xA83A 0x6F6E # 潮 -- 250,072
|
||||
0xA83B 0x58A8 # 墨 -- 250,073
|
||||
0xA83C 0x8AD2 # 諒 -- 250,074
|
||||
0xA83D 0x6065 # 恥 -- 250,075
|
||||
0xA83E 0x7C4D # 籍 -- 250,076
|
||||
0xA83F 0x73CD # 珍 -- 250,077
|
||||
0xA840 0x68EE # 森 -- 250,100
|
||||
0xA841 0x5409 # 吉 -- 250,101
|
||||
0xA842 0x9D72 # 鵲 -- 250,102
|
||||
0xA843 0x8E0F # 踏 -- 250,103
|
||||
0xA844 0x5B64 # 孤 -- 250,104
|
||||
0xA845 0x7533 # 申 -- 250,105
|
||||
0xA846 0x62BD # 抽 -- 250,106
|
||||
0xA847 0x8B6F # 譯 -- 250,107
|
||||
0xA848 0x65A4 # 斤 -- 250,110
|
||||
0xA849 0x63F4 # 援 -- 250,111
|
||||
0xA84A 0x4E5E # 乞 -- 250,112
|
||||
0xA84B 0x89F8 # 觸 -- 250,113
|
||||
0xA84C 0x96C5 # 雅 -- 250,114
|
||||
0xA84D 0x7D17 # 紗 -- 250,115
|
||||
0xA84E 0x60B2 # 悲 -- 250,116
|
||||
0xA84F 0x4ED7 # 仗 -- 250,117
|
||||
0xA850 0x694A # 楊 -- 250,120
|
||||
0xA851 0x4F34 # 伴 -- 250,121
|
||||
0xA852 0x5178 # 典 -- 250,122
|
||||
0xA853 0x8085 # 肅 -- 250,123
|
||||
0xA854 0x65E8 # 旨 -- 250,124
|
||||
0xA855 0x86C7 # 蛇 -- 250,125
|
||||
0xA856 0x900F # 透 -- 250,126
|
||||
0xA857 0x7483 # 璃 -- 250,127
|
||||
0xA858 0x77E3 # 矣 -- 250,130
|
||||
0xA859 0x5B8B # 宋 -- 250,131
|
||||
0xA85A 0x4E01 # 丁 -- 250,132
|
||||
0xA85B 0x9EB5 # 麵 -- 250,133
|
||||
0xA85C 0x6436 # 搶 -- 250,134
|
||||
0xA85D 0x76C6 # 盆 -- 250,135
|
||||
0xA85E 0x96C0 # 雀 -- 250,136
|
||||
0xA85F 0x660C # 昌 -- 250,137
|
||||
0xA860 0x9326 # 錦 -- 250,140
|
||||
0xA861 0x54AC # 咬 -- 250,141
|
||||
0xA862 0x6DF7 # 混 -- 250,142
|
||||
0xA863 0x7334 # 猴 -- 250,143
|
||||
0xA864 0x4E91 # 云 -- 250,144
|
||||
0xA865 0x64B2 # 撲 -- 250,145
|
||||
0xA866 0x59FB # 姻 -- 250,146
|
||||
0xA867 0x7E41 # 繁 -- 250,147
|
||||
0xA868 0x5224 # 判 -- 250,150
|
||||
0xA869 0x7E31 # 縱 -- 250,151
|
||||
0xA86A 0x60A8 # 您 -- 250,152
|
||||
0xA86B 0x642D # 搭 -- 250,153
|
||||
0xA86C 0x9B3C # 鬼 -- 250,154
|
||||
0xA86D 0x79DF # 租 -- 250,155
|
||||
0xA86E 0x6170 # 慰 -- 250,156
|
||||
0xA86F 0x6A19 # 標 -- 250,157
|
||||
0xA870 0x5410 # 吐 -- 250,160
|
||||
0xA871 0x6298 # 折 -- 250,161
|
||||
0xA872 0x6182 # 憂 -- 250,162
|
||||
0xA873 0x78C1 # 磁 -- 250,163
|
||||
0xA874 0x5F92 # 徒 -- 250,164
|
||||
0xA875 0x609F # 悟 -- 250,165
|
||||
0xA876 0x6276 # 扶 -- 250,166
|
||||
0xA877 0x81A0 # 膠 -- 250,167
|
||||
0xA878 0x5708 # 圈 -- 250,170
|
||||
0xA879 0x79D8 # 秘 -- 250,171
|
||||
0xA87A 0x963B # 阻 -- 250,172
|
||||
0xA87B 0x60A3 # 患 -- 250,173
|
||||
0xA87C 0x8CBC # 貼 -- 250,174
|
||||
0xA87D 0x62EC # 括 -- 250,175
|
||||
0xA87E 0x6F51 # 潑 -- 250,176
|
||||
0xA8A1 0x7434 # 琴 -- 250,241
|
||||
0xA8A2 0x7A0D # 稍 -- 250,242
|
||||
0xA8A3 0x58EF # 壯 -- 250,243
|
||||
0xA8A4 0x8036 # 耶 -- 250,244
|
||||
0xA8A5 0x7FC1 # 翁 -- 250,245
|
||||
0xA8A6 0x687F # 桿 -- 250,246
|
||||
0xA8A7 0x60B6 # 悶 -- 250,247
|
||||
0xA8A8 0x8D81 # 趁 -- 250,250
|
||||
0xA8A9 0x62D6 # 拖 -- 250,251
|
||||
0xA8AA 0x61C2 # 懂 -- 250,252
|
||||
0xA8AB 0x8DCC # 跌 -- 250,253
|
||||
0xA8AC 0x9D28 # 鴨 -- 250,254
|
||||
0xA8AD 0x50F1 # 僱 -- 250,255
|
||||
0xA8AE 0x8F29 # 輩 -- 250,256
|
||||
0xA8AF 0x7C60 # 籠 -- 250,257
|
||||
0xA8B0 0x7E5E # 繞 -- 250,260
|
||||
0xA8B1 0x88C1 # 裁 -- 250,261
|
||||
0xA8B2 0x59A5 # 妥 -- 250,262
|
||||
0xA8B3 0x5857 # 塗 -- 250,263
|
||||
0xA8B4 0x6127 # 愧 -- 250,264
|
||||
0xA8B5 0x84BC # 蒼 -- 250,265
|
||||
0xA8B6 0x9A0E # 騎 -- 250,266
|
||||
0xA8B7 0x8CC0 # 賀 -- 250,267
|
||||
0xA8B8 0x8247 # 艇 -- 250,270
|
||||
0xA8B9 0x9A19 # 騙 -- 250,271
|
||||
0xA8BA 0x91D8 # 釘 -- 250,272
|
||||
0xA8BB 0x6905 # 椅 -- 250,273
|
||||
0xA8BC 0x5475 # 呵 -- 250,274
|
||||
0xA8BD 0x64C7 # 擇 -- 250,275
|
||||
0xA8BE 0x6DFB # 添 -- 250,276
|
||||
0xA8BF 0x6070 # 恰 -- 250,277
|
||||
0xA8C0 0x504F # 偏 -- 250,300
|
||||
0xA8C1 0x66C6 # 曆 -- 250,301
|
||||
0xA8C2 0x6FD5 # 濕 -- 250,302
|
||||
0xA8C3 0x7DB2 # 網 -- 250,303
|
||||
0xA8C4 0x6C6A # 汪 -- 250,304
|
||||
0xA8C5 0x59A8 # 妨 -- 250,305
|
||||
0xA8C6 0x6D2A # 洪 -- 250,306
|
||||
0xA8C7 0x72FC # 狼 -- 250,307
|
||||
0xA8C8 0x7C97 # 粗 -- 250,310
|
||||
0xA8C9 0x5021 # 倡 -- 250,311
|
||||
0xA8CA 0x99D0 # 駐 -- 250,312
|
||||
0xA8CB 0x7621 # 瘡 -- 250,313
|
||||
0xA8CC 0x66F0 # 曰 -- 250,314
|
||||
0xA8CD 0x67CF # 柏 -- 250,315
|
||||
0xA8CE 0x51FD # 函 -- 250,316
|
||||
0xA8CF 0x63E1 # 握 -- 250,317
|
||||
0xA8D0 0x6158 # 慘 -- 250,320
|
||||
0xA8D1 0x5EF7 # 廷 -- 250,321
|
||||
0xA8D2 0x6842 # 桂 -- 250,322
|
||||
0xA8D3 0x4EC7 # 仇 -- 250,323
|
||||
0xA8D4 0x4E1F # 丟 -- 250,324
|
||||
0xA8D5 0x6BBC # 殼 -- 250,325
|
||||
0xA8D6 0x9178 # 酸 -- 250,326
|
||||
0xA8D7 0x805A # 聚 -- 250,327
|
||||
0xA8D8 0x5C62 # 屢 -- 250,330
|
||||
0xA8D9 0x9F52 # 齒 -- 250,331
|
||||
0xA8DA 0x6691 # 暑 -- 250,332
|
||||
0xA8DB 0x5C16 # 尖 -- 250,333
|
||||
0xA8DC 0x6279 # 批 -- 250,334
|
||||
0xA8DD 0x5617 # 嘗 -- 250,335
|
||||
0xA8DE 0x500D # 倍 -- 250,336
|
||||
0xA8DF 0x82D7 # 苗 -- 250,337
|
||||
0xA8E0 0x5606 # 嘆 -- 250,340
|
||||
0xA8E1 0x968E # 階 -- 250,341
|
||||
0xA8E2 0x6212 # 戒 -- 250,342
|
||||
0xA8E3 0x81BD # 膽 -- 250,343
|
||||
0xA8E4 0x731C # 猜 -- 250,344
|
||||
0xA8E5 0x5984 # 妄 -- 250,345
|
||||
0xA8E6 0x724C # 牌 -- 250,346
|
||||
0xA8E7 0x7832 # 砲 -- 250,347
|
||||
0xA8E8 0x8D99 # 趙 -- 250,350
|
||||
0xA8E9 0x62C6 # 拆 -- 250,351
|
||||
0xA8EA 0x8205 # 舅 -- 250,352
|
||||
0xA8EB 0x7BB1 # 箱 -- 250,353
|
||||
0xA8EC 0x9E7F # 鹿 -- 250,354
|
||||
0xA8ED 0x8FB1 # 辱 -- 250,355
|
||||
0xA8EE 0x755C # 畜 -- 250,356
|
||||
0xA8EF 0x8776 # 蝶 -- 250,357
|
||||
0xA8F0 0x6258 # 托 -- 250,360
|
||||
0xA8F1 0x5269 # 剩 -- 250,361
|
||||
0xA8F2 0x5375 # 卵 -- 250,362
|
||||
0xA8F3 0x8170 # 腰 -- 250,363
|
||||
0xA8F4 0x52FF # 勿 -- 250,364
|
||||
0xA8F5 0x91CB # 釋 -- 250,365
|
||||
0xA8F6 0x53EC # 召 -- 250,366
|
||||
0xA8F7 0x6CC9 # 泉 -- 250,367
|
||||
0xA8F8 0x6069 # 恩 -- 250,370
|
||||
0xA8F9 0x4F10 # 伐 -- 250,371
|
||||
0xA8FA 0x5B5D # 孝 -- 250,372
|
||||
0xA8FB 0x6F5B # 潛 -- 250,373
|
||||
0xA8FC 0x6F0F # 漏 -- 250,374
|
||||
0xA8FD 0x5BEE # 寮 -- 250,375
|
||||
0xA8FE 0x6280 # 技 -- 250,376
|
||||
190
unicode/xerox/unihan/XCCS-251=UNIHAN.TXT
Normal file
190
unicode/xerox/unihan/XCCS-251=UNIHAN.TXT
Normal file
@@ -0,0 +1,190 @@
|
||||
|
||||
# "251" UNIHAN
|
||||
|
||||
0xA921 0x74E6 # 瓦 -- 251,041
|
||||
0xA922 0x5BEC # 寬 -- 251,042
|
||||
0xA923 0x63D2 # 插 -- 251,043
|
||||
0xA924 0x9811 # 頑 -- 251,044
|
||||
0xA925 0x5A36 # 娶 -- 251,045
|
||||
0xA926 0x69CB # 構 -- 251,046
|
||||
0xA927 0x5EC9 # 廉 -- 251,047
|
||||
0xA928 0x906D # 遭 -- 251,050
|
||||
0xA929 0x68A7 # 梧 -- 251,051
|
||||
0xA92A 0x5BE9 # 審 -- 251,052
|
||||
0xA92B 0x786C # 硬 -- 251,053
|
||||
0xA92C 0x528D # 劍 -- 251,054
|
||||
0xA92D 0x64A5 # 撥 -- 251,055
|
||||
0xA92E 0x6293 # 抓 -- 251,056
|
||||
0xA92F 0x8C8C # 貌 -- 251,057
|
||||
0xA930 0x8CE2 # 賢 -- 251,060
|
||||
0xA931 0x8D64 # 赤 -- 251,061
|
||||
0xA932 0x721B # 爛 -- 251,062
|
||||
0xA933 0x879E # 螞 -- 251,063
|
||||
0xA934 0x8FF7 # 迷 -- 251,064
|
||||
0xA935 0x99D5 # 駕 -- 251,065
|
||||
0xA936 0x817F # 腿 -- 251,066
|
||||
0xA937 0x8DE1 # 跡 -- 251,067
|
||||
0xA938 0x6736 # 朶 -- 251,070
|
||||
0xA939 0x4FF1 # 俱 -- 251,071
|
||||
0xA93A 0x92B7 # 銷 -- 251,072
|
||||
0xA93B 0x98FD # 飽 -- 251,073
|
||||
0xA93C 0x5BBF # 宿 -- 251,074
|
||||
0xA93D 0x8523 # 蔣 -- 251,075
|
||||
0xA93E 0x52C9 # 勉 -- 251,076
|
||||
0xA93F 0x8010 # 耐 -- 251,077
|
||||
0xA940 0x9677 # 陷 -- 251,100
|
||||
0xA941 0x8569 # 蕩 -- 251,101
|
||||
0xA942 0x4F69 # 佩 -- 251,102
|
||||
0xA943 0x78B0 # 碰 -- 251,103
|
||||
0xA944 0x65CB # 旋 -- 251,104
|
||||
0xA945 0x68C4 # 棄 -- 251,105
|
||||
0xA946 0x84C4 # 蓄 -- 251,106
|
||||
0xA947 0x9ED8 # 默 -- 251,107
|
||||
0xA948 0x9CF4 # 鳴 -- 251,110
|
||||
0xA949 0x7DBF # 綿 -- 251,111
|
||||
0xA94A 0x6D59 # 浙 -- 251,112
|
||||
0xA94B 0x55AA # 喪 -- 251,113
|
||||
0xA94C 0x8A17 # 託 -- 251,114
|
||||
0xA94D 0x8907 # 複 -- 251,115
|
||||
0xA94E 0x9214 # 鈔 -- 251,116
|
||||
0xA94F 0x7272 # 牲 -- 251,117
|
||||
0xA950 0x8CAB # 貫 -- 251,120
|
||||
0xA951 0x9B06 # 鬆 -- 251,121
|
||||
0xA952 0x95D6 # 闖 -- 251,122
|
||||
0xA953 0x81E5 # 臥 -- 251,123
|
||||
0xA954 0x7E2E # 縮 -- 251,124
|
||||
0xA955 0x6155 # 慕 -- 251,125
|
||||
0xA956 0x7345 # 獅 -- 251,126
|
||||
0xA957 0x77EE # 矮 -- 251,127
|
||||
0xA958 0x5308 # 匈 -- 251,130
|
||||
0xA959 0x50D5 # 僕 -- 251,131
|
||||
0xA95A 0x9583 # 閃 -- 251,132
|
||||
0xA95B 0x7D39 # 紹 -- 251,133
|
||||
0xA95C 0x70AD # 炭 -- 251,134
|
||||
0xA95D 0x552E # 售 -- 251,135
|
||||
0xA95E 0x878D # 融 -- 251,136
|
||||
0xA95F 0x52D2 # 勒 -- 251,137
|
||||
0xA960 0x8D85 # 超 -- 251,140
|
||||
0xA961 0x72C2 # 狂 -- 251,141
|
||||
0xA962 0x6EFE # 滾 -- 251,142
|
||||
0xA963 0x64A4 # 撤 -- 251,143
|
||||
0xA964 0x6597 # 斗 -- 251,144
|
||||
0xA965 0x5448 # 呈 -- 251,145
|
||||
0xA966 0x4E88 # 予 -- 251,146
|
||||
0xA967 0x52F5 # 勵 -- 251,147
|
||||
0xA968 0x788E # 碎 -- 251,150
|
||||
0xA969 0x8B39 # 謹 -- 251,151
|
||||
0xA96A 0x716E # 煮 -- 251,152
|
||||
0xA96B 0x60E0 # 惠 -- 251,153
|
||||
0xA96C 0x57E0 # 埠 -- 251,154
|
||||
0xA96D 0x8F1B # 輛 -- 251,155
|
||||
0xA96E 0x9077 # 遷 -- 251,156
|
||||
0xA96F 0x5320 # 匠 -- 251,157
|
||||
0xA970 0x5132 # 儲 -- 251,160
|
||||
0xA971 0x9DF9 # 鷹 -- 251,161
|
||||
0xA972 0x8461 # 葡 -- 251,162
|
||||
0xA973 0x62D4 # 拔 -- 251,163
|
||||
0xA974 0x7C3D # 簽 -- 251,164
|
||||
0xA975 0x7DD6 # 緖 -- 251,165
|
||||
0xA976 0x8F49 # 轉 -- 251,166
|
||||
0xA977 0x5E33 # 帳 -- 251,167
|
||||
0xA978 0x8D08 # 贈 -- 251,170
|
||||
0xA979 0x6731 # 朱 -- 251,171
|
||||
0xA97A 0x8B6C # 譬 -- 251,172
|
||||
0xA97B 0x58FD # 壽 -- 251,173
|
||||
0xA97C 0x64F4 # 擴 -- 251,174
|
||||
0xA97D 0x5948 # 奈 -- 251,175
|
||||
0xA97E 0x5147 # 兇 -- 251,176
|
||||
0xA9A1 0x9D5D # 鵝 -- 251,241
|
||||
0xA9A2 0x95A3 # 閣 -- 251,242
|
||||
0xA9A3 0x53AD # 厭 -- 251,243
|
||||
0xA9A4 0x7F70 # 罰 -- 251,244
|
||||
0xA9A5 0x7378 # 獸 -- 251,245
|
||||
0xA9A6 0x71C3 # 燃 -- 251,246
|
||||
0xA9A7 0x5AC1 # 嫁 -- 251,247
|
||||
0xA9A8 0x8CAA # 貪 -- 251,250
|
||||
0xA9A9 0x9592 # 閒 -- 251,251
|
||||
0xA9AA 0x9015 # 逕 -- 251,252
|
||||
0xA9AB 0x98C4 # 飄 -- 251,253
|
||||
0xA9AC 0x67F3 # 柳 -- 251,254
|
||||
0xA9AD 0x718A # 熊 -- 251,255
|
||||
0xA9AE 0x660F # 昏 -- 251,256
|
||||
0xA9AF 0x9707 # 震 -- 251,257
|
||||
0xA9B0 0x5F91 # 徑 -- 251,260
|
||||
0xA9B1 0x9119 # 鄙 -- 251,261
|
||||
0xA9B2 0x615A # 慚 -- 251,262
|
||||
0xA9B3 0x4FC3 # 促 -- 251,263
|
||||
0xA9B4 0x7720 # 眠 -- 251,264
|
||||
0xA9B6 0x819A # 膚 -- 251,266
|
||||
0xA9B7 0x81C2 # 臂 -- 251,267
|
||||
0xA9B8 0x65F1 # 旱 -- 251,270
|
||||
0xA9B9 0x621A # 戚 -- 251,271
|
||||
0xA9BA 0x66EC # 曬 -- 251,272
|
||||
0xA9BB 0x906E # 遮 -- 251,273
|
||||
0xA9BC 0x85AA # 薪 -- 251,274
|
||||
0xA9BD 0x4E73 # 乳 -- 251,275
|
||||
0xA9BE 0x98FE # 飾 -- 251,276
|
||||
0xA9BF 0x67D4 # 柔 -- 251,277
|
||||
0xA9C0 0x593E # 夾 -- 251,300
|
||||
0xA9C1 0x6649 # 晉 -- 251,301
|
||||
0xA9C2 0x88F3 # 裳 -- 251,302
|
||||
0xA9C3 0x7AA9 # 窩 -- 251,303
|
||||
0xA9C4 0x9686 # 隆 -- 251,304
|
||||
0xA9C5 0x5F79 # 役 -- 251,305
|
||||
0xA9C6 0x9817 # 頗 -- 251,306
|
||||
0xA9C7 0x6E6F # 湯 -- 251,307
|
||||
0xA9C8 0x8CA2 # 貢 -- 251,310
|
||||
0xA9C9 0x8B7D # 譽 -- 251,311
|
||||
0xA9CA 0x50DE # 僞 -- 251,312
|
||||
0xA9CB 0x7C4C # 籌 -- 251,313
|
||||
0xA9CC 0x7D14 # 純 -- 251,314
|
||||
0xA9CD 0x7C92 # 粒 -- 251,315
|
||||
0xA9CE 0x6D6E # 浮 -- 251,316
|
||||
0xA9CF 0x8FEA # 迪 -- 251,317
|
||||
0xA9D0 0x5EDF # 廟 -- 251,320
|
||||
0xA9D1 0x6838 # 核 -- 251,321
|
||||
0xA9D2 0x96B8 # 隸 -- 251,322
|
||||
0xA9D3 0x616E # 慮 -- 251,323
|
||||
0xA9D4 0x83CC # 菌 -- 251,324
|
||||
0xA9D5 0x62FC # 拼 -- 251,325
|
||||
0xA9D6 0x5DFE # 巾 -- 251,326
|
||||
0xA9D7 0x8EAC # 躬 -- 251,327
|
||||
0xA9D8 0x611A # 愚 -- 251,330
|
||||
0xA9D9 0x7DE9 # 緩 -- 251,331
|
||||
0xA9DA 0x5377 # 卷 -- 251,332
|
||||
0xA9DB 0x7D2F # 累 -- 251,333
|
||||
0xA9DC 0x7C3F # 簿 -- 251,334
|
||||
0xA9DD 0x654D # 敍 -- 251,335
|
||||
0xA9DE 0x95E2 # 闢 -- 251,336
|
||||
0xA9DF 0x8E7A # 蹺 -- 251,337
|
||||
0xA9E0 0x4F01 # 企 -- 251,340
|
||||
0xA9E1 0x5C48 # 屈 -- 251,341
|
||||
0xA9E2 0x727D # 牽 -- 251,342
|
||||
0xA9E3 0x5AB3 # 媳 -- 251,343
|
||||
0xA9E4 0x7FBD # 羽 -- 251,344
|
||||
0xA9E5 0x7DA2 # 綢 -- 251,345
|
||||
0xA9E6 0x8CDC # 賜 -- 251,346
|
||||
0xA9E7 0x845B # 葛 -- 251,347
|
||||
0xA9E8 0x6F06 # 漆 -- 251,350
|
||||
0xA9E9 0x517C # 兼 -- 251,351
|
||||
0xA9EA 0x57F9 # 培 -- 251,352
|
||||
0xA9EB 0x8CE0 # 賠 -- 251,353
|
||||
0xA9EC 0x9234 # 鈴 -- 251,354
|
||||
0xA9ED 0x5EDA # 廚 -- 251,355
|
||||
0xA9EE 0x947D # 鑽 -- 251,356
|
||||
0xA9EF 0x68F5 # 棵 -- 251,357
|
||||
0xA9F0 0x8FD4 # 返 -- 251,360
|
||||
0xA9F1 0x8C37 # 谷 -- 251,361
|
||||
0xA9F2 0x7336 # 猶 -- 251,362
|
||||
0xA9F3 0x7E61 # 繡 -- 251,363
|
||||
0xA9F4 0x53DB # 叛 -- 251,364
|
||||
0xA9F5 0x5435 # 吵 -- 251,365
|
||||
0xA9F6 0x5996 # 妖 -- 251,366
|
||||
0xA9F7 0x54B1 # 咱 -- 251,367
|
||||
0xA9F8 0x9022 # 逢 -- 251,370
|
||||
0xA9F9 0x8896 # 袖 -- 251,371
|
||||
0xA9FA 0x5F81 # 征 -- 251,372
|
||||
0xA9FB 0x683D # 栽 -- 251,373
|
||||
0xA9FC 0x5339 # 匹 -- 251,374
|
||||
0xA9FD 0x5DE1 # 巡 -- 251,375
|
||||
0xA9FE 0x52A3 # 劣 -- 251,376
|
||||
190
unicode/xerox/unihan/XCCS-252=UNIHAN.TXT
Normal file
190
unicode/xerox/unihan/XCCS-252=UNIHAN.TXT
Normal file
@@ -0,0 +1,190 @@
|
||||
|
||||
# "252" UNIHAN
|
||||
|
||||
0xAA21 0x62D2 # 拒 -- 252,041
|
||||
0xAA22 0x540F # 吏 -- 252,042
|
||||
0xAA23 0x7709 # 眉 -- 252,043
|
||||
0xAA24 0x7A69 # 穩 -- 252,044
|
||||
0xAA25 0x54C0 # 哀 -- 252,045
|
||||
0xAA26 0x5DBA # 嶺 -- 252,046
|
||||
0xAA27 0x8C9E # 貞 -- 252,047
|
||||
0xAA28 0x7262 # 牢 -- 252,050
|
||||
0xAA29 0x8774 # 蝴 -- 252,051
|
||||
0xAA2A 0x9080 # 邀 -- 252,052
|
||||
0xAA2B 0x6B96 # 殖 -- 252,053
|
||||
0xAA2C 0x6AA2 # 檢 -- 252,054
|
||||
0xAA2D 0x92FC # 鋼 -- 252,055
|
||||
0xAA2E 0x84B8 # 蒸 -- 252,056
|
||||
0xAA2F 0x6548 # 效 -- 252,057
|
||||
0xAA30 0x53EE # 叮 -- 252,060
|
||||
0xAA31 0x8179 # 腹 -- 252,061
|
||||
0xAA32 0x8CED # 賭 -- 252,062
|
||||
0xAA33 0x6094 # 悔 -- 252,063
|
||||
0xAA34 0x9A55 # 驕 -- 252,064
|
||||
0xAA35 0x6F20 # 漠 -- 252,065
|
||||
0xAA36 0x5DBC # 嶼 -- 252,066
|
||||
0xAA37 0x7F72 # 署 -- 252,067
|
||||
0xAA38 0x5E63 # 幣 -- 252,070
|
||||
0xAA39 0x9055 # 違 -- 252,071
|
||||
0xAA3A 0x903C # 逼 -- 252,072
|
||||
0xAA3B 0x6311 # 挑 -- 252,073
|
||||
0xAA3C 0x62F3 # 拳 -- 252,074
|
||||
0xAA3D 0x9B0D # 鬍 -- 252,075
|
||||
0xAA3E 0x613C # 愼 -- 252,076
|
||||
0xAA3F 0x6A13 # 樓 -- 252,077
|
||||
0xAA40 0x7E2B # 縫 -- 252,100
|
||||
0xAA41 0x6BC0 # 毀 -- 252,101
|
||||
0xAA42 0x7CCA # 糊 -- 252,102
|
||||
0xAA43 0x68CD # 棍 -- 252,103
|
||||
0xAA44 0x907C # 遼 -- 252,104
|
||||
0xAA45 0x6388 # 授 -- 252,105
|
||||
0xAA46 0x8150 # 腐 -- 252,106
|
||||
0xAA47 0x651C # 攜 -- 252,107
|
||||
0xAA48 0x5BC2 # 寂 -- 252,110
|
||||
0xAA49 0x51A0 # 冠 -- 252,111
|
||||
0xAA4A 0x7C43 # 籃 -- 252,112
|
||||
0xAA4B 0x6E2C # 測 -- 252,113
|
||||
0xAA4C 0x97D3 # 韓 -- 252,114
|
||||
0xAA4D 0x7586 # 疆 -- 252,115
|
||||
0xAA4E 0x72F8 # 狸 -- 252,116
|
||||
0xAA4F 0x80F8 # 胸 -- 252,117
|
||||
0xAA50 0x97A0 # 鞠 -- 252,120
|
||||
0xAA51 0x64FE # 擾 -- 252,121
|
||||
0xAA52 0x7626 # 瘦 -- 252,122
|
||||
0xAA53 0x9F9C # 龜 -- 252,123
|
||||
0xAA54 0x6084 # 悄 -- 252,124
|
||||
0xAA55 0x61F8 # 懸 -- 252,125
|
||||
0xAA56 0x9951 # 饑 -- 252,126
|
||||
0xAA57 0x6263 # 扣 -- 252,127
|
||||
0xAA58 0x9846 # 顆 -- 252,130
|
||||
0xAA59 0x6674 # 晴 -- 252,131
|
||||
0xAA5A 0x7CB5 # 粵 -- 252,132
|
||||
0xAA5B 0x6572 # 敲 -- 252,133
|
||||
0xAA5C 0x6C41 # 汁 -- 252,134
|
||||
0xAA5D 0x5118 # 儘 -- 252,135
|
||||
0xAA5E 0x520A # 刊 -- 252,136
|
||||
0xAA5F 0x55E3 # 嗣 -- 252,137
|
||||
0xAA60 0x9910 # 餐 -- 252,140
|
||||
0xAA61 0x91AC # 醬 -- 252,141
|
||||
0xAA62 0x7948 # 祈 -- 252,142
|
||||
0xAA63 0x800D # 耍 -- 252,143
|
||||
0xAA64 0x7CD5 # 糕 -- 252,144
|
||||
0xAA65 0x5006 # 倆 -- 252,145
|
||||
0xAA66 0x54C7 # 哇 -- 252,146
|
||||
0xAA67 0x7919 # 礙 -- 252,147
|
||||
0xAA68 0x5740 # 址 -- 252,150
|
||||
0xAA69 0x6458 # 摘 -- 252,151
|
||||
0xAA6A 0x704C # 灌 -- 252,152
|
||||
0xAA6B 0x751C # 甜 -- 252,153
|
||||
0xAA6C 0x72E1 # 狡 -- 252,154
|
||||
0xAA6D 0x8F4E # 轎 -- 252,155
|
||||
0xAA6E 0x5782 # 垂 -- 252,156
|
||||
0xAA6F 0x56D1 # 囑 -- 252,157
|
||||
0xAA70 0x6B8A # 殊 -- 252,160
|
||||
0xAA71 0x8870 # 衰 -- 252,161
|
||||
0xAA72 0x9A45 # 驅 -- 252,162
|
||||
0xAA73 0x8000 # 耀 -- 252,163
|
||||
0xAA74 0x7DDE # 緞 -- 252,164
|
||||
0xAA75 0x6C61 # 污 -- 252,165
|
||||
0xAA76 0x68AF # 梯 -- 252,166
|
||||
0xAA77 0x99DD # 駝 -- 252,167
|
||||
0xAA78 0x64C1 # 擁 -- 252,170
|
||||
0xAA79 0x4E19 # 丙 -- 252,171
|
||||
0xAA7A 0x5AC2 # 嫂 -- 252,172
|
||||
0xAA7B 0x64E0 # 擠 -- 252,173
|
||||
0xAA7C 0x57CB # 埋 -- 252,174
|
||||
0xAA7D 0x820C # 舌 -- 252,175
|
||||
0xAA7E 0x532F # 匯 -- 252,176
|
||||
0xAAA1 0x7B26 # 符 -- 252,241
|
||||
0xAAA2 0x5002 # 倂 -- 252,242
|
||||
0xAAA3 0x88C2 # 裂 -- 252,243
|
||||
0xAAA4 0x8CF4 # 賴 -- 252,244
|
||||
0xAAA5 0x6B47 # 歇 -- 252,245
|
||||
0xAAA6 0x61F6 # 懶 -- 252,246
|
||||
0xAAA7 0x5490 # 咐 -- 252,247
|
||||
0xAAA8 0x511F # 償 -- 252,250
|
||||
0xAAA9 0x76DF # 盟 -- 252,251
|
||||
0xAAAA 0x7A3F # 稿 -- 252,252
|
||||
0xAAAB 0x61B6 # 憶 -- 252,253
|
||||
0xAAAC 0x58BE # 墾 -- 252,254
|
||||
0xAAAD 0x8F5F # 轟 -- 252,255
|
||||
0xAAAE 0x980C # 頌 -- 252,256
|
||||
0xAAAF 0x525D # 剝 -- 252,257
|
||||
0xAAB0 0x563B # 嘻 -- 252,260
|
||||
0xAAB1 0x5076 # 偶 -- 252,261
|
||||
0xAAB2 0x6368 # 捨 -- 252,262
|
||||
0xAAB3 0x6881 # 梁 -- 252,263
|
||||
0xAAB4 0x71ED # 燭 -- 252,264
|
||||
0xAAB5 0x9F61 # 齡 -- 252,265
|
||||
0xAAB6 0x969C # 障 -- 252,266
|
||||
0xAAB7 0x5D07 # 崇 -- 252,267
|
||||
0xAAB8 0x78BC # 碼 -- 252,270
|
||||
0xAAB9 0x8F1D # 輝 -- 252,271
|
||||
0xAABA 0x70B8 # 炸 -- 252,272
|
||||
0xAABB 0x72A7 # 犧 -- 252,273
|
||||
0xAABC 0x60D1 # 惑 -- 252,274
|
||||
0xAABD 0x7FA8 # 羨 -- 252,275
|
||||
0xAABE 0x649E # 撞 -- 252,276
|
||||
0xAABF 0x934A # 鍊 -- 252,277
|
||||
0xAAC0 0x58FA # 壺 -- 252,300
|
||||
0xAAC1 0x4F59 # 余 -- 252,301
|
||||
0xAAC2 0x8FAF # 辯 -- 252,302
|
||||
0xAAC3 0x6ECB # 滋 -- 252,303
|
||||
0xAAC4 0x78C5 # 磅 -- 252,304
|
||||
0xAAC5 0x916C # 酬 -- 252,305
|
||||
0xAAC6 0x9A30 # 騰 -- 252,306
|
||||
0xAAC7 0x7A00 # 稀 -- 252,307
|
||||
0xAAC8 0x9676 # 陶 -- 252,310
|
||||
0xAAC9 0x8404 # 萄 -- 252,311
|
||||
0xAACA 0x8CC8 # 賈 -- 252,312
|
||||
0xAACB 0x9075 # 遵 -- 252,313
|
||||
0xAACC 0x5951 # 契 -- 252,314
|
||||
0xAACD 0x8D74 # 赴 -- 252,315
|
||||
0xAACE 0x638F # 掏 -- 252,316
|
||||
0xAACF 0x60F1 # 惱 -- 252,317
|
||||
0xAAD0 0x86D9 # 蛙 -- 252,320
|
||||
0xAAD1 0x8266 # 艦 -- 252,321
|
||||
0xAAD2 0x8212 # 舒 -- 252,322
|
||||
0xAAD3 0x541E # 吞 -- 252,323
|
||||
0xAAD4 0x64EC # 擬 -- 252,324
|
||||
0xAAD5 0x80A9 # 肩 -- 252,325
|
||||
0xAAD6 0x67F1 # 柱 -- 252,326
|
||||
0xAAD7 0x6200 # 戀 -- 252,327
|
||||
0xAAD8 0x6EF4 # 滴 -- 252,330
|
||||
0xAAD9 0x5893 # 墓 -- 252,331
|
||||
0xAADA 0x5429 # 吩 -- 252,332
|
||||
0xAADB 0x775C # 睜 -- 252,333
|
||||
0xAADC 0x5F0A # 弊 -- 252,334
|
||||
0xAADD 0x62CB # 拋 -- 252,335
|
||||
0xAADE 0x62D8 # 拘 -- 252,336
|
||||
0xAADF 0x4F50 # 佐 -- 252,337
|
||||
0xAAE0 0x722A # 爪 -- 252,340
|
||||
0xAAE1 0x9189 # 醉 -- 252,341
|
||||
0xAAE2 0x4F0F # 伏 -- 252,342
|
||||
0xAAE3 0x95CA # 闊 -- 252,343
|
||||
0xAAE4 0x81D8 # 臘 -- 252,344
|
||||
0xAAE5 0x82BD # 芽 -- 252,345
|
||||
0xAAE6 0x808C # 肌 -- 252,346
|
||||
0xAAE7 0x5582 # 喂 -- 252,347
|
||||
0xAAE8 0x7AED # 竭 -- 252,350
|
||||
0xAAE9 0x8CD3 # 賓 -- 252,351
|
||||
0xAAEA 0x6028 # 怨 -- 252,352
|
||||
0xAAEB 0x5EAB # 庫 -- 252,353
|
||||
0xAAEC 0x64AB # 撫 -- 252,354
|
||||
0xAAED 0x7206 # 爆 -- 252,355
|
||||
0xAAEE 0x966A # 陪 -- 252,356
|
||||
0xAAEF 0x52AB # 劫 -- 252,357
|
||||
0xAAF0 0x5854 # 塔 -- 252,360
|
||||
0xAAF2 0x4F8D # 侍 -- 252,362
|
||||
0xAAF3 0x6FC3 # 濃 -- 252,363
|
||||
0xAAF4 0x659C # 斜 -- 252,364
|
||||
0xAAF5 0x5875 # 塵 -- 252,365
|
||||
0xAAF6 0x5F13 # 弓 -- 252,366
|
||||
0xAAF7 0x59E8 # 姨 -- 252,367
|
||||
0xAAF8 0x7E8F # 纏 -- 252,370
|
||||
0xAAF9 0x68E7 # 棧 -- 252,371
|
||||
0xAAFA 0x7109 # 焉 -- 252,372
|
||||
0xAAFB 0x7A74 # 穴 -- 252,373
|
||||
0xAAFC 0x5F7F # 彿 -- 252,374
|
||||
0xAAFD 0x79E9 # 秩 -- 252,375
|
||||
0xAAFE 0x6B3D # 欽 -- 252,376
|
||||
191
unicode/xerox/unihan/XCCS-253=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-253=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "253" UNIHAN
|
||||
|
||||
0xAB21 0x51CD # 凍 -- 253,041
|
||||
0xAB22 0x5C4D # 屍 -- 253,042
|
||||
0xAB23 0x84B2 # 蒲 -- 253,043
|
||||
0xAB24 0x6469 # 摩 -- 253,044
|
||||
0xAB25 0x96B1 # 隱 -- 253,045
|
||||
0xAB26 0x9BAE # 鮮 -- 253,046
|
||||
0xAB27 0x9452 # 鑒 -- 253,047
|
||||
0xAB28 0x9B4F # 魏 -- 253,050
|
||||
0xAB29 0x827E # 艾 -- 253,051
|
||||
0xAB2A 0x68B3 # 梳 -- 253,052
|
||||
0xAB2B 0x9A62 # 驢 -- 253,053
|
||||
0xAB2C 0x5B85 # 宅 -- 253,054
|
||||
0xAB2D 0x723D # 爽 -- 253,055
|
||||
0xAB2E 0x5925 # 夥 -- 253,056
|
||||
0xAB2F 0x8A8C # 誌 -- 253,057
|
||||
0xAB30 0x8271 # 艱 -- 253,060
|
||||
0xAB31 0x99B3 # 馳 -- 253,061
|
||||
0xAB32 0x8CFA # 賺 -- 253,062
|
||||
0xAB33 0x50B2 # 傲 -- 253,063
|
||||
0xAB34 0x7CBD # 粽 -- 253,064
|
||||
0xAB35 0x8DDD # 距 -- 253,065
|
||||
0xAB36 0x7E6B # 繫 -- 253,066
|
||||
0xAB37 0x7344 # 獄 -- 253,067
|
||||
0xAB38 0x8FB0 # 辰 -- 253,070
|
||||
0xAB39 0x8F14 # 輔 -- 253,071
|
||||
0xAB3A 0x682A # 株 -- 253,072
|
||||
0xAB3B 0x5B5F # 孟 -- 253,073
|
||||
0xAB3C 0x6D1B # 洛 -- 253,074
|
||||
0xAB3D 0x7051 # 灑 -- 253,075
|
||||
0xAB3E 0x51A4 # 冤 -- 253,076
|
||||
0xAB3F 0x5609 # 嘉 -- 253,077
|
||||
0xAB40 0x5EFF # 廿 -- 253,100
|
||||
0xAB41 0x6602 # 昂 -- 253,101
|
||||
0xAB42 0x6BBF # 殿 -- 253,102
|
||||
0xAB43 0x72AC # 犬 -- 253,103
|
||||
0xAB44 0x617E # 慾 -- 253,104
|
||||
0xAB45 0x8CA9 # 販 -- 253,105
|
||||
0xAB46 0x578B # 型 -- 253,106
|
||||
0xAB47 0x6398 # 掘 -- 253,107
|
||||
0xAB48 0x8C4E # 豎 -- 253,110
|
||||
0xAB49 0x6316 # 挖 -- 253,111
|
||||
0xAB4A 0x99F1 # 駱 -- 253,112
|
||||
0xAB4B 0x82B3 # 芳 -- 253,113
|
||||
0xAB4C 0x905E # 遞 -- 253,114
|
||||
0xAB4D 0x66A2 # 暢 -- 253,115
|
||||
0xAB4E 0x557C # 啼 -- 253,116
|
||||
0xAB4F 0x888D # 袍 -- 253,117
|
||||
0xAB50 0x4E10 # 丐 -- 253,120
|
||||
0xAB51 0x8CFC # 購 -- 253,121
|
||||
0xAB52 0x60F0 # 惰 -- 253,122
|
||||
0xAB53 0x5B8F # 宏 -- 253,123
|
||||
0xAB54 0x8650 # 虐 -- 253,124
|
||||
0xAB55 0x582A # 堪 -- 253,125
|
||||
0xAB56 0x932B # 錫 -- 253,126
|
||||
0xAB57 0x83CA # 菊 -- 253,127
|
||||
0xAB58 0x679A # 枚 -- 253,130
|
||||
0xAB59 0x81ED # 臭 -- 253,131
|
||||
0xAB5A 0x6DCB # 淋 -- 253,132
|
||||
0xAB5B 0x8E22 # 踢 -- 253,133
|
||||
0xAB5C 0x7AFD # 竽 -- 253,134
|
||||
0xAB5D 0x539A # 厚 -- 253,135
|
||||
0xAB5E 0x8517 # 蔗 -- 253,136
|
||||
0xAB5F 0x7FFC # 翼 -- 253,137
|
||||
0xAB60 0x5CFD # 峽 -- 253,140
|
||||
0xAB61 0x760B # 瘋 -- 253,141
|
||||
0xAB62 0x79E6 # 秦 -- 253,142
|
||||
0xAB63 0x87F9 # 蟹 -- 253,143
|
||||
0xAB64 0x95A5 # 閥 -- 253,144
|
||||
0xAB65 0x662D # 昭 -- 253,145
|
||||
0xAB66 0x540A # 吊 -- 253,146
|
||||
0xAB67 0x9952 # 饒 -- 253,147
|
||||
0xAB68 0x5431 # 吱 -- 253,150
|
||||
0xAB69 0x8017 # 耗 -- 253,151
|
||||
0xAB6A 0x8A62 # 詢 -- 253,152
|
||||
0xAB6B 0x6AC3 # 櫃 -- 253,153
|
||||
0xAB6C 0x7D8F # 綏 -- 253,154
|
||||
0xAB6D 0x56B7 # 嚷 -- 253,155
|
||||
0xAB6E 0x61C7 # 懇 -- 253,156
|
||||
0xAB6F 0x64F2 # 擲 -- 253,157
|
||||
0xAB70 0x8859 # 衙 -- 253,160
|
||||
0xAB71 0x54B3 # 咳 -- 253,161
|
||||
0xAB72 0x5766 # 坦 -- 253,162
|
||||
0xAB73 0x9675 # 陵 -- 253,163
|
||||
0xAB74 0x75F0 # 痰 -- 253,164
|
||||
0xAB75 0x68D7 # 棗 -- 253,165
|
||||
0xAB76 0x5C46 # 屆 -- 253,166
|
||||
0xAB77 0x8A93 # 誓 -- 253,167
|
||||
0xAB78 0x8766 # 蝦 -- 253,170
|
||||
0xAB79 0x7D10 # 紐 -- 253,171
|
||||
0xAB7A 0x745E # 瑞 -- 253,172
|
||||
0xAB7B 0x6566 # 敦 -- 253,173
|
||||
0xAB7C 0x6FB3 # 澳 -- 253,174
|
||||
0xAB7D 0x5351 # 卑 -- 253,175
|
||||
0xAB7E 0x75BC # 疼 -- 253,176
|
||||
0xABA1 0x664F # 晏 -- 253,241
|
||||
0xABA2 0x75C7 # 症 -- 253,242
|
||||
0xABA3 0x6E9D # 溝 -- 253,243
|
||||
0xABA4 0x60F9 # 惹 -- 253,244
|
||||
0xABA5 0x755D # 畝 -- 253,245
|
||||
0xABA6 0x6168 # 慨 -- 253,246
|
||||
0xABA7 0x53A6 # 厦 -- 253,247
|
||||
0xABA8 0x8DA8 # 趨 -- 253,250
|
||||
0xABA9 0x5F77 # 彷 -- 253,251
|
||||
0xABAA 0x4E11 # 丑 -- 253,252
|
||||
0xABAB 0x80BA # 肺 -- 253,253
|
||||
0xABAC 0x7126 # 焦 -- 253,254
|
||||
0xABAD 0x8DEA # 跪 -- 253,255
|
||||
0xABAE 0x7E1B # 縛 -- 253,256
|
||||
0xABAF 0x6020 # 怠 -- 253,257
|
||||
0xABB0 0x9ECE # 黎 -- 253,260
|
||||
0xABB1 0x5761 # 坡 -- 253,261
|
||||
0xABB2 0x6F02 # 漂 -- 253,262
|
||||
0xABB3 0x5A62 # 婢 -- 253,263
|
||||
0xABB4 0x6C27 # 氧 -- 253,264
|
||||
0xABB5 0x6089 # 悉 -- 253,265
|
||||
0xABB6 0x62BC # 押 -- 253,266
|
||||
0xABB7 0x7965 # 祥 -- 253,267
|
||||
0xABB8 0x77AD # 瞭 -- 253,270
|
||||
0xABB9 0x586B # 填 -- 253,271
|
||||
0xABBA 0x76FC # 盼 -- 253,272
|
||||
0xABBB 0x7830 # 砰 -- 253,273
|
||||
0xABBC 0x9756 # 靖 -- 253,274
|
||||
0xABBD 0x53E8 # 叨 -- 253,275
|
||||
0xABBE 0x88D5 # 裕 -- 253,276
|
||||
0xABBF 0x5ACC # 嫌 -- 253,277
|
||||
0xABC0 0x633D # 挽 -- 253,300
|
||||
0xABC1 0x8F2F # 輯 -- 253,301
|
||||
0xABC2 0x8B20 # 謠 -- 253,302
|
||||
0xABC3 0x6F32 # 漲 -- 253,303
|
||||
0xABC4 0x8B0A # 謊 -- 253,304
|
||||
0xABC5 0x8CEC # 賬 -- 253,305
|
||||
0xABC6 0x6FF1 # 濱 -- 253,306
|
||||
0xABC7 0x9B42 # 魂 -- 253,307
|
||||
0xABC8 0x58D8 # 壘 -- 253,310
|
||||
0xABC9 0x5B0C # 嬌 -- 253,311
|
||||
0xABCA 0x821F # 舟 -- 253,312
|
||||
0xABCB 0x5F4E # 彎 -- 253,313
|
||||
0xABCC 0x9AD2 # 髒 -- 253,314
|
||||
0xABCD 0x5967 # 奧 -- 253,315
|
||||
0xABCE 0x5BE8 # 寨 -- 253,316
|
||||
0xABCF 0x5100 # 儀 -- 253,317
|
||||
0xABD0 0x5238 # 券 -- 253,320
|
||||
0xABD1 0x81DF # 臟 -- 253,321
|
||||
0xABD2 0x84EC # 蓬 -- 253,322
|
||||
0xABD3 0x886B # 衫 -- 253,323
|
||||
0xABD4 0x6367 # 捧 -- 253,324
|
||||
0xABD5 0x6687 # 暇 -- 253,325
|
||||
0xABD6 0x540B # 吋 -- 253,326
|
||||
0xABD7 0x58E4 # 壤 -- 253,327
|
||||
0xABD8 0x51F6 # 凶 -- 253,330
|
||||
0xABD9 0x5580 # 喀 -- 253,331
|
||||
0xABDA 0x80CE # 胎 -- 253,332
|
||||
0xABDB 0x9838 # 頸 -- 253,333
|
||||
0xABDC 0x8ECC # 軌 -- 253,334
|
||||
0xABDD 0x61A4 # 憤 -- 253,335
|
||||
0xABDE 0x6F6D # 潭 -- 253,336
|
||||
0xABDF 0x9CF3 # 鳳 -- 253,337
|
||||
0xABE0 0x7B4B # 筋 -- 253,340
|
||||
0xABE1 0x98FC # 飼 -- 253,341
|
||||
0xABE2 0x5824 # 堤 -- 253,342
|
||||
0xABE3 0x626F # 扯 -- 253,343
|
||||
0xABE4 0x90B1 # 邱 -- 253,344
|
||||
0xABE5 0x5353 # 卓 -- 253,345
|
||||
0xABE6 0x8AFE # 諾 -- 253,346
|
||||
0xABE7 0x5E45 # 幅 -- 253,347
|
||||
0xABE8 0x758B # 疋 -- 253,350
|
||||
0xABE9 0x7E6A # 繪 -- 253,351
|
||||
0xABEA 0x4EA8 # 亨 -- 253,352
|
||||
0xABEB 0x6062 # 恢 -- 253,353
|
||||
0xABEC 0x66F9 # 曹 -- 253,354
|
||||
0xABED 0x676D # 杭 -- 253,355
|
||||
0xABEE 0x6F3F # 漿 -- 253,356
|
||||
0xABEF 0x6577 # 敷 -- 253,357
|
||||
0xABF0 0x5C65 # 履 -- 253,360
|
||||
0xABF1 0x8F44 # 轄 -- 253,361
|
||||
0xABF2 0x937E # 鍾 -- 253,362
|
||||
0xABF3 0x66FC # 曼 -- 253,363
|
||||
0xABF4 0x6E3E # 渾 -- 253,364
|
||||
0xABF5 0x4F36 # 伶 -- 253,365
|
||||
0xABF6 0x90A6 # 邦 -- 253,366
|
||||
0xABF7 0x8178 # 腸 -- 253,367
|
||||
0xABF8 0x965D # 陝 -- 253,370
|
||||
0xABF9 0x68CB # 棋 -- 253,371
|
||||
0xABFA 0x83F2 # 菲 -- 253,372
|
||||
0xABFB 0x9D3F # 鴿 -- 253,373
|
||||
0xABFC 0x8180 # 膀 -- 253,374
|
||||
0xABFD 0x80C3 # 胃 -- 253,375
|
||||
0xABFE 0x8877 # 衷 -- 253,376
|
||||
190
unicode/xerox/unihan/XCCS-254=UNIHAN.TXT
Normal file
190
unicode/xerox/unihan/XCCS-254=UNIHAN.TXT
Normal file
@@ -0,0 +1,190 @@
|
||||
|
||||
# "254" UNIHAN
|
||||
|
||||
0xAC21 0x6B23 # 欣 -- 254,041
|
||||
0xAC22 0x7A1F # 稟 -- 254,042
|
||||
0xAC23 0x6A01 # 樁 -- 254,043
|
||||
0xAC24 0x4F73 # 佳 -- 254,044
|
||||
0xAC25 0x5BB0 # 宰 -- 254,045
|
||||
0xAC26 0x5AE9 # 嫩 -- 254,046
|
||||
0xAC27 0x54C9 # 哉 -- 254,047
|
||||
0xAC28 0x6109 # 愉 -- 254,050
|
||||
0xAC29 0x5FBD # 徽 -- 254,051
|
||||
0xAC2A 0x64F1 # 擱 -- 254,052
|
||||
0xAC2B 0x8993 # 覓 -- 254,053
|
||||
0xAC2C 0x6D95 # 涕 -- 254,054
|
||||
0xAC2D 0x540E # 后 -- 254,055
|
||||
0xAC2E 0x67EF # 柯 -- 254,056
|
||||
0xAC2F 0x5BFA # 寺 -- 254,057
|
||||
0xAC30 0x51B2 # 冲 -- 254,060
|
||||
0xAC31 0x8B9A # 讚 -- 254,061
|
||||
0xAC32 0x675C # 杜 -- 254,062
|
||||
0xAC33 0x6DEE # 淮 -- 254,063
|
||||
0xAC34 0x6885 # 梅 -- 254,064
|
||||
0xAC35 0x59FF # 姿 -- 254,065
|
||||
0xAC36 0x752B # 甫 -- 254,066
|
||||
0xAC37 0x83E9 # 菩 -- 254,067
|
||||
0xAC38 0x87BA # 螺 -- 254,070
|
||||
0xAC39 0x9EDB # 黛 -- 254,071
|
||||
0xAC3A 0x5A1C # 娜 -- 254,072
|
||||
0xAC3B 0x75B2 # 疲 -- 254,073
|
||||
0xAC3C 0x8CE4 # 賤 -- 254,074
|
||||
0xAC3D 0x947F # 鑿 -- 254,075
|
||||
0xAC3E 0x5A92 # 媒 -- 254,076
|
||||
0xAC3F 0x85CD # 藍 -- 254,077
|
||||
0xAC40 0x8521 # 蔡 -- 254,100
|
||||
0xAC41 0x6CE1 # 泡 -- 254,101
|
||||
0xAC42 0x6583 # 斃 -- 254,102
|
||||
0xAC43 0x7D21 # 紡 -- 254,103
|
||||
0xAC44 0x63A7 # 控 -- 254,104
|
||||
0xAC45 0x5674 # 噴 -- 254,105
|
||||
0xAC46 0x8ADC # 諜 -- 254,106
|
||||
0xAC47 0x6D66 # 浦 -- 254,107
|
||||
0xAC48 0x7FE0 # 翠 -- 254,110
|
||||
0xAC49 0x5B87 # 宇 -- 254,111
|
||||
0xAC4A 0x59C6 # 姆 -- 254,112
|
||||
0xAC4B 0x6CCA # 泊 -- 254,113
|
||||
0xAC4C 0x7CFE # 糾 -- 254,114
|
||||
0xAC4D 0x99DB # 駛 -- 254,115
|
||||
0xAC4E 0x5091 # 傑 -- 254,116
|
||||
0xAC4F 0x6E9C # 溜 -- 254,117
|
||||
0xAC50 0x5CB3 # 岳 -- 254,120
|
||||
0xAC51 0x79B9 # 禹 -- 254,121
|
||||
0xAC52 0x8396 # 莖 -- 254,122
|
||||
0xAC53 0x7DEC # 緬 -- 254,123
|
||||
0xAC55 0x84EE # 蓮 -- 254,125
|
||||
0xAC56 0x7642 # 療 -- 254,126
|
||||
0xAC57 0x5CF0 # 峰 -- 254,127
|
||||
0xAC58 0x7F38 # 缸 -- 254,130
|
||||
0xAC59 0x6A61 # 橡 -- 254,131
|
||||
0xAC5A 0x758F # 疏 -- 254,132
|
||||
0xAC5B 0x82AC # 芬 -- 254,133
|
||||
0xAC5C 0x7C98 # 粘 -- 254,134
|
||||
0xAC5D 0x8EF8 # 軸 -- 254,135
|
||||
0xAC5E 0x7D2B # 紫 -- 254,136
|
||||
0xAC5F 0x6046 # 恆 -- 254,137
|
||||
0xAC60 0x8755 # 蝕 -- 254,140
|
||||
0xAC61 0x8972 # 襲 -- 254,141
|
||||
0xAC62 0x5291 # 劑 -- 254,142
|
||||
0xAC63 0x90CA # 郊 -- 254,143
|
||||
0xAC64 0x6606 # 昆 -- 254,144
|
||||
0xAC65 0x5104 # 億 -- 254,145
|
||||
0xAC66 0x6676 # 晶 -- 254,146
|
||||
0xAC67 0x96C1 # 雁 -- 254,147
|
||||
0xAC68 0x9318 # 錘 -- 254,150
|
||||
0xAC69 0x7FC5 # 翅 -- 254,151
|
||||
0xAC6A 0x7AFF # 竿 -- 254,152
|
||||
0xAC6B 0x5821 # 堡 -- 254,153
|
||||
0xAC6C 0x53B2 # 厲 -- 254,154
|
||||
0xAC6D 0x537F # 卿 -- 254,155
|
||||
0xAC6E 0x6DD8 # 淘 -- 254,156
|
||||
0xAC6F 0x708E # 炎 -- 254,157
|
||||
0xAC70 0x6620 # 映 -- 254,160
|
||||
0xAC71 0x76E7 # 盧 -- 254,161
|
||||
0xAC72 0x6717 # 朗 -- 254,162
|
||||
0xAC73 0x819C # 膜 -- 254,163
|
||||
0xAC74 0x9801 # 頁 -- 254,164
|
||||
0xAC75 0x6DD1 # 淑 -- 254,165
|
||||
0xAC76 0x651D # 攝 -- 254,166
|
||||
0xAC77 0x5C4F # 屏 -- 254,167
|
||||
0xAC78 0x5CA1 # 岡 -- 254,170
|
||||
0xAC79 0x50AD # 傭 -- 254,171
|
||||
0xAC7A 0x76D2 # 盒 -- 254,172
|
||||
0xAC7B 0x8E10 # 踐 -- 254,173
|
||||
0xAC7C 0x5858 # 塘 -- 254,174
|
||||
0xAC7D 0x970D # 霍 -- 254,175
|
||||
0xAC7E 0x92F8 # 鋸 -- 254,176
|
||||
0xACA1 0x8EBA # 躺 -- 254,241
|
||||
0xACA2 0x6E24 # 渤 -- 254,242
|
||||
0xACA3 0x8D6B # 赫 -- 254,243
|
||||
0xACA4 0x7538 # 甸 -- 254,244
|
||||
0xACA5 0x6E20 # 渠 -- 254,245
|
||||
0xACA6 0x901D # 逝 -- 254,246
|
||||
0xACA7 0x9738 # 霸 -- 254,247
|
||||
0xACA8 0x935B # 鍛 -- 254,250
|
||||
0xACA9 0x8757 # 蝗 -- 254,251
|
||||
0xACAA 0x6254 # 扔 -- 254,252
|
||||
0xACAB 0x6851 # 桑 -- 254,253
|
||||
0xACAC 0x6E34 # 渴 -- 254,254
|
||||
0xACAD 0x78DA # 磚 -- 254,255
|
||||
0xACAE 0x852C # 蔬 -- 254,256
|
||||
0xACAF 0x6D78 # 浸 -- 254,257
|
||||
0xACB0 0x846C # 葬 -- 254,260
|
||||
0xACB1 0x6FA4 # 澤 -- 254,261
|
||||
0xACB2 0x6EB6 # 溶 -- 254,262
|
||||
0xACB3 0x6FA1 # 澡 -- 254,263
|
||||
0xACB4 0x8881 # 袁 -- 254,264
|
||||
0xACB5 0x7802 # 砂 -- 254,265
|
||||
0xACB6 0x934B # 鍋 -- 254,266
|
||||
0xACB7 0x780D # 砍 -- 254,267
|
||||
0xACB8 0x68B0 # 械 -- 254,270
|
||||
0xACB9 0x63ED # 揭 -- 254,271
|
||||
0xACBA 0x8A95 # 誕 -- 254,272
|
||||
0xACBB 0x7D0B # 紋 -- 254,273
|
||||
0xACBC 0x6E58 # 湘 -- 254,274
|
||||
0xACBD 0x7680 # 皀 -- 254,275
|
||||
0xACBE 0x79E4 # 秤 -- 254,276
|
||||
0xACBF 0x4E18 # 丘 -- 254,277
|
||||
0xACC0 0x4F0D # 伍 -- 254,300
|
||||
0xACC1 0x9B54 # 魔 -- 254,301
|
||||
0xACC2 0x5E06 # 帆 -- 254,302
|
||||
0xACC3 0x78A7 # 碧 -- 254,303
|
||||
0xACC4 0x7E73 # 繳 -- 254,304
|
||||
0xACC5 0x51F1 # 凱 -- 254,305
|
||||
0xACC6 0x80D6 # 胖 -- 254,306
|
||||
0xACC7 0x4EF2 # 仲 -- 254,307
|
||||
0xACC8 0x918B # 醋 -- 254,310
|
||||
0xACC9 0x5BC7 # 寇 -- 254,311
|
||||
0xACCA 0x52C3 # 勃 -- 254,312
|
||||
0xACCB 0x51DD # 凝 -- 254,313
|
||||
0xACCC 0x746A # 瑪 -- 254,314
|
||||
0xACCD 0x5A1F # 娟 -- 254,315
|
||||
0xACCE 0x641C # 搜 -- 254,316
|
||||
0xACCF 0x75AB # 疫 -- 254,317
|
||||
0xACD0 0x79D2 # 秒 -- 254,320
|
||||
0xACD1 0x9727 # 霧 -- 254,321
|
||||
0xACD2 0x5751 # 坑 -- 254,322
|
||||
0xACD3 0x860B # 蘋 -- 254,323
|
||||
0xACD4 0x582F # 堯 -- 254,324
|
||||
0xACD5 0x5CA9 # 岩 -- 254,325
|
||||
0xACD6 0x5DF7 # 巷 -- 254,326
|
||||
0xACD7 0x8C6A # 豪 -- 254,327
|
||||
0xACD8 0x881F # 蠟 -- 254,330
|
||||
0xACD9 0x7B28 # 笨 -- 254,331
|
||||
0xACDA 0x6167 # 慧 -- 254,332
|
||||
0xACDB 0x92D2 # 鋒 -- 254,333
|
||||
0xACDC 0x810A # 脊 -- 254,334
|
||||
0xACDD 0x95A9 # 閩 -- 254,335
|
||||
0xACDE 0x9059 # 遙 -- 254,336
|
||||
0xACDF 0x5074 # 側 -- 254,337
|
||||
0xACE0 0x796D # 祭 -- 254,340
|
||||
0xACE1 0x8482 # 蒂 -- 254,341
|
||||
0xACE2 0x790E # 礎 -- 254,342
|
||||
0xACE3 0x5C60 # 屠 -- 254,343
|
||||
0xACE4 0x5A03 # 娃 -- 254,344
|
||||
0xACE5 0x7FD4 # 翔 -- 254,345
|
||||
0xACE6 0x5851 # 塑 -- 254,346
|
||||
0xACE7 0x6C88 # 沈 -- 254,347
|
||||
0xACE8 0x55AC # 喬 -- 254,350
|
||||
0xACE9 0x9EF4 # 黴 -- 254,351
|
||||
0xACEA 0x59B3 # 妳 -- 254,352
|
||||
0xACEB 0x90ED # 郭 -- 254,353
|
||||
0xACEC 0x85AF # 薯 -- 254,354
|
||||
0xACED 0x665D # 晝 -- 254,355
|
||||
0xACEE 0x7149 # 煉 -- 254,356
|
||||
0xACEF 0x8CBF # 貿 -- 254,357
|
||||
0xACF0 0x840A # 萊 -- 254,360
|
||||
0xACF1 0x524A # 削 -- 254,361
|
||||
0xACF2 0x64CB # 擋 -- 254,362
|
||||
0xACF3 0x6377 # 捷 -- 254,363
|
||||
0xACF4 0x54B8 # 咸 -- 254,364
|
||||
0xACF5 0x8D1B # 贛 -- 254,365
|
||||
0xACF6 0x78B3 # 碳 -- 254,366
|
||||
0xACF7 0x9375 # 鍵 -- 254,367
|
||||
0xACF8 0x5009 # 倉 -- 254,370
|
||||
0xACF9 0x6F2B # 漫 -- 254,371
|
||||
0xACFA 0x8861 # 衡 -- 254,372
|
||||
0xACFB 0x53E2 # 叢 -- 254,373
|
||||
0xACFC 0x5026 # 倦 -- 254,374
|
||||
0xACFD 0x79BD # 禽 -- 254,375
|
||||
0xACFE 0x8549 # 蕉 -- 254,376
|
||||
191
unicode/xerox/unihan/XCCS-255=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-255=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "255" UNIHAN
|
||||
|
||||
0xAD21 0x555E # 啞 -- 255,041
|
||||
0xAD22 0x5587 # 喇 -- 255,042
|
||||
0xAD23 0x87A2 # 螢 -- 255,043
|
||||
0xAD24 0x7F50 # 罐 -- 255,044
|
||||
0xAD25 0x654F # 敏 -- 255,045
|
||||
0xAD26 0x829D # 芝 -- 255,046
|
||||
0xAD27 0x6372 # 捲 -- 255,047
|
||||
0xAD28 0x5DE2 # 巢 -- 255,050
|
||||
0xAD29 0x7AB0 # 窰 -- 255,051
|
||||
0xAD2A 0x6D29 # 洩 -- 255,052
|
||||
0xAD2B 0x7F69 # 罩 -- 255,053
|
||||
0xAD2C 0x7E96 # 纖 -- 255,054
|
||||
0xAD2D 0x8154 # 腔 -- 255,055
|
||||
0xAD2E 0x57D4 # 埔 -- 255,056
|
||||
0xAD2F 0x5A25 # 娥 -- 255,057
|
||||
0xAD30 0x65E6 # 旦 -- 255,060
|
||||
0xAD31 0x7D61 # 絡 -- 255,061
|
||||
0xAD32 0x5BB4 # 宴 -- 255,062
|
||||
0xAD33 0x8A3B # 註 -- 255,063
|
||||
0xAD34 0x6BC5 # 毅 -- 255,064
|
||||
0xAD35 0x79E7 # 秧 -- 255,065
|
||||
0xAD36 0x5211 # 刑 -- 255,066
|
||||
0xAD37 0x6876 # 桶 -- 255,067
|
||||
0xAD38 0x971E # 霞 -- 255,070
|
||||
0xAD39 0x71E5 # 燥 -- 255,071
|
||||
0xAD3A 0x8292 # 芒 -- 255,072
|
||||
0xAD3B 0x74F7 # 瓷 -- 255,073
|
||||
0xAD3C 0x821C # 舜 -- 255,074
|
||||
0xAD3D 0x7384 # 玄 -- 255,075
|
||||
0xAD3E 0x8302 # 茂 -- 255,076
|
||||
0xAD3F 0x68A8 # 梨 -- 255,077
|
||||
0xAD40 0x6D69 # 浩 -- 255,100
|
||||
0xAD41 0x587E # 塾 -- 255,101
|
||||
0xAD42 0x52FE # 勾 -- 255,102
|
||||
0xAD43 0x6F8E # 澎 -- 255,103
|
||||
0xAD44 0x4FAF # 侯 -- 255,104
|
||||
0xAD45 0x7941 # 祁 -- 255,105
|
||||
0xAD46 0x508D # 傍 -- 255,106
|
||||
0xAD47 0x786B # 硫 -- 255,107
|
||||
0xAD48 0x63CF # 描 -- 255,110
|
||||
0xAD49 0x7058 # 灘 -- 255,111
|
||||
0xAD4A 0x8102 # 脂 -- 255,112
|
||||
0xAD4B 0x97AD # 鞭 -- 255,113
|
||||
0xAD4C 0x7CDE # 糞 -- 255,114
|
||||
0xAD4D 0x863F # 蘿 -- 255,115
|
||||
0xAD4E 0x91E3 # 釣 -- 255,116
|
||||
0xAD4F 0x5B75 # 孵 -- 255,117
|
||||
0xAD50 0x65A7 # 斧 -- 255,120
|
||||
0xAD51 0x96B4 # 隴 -- 255,121
|
||||
0xAD52 0x9935 # 餵 -- 255,122
|
||||
0xAD53 0x6EAA # 溪 -- 255,123
|
||||
0xAD54 0x7FBF # 羿 -- 255,124
|
||||
0xAD55 0x5075 # 偵 -- 255,125
|
||||
0xAD56 0x6DF5 # 淵 -- 255,126
|
||||
0xAD57 0x67AF # 枯 -- 255,127
|
||||
0xAD58 0x6850 # 桐 -- 255,130
|
||||
0xAD59 0x4F19 # 伙 -- 255,131
|
||||
0xAD5A 0x9081 # 邁 -- 255,132
|
||||
0xAD5B 0x54F2 # 哲 -- 255,133
|
||||
0xAD5C 0x86DB # 蛛 -- 255,134
|
||||
0xAD5D 0x9AD3 # 髓 -- 255,135
|
||||
0xAD5E 0x9ED4 # 黔 -- 255,136
|
||||
0xAD5F 0x8A25 # 訥 -- 255,137
|
||||
0xAD60 0x5495 # 咕 -- 255,140
|
||||
0xAD61 0x5679 # 噹 -- 255,141
|
||||
0xAD62 0x902E # 逮 -- 255,142
|
||||
0xAD63 0x6016 # 怖 -- 255,143
|
||||
0xAD64 0x5915 # 夕 -- 255,144
|
||||
0xAD65 0x8FC5 # 迅 -- 255,145
|
||||
0xAD66 0x6591 # 斑 -- 255,146
|
||||
0xAD67 0x80A2 # 肢 -- 255,147
|
||||
0xAD68 0x6E67 # 湧 -- 255,150
|
||||
0xAD69 0x8514 # 蔔 -- 255,151
|
||||
0xAD6A 0x6817 # 栗 -- 255,152
|
||||
0xAD6B 0x8718 # 蜘 -- 255,153
|
||||
0xAD6C 0x5E1A # 帚 -- 255,154
|
||||
0xAD6D 0x7282 # 犂 -- 255,155
|
||||
0xAD6E 0x5937 # 夷 -- 255,156
|
||||
0xAD6F 0x9035 # 逵 -- 255,157
|
||||
0xAD70 0x6EEC # 滬 -- 255,160
|
||||
0xAD71 0x5FAA # 循 -- 255,161
|
||||
0xAD72 0x57C3 # 埃 -- 255,162
|
||||
0xAD73 0x7A6B # 穫 -- 255,163
|
||||
0xAD74 0x6328 # 挨 -- 255,164
|
||||
0xAD75 0x8105 # 脅 -- 255,165
|
||||
0xAD76 0x5F70 # 彰 -- 255,166
|
||||
0xAD77 0x6F86 # 澆 -- 255,167
|
||||
0xAD78 0x6DF9 # 淹 -- 255,170
|
||||
0xAD79 0x8606 # 蘆 -- 255,171
|
||||
0xAD7A 0x522E # 刮 -- 255,172
|
||||
0xAD7B 0x7092 # 炒 -- 255,173
|
||||
0xAD7C 0x6F58 # 潘 -- 255,174
|
||||
0xAD7D 0x543C # 吼 -- 255,175
|
||||
0xAD7E 0x5589 # 喉 -- 255,176
|
||||
0xADA1 0x8B5A # 譚 -- 255,241
|
||||
0xADA2 0x56BC # 嚼 -- 255,242
|
||||
0xADA3 0x6DEA # 淪 -- 255,243
|
||||
0xADA4 0x5D19 # 崙 -- 255,244
|
||||
0xADA5 0x9AAF # 骯 -- 255,245
|
||||
0xADA6 0x86DF # 蛟 -- 255,246
|
||||
0xADA7 0x6E89 # 溉 -- 255,247
|
||||
0xADA8 0x6A38 # 樸 -- 255,250
|
||||
0xADA9 0x971C # 霜 -- 255,251
|
||||
0xADAA 0x8E64 # 蹤 -- 255,252
|
||||
0xADAB 0x5ECA # 廊 -- 255,253
|
||||
0xADAC 0x4FD8 # 俘 -- 255,254
|
||||
0xADAD 0x5B30 # 嬰 -- 255,255
|
||||
0xADAE 0x8303 # 范 -- 255,256
|
||||
0xADAF 0x6296 # 抖 -- 255,257
|
||||
0xADB0 0x7D68 # 絨 -- 255,260
|
||||
0xADB1 0x920E # 鈎 -- 255,261
|
||||
0xADB2 0x7CDF # 糟 -- 255,262
|
||||
0xADB3 0x4E32 # 串 -- 255,263
|
||||
0xADB4 0x7409 # 琉 -- 255,264
|
||||
0xADB5 0x9ABC # 骼 -- 255,265
|
||||
0xADB6 0x5B38 # 嬸 -- 255,266
|
||||
0xADB7 0x80F3 # 胳 -- 255,267
|
||||
0xADB8 0x5594 # 喔 -- 255,270
|
||||
0xADB9 0x622A # 截 -- 255,271
|
||||
0xADBA 0x61F2 # 懲 -- 255,272
|
||||
0xADBB 0x9812 # 頒 -- 255,273
|
||||
0xADBC 0x5A1B # 娛 -- 255,274
|
||||
0xADBD 0x8DE8 # 跨 -- 255,275
|
||||
0xADBE 0x6492 # 撒 -- 255,276
|
||||
0xADBF 0x8305 # 茅 -- 255,277
|
||||
0xADC0 0x9DAF # 鶯 -- 255,300
|
||||
0xADC1 0x699C # 榜 -- 255,301
|
||||
0xADC2 0x919C # 醜 -- 255,302
|
||||
0xADC3 0x62D3 # 拓 -- 255,303
|
||||
0xADC4 0x5212 # 划 -- 255,304
|
||||
0xADC5 0x8D9F # 趟 -- 255,305
|
||||
0xADC6 0x5DEB # 巫 -- 255,306
|
||||
0xADC7 0x4F8B # 例 -- 255,307
|
||||
0xADC8 0x73B2 # 玲 -- 255,310
|
||||
0xADC9 0x549A # 咚 -- 255,311
|
||||
0xADCA 0x9D3B # 鴻 -- 255,312
|
||||
0xADCB 0x6F70 # 潰 -- 255,313
|
||||
0xADCC 0x62AB # 披 -- 255,314
|
||||
0xADCD 0x5FB9 # 徹 -- 255,315
|
||||
0xADCE 0x5E7D # 幽 -- 255,316
|
||||
0xADCF 0x6CF3 # 泳 -- 255,317
|
||||
0xADD0 0x7662 # 癢 -- 255,320
|
||||
0xADD1 0x6524 # 攤 -- 255,321
|
||||
0xADD2 0x5C51 # 屑 -- 255,322
|
||||
0xADD3 0x72F9 # 狹 -- 255,323
|
||||
0xADD4 0x5EC1 # 廁 -- 255,324
|
||||
0xADD5 0x5098 # 傘 -- 255,325
|
||||
0xADD6 0x9175 # 酵 -- 255,326
|
||||
0xADD7 0x92E4 # 鋤 -- 255,327
|
||||
0xADD8 0x6C55 # 汕 -- 255,330
|
||||
0xADD9 0x9131 # 鄱 -- 255,331
|
||||
0xADDA 0x93C8 # 鏈 -- 255,332
|
||||
0xADDB 0x55E1 # 嗡 -- 255,333
|
||||
0xADDC 0x63AA # 措 -- 255,334
|
||||
0xADDD 0x9102 # 鄂 -- 255,335
|
||||
0xADDE 0x6A58 # 橘 -- 255,336
|
||||
0xADDF 0x6488 # 撈 -- 255,337
|
||||
0xADE0 0x97FB # 韻 -- 255,340
|
||||
0xADE1 0x7E6D # 繭 -- 255,341
|
||||
0xADE2 0x8ABC # 誼 -- 255,342
|
||||
0xADE3 0x50A2 # 傢 -- 255,343
|
||||
0xADE4 0x5F6C # 彬 -- 255,344
|
||||
0xADE5 0x743F # 琿 -- 255,345
|
||||
0xADE6 0x5678 # 噸 -- 255,346
|
||||
0xADE7 0x5FCC # 忌 -- 255,347
|
||||
0xADE8 0x7A3D # 稽 -- 255,350
|
||||
0xADE9 0x6790 # 析 -- 255,351
|
||||
0xADEA 0x8A3A # 診 -- 255,352
|
||||
0xADEB 0x6607 # 昇 -- 255,353
|
||||
0xADEC 0x8258 # 艘 -- 255,354
|
||||
0xADED 0x6C5D # 汝 -- 255,355
|
||||
0xADEE 0x90E1 # 郡 -- 255,356
|
||||
0xADEF 0x4EFF # 仿 -- 255,357
|
||||
0xADF0 0x964B # 陋 -- 255,360
|
||||
0xADF1 0x832B # 茫 -- 255,361
|
||||
0xADF2 0x8E44 # 蹄 -- 255,362
|
||||
0xADF3 0x5109 # 儉 -- 255,363
|
||||
0xADF4 0x6B6A # 歪 -- 255,364
|
||||
0xADF5 0x6A1E # 樞 -- 255,365
|
||||
0xADF6 0x9E79 # 鹹 -- 255,366
|
||||
0xADF7 0x883B # 蠻 -- 255,367
|
||||
0xADF8 0x626D # 扭 -- 255,370
|
||||
0xADF9 0x6F64 # 潤 -- 255,371
|
||||
0xADFA 0x6454 # 摔 -- 255,372
|
||||
0xADFB 0x52C1 # 勁 -- 255,373
|
||||
0xADFC 0x745F # 瑟 -- 255,374
|
||||
0xADFD 0x6979 # 楹 -- 255,375
|
||||
0xADFE 0x6CCC # 泌 -- 255,376
|
||||
191
unicode/xerox/unihan/XCCS-256=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-256=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "256" UNIHAN
|
||||
|
||||
0xAE21 0x75A5 # 疥 -- 256,041
|
||||
0xAE22 0x74CA # 瓊 -- 256,042
|
||||
0xAE23 0x9640 # 陀 -- 256,043
|
||||
0xAE24 0x4EAD # 亭 -- 256,044
|
||||
0xAE25 0x9396 # 鎖 -- 256,045
|
||||
0xAE26 0x52DF # 募 -- 256,046
|
||||
0xAE27 0x8A98 # 誘 -- 256,047
|
||||
0xAE28 0x67C4 # 柄 -- 256,050
|
||||
0xAE29 0x7C64 # 籤 -- 256,051
|
||||
0xAE2A 0x7DB1 # 綱 -- 256,052
|
||||
0xAE2B 0x59EA # 姪 -- 256,053
|
||||
0xAE2C 0x65A5 # 斥 -- 256,054
|
||||
0xAE2D 0x856D # 蕭 -- 256,055
|
||||
0xAE2E 0x633A # 挺 -- 256,056
|
||||
0xAE2F 0x7D2E # 紮 -- 256,057
|
||||
0xAE30 0x79A6 # 禦 -- 256,060
|
||||
0xAE31 0x5FA7 # 徧 -- 256,061
|
||||
0xAE32 0x8277 # 艷 -- 256,062
|
||||
0xAE33 0x6B04 # 欄 -- 256,063
|
||||
0xAE34 0x7B77 # 筷 -- 256,064
|
||||
0xAE35 0x9699 # 隙 -- 256,065
|
||||
0xAE36 0x626E # 扮 -- 256,066
|
||||
0xAE37 0x502D # 倭 -- 256,067
|
||||
0xAE38 0x52FB # 勻 -- 256,070
|
||||
0xAE39 0x924B # 鉋 -- 256,071
|
||||
0xAE3A 0x9D51 # 鵑 -- 256,072
|
||||
0xAE3B 0x54FC # 哼 -- 256,073
|
||||
0xAE3C 0x72C4 # 狄 -- 256,074
|
||||
0xAE3D 0x57A3 # 垣 -- 256,075
|
||||
0xAE3E 0x51F9 # 凹 -- 256,076
|
||||
0xAE3F 0x4F83 # 侃 -- 256,077
|
||||
0xAE40 0x8E8D # 躍 -- 256,100
|
||||
0xAE41 0x8EAD # 躭 -- 256,101
|
||||
0xAE42 0x809D # 肝 -- 256,102
|
||||
0xAE43 0x71E6 # 燦 -- 256,103
|
||||
0xAE44 0x5D11 # 崑 -- 256,104
|
||||
0xAE45 0x7B1B # 笛 -- 256,105
|
||||
0xAE46 0x8679 # 虹 -- 256,106
|
||||
0xAE47 0x8106 # 脆 -- 256,107
|
||||
0xAE48 0x7194 # 熔 -- 256,110
|
||||
0xAE49 0x510D # 儍 -- 256,111
|
||||
0xAE4A 0x8A79 # 詹 -- 256,112
|
||||
0xAE4B 0x77AA # 瞪 -- 256,113
|
||||
0xAE4C 0x62CC # 拌 -- 256,114
|
||||
0xAE4D 0x7F9E # 羞 -- 256,115
|
||||
0xAE4E 0x98B1 # 颱 -- 256,116
|
||||
0xAE4F 0x9A2B # 騫 -- 256,117
|
||||
0xAE50 0x92BC # 銼 -- 256,120
|
||||
0xAE51 0x985B # 顛 -- 256,121
|
||||
0xAE52 0x52F3 # 勳 -- 256,122
|
||||
0xAE53 0x5F6D # 彭 -- 256,123
|
||||
0xAE54 0x91C0 # 釀 -- 256,124
|
||||
0xAE55 0x63A9 # 掩 -- 256,125
|
||||
0xAE56 0x79B1 # 禱 -- 256,126
|
||||
0xAE57 0x6F84 # 澄 -- 256,127
|
||||
0xAE58 0x62B9 # 抹 -- 256,130
|
||||
0xAE59 0x6495 # 撕 -- 256,131
|
||||
0xAE5A 0x58B3 # 墳 -- 256,132
|
||||
0xAE5B 0x7D9C # 綜 -- 256,133
|
||||
0xAE5C 0x6FFE # 濾 -- 256,134
|
||||
0xAE5D 0x6B49 # 歉 -- 256,135
|
||||
0xAE5E 0x5F26 # 弦 -- 256,136
|
||||
0xAE5F 0x6346 # 捆 -- 256,137
|
||||
0xAE60 0x50E7 # 僧 -- 256,140
|
||||
0xAE61 0x8D0F # 贏 -- 256,141
|
||||
0xAE62 0x5EFB # 廻 -- 256,142
|
||||
0xAE63 0x54A8 # 咨 -- 256,143
|
||||
0xAE64 0x69A8 # 榨 -- 256,144
|
||||
0xAE65 0x6BEF # 毯 -- 256,145
|
||||
0xAE66 0x91C7 # 采 -- 256,146
|
||||
0xAE67 0x5C6F # 屯 -- 256,147
|
||||
0xAE68 0x69D3 # 槓 -- 256,150
|
||||
0xAE69 0x624E # 扎 -- 256,151
|
||||
0xAE6A 0x8E72 # 蹲 -- 256,152
|
||||
0xAE6B 0x9945 # 饅 -- 256,153
|
||||
0xAE6C 0x7C72 # 籲 -- 256,154
|
||||
0xAE6D 0x544E # 呎 -- 256,155
|
||||
0xAE6E 0x51F8 # 凸 -- 256,156
|
||||
0xAE6F 0x818A # 膊 -- 256,157
|
||||
0xAE70 0x53ED # 叭 -- 256,160
|
||||
0xAE71 0x54CE # 哎 -- 256,161
|
||||
0xAE72 0x561B # 嘛 -- 256,162
|
||||
0xAE73 0x7A1A # 稚 -- 256,163
|
||||
0xAE74 0x552F # 唯 -- 256,164
|
||||
0xAE75 0x5978 # 奸 -- 256,165
|
||||
0xAE76 0x60A0 # 悠 -- 256,166
|
||||
0xAE77 0x61FC # 懼 -- 256,167
|
||||
0xAE78 0x4FEF # 俯 -- 256,170
|
||||
0xAE79 0x9298 # 銘 -- 256,171
|
||||
0xAE7A 0x856A # 蕪 -- 256,172
|
||||
0xAE7B 0x929C # 銜 -- 256,173
|
||||
0xAE7C 0x7D81 # 綁 -- 256,174
|
||||
0xAE7D 0x8700 # 蜀 -- 256,175
|
||||
0xAE7E 0x5288 # 劈 -- 256,176
|
||||
0xAEA1 0x947C # 鑼 -- 256,241
|
||||
0xAEA2 0x8073 # 聳 -- 256,242
|
||||
0xAEA3 0x840D # 萍 -- 256,243
|
||||
0xAEA4 0x8944 # 襄 -- 256,244
|
||||
0xAEA5 0x5D29 # 崩 -- 256,245
|
||||
0xAEA6 0x865C # 虜 -- 256,246
|
||||
0xAEA7 0x6986 # 榆 -- 256,247
|
||||
0xAEA8 0x814E # 腎 -- 256,250
|
||||
0xAEA9 0x8139 # 脹 -- 256,251
|
||||
0xAEAA 0x868C # 蚌 -- 256,252
|
||||
0xAEAB 0x4E56 # 乖 -- 256,253
|
||||
0xAEAC 0x7B95 # 箕 -- 256,254
|
||||
0xAEAD 0x5CD9 # 峙 -- 256,255
|
||||
0xAEAE 0x5AE6 # 嫦 -- 256,256
|
||||
0xAEAF 0x6BFD # 毽 -- 256,257
|
||||
0xAEB0 0x652A # 攪 -- 256,260
|
||||
0xAEB1 0x5538 # 唸 -- 256,261
|
||||
0xAEB2 0x7B24 # 笤 -- 256,262
|
||||
0xAEB3 0x74A6 # 璦 -- 256,263
|
||||
0xAEB4 0x9038 # 逸 -- 256,264
|
||||
0xAEB5 0x8A1F # 訟 -- 256,265
|
||||
0xAEB6 0x8058 # 聘 -- 256,266
|
||||
0xAEB7 0x5C09 # 尉 -- 256,267
|
||||
0xAEB8 0x5E7B # 幻 -- 256,270
|
||||
0xAEB9 0x5960 # 奠 -- 256,271
|
||||
0xAEBA 0x8543 # 蕃 -- 256,272
|
||||
0xAEBB 0x5EB8 # 庸 -- 256,273
|
||||
0xAEBC 0x6749 # 杉 -- 256,274
|
||||
0xAEBD 0x5E15 # 帕 -- 256,275
|
||||
0xAEBE 0x67D1 # 柑 -- 256,276
|
||||
0xAEBF 0x6BB7 # 殷 -- 256,277
|
||||
0xAEC0 0x5ED6 # 廖 -- 256,300
|
||||
0xAEC1 0x96CC # 雌 -- 256,301
|
||||
0xAEC2 0x817A # 腺 -- 256,302
|
||||
0xAEC3 0x6241 # 扁 -- 256,303
|
||||
0xAEC4 0x5DBD # 嶽 -- 256,304
|
||||
0xAEC5 0x5D0E # 崎 -- 256,305
|
||||
0xAEC6 0x63C9 # 揉 -- 256,306
|
||||
0xAEC7 0x54E8 # 哨 -- 256,307
|
||||
0xAEC8 0x8304 # 茄 -- 256,310
|
||||
0xAEC9 0x8DBE # 趾 -- 256,311
|
||||
0xAECA 0x80AA # 肪 -- 256,312
|
||||
0xAECB 0x573E # 圾 -- 256,313
|
||||
0xAECC 0x8C79 # 豹 -- 256,314
|
||||
0xAECD 0x64CE # 擎 -- 256,315
|
||||
0xAECE 0x95C6 # 闆 -- 256,316
|
||||
0xAECF 0x92C1 # 鋁 -- 256,317
|
||||
0xAED0 0x92B2 # 銲 -- 256,320
|
||||
0xAED1 0x9209 # 鈉 -- 256,321
|
||||
0xAED2 0x8E66 # 蹦 -- 256,322
|
||||
0xAED3 0x59AE # 妮 -- 256,323
|
||||
0xAED4 0x5345 # 卅 -- 256,324
|
||||
0xAED5 0x9A5F # 驟 -- 256,325
|
||||
0xAED6 0x905C # 遜 -- 256,326
|
||||
0xAED7 0x896A # 襪 -- 256,327
|
||||
0xAED8 0x77E9 # 矩 -- 256,330
|
||||
0xAED9 0x96D5 # 雕 -- 256,331
|
||||
0xAEDA 0x75D5 # 痕 -- 256,332
|
||||
0xAEDB 0x5BB5 # 宵 -- 256,333
|
||||
0xAEDC 0x6CDB # 泛 -- 256,334
|
||||
0xAEDD 0x535C # 卜 -- 256,335
|
||||
0xAEDE 0x69F3 # 槳 -- 256,336
|
||||
0xAEDF 0x81A8 # 膨 -- 256,337
|
||||
0xAEE0 0x6C83 # 沃 -- 256,340
|
||||
0xAEE1 0x5D16 # 崖 -- 256,341
|
||||
0xAEE2 0x6664 # 晤 -- 256,342
|
||||
0xAEE3 0x584C # 塌 -- 256,343
|
||||
0xAEE4 0x81FC # 臼 -- 256,344
|
||||
0xAEE5 0x5BDE # 寞 -- 256,345
|
||||
0xAEE6 0x7F55 # 罕 -- 256,346
|
||||
0xAEE7 0x9F90 # 龐 -- 256,347
|
||||
0xAEE8 0x968B # 隋 -- 256,350
|
||||
0xAEE9 0x6F31 # 漱 -- 256,351
|
||||
0xAEEA 0x86E4 # 蛤 -- 256,352
|
||||
0xAEEB 0x8B41 # 譁 -- 256,353
|
||||
0xAEEC 0x87CB # 蟋 -- 256,354
|
||||
0xAEED 0x9336 # 錶 -- 256,355
|
||||
0xAEEE 0x5783 # 垃 -- 256,356
|
||||
0xAEEF 0x87C0 # 蟀 -- 256,357
|
||||
0xAEF0 0x92B3 # 銳 -- 256,360
|
||||
0xAEF1 0x76C8 # 盈 -- 256,361
|
||||
0xAEF2 0x56CA # 囊 -- 256,362
|
||||
0xAEF3 0x978F # 鞏 -- 256,363
|
||||
0xAEF4 0x6514 # 攔 -- 256,364
|
||||
0xAEF5 0x6CBD # 沽 -- 256,365
|
||||
0xAEF6 0x8932 # 褲 -- 256,366
|
||||
0xAEF7 0x6F88 # 澈 -- 256,367
|
||||
0xAEF8 0x8A87 # 誇 -- 256,370
|
||||
0xAEF9 0x9017 # 逗 -- 256,371
|
||||
0xAEFA 0x58E9 # 壩 -- 256,372
|
||||
0xAEFB 0x4F51 # 佑 -- 256,373
|
||||
0xAEFC 0x51B6 # 冶 -- 256,374
|
||||
0xAEFD 0x5992 # 妒 -- 256,375
|
||||
0xAEFE 0x5B9B # 宛 -- 256,376
|
||||
190
unicode/xerox/unihan/XCCS-257=UNIHAN.TXT
Normal file
190
unicode/xerox/unihan/XCCS-257=UNIHAN.TXT
Normal file
@@ -0,0 +1,190 @@
|
||||
|
||||
# "257" UNIHAN
|
||||
|
||||
0xAF21 0x9E7C # 鹼 -- 257,041
|
||||
0xAF22 0x8B5C # 譜 -- 257,042
|
||||
0xAF23 0x859B # 薛 -- 257,043
|
||||
0xAF24 0x6EF2 # 滲 -- 257,044
|
||||
0xAF25 0x7D43 # 絃 -- 257,045
|
||||
0xAF26 0x96F9 # 雹 -- 257,046
|
||||
0xAF27 0x6413 # 搓 -- 257,047
|
||||
0xAF28 0x6936 # 椶 -- 257,050
|
||||
0xAF29 0x86B1 # 蚱 -- 257,051
|
||||
0xAF2A 0x8722 # 蜢 -- 257,052
|
||||
0xAF2B 0x67EC # 柬 -- 257,053
|
||||
0xAF2C 0x85F9 # 藹 -- 257,054
|
||||
0xAF2D 0x9257 # 鉗 -- 257,055
|
||||
0xAF2E 0x5A49 # 婉 -- 257,056
|
||||
0xAF2F 0x8783 # 螃 -- 257,057
|
||||
0xAF30 0x6775 # 杵 -- 257,060
|
||||
0xAF31 0x9C57 # 鱗 -- 257,061
|
||||
0xAF32 0x714C # 煌 -- 257,062
|
||||
0xAF33 0x870A # 蜊 -- 257,063
|
||||
0xAF34 0x54E6 # 哦 -- 257,064
|
||||
0xAF35 0x6F7C # 潼 -- 257,065
|
||||
0xAF36 0x8DF4 # 跴 -- 257,066
|
||||
0xAF37 0x97CC # 韌 -- 257,067
|
||||
0xAF38 0x8463 # 董 -- 257,070
|
||||
0xAF39 0x8CE6 # 賦 -- 257,071
|
||||
0xAF3A 0x65EC # 旬 -- 257,072
|
||||
0xAF3B 0x8B19 # 謙 -- 257,073
|
||||
0xAF3C 0x9177 # 酷 -- 257,074
|
||||
0xAF3D 0x61BE # 憾 -- 257,075
|
||||
0xAF3E 0x7009 # 瀉 -- 257,076
|
||||
0xAF3F 0x6284 # 抄 -- 257,077
|
||||
0xAF40 0x63A0 # 掠 -- 257,100
|
||||
0xAF41 0x5BE1 # 寡 -- 257,101
|
||||
0xAF42 0x6714 # 朔 -- 257,102
|
||||
0xAF43 0x9E9F # 麟 -- 257,103
|
||||
0xAF44 0x8956 # 襖 -- 257,104
|
||||
0xAF45 0x6795 # 枕 -- 257,105
|
||||
0xAF46 0x7184 # 熄 -- 257,106
|
||||
0xAF47 0x6FC1 # 濁 -- 257,107
|
||||
0xAF48 0x76F2 # 盲 -- 257,110
|
||||
0xAF49 0x5112 # 儒 -- 257,111
|
||||
0xAF4A 0x71C4 # 燄 -- 257,112
|
||||
0xAF4B 0x4FCA # 俊 -- 257,113
|
||||
0xAF4C 0x5F4C # 彌 -- 257,114
|
||||
0xAF4D 0x60A6 # 悦 -- 257,115
|
||||
0xAF4E 0x788C # 碌 -- 257,116
|
||||
0xAF4F 0x6CB8 # 沸 -- 257,117
|
||||
0xAF50 0x6399 # 掙 -- 257,120
|
||||
0xAF51 0x789F # 碟 -- 257,121
|
||||
0xAF52 0x5C3F # 尿 -- 257,122
|
||||
0xAF53 0x93DF # 鏟 -- 257,123
|
||||
0xAF54 0x8E48 # 蹈 -- 257,124
|
||||
0xAF55 0x6C2B # 氫 -- 257,125
|
||||
0xAF56 0x6AC8 # 櫈 -- 257,126
|
||||
0xAF57 0x813E # 脾 -- 257,127
|
||||
0xAF58 0x59E5 # 姥 -- 257,130
|
||||
0xAF59 0x5958 # 奘 -- 257,131
|
||||
0xAF5A 0x6C85 # 沅 -- 257,132
|
||||
0xAF5B 0x8548 # 蕈 -- 257,133
|
||||
0xAF5C 0x54AA # 咪 -- 257,134
|
||||
0xAF5D 0x716C # 煬 -- 257,135
|
||||
0xAF5E 0x77E2 # 矢 -- 257,136
|
||||
0xAF5F 0x6AFB # 櫻 -- 257,137
|
||||
0xAF60 0x6031 # 怱 -- 257,140
|
||||
0xAF61 0x673D # 朽 -- 257,141
|
||||
0xAF62 0x69B4 # 榴 -- 257,142
|
||||
0xAF63 0x6688 # 暈 -- 257,143
|
||||
0xAF64 0x6756 # 杖 -- 257,144
|
||||
0xAF65 0x58AE # 墮 -- 257,145
|
||||
0xAF66 0x4F30 # 估 -- 257,146
|
||||
0xAF67 0x9B1A # 鬚 -- 257,147
|
||||
0xAF68 0x87EC # 蟬 -- 257,150
|
||||
0xAF69 0x5D4C # 嵌 -- 257,151
|
||||
0xAF6A 0x7B75 # 筵 -- 257,152
|
||||
0xAF6B 0x7A57 # 穗 -- 257,153
|
||||
0xAF6C 0x6FEB # 濫 -- 257,154
|
||||
0xAF6D 0x901B # 逛 -- 257,155
|
||||
0xAF6E 0x846B # 葫 -- 257,156
|
||||
0xAF6F 0x647A # 摺 -- 257,157
|
||||
0xAF70 0x8EC0 # 軀 -- 257,160
|
||||
0xAF71 0x83F1 # 菱 -- 257,161
|
||||
0xAF72 0x7B8F # 箏 -- 257,162
|
||||
0xAF73 0x553E # 唾 -- 257,163
|
||||
0xAF74 0x620A # 戊 -- 257,164
|
||||
0xAF75 0x86F9 # 蛹 -- 257,165
|
||||
0xAF76 0x82A5 # 芥 -- 257,166
|
||||
0xAF77 0x6C74 # 汴 -- 257,167
|
||||
0xAF78 0x8116 # 脖 -- 257,170
|
||||
0xAF79 0x6DAE # 涮 -- 257,171
|
||||
0xAF7A 0x620E # 戎 -- 257,172
|
||||
0xAF7B 0x978D # 鞍 -- 257,173
|
||||
0xAF7C 0x961C # 阜 -- 257,174
|
||||
0xAF7D 0x7199 # 熙 -- 257,175
|
||||
0xAF7E 0x671D # 朝 -- 257,176
|
||||
0xAFA1 0x78EF # 磯 -- 257,241
|
||||
0xAFA2 0x964C # 陌 -- 257,242
|
||||
0xAFA3 0x5514 # 唔 -- 257,243
|
||||
0xAFA4 0x720D # 爍 -- 257,244
|
||||
0xAFA5 0x9016 # 逖 -- 257,245
|
||||
0xAFA6 0x524C # 剌 -- 257,246
|
||||
0xAFA7 0x86A9 # 蚩 -- 257,247
|
||||
0xAFA8 0x5D9D # 嶝 -- 257,250
|
||||
0xAFA9 0x6C2F # 氯 -- 257,251
|
||||
0xAFAA 0x8CB8 # 貸 -- 257,252
|
||||
0xAFAB 0x9B91 # 鮑 -- 257,253
|
||||
0xAFAC 0x85E4 # 藤 -- 257,254
|
||||
0xAFAD 0x541F # 吟 -- 257,255
|
||||
0xAFAE 0x6E4A # 湊 -- 257,256
|
||||
0xAFAF 0x5BD3 # 寓 -- 257,257
|
||||
0xAFB0 0x7DFB # 緻 -- 257,260
|
||||
0xAFB1 0x9091 # 邑 -- 257,261
|
||||
0xAFB2 0x76BA # 皺 -- 257,262
|
||||
0xAFB3 0x6CBE # 沾 -- 257,263
|
||||
0xAFB4 0x91DC # 釜 -- 257,264
|
||||
0xAFB5 0x5256 # 剖 -- 257,265
|
||||
0xAFB6 0x64AE # 撮 -- 257,266
|
||||
0xAFB7 0x5B99 # 宙 -- 257,267
|
||||
0xAFB8 0x6DDE # 淞 -- 257,270
|
||||
0xAFB9 0x543B # 吻 -- 257,271
|
||||
0xAFBA 0x5527 # 唧 -- 257,272
|
||||
0xAFBB 0x9183 # 醃 -- 257,273
|
||||
0xAFBC 0x7FE9 # 翩 -- 257,274
|
||||
0xAFBD 0x6930 # 椰 -- 257,275
|
||||
0xAFBE 0x5764 # 坤 -- 257,276
|
||||
0xAFBF 0x55C5 # 嗅 -- 257,277
|
||||
0xAFC0 0x5162 # 兢 -- 257,300
|
||||
0xAFC1 0x9834 # 頴 -- 257,301
|
||||
0xAFC2 0x79A7 # 禧 -- 257,302
|
||||
0xAFC3 0x8471 # 葱 -- 257,303
|
||||
0xAFC4 0x7C0D # 簍 -- 257,304
|
||||
0xAFC5 0x68AD # 梭 -- 257,305
|
||||
0xAFC6 0x7C27 # 簧 -- 257,306
|
||||
0xAFC7 0x6E2D # 渭 -- 257,307
|
||||
0xAFC8 0x6BD3 # 毓 -- 257,310
|
||||
0xAFC9 0x6E44 # 湄 -- 257,311
|
||||
0xAFCA 0x88F4 # 裴 -- 257,312
|
||||
0xAFCB 0x7015 # 瀕 -- 257,313
|
||||
0xAFCC 0x6C9B # 沛 -- 257,314
|
||||
0xAFCD 0x93A2 # 鎢 -- 257,315
|
||||
0xAFCE 0x9EB4 # 麴 -- 257,316
|
||||
0xAFCF 0x838E # 莎 -- 257,317
|
||||
0xAFD0 0x750C # 甌 -- 257,320
|
||||
0xAFD1 0x5AD8 # 嫘 -- 257,321
|
||||
0xAFD2 0x59E6 # 姦 -- 257,322
|
||||
0xAFD3 0x56B0 # 嚰 -- 257,323
|
||||
0xAFD4 0x9451 # 鑑 -- 257,324
|
||||
0xAFD5 0x6D74 # 浴 -- 257,325
|
||||
0xAFD6 0x5BE2 # 寢 -- 257,326
|
||||
0xAFD7 0x5E25 # 帥 -- 257,327
|
||||
0xAFD8 0x7ACA # 竊 -- 257,330
|
||||
0xAFD9 0x819D # 膝 -- 257,331
|
||||
0xAFDA 0x8F9C # 辜 -- 257,332
|
||||
0xAFDB 0x852D # 蔭 -- 257,333
|
||||
0xAFDC 0x99AE # 馮 -- 257,334
|
||||
0xAFDD 0x588A # 墊 -- 257,335
|
||||
0xAFDE 0x797F # 祿 -- 257,336
|
||||
0xAFDF 0x75D8 # 痘 -- 257,337
|
||||
0xAFE0 0x7627 # 瘧 -- 257,340
|
||||
0xAFE1 0x849C # 蒜 -- 257,341
|
||||
0xAFE2 0x6A80 # 檀 -- 257,342
|
||||
0xAFE3 0x5146 # 兆 -- 257,343
|
||||
0xAFE4 0x7AC4 # 竄 -- 257,344
|
||||
0xAFE5 0x6490 # 撐 -- 257,345
|
||||
0xAFE6 0x68F2 # 棲 -- 257,346
|
||||
0xAFE7 0x55FD # 嗽 -- 257,347
|
||||
0xAFE8 0x88F9 # 裹 -- 257,350
|
||||
0xAFE9 0x5BE5 # 寥 -- 257,351
|
||||
0xAFEA 0x51CB # 凋 -- 257,352
|
||||
0xAFEB 0x711A # 焚 -- 257,353
|
||||
0xAFED 0x8DCB # 跋 -- 257,355
|
||||
0xAFEE 0x56AE # 嚮 -- 257,356
|
||||
0xAFEF 0x903E # 逾 -- 257,357
|
||||
0xAFF0 0x60BC # 悼 -- 257,360
|
||||
0xAFF1 0x7E45 # 繅 -- 257,361
|
||||
0xAFF2 0x632A # 挪 -- 257,362
|
||||
0xAFF3 0x501A # 倚 -- 257,363
|
||||
0xAFF4 0x8AA6 # 誦 -- 257,364
|
||||
0xAFF5 0x76EA # 盪 -- 257,365
|
||||
0xAFF6 0x68B5 # 梵 -- 257,366
|
||||
0xAFF7 0x5F65 # 彥 -- 257,367
|
||||
0xAFF8 0x9293 # 銓 -- 257,370
|
||||
0xAFF9 0x6853 # 桓 -- 257,371
|
||||
0xAFFA 0x7435 # 琵 -- 257,372
|
||||
0xAFFB 0x7436 # 琶 -- 257,373
|
||||
0xAFFC 0x5D69 # 嵩 -- 257,374
|
||||
0xAFFD 0x8910 # 褐 -- 257,375
|
||||
0xAFFE 0x54C4 # 哄 -- 257,376
|
||||
191
unicode/xerox/unihan/XCCS-260=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-260=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "260" UNIHAN
|
||||
|
||||
0xB021 0x83F4 # 菴 -- 260,041
|
||||
0xB022 0x7BE1 # 篡 -- 260,042
|
||||
0xB023 0x6D87 # 涇 -- 260,043
|
||||
0xB024 0x621F # 戟 -- 260,044
|
||||
0xB025 0x69AB # 榫 -- 260,045
|
||||
0xB026 0x7426 # 琦 -- 260,046
|
||||
0xB027 0x9EFB # 黻 -- 260,047
|
||||
0xB028 0x9245 # 鉅 -- 260,050
|
||||
0xB029 0x804A # 聊 -- 260,051
|
||||
0xB02A 0x8086 # 肆 -- 260,052
|
||||
0xB02B 0x50FB # 僻 -- 260,053
|
||||
0xB02C 0x62EF # 拯 -- 260,054
|
||||
0xB02D 0x8ECB # 軋 -- 260,055
|
||||
0xB02E 0x816B # 腫 -- 260,056
|
||||
0xB02F 0x56DA # 囚 -- 260,057
|
||||
0xB030 0x7891 # 碑 -- 260,060
|
||||
0xB031 0x61C8 # 懈 -- 260,061
|
||||
0xB032 0x6A35 # 樵 -- 260,062
|
||||
0xB033 0x6467 # 摧 -- 260,063
|
||||
0xB034 0x59DA # 姚 -- 260,064
|
||||
0xB035 0x6055 # 恕 -- 260,065
|
||||
0xB036 0x76FE # 盾 -- 260,066
|
||||
0xB037 0x5EEC # 廬 -- 260,067
|
||||
0xB038 0x9B41 # 魁 -- 260,070
|
||||
0xB039 0x632B # 挫 -- 260,071
|
||||
0xB03A 0x71D9 # 燙 -- 260,072
|
||||
0xB03B 0x6E3A # 渺 -- 260,073
|
||||
0xB03C 0x5561 # 啡 -- 260,074
|
||||
0xB03D 0x733F # 猿 -- 260,075
|
||||
0xB03E 0x5F59 # 彙 -- 260,076
|
||||
0xB03F 0x6B89 # 殉 -- 260,077
|
||||
0xB040 0x7C37 # 簷 -- 260,100
|
||||
0xB041 0x650F # 攏 -- 260,101
|
||||
0xB042 0x7940 # 祀 -- 260,102
|
||||
0xB043 0x51CC # 凌 -- 260,103
|
||||
0xB044 0x7C6C # 籬 -- 260,104
|
||||
0xB045 0x5703 # 圃 -- 260,105
|
||||
0xB046 0x9ECD # 黍 -- 260,106
|
||||
0xB047 0x8A60 # 詠 -- 260,107
|
||||
0xB048 0x5AC9 # 嫉 -- 260,110
|
||||
0xB049 0x5983 # 妃 -- 260,111
|
||||
0xB04A 0x7646 # 癆 -- 260,112
|
||||
0xB04B 0x7261 # 牡 -- 260,113
|
||||
0xB04C 0x9709 # 霉 -- 260,114
|
||||
0xB04D 0x8475 # 葵 -- 260,115
|
||||
0xB04E 0x6177 # 慷 -- 260,116
|
||||
0xB04F 0x5321 # 匡 -- 260,117
|
||||
0xB050 0x8708 # 蜈 -- 260,120
|
||||
0xB051 0x9C13 # 鰓 -- 260,121
|
||||
0xB052 0x56A8 # 嚨 -- 260,122
|
||||
0xB053 0x55D3 # 嗓 -- 260,123
|
||||
0xB054 0x86A3 # 蚣 -- 260,124
|
||||
0xB055 0x5319 # 匙 -- 260,125
|
||||
0xB056 0x4F15 # 伕 -- 260,126
|
||||
0xB057 0x5496 # 咖 -- 260,127
|
||||
0xB058 0x5384 # 厄 -- 260,130
|
||||
0xB059 0x7165 # 煥 -- 260,131
|
||||
0xB05A 0x8087 # 肇 -- 260,132
|
||||
0xB05B 0x85B0 # 薰 -- 260,133
|
||||
0xB05C 0x9716 # 霖 -- 260,134
|
||||
0xB05D 0x6493 # 撓 -- 260,135
|
||||
0xB05E 0x7A46 # 穆 -- 260,136
|
||||
0xB05F 0x7274 # 牴 -- 260,137
|
||||
0xB060 0x6FEF # 濯 -- 260,140
|
||||
0xB061 0x7A20 # 稠 -- 260,141
|
||||
0xB062 0x5480 # 咀 -- 260,142
|
||||
0xB063 0x7AC7 # 竇 -- 260,143
|
||||
0xB064 0x7FDF # 翟 -- 260,144
|
||||
0xB065 0x80F0 # 胰 -- 260,145
|
||||
0xB066 0x798E # 禎 -- 260,146
|
||||
0xB067 0x6F33 # 漳 -- 260,147
|
||||
0xB068 0x64BF # 撿 -- 260,150
|
||||
0xB069 0x715E # 煞 -- 260,151
|
||||
0xB06A 0x879F # 螟 -- 260,152
|
||||
0xB06B 0x7D02 # 紂 -- 260,153
|
||||
0xB06C 0x81DA # 臚 -- 260,154
|
||||
0xB06D 0x5830 # 堰 -- 260,155
|
||||
0xB06E 0x82FB # 苻 -- 260,156
|
||||
0xB06F 0x5676 # 噶 -- 260,157
|
||||
0xB070 0x58F9 # 壹 -- 260,160
|
||||
0xB071 0x914C # 酌 -- 260,161
|
||||
0xB072 0x5EB6 # 庶 -- 260,162
|
||||
0xB073 0x754F # 畏 -- 260,163
|
||||
0xB074 0x5378 # 卸 -- 260,164
|
||||
0xB075 0x6208 # 戈 -- 260,165
|
||||
0xB076 0x50AC # 催 -- 260,166
|
||||
0xB077 0x5835 # 堵 -- 260,167
|
||||
0xB078 0x5352 # 卒 -- 260,170
|
||||
0xB079 0x70D8 # 烘 -- 260,171
|
||||
0xB07A 0x818F # 膏 -- 260,172
|
||||
0xB07B 0x58C7 # 壇 -- 260,173
|
||||
0xB07C 0x8123 # 脣 -- 260,174
|
||||
0xB07D 0x896F # 襯 -- 260,175
|
||||
0xB07E 0x8235 # 舵 -- 260,176
|
||||
0xB0A1 0x7CA5 # 粥 -- 260,241
|
||||
0xB0A2 0x6977 # 楷 -- 260,242
|
||||
0xB0A3 0x6417 # 搗 -- 260,243
|
||||
0xB0A4 0x68DF # 棟 -- 260,244
|
||||
0xB0A5 0x62D0 # 拐 -- 260,245
|
||||
0xB0A6 0x68A2 # 梢 -- 260,246
|
||||
0xB0A7 0x6FB1 # 澱 -- 260,247
|
||||
0xB0A8 0x6500 # 攀 -- 260,250
|
||||
0xB0A9 0x5D87 # 嶇 -- 260,251
|
||||
0xB0AA 0x7DEF # 緯 -- 260,252
|
||||
0xB0AB 0x5C90 # 岐 -- 260,253
|
||||
0xB0AC 0x65FA # 旺 -- 260,254
|
||||
0xB0AD 0x8CBD # 貽 -- 260,255
|
||||
0xB0AE 0x6380 # 掀 -- 260,256
|
||||
0xB0AF 0x5085 # 傅 -- 260,257
|
||||
0xB0B0 0x70E4 # 烤 -- 260,260
|
||||
0xB0B1 0x860A # 蘊 -- 260,261
|
||||
0xB0B2 0x8F45 # 轅 -- 260,262
|
||||
0xB0B3 0x71AC # 熬 -- 260,263
|
||||
0xB0B4 0x576A # 坪 -- 260,264
|
||||
0xB0B5 0x6DE4 # 淤 -- 260,265
|
||||
0xB0B6 0x7E37 # 縷 -- 260,266
|
||||
0xB0B7 0x962A # 阪 -- 260,267
|
||||
0xB0B8 0x5C5C # 屜 -- 260,270
|
||||
0xB0B9 0x5F18 # 弘 -- 260,271
|
||||
0xB0BA 0x8713 # 蜓 -- 260,272
|
||||
0xB0BB 0x873B # 蜻 -- 260,273
|
||||
0xB0BC 0x9BE8 # 鯨 -- 260,274
|
||||
0xB0BD 0x5598 # 喘 -- 260,275
|
||||
0xB0BE 0x5398 # 厘 -- 260,276
|
||||
0xB0BF 0x6291 # 抑 -- 260,277
|
||||
0xB0C0 0x9B31 # 鬱 -- 260,300
|
||||
0xB0C1 0x98ED # 飭 -- 260,301
|
||||
0xB0C2 0x865E # 虞 -- 260,302
|
||||
0xB0C3 0x77BB # 瞻 -- 260,303
|
||||
0xB0C4 0x786F # 硯 -- 260,304
|
||||
0xB0C5 0x55DA # 嗚 -- 260,305
|
||||
0xB0C6 0x60F6 # 惶 -- 260,306
|
||||
0xB0C7 0x633E # 挾 -- 260,307
|
||||
0xB0C8 0x8084 # 肄 -- 260,310
|
||||
0xB0C9 0x7CD9 # 糙 -- 260,311
|
||||
0xB0CA 0x68FA # 棺 -- 260,312
|
||||
0xB0CB 0x70F9 # 烹 -- 260,313
|
||||
0xB0CC 0x7960 # 祠 -- 260,314
|
||||
0xB0CD 0x7DB4 # 綴 -- 260,315
|
||||
0xB0CE 0x5E5F # 幟 -- 260,316
|
||||
0xB0CF 0x8155 # 腕 -- 260,317
|
||||
0xB0D0 0x6BAE # 殮 -- 260,320
|
||||
0xB0D1 0x6BAF # 殯 -- 260,321
|
||||
0xB0D2 0x8A50 # 詐 -- 260,322
|
||||
0xB0D3 0x86C0 # 蛀 -- 260,323
|
||||
0xB0D4 0x4FFE # 俾 -- 260,324
|
||||
0xB0D5 0x8B0E # 謎 -- 260,325
|
||||
0xB0D6 0x9B44 # 魄 -- 260,326
|
||||
0xB0D7 0x8511 # 蔑 -- 260,327
|
||||
0xB0D8 0x8A1D # 訝 -- 260,330
|
||||
0xB0D9 0x5080 # 傀 -- 260,331
|
||||
0xB0DA 0x71EC # 燬 -- 260,332
|
||||
0xB0DB 0x5442 # 呂 -- 260,333
|
||||
0xB0DC 0x6953 # 楓 -- 260,334
|
||||
0xB0DD 0x904F # 遏 -- 260,335
|
||||
0xB0DE 0x83E0 # 菠 -- 260,336
|
||||
0xB0DF 0x707C # 灼 -- 260,337
|
||||
0xB0E0 0x76BF # 皿 -- 260,340
|
||||
0xB0E1 0x7766 # 睦 -- 260,341
|
||||
0xB0E2 0x7737 # 眷 -- 260,342
|
||||
0xB0E3 0x6C1B # 氛 -- 260,343
|
||||
0xB0E4 0x6C13 # 氓 -- 260,344
|
||||
0xB0E5 0x901E # 逞 -- 260,345
|
||||
0xB0E6 0x78BE # 碾 -- 260,346
|
||||
0xB0E7 0x851A # 蔚 -- 260,347
|
||||
0xB0E8 0x7901 # 礁 -- 260,350
|
||||
0xB0E9 0x5121 # 儡 -- 260,351
|
||||
0xB0EA 0x780C # 砌 -- 260,352
|
||||
0xB0EB 0x854A # 蕊 -- 260,353
|
||||
0xB0EC 0x7FF9 # 翹 -- 260,354
|
||||
0xB0ED 0x86FE # 蛾 -- 260,355
|
||||
0xB0EE 0x57A2 # 垢 -- 260,356
|
||||
0xB0EF 0x7779 # 睹 -- 260,357
|
||||
0xB0F0 0x576F # 坯 -- 260,360
|
||||
0xB0F1 0x7329 # 猩 -- 260,361
|
||||
0xB0F2 0x652C # 攬 -- 260,362
|
||||
0xB0F3 0x54FA # 哺 -- 260,363
|
||||
0xB0F4 0x853D # 蔽 -- 260,364
|
||||
0xB0F5 0x9DB4 # 鶴 -- 260,365
|
||||
0xB0F6 0x983B # 頻 -- 260,366
|
||||
0xB0F7 0x9006 # 逆 -- 260,367
|
||||
0xB0F8 0x9444 # 鑄 -- 260,370
|
||||
0xB0F9 0x4FB6 # 侶 -- 260,371
|
||||
0xB0FA 0x62C2 # 拂 -- 260,372
|
||||
0xB0FB 0x6789 # 枉 -- 260,373
|
||||
0xB0FC 0x8C6B # 豫 -- 260,374
|
||||
0xB0FD 0x6EBA # 溺 -- 260,375
|
||||
0xB0FE 0x834A # 荊 -- 260,376
|
||||
191
unicode/xerox/unihan/XCCS-261=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-261=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "261" UNIHAN
|
||||
|
||||
0xB121 0x8638 # 蘸 -- 261,041
|
||||
0xB122 0x6C70 # 汰 -- 261,042
|
||||
0xB123 0x6021 # 怡 -- 261,043
|
||||
0xB124 0x5FF1 # 忱 -- 261,044
|
||||
0xB125 0x5BF5 # 寵 -- 261,045
|
||||
0xB126 0x9A37 # 騷 -- 261,046
|
||||
0xB127 0x64C5 # 擅 -- 261,047
|
||||
0xB128 0x7AC8 # 竈 -- 261,050
|
||||
0xB129 0x7D6E # 絮 -- 261,051
|
||||
0xB12A 0x9470 # 鑰 -- 261,052
|
||||
0xB12B 0x7525 # 甥 -- 261,053
|
||||
0xB12C 0x99B4 # 馴 -- 261,054
|
||||
0xB12D 0x7C3E # 簾 -- 261,055
|
||||
0xB12E 0x5FFF # 忿 -- 261,056
|
||||
0xB12F 0x655E # 敞 -- 261,057
|
||||
0xB130 0x4EA5 # 亥 -- 261,060
|
||||
0xB131 0x5FA1 # 御 -- 261,061
|
||||
0xB132 0x6D3D # 洽 -- 261,062
|
||||
0xB133 0x8D66 # 赦 -- 261,063
|
||||
0xB134 0x61FA # 懺 -- 261,064
|
||||
0xB135 0x758A # 疊 -- 261,065
|
||||
0xB136 0x77AC # 瞬 -- 261,066
|
||||
0xB137 0x8B4F # 譏 -- 261,067
|
||||
0xB138 0x589C # 墜 -- 261,070
|
||||
0xB139 0x6FE4 # 濤 -- 261,071
|
||||
0xB13A 0x82D1 # 苑 -- 261,072
|
||||
0xB13B 0x779E # 瞞 -- 261,073
|
||||
0xB13C 0x8A6D # 詭 -- 261,074
|
||||
0xB13D 0x9BC9 # 鯉 -- 261,075
|
||||
0xB13E 0x53C9 # 叉 -- 261,076
|
||||
0xB13F 0x54BD # 咽 -- 261,077
|
||||
0xB140 0x65AC # 斬 -- 261,100
|
||||
0xB141 0x808B # 肋 -- 261,101
|
||||
0xB142 0x55BB # 喻 -- 261,102
|
||||
0xB143 0x71A8 # 熨 -- 261,103
|
||||
0xB144 0x4FDE # 俞 -- 261,104
|
||||
0xB145 0x6AE5 # 櫥 -- 261,105
|
||||
0xB146 0x6B67 # 歧 -- 261,106
|
||||
0xB147 0x634F # 捏 -- 261,107
|
||||
0xB148 0x5A9A # 媚 -- 261,110
|
||||
0xB149 0x7AAA # 窪 -- 261,111
|
||||
0xB14A 0x6CBC # 沼 -- 261,112
|
||||
0xB14B 0x76DE # 盞 -- 261,113
|
||||
0xB14C 0x9839 # 頹 -- 261,114
|
||||
0xB14D 0x8943 # 襃 -- 261,115
|
||||
0xB14E 0x6233 # 戳 -- 261,116
|
||||
0xB14F 0x8654 # 虔 -- 261,117
|
||||
0xB150 0x672D # 札 -- 261,120
|
||||
0xB151 0x7BE4 # 篤 -- 261,121
|
||||
0xB152 0x8CAF # 貯 -- 261,122
|
||||
0xB153 0x7DE0 # 締 -- 261,123
|
||||
0xB154 0x6A1F # 樟 -- 261,124
|
||||
0xB155 0x66AE # 暮 -- 261,125
|
||||
0xB156 0x61E6 # 懦 -- 261,126
|
||||
0xB157 0x6ED4 # 滔 -- 261,127
|
||||
0xB158 0x85FB # 藻 -- 261,130
|
||||
0xB159 0x52BE # 劾 -- 261,131
|
||||
0xB15A 0x85D5 # 藕 -- 261,132
|
||||
0xB15B 0x7A84 # 窄 -- 261,133
|
||||
0xB15C 0x714E # 煎 -- 261,134
|
||||
0xB15D 0x63C0 # 揀 -- 261,135
|
||||
0xB15E 0x807E # 聾 -- 261,136
|
||||
0xB15F 0x7CEF # 糯 -- 261,137
|
||||
0xB160 0x6CE3 # 泣 -- 261,140
|
||||
0xB161 0x7A62 # 穢 -- 261,141
|
||||
0xB162 0x74A7 # 璧 -- 261,142
|
||||
0xB163 0x83BD # 莽 -- 261,143
|
||||
0xB164 0x5E9A # 庚 -- 261,144
|
||||
0xB165 0x9591 # 閑 -- 261,145
|
||||
0xB166 0x908F # 邏 -- 261,146
|
||||
0xB167 0x52D8 # 勘 -- 261,147
|
||||
0xB168 0x6BC6 # 毆 -- 261,150
|
||||
0xB169 0x97CB # 韋 -- 261,151
|
||||
0xB16A 0x5F17 # 弗 -- 261,152
|
||||
0xB16B 0x6846 # 框 -- 261,153
|
||||
0xB16C 0x62F1 # 拱 -- 261,154
|
||||
0xB16D 0x8A23 # 訣 -- 261,155
|
||||
0xB16E 0x8AA8 # 誨 -- 261,156
|
||||
0xB16F 0x5203 # 刃 -- 261,157
|
||||
0xB170 0x66A8 # 暨 -- 261,160
|
||||
0xB171 0x82DB # 苛 -- 261,161
|
||||
0xB172 0x8F3F # 輿 -- 261,162
|
||||
0xB173 0x6D36 # 洶 -- 261,163
|
||||
0xB174 0x533F # 匿 -- 261,164
|
||||
0xB175 0x7A98 # 窘 -- 261,165
|
||||
0xB176 0x4E4D # 乍 -- 261,166
|
||||
0xB177 0x625B # 扛 -- 261,167
|
||||
0xB178 0x50F5 # 僵 -- 261,170
|
||||
0xB179 0x6E23 # 渣 -- 261,171
|
||||
0xB17A 0x6EC4 # 滄 -- 261,172
|
||||
0xB17B 0x703E # 瀾 -- 261,173
|
||||
0xB17C 0x5B09 # 嬉 -- 261,174
|
||||
0xB17D 0x5CFB # 峻 -- 261,175
|
||||
0xB17E 0x5544 # 啄 -- 261,176
|
||||
0xB1A1 0x4FD0 # 俐 -- 261,241
|
||||
0xB1A2 0x97A6 # 鞦 -- 261,242
|
||||
0xB1A3 0x4FE0 # 俠 -- 261,243
|
||||
0xB1A4 0x6893 # 梓 -- 261,244
|
||||
0xB1A5 0x792B # 礫 -- 261,245
|
||||
0xB1A6 0x755A # 畚 -- 261,246
|
||||
0xB1A7 0x8822 # 蠢 -- 261,247
|
||||
0xB1A8 0x6C08 # 氈 -- 261,250
|
||||
0xB1A9 0x9112 # 鄒 -- 261,251
|
||||
0xB1AA 0x914B # 酋 -- 261,252
|
||||
0xB1AB 0x92C5 # 鋅 -- 261,253
|
||||
0xB1AC 0x9803 # 頃 -- 261,254
|
||||
0xB1AD 0x8CB3 # 貳 -- 261,255
|
||||
0xB1AE 0x8CD1 # 賑 -- 261,256
|
||||
0xB1AF 0x514C # 兌 -- 261,257
|
||||
0xB1B0 0x8ED2 # 軒 -- 261,260
|
||||
0xB1B1 0x82DF # 苟 -- 261,261
|
||||
0xB1B2 0x6614 # 昔 -- 261,262
|
||||
0xB1B3 0x522A # 刪 -- 261,263
|
||||
0xB1B4 0x938A # 鎊 -- 261,264
|
||||
0xB1B5 0x75E2 # 痢 -- 261,265
|
||||
0xB1B6 0x7011 # 瀑 -- 261,266
|
||||
0xB1B7 0x67F5 # 柵 -- 261,267
|
||||
0xB1B8 0x7ABA # 窺 -- 261,270
|
||||
0xB1B9 0x8E89 # 躉 -- 261,271
|
||||
0xB1BA 0x9472 # 鑲 -- 261,272
|
||||
0xB1BB 0x6B83 # 殃 -- 261,273
|
||||
0xB1BC 0x8AE7 # 諧 -- 261,274
|
||||
0xB1BD 0x64D2 # 擒 -- 261,275
|
||||
0xB1BE 0x68DA # 棚 -- 261,276
|
||||
0xB1BF 0x88D9 # 裙 -- 261,277
|
||||
0xB1C0 0x6F97 # 澗 -- 261,300
|
||||
0xB1C1 0x819B # 膛 -- 261,301
|
||||
0xB1C2 0x986B # 顫 -- 261,302
|
||||
0xB1C3 0x8354 # 荔 -- 261,303
|
||||
0xB1C4 0x8FC4 # 迄 -- 261,304
|
||||
0xB1C5 0x65ED # 旭 -- 261,305
|
||||
0xB1C6 0x7FF0 # 翰 -- 261,306
|
||||
0xB1C7 0x527F # 剿 -- 261,307
|
||||
0xB1C8 0x5919 # 夙 -- 261,310
|
||||
0xB1C9 0x60BD # 悽 -- 261,311
|
||||
0xB1CA 0x86A4 # 蚤 -- 261,312
|
||||
0xB1CB 0x5180 # 冀 -- 261,313
|
||||
0xB1CC 0x6B79 # 歹 -- 261,314
|
||||
0xB1CD 0x5C39 # 尹 -- 261,315
|
||||
0xB1CE 0x7316 # 猖 -- 261,316
|
||||
0xB1CF 0x66E0 # 曠 -- 261,317
|
||||
0xB1D0 0x9761 # 靡 -- 261,320
|
||||
0xB1D1 0x8534 # 蔴 -- 261,321
|
||||
0xB1D2 0x7CE0 # 糠 -- 261,322
|
||||
0xB1D3 0x8513 # 蔓 -- 261,323
|
||||
0xB1D4 0x8098 # 肘 -- 261,324
|
||||
0xB1D5 0x82AD # 芭 -- 261,325
|
||||
0xB1D6 0x8165 # 腥 -- 261,326
|
||||
0xB1D7 0x95A4 # 閤 -- 261,327
|
||||
0xB1D8 0x8782 # 螂 -- 261,330
|
||||
0xB1D9 0x9BFD # 鯽 -- 261,331
|
||||
0xB1DA 0x8594 # 薔 -- 261,332
|
||||
0xB1DB 0x81BA # 膺 -- 261,333
|
||||
0xB1DC 0x66D9 # 曙 -- 261,334
|
||||
0xB1DD 0x58D5 # 壕 -- 261,335
|
||||
0xB1DE 0x6D8E # 涎 -- 261,336
|
||||
0xB1DF 0x8768 # 蝨 -- 261,337
|
||||
0xB1E0 0x87B3 # 螳 -- 261,340
|
||||
0xB1E1 0x9320 # 錠 -- 261,341
|
||||
0xB1E2 0x6582 # 斂 -- 261,342
|
||||
0xB1E3 0x7678 # 癸 -- 261,343
|
||||
0xB1E4 0x75B9 # 疹 -- 261,344
|
||||
0xB1E5 0x574A # 坊 -- 261,345
|
||||
0xB1E6 0x6753 # 杓 -- 261,346
|
||||
0xB1E7 0x7898 # 碘 -- 261,347
|
||||
0xB1E8 0x8C4C # 豌 -- 261,350
|
||||
0xB1E9 0x740D # 琍 -- 261,351
|
||||
0xB1EA 0x85A6 # 薦 -- 261,352
|
||||
0xB1EB 0x6EEF # 滯 -- 261,353
|
||||
0xB1EC 0x4FF8 # 俸 -- 261,354
|
||||
0xB1ED 0x8B01 # 謁 -- 261,355
|
||||
0xB1EE 0x7AE3 # 竣 -- 261,356
|
||||
0xB1EF 0x4FDF # 俟 -- 261,357
|
||||
0xB1F0 0x90AA # 邪 -- 261,360
|
||||
0xB1F1 0x9F4B # 齋 -- 261,361
|
||||
0xB1F2 0x79BE # 禾 -- 261,362
|
||||
0xB1F3 0x7D79 # 絹 -- 261,363
|
||||
0xB1F4 0x8D16 # 贖 -- 261,364
|
||||
0xB1F5 0x5B7A # 孺 -- 261,365
|
||||
0xB1F6 0x77EF # 矯 -- 261,366
|
||||
0xB1F7 0x674F # 杏 -- 261,367
|
||||
0xB1F8 0x69D0 # 槐 -- 261,370
|
||||
0xB1F9 0x8259 # 艙 -- 261,371
|
||||
0xB1FA 0x61CA # 懊 -- 261,372
|
||||
0xB1FB 0x8FA3 # 辣 -- 261,373
|
||||
0xB1FC 0x77DB # 矛 -- 261,374
|
||||
0xB1FD 0x608D # 悍 -- 261,375
|
||||
0xB1FE 0x7D5E # 絞 -- 261,376
|
||||
191
unicode/xerox/unihan/XCCS-262=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-262=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "262" UNIHAN
|
||||
|
||||
0xB221 0x61AB # 憫 -- 262,041
|
||||
0xB222 0x8CB6 # 貶 -- 262,042
|
||||
0xB223 0x77A5 # 瞥 -- 262,043
|
||||
0xB224 0x991E # 餞 -- 262,044
|
||||
0xB225 0x69FD # 槽 -- 262,045
|
||||
0xB226 0x541D # 吝 -- 262,046
|
||||
0xB227 0x74E3 # 瓣 -- 262,047
|
||||
0xB228 0x7DB5 # 綵 -- 262,050
|
||||
0xB229 0x56A5 # 嚥 -- 262,051
|
||||
0xB22A 0x6252 # 扒 -- 262,052
|
||||
0xB22B 0x849E # 蒞 -- 262,053
|
||||
0xB22C 0x5E1B # 帛 -- 262,054
|
||||
0xB22D 0x92B9 # 銹 -- 262,055
|
||||
0xB22E 0x8A6B # 詫 -- 262,056
|
||||
0xB22F 0x9F63 # 齣 -- 262,057
|
||||
0xB230 0x99C1 # 駁 -- 262,060
|
||||
0xB231 0x923A # 鈺 -- 262,061
|
||||
0xB232 0x5B55 # 孕 -- 262,062
|
||||
0xB233 0x5E87 # 庇 -- 262,063
|
||||
0xB234 0x5B5A # 孚 -- 262,064
|
||||
0xB235 0x8FC2 # 迂 -- 262,065
|
||||
0xB236 0x8FED # 迭 -- 262,066
|
||||
0xB237 0x515C # 兜 -- 262,067
|
||||
0xB238 0x9310 # 錐 -- 262,070
|
||||
0xB239 0x9AB8 # 骸 -- 262,071
|
||||
0xB23A 0x6CAB # 沫 -- 262,072
|
||||
0xB23B 0x7119 # 焙 -- 262,073
|
||||
0xB23C 0x6B16 # 欖 -- 262,074
|
||||
0xB23D 0x6A44 # 橄 -- 262,075
|
||||
0xB23E 0x8019 # 耙 -- 262,076
|
||||
0xB23F 0x5243 # 剃 -- 262,077
|
||||
0xB240 0x8DDB # 跛 -- 262,100
|
||||
0xB241 0x6A62 # 橢 -- 262,101
|
||||
0xB242 0x604D # 恍 -- 262,102
|
||||
0xB243 0x7337 # 猷 -- 262,103
|
||||
0xB244 0x6770 # 杰 -- 262,104
|
||||
0xB245 0x7470 # 瑰 -- 262,105
|
||||
0xB246 0x9871 # 顱 -- 262,106
|
||||
0xB247 0x516E # 兮 -- 262,107
|
||||
0xB248 0x7BC6 # 篆 -- 262,110
|
||||
0xB249 0x77C7 # 矇 -- 262,111
|
||||
0xB24A 0x6C5E # 汞 -- 262,112
|
||||
0xB24B 0x9165 # 酥 -- 262,113
|
||||
0xB24C 0x51F0 # 凰 -- 262,114
|
||||
0xB24D 0x792C # 礬 -- 262,115
|
||||
0xB24E 0x5B7D # 孽 -- 262,116
|
||||
0xB24F 0x5543 # 啃 -- 262,117
|
||||
0xB250 0x4E38 # 丸 -- 262,120
|
||||
0xB251 0x8236 # 舶 -- 262,121
|
||||
0xB252 0x6B7F # 歿 -- 262,122
|
||||
0xB253 0x6897 # 梗 -- 262,123
|
||||
0xB254 0x5962 # 奢 -- 262,124
|
||||
0xB255 0x6064 # 恤 -- 262,125
|
||||
0xB256 0x7D33 # 紳 -- 262,126
|
||||
0xB257 0x6777 # 杷 -- 262,127
|
||||
0xB258 0x900D # 逍 -- 262,130
|
||||
0xB259 0x55C7 # 嗇 -- 262,131
|
||||
0xB25A 0x5016 # 倖 -- 262,132
|
||||
0xB25B 0x646F # 摯 -- 262,133
|
||||
0xB25C 0x56C2 # 囂 -- 262,134
|
||||
0xB25D 0x9EEF # 黯 -- 262,135
|
||||
0xB25E 0x533E # 匾 -- 262,136
|
||||
0xB25F 0x60B4 # 悴 -- 262,137
|
||||
0xB260 0x95E1 # 闡 -- 262,140
|
||||
0xB261 0x599D # 妝 -- 262,141
|
||||
0xB262 0x7DDD # 緝 -- 262,142
|
||||
0xB263 0x8AA3 # 誣 -- 262,143
|
||||
0xB264 0x8AA1 # 誡 -- 262,144
|
||||
0xB265 0x96A7 # 隧 -- 262,145
|
||||
0xB266 0x81A9 # 膩 -- 262,146
|
||||
0xB267 0x81BF # 膿 -- 262,147
|
||||
0xB268 0x9774 # 靴 -- 262,150
|
||||
0xB269 0x6EA2 # 溢 -- 262,151
|
||||
0xB26A 0x4F3A # 伺 -- 262,152
|
||||
0xB26B 0x6519 # 攙 -- 262,153
|
||||
0xB26C 0x9598 # 閘 -- 262,154
|
||||
0xB26D 0x840E # 萎 -- 262,155
|
||||
0xB26E 0x958F # 閏 -- 262,156
|
||||
0xB26F 0x73AB # 玫 -- 262,157
|
||||
0xB270 0x6845 # 桅 -- 262,160
|
||||
0xB271 0x5506 # 唆 -- 262,161
|
||||
0xB272 0x8892 # 袒 -- 262,162
|
||||
0xB273 0x7396 # 玖 -- 262,163
|
||||
0xB274 0x55DC # 嗜 -- 262,164
|
||||
0xB275 0x5653 # 噓 -- 262,165
|
||||
0xB276 0x63E9 # 揩 -- 262,166
|
||||
0xB277 0x8778 # 蝸 -- 262,167
|
||||
0xB278 0x9830 # 頰 -- 262,170
|
||||
0xB279 0x5195 # 冕 -- 262,171
|
||||
0xB27A 0x6C72 # 汲 -- 262,172
|
||||
0xB27B 0x566A # 噪 -- 262,173
|
||||
0xB27C 0x6813 # 栓 -- 262,174
|
||||
0xB27D 0x80ED # 胭 -- 262,175
|
||||
0xB27E 0x6A94 # 檔 -- 262,176
|
||||
0xB2A1 0x84C9 # 蓉 -- 262,241
|
||||
0xB2A2 0x78FA # 磺 -- 262,242
|
||||
0xB2A3 0x98EA # 飪 -- 262,243
|
||||
0xB2A4 0x7463 # 瑣 -- 262,244
|
||||
0xB2A5 0x4F63 # 佣 -- 262,245
|
||||
0xB2A6 0x8373 # 荳 -- 262,246
|
||||
0xB2A7 0x884D # 衍 -- 262,247
|
||||
0xB2A8 0x7B94 # 箔 -- 262,250
|
||||
0xB2A9 0x5D14 # 崔 -- 262,251
|
||||
0xB2AA 0x98B6 # 颶 -- 262,252
|
||||
0xB2AB 0x99ED # 駭 -- 262,253
|
||||
0xB2AC 0x75F3 # 痳 -- 262,254
|
||||
0xB2AD 0x7CB3 # 粳 -- 262,255
|
||||
0xB2AE 0x99B1 # 馱 -- 262,256
|
||||
0xB2AF 0x620C # 戌 -- 262,257
|
||||
0xB2B0 0x7C6E # 籮 -- 262,260
|
||||
0xB2B1 0x9F0E # 鼎 -- 262,261
|
||||
0xB2B2 0x920D # 鈍 -- 262,262
|
||||
0xB2B3 0x69BB # 榻 -- 262,263
|
||||
0xB2B4 0x7DD8 # 緘 -- 262,264
|
||||
0xB2B5 0x5055 # 偕 -- 262,265
|
||||
0xB2B6 0x60B5 # 悵 -- 262,266
|
||||
0xB2B7 0x78A9 # 碩 -- 262,267
|
||||
0xB2B8 0x7B4D # 筍 -- 262,270
|
||||
0xB2B9 0x68E0 # 棠 -- 262,271
|
||||
0xB2BA 0x840C # 萌 -- 262,272
|
||||
0xB2BB 0x5379 # 卹 -- 262,273
|
||||
0xB2BC 0x6726 # 朦 -- 262,274
|
||||
0xB2BD 0x59DC # 姜 -- 262,275
|
||||
0xB2BE 0x59BE # 妾 -- 262,276
|
||||
0xB2BF 0x91C1 # 釁 -- 262,277
|
||||
0xB2C0 0x6479 # 摹 -- 262,300
|
||||
0xB2C1 0x4EDF # 仟 -- 262,301
|
||||
0xB2C2 0x6787 # 枇 -- 262,302
|
||||
0xB2C3 0x4F88 # 侈 -- 262,303
|
||||
0xB2C4 0x88F8 # 裸 -- 262,304
|
||||
0xB2C5 0x81B3 # 膳 -- 262,305
|
||||
0xB2C6 0x766E # 癮 -- 262,306
|
||||
0xB2C7 0x7E55 # 繕 -- 262,307
|
||||
0xB2C8 0x67E9 # 柩 -- 262,310
|
||||
0xB2C9 0x7C9F # 粟 -- 262,311
|
||||
0xB2CA 0x8AC9 # 諉 -- 262,312
|
||||
0xB2CB 0x82DE # 苞 -- 262,313
|
||||
0xB2CC 0x6EAF # 溯 -- 262,314
|
||||
0xB2CD 0x60E6 # 惦 -- 262,315
|
||||
0xB2CE 0x8925 # 褥 -- 262,316
|
||||
0xB2CF 0x5277 # 剷 -- 262,317
|
||||
0xB2D0 0x8591 # 薑 -- 262,320
|
||||
0xB2D1 0x58EC # 壬 -- 262,321
|
||||
0xB2D2 0x64C4 # 擄 -- 262,322
|
||||
0xB2D3 0x975B # 靛 -- 262,323
|
||||
0xB2D4 0x9432 # 鐲 -- 262,324
|
||||
0xB2D5 0x7AA0 # 窠 -- 262,325
|
||||
0xB2D6 0x4ED5 # 仕 -- 262,326
|
||||
0xB2D7 0x5F57 # 彗 -- 262,327
|
||||
0xB2D8 0x6FFA # 濺 -- 262,330
|
||||
0xB2D9 0x8C41 # 豁 -- 262,331
|
||||
0xB2DA 0x609A # 悚 -- 262,332
|
||||
0xB2DB 0x9F15 # 鼕 -- 262,333
|
||||
0xB2DC 0x5323 # 匣 -- 262,334
|
||||
0xB2DD 0x7B06 # 笆 -- 262,335
|
||||
0xB2DE 0x51E0 # 几 -- 262,336
|
||||
0xB2DF 0x787C # 硼 -- 262,337
|
||||
0xB2E0 0x84C6 # 蓆 -- 262,340
|
||||
0xB2E1 0x75A4 # 疤 -- 262,341
|
||||
0xB2E2 0x9D26 # 鴦 -- 262,342
|
||||
0xB2E3 0x9D1B # 鴛 -- 262,343
|
||||
0xB2E4 0x934D # 鍍 -- 262,344
|
||||
0xB2E5 0x9E1E # 鸞 -- 262,345
|
||||
0xB2E6 0x95BB # 閻 -- 262,346
|
||||
0xB2E7 0x5F1B # 弛 -- 262,347
|
||||
0xB2E8 0x5366 # 卦 -- 262,350
|
||||
0xB2E9 0x502A # 倪 -- 262,351
|
||||
0xB2EA 0x7B19 # 笙 -- 262,352
|
||||
0xB2EB 0x5BC5 # 寅 -- 262,353
|
||||
0xB2EC 0x7280 # 犀 -- 262,354
|
||||
0xB2ED 0x7A37 # 稷 -- 262,355
|
||||
0xB2EE 0x7AC5 # 竅 -- 262,356
|
||||
0xB2EF 0x776C # 睬 -- 262,357
|
||||
0xB2F0 0x8378 # 荸 -- 262,360
|
||||
0xB2F1 0x71D0 # 燐 -- 262,361
|
||||
0xB2F2 0x6A59 # 橙 -- 262,362
|
||||
0xB2F3 0x8816 # 蠖 -- 262,363
|
||||
0xB2F4 0x53F1 # 叱 -- 262,364
|
||||
0xB2F5 0x5201 # 刁 -- 262,365
|
||||
0xB2F6 0x55F6 # 嗶 -- 262,366
|
||||
0xB2F7 0x965E # 陞 -- 262,367
|
||||
0xB2F8 0x7B8B # 箋 -- 262,370
|
||||
0xB2F9 0x53C1 # 叁 -- 262,371
|
||||
0xB2FA 0x8477 # 葷 -- 262,372
|
||||
0xB2FB 0x6059 # 恙 -- 262,373
|
||||
0xB2FC 0x95A8 # 閨 -- 262,374
|
||||
0xB2FD 0x708A # 炊 -- 262,375
|
||||
0xB2FE 0x5A29 # 娩 -- 262,376
|
||||
191
unicode/xerox/unihan/XCCS-263=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-263=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "263" UNIHAN
|
||||
|
||||
0xB321 0x4F43 # 佃 -- 263,041
|
||||
0xB322 0x9163 # 酣 -- 263,042
|
||||
0xB323 0x7A9F # 窟 -- 263,043
|
||||
0xB324 0x5AE1 # 嫡 -- 263,044
|
||||
0xB325 0x5EB5 # 庵 -- 263,045
|
||||
0xB326 0x8AF1 # 諱 -- 263,046
|
||||
0xB327 0x7E0A # 縊 -- 263,047
|
||||
0xB328 0x5254 # 剔 -- 263,050
|
||||
0xB329 0x5DD4 # 巔 -- 263,051
|
||||
0xB32A 0x7C2B # 簫 -- 263,052
|
||||
0xB32B 0x7601 # 瘁 -- 263,053
|
||||
0xB32C 0x62D9 # 拙 -- 263,054
|
||||
0xB32D 0x5614 # 嘔 -- 263,055
|
||||
0xB32E 0x8B04 # 謄 -- 263,056
|
||||
0xB32F 0x4E9F # 亟 -- 263,057
|
||||
0xB330 0x8F12 # 輒 -- 263,060
|
||||
0xB331 0x7F88 # 羈 -- 263,061
|
||||
0xB332 0x6DEB # 淫 -- 263,062
|
||||
0xB333 0x637A # 捺 -- 263,063
|
||||
0xB334 0x8A70 # 詰 -- 263,064
|
||||
0xB335 0x9B28 # 鬨 -- 263,065
|
||||
0xB336 0x8902 # 褂 -- 263,066
|
||||
0xB337 0x8F4D # 轍 -- 263,067
|
||||
0xB338 0x9A3E # 騾 -- 263,070
|
||||
0xB339 0x67FF # 柿 -- 263,071
|
||||
0xB33A 0x69C1 # 槁 -- 263,072
|
||||
0xB33B 0x7DBE # 綾 -- 263,073
|
||||
0xB33C 0x7B50 # 筐 -- 263,074
|
||||
0xB33D 0x9B22 # 鬢 -- 263,075
|
||||
0xB33E 0x764C # 癌 -- 263,076
|
||||
0xB33F 0x610E # 愎 -- 263,077
|
||||
0xB340 0x7A08 # 稈 -- 263,100
|
||||
0xB341 0x7BE9 # 篩 -- 263,101
|
||||
0xB342 0x753A # 町 -- 263,102
|
||||
0xB343 0x7252 # 牒 -- 263,103
|
||||
0xB344 0x5F27 # 弧 -- 263,104
|
||||
0xB345 0x82D4 # 苔 -- 263,105
|
||||
0xB346 0x8B1F # 謟 -- 263,106
|
||||
0xB347 0x9157 # 酗 -- 263,107
|
||||
0xB348 0x7E82 # 纂 -- 263,110
|
||||
0xB349 0x659F # 斟 -- 263,111
|
||||
0xB34A 0x513B # 儻 -- 263,112
|
||||
0xB34B 0x71FB # 燻 -- 263,113
|
||||
0xB34C 0x8F1C # 輜 -- 263,114
|
||||
0xB34D 0x7658 # 癘 -- 263,115
|
||||
0xB34E 0x8855 # 衕 -- 263,116
|
||||
0xB34F 0x7E59 # 繙 -- 263,117
|
||||
0xB350 0x9903 # 餃 -- 263,120
|
||||
0xB351 0x9DC2 # 鷂 -- 263,121
|
||||
0xB352 0x6273 # 扳 -- 263,122
|
||||
0xB353 0x7BD9 # 篙 -- 263,123
|
||||
0xB354 0x885A # 衚 -- 263,124
|
||||
0xB355 0x8A16 # 訖 -- 263,125
|
||||
0xB356 0x5993 # 妓 -- 263,126
|
||||
0xB357 0x8CC3 # 賃 -- 263,127
|
||||
0xB358 0x8AED # 諭 -- 263,130
|
||||
0xB359 0x9283 # 銃 -- 263,131
|
||||
0xB35A 0x5A3C # 娼 -- 263,132
|
||||
0xB35B 0x66DC # 曜 -- 263,133
|
||||
0xB35C 0x6BCB # 毋 -- 263,134
|
||||
0xB35D 0x733E # 猾 -- 263,135
|
||||
0xB35E 0x7661 # 癡 -- 263,136
|
||||
0xB35F 0x8CC4 # 賄 -- 263,137
|
||||
0xB360 0x8D13 # 贓 -- 263,140
|
||||
0xB361 0x9909 # 餉 -- 263,141
|
||||
0xB362 0x9149 # 酉 -- 263,142
|
||||
0xB363 0x5197 # 冗 -- 263,143
|
||||
0xB364 0x66E9 # 曩 -- 263,144
|
||||
0xB365 0x7258 # 牘 -- 263,145
|
||||
0xB366 0x761F # 瘟 -- 263,146
|
||||
0xB367 0x7F44 # 罄 -- 263,147
|
||||
0xB368 0x8CD2 # 賒 -- 263,150
|
||||
0xB369 0x895F # 襟 -- 263,151
|
||||
0xB36A 0x9957 # 饗 -- 263,152
|
||||
0xB36B 0x7230 # 爰 -- 263,153
|
||||
0xB36C 0x5800 # 堀 -- 263,154
|
||||
0xB36D 0x9E93 # 麓 -- 263,155
|
||||
0xB36E 0x8AF7 # 諷 -- 263,156
|
||||
0xB36F 0x6A9C # 檜 -- 263,157
|
||||
0xB370 0x562F # 嘯 -- 263,160
|
||||
0xB371 0x7CB9 # 粹 -- 263,161
|
||||
0xB372 0x8389 # 莉 -- 263,162
|
||||
0xB373 0x6DD2 # 淒 -- 263,163
|
||||
0xB374 0x572D # 圭 -- 263,164
|
||||
0xB375 0x73CA # 珊 -- 263,165
|
||||
0xB376 0x82E7 # 苧 -- 263,166
|
||||
0xB377 0x55B2 # 喲 -- 263,167
|
||||
0xB378 0x8587 # 薇 -- 263,170
|
||||
0xB379 0x80F1 # 胱 -- 263,171
|
||||
0xB37A 0x745C # 瑜 -- 263,172
|
||||
0xB37B 0x85E9 # 藩 -- 263,173
|
||||
0xB37C 0x5D34 # 崴 -- 263,174
|
||||
0xB37D 0x54AF # 咯 -- 263,175
|
||||
0xB37E 0x6C7E # 汾 -- 263,176
|
||||
0xB3A1 0x7C7D # 籽 -- 263,241
|
||||
0xB3A2 0x5CB7 # 岷 -- 263,242
|
||||
0xB3A3 0x9D6C # 鵬 -- 263,243
|
||||
0xB3A4 0x56C9 # 囉 -- 263,244
|
||||
0xB3A5 0x7620 # 瘠 -- 263,245
|
||||
0xB3A6 0x5583 # 喃 -- 263,246
|
||||
0xB3A7 0x5CE8 # 峨 -- 263,247
|
||||
0xB3A8 0x80DA # 胚 -- 263,250
|
||||
0xB3A9 0x7B4F # 筏 -- 263,251
|
||||
0xB3AA 0x70D9 # 烙 -- 263,252
|
||||
0xB3AB 0x79BF # 禿 -- 263,253
|
||||
0xB3AC 0x92BB # 銻 -- 263,254
|
||||
0xB3AD 0x6556 # 敖 -- 263,255
|
||||
0xB3AE 0x748B # 璋 -- 263,256
|
||||
0xB3AF 0x880D # 蠍 -- 263,257
|
||||
0xB3B0 0x911E # 鄞 -- 263,260
|
||||
0xB3B1 0x5537 # 唷 -- 263,261
|
||||
0xB3B2 0x773A # 眺 -- 263,262
|
||||
0xB3B3 0x96DB # 雛 -- 263,263
|
||||
0xB3B4 0x6D6C # 浬 -- 263,264
|
||||
0xB3B5 0x6F6F # 潯 -- 263,265
|
||||
0xB3B6 0x79AA # 禪 -- 263,266
|
||||
0xB3B7 0x6D2E # 洮 -- 263,267
|
||||
0xB3B8 0x5189 # 冉 -- 263,270
|
||||
0xB3B9 0x59EB # 姫 -- 263,271
|
||||
0xB3BA 0x9240 # 鉀 -- 263,272
|
||||
0xB3BB 0x5ADA # 嫚 -- 263,273
|
||||
0xB3BC 0x55B3 # 喳 -- 263,274
|
||||
0xB3BD 0x7FCC # 翌 -- 263,275
|
||||
0xB3BE 0x962E # 阮 -- 263,276
|
||||
0xB3BF 0x66DD # 曝 -- 263,277
|
||||
0xB3C0 0x8FAE # 辮 -- 263,300
|
||||
0xB3C1 0x54A6 # 咦 -- 263,301
|
||||
0xB3C2 0x6734 # 朴 -- 263,302
|
||||
0xB3C3 0x69CC # 槌 -- 263,303
|
||||
0xB3C4 0x53AE # 厮 -- 263,304
|
||||
0xB3C5 0x6643 # 晃 -- 263,305
|
||||
0xB3C6 0x78F7 # 磷 -- 263,306
|
||||
0xB3C7 0x5C41 # 屁 -- 263,307
|
||||
0xB3C8 0x785D # 硝 -- 263,310
|
||||
0xB3C9 0x8392 # 莒 -- 263,311
|
||||
0xB3CA 0x921E # 鈞 -- 263,312
|
||||
0xB3CB 0x9F94 # 龔 -- 263,313
|
||||
0xB3CC 0x67DA # 柚 -- 263,314
|
||||
0xB3CD 0x79C9 # 秉 -- 263,315
|
||||
0xB3CE 0x5862 # 塢 -- 263,316
|
||||
0xB3CF 0x8B28 # 謨 -- 263,317
|
||||
0xB3D0 0x745B # 瑛 -- 263,320
|
||||
0xB3D1 0x97F6 # 韶 -- 263,321
|
||||
0xB3D2 0x93B3 # 鎳 -- 263,322
|
||||
0xB3D3 0x6CD7 # 泗 -- 263,323
|
||||
0xB3D4 0x5B5C # 孜 -- 263,324
|
||||
0xB3D5 0x9D61 # 鵡 -- 263,325
|
||||
0xB3D6 0x7784 # 瞄 -- 263,326
|
||||
0xB3D7 0x55EF # 嗯 -- 263,327
|
||||
0xB3D8 0x5944 # 奄 -- 263,330
|
||||
0xB3D9 0x7F8C # 羌 -- 263,331
|
||||
0xB3DA 0x74CF # 瓏 -- 263,332
|
||||
0xB3DB 0x83A8 # 莨 -- 263,333
|
||||
0xB3DC 0x610D # 愍 -- 263,334
|
||||
0xB3DD 0x8AE6 # 諦 -- 263,335
|
||||
0xB3DE 0x6DBF # 涿 -- 263,336
|
||||
0xB3DF 0x912F # 鄯 -- 263,337
|
||||
0xB3E0 0x561F # 嘟 -- 263,340
|
||||
0xB3E1 0x6FFC # 濼 -- 263,341
|
||||
0xB3E2 0x6D31 # 洱 -- 263,342
|
||||
0xB3E3 0x62C7 # 拇 -- 263,343
|
||||
0xB3E4 0x4FCF # 俏 -- 263,344
|
||||
0xB3E5 0x7736 # 眶 -- 263,345
|
||||
0xB3E6 0x7CDC # 糜 -- 263,346
|
||||
0xB3E7 0x64B0 # 撰 -- 263,347
|
||||
0xB3E8 0x6960 # 楠 -- 263,350
|
||||
0xB3E9 0x72FD # 狽 -- 263,351
|
||||
0xB3EA 0x745A # 瑚 -- 263,352
|
||||
0xB3EB 0x7A96 # 窖 -- 263,353
|
||||
0xB3EC 0x6FEC # 濬 -- 263,354
|
||||
0xB3ED 0x6670 # 晰 -- 263,355
|
||||
0xB3EE 0x90B8 # 邸 -- 263,356
|
||||
0xB3EF 0x91C9 # 釉 -- 263,357
|
||||
0xB3F0 0x768E # 皎 -- 263,360
|
||||
0xB3F1 0x64A9 # 撩 -- 263,361
|
||||
0xB3F2 0x5140 # 兀 -- 263,362
|
||||
0xB3F3 0x7A92 # 窒 -- 263,363
|
||||
0xB3F4 0x53A5 # 厥 -- 263,364
|
||||
0xB3F5 0x55A7 # 喧 -- 263,365
|
||||
0xB3F6 0x6F2C # 漬 -- 263,366
|
||||
0xB3F7 0x6221 # 戡 -- 263,367
|
||||
0xB3F8 0x5A9B # 媛 -- 263,370
|
||||
0xB3F9 0x6AB3 # 檳 -- 263,371
|
||||
0xB3FA 0x8200 # 舀 -- 263,372
|
||||
0xB3FB 0x84BF # 蒿 -- 263,373
|
||||
0xB3FC 0x7827 # 砧 -- 263,374
|
||||
0xB3FD 0x8466 # 葦 -- 263,375
|
||||
0xB3FE 0x5CEA # 峪 -- 263,376
|
||||
191
unicode/xerox/unihan/XCCS-264=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-264=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "264" UNIHAN
|
||||
|
||||
0xB421 0x742A # 琪 -- 264,041
|
||||
0xB422 0x4E98 # 亘 -- 264,042
|
||||
0xB423 0x6C40 # 汀 -- 264,043
|
||||
0xB424 0x9E1A # 鸚 -- 264,044
|
||||
0xB425 0x6840 # 桀 -- 264,045
|
||||
0xB426 0x5E62 # 幢 -- 264,046
|
||||
0xB427 0x7E43 # 繃 -- 264,047
|
||||
0xB428 0x73C0 # 珀 -- 264,050
|
||||
0xB429 0x594E # 奎 -- 264,051
|
||||
0xB42A 0x752C # 甬 -- 264,052
|
||||
0xB42B 0x8B74 # 譴 -- 264,053
|
||||
0xB42C 0x637B # 捻 -- 264,054
|
||||
0xB42D 0x6E26 # 渦 -- 264,055
|
||||
0xB42E 0x74E0 # 瓠 -- 264,056
|
||||
0xB42F 0x5632 # 嘲 -- 264,057
|
||||
0xB430 0x574E # 坎 -- 264,060
|
||||
0xB431 0x7A1C # 稜 -- 264,061
|
||||
0xB432 0x602F # 怯 -- 264,062
|
||||
0xB433 0x6414 # 搔 -- 264,063
|
||||
0xB434 0x547B # 呻 -- 264,064
|
||||
0xB435 0x8EFC # 軼 -- 264,065
|
||||
0xB436 0x546A # 呪 -- 264,066
|
||||
0xB437 0x4E1E # 丞 -- 264,067
|
||||
0xB438 0x8A54 # 詔 -- 264,070
|
||||
0xB439 0x9704 # 霄 -- 264,071
|
||||
0xB43A 0x5477 # 呷 -- 264,072
|
||||
0xB43B 0x4F3D # 伽 -- 264,073
|
||||
0xB43C 0x542D # 吭 -- 264,074
|
||||
0xB43D 0x6CB1 # 沱 -- 264,075
|
||||
0xB43E 0x936C # 鍬 -- 264,076
|
||||
0xB43F 0x690E # 椎 -- 264,077
|
||||
0xB440 0x9354 # 鍔 -- 264,100
|
||||
0xB441 0x6FDB # 濛 -- 264,101
|
||||
0xB442 0x5695 # 嚕 -- 264,102
|
||||
0xB443 0x6FA7 # 澧 -- 264,103
|
||||
0xB444 0x9223 # 鈣 -- 264,104
|
||||
0xB445 0x993E # 餾 -- 264,105
|
||||
0xB446 0x9BC0 # 鯀 -- 264,106
|
||||
0xB447 0x729B # 犛 -- 264,107
|
||||
0xB448 0x97A3 # 鞣 -- 264,110
|
||||
0xB449 0x7740 # 着 -- 264,111
|
||||
0xB44A 0x78CB # 磋 -- 264,112
|
||||
0xB44B 0x9E92 # 麒 -- 264,113
|
||||
0xB44C 0x90B5 # 邵 -- 264,114
|
||||
0xB44D 0x7C38 # 簸 -- 264,115
|
||||
0xB44E 0x7949 # 祉 -- 264,116
|
||||
0xB44F 0x9215 # 鈕 -- 264,117
|
||||
0xB450 0x7A4C # 穌 -- 264,120
|
||||
0xB451 0x737A # 獺 -- 264,121
|
||||
0xB452 0x7FB2 # 羲 -- 264,122
|
||||
0xB453 0x70AF # 炯 -- 264,123
|
||||
0xB454 0x56EA # 囪 -- 264,124
|
||||
0xB455 0x98BC # 颼 -- 264,125
|
||||
0xB456 0x606B # 恫 -- 264,126
|
||||
0xB457 0x563F # 嘿 -- 264,127
|
||||
0xB458 0x9A5B # 驛 -- 264,130
|
||||
0xB459 0x97C6 # 韆 -- 264,131
|
||||
0xB45A 0x7E9C # 纜 -- 264,132
|
||||
0xB45B 0x700F # 瀏 -- 264,133
|
||||
0xB45C 0x9698 # 隘 -- 264,134
|
||||
0xB45D 0x7469 # 瑩 -- 264,135
|
||||
0xB45E 0x99A8 # 馨 -- 264,136
|
||||
0xB45F 0x9127 # 鄧 -- 264,137
|
||||
0xB460 0x98B3 # 颳 -- 264,140
|
||||
0xB461 0x6C3E # 氾 -- 264,141
|
||||
0xB462 0x6E1D # 渝 -- 264,142
|
||||
0xB463 0x8F3E # 輾 -- 264,143
|
||||
0xB464 0x7018 # 瀘 -- 264,144
|
||||
0xB465 0x715C # 煜 -- 264,145
|
||||
0xB466 0x8FE6 # 迦 -- 264,146
|
||||
0xB467 0x741B # 琛 -- 264,147
|
||||
0xB468 0x84C0 # 蓀 -- 264,150
|
||||
0xB469 0x58E2 # 壢 -- 264,151
|
||||
0xB46A 0x6ECC # 滌 -- 264,152
|
||||
0xB46B 0x6396 # 掖 -- 264,153
|
||||
0xB46C 0x6EC2 # 滂 -- 264,154
|
||||
0xB46D 0x520E # 刎 -- 264,155
|
||||
0xB46E 0x5CED # 峭 -- 264,156
|
||||
0xB46F 0x5239 # 刹 -- 264,157
|
||||
0xB470 0x5CAC # 岬 -- 264,160
|
||||
0xB471 0x9744 # 靄 -- 264,161
|
||||
0xB472 0x7425 # 琥 -- 264,162
|
||||
0xB473 0x9713 # 霓 -- 264,163
|
||||
0xB474 0x95C8 # 闈 -- 264,164
|
||||
0xB475 0x9F07 # 鼇 -- 264,165
|
||||
0xB476 0x9B03 # 鬃 -- 264,166
|
||||
0xB477 0x6F29 # 漩 -- 264,167
|
||||
0xB478 0x6E5F # 湟 -- 264,170
|
||||
0xB479 0x73CF # 珏 -- 264,171
|
||||
0xB47A 0x90FE # 郾 -- 264,172
|
||||
0xB47B 0x9315 # 錕 -- 264,173
|
||||
0xB47C 0x6DD9 # 淙 -- 264,174
|
||||
0xB47D 0x768B # 皋 -- 264,175
|
||||
0xB47E 0x86FA # 蛺 -- 264,176
|
||||
0xB4A1 0x8171 # 腱 -- 264,241
|
||||
0xB4A2 0x91A3 # 醣 -- 264,242
|
||||
0xB4A3 0x4EC6 # 仆 -- 264,243
|
||||
0xB4A4 0x6912 # 椒 -- 264,244
|
||||
0xB4A5 0x627C # 扼 -- 264,245
|
||||
0xB4A6 0x7DBD # 綽 -- 264,246
|
||||
0xB4A7 0x6727 # 朧 -- 264,247
|
||||
0xB4A8 0x9742 # 靂 -- 264,250
|
||||
0xB4A9 0x9739 # 霹 -- 264,251
|
||||
0xB4AA 0x77B3 # 瞳 -- 264,252
|
||||
0xB4AB 0x9661 # 陡 -- 264,253
|
||||
0xB4AC 0x5608 # 嘈 -- 264,254
|
||||
0xB4AD 0x9EA9 # 麩 -- 264,255
|
||||
0xB4AE 0x7370 # 獰 -- 264,256
|
||||
0xB4AF 0x7AFA # 竺 -- 264,257
|
||||
0xB4B0 0x95AD # 閭 -- 264,260
|
||||
0xB4B1 0x5ED3 # 廓 -- 264,261
|
||||
0xB4B2 0x7FE1 # 翡 -- 264,262
|
||||
0xB4B3 0x8938 # 褸 -- 264,263
|
||||
0xB4B4 0x5630 # 嘰 -- 264,264
|
||||
0xB4B5 0x795F # 祟 -- 264,265
|
||||
0xB4B6 0x99D2 # 駒 -- 264,266
|
||||
0xB4B7 0x6CAC # 沬 -- 264,267
|
||||
0xB4B8 0x778C # 瞌 -- 264,270
|
||||
0xB4B9 0x942E # 鐮 -- 264,271
|
||||
0xB4BA 0x7F4E # 罎 -- 264,272
|
||||
0xB4BB 0x598D # 妍 -- 264,273
|
||||
0xB4BC 0x7729 # 眩 -- 264,274
|
||||
0xB4BD 0x51A5 # 冥 -- 264,275
|
||||
0xB4BE 0x8F9F # 辟 -- 264,276
|
||||
0xB4BF 0x8096 # 肖 -- 264,277
|
||||
0xB4C0 0x8EAA # 躪 -- 264,300
|
||||
0xB4C1 0x58C5 # 壅 -- 264,301
|
||||
0xB4C2 0x5885 # 墅 -- 264,302
|
||||
0xB4C3 0x60CB # 惋 -- 264,303
|
||||
0xB4C4 0x5733 # 圳 -- 264,304
|
||||
0xB4C5 0x759A # 疚 -- 264,305
|
||||
0xB4C6 0x87AB # 螫 -- 264,306
|
||||
0xB4C7 0x664C # 晌 -- 264,307
|
||||
0xB4C8 0x809B # 肛 -- 264,310
|
||||
0xB4C9 0x5C94 # 岔 -- 264,311
|
||||
0xB4CA 0x5F6A # 彪 -- 264,312
|
||||
0xB4CB 0x9262 # 鉢 -- 264,313
|
||||
0xB4CC 0x98E9 # 飩 -- 264,314
|
||||
0xB4CD 0x9DFA # 鷺 -- 264,315
|
||||
0xB4CE 0x776B # 睫 -- 264,316
|
||||
0xB4CF 0x8046 # 聆 -- 264,317
|
||||
0xB4D0 0x8E34 # 踴 -- 264,320
|
||||
0xB4D1 0x7464 # 瑤 -- 264,321
|
||||
0xB4D2 0x7504 # 甄 -- 264,322
|
||||
0xB4D3 0x6C90 # 沐 -- 264,323
|
||||
0xB4D4 0x7099 # 炙 -- 264,324
|
||||
0xB4D5 0x618A # 憊 -- 264,325
|
||||
0xB4D6 0x6EA5 # 溥 -- 264,326
|
||||
0xB4D7 0x8E42 # 蹂 -- 264,327
|
||||
0xB4D8 0x7357 # 獗 -- 264,330
|
||||
0xB4D9 0x6590 # 斐 -- 264,331
|
||||
0xB4DA 0x62DA # 拚 -- 264,332
|
||||
0xB4DB 0x832D # 茭 -- 264,333
|
||||
0xB4DC 0x643D # 搽 -- 264,334
|
||||
0xB4DD 0x991B # 餛 -- 264,335
|
||||
0xB4DE 0x9CF6 # 鳶 -- 264,336
|
||||
0xB4DF 0x9912 # 餒 -- 264,337
|
||||
0xB4E0 0x6C68 # 汨 -- 264,340
|
||||
0xB4E1 0x7728 # 眨 -- 264,341
|
||||
0xB4E2 0x68D8 # 棘 -- 264,342
|
||||
0xB4E3 0x649A # 撚 -- 264,343
|
||||
0xB4E4 0x5436 # 吶 -- 264,344
|
||||
0xB4E5 0x600F # 怏 -- 264,345
|
||||
0xB4E6 0x7B20 # 笠 -- 264,346
|
||||
0xB4E7 0x9C77 # 鱷 -- 264,347
|
||||
0xB4E8 0x645C # 摜 -- 264,350
|
||||
0xB4E9 0x6DCC # 淌 -- 264,351
|
||||
0xB4EA 0x6F80 # 澀 -- 264,352
|
||||
0xB4EB 0x71BE # 熾 -- 264,353
|
||||
0xB4EC 0x70AC # 炬 -- 264,354
|
||||
0xB4ED 0x5F3C # 弼 -- 264,355
|
||||
0xB4EE 0x615F # 慟 -- 264,356
|
||||
0xB4EF 0x5DCD # 巍 -- 264,357
|
||||
0xB4F0 0x623E # 戾 -- 264,360
|
||||
0xB4F1 0x9C2D # 鰭 -- 264,361
|
||||
0xB4F2 0x8335 # 茵 -- 264,362
|
||||
0xB4F3 0x85BA # 薺 -- 264,363
|
||||
0xB4F4 0x5241 # 剁 -- 264,364
|
||||
0xB4F5 0x6487 # 撇 -- 264,365
|
||||
0xB4F6 0x797A # 祺 -- 264,366
|
||||
0xB4F7 0x7FB6 # 羶 -- 264,367
|
||||
0xB4F8 0x7566 # 畦 -- 264,370
|
||||
0xB4F9 0x88B1 # 袱 -- 264,371
|
||||
0xB4FA 0x641E # 搞 -- 264,372
|
||||
0xB4FB 0x50E5 # 僥 -- 264,373
|
||||
0xB4FC 0x81CD # 臍 -- 264,374
|
||||
0xB4FD 0x7669 # 癩 -- 264,375
|
||||
0xB4FE 0x7DB0 # 綰 -- 264,376
|
||||
191
unicode/xerox/unihan/XCCS-265=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-265=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "265" UNIHAN
|
||||
|
||||
0xB521 0x766C # 癬 -- 265,041
|
||||
0xB522 0x7C07 # 簇 -- 265,042
|
||||
0xB523 0x70B3 # 炳 -- 265,043
|
||||
0xB524 0x5F99 # 徙 -- 265,044
|
||||
0xB525 0x99FF # 駿 -- 265,045
|
||||
0xB526 0x9050 # 遐 -- 265,046
|
||||
0xB527 0x6E43 # 湃 -- 265,047
|
||||
0xB528 0x7E08 # 縈 -- 265,050
|
||||
0xB529 0x55C4 # 嗄 -- 265,051
|
||||
0xB52A 0x55FE # 嗾 -- 265,052
|
||||
0xB52B 0x7529 # 甩 -- 265,053
|
||||
0xB52C 0x9921 # 餡 -- 265,054
|
||||
0xB52D 0x5680 # 嚀 -- 265,055
|
||||
0xB52E 0x9DE5 # 鷥 -- 265,056
|
||||
0xB52F 0x5478 # 呸 -- 265,057
|
||||
0xB530 0x64A2 # 撢 -- 265,060
|
||||
0xB531 0x70FD # 烽 -- 265,061
|
||||
0xB532 0x5420 # 吠 -- 265,062
|
||||
0xB533 0x7095 # 炕 -- 265,063
|
||||
0xB534 0x7D46 # 絆 -- 265,064
|
||||
0xB535 0x9F3E # 鼾 -- 265,065
|
||||
0xB536 0x892B # 褫 -- 265,066
|
||||
0xB537 0x7656 # 癖 -- 265,067
|
||||
0xB538 0x7D0A # 紊 -- 265,070
|
||||
0xB539 0x7459 # 瑙 -- 265,071
|
||||
0xB53A 0x9EBE # 麾 -- 265,072
|
||||
0xB53B 0x6452 # 摒 -- 265,073
|
||||
0xB53C 0x87C6 # 蟆 -- 265,074
|
||||
0xB53D 0x6371 # 捱 -- 265,075
|
||||
0xB53E 0x83A7 # 莧 -- 265,076
|
||||
0xB53F 0x74E2 # 瓢 -- 265,077
|
||||
0xB540 0x9AB7 # 骷 -- 265,100
|
||||
0xB541 0x8331 # 茱 -- 265,101
|
||||
0xB542 0x8299 # 芙 -- 265,102
|
||||
0xB543 0x9A01 # 騁 -- 265,103
|
||||
0xB544 0x816E # 腮 -- 265,104
|
||||
0xB545 0x83F0 # 菰 -- 265,105
|
||||
0xB546 0x861A # 蘚 -- 265,106
|
||||
0xB547 0x63EA # 揪 -- 265,107
|
||||
0xB548 0x5950 # 奐 -- 265,110
|
||||
0xB549 0x8983 # 覃 -- 265,111
|
||||
0xB54A 0x88E8 # 裨 -- 265,112
|
||||
0xB54B 0x61FF # 懿 -- 265,113
|
||||
0xB54C 0x8AF3 # 諳 -- 265,114
|
||||
0xB54D 0x7F58 # 罘 -- 265,115
|
||||
0xB54E 0x8B2C # 謬 -- 265,116
|
||||
0xB54F 0x8E7C # 蹼 -- 265,117
|
||||
0xB550 0x531D # 匝 -- 265,120
|
||||
0xB551 0x5C2C # 尬 -- 265,121
|
||||
0xB552 0x5C4E # 屎 -- 265,122
|
||||
0xB553 0x91E7 # 釧 -- 265,123
|
||||
0xB554 0x8435 # 萵 -- 265,124
|
||||
0xB555 0x71C9 # 燉 -- 265,125
|
||||
0xB556 0x5563 # 啣 -- 265,126
|
||||
0xB557 0x6506 # 攆 -- 265,127
|
||||
0xB558 0x9394 # 鎔 -- 265,130
|
||||
0xB559 0x995E # 饞 -- 265,131
|
||||
0xB55A 0x7671 # 癱 -- 265,132
|
||||
0xB55B 0x5742 # 坂 -- 265,133
|
||||
0xB55C 0x7624 # 瘤 -- 265,134
|
||||
0xB55D 0x701B # 瀛 -- 265,135
|
||||
0xB55E 0x8584 # 薄 -- 265,136
|
||||
0xB55F 0x8E4B # 蹋 -- 265,137
|
||||
0xB560 0x7843 # 硃 -- 265,140
|
||||
0xB561 0x752D # 甭 -- 265,141
|
||||
0xB562 0x54AD # 咭 -- 265,142
|
||||
0xB563 0x8611 # 蘑 -- 265,143
|
||||
0xB564 0x6525 # 攥 -- 265,144
|
||||
0xB565 0x5AD6 # 嫖 -- 265,145
|
||||
0xB566 0x88D4 # 裔 -- 265,146
|
||||
0xB567 0x6014 # 怔 -- 265,147
|
||||
0xB568 0x893B # 褻 -- 265,150
|
||||
0xB569 0x89B2 # 覲 -- 265,151
|
||||
0xB56A 0x8A4E # 詎 -- 265,152
|
||||
0xB56B 0x8CC2 # 賂 -- 265,153
|
||||
0xB56C 0x50CD # 働 -- 265,154
|
||||
0xB56D 0x592D # 夭 -- 265,155
|
||||
0xB56E 0x6ED3 # 滓 -- 265,156
|
||||
0xB56F 0x701D # 瀝 -- 265,157
|
||||
0xB570 0x4E2B # 丫 -- 265,160
|
||||
0xB571 0x5A20 # 娠 -- 265,161
|
||||
0xB572 0x5ABC # 媼 -- 265,162
|
||||
0xB573 0x5B40 # 孀 -- 265,163
|
||||
0xB574 0x5501 # 唁 -- 265,164
|
||||
0xB575 0x5EC2 # 廂 -- 265,165
|
||||
0xB576 0x643E # 搾 -- 265,166
|
||||
0xB577 0x676A # 杪 -- 265,167
|
||||
0xB578 0x6B80 # 殀 -- 265,170
|
||||
0xB579 0x6C05 # 氅 -- 265,171
|
||||
0xB57A 0x6DB5 # 涵 -- 265,172
|
||||
0xB57B 0x71FC # 燼 -- 265,173
|
||||
0xB57C 0x7292 # 犒 -- 265,174
|
||||
0xB57D 0x7594 # 疔 -- 265,175
|
||||
0xB57E 0x75D4 # 痔 -- 265,176
|
||||
0xB5A1 0x75FF # 痿 -- 265,241
|
||||
0xB5A2 0x7696 # 皖 -- 265,242
|
||||
0xB5A3 0x77DC # 矜 -- 265,243
|
||||
0xB5A4 0x7A3C # 稼 -- 265,244
|
||||
0xB5A5 0x7BF7 # 篷 -- 265,245
|
||||
0xB5A6 0x7CB1 # 粱 -- 265,246
|
||||
0xB5A7 0x7F94 # 羔 -- 265,247
|
||||
0xB5A8 0x8338 # 茸 -- 265,250
|
||||
0xB5A9 0x8839 # 蠹 -- 265,251
|
||||
0xB5AA 0x8A03 # 訃 -- 265,252
|
||||
0xB5AB 0x8A1B # 訛 -- 265,253
|
||||
0xB5AC 0x8B92 # 讒 -- 265,254
|
||||
0xB5AD 0x8C82 # 貂 -- 265,255
|
||||
0xB5AE 0x8D05 # 贅 -- 265,256
|
||||
0xB5AF 0x8F13 # 輓 -- 265,257
|
||||
0xB5B0 0x8FE8 # 迨 -- 265,260
|
||||
0xB5B1 0x4F47 # 佇 -- 265,261
|
||||
0xB5B2 0x6E6E # 湮 -- 265,262
|
||||
0xB5B3 0x6F15 # 漕 -- 265,263
|
||||
0xB5B4 0x9051 # 遑 -- 265,264
|
||||
0xB5B5 0x907D # 遽 -- 265,265
|
||||
0xB5B6 0x9087 # 邇 -- 265,266
|
||||
0xB5B7 0x90DD # 郝 -- 265,267
|
||||
0xB5B8 0x71CE # 燎 -- 265,270
|
||||
0xB5B9 0x9114 # 鄔 -- 265,271
|
||||
0xB5BA 0x5FA0 # 徠 -- 265,272
|
||||
0xB5BB 0x5FED # 忭 -- 265,273
|
||||
0xB5BC 0x6106 # 愆 -- 265,274
|
||||
0xB5BD 0x63C6 # 揆 -- 265,275
|
||||
0xB5BE 0x7325 # 猥 -- 265,276
|
||||
0xB5BF 0x75CA # 痊 -- 265,277
|
||||
0xB5C0 0x7D13 # 紓 -- 265,300
|
||||
0xB5C1 0x7D40 # 絀 -- 265,301
|
||||
0xB5C2 0x80E5 # 胥 -- 265,302
|
||||
0xB5C3 0x81C6 # 臆 -- 265,303
|
||||
0xB5C4 0x81FB # 臻 -- 265,304
|
||||
0xB5C5 0x8862 # 衢 -- 265,305
|
||||
0xB5C6 0x8882 # 袂 -- 265,306
|
||||
0xB5C7 0x88D8 # 裘 -- 265,307
|
||||
0xB5C8 0x8E76 # 蹶 -- 265,310
|
||||
0xB5C9 0x8F1F # 輟 -- 265,311
|
||||
0xB5CA 0x8FD3 # 迓 -- 265,312
|
||||
0xB5CB 0x5E96 # 庖 -- 265,313
|
||||
0xB5CC 0x4EC4 # 仄 -- 265,314
|
||||
0xB5CD 0x50C9 # 僉 -- 265,315
|
||||
0xB5CE 0x6083 # 悃 -- 265,316
|
||||
0xB5CF 0x7F79 # 罹 -- 265,317
|
||||
0xB5D0 0x8B10 # 謐 -- 265,320
|
||||
0xB5D1 0x66F7 # 曷 -- 265,321
|
||||
0xB5D2 0x534D # 卍 -- 265,322
|
||||
0xB5D3 0x536F # 卯 -- 265,323
|
||||
0xB5D4 0x574D # 坍 -- 265,324
|
||||
0xB5D5 0x5C38 # 尸 -- 265,325
|
||||
0xB5D6 0x5ED1 # 廑 -- 265,326
|
||||
0xB5D7 0x6043 # 恃 -- 265,327
|
||||
0xB5D8 0x63E3 # 揣 -- 265,330
|
||||
0xB5D9 0x642A # 搪 -- 265,331
|
||||
0xB5DA 0x67D2 # 柒 -- 265,332
|
||||
0xB5DB 0x6DC6 # 淆 -- 265,333
|
||||
0xB5DC 0x75E7 # 痧 -- 265,334
|
||||
0xB5DD 0x7E10 # 縐 -- 265,335
|
||||
0xB5DE 0x8129 # 脩 -- 265,336
|
||||
0xB5DF 0x8222 # 舢 -- 265,337
|
||||
0xB5E0 0x86D4 # 蛔 -- 265,340
|
||||
0xB5E1 0x8856 # 衖 -- 265,341
|
||||
0xB5E2 0x9776 # 靶 -- 265,342
|
||||
0xB5E3 0x571C # 圜 -- 265,343
|
||||
0xB5E4 0x5DF3 # 巳 -- 265,344
|
||||
0xB5E5 0x5DF5 # 巵 -- 265,345
|
||||
0xB5E6 0x609E # 悞 -- 265,346
|
||||
0xB5E7 0x7ADA # 竚 -- 265,347
|
||||
0xB5E8 0x7433 # 琳 -- 265,350
|
||||
0xB5E9 0x717D # 煽 -- 265,351
|
||||
0xB5EA 0x4F09 # 伉 -- 265,352
|
||||
0xB5EB 0x619A # 憚 -- 265,353
|
||||
0xB5EC 0x7028 # 瀨 -- 265,354
|
||||
0xB5ED 0x6194 # 憔 -- 265,355
|
||||
0xB5EE 0x4F96 # 侖 -- 265,356
|
||||
0xB5EF 0x5E5B # 幛 -- 265,357
|
||||
0xB5F0 0x90C1 # 郁 -- 265,360
|
||||
0xB5F1 0x6EF8 # 滸 -- 265,361
|
||||
0xB5F2 0x6E25 # 渥 -- 265,362
|
||||
0xB5F3 0x64E2 # 擢 -- 265,363
|
||||
0xB5F4 0x66E6 # 曦 -- 265,364
|
||||
0xB5F5 0x7064 # 灤 -- 265,365
|
||||
0xB5F6 0x8EA1 # 躡 -- 265,366
|
||||
0xB5F7 0x5029 # 倩 -- 265,367
|
||||
0xB5F8 0x739F # 玟 -- 265,370
|
||||
0xB5F9 0x5914 # 夔 -- 265,371
|
||||
0xB5FA 0x58DF # 壟 -- 265,372
|
||||
0xB5FB 0x86FB # 蛻 -- 265,373
|
||||
0xB5FC 0x923E # 鈾 -- 265,374
|
||||
0xB5FD 0x8214 # 舔 -- 265,375
|
||||
0xB5FE 0x8815 # 蠕 -- 265,376
|
||||
191
unicode/xerox/unihan/XCCS-266=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-266=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "266" UNIHAN
|
||||
|
||||
0xB621 0x4E52 # 乒 -- 266,041
|
||||
0xB622 0x4E53 # 乓 -- 266,042
|
||||
0xB623 0x7F9A # 羚 -- 266,043
|
||||
0xB624 0x7DB8 # 綸 -- 266,044
|
||||
0xB625 0x77B0 # 瞰 -- 266,045
|
||||
0xB626 0x6894 # 梔 -- 266,046
|
||||
0xB627 0x943A # 鐺 -- 266,047
|
||||
0xB628 0x947E # 鑾 -- 266,050
|
||||
0xB629 0x9238 # 鈸 -- 266,051
|
||||
0xB62A 0x8964 # 襤 -- 266,052
|
||||
0xB62B 0x9821 # 頡 -- 266,053
|
||||
0xB62C 0x6C76 # 汶 -- 266,054
|
||||
0xB62D 0x8ED4 # 軔 -- 266,055
|
||||
0xB62E 0x5EBE # 庾 -- 266,056
|
||||
0xB62F 0x5E61 # 幡 -- 266,057
|
||||
0xB630 0x8D67 # 赧 -- 266,060
|
||||
0xB631 0x60FA # 惺 -- 266,061
|
||||
0xB632 0x6FD8 # 濘 -- 266,062
|
||||
0xB633 0x9711 # 霑 -- 266,063
|
||||
0xB634 0x56B6 # 嚶 -- 266,064
|
||||
0xB635 0x9A6A # 驪 -- 266,065
|
||||
0xB636 0x8E29 # 踩 -- 266,066
|
||||
0xB637 0x525C # 剜 -- 266,067
|
||||
0xB638 0x7838 # 砸 -- 266,070
|
||||
0xB639 0x9403 # 鐃 -- 266,071
|
||||
0xB63A 0x9C31 # 鰱 -- 266,072
|
||||
0xB63B 0x746F # 瑯 -- 266,073
|
||||
0xB63C 0x9278 # 鉸 -- 266,074
|
||||
0xB63D 0x500C # 倌 -- 266,075
|
||||
0xB63E 0x73EA # 珪 -- 266,076
|
||||
0xB63F 0x781D # 砝 -- 266,077
|
||||
0xB640 0x8DB4 # 趴 -- 266,100
|
||||
0xB641 0x6123 # 愣 -- 266,101
|
||||
0xB642 0x945E # 鑞 -- 266,102
|
||||
0xB643 0x7407 # 琇 -- 266,103
|
||||
0xB644 0x927B # 鉻 -- 266,104
|
||||
0xB645 0x9333 # 錳 -- 266,105
|
||||
0xB646 0x6C2E # 氮 -- 266,106
|
||||
0xB647 0x567C # 噼 -- 266,107
|
||||
0xB648 0x9938 # 餸 -- 266,110
|
||||
0xB649 0x5349 # 卉 -- 266,111
|
||||
0xB64A 0x696B # 楫 -- 266,112
|
||||
0xB64B 0x6AAC # 檬 -- 266,113
|
||||
0xB64C 0x9685 # 隅 -- 266,114
|
||||
0xB64D 0x6C8C # 沌 -- 266,115
|
||||
0xB64E 0x7693 # 皓 -- 266,116
|
||||
0xB64F 0x51DC # 凜 -- 266,117
|
||||
0xB650 0x7E8D # 纍 -- 266,120
|
||||
0xB651 0x83A2 # 莢 -- 266,121
|
||||
0xB652 0x50DA # 僚 -- 266,122
|
||||
0xB653 0x5BD0 # 寐 -- 266,123
|
||||
0xB654 0x9187 # 醇 -- 266,124
|
||||
0xB655 0x892A # 褪 -- 266,125
|
||||
0xB656 0x5F8A # 徊 -- 266,126
|
||||
0xB657 0x66F3 # 曳 -- 266,127
|
||||
0xB658 0x5F98 # 徘 -- 266,130
|
||||
0xB659 0x8F3B # 輻 -- 266,131
|
||||
0xB65A 0x5137 # 儷 -- 266,132
|
||||
0xB65B 0x69B7 # 榷 -- 266,133
|
||||
0xB65C 0x6E4D # 湍 -- 266,134
|
||||
0xB65D 0x56E4 # 囤 -- 266,135
|
||||
0xB65E 0x7319 # 猙 -- 266,136
|
||||
0xB65F 0x7526 # 甦 -- 266,137
|
||||
0xB660 0x5ABE # 媾 -- 266,140
|
||||
0xB661 0x96CD # 雍 -- 266,141
|
||||
0xB662 0x6A0A # 樊 -- 266,142
|
||||
0xB663 0x6ED5 # 滕 -- 266,143
|
||||
0xB664 0x6FE0 # 濠 -- 266,144
|
||||
0xB665 0x8A52 # 詒 -- 266,145
|
||||
0xB666 0x747E # 瑾 -- 266,146
|
||||
0xB667 0x965B # 陛 -- 266,147
|
||||
0xB668 0x606C # 恬 -- 266,150
|
||||
0xB669 0x5486 # 咆 -- 266,151
|
||||
0xB66A 0x5D50 # 嵐 -- 266,152
|
||||
0xB66B 0x5B71 # 孱 -- 266,153
|
||||
0xB66C 0x984E # 顎 -- 266,154
|
||||
0xB66D 0x8301 # 茁 -- 266,155
|
||||
0xB66E 0x7D62 # 絢 -- 266,156
|
||||
0xB66F 0x77D7 # 矗 -- 266,157
|
||||
0xB670 0x6AB8 # 檸 -- 266,160
|
||||
0xB671 0x57E4 # 埤 -- 266,161
|
||||
0xB672 0x6C82 # 沂 -- 266,162
|
||||
0xB673 0x678B # 枋 -- 266,163
|
||||
0xB674 0x5443 # 呃 -- 266,164
|
||||
0xB675 0x5D01 # 崁 -- 266,165
|
||||
0xB676 0x7811 # 砑 -- 266,166
|
||||
0xB677 0x93DD # 鏝 -- 266,167
|
||||
0xB678 0x4F6F # 佯 -- 266,170
|
||||
0xB679 0x91D7 # 釗 -- 266,171
|
||||
0xB67A 0x64E3 # 擣 -- 266,172
|
||||
0xB67B 0x95CC # 闌 -- 266,173
|
||||
0xB67C 0x8712 # 蜒 -- 266,174
|
||||
0xB67D 0x5DD2 # 巒 -- 266,175
|
||||
0xB67E 0x618E # 憎 -- 266,176
|
||||
0xB6A1 0x990C # 餌 -- 266,241
|
||||
0xB6A2 0x65A1 # 斡 -- 266,242
|
||||
0xB6A3 0x4E15 # 丕 -- 266,243
|
||||
0xB6A4 0x82AE # 芮 -- 266,244
|
||||
0xB6A5 0x5955 # 奕 -- 266,245
|
||||
0xB6A6 0x6DF3 # 淳 -- 266,246
|
||||
0xB6A7 0x5A11 # 娑 -- 266,247
|
||||
0xB6A8 0x7405 # 琅 -- 266,250
|
||||
0xB6A9 0x931A # 錚 -- 266,251
|
||||
0xB6AA 0x7166 # 煦 -- 266,252
|
||||
0xB6AB 0x8734 # 蜴 -- 266,253
|
||||
0xB6AC 0x80E4 # 胤 -- 266,254
|
||||
0xB6AD 0x5564 # 啤 -- 266,255
|
||||
0xB6AE 0x803F # 耿 -- 266,256
|
||||
0xB6AF 0x9631 # 阱 -- 266,257
|
||||
0xB6B0 0x76D4 # 盔 -- 266,260
|
||||
0xB6B1 0x78F4 # 磴 -- 266,261
|
||||
0xB6B2 0x97DC # 韜 -- 266,262
|
||||
0xB6B3 0x5BB8 # 宸 -- 266,263
|
||||
0xB6B4 0x916A # 酪 -- 266,264
|
||||
0xB6B5 0x93AC # 鎬 -- 266,265
|
||||
0xB6B6 0x4EB3 # 亳 -- 266,266
|
||||
0xB6B7 0x84D3 # 蓓 -- 266,267
|
||||
0xB6B8 0x50D6 # 僖 -- 266,270
|
||||
0xB6B9 0x869C # 蚜 -- 266,271
|
||||
0xB6BA 0x6384 # 掄 -- 266,272
|
||||
0xB6BB 0x740A # 琊 -- 266,273
|
||||
0xB6BC 0x8725 # 蜥 -- 266,274
|
||||
0xB6BD 0x6DAA # 涪 -- 266,275
|
||||
0xB6BE 0x95D0 # 闐 -- 266,276
|
||||
0xB6BF 0x68FB # 棻 -- 266,277
|
||||
0xB6C0 0x9FA2 # 龢 -- 266,300
|
||||
0xB6C1 0x6600 # 昀 -- 266,301
|
||||
0xB6C2 0x6F2F # 漯 -- 266,302
|
||||
0xB6C3 0x7457 # 瑗 -- 266,303
|
||||
0xB6C4 0x640C # 搌 -- 266,304
|
||||
0xB6C5 0x715A # 煚 -- 266,305
|
||||
0xB6C6 0x7B84 # 箄 -- 266,306
|
||||
0xB6C7 0x57AE # 垮 -- 266,307
|
||||
0xB6C8 0x7957 # 祗 -- 266,310
|
||||
0xB6C9 0x7CE2 # 糢 -- 266,311
|
||||
0xB6CA 0x87DD # 蟝 -- 266,312
|
||||
0xB6CB 0x8D76 # 赶 -- 266,313
|
||||
0xB6CC 0x9824 # 頤 -- 266,314
|
||||
0xB6CD 0x63A3 # 掣 -- 266,315
|
||||
0xB6CE 0x81FE # 臾 -- 266,316
|
||||
0xB6CF 0x5A7F # 婿 -- 266,317
|
||||
0xB6D0 0x6518 # 攘 -- 266,320
|
||||
0xB6D1 0x6DAF # 涯 -- 266,321
|
||||
0xB6D2 0x63AC # 掬 -- 266,322
|
||||
0xB6D3 0x8018 # 耘 -- 266,323
|
||||
0xB6D4 0x640F # 搏 -- 266,324
|
||||
0xB6D5 0x6627 # 昧 -- 266,325
|
||||
0xB6D6 0x8403 # 萃 -- 266,326
|
||||
0xB6D7 0x725F # 牟 -- 266,327
|
||||
0xB6D8 0x7F54 # 罔 -- 266,330
|
||||
0xB6D9 0x6D5A # 浚 -- 266,331
|
||||
0xB6DA 0x74BD # 璽 -- 266,332
|
||||
0xB6DB 0x8006 # 耆 -- 266,333
|
||||
0xB6DC 0x560D # 嘍 -- 266,334
|
||||
0xB6DD 0x8076 # 聶 -- 266,335
|
||||
0xB6DE 0x8AEB # 諫 -- 266,336
|
||||
0xB6DF 0x585A # 塚 -- 266,337
|
||||
0xB6E0 0x85D0 # 藐 -- 266,340
|
||||
0xB6E1 0x6689 # 暉 -- 266,341
|
||||
0xB6E2 0x54EE # 哮 -- 266,342
|
||||
0xB6E3 0x6292 # 抒 -- 266,343
|
||||
0xB6E4 0x5043 # 偃 -- 266,344
|
||||
0xB6E5 0x8A15 # 訕 -- 266,345
|
||||
0xB6E6 0x5CAB # 岫 -- 266,346
|
||||
0xB6E7 0x6CAE # 沮 -- 266,347
|
||||
0xB6E8 0x82BB # 芻 -- 266,350
|
||||
0xB6E9 0x6DC7 # 淇 -- 266,351
|
||||
0xB6EA 0x80DB # 胛 -- 266,352
|
||||
0xB6EB 0x6968 # 楨 -- 266,353
|
||||
0xB6EC 0x5331 # 匱 -- 266,354
|
||||
0xB6ED 0x60D5 # 惕 -- 266,355
|
||||
0xB6EE 0x8A63 # 詣 -- 266,356
|
||||
0xB6EF 0x71E7 # 燧 -- 266,357
|
||||
0xB6F0 0x5D1B # 崛 -- 266,360
|
||||
0xB6F1 0x613E # 愾 -- 266,361
|
||||
0xB6F2 0x8559 # 蕙 -- 266,362
|
||||
0xB6F3 0x83A0 # 莠 -- 266,363
|
||||
0xB6F4 0x6994 # 榔 -- 266,364
|
||||
0xB6F5 0x63CD # 揍 -- 266,365
|
||||
0xB6F6 0x777D # 睽 -- 266,366
|
||||
0xB6F7 0x78AD # 碭 -- 266,367
|
||||
0xB6F8 0x6ECE # 滎 -- 266,370
|
||||
0xB6F9 0x749C # 璜 -- 266,371
|
||||
0xB6FA 0x6C28 # 氨 -- 266,372
|
||||
0xB6FB 0x73E3 # 珣 -- 266,373
|
||||
0xB6FC 0x5471 # 呱 -- 266,374
|
||||
0xB6FD 0x6153 # 慓 -- 266,375
|
||||
0xB6FE 0x701F # 瀟 -- 266,376
|
||||
191
unicode/xerox/unihan/XCCS-267=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-267=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "267" UNIHAN
|
||||
|
||||
0xB721 0x8DDA # 跚 -- 267,041
|
||||
0xB722 0x89B7 # 覷 -- 267,042
|
||||
0xB723 0x6C50 # 汐 -- 267,043
|
||||
0xB724 0x70AB # 炫 -- 267,044
|
||||
0xB725 0x5F12 # 弒 -- 267,045
|
||||
0xB726 0x77A0 # 瞠 -- 267,046
|
||||
0xB727 0x8339 # 茹 -- 267,047
|
||||
0xB728 0x8393 # 莓 -- 267,050
|
||||
0xB729 0x5D84 # 嶄 -- 267,051
|
||||
0xB72A 0x812F # 脯 -- 267,052
|
||||
0xB72B 0x6D93 # 涓 -- 267,053
|
||||
0xB72C 0x60BB # 悻 -- 267,054
|
||||
0xB72D 0x743A # 琺 -- 267,055
|
||||
0xB72E 0x75BD # 疽 -- 267,056
|
||||
0xB72F 0x8D6D # 赭 -- 267,057
|
||||
0xB730 0x7738 # 眸 -- 267,060
|
||||
0xB731 0x5664 # 噤 -- 267,061
|
||||
0xB732 0x9A4D # 驍 -- 267,062
|
||||
0xB733 0x5E4C # 幌 -- 267,063
|
||||
0xB734 0x9C78 # 鱸 -- 267,064
|
||||
0xB735 0x760D # 瘍 -- 267,065
|
||||
0xB736 0x64BC # 撼 -- 267,066
|
||||
0xB737 0x72E9 # 狩 -- 267,067
|
||||
0xB738 0x839E # 莞 -- 267,070
|
||||
0xB739 0x889E # 袞 -- 267,071
|
||||
0xB73A 0x5793 # 垓 -- 267,072
|
||||
0xB73B 0x6249 # 扉 -- 267,073
|
||||
0xB73C 0x7030 # 瀰 -- 267,074
|
||||
0xB73D 0x61A9 # 憩 -- 267,075
|
||||
0xB73E 0x8E60 # 蹠 -- 267,076
|
||||
0xB73F 0x56AD # 嚭 -- 267,077
|
||||
0xB740 0x6B59 # 歙 -- 267,100
|
||||
0xB741 0x86B6 # 蚶 -- 267,101
|
||||
0xB742 0x86C4 # 蛄 -- 267,102
|
||||
0xB743 0x695E # 楞 -- 267,103
|
||||
0xB744 0x8188 # 膈 -- 267,104
|
||||
0xB745 0x5F5D # 彝 -- 267,105
|
||||
0xB746 0x97C3 # 韃 -- 267,106
|
||||
0xB747 0x80B1 # 肱 -- 267,107
|
||||
0xB748 0x6BD7 # 毗 -- 267,110
|
||||
0xB749 0x84F4 # 蓴 -- 267,111
|
||||
0xB74A 0x548E # 咎 -- 267,112
|
||||
0xB74B 0x6DB8 # 涸 -- 267,113
|
||||
0xB74C 0x8E35 # 踵 -- 267,114
|
||||
0xB74D 0x8A85 # 誅 -- 267,115
|
||||
0xB74E 0x6115 # 愕 -- 267,116
|
||||
0xB74F 0x622E # 戮 -- 267,117
|
||||
0xB750 0x8E59 # 蹙 -- 267,120
|
||||
0xB751 0x968D # 隍 -- 267,121
|
||||
0xB752 0x608C # 悌 -- 267,122
|
||||
0xB753 0x645F # 摟 -- 267,123
|
||||
0xB754 0x7441 # 瑁 -- 267,124
|
||||
0xB755 0x919E # 醞 -- 267,125
|
||||
0xB756 0x8C5A # 豚 -- 267,126
|
||||
0xB757 0x90A2 # 邢 -- 267,127
|
||||
0xB758 0x60D8 # 惘 -- 267,130
|
||||
0xB759 0x8A0C # 訌 -- 267,131
|
||||
0xB75A 0x9594 # 閔 -- 267,132
|
||||
0xB75B 0x6E5B # 湛 -- 267,133
|
||||
0xB75C 0x6F66 # 潦 -- 267,134
|
||||
0xB75D 0x5157 # 兗 -- 267,135
|
||||
0xB75E 0x8431 # 萱 -- 267,136
|
||||
0xB75F 0x8A91 # 誑 -- 267,137
|
||||
0xB760 0x54A9 # 咩 -- 267,140
|
||||
0xB761 0x81C0 # 臀 -- 267,141
|
||||
0xB762 0x61CB # 懋 -- 267,142
|
||||
0xB763 0x99A5 # 馥 -- 267,143
|
||||
0xB764 0x8026 # 耦 -- 267,144
|
||||
0xB765 0x9A65 # 驥 -- 267,145
|
||||
0xB766 0x557B # 啻 -- 267,146
|
||||
0xB767 0x5533 # 唳 -- 267,147
|
||||
0xB768 0x807F # 聿 -- 267,150
|
||||
0xB769 0x566C # 噬 -- 267,151
|
||||
0xB76A 0x85FA # 藺 -- 267,152
|
||||
0xB76B 0x6BB2 # 殲 -- 267,153
|
||||
0xB76C 0x995C # 饜 -- 267,154
|
||||
0xB76D 0x992C # 餬 -- 267,155
|
||||
0xB76E 0x8C62 # 豢 -- 267,156
|
||||
0xB76F 0x5FDD # 忝 -- 267,157
|
||||
0xB770 0x7A95 # 窕 -- 267,160
|
||||
0xB771 0x973D # 霽 -- 267,161
|
||||
0xB772 0x9621 # 阡 -- 267,162
|
||||
0xB773 0x814B # 腋 -- 267,163
|
||||
0xB774 0x8012 # 耒 -- 267,164
|
||||
0xB775 0x946B # 鑫 -- 267,165
|
||||
0xB776 0x61FE # 懾 -- 267,166
|
||||
0xB777 0x9382 # 鎂 -- 267,167
|
||||
0xB778 0x68B1 # 梱 -- 267,170
|
||||
0xB779 0x76B8 # 皸 -- 267,171
|
||||
0xB77A 0x5B34 # 嬴 -- 267,172
|
||||
0xB77B 0x9148 # 酈 -- 267,173
|
||||
0xB77C 0x6FF0 # 濰 -- 267,174
|
||||
0xB77D 0x4F6C # 佬 -- 267,175
|
||||
0xB77E 0x69E8 # 槨 -- 267,176
|
||||
0xB7A1 0x95B6 # 閶 -- 267,241
|
||||
0xB7A2 0x8CE1 # 賡 -- 267,242
|
||||
0xB7A3 0x61CD # 懍 -- 267,243
|
||||
0xB7A4 0x9E82 # 麂 -- 267,244
|
||||
0xB7A5 0x9E8B # 麋 -- 267,245
|
||||
0xB7A6 0x9A4A # 驊 -- 267,246
|
||||
0xB7A7 0x9785 # 鞅 -- 267,247
|
||||
0xB7A8 0x504E # 偎 -- 267,250
|
||||
0xB7A9 0x4E69 # 乩 -- 267,251
|
||||
0xB7AA 0x7152 # 煒 -- 267,252
|
||||
0xB7AB 0x7864 # 硤 -- 267,253
|
||||
0xB7AC 0x6C16 # 氖 -- 267,254
|
||||
0xB7AD 0x82F3 # 苳 -- 267,255
|
||||
0xB7AE 0x87F3 # 蟳 -- 267,256
|
||||
0xB7AF 0x92D0 # 鋐 -- 267,257
|
||||
0xB7B0 0x6A47 # 橇 -- 267,260
|
||||
0xB7B1 0x528C # 劌 -- 267,261
|
||||
0xB7B2 0x9E90 # 麐 -- 267,262
|
||||
0xB7B3 0x574F # 坏 -- 267,263
|
||||
0xB7B4 0x5FEA # 忪 -- 267,264
|
||||
0xB7B5 0x8760 # 蝠 -- 267,265
|
||||
0xB7B6 0x9433 # 鐳 -- 267,266
|
||||
0xB7B7 0x566F # 噯 -- 267,267
|
||||
0xB7B8 0x59E3 # 姣 -- 267,270
|
||||
0xB7B9 0x616B # 慫 -- 267,271
|
||||
0xB7BA 0x6215 # 戕 -- 267,272
|
||||
0xB7BB 0x73B3 # 玳 -- 267,273
|
||||
0xB7BC 0x5102 # 儂 -- 267,274
|
||||
0xB7BD 0x652B # 攫 -- 267,275
|
||||
0xB7BE 0x5208 # 刈 -- 267,276
|
||||
0xB7BF 0x970E # 霎 -- 267,277
|
||||
0xB7C0 0x6D63 # 浣 -- 267,300
|
||||
0xB7C1 0x9837 # 頷 -- 267,301
|
||||
0xB7C2 0x82B8 # 芸 -- 267,302
|
||||
0xB7C3 0x7950 # 祐 -- 267,303
|
||||
0xB7C4 0x6369 # 捩 -- 267,304
|
||||
0xB7C5 0x6096 # 悖 -- 267,305
|
||||
0xB7C6 0x599E # 妞 -- 267,306
|
||||
0xB7C7 0x5CB1 # 岱 -- 267,307
|
||||
0xB7C8 0x5A41 # 婁 -- 267,310
|
||||
0xB7C9 0x6773 # 杳 -- 267,311
|
||||
0xB7CA 0x62EE # 拮 -- 267,312
|
||||
0xB7CB 0x82D3 # 苓 -- 267,313
|
||||
0xB7CC 0x6715 # 朕 -- 267,314
|
||||
0xB7CD 0x65CC # 旌 -- 267,315
|
||||
0xB7CE 0x5F2D # 弭 -- 267,316
|
||||
0xB7CF 0x62FD # 拽 -- 267,317
|
||||
0xB7D0 0x5639 # 嘹 -- 267,320
|
||||
0xB7D1 0x8490 # 蒐 -- 267,321
|
||||
0xB7D2 0x613F # 愿 -- 267,322
|
||||
0xB7D3 0x822B # 舫 -- 267,323
|
||||
0xB7D4 0x6248 # 扈 -- 267,324
|
||||
0xB7D5 0x96C9 # 雉 -- 267,325
|
||||
0xB7D6 0x6D79 # 浹 -- 267,326
|
||||
0xB7D7 0x64C2 # 擂 -- 267,327
|
||||
0xB7D8 0x75B5 # 疵 -- 267,330
|
||||
0xB7D9 0x858A # 薊 -- 267,331
|
||||
0xB7DA 0x6F62 # 潢 -- 267,332
|
||||
0xB7DB 0x83C1 # 菁 -- 267,333
|
||||
0xB7DC 0x7DBA # 綺 -- 267,334
|
||||
0xB7DD 0x9798 # 鞘 -- 267,335
|
||||
0xB7DE 0x6E1A # 渚 -- 267,336
|
||||
0xB7DF 0x9AEF # 髯 -- 267,337
|
||||
0xB7E0 0x87BB # 螻 -- 267,340
|
||||
0xB7E1 0x9438 # 鐸 -- 267,341
|
||||
0xB7E2 0x9ACF # 髏 -- 267,342
|
||||
0xB7E3 0x7FB8 # 羸 -- 267,343
|
||||
0xB7E4 0x699B # 榛 -- 267,344
|
||||
0xB7E5 0x9EDC # 黜 -- 267,345
|
||||
0xB7E6 0x7511 # 甑 -- 267,346
|
||||
0xB7E7 0x93D6 # 鏖 -- 267,347
|
||||
0xB7E8 0x873F # 蜿 -- 267,350
|
||||
0xB7E9 0x79E3 # 秣 -- 267,351
|
||||
0xB7EA 0x777F # 睿 -- 267,352
|
||||
0xB7EB 0x8936 # 褶 -- 267,353
|
||||
0xB7EC 0x98F4 # 飴 -- 267,354
|
||||
0xB7ED 0x90AF # 邯 -- 267,355
|
||||
0xB7EE 0x9672 # 陲 -- 267,356
|
||||
0xB7EF 0x52D6 # 勖 -- 267,357
|
||||
0xB7F0 0x977C # 靼 -- 267,360
|
||||
0xB7F1 0x6883 # 梃 -- 267,361
|
||||
0xB7F2 0x621B # 戛 -- 267,362
|
||||
0xB7F3 0x7FAF # 羯 -- 267,363
|
||||
0xB7F4 0x61E3 # 懣 -- 267,364
|
||||
0xB7F5 0x9068 # 遨 -- 267,365
|
||||
0xB7F6 0x607F # 恿 -- 267,366
|
||||
0xB7F7 0x558B # 喋 -- 267,367
|
||||
0xB7F8 0x6F82 # 澂 -- 267,370
|
||||
0xB7F9 0x6C4A # 汊 -- 267,371
|
||||
0xB7FA 0x69AD # 榭 -- 267,372
|
||||
0xB7FB 0x532D # 匭 -- 267,373
|
||||
0xB7FC 0x9095 # 邕 -- 267,374
|
||||
0xB7FD 0x5769 # 坩 -- 267,375
|
||||
0xB7FE 0x8DFC # 跼 -- 267,376
|
||||
191
unicode/xerox/unihan/XCCS-270=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-270=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "270" UNIHAN
|
||||
|
||||
0xB821 0x66C7 # 曇 -- 270,041
|
||||
0xB822 0x5E84 # 庄 -- 270,042
|
||||
0xB823 0x6271 # 扱 -- 270,043
|
||||
0xB824 0x5C8C # 岌 -- 270,044
|
||||
0xB825 0x8F61 # 轡 -- 270,045
|
||||
0xB826 0x9146 # 酆 -- 270,046
|
||||
0xB827 0x4F5F # 佟 -- 270,047
|
||||
0xB828 0x6ADB # 櫛 -- 270,050
|
||||
0xB829 0x6CD0 # 泐 -- 270,051
|
||||
0xB82A 0x6FEE # 濮 -- 270,052
|
||||
0xB82B 0x9052 # 遒 -- 270,053
|
||||
0xB82C 0x9088 # 邈 -- 270,054
|
||||
0xB82D 0x6854 # 桔 -- 270,055
|
||||
0xB82E 0x88B5 # 袵 -- 270,056
|
||||
0xB82F 0x566B # 噫 -- 270,057
|
||||
0xB830 0x611C # 愜 -- 270,060
|
||||
0xB831 0x64D8 # 擘 -- 270,061
|
||||
0xB832 0x6A84 # 檄 -- 270,062
|
||||
0xB833 0x7BB4 # 箴 -- 270,063
|
||||
0xB834 0x7D73 # 絳 -- 270,064
|
||||
0xB835 0x7E79 # 繹 -- 270,065
|
||||
0xB836 0x8011 # 耑 -- 270,066
|
||||
0xB837 0x8174 # 腴 -- 270,067
|
||||
0xB838 0x8F47 # 轇 -- 270,070
|
||||
0xB839 0x8F55 # 轕 -- 270,071
|
||||
0xB83A 0x99E2 # 駢 -- 270,072
|
||||
0xB83B 0x4FCE # 俎 -- 270,073
|
||||
0xB83C 0x5028 # 倨 -- 270,074
|
||||
0xB83D 0x60D3 # 惓 -- 270,075
|
||||
0xB83E 0x61E5 # 懥 -- 270,076
|
||||
0xB83F 0x6A3D # 樽 -- 270,077
|
||||
0xB840 0x6D35 # 洵 -- 270,100
|
||||
0xB841 0x785C # 硜 -- 270,101
|
||||
0xB842 0x7B08 # 笈 -- 270,102
|
||||
0xB843 0x846D # 葭 -- 270,103
|
||||
0xB844 0x8558 # 蕘 -- 270,104
|
||||
0xB845 0x8AC4 # 諄 -- 270,105
|
||||
0xB846 0x8DC2 # 跂 -- 270,106
|
||||
0xB847 0x8EEB # 軫 -- 270,107
|
||||
0xB848 0x958E # 閎 -- 270,110
|
||||
0xB849 0x95BD # 閽 -- 270,111
|
||||
0xB84A 0x9695 # 隕 -- 270,112
|
||||
0xB84B 0x4FFA # 俺 -- 270,113
|
||||
0xB84C 0x50EE # 僮 -- 270,114
|
||||
0xB84D 0x59AF # 妯 -- 270,115
|
||||
0xB84E 0x5A0C # 娌 -- 270,116
|
||||
0xB84F 0x54FD # 哽 -- 270,117
|
||||
0xB850 0x5550 # 啐 -- 270,120
|
||||
0xB851 0x55A8 # 喨 -- 270,121
|
||||
0xB852 0x5C50 # 屐 -- 270,122
|
||||
0xB853 0x5E37 # 帷 -- 270,123
|
||||
0xB854 0x5E57 # 幗 -- 270,124
|
||||
0xB855 0x5F29 # 弩 -- 270,125
|
||||
0xB856 0x5F40 # 彀 -- 270,126
|
||||
0xB857 0x60FB # 惻 -- 270,127
|
||||
0xB858 0x6147 # 慇 -- 270,130
|
||||
0xB859 0x61A8 # 憨 -- 270,131
|
||||
0xB85A 0x62C8 # 拈 -- 270,132
|
||||
0xB85B 0x62F7 # 拷 -- 270,133
|
||||
0xB85C 0x6428 # 搨 -- 270,134
|
||||
0xB85D 0x67B7 # 枷 -- 270,135
|
||||
0xB85E 0x689F # 梟 -- 270,136
|
||||
0xB85F 0x6AD3 # 櫓 -- 270,137
|
||||
0xB860 0x6BEC # 毬 -- 270,140
|
||||
0xB861 0x6F1A # 漚 -- 270,141
|
||||
0xB862 0x7168 # 煨 -- 270,142
|
||||
0xB863 0x718F # 熏 -- 270,143
|
||||
0xB864 0x7422 # 琢 -- 270,144
|
||||
0xB865 0x7515 # 甕 -- 270,145
|
||||
0xB866 0x75E3 # 痣 -- 270,146
|
||||
0xB867 0x763C # 瘼 -- 270,147
|
||||
0xB868 0x76C2 # 盂 -- 270,150
|
||||
0xB869 0x7BE6 # 篦 -- 270,151
|
||||
0xB86A 0x7C2A # 簪 -- 270,152
|
||||
0xB86B 0x7CF4 # 糴 -- 270,153
|
||||
0xB86C 0x7D09 # 紉 -- 270,154
|
||||
0xB86D 0x7D2C # 紬 -- 270,155
|
||||
0xB86E 0x7DBB # 綻 -- 270,156
|
||||
0xB86F 0x7FB9 # 羹 -- 270,157
|
||||
0xB870 0x7FCE # 翎 -- 270,160
|
||||
0xB871 0x801C # 耜 -- 270,161
|
||||
0xB872 0x8202 # 舂 -- 270,162
|
||||
0xB873 0x828B # 芋 -- 270,163
|
||||
0xB874 0x828D # 芍 -- 270,164
|
||||
0xB875 0x82B9 # 芹 -- 270,165
|
||||
0xB876 0x83C7 # 菇 -- 270,166
|
||||
0xB877 0x85C1 # 藁 -- 270,167
|
||||
0xB878 0x8671 # 虱 -- 270,170
|
||||
0xB879 0x86AA # 蚪 -- 270,171
|
||||
0xB87A 0x86C6 # 蛆 -- 270,172
|
||||
0xB87B 0x87E0 # 蟠 -- 270,173
|
||||
0xB87C 0x87FE # 蟾 -- 270,174
|
||||
0xB87D 0x8888 # 袈 -- 270,175
|
||||
0xB87E 0x8960 # 襠 -- 270,176
|
||||
0xB8A1 0x8A7C # 詼 -- 270,241
|
||||
0xB8A2 0x8B17 # 謗 -- 270,242
|
||||
0xB8A3 0x8C7A # 豺 -- 270,243
|
||||
0xB8A4 0x8F46 # 轆 -- 270,244
|
||||
0xB8A5 0x9328 # 錨 -- 270,245
|
||||
0xB8A6 0x9582 # 閂 -- 270,246
|
||||
0xB8A7 0x994B # 饋 -- 270,247
|
||||
0xB8A8 0x99AD # 馭 -- 270,250
|
||||
0xB8A9 0x9AFB # 髻 -- 270,251
|
||||
0xB8AA 0x9C25 # 鰥 -- 270,252
|
||||
0xB8AB 0x9CE9 # 鳩 -- 270,253
|
||||
0xB8AC 0x9E9D # 麝 -- 270,254
|
||||
0xB8AD 0x9F66 # 齦 -- 270,255
|
||||
0xB8AE 0x9F6A # 齪 -- 270,256
|
||||
0xB8AF 0x9F77 # 齷 -- 270,257
|
||||
0xB8B0 0x54A7 # 咧 -- 270,260
|
||||
0xB8B1 0x56E1 # 囡 -- 270,261
|
||||
0xB8B2 0x8814 # 蠔 -- 270,262
|
||||
0xB8B3 0x4EA2 # 亢 -- 270,263
|
||||
0xB8B4 0x5115 # 儕 -- 270,264
|
||||
0xB8B5 0x5BA5 # 宥 -- 270,265
|
||||
0xB8B6 0x5484 # 咄 -- 270,266
|
||||
0xB8B7 0x564E # 噎 -- 270,267
|
||||
0xB8B8 0x5669 # 噩 -- 270,270
|
||||
0xB8B9 0x584B # 塋 -- 270,271
|
||||
0xB8BA 0x59D9 # 姙 -- 270,272
|
||||
0xB8BB 0x5C91 # 岑 -- 270,273
|
||||
0xB8BC 0x6308 # 挈 -- 270,274
|
||||
0xB8BD 0x6677 # 晷 -- 270,275
|
||||
0xB8BE 0x6BA4 # 殤 -- 270,276
|
||||
0xB8BF 0x6CC5 # 泅 -- 270,277
|
||||
0xB8C0 0x6D5C # 浜 -- 270,300
|
||||
0xB8C1 0x6E19 # 渙 -- 270,301
|
||||
0xB8C2 0x72CE # 狎 -- 270,302
|
||||
0xB8C3 0x749E # 璞 -- 270,303
|
||||
0xB8C4 0x757F # 畿 -- 270,304
|
||||
0xB8C5 0x75DE # 痞 -- 270,305
|
||||
0xB8C6 0x76CD # 盍 -- 270,306
|
||||
0xB8C7 0x7791 # 瞑 -- 270,307
|
||||
0xB8C8 0x77BF # 瞿 -- 270,310
|
||||
0xB8C9 0x7A14 # 稔 -- 270,311
|
||||
0xB8CA 0x7BCB # 篋 -- 270,312
|
||||
0xB8CB 0x8151 # 腑 -- 270,313
|
||||
0xB8CC 0x8340 # 荀 -- 270,314
|
||||
0xB8CD 0x8398 # 莘 -- 270,315
|
||||
0xB8CE 0x83C5 # 菅 -- 270,316
|
||||
0xB8CF 0x847A # 葺 -- 270,317
|
||||
0xB8D0 0x875F # 蝟 -- 270,320
|
||||
0xB8D1 0x887E # 衾 -- 270,321
|
||||
0xB8D2 0x891A # 褚 -- 270,322
|
||||
0xB8D3 0x8988 # 覈 -- 270,323
|
||||
0xB8D4 0x89D4 # 觔 -- 270,324
|
||||
0xB8D5 0x8A48 # 詈 -- 270,325
|
||||
0xB8D6 0x8ADB # 諛 -- 270,326
|
||||
0xB8D7 0x8AEE # 諮 -- 270,327
|
||||
0xB8D8 0x8CFB # 賻 -- 270,330
|
||||
0xB8D9 0x8D0D # 贍 -- 270,331
|
||||
0xB8DA 0x8E30 # 踰 -- 270,332
|
||||
0xB8DB 0x8E49 # 蹉 -- 270,333
|
||||
0xB8DC 0x8E87 # 躇 -- 270,334
|
||||
0xB8DD 0x8E8A # 躊 -- 270,335
|
||||
0xB8DE 0x9041 # 遁 -- 270,336
|
||||
0xB8DF 0x905B # 遛 -- 270,337
|
||||
0xB8E0 0x932E # 錮 -- 270,340
|
||||
0xB8E1 0x95D5 # 闕 -- 270,341
|
||||
0xB8E2 0x9773 # 靳 -- 270,342
|
||||
0xB8E3 0x9BCA # 鯊 -- 270,343
|
||||
0xB8E4 0x9D06 # 鴆 -- 270,344
|
||||
0xB8E5 0x9F5F # 齟 -- 270,345
|
||||
0xB8E6 0x5106 # 儆 -- 270,346
|
||||
0xB8E7 0x530D # 匍 -- 270,347
|
||||
0xB8E8 0x5310 # 匐 -- 270,350
|
||||
0xB8E9 0x5E11 # 帑 -- 270,351
|
||||
0xB8EA 0x5EE8 # 廨 -- 270,352
|
||||
0xB8EB 0x6214 # 戔 -- 270,353
|
||||
0xB8EC 0x6406 # 搆 -- 270,354
|
||||
0xB8ED 0x6409 # 搉 -- 270,355
|
||||
0xB8EE 0x6621 # 昡 -- 270,356
|
||||
0xB8EF 0x6A8E # 檎 -- 270,357
|
||||
0xB8F0 0x6F3E # 漾 -- 270,360
|
||||
0xB8F1 0x6F41 # 潁 -- 270,361
|
||||
0xB8F2 0x714A # 煊 -- 270,362
|
||||
0xB8F3 0x7192 # 熒 -- 270,363
|
||||
0xB8F4 0x71B9 # 熹 -- 270,364
|
||||
0xB8F5 0x71FE # 燾 -- 270,365
|
||||
0xB8F6 0x7296 # 犖 -- 270,366
|
||||
0xB8F7 0x72D9 # 狙 -- 270,367
|
||||
0xB8F8 0x7521 # 甡 -- 270,370
|
||||
0xB8F9 0x7540 # 畀 -- 270,371
|
||||
0xB8FA 0x759D # 疝 -- 270,372
|
||||
0xB8FB 0x75B4 # 疴 -- 270,373
|
||||
0xB8FC 0x75FC # 痼 -- 270,374
|
||||
0xB8FD 0x7630 # 瘰 -- 270,375
|
||||
0xB8FE 0x7667 # 癧 -- 270,376
|
||||
191
unicode/xerox/unihan/XCCS-271=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-271=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "271" UNIHAN
|
||||
|
||||
0xB921 0x77DA # 矚 -- 271,041
|
||||
0xB922 0x7B67 # 筧 -- 271,042
|
||||
0xB923 0x7B71 # 筱 -- 271,043
|
||||
0xB924 0x7D1C # 紜 -- 271,044
|
||||
0xB925 0x7DA6 # 綦 -- 271,045
|
||||
0xB926 0x7DAC # 綬 -- 271,046
|
||||
0xB927 0x7E09 # 縉 -- 271,047
|
||||
0xB928 0x7E46 # 繆 -- 271,050
|
||||
0xB929 0x7E9B # 纛 -- 271,051
|
||||
0xB92A 0x8201 # 舁 -- 271,052
|
||||
0xB92B 0x82D2 # 苒 -- 271,053
|
||||
0xB92C 0x834F # 荏 -- 271,054
|
||||
0xB92D 0x8446 # 葆 -- 271,055
|
||||
0xB92E 0x87C4 # 蟄 -- 271,056
|
||||
0xB92F 0x8AD7 # 諗 -- 271,057
|
||||
0xB930 0x8CB2 # 貲 -- 271,060
|
||||
0xB931 0x8F0A # 輊 -- 271,061
|
||||
0xB932 0x9044 # 遄 -- 271,062
|
||||
0xB933 0x9074 # 遴 -- 271,063
|
||||
0xB934 0x90DB # 郛 -- 271,064
|
||||
0xB935 0x913A # 鄺 -- 271,065
|
||||
0xB936 0x9A64 # 驤 -- 271,066
|
||||
0xB937 0x4E31 # 丱 -- 271,067
|
||||
0xB938 0x63F6 # 揶 -- 271,070
|
||||
0xB939 0x6E2B # 渫 -- 271,071
|
||||
0xB93A 0x9082 # 邂 -- 271,072
|
||||
0xB93B 0x90DF # 郟 -- 271,073
|
||||
0xB93C 0x80B4 # 肴 -- 271,074
|
||||
0xB93D 0x9917 # 餗 -- 271,075
|
||||
0xB93E 0x99D1 # 駑 -- 271,076
|
||||
0xB93F 0x99D8 # 駘 -- 271,077
|
||||
0xB940 0x4F57 # 佗 -- 271,100
|
||||
0xB941 0x4FDA # 俚 -- 271,101
|
||||
0xB942 0x5228 # 刨 -- 271,102
|
||||
0xB943 0x528A # 劊 -- 271,103
|
||||
0xB944 0x5A4A # 婊 -- 271,104
|
||||
0xB945 0x5B51 # 孑 -- 271,105
|
||||
0xB946 0x5969 # 奩 -- 271,106
|
||||
0xB947 0x5FD6 # 忖 -- 271,107
|
||||
0xB948 0x6063 # 恣 -- 271,110
|
||||
0xB949 0x60DA # 惚 -- 271,111
|
||||
0xB94A 0x61C3 # 懃 -- 271,112
|
||||
0xB94B 0x505D # 偝 -- 271,113
|
||||
0xB94C 0x62D5 # 拕 -- 271,114
|
||||
0xB94D 0x62ED # 拭 -- 271,115
|
||||
0xB94E 0x6336 # 挶 -- 271,116
|
||||
0xB94F 0x6390 # 掐 -- 271,117
|
||||
0xB950 0x6376 # 捶 -- 271,120
|
||||
0xB951 0x63D6 # 揖 -- 271,121
|
||||
0xB952 0x6473 # 摳 -- 271,122
|
||||
0xB953 0x6504 # 攄 -- 271,123
|
||||
0xB954 0x6666 # 晦 -- 271,124
|
||||
0xB955 0x667E # 晾 -- 271,125
|
||||
0xB956 0x696F # 楯 -- 271,126
|
||||
0xB957 0x6EF7 # 滷 -- 271,127
|
||||
0xB958 0x6F87 # 澇 -- 271,130
|
||||
0xB959 0x75C2 # 痂 -- 271,131
|
||||
0xB95A 0x7634 # 瘴 -- 271,132
|
||||
0xB95B 0x7812 # 砒 -- 271,133
|
||||
0xB95C 0x7ABF # 窿 -- 271,134
|
||||
0xB95D 0x7B33 # 笳 -- 271,135
|
||||
0xB95E 0x7B8D # 箍 -- 271,136
|
||||
0xB95F 0x7B9D # 箝 -- 271,137
|
||||
0xB960 0x7DB9 # 綹 -- 271,140
|
||||
0xB961 0x7D5B # 絛 -- 271,141
|
||||
0xB962 0x7E6E # 繮 -- 271,142
|
||||
0xB963 0x812C # 脬 -- 271,143
|
||||
0xB964 0x8198 # 膘 -- 271,144
|
||||
0xB965 0x81CA # 臊 -- 271,145
|
||||
0xB966 0x8244 # 艄 -- 271,146
|
||||
0xB967 0x83F8 # 菸 -- 271,147
|
||||
0xB968 0x8493 # 蒓 -- 271,150
|
||||
0xB969 0x8784 # 螄 -- 271,151
|
||||
0xB96A 0x87C8 # 蟈 -- 271,152
|
||||
0xB96B 0x87D2 # 蟒 -- 271,153
|
||||
0xB96C 0x88F1 # 裱 -- 271,154
|
||||
0xB96D 0x8976 # 襶 -- 271,155
|
||||
0xB96E 0x89A5 # 覥 -- 271,156
|
||||
0xB96F 0x8A46 # 詆 -- 271,157
|
||||
0xB970 0x8A86 # 誆 -- 271,160
|
||||
0xB971 0x8B05 # 謅 -- 271,161
|
||||
0xB972 0x8C47 # 豇 -- 271,162
|
||||
0xB973 0x8C49 # 豉 -- 271,163
|
||||
0xB974 0x8E39 # 踹 -- 271,164
|
||||
0xB975 0x97AC # 鞬 -- 271,165
|
||||
0xB976 0x9C0D # 鰍 -- 271,166
|
||||
0xB977 0x9C54 # 鱔 -- 271,167
|
||||
0xB978 0x9D89 # 鶉 -- 271,170
|
||||
0xB979 0x9D70 # 鵰 -- 271,171
|
||||
0xB97A 0x9F08 # 鼈 -- 271,172
|
||||
0xB97B 0x9F95 # 龕 -- 271,173
|
||||
0xB97C 0x7BB8 # 箸 -- 271,174
|
||||
0xB97D 0x8494 # 蒔 -- 271,175
|
||||
0xB97E 0x8AFA # 諺 -- 271,176
|
||||
0xB9A1 0x91F5 # 釵 -- 271,241
|
||||
0xB9A2 0x9E75 # 鹵 -- 271,242
|
||||
0xB9A3 0x500F # 倏 -- 271,243
|
||||
0xB9A4 0x5AD7 # 嫗 -- 271,244
|
||||
0xB9A5 0x5B70 # 孰 -- 271,245
|
||||
0xB9A6 0x53E9 # 叩 -- 271,246
|
||||
0xB9A7 0x5729 # 圩 -- 271,247
|
||||
0xB9A8 0x5F01 # 弁 -- 271,250
|
||||
0xB9A9 0x5F0B # 弋 -- 271,251
|
||||
0xB9AA 0x606A # 恪 -- 271,252
|
||||
0xB9AB 0x60B8 # 悸 -- 271,253
|
||||
0xB9AC 0x634C # 捌 -- 271,254
|
||||
0xB9AD 0x693F # 椿 -- 271,255
|
||||
0xB9AE 0x6B86 # 殆 -- 271,256
|
||||
0xB9AF 0x7638 # 瘸 -- 271,257
|
||||
0xB9B0 0x8546 # 蕆 -- 271,260
|
||||
0xB9B1 0x85B9 # 薹 -- 271,261
|
||||
0xB9B2 0x8831 # 蠱 -- 271,262
|
||||
0xB9B3 0x8FE5 # 迥 -- 271,263
|
||||
0xB9B4 0x942B # 鐫 -- 271,264
|
||||
0xB9B5 0x9862 # 顢 -- 271,265
|
||||
0xB9B6 0x9874 # 顴 -- 271,266
|
||||
0xB9B7 0x524B # 剋 -- 271,267
|
||||
0xB9B8 0x5372 # 卲 -- 271,270
|
||||
0xB9B9 0x5B95 # 宕 -- 271,271
|
||||
0xB9BA 0x5D47 # 嵇 -- 271,272
|
||||
0xB9BB 0x620D # 戍 -- 271,273
|
||||
0xB9BC 0x6549 # 敉 -- 271,274
|
||||
0xB9BD 0x66B9 # 暹 -- 271,275
|
||||
0xB9BE 0x6A90 # 檐 -- 271,276
|
||||
0xB9BF 0x6AAF # 檯 -- 271,277
|
||||
0xB9C0 0x6C4D # 汍 -- 271,300
|
||||
0xB9C1 0x724B # 牋 -- 271,301
|
||||
0xB9C2 0x725D # 牝 -- 271,302
|
||||
0xB9C3 0x73E9 # 珩 -- 271,303
|
||||
0xB9C4 0x7428 # 琨 -- 271,304
|
||||
0xB9C5 0x7489 # 璉 -- 271,305
|
||||
0xB9C6 0x74A8 # 璨 -- 271,306
|
||||
0xB9C7 0x7672 # 癲 -- 271,307
|
||||
0xB9C8 0x7887 # 碇 -- 271,310
|
||||
0xB9C9 0x7BE0 # 篠 -- 271,311
|
||||
0xB9CA 0x7FE6 # 翦 -- 271,312
|
||||
0xB9CB 0x837C # 荼 -- 271,313
|
||||
0xB9CC 0x871A # 蜚 -- 271,314
|
||||
0xB9CD 0x8832 # 蠲 -- 271,315
|
||||
0xB9CE 0x8A67 # 詧 -- 271,316
|
||||
0xB9CF 0x9291 # 銑 -- 271,317
|
||||
0xB9D0 0x98BB # 颻 -- 271,320
|
||||
0xB9D1 0x993D # 餽 -- 271,321
|
||||
0xB9D2 0x9A0F # 騏 -- 271,322
|
||||
0xB9D3 0x88A2 # 袢 -- 271,323
|
||||
0xB9D4 0x9ECC # 黌 -- 271,324
|
||||
0xB9D5 0x51CA # 凊 -- 271,325
|
||||
0xB9D6 0x5298 # 劘 -- 271,326
|
||||
0xB9D7 0x5684 # 嚄 -- 271,327
|
||||
0xB9D8 0x60F2 # 惲 -- 271,330
|
||||
0xB9D9 0x6684 # 暄 -- 271,331
|
||||
0xB9DA 0x595A # 奚 -- 271,332
|
||||
0xB9DB 0x6AEC # 櫬 -- 271,333
|
||||
0xB9DC 0x6DC4 # 淄 -- 271,334
|
||||
0xB9DD 0x6EC1 # 滁 -- 271,335
|
||||
0xB9DE 0x7006 # 瀆 -- 271,336
|
||||
0xB9DF 0x71EE # 燮 -- 271,337
|
||||
0xB9E0 0x726F # 牯 -- 271,340
|
||||
0xB9E1 0x7600 # 瘀 -- 271,341
|
||||
0xB9E2 0x75F1 # 痱 -- 271,342
|
||||
0xB9E3 0x7625 # 瘥 -- 271,343
|
||||
0xB9E4 0x765F # 癟 -- 271,344
|
||||
0xB9E5 0x7670 # 癰 -- 271,345
|
||||
0xB9E6 0x546B # 呫 -- 271,346
|
||||
0xB9E7 0x7CF6 # 糶 -- 271,347
|
||||
0xB9E8 0x7F7D # 罽 -- 271,350
|
||||
0xB9E9 0x8014 # 耔 -- 271,351
|
||||
0xB9EA 0x811B # 脛 -- 271,352
|
||||
0xB9EB 0x81DD # 臝 -- 271,353
|
||||
0xB9EC 0x83A9 # 莩 -- 271,354
|
||||
0xB9ED 0x884A # 衊 -- 271,355
|
||||
0xB9EE 0x8AD1 # 諑 -- 271,356
|
||||
0xB9EF 0x8B07 # 謇 -- 271,357
|
||||
0xB9F0 0x8B85 # 讅 -- 271,360
|
||||
0xB9F1 0x9210 # 鈐 -- 271,361
|
||||
0xB9F2 0x9628 # 阨 -- 271,362
|
||||
0xB9F3 0x9768 # 靨 -- 271,363
|
||||
0xB9F4 0x9870 # 顰 -- 271,364
|
||||
0xB9F5 0x52FD # 勽 -- 271,365
|
||||
0xB9F6 0x90D7 # 郗 -- 271,366
|
||||
0xB9F7 0x92AC # 銬 -- 271,367
|
||||
0xB9F8 0x54CF # 哏 -- 271,370
|
||||
0xB9F9 0x552C # 唬 -- 271,371
|
||||
0xB9FA 0x6886 # 梆 -- 271,372
|
||||
0xB9FB 0x7785 # 瞅 -- 271,373
|
||||
0xB9FC 0x81C3 # 臃 -- 271,374
|
||||
0xB9FD 0x826E # 艮 -- 271,375
|
||||
0xB9FE 0x84A1 # 蒡 -- 271,376
|
||||
190
unicode/xerox/unihan/XCCS-272=UNIHAN.TXT
Normal file
190
unicode/xerox/unihan/XCCS-272=UNIHAN.TXT
Normal file
@@ -0,0 +1,190 @@
|
||||
|
||||
# "272" UNIHAN
|
||||
|
||||
0xBA21 0x896C # 襬 -- 272,041
|
||||
0xBA22 0x8C55 # 豕 -- 272,042
|
||||
0xBA23 0x8DBF # 趿 -- 272,043
|
||||
0xBA24 0x9911 # 餑 -- 272,044
|
||||
0xBA25 0x9D15 # 鴕 -- 272,045
|
||||
0xBA26 0x5008 # 倈 -- 272,046
|
||||
0xBA27 0x50BA # 傺 -- 272,047
|
||||
0xBA28 0x5129 # 儩 -- 272,050
|
||||
0xBA29 0x513A # 儺 -- 272,051
|
||||
0xBA2A 0x515B # 兛 -- 272,052
|
||||
0xBA2B 0x53FB # 叻 -- 272,053
|
||||
0xBA2C 0x54FF # 哿 -- 272,054
|
||||
0xBA2D 0x5683 # 嚃 -- 272,055
|
||||
0xBA2E 0x56A6 # 嚦 -- 272,056
|
||||
0xBA2F 0x57ED # 埭 -- 272,057
|
||||
0xBA30 0x5889 # 墉 -- 272,060
|
||||
0xBA31 0x651F # 攟 -- 272,061
|
||||
0xBA32 0x659B # 斛 -- 272,062
|
||||
0xBA33 0x67B0 # 枰 -- 272,063
|
||||
0xBA34 0x6938 # 椸 -- 272,064
|
||||
0xBA35 0x6937 # 椷 -- 272,065
|
||||
0xBA36 0x6A87 # 檇 -- 272,066
|
||||
0xBA37 0x6BAD # 殭 -- 272,067
|
||||
0xBA38 0x6C4E # 汎 -- 272,070
|
||||
0xBA39 0x6CD9 # 泙 -- 272,071
|
||||
0xBA3A 0x5D36 # 崶 -- 272,072
|
||||
0xBA3B 0x6EA7 # 溧 -- 272,073
|
||||
0xBA3C 0x6FCA # 濊 -- 272,074
|
||||
0xBA3D 0x7185 # 熅 -- 272,075
|
||||
0xBA3E 0x71FF # 燿 -- 272,076
|
||||
0xBA3F 0x7517 # 甗 -- 272,077
|
||||
0xBA40 0x752F # 甯 -- 272,100
|
||||
0xBA41 0x75E0 # 痠 -- 272,101
|
||||
0xBA42 0x76A4 # 皤 -- 272,102
|
||||
0xBA43 0x769E # 皞 -- 272,103
|
||||
0xBA44 0x76A6 # 皦 -- 272,104
|
||||
0xBA45 0x76AD # 皭 -- 272,105
|
||||
0xBA46 0x76E6 # 盦 -- 272,106
|
||||
0xBA47 0x76FB # 盻 -- 272,107
|
||||
0xBA48 0x7752 # 睒 -- 272,110
|
||||
0xBA49 0x8918 # 褘 -- 272,111
|
||||
0xBA4A 0x7C67 # 籧 -- 272,112
|
||||
0xBA4B 0x7E56 # 繖 -- 272,113
|
||||
0xBA4C 0x7E91 # 纑 -- 272,114
|
||||
0xBA4D 0x7FBC # 羼 -- 272,115
|
||||
0xBA4E 0x8264 # 艤 -- 272,116
|
||||
0xBA4F 0x826D # 艭 -- 272,117
|
||||
0xBA50 0x8604 # 蘄 -- 272,120
|
||||
0xBA51 0x8629 # 蘩 -- 272,121
|
||||
0xBA52 0x8828 # 蠨 -- 272,122
|
||||
0xBA53 0x890C # 褌 -- 272,123
|
||||
0xBA54 0x8974 # 襴 -- 272,124
|
||||
0xBA55 0x89FC # 觼 -- 272,125
|
||||
0xBA56 0x89FF # 觿 -- 272,126
|
||||
0xBA57 0x8A0F # 訏 -- 272,127
|
||||
0xBA58 0x8B46 # 譆 -- 272,130
|
||||
0xBA59 0x8B95 # 讕 -- 272,131
|
||||
0xBA5A 0x902F # 逯 -- 272,132
|
||||
0xBA5B 0x908B # 邋 -- 272,133
|
||||
0xBA5C 0x9136 # 鄶 -- 272,134
|
||||
0xBA5D 0x93DE # 鏞 -- 272,135
|
||||
0xBA5E 0x9705 # 霅 -- 272,136
|
||||
0xBA5F 0x9A2D # 騭 -- 272,137
|
||||
0xBA60 0x9C68 # 鱨 -- 272,140
|
||||
0xBA61 0x9D96 # 鶖 -- 272,141
|
||||
0xBA62 0x4EB6 # 亶 -- 272,142
|
||||
0xBA63 0x4F5E # 佞 -- 272,143
|
||||
0xBA64 0x4F7B # 佻 -- 272,144
|
||||
0xBA65 0x4F91 # 侑 -- 272,145
|
||||
0xBA66 0x4FF3 # 俳 -- 272,146
|
||||
0xBA67 0x5014 # 倔 -- 272,147
|
||||
0xBA68 0x50ED # 僭 -- 272,150
|
||||
0xBA69 0x5110 # 儐 -- 272,151
|
||||
0xBA6A 0x513C # 儼 -- 272,152
|
||||
0xBA6B 0x5A6A # 婪 -- 272,153
|
||||
0xBA6C 0x5AE3 # 嫣 -- 272,154
|
||||
0xBA6D 0x5B2A # 嬪 -- 272,155
|
||||
0xBA6E 0x5B65 # 孥 -- 272,156
|
||||
0xBA6F 0x53F6 # 叶 -- 272,157
|
||||
0xBA70 0x5401 # 吁 -- 272,160
|
||||
0xBA71 0x542E # 吮 -- 272,161
|
||||
0xBA72 0x54A4 # 咤 -- 272,162
|
||||
0xBA73 0x54AB # 咫 -- 272,163
|
||||
0xBA74 0x552A # 唪 -- 272,164
|
||||
0xBA75 0x5636 # 嘶 -- 272,165
|
||||
0xBA76 0x56FF # 囿 -- 272,166
|
||||
0xBA77 0x589F # 墟 -- 272,167
|
||||
0xBA78 0x58D1 # 壑 -- 272,170
|
||||
0xBA79 0x5D6C # 嵬 -- 272,171
|
||||
0xBA7A 0x5E19 # 帙 -- 272,172
|
||||
0xBA7B 0x5E43 # 幃 -- 272,173
|
||||
0xBA7D 0x5F87 # 徇 -- 272,175
|
||||
0xBA7E 0x5FE1 # 忡 -- 272,176
|
||||
0xBAA1 0x5FF8 # 忸 -- 272,241
|
||||
0xBAA2 0x6019 # 怙 -- 272,242
|
||||
0xBAA3 0x6041 # 恁 -- 272,243
|
||||
0xBAA4 0x625E # 扞 -- 272,244
|
||||
0xBAA5 0x6289 # 抉 -- 272,245
|
||||
0xBAA6 0x636B # 捫 -- 272,246
|
||||
0xBAA7 0x6387 # 掇 -- 272,247
|
||||
0xBAA8 0x6499 # 撙 -- 272,250
|
||||
0xBAA9 0x6555 # 敕 -- 272,251
|
||||
0xBAAA 0x65C3 # 旃 -- 272,252
|
||||
0xBAAB 0x675E # 杞 -- 272,253
|
||||
0xBAAC 0x693D # 椽 -- 272,254
|
||||
0xBAAD 0x6995 # 榕 -- 272,255
|
||||
0xBAAE 0x6B5F # 歟 -- 272,256
|
||||
0xBAAF 0x6B84 # 殄 -- 272,257
|
||||
0xBAB0 0x6DC0 # 淀 -- 272,260
|
||||
0xBAB1 0x6EB7 # 溷 -- 272,261
|
||||
0xBAB2 0x6F7A # 潺 -- 272,262
|
||||
0xBAB3 0x7256 # 牖 -- 272,263
|
||||
0xBAB4 0x72A2 # 犢 -- 272,264
|
||||
0xBAB5 0x731D # 猝 -- 272,265
|
||||
0xBAB6 0x7455 # 瑕 -- 272,266
|
||||
0xBAB7 0x755B # 畛 -- 272,267
|
||||
0xBAB8 0x7587 # 疇 -- 272,270
|
||||
0xBAB9 0x7664 # 癤 -- 272,271
|
||||
0xBABA 0x76C5 # 盅 -- 272,272
|
||||
0xBABB 0x76E5 # 盥 -- 272,273
|
||||
0xBABC 0x7707 # 眇 -- 272,274
|
||||
0xBABD 0x7825 # 砥 -- 272,275
|
||||
0xBABE 0x7893 # 碓 -- 272,276
|
||||
0xBABF 0x78CA # 磊 -- 272,277
|
||||
0xBAC0 0x7A17 # 稗 -- 272,300
|
||||
0xBAC1 0x7BFE # 篾 -- 272,301
|
||||
0xBAC2 0x7C5F # 籟 -- 272,302
|
||||
0xBAC3 0x7C95 # 粕 -- 272,303
|
||||
0xBAC4 0x7D06 # 紆 -- 272,304
|
||||
0xBAC5 0x7DCB # 緋 -- 272,305
|
||||
0xBAC6 0x7E0B # 縋 -- 272,306
|
||||
0xBAC7 0x7E1E # 縞 -- 272,307
|
||||
0xBAC8 0x7E35 # 縵 -- 272,310
|
||||
0xBAC9 0x7E39 # 縹 -- 272,311
|
||||
0xBACA 0x7E5A # 繚 -- 272,312
|
||||
0xBACB 0x7E6F # 繯 -- 272,313
|
||||
0xBACC 0x7FF3 # 翳 -- 272,314
|
||||
0xBACD 0x8075 # 聵 -- 272,315
|
||||
0xBACE 0x80AB # 肫 -- 272,316
|
||||
0xBACF 0x81E0 # 臠 -- 272,317
|
||||
0xBAD0 0x8309 # 茉 -- 272,320
|
||||
0xBAD1 0x8317 # 茗 -- 272,321
|
||||
0xBAD2 0x83D6 # 菖 -- 272,322
|
||||
0xBAD3 0x83FD # 菽 -- 272,323
|
||||
0xBAD4 0x853B # 蔻 -- 272,324
|
||||
0xBAD5 0x85FF # 藿 -- 272,325
|
||||
0xBAD6 0x8693 # 蚓 -- 272,326
|
||||
0xBAD7 0x86AF # 蚯 -- 272,327
|
||||
0xBAD8 0x8703 # 蜃 -- 272,330
|
||||
0xBAD9 0x8737 # 蜷 -- 272,331
|
||||
0xBADA 0x874C # 蝌 -- 272,332
|
||||
0xBADB 0x88DF # 裟 -- 272,333
|
||||
0xBADC 0x8913 # 褓 -- 272,334
|
||||
0xBADD 0x890A # 褊 -- 272,335
|
||||
0xBADE 0x8941 # 襁 -- 272,336
|
||||
0xBADF 0x89A6 # 覦 -- 272,337
|
||||
0xBAE0 0x89AC # 覬 -- 272,340
|
||||
0xBAE1 0x89F4 # 觴 -- 272,341
|
||||
0xBAE2 0x8A6C # 詬 -- 272,342
|
||||
0xBAE3 0x8A9A # 誚 -- 272,343
|
||||
0xBAE4 0x8AA5 # 誥 -- 272,344
|
||||
0xBAE5 0x8AB9 # 誹 -- 272,345
|
||||
0xBAE6 0x8B14 # 謔 -- 272,346
|
||||
0xBAE7 0x8B2B # 謫 -- 272,347
|
||||
0xBAE8 0x8B33 # 謳 -- 272,350
|
||||
0xBAE9 0x8B3E # 謾 -- 272,351
|
||||
0xBAEA 0x8B6B # 譫 -- 272,352
|
||||
0xBAEB 0x8B96 # 讖 -- 272,353
|
||||
0xBAEC 0x8B9E # 讞 -- 272,354
|
||||
0xBAED 0x8C89 # 貉 -- 272,355
|
||||
0xBAEE 0x8CBA # 貺 -- 272,356
|
||||
0xBAEF 0x8DCE # 跎 -- 272,357
|
||||
0xBAF0 0x8E1E # 踞 -- 272,360
|
||||
0xBAF1 0x8E74 # 蹴 -- 272,361
|
||||
0xBAF2 0x8EFB # 軻 -- 272,362
|
||||
0xBAF3 0x8F64 # 轤 -- 272,363
|
||||
0xBAF4 0x8FE2 # 迢 -- 272,364
|
||||
0xBAF5 0x914A # 酊 -- 272,365
|
||||
0xBAF6 0x9162 # 酢 -- 272,366
|
||||
0xBAF7 0x9169 # 酩 -- 272,367
|
||||
0xBAF8 0x91AE # 醮 -- 272,370
|
||||
0xBAF9 0x9477 # 鑷 -- 272,371
|
||||
0xBAFA 0x95A1 # 閡 -- 272,372
|
||||
0xBAFB 0x965F # 陟 -- 272,373
|
||||
0xBAFC 0x9706 # 霆 -- 272,374
|
||||
0xBAFD 0x972A # 霪 -- 272,375
|
||||
0xBAFE 0x9955 # 饕 -- 272,376
|
||||
191
unicode/xerox/unihan/XCCS-273=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-273=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "273" UNIHAN
|
||||
|
||||
0xBB21 0x99D9 # 駙 -- 273,041
|
||||
0xBB22 0x9A16 # 騖 -- 273,042
|
||||
0xBB23 0x9AE6 # 髦 -- 273,043
|
||||
0xBB24 0x9B1F # 鬟 -- 273,044
|
||||
0xBB25 0x9B2E # 鬮 -- 273,045
|
||||
0xBB26 0x9B8E # 鮎 -- 273,046
|
||||
0xBB27 0x9BD6 # 鯖 -- 273,047
|
||||
0xBB28 0x9D23 # 鴣 -- 273,050
|
||||
0xBB29 0x9DD3 # 鷓 -- 273,051
|
||||
0xBB2A 0x9DD7 # 鷗 -- 273,052
|
||||
0xBB2B 0x9EE0 # 黠 -- 273,053
|
||||
0xBB2C 0x9EFF # 黿 -- 273,054
|
||||
0xBB2D 0x9F2C # 鼬 -- 273,055
|
||||
0xBB2E 0x5C79 # 屹 -- 273,056
|
||||
0xBB2F 0x8E81 # 躁 -- 273,057
|
||||
0xBB30 0x939A # 鎚 -- 273,060
|
||||
0xBB31 0x795A # 祚 -- 273,061
|
||||
0xBB32 0x6F23 # 漣 -- 273,062
|
||||
0xBB33 0x9B45 # 魅 -- 273,063
|
||||
0xBB34 0x9EDD # 黝 -- 273,064
|
||||
0xBB35 0x701A # 瀚 -- 273,065
|
||||
0xBB36 0x6ABB # 檻 -- 273,066
|
||||
0xBB37 0x8E1D # 踝 -- 273,067
|
||||
0xBB38 0x8052 # 聒 -- 273,070
|
||||
0xBB39 0x562E # 嘮 -- 273,071
|
||||
0xBB3A 0x8E31 # 踱 -- 273,072
|
||||
0xBB3B 0x6F09 # 漉 -- 273,073
|
||||
0xBB3C 0x61F5 # 懵 -- 273,074
|
||||
0xBB3D 0x672E # 朮 -- 273,075
|
||||
0xBB3E 0x6D82 # 涂 -- 273,076
|
||||
0xBB3F 0x5938 # 夸 -- 273,077
|
||||
0xBB40 0x6DEC # 淬 -- 273,100
|
||||
0xBB41 0x5CD2 # 峒 -- 273,101
|
||||
0xBB42 0x6D85 # 涅 -- 273,102
|
||||
0xBB43 0x7D07 # 紇 -- 273,103
|
||||
0xBB44 0x857E # 蕾 -- 273,104
|
||||
0xBB45 0x5096 # 傖 -- 273,105
|
||||
0xBB46 0x84C1 # 蓁 -- 273,106
|
||||
0xBB47 0x8823 # 蠣 -- 273,107
|
||||
0xBB48 0x876E # 蝮 -- 273,110
|
||||
0xBB49 0x6F2A # 漪 -- 273,111
|
||||
0xBB4A 0x7F4C # 罌 -- 273,112
|
||||
0xBB4B 0x58D9 # 壙 -- 273,113
|
||||
0xBB4C 0x56C0 # 囀 -- 273,114
|
||||
0xBB4D 0x9D12 # 鴒 -- 273,115
|
||||
0xBB4E 0x840B # 萋 -- 273,116
|
||||
0xBB4F 0x6F78 # 潸 -- 273,117
|
||||
0xBB50 0x9251 # 鉑 -- 273,120
|
||||
0xBB51 0x69C3 # 槃 -- 273,121
|
||||
0xBB52 0x9853 # 顓 -- 273,122
|
||||
0xBB53 0x9C3E # 鰾 -- 273,123
|
||||
0xBB54 0x6441 # 摁 -- 273,124
|
||||
0xBB55 0x7284 # 犄 -- 273,125
|
||||
0xBB56 0x55E4 # 嗤 -- 273,126
|
||||
0xBB57 0x852B # 蔫 -- 273,127
|
||||
0xBB58 0x7787 # 瞇 -- 273,130
|
||||
0xBB59 0x91BA # 醺 -- 273,131
|
||||
0xBB5A 0x5671 # 噱 -- 273,132
|
||||
0xBB5B 0x6DE6 # 淦 -- 273,133
|
||||
0xBB5C 0x76B0 # 皰 -- 273,134
|
||||
0xBB5D 0x9DBA # 鶺 -- 273,135
|
||||
0xBB5E 0x98AF # 颯 -- 273,136
|
||||
0xBB5F 0x67DE # 柞 -- 273,137
|
||||
0xBB60 0x658C # 斌 -- 273,140
|
||||
0xBB61 0x742E # 琮 -- 273,141
|
||||
0xBB62 0x663A # 昺 -- 273,142
|
||||
0xBB63 0x7098 # 炘 -- 273,143
|
||||
0xBB64 0x6AF8 # 櫸 -- 273,144
|
||||
0xBB65 0x5D06 # 崆 -- 273,145
|
||||
0xBB66 0x5536 # 唶 -- 273,146
|
||||
0xBB67 0x7131 # 焱 -- 273,147
|
||||
0xBB68 0x8DB5 # 趵 -- 273,150
|
||||
0xBB69 0x5A7C # 婼 -- 273,151
|
||||
0xBB6A 0x5662 # 噢 -- 273,152
|
||||
0xBB6B 0x96EF # 雯 -- 273,153
|
||||
0xBB6C 0x9370 # 鍰 -- 273,154
|
||||
0xBB6D 0x749F # 璟 -- 273,155
|
||||
0xBB6E 0x9BE7 # 鯧 -- 273,156
|
||||
0xBB6F 0x935A # 鍚 -- 273,157
|
||||
0xBB70 0x64AC # 撬 -- 273,160
|
||||
0xBB71 0x63F9 # 揹 -- 273,161
|
||||
0xBB72 0x9097 # 邗 -- 273,162
|
||||
0xBB73 0x74A0 # 璠 -- 273,163
|
||||
0xBB74 0x7652 # 癒 -- 273,164
|
||||
0xBB75 0x83EA # 菪 -- 273,165
|
||||
0xBB76 0x556A # 啪 -- 273,166
|
||||
0xBB77 0x55B5 # 喵 -- 273,167
|
||||
0xBB78 0x5519 # 唙 -- 273,170
|
||||
0xBB79 0x55E8 # 嗨 -- 273,171
|
||||
0xBB7A 0x5658 # 噘 -- 273,172
|
||||
0xBB7B 0x92A8 # 銨 -- 273,173
|
||||
0xBB7C 0x87F6 # 蟶 -- 273,174
|
||||
0xBB7D 0x6C81 # 沁 -- 273,175
|
||||
0xBB7E 0x6029 # 怩 -- 273,176
|
||||
0xBBA1 0x7F5F # 罟 -- 273,241
|
||||
0xBBA2 0x559F # 喟 -- 273,242
|
||||
0xBBA3 0x57A0 # 垠 -- 273,243
|
||||
0xBBA4 0x5476 # 呶 -- 273,244
|
||||
0xBBA5 0x6603 # 昃 -- 273,245
|
||||
0xBBA6 0x6339 # 挹 -- 273,246
|
||||
0xBBA7 0x5F64 # 彤 -- 273,247
|
||||
0xBBA8 0x577C # 坼 -- 273,250
|
||||
0xBBA9 0x59DD # 姝 -- 273,251
|
||||
0xBBAA 0x5DFD # 巽 -- 273,252
|
||||
0xBBAB 0x5556 # 啖 -- 273,253
|
||||
0xBBAC 0x5AFB # 嫻 -- 273,254
|
||||
0xBBAD 0x7A88 # 窈 -- 273,255
|
||||
0xBBAE 0x7C23 # 簣 -- 273,256
|
||||
0xBBAF 0x6137 # 愷 -- 273,257
|
||||
0xBBB0 0x61AC # 憬 -- 273,260
|
||||
0xBBB1 0x6595 # 斕 -- 273,261
|
||||
0xBBB2 0x84D1 # 蓑 -- 273,262
|
||||
0xBBB3 0x61A7 # 憧 -- 273,263
|
||||
0xBBB4 0x85CE # 藎 -- 273,264
|
||||
0xBBB5 0x6222 # 戢 -- 273,265
|
||||
0xBBB6 0x75CD # 痍 -- 273,266
|
||||
0xBBB7 0x61AE # 憮 -- 273,267
|
||||
0xBBB8 0x925E # 鉞 -- 273,270
|
||||
0xBBB9 0x93B0 # 鎰 -- 273,271
|
||||
0xBBBA 0x8328 # 茨 -- 273,272
|
||||
0xBBBB 0x90DC # 郜 -- 273,273
|
||||
0xBBBC 0x96CB # 雋 -- 273,274
|
||||
0xBBBD 0x59CD # 姍 -- 273,275
|
||||
0xBBBE 0x52F1 # 勱 -- 273,276
|
||||
0xBBBF 0x5F67 # 彧 -- 273,277
|
||||
0xBBC0 0x85EA # 藪 -- 273,300
|
||||
0xBBC1 0x75D9 # 痙 -- 273,301
|
||||
0xBBC2 0x7C1E # 簞 -- 273,302
|
||||
0xBBC3 0x5A40 # 婀 -- 273,303
|
||||
0xBBC4 0x74A9 # 璩 -- 273,304
|
||||
0xBBC5 0x67B4 # 枴 -- 273,305
|
||||
0xBBC6 0x7599 # 疙 -- 273,306
|
||||
0xBBC7 0x5E18 # 帘 -- 273,307
|
||||
0xBBC8 0x62BF # 抿 -- 273,310
|
||||
0xBBC9 0x7578 # 畸 -- 273,311
|
||||
0xBBCA 0x568E # 嚎 -- 273,312
|
||||
0xBBCB 0x7629 # 瘩 -- 273,313
|
||||
0xBBCC 0x6ADA # 櫚 -- 273,314
|
||||
0xBBCD 0x8568 # 蕨 -- 273,315
|
||||
0xBBCE 0x5482 # 咂 -- 273,316
|
||||
0xBBCF 0x55C6 # 嗆 -- 273,317
|
||||
0xBBD0 0x9296 # 銖 -- 273,320
|
||||
0xBBD1 0x6C10 # 氐 -- 273,321
|
||||
0xBBD2 0x59D2 # 姒 -- 273,322
|
||||
0xBBD3 0x64BE # 撾 -- 273,323
|
||||
0xBBD4 0x7579 # 畹 -- 273,324
|
||||
0xBBD5 0x6DD6 # 淖 -- 273,325
|
||||
0xBBD6 0x8386 # 莆 -- 273,326
|
||||
0xBBD7 0x6FAE # 澮 -- 273,327
|
||||
0xBBD8 0x7E11 # 縑 -- 273,330
|
||||
0xBBD9 0x8E91 # 躑 -- 273,331
|
||||
0xBBDA 0x8E85 # 躅 -- 273,332
|
||||
0xBBDB 0x9132 # 鄲 -- 273,333
|
||||
0xBBDC 0x73EE # 珮 -- 273,334
|
||||
0xBBDD 0x677C # 杼 -- 273,335
|
||||
0xBBDE 0x660A # 昊 -- 273,336
|
||||
0xBBDF 0x82DC # 苜 -- 273,337
|
||||
0xBBE0 0x5AB2 # 媲 -- 273,340
|
||||
0xBBE1 0x54BB # 咻 -- 273,341
|
||||
0xBBE2 0x9826 # 頦 -- 273,342
|
||||
0xBBE3 0x5665 # 噥 -- 273,343
|
||||
0xBBE4 0x756C # 畬 -- 273,344
|
||||
0xBBE5 0x8438 # 萸 -- 273,345
|
||||
0xBBE6 0x7613 # 瘓 -- 273,346
|
||||
0xBBE7 0x5AF5 # 嫵 -- 273,347
|
||||
0xBBE8 0x7B60 # 筠 -- 273,350
|
||||
0xBBE9 0x76CE # 盎 -- 273,351
|
||||
0xBBEA 0x84FF # 蓿 -- 273,352
|
||||
0xBBEB 0x7BAC # 箬 -- 273,353
|
||||
0xBBEC 0x5685 # 嚅 -- 273,354
|
||||
0xBBED 0x562C # 嘬 -- 273,355
|
||||
0xBBEE 0x7BC1 # 篁 -- 273,356
|
||||
0xBBEF 0x56C1 # 囁 -- 273,357
|
||||
0xBBF0 0x9D9A # 鶚 -- 273,360
|
||||
0xBBF1 0x5406 # 吆 -- 273,361
|
||||
0xBBF2 0x8DFA # 跺 -- 273,362
|
||||
0xBBF3 0x5555 # 啕 -- 273,363
|
||||
0xBBF4 0x5F46 # 彆 -- 273,364
|
||||
0xBBF5 0x8E6C # 蹬 -- 273,365
|
||||
0xBBF6 0x5659 # 噙 -- 273,366
|
||||
0xBBF7 0x5C37 # 尷 -- 273,367
|
||||
0xBBF8 0x5A9E # 媞 -- 273,370
|
||||
0xBBF9 0x5DB2 # 嶲 -- 273,371
|
||||
0xBBFA 0x4EE8 # 仨 -- 273,372
|
||||
0xBBFB 0x973E # 霾 -- 273,373
|
||||
0xBBFC 0x6CC3 # 泃 -- 273,374
|
||||
0xBBFD 0x5A96 # 媖 -- 273,375
|
||||
0xBBFE 0x7889 # 碉 -- 273,376
|
||||
191
unicode/xerox/unihan/XCCS-274=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-274=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "274" UNIHAN
|
||||
|
||||
0xBC21 0x6EF9 # 滹 -- 274,041
|
||||
0xBC22 0x6FB6 # 澶 -- 274,042
|
||||
0xBC23 0x8DD7 # 跗 -- 274,043
|
||||
0xBC24 0x6DDD # 淝 -- 274,044
|
||||
0xBC25 0x84CA # 蓊 -- 274,045
|
||||
0xBC26 0x705E # 灞 -- 274,046
|
||||
0xBC27 0x828E # 芎 -- 274,047
|
||||
0xBC28 0x7A79 # 穹 -- 274,050
|
||||
0xBC29 0x5777 # 坷 -- 274,051
|
||||
0xBC2A 0x4F97 # 侗 -- 274,052
|
||||
0xBC2B 0x73A2 # 玢 -- 274,053
|
||||
0xBC2C 0x5690 # 嚐 -- 274,054
|
||||
0xBC2D 0x62A8 # 抨 -- 274,055
|
||||
0xBC2E 0x82E3 # 苣 -- 274,056
|
||||
0xBC2F 0x9588 # 閈 -- 274,057
|
||||
0xBC30 0x73C8 # 珈 -- 274,060
|
||||
0xBC31 0x7967 # 祧 -- 274,061
|
||||
0xBC32 0x93DC # 鏜 -- 274,062
|
||||
0xBC33 0x59A3 # 妣 -- 274,063
|
||||
0xBC34 0x7FA2 # 羢 -- 274,064
|
||||
0xBC35 0x6523 # 攣 -- 274,065
|
||||
0xBC36 0x71C1 # 燁 -- 274,066
|
||||
0xBC37 0x665E # 晞 -- 274,067
|
||||
0xBC38 0x6C26 # 氦 -- 274,070
|
||||
0xBC39 0x6C2C # 氬 -- 274,071
|
||||
0xBC3A 0x719B # 熛 -- 274,072
|
||||
0xBC3B 0x779F # 瞟 -- 274,073
|
||||
0xBC3C 0x55E5 # 嗥 -- 274,074
|
||||
0xBC3D 0x6F8D # 澍 -- 274,075
|
||||
0xBC3E 0x6ECF # 滏 -- 274,076
|
||||
0xBC3F 0x7481 # 璁 -- 274,077
|
||||
0xBC40 0x93E8 # 鏨 -- 274,100
|
||||
0xBC41 0x9C63 # 鱣 -- 274,101
|
||||
0xBC42 0x82EF # 苯 -- 274,102
|
||||
0xBC43 0x7A1E # 稞 -- 274,103
|
||||
0xBC44 0x662B # 昫 -- 274,104
|
||||
0xBC45 0x7C91 # 粑 -- 274,105
|
||||
0xBC46 0x581D # 堝 -- 274,106
|
||||
0xBC47 0x509C # 傜 -- 274,107
|
||||
0xBC48 0x6EC6 # 滆 -- 274,110
|
||||
0xBC49 0x6E12 # 渒 -- 274,111
|
||||
0xBC4A 0x6EB3 # 溳 -- 274,112
|
||||
0xBC4B 0x6F55 # 潕 -- 274,113
|
||||
0xBC4C 0x7055 # 灕 -- 274,114
|
||||
0xBC4D 0x923D # 鈽 -- 274,115
|
||||
0xBC4E 0x9139 # 鄹 -- 274,116
|
||||
0xBC4F 0x6FC9 # 濉 -- 274,117
|
||||
0xBC50 0x7CCC # 糌 -- 274,120
|
||||
0xBC51 0x7C30 # 簰 -- 274,121
|
||||
0xBC52 0x77F8 # 矸 -- 274,122
|
||||
0xBC53 0x76EF # 盯 -- 274,123
|
||||
0xBC54 0x6C98 # 沘 -- 274,124
|
||||
0xBC55 0x73E6 # 珦 -- 274,125
|
||||
0xBC56 0x5562 # 啢 -- 274,126
|
||||
0xBC57 0x97EE # 韮 -- 274,127
|
||||
0xBC58 0x5692 # 嚒 -- 274,130
|
||||
0xBC59 0x8473 # 葳 -- 274,131
|
||||
0xBC5A 0x5472 # 呲 -- 274,132
|
||||
0xBC5B 0x5E65 # 幥 -- 274,133
|
||||
0xBC5C 0x6E63 # 湣 -- 274,134
|
||||
0xBC5D 0x9C3D # 鰽 -- 274,135
|
||||
0xBC5E 0x8E82 # 躂 -- 274,136
|
||||
0xBC5F 0x9F5C # 齜 -- 274,137
|
||||
0xBC60 0x9D6E # 鵮 -- 274,140
|
||||
0xBC61 0x4EDE # 仞 -- 274,141
|
||||
0xBC62 0x4F3B # 伻 -- 274,142
|
||||
0xBC63 0x4F5A # 佚 -- 274,143
|
||||
0xBC64 0x4F8F # 侏 -- 274,144
|
||||
0xBC65 0x4FD1 # 俑 -- 274,145
|
||||
0xBC66 0x5005 # 倅 -- 274,146
|
||||
0xBC67 0x501C # 倜 -- 274,147
|
||||
0xBC68 0x5025 # 倥 -- 274,150
|
||||
0xBC69 0x4FF5 # 俵 -- 274,151
|
||||
0xBC6A 0x509A # 傚 -- 274,152
|
||||
0xBC6B 0x50C2 # 僂 -- 274,153
|
||||
0xBC6C 0x51BD # 冽 -- 274,154
|
||||
0xBC6D 0x5233 # 刳 -- 274,155
|
||||
0xBC6E 0x5244 # 剄 -- 274,156
|
||||
0xBC6F 0x5249 # 剉 -- 274,157
|
||||
0xBC70 0x5257 # 剗 -- 274,160
|
||||
0xBC71 0x5274 # 剴 -- 274,161
|
||||
0xBC72 0x52AC # 劬 -- 274,162
|
||||
0xBC73 0x52E0 # 勠 -- 274,163
|
||||
0xBC74 0x530F # 匏 -- 274,164
|
||||
0xBC75 0x537A # 卺 -- 274,165
|
||||
0xBC76 0x539D # 厝 -- 274,166
|
||||
0xBC77 0x5A23 # 娣 -- 274,167
|
||||
0xBC78 0x5AA7 # 媧 -- 274,170
|
||||
0xBC79 0x5AB5 # 媵 -- 274,171
|
||||
0xBC7A 0x5B0B # 嬋 -- 274,172
|
||||
0xBC7B 0x5B08 # 嬈 -- 274,173
|
||||
0xBC7C 0x5B16 # 嬖 -- 274,174
|
||||
0xBC7D 0x5BE4 # 寤 -- 274,175
|
||||
0xBC7E 0x5BD8 # 寘 -- 274,176
|
||||
0xBCA1 0x5C3B # 尻 -- 274,241
|
||||
0xBCA2 0x555C # 啜 -- 274,242
|
||||
0xBCA3 0x5581 # 喁 -- 274,243
|
||||
0xBCA4 0x5599 # 喙 -- 274,244
|
||||
0xBCA5 0x55D4 # 嗔 -- 274,245
|
||||
0xBCA6 0x560F # 嘏 -- 274,246
|
||||
0xBCA7 0x5616 # 嘖 -- 274,247
|
||||
0xBCA8 0x5686 # 嚆 -- 274,250
|
||||
0xBCA9 0x56C8 # 囈 -- 274,251
|
||||
0xBCAA 0x56D3 # 囓 -- 274,252
|
||||
0xBCAB 0x56F9 # 囹 -- 274,253
|
||||
0xBCAC 0x5704 # 圄 -- 274,254
|
||||
0xBCAD 0x5709 # 圉 -- 274,255
|
||||
0xBCAE 0x57D2 # 埒 -- 274,256
|
||||
0xBCAF 0x580A # 堊 -- 274,257
|
||||
0xBCB0 0x5880 # 墀 -- 274,260
|
||||
0xBCB1 0x5C63 # 屣 -- 274,261
|
||||
0xBCB2 0x5D22 # 崢 -- 274,262
|
||||
0xBCB3 0x5D82 # 嶂 -- 274,263
|
||||
0xBCB4 0x5DCB # 巋 -- 274,264
|
||||
0xBCB5 0x5E14 # 帔 -- 274,265
|
||||
0xBCB6 0x5E40 # 幀 -- 274,266
|
||||
0xBCB7 0x5E44 # 幄 -- 274,267
|
||||
0xBCB8 0x5E6A # 幪 -- 274,270
|
||||
0xBCB9 0x5E8B # 庋 -- 274,271
|
||||
0xBCBA 0x5EA0 # 庠 -- 274,272
|
||||
0xBCBB 0x5EA5 # 庥 -- 274,273
|
||||
0xBCBC 0x5EDB # 廛 -- 274,274
|
||||
0xBCBD 0x5F89 # 徉 -- 274,275
|
||||
0xBCBE 0x5F9C # 徜 -- 274,276
|
||||
0xBCBF 0x5FA8 # 徨 -- 274,277
|
||||
0xBCC0 0x5FBC # 徼 -- 274,300
|
||||
0xBCC1 0x5FEE # 忮 -- 274,301
|
||||
0xBCC2 0x6026 # 怦 -- 274,302
|
||||
0xBCC3 0x602B # 怫 -- 274,303
|
||||
0xBCC4 0x6042 # 恂 -- 274,304
|
||||
0xBCC5 0x605A # 恚 -- 274,305
|
||||
0xBCC6 0x609B # 悛 -- 274,306
|
||||
0xBCC7 0x60C7 # 惇 -- 274,307
|
||||
0xBCC8 0x60C6 # 惆 -- 274,310
|
||||
0xBCC9 0x614D # 慍 -- 274,311
|
||||
0xBCCA 0x6134 # 愴 -- 274,312
|
||||
0xBCCB 0x614A # 慊 -- 274,313
|
||||
0xBCCC 0x615D # 慝 -- 274,314
|
||||
0xBCCD 0x6173 # 慳 -- 274,315
|
||||
0xBCCE 0x6175 # 慵 -- 274,316
|
||||
0xBCCF 0x61CC # 懌 -- 274,317
|
||||
0xBCD0 0x6229 # 戩 -- 274,320
|
||||
0xBCD1 0x6243 # 扃 -- 274,321
|
||||
0xBCD2 0x62F6 # 拶 -- 274,322
|
||||
0xBCD3 0x634D # 捍 -- 274,323
|
||||
0xBCD4 0x6434 # 搴 -- 274,324
|
||||
0xBCD5 0x64EF # 擯 -- 274,325
|
||||
0xBCD6 0x65C4 # 旄 -- 274,326
|
||||
0xBCD7 0x65C6 # 旆 -- 274,327
|
||||
0xBCD8 0x6634 # 昴 -- 274,330
|
||||
0xBCD9 0x6641 # 晁 -- 274,331
|
||||
0xBCDA 0x67B3 # 枳 -- 274,332
|
||||
0xBCDB 0x67B5 # 枵 -- 274,333
|
||||
0xBCDC 0x67D8 # 柘 -- 274,334
|
||||
0xBCDD 0x67DD # 柝 -- 274,335
|
||||
0xBCDE 0x684E # 桎 -- 274,336
|
||||
0xBCDF 0x6832 # 栲 -- 274,337
|
||||
0xBCE0 0x6954 # 楔 -- 274,340
|
||||
0xBCE1 0x6963 # 楣 -- 274,341
|
||||
0xBCE2 0x6A3A # 樺 -- 274,342
|
||||
0xBCE3 0x6AEA # 櫪 -- 274,343
|
||||
0xBCE4 0x6B37 # 欷 -- 274,344
|
||||
0xBCE5 0x6B46 # 歆 -- 274,345
|
||||
0xBCE6 0x6B54 # 歔 -- 274,346
|
||||
0xBCE7 0x6B82 # 殂 -- 274,347
|
||||
0xBCE8 0x6B8D # 殍 -- 274,350
|
||||
0xBCE9 0x6B9B # 殛 -- 274,351
|
||||
0xBCEA 0x6BAB # 殫 -- 274,352
|
||||
0xBCEB 0x6C24 # 氤 -- 274,353
|
||||
0xBCEC 0x6C33 # 氳 -- 274,354
|
||||
0xBCED 0x6C93 # 沓 -- 274,355
|
||||
0xBCEE 0x6CD3 # 泓 -- 274,356
|
||||
0xBCEF 0x6CEE # 泮 -- 274,357
|
||||
0xBCF0 0x6D19 # 洙 -- 274,360
|
||||
0xBCF1 0x6D0A # 洊 -- 274,361
|
||||
0xBCF2 0x6D33 # 洳 -- 274,362
|
||||
0xBCF3 0x6E4E # 湎 -- 274,363
|
||||
0xBCF4 0x7027 # 瀧 -- 274,364
|
||||
0xBCF5 0x71F9 # 燹 -- 274,365
|
||||
0xBCF6 0x72C3 # 狃 -- 274,366
|
||||
0xBCF7 0x7317 # 猗 -- 274,367
|
||||
0xBCF8 0x7350 # 獐 -- 274,370
|
||||
0xBCF9 0x73B7 # 玷 -- 274,371
|
||||
0xBCFA 0x73C2 # 珂 -- 274,372
|
||||
0xBCFB 0x74A3 # 璣 -- 274,373
|
||||
0xBCFC 0x74DE # 瓞 -- 274,374
|
||||
0xBCFD 0x7688 # 皈 -- 274,375
|
||||
0xBCFE 0x7747 # 睇 -- 274,376
|
||||
191
unicode/xerox/unihan/XCCS-275=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-275=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "275" UNIHAN
|
||||
|
||||
0xBD21 0x7768 # 睨 -- 275,041
|
||||
0xBD22 0x7765 # 睥 -- 275,042
|
||||
0xBD23 0x778B # 瞋 -- 275,043
|
||||
0xBD24 0x77CD # 矍 -- 275,044
|
||||
0xBD25 0x77E7 # 矧 -- 275,045
|
||||
0xBD26 0x78D0 # 磐 -- 275,046
|
||||
0xBD27 0x792A # 礪 -- 275,047
|
||||
0xBD28 0x7953 # 祓 -- 275,050
|
||||
0xBD29 0x795C # 祜 -- 275,051
|
||||
0xBD2A 0x798A # 禊 -- 275,052
|
||||
0xBD2B 0x79B0 # 禰 -- 275,053
|
||||
0xBD2C 0x79B3 # 禳 -- 275,054
|
||||
0xBD2D 0x7A70 # 穰 -- 275,055
|
||||
0xBD2E 0x7AB3 # 窳 -- 275,056
|
||||
0xBD2F 0x7AB6 # 窶 -- 275,057
|
||||
0xBD30 0x7B0F # 笏 -- 275,060
|
||||
0xBD31 0x7B1E # 笞 -- 275,061
|
||||
0xBD32 0x7B25 # 笥 -- 275,062
|
||||
0xBD33 0x7B4C # 筌 -- 275,063
|
||||
0xBD34 0x7B04 # 笄 -- 275,064
|
||||
0xBD35 0x7B51 # 筑 -- 275,065
|
||||
0xBD36 0x7B6E # 筮 -- 275,066
|
||||
0xBD37 0x7CB2 # 粲 -- 275,067
|
||||
0xBD38 0x7D3A # 紺 -- 275,070
|
||||
0xBD39 0x7D4F # 絏 -- 275,071
|
||||
0xBD3A 0x7D5C # 絜 -- 275,072
|
||||
0xBD3B 0x7D86 # 綆 -- 275,073
|
||||
0xBD3C 0x7DA3 # 綣 -- 275,074
|
||||
0xBD3D 0x7DAE # 綮 -- 275,075
|
||||
0xBD3E 0x7DC7 # 緇 -- 275,076
|
||||
0xBD3F 0x7E1F # 縟 -- 275,077
|
||||
0xBD40 0x7E47 # 繇 -- 275,100
|
||||
0xBD41 0x7E3B # 縻 -- 275,101
|
||||
0xBD42 0x7E32 # 縲 -- 275,102
|
||||
0xBD43 0x7E93 # 纓 -- 275,103
|
||||
0xBD44 0x7E98 # 纘 -- 275,104
|
||||
0xBD45 0x7FEE # 翮 -- 275,105
|
||||
0xBD46 0x8004 # 耄 -- 275,106
|
||||
0xBD47 0x8028 # 耨 -- 275,107
|
||||
0xBD48 0x80DD # 胝 -- 275,110
|
||||
0xBD49 0x80EF # 胯 -- 275,111
|
||||
0xBD4A 0x8182 # 膂 -- 275,112
|
||||
0xBD4B 0x81BE # 膾 -- 275,113
|
||||
0xBD4C 0x8210 # 舐 -- 275,114
|
||||
0xBD4D 0x8237 # 舷 -- 275,115
|
||||
0xBD4E 0x8238 # 舸 -- 275,116
|
||||
0xBD4F 0x829F # 芟 -- 275,117
|
||||
0xBD50 0x82EB # 苫 -- 275,120
|
||||
0xBD51 0x831C # 茜 -- 275,121
|
||||
0xBD52 0x8343 # 荃 -- 275,122
|
||||
0xBD53 0x837B # 荻 -- 275,123
|
||||
0xBD54 0x8469 # 葩 -- 275,124
|
||||
0xBD55 0x84AF # 蒯 -- 275,125
|
||||
0xBD56 0x84D0 # 蓐 -- 275,126
|
||||
0xBD57 0x84F0 # 蓰 -- 275,127
|
||||
0xBD58 0x84FC # 蓼 -- 275,130
|
||||
0xBD59 0x851E # 蔞 -- 275,131
|
||||
0xBD5A 0x8588 # 薈 -- 275,132
|
||||
0xBD5B 0x8599 # 薙 -- 275,133
|
||||
0xBD5C 0x85A8 # 薨 -- 275,134
|
||||
0xBD5D 0x85A4 # 薤 -- 275,135
|
||||
0xBD5E 0x85DC # 藜 -- 275,136
|
||||
0xBD5F 0x86A8 # 蚨 -- 275,137
|
||||
0xBD60 0x868B # 蚋 -- 275,140
|
||||
0xBD61 0x887F # 衿 -- 275,141
|
||||
0xBD62 0x88AA # 袪 -- 275,142
|
||||
0xBD63 0x88CA # 裊 -- 275,143
|
||||
0xBD64 0x88FE # 裾 -- 275,144
|
||||
0xBD65 0x89BF # 覿 -- 275,145
|
||||
0xBD66 0x89D6 # 觖 -- 275,146
|
||||
0xBD67 0x89DA # 觚 -- 275,147
|
||||
0xBD68 0x89E5 # 觥 -- 275,150
|
||||
0xBD69 0x89EB # 觫 -- 275,151
|
||||
0xBD6A 0x89F3 # 觳 -- 275,152
|
||||
0xBD6B 0x8A36 # 訶 -- 275,153
|
||||
0xBD6C 0x8A3E # 訾 -- 275,154
|
||||
0xBD6D 0x8A41 # 詁 -- 275,155
|
||||
0xBD6E 0x8A5B # 詛 -- 275,156
|
||||
0xBD6F 0x8A6E # 詮 -- 275,157
|
||||
0xBD70 0x8ACD # 諍 -- 275,160
|
||||
0xBD71 0x8ACF # 諏 -- 275,161
|
||||
0xBD72 0x8AE4 # 諤 -- 275,162
|
||||
0xBD73 0x8ADE # 諞 -- 275,163
|
||||
0xBD74 0x8B56 # 譖 -- 275,164
|
||||
0xBD75 0x8C85 # 貅 -- 275,165
|
||||
0xBD76 0x8C94 # 貔 -- 275,166
|
||||
0xBD77 0x8CC1 # 賁 -- 275,167
|
||||
0xBD78 0x8CD9 # 賙 -- 275,170
|
||||
0xBD79 0x8D14 # 贔 -- 275,171
|
||||
0xBD7A 0x8D73 # 赳 -- 275,172
|
||||
0xBD7B 0x8DE3 # 跣 -- 275,173
|
||||
0xBD7C 0x8DEB # 跫 -- 275,174
|
||||
0xBD7D 0x8DEC # 跬 -- 275,175
|
||||
0xBD7E 0x8E09 # 踉 -- 275,176
|
||||
0xBDA1 0x8E47 # 蹇 -- 275,241
|
||||
0xBDA2 0x8E4A # 蹊 -- 275,242
|
||||
0xBDA3 0x8E93 # 躓 -- 275,243
|
||||
0xBDA4 0x8EDB # 軛 -- 275,244
|
||||
0xBDA5 0x8EFE # 軾 -- 275,245
|
||||
0xBDA6 0x8F05 # 輅 -- 275,246
|
||||
0xBDA7 0x8F26 # 輦 -- 275,247
|
||||
0xBDA8 0x8F33 # 輳 -- 275,250
|
||||
0xBDA9 0x8F36 # 輶 -- 275,251
|
||||
0xBDAA 0x8F42 # 轂 -- 275,252
|
||||
0xBDAB 0x8FE4 # 迤 -- 275,253
|
||||
0xBDAC 0x9005 # 逅 -- 275,254
|
||||
0xBDAD 0x900B # 逋 -- 275,255
|
||||
0xBDAE 0x9021 # 逡 -- 275,256
|
||||
0xBDAF 0x9058 # 遘 -- 275,257
|
||||
0xBDB0 0x9090 # 邐 -- 275,260
|
||||
0xBDB1 0x918D # 醍 -- 275,261
|
||||
0xBDB2 0x9190 # 醐 -- 275,262
|
||||
0xBDB3 0x91B4 # 醴 -- 275,263
|
||||
0xBDB4 0x91E6 # 釦 -- 275,264
|
||||
0xBDB5 0x923F # 鈿 -- 275,265
|
||||
0xBDB6 0x9266 # 鉦 -- 275,266
|
||||
0xBDB7 0x92E9 # 鋩 -- 275,267
|
||||
0xBDB8 0x93A7 # 鎧 -- 275,270
|
||||
0xBDB9 0x93D8 # 鏘 -- 275,271
|
||||
0xBDBA 0x944A # 鑊 -- 275,272
|
||||
0xBDBB 0x9460 # 鑠 -- 275,273
|
||||
0xBDBC 0x95AB # 閫 -- 275,274
|
||||
0xBDBD 0x95DE # 闞 -- 275,275
|
||||
0xBDBE 0x9708 # 霈 -- 275,276
|
||||
0xBDBF 0x970F # 霏 -- 275,277
|
||||
0xBDC0 0x9730 # 霰 -- 275,300
|
||||
0xBDC1 0x97AB # 鞫 -- 275,301
|
||||
0xBDC2 0x97DE # 韞 -- 275,302
|
||||
0xBDC3 0x98EB # 飫 -- 275,303
|
||||
0xBDC4 0x9949 # 饉 -- 275,304
|
||||
0xBDC5 0x9997 # 馗 -- 275,305
|
||||
0xBDC6 0x99DF # 駟 -- 275,306
|
||||
0xBDC7 0x9B23 # 鬣 -- 275,307
|
||||
0xBDC8 0x9B29 # 鬩 -- 275,310
|
||||
0xBDC9 0x9B3B # 鬻 -- 275,311
|
||||
0xBDCA 0x9B43 # 魃 -- 275,312
|
||||
0xBDCB 0x9B48 # 魈 -- 275,313
|
||||
0xBDCC 0x9B4D # 魍 -- 275,314
|
||||
0xBDCD 0x9B51 # 魑 -- 275,315
|
||||
0xBDCE 0x9BC1 # 鯁 -- 275,316
|
||||
0xBDCF 0x9D60 # 鵠 -- 275,317
|
||||
0xBDD0 0x9EE5 # 黥 -- 275,320
|
||||
0xBDD1 0x9F4E # 齎 -- 275,321
|
||||
0xBDD2 0x4EC3 # 仃 -- 275,322
|
||||
0xBDD3 0x6420 # 搠 -- 275,323
|
||||
0xBDD4 0x6A17 # 樗 -- 275,324
|
||||
0xBDD5 0x727E # 牾 -- 275,325
|
||||
0xBDD6 0x80AD # 肭 -- 275,326
|
||||
0xBDD7 0x86E9 # 蛩 -- 275,327
|
||||
0xBDD8 0x8998 # 覘 -- 275,330
|
||||
0xBDD9 0x4EB9 # 亹 -- 275,331
|
||||
0xBDDA 0x4EC2 # 仂 -- 275,332
|
||||
0xBDDB 0x4F0E # 伎 -- 275,333
|
||||
0xBDDC 0x4F7C # 佼 -- 275,334
|
||||
0xBDDD 0x4F3E # 伾 -- 275,335
|
||||
0xBDDE 0x4FF6 # 俶 -- 275,336
|
||||
0xBDDF 0x502C # 倬 -- 275,337
|
||||
0xBDE0 0x5048 # 偈 -- 275,340
|
||||
0xBDE1 0x50E6 # 僦 -- 275,341
|
||||
0xBDE2 0x5260 # 剠 -- 275,342
|
||||
0xBDE3 0x527D # 剽 -- 275,343
|
||||
0xBDE4 0x5282 # 劂 -- 275,344
|
||||
0xBDE5 0x5293 # 劓 -- 275,345
|
||||
0xBDE6 0x65B8 # 斸 -- 275,346
|
||||
0xBDE7 0x52E3 # 勣 -- 275,347
|
||||
0xBDE8 0x5396 # 厖 -- 275,350
|
||||
0xBDE9 0x5399 # 厙 -- 275,351
|
||||
0xBDEA 0x53E1 # 叡 -- 275,352
|
||||
0xBDEB 0x85C9 # 藉 -- 275,353
|
||||
0xBDEC 0x8986 # 覆 -- 275,354
|
||||
0xBDED 0x5AC4 # 嫄 -- 275,355
|
||||
0xBDEE 0x5B00 # 嬀 -- 275,356
|
||||
0xBDEF 0x5B19 # 嬙 -- 275,357
|
||||
0xBDF0 0x5B32 # 嬲 -- 275,360
|
||||
0xBDF1 0x5B5B # 孛 -- 275,361
|
||||
0xBDF2 0x5B7F # 孿 -- 275,362
|
||||
0xBDF3 0x5B84 # 宄 -- 275,363
|
||||
0xBDF4 0x5B93 # 宓 -- 275,364
|
||||
0xBDF5 0x5C28 # 尨 -- 275,365
|
||||
0xBDF6 0x8A10 # 訐 -- 275,366
|
||||
0xBDF7 0x54E2 # 哢 -- 275,367
|
||||
0xBDF8 0x5586 # 喆 -- 275,370
|
||||
0xBDF9 0x55D2 # 嗒 -- 275,371
|
||||
0xBDFA 0x5605 # 嘅 -- 275,372
|
||||
0xBDFB 0x5642 # 噂 -- 275,373
|
||||
0xBDFC 0x5638 # 嘸 -- 275,374
|
||||
0xBDFD 0x5672 # 噲 -- 275,375
|
||||
0xBDFE 0x566D # 噭 -- 275,376
|
||||
191
unicode/xerox/unihan/XCCS-276=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-276=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "276" UNIHAN
|
||||
|
||||
0xBE21 0x568F # 嚏 -- 276,041
|
||||
0xBE22 0x570A # 圊 -- 276,042
|
||||
0xBE23 0x571B # 圛 -- 276,043
|
||||
0xBE24 0x573B # 圻 -- 276,044
|
||||
0xBE25 0x57F4 # 埴 -- 276,045
|
||||
0xBE26 0x57F5 # 埵 -- 276,046
|
||||
0xBE27 0x5797 # 垗 -- 276,047
|
||||
0xBE28 0x5879 # 塹 -- 276,050
|
||||
0xBE29 0x587F # 塿 -- 276,051
|
||||
0xBE2A 0x58BA # 墺 -- 276,052
|
||||
0xBE2B 0x58CE # 壎 -- 276,053
|
||||
0xBE2C 0x58DA # 壚 -- 276,054
|
||||
0xBE2D 0x8759 # 蝙 -- 276,055
|
||||
0xBE2E 0x5981 # 妁 -- 276,056
|
||||
0xBE2F 0x5C7A # 屺 -- 276,057
|
||||
0xBE30 0x5DA2 # 嶢 -- 276,060
|
||||
0xBE31 0x5DAE # 嶮 -- 276,061
|
||||
0xBE32 0x5E28 # 帨 -- 276,062
|
||||
0xBE33 0x5ECB # 廋 -- 276,063
|
||||
0xBE34 0x5EE1 # 廡 -- 276,064
|
||||
0xBE35 0x5F08 # 弈 -- 276,065
|
||||
0xBE36 0x601B # 怛 -- 276,066
|
||||
0xBE37 0x6049 # 恉 -- 276,067
|
||||
0xBE38 0x6081 # 悁 -- 276,070
|
||||
0xBE39 0x60DD # 惝 -- 276,071
|
||||
0xBE3A 0x6142 # 慂 -- 276,072
|
||||
0xBE3B 0x6165 # 慥 -- 276,073
|
||||
0xBE3C 0x617C # 慼 -- 276,074
|
||||
0xBE3D 0x619D # 憝 -- 276,075
|
||||
0xBE3E 0x61C6 # 懆 -- 276,076
|
||||
0xBE3F 0x63AE # 掮 -- 276,077
|
||||
0xBE40 0x6426 # 搦 -- 276,100
|
||||
0xBE41 0x6425 # 搥 -- 276,101
|
||||
0xBE42 0x6516 # 攖 -- 276,102
|
||||
0xBE43 0x6581 # 斁 -- 276,103
|
||||
0xBE44 0x65D2 # 旒 -- 276,104
|
||||
0xBE45 0x65DB # 旛 -- 276,105
|
||||
0xBE46 0x65DD # 旝 -- 276,106
|
||||
0xBE47 0x66D6 # 曖 -- 276,107
|
||||
0xBE48 0x674C # 杌 -- 276,110
|
||||
0xBE49 0x4F70 # 佰 -- 276,111
|
||||
0xBE4A 0x6829 # 栩 -- 276,112
|
||||
0xBE4B 0x6874 # 桴 -- 276,113
|
||||
0xBE4C 0x68F0 # 棰 -- 276,114
|
||||
0xBE4D 0x69CE # 槎 -- 276,115
|
||||
0xBE4E 0x6A48 # 橈 -- 276,116
|
||||
0xBE4F 0x6AAE # 檮 -- 276,117
|
||||
0xBE50 0x6ADC # 櫜 -- 276,120
|
||||
0xBE51 0x6A64 # 橤 -- 276,121
|
||||
0xBE52 0x6BF3 # 毳 -- 276,122
|
||||
0xBE53 0x6C9A # 沚 -- 276,123
|
||||
0xBE54 0x6CB4 # 沴 -- 276,124
|
||||
0xBE55 0x6D38 # 洸 -- 276,125
|
||||
0xBE56 0x6E5C # 湜 -- 276,126
|
||||
0xBE57 0x6F8C # 澌 -- 276,127
|
||||
0xBE58 0x6FA3 # 澣 -- 276,130
|
||||
0xBE59 0x6FB9 # 澹 -- 276,131
|
||||
0xBE5A 0x7005 # 瀅 -- 276,132
|
||||
0xBE5B 0x7032 # 瀲 -- 276,133
|
||||
0xBE5C 0x705D # 灝 -- 276,134
|
||||
0xBE5D 0x73FA # 珺 -- 276,135
|
||||
0xBE5E 0x736A # 獪 -- 276,136
|
||||
0xBE5F 0x7487 # 璇 -- 276,137
|
||||
0xBE60 0x7503 # 甃 -- 276,140
|
||||
0xBE61 0x750D # 甍 -- 276,141
|
||||
0xBE62 0x7665 # 癥 -- 276,142
|
||||
0xBE63 0x769A # 皚 -- 276,143
|
||||
0xBE64 0x7708 # 眈 -- 276,144
|
||||
0xBE65 0x7722 # 眢 -- 276,145
|
||||
0xBE66 0x7725 # 眥 -- 276,146
|
||||
0xBE67 0x775E # 睞 -- 276,147
|
||||
0xBE68 0x7762 # 睢 -- 276,150
|
||||
0xBE69 0x776A # 睪 -- 276,151
|
||||
0xBE6A 0x77A2 # 瞢 -- 276,152
|
||||
0xBE6B 0x7994 # 禔 -- 276,153
|
||||
0xBE6C 0x79A8 # 禨 -- 276,154
|
||||
0xBE6D 0x7A02 # 稂 -- 276,155
|
||||
0xBE6E 0x7A19 # 稙 -- 276,156
|
||||
0xBE6F 0x7A49 # 穉 -- 276,157
|
||||
0xBE70 0x7AE6 # 竦 -- 276,160
|
||||
0xBE71 0x7C1F # 簟 -- 276,161
|
||||
0xBE72 0x7C40 # 籀 -- 276,162
|
||||
0xBE73 0x7CCE # 糎 -- 276,163
|
||||
0xBE74 0x7D32 # 紲 -- 276,164
|
||||
0xBE75 0x7D7A # 絺 -- 276,165
|
||||
0xBE76 0x7D88 # 綈 -- 276,166
|
||||
0xBE77 0x7E44 # 繄 -- 276,167
|
||||
0xBE78 0x7F6B # 罫 -- 276,170
|
||||
0xBE79 0x7FD5 # 翕 -- 276,171
|
||||
0xBE7A 0x7FFD # 翽 -- 276,172
|
||||
0xBE7B 0x800B # 耋 -- 276,173
|
||||
0xBE7C 0x8107 # 脇 -- 276,174
|
||||
0xBE7D 0x8146 # 腆 -- 276,175
|
||||
0xBE7E 0x8234 # 舴 -- 276,176
|
||||
0xBEA1 0x82A1 # 芡 -- 276,241
|
||||
0xBEA2 0x83C0 # 菀 -- 276,242
|
||||
0xBEA3 0x854E # 蕎 -- 276,243
|
||||
0xBEA4 0x874E # 蝎 -- 276,244
|
||||
0xBEA5 0x880B # 蠋 -- 276,245
|
||||
0xBEA6 0x8897 # 袗 -- 276,246
|
||||
0xBEA7 0x88EF # 裯 -- 276,247
|
||||
0xBEA8 0x8930 # 褰 -- 276,250
|
||||
0xBEA9 0x895E # 襞 -- 276,251
|
||||
0xBEAA 0x8A12 # 訒 -- 276,252
|
||||
0xBEAB 0x8B1A # 謚 -- 276,253
|
||||
0xBEAC 0x8AF6 # 諶 -- 276,254
|
||||
0xBEAD 0x8B26 # 謦 -- 276,255
|
||||
0xBEAE 0x8CDA # 賚 -- 276,256
|
||||
0xBEAF 0x6EC7 # 滇 -- 276,257
|
||||
0xBEB0 0x8E50 # 蹐 -- 276,260
|
||||
0xBEB1 0x9085 # 邅 -- 276,261
|
||||
0xBEB2 0x90B4 # 邴 -- 276,262
|
||||
0xBEB3 0x9321 # 錡 -- 276,263
|
||||
0xBEB4 0x9419 # 鐙 -- 276,264
|
||||
0xBEB5 0x9436 # 鐶 -- 276,265
|
||||
0xBEB6 0x5FB5 # 徵 -- 276,266
|
||||
0xBEB7 0x9654 # 陔 -- 276,267
|
||||
0xBEB8 0x9688 # 隈 -- 276,270
|
||||
0xBEB9 0x9697 # 隗 -- 276,271
|
||||
0xBEBA 0x96F0 # 雰 -- 276,272
|
||||
0xBEBB 0x9746 # 靆 -- 276,273
|
||||
0xBEBC 0x9749 # 靉 -- 276,274
|
||||
0xBEBD 0x99F8 # 駸 -- 276,275
|
||||
0xBEBE 0x9A42 # 驂 -- 276,276
|
||||
0xBEBF 0x9A40 # 驀 -- 276,277
|
||||
0xBEC0 0x9A69 # 驩 -- 276,300
|
||||
0xBEC1 0x9AD1 # 髑 -- 276,301
|
||||
0xBEC2 0x9AF9 # 髹 -- 276,302
|
||||
0xBEC3 0x9B92 # 鮒 -- 276,303
|
||||
0xBEC4 0x9BAB # 鮫 -- 276,304
|
||||
0xBEC5 0x9C3B # 鰻 -- 276,305
|
||||
0xBEC6 0x9DF2 # 鷲 -- 276,306
|
||||
0xBEC7 0x9E83 # 麃 -- 276,307
|
||||
0xBEC8 0x9E88 # 麈 -- 276,310
|
||||
0xBEC9 0x9F72 # 齲 -- 276,311
|
||||
0xBECA 0x504C # 偌 -- 276,312
|
||||
0xBECB 0x5108 # 儈 -- 276,313
|
||||
0xBECC 0x51DF # 凟 -- 276,314
|
||||
0xBECD 0x526E # 剮 -- 276,315
|
||||
0xBECE 0x5A09 # 娉 -- 276,316
|
||||
0xBECF 0x5A77 # 婷 -- 276,317
|
||||
0xBED0 0x5B4C # 孌 -- 276,320
|
||||
0xBED1 0x5B73 # 孳 -- 276,321
|
||||
0xBED2 0x5BF0 # 寰 -- 276,322
|
||||
0xBED3 0x53F5 # 叵 -- 276,323
|
||||
0xBED4 0x54C2 # 哂 -- 276,324
|
||||
0xBED5 0x54C6 # 哆 -- 276,325
|
||||
0xBED6 0x55DF # 嗟 -- 276,326
|
||||
0xBED7 0x56EB # 囫 -- 276,327
|
||||
0xBED8 0x5707 # 圇 -- 276,330
|
||||
0xBED9 0x62D7 # 拗 -- 276,331
|
||||
0xBEDA 0x579B # 垛 -- 276,332
|
||||
0xBEDB 0x584D # 塍 -- 276,333
|
||||
0xBEDC 0x58A9 # 墩 -- 276,334
|
||||
0xBEDD 0x5D3D # 崽 -- 276,335
|
||||
0xBEDE 0x5D4B # 嵋 -- 276,336
|
||||
0xBEDF 0x5E54 # 幔 -- 276,337
|
||||
0xBEE0 0x5ED5 # 廕 -- 276,340
|
||||
0xBEE1 0x5FAD # 徭 -- 276,341
|
||||
0xBEE2 0x600D # 怍 -- 276,342
|
||||
0xBEE3 0x6035 # 怵 -- 276,343
|
||||
0xBEE4 0x60F4 # 惴 -- 276,344
|
||||
0xBEE5 0x6192 # 憒 -- 276,345
|
||||
0xBEE6 0x6207 # 戇 -- 276,346
|
||||
0xBEE7 0x6225 # 戥 -- 276,347
|
||||
0xBEE8 0x6286 # 抆 -- 276,350
|
||||
0xBEE9 0x62C4 # 拄 -- 276,351
|
||||
0xBEEA 0x634B # 捋 -- 276,352
|
||||
0xBEEB 0x634E # 捎 -- 276,353
|
||||
0xBEEC 0x6382 # 掂 -- 276,354
|
||||
0xBEED 0x6522 # 攢 -- 276,355
|
||||
0xBEEE 0x66B1 # 暱 -- 276,356
|
||||
0xBEEF 0x6748 # 杈 -- 276,357
|
||||
0xBEF0 0x67C1 # 柁 -- 276,360
|
||||
0xBEF1 0x6A5B # 橛 -- 276,361
|
||||
0xBEF2 0x6A28 # 樨 -- 276,362
|
||||
0xBEF3 0x6AFA # 櫺 -- 276,363
|
||||
0xBEF4 0x6BBD # 殽 -- 276,364
|
||||
0xBEF5 0x6CD4 # 泔 -- 276,365
|
||||
0xBEF6 0x6CEF # 泯 -- 276,366
|
||||
0xBEF7 0x6E98 # 溘 -- 276,367
|
||||
0xBEF8 0x7078 # 灸 -- 276,370
|
||||
0xBEF9 0x733A # 猺 -- 276,371
|
||||
0xBEFA 0x75A3 # 疣 -- 276,372
|
||||
0xBEFB 0x75BF # 疿 -- 276,373
|
||||
0xBEFC 0x7643 # 癃 -- 276,374
|
||||
0xBEFD 0x76B4 # 皴 -- 276,375
|
||||
0xBEFE 0x77BD # 瞽 -- 276,376
|
||||
191
unicode/xerox/unihan/XCCS-277=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-277=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "277" UNIHAN
|
||||
|
||||
0xBF21 0x7A61 # 穡 -- 277,041
|
||||
0xBF22 0x7B0A # 笊 -- 277,042
|
||||
0xBF23 0x7CF2 # 糲 -- 277,043
|
||||
0xBF24 0x7D08 # 紈 -- 277,044
|
||||
0xBF25 0x7D3C # 紼 -- 277,045
|
||||
0xBF26 0x7DF2 # 緲 -- 277,046
|
||||
0xBF27 0x7F61 # 罡 -- 277,047
|
||||
0xBF28 0x7F63 # 罣 -- 277,050
|
||||
0xBF29 0x7F7E # 罾 -- 277,051
|
||||
0xBF2A 0x7FF1 # 翱 -- 277,052
|
||||
0xBF2B 0x814C # 腌 -- 277,053
|
||||
0xBF2C 0x81EC # 臬 -- 277,054
|
||||
0xBF2D 0x82A9 # 芩 -- 277,055
|
||||
0xBF2E 0x82AA # 芪 -- 277,056
|
||||
0xBF2F 0x82B7 # 芷 -- 277,057
|
||||
0xBF30 0x82AF # 芯 -- 277,060
|
||||
0xBF31 0x82F4 # 苴 -- 277,061
|
||||
0xBF32 0x832F # 茯 -- 277,062
|
||||
0xBF33 0x8334 # 茴 -- 277,063
|
||||
0xBF34 0x8406 # 萆 -- 277,064
|
||||
0xBF35 0x843C # 萼 -- 277,065
|
||||
0xBF36 0x845A # 葚 -- 277,066
|
||||
0xBF37 0x858F # 薏 -- 277,067
|
||||
0xBF38 0x86B0 # 蚰 -- 277,070
|
||||
0xBF39 0x86C9 # 蛉 -- 277,071
|
||||
0xBF3A 0x86ED # 蛭 -- 277,072
|
||||
0xBF3B 0x86D0 # 蛐 -- 277,073
|
||||
0xBF3C 0x8707 # 蜇 -- 277,074
|
||||
0xBF3D 0x8706 # 蜆 -- 277,075
|
||||
0xBF3E 0x87CA # 蟊 -- 277,076
|
||||
0xBF3F 0x87E3 # 蟣 -- 277,077
|
||||
0xBF40 0x87EE # 蟮 -- 277,100
|
||||
0xBF41 0x8821 # 蠡 -- 277,101
|
||||
0xBF42 0x8869 # 衩 -- 277,102
|
||||
0xBF43 0x8872 # 衲 -- 277,103
|
||||
0xBF44 0x8919 # 褙 -- 277,104
|
||||
0xBF45 0x8926 # 褦 -- 277,105
|
||||
0xBF46 0x8921 # 褡 -- 277,106
|
||||
0xBF47 0x8933 # 褳 -- 277,107
|
||||
0xBF48 0x8A84 # 誄 -- 277,110
|
||||
0xBF49 0x8B54 # 譔 -- 277,111
|
||||
0xBF4A 0x8C9B # 貛 -- 277,112
|
||||
0xBF4B 0x8D04 # 贄 -- 277,113
|
||||
0xBF4C 0x8DE4 # 跤 -- 277,114
|
||||
0xBF4D 0x8E69 # 蹩 -- 277,115
|
||||
0xBF4E 0x8E6D # 蹭 -- 277,116
|
||||
0xBF4F 0x8E90 # 躐 -- 277,117
|
||||
0xBF50 0x91B5 # 醵 -- 277,120
|
||||
0xBF51 0x93F9 # 鏹 -- 277,121
|
||||
0xBF52 0x95B9 # 閹 -- 277,122
|
||||
0xBF53 0x9642 # 陂 -- 277,123
|
||||
0xBF54 0x9658 # 陘 -- 277,124
|
||||
0xBF55 0x994C # 饌 -- 277,125
|
||||
0xBF56 0x9A38 # 騸 -- 277,126
|
||||
0xBF57 0x9B58 # 魘 -- 277,127
|
||||
0xBF58 0x9BFF # 鯿 -- 277,130
|
||||
0xBF59 0x9C23 # 鰣 -- 277,131
|
||||
0xBF5A 0x9C5F # 鱟 -- 277,132
|
||||
0xBF5B 0x9D1E # 鴞 -- 277,133
|
||||
0xBF5C 0x9D1F # 鴟 -- 277,134
|
||||
0xBF5D 0x9D53 # 鵓 -- 277,135
|
||||
0xBF5E 0x9D6A # 鵪 -- 277,136
|
||||
0xBF5F 0x9DD9 # 鷙 -- 277,137
|
||||
0xBF60 0x9DF8 # 鷸 -- 277,140
|
||||
0xBF61 0x9E1B # 鸛 -- 277,141
|
||||
0xBF62 0x9E1D # 鸝 -- 277,142
|
||||
0xBF63 0x9F09 # 鼉 -- 277,143
|
||||
0xBF64 0x9F41 # 齁 -- 277,144
|
||||
0xBF65 0x4E5C # 乜 -- 277,145
|
||||
0xBF66 0x4EF5 # 仵 -- 277,146
|
||||
0xBF67 0x4F0B # 伋 -- 277,147
|
||||
0xBF68 0x4F58 # 佘 -- 277,150
|
||||
0xBF69 0x4F7E # 佾 -- 277,151
|
||||
0xBF6A 0x4F94 # 侔 -- 277,152
|
||||
0xBF6B 0x50B4 # 傴 -- 277,153
|
||||
0xBF6C 0x50C7 # 僇 -- 277,154
|
||||
0xBF6D 0x50E8 # 僨 -- 277,155
|
||||
0xBF6E 0x5107 # 儇 -- 277,156
|
||||
0xBF6F 0x5114 # 儔 -- 277,157
|
||||
0xBF70 0x5133 # 儳 -- 277,160
|
||||
0xBF71 0x5155 # 兕 -- 277,161
|
||||
0xBF72 0x51AA # 冪 -- 277,162
|
||||
0xBF73 0x5216 # 刖 -- 277,163
|
||||
0xBF74 0x525E # 剞 -- 277,164
|
||||
0xBF75 0x5261 # 剡 -- 277,165
|
||||
0xBF76 0x52AD # 劭 -- 277,166
|
||||
0xBF77 0x5363 # 卣 -- 277,167
|
||||
0xBF78 0x5394 # 厔 -- 277,170
|
||||
0xBF79 0x5A13 # 娓 -- 277,171
|
||||
0xBF7A 0x5A6D # 婭 -- 277,172
|
||||
0xBF7B 0x5A7A # 婺 -- 277,173
|
||||
0xBF7C 0x5AB8 # 媸 -- 277,174
|
||||
0xBF7D 0x5ACB # 嫋 -- 277,175
|
||||
0xBF7E 0x5ADC # 嫜 -- 277,176
|
||||
0xBFA1 0x5AE0 # 嫠 -- 277,241
|
||||
0xBFA2 0x5B24 # 嬤 -- 277,242
|
||||
0xBFA3 0x5466 # 呦 -- 277,243
|
||||
0xBFA4 0x548B # 咋 -- 277,244
|
||||
0xBFA5 0x54BF # 咿 -- 277,245
|
||||
0xBFA6 0x557E # 啾 -- 277,246
|
||||
0xBFA7 0x5588 # 喈 -- 277,247
|
||||
0xBFA8 0x558F # 喏 -- 277,250
|
||||
0xBFA9 0x55D1 # 嗑 -- 277,251
|
||||
0xBFAA 0x55F7 # 嗷 -- 277,252
|
||||
0xBFAB 0x560E # 嘎 -- 277,253
|
||||
0xBFAC 0x5635 # 嘵 -- 277,254
|
||||
0xBFAD 0x564D # 噍 -- 277,255
|
||||
0xBFAE 0x56AC # 嚬 -- 277,256
|
||||
0xBFAF 0x572F # 圯 -- 277,257
|
||||
0xBFB0 0x577B # 坻 -- 277,260
|
||||
0xBFB1 0x57C2 # 埂 -- 277,261
|
||||
0xBFB2 0x5924 # 夤 -- 277,262
|
||||
0xBFB3 0x592F # 夯 -- 277,263
|
||||
0xBFB4 0x5997 # 妗 -- 277,264
|
||||
0xBFB5 0x5CCB # 峋 -- 277,265
|
||||
0xBFB6 0x5D1A # 崚 -- 277,266
|
||||
0xBFB7 0x5D4E # 嵎 -- 277,267
|
||||
0xBFB8 0x5D99 # 嶙 -- 277,270
|
||||
0xBFB9 0x5DA0 # 嶠 -- 277,271
|
||||
0xBFBA 0x5D92 # 嶒 -- 277,272
|
||||
0xBFBB 0x5D94 # 嶔 -- 277,273
|
||||
0xBFBC 0x5DB7 # 嶷 -- 277,274
|
||||
0xBFBD 0x5DB8 # 嶸 -- 277,275
|
||||
0xBFBE 0x5DC7 # 巇 -- 277,276
|
||||
0xBFBF 0x5DC9 # 巉 -- 277,277
|
||||
0xBFC0 0x5E21 # 帡 -- 277,300
|
||||
0xBFC1 0x5EC4 # 廄 -- 277,301
|
||||
0xBFC2 0x5F07 # 弇 -- 277,302
|
||||
0xBFC3 0x5FAC # 徬 -- 277,303
|
||||
0xBFC4 0x5FD2 # 忒 -- 277,304
|
||||
0xBFC5 0x5FD0 # 忐 -- 277,305
|
||||
0xBFC6 0x5FD1 # 忑 -- 277,306
|
||||
0xBFC7 0x605D # 恝 -- 277,307
|
||||
0xBFC8 0x6067 # 恧 -- 277,310
|
||||
0xBFC9 0x6092 # 悒 -- 277,311
|
||||
0xBFCA 0x60B1 # 悱 -- 277,312
|
||||
0xBFCB 0x60F8 # 惸 -- 277,313
|
||||
0xBFCC 0x6100 # 愀 -- 277,314
|
||||
0xBFCD 0x612B # 愫 -- 277,315
|
||||
0xBFCE 0x61DF # 懟 -- 277,316
|
||||
0xBFCF 0x623D # 戽 -- 277,317
|
||||
0xBFD0 0x62CA # 拊 -- 277,320
|
||||
0xBFD1 0x637D # 捽 -- 277,321
|
||||
0xBFD2 0x638A # 掊 -- 277,322
|
||||
0xBFD3 0x63BE # 掾 -- 277,323
|
||||
0xBFD4 0x646D # 摭 -- 277,324
|
||||
0xBFD5 0x6476 # 摶 -- 277,325
|
||||
0xBFD6 0x649D # 撝 -- 277,326
|
||||
0xBFD7 0x64BB # 撻 -- 277,327
|
||||
0xBFD8 0x64FB # 擻 -- 277,330
|
||||
0xBFD9 0x64F7 # 擷 -- 277,331
|
||||
0xBFDA 0x5910 # 夐 -- 277,332
|
||||
0xBFDB 0x65B2 # 斲 -- 277,333
|
||||
0xBFDC 0x65C2 # 旂 -- 277,334
|
||||
0xBFDD 0x6609 # 昉 -- 277,335
|
||||
0xBFDE 0x6615 # 昕 -- 277,336
|
||||
0xBFDF 0x6661 # 晡 -- 277,337
|
||||
0xBFE0 0x668D # 暍 -- 277,340
|
||||
0xBFE1 0x669D # 暝 -- 277,341
|
||||
0xBFE2 0x66B5 # 暵 -- 277,342
|
||||
0xBFE3 0x66BE # 暾 -- 277,343
|
||||
0xBFE4 0x66DB # 曛 -- 277,344
|
||||
0xBFE5 0x6798 # 枘 -- 277,345
|
||||
0xBFE6 0x67B2 # 枲 -- 277,346
|
||||
0xBFE7 0x67E2 # 柢 -- 277,347
|
||||
0xBFE8 0x688F # 梏 -- 277,350
|
||||
0xBFE9 0x68D6 # 棖 -- 277,351
|
||||
0xBFEA 0x68E3 # 棣 -- 277,352
|
||||
0xBFEB 0x68E8 # 棨 -- 277,353
|
||||
0xBFEC 0x696E # 楮 -- 277,354
|
||||
0xBFED 0x6978 # 楸 -- 277,355
|
||||
0xBFEE 0x695B # 楛 -- 277,356
|
||||
0xBFEF 0x6966 # 楦 -- 277,357
|
||||
0xBFF0 0x69CA # 槊 -- 277,360
|
||||
0xBFF1 0x69C5 # 槅 -- 277,361
|
||||
0xBFF2 0x69FF # 槿 -- 277,362
|
||||
0xBFF3 0x69D4 # 槔 -- 277,363
|
||||
0xBFF4 0x6AA0 # 檠 -- 277,364
|
||||
0xBFF5 0x6AA3 # 檣 -- 277,365
|
||||
0xBFF6 0x6ADE # 櫞 -- 277,366
|
||||
0xBFF7 0x6ADF # 櫟 -- 277,367
|
||||
0xBFF8 0x6AF3 # 櫳 -- 277,370
|
||||
0xBFF9 0x6B3F # 欿 -- 277,371
|
||||
0xBFFA 0x6B43 # 歃 -- 277,372
|
||||
0xBFFB 0x6B9E # 殞 -- 277,373
|
||||
0xBFFC 0x6BD6 # 毖 -- 277,374
|
||||
0xBFFD 0x6BF9 # 毹 -- 277,375
|
||||
0xBFFE 0x6C0D # 氍 -- 277,376
|
||||
191
unicode/xerox/unihan/XCCS-300=UNIHAN.TXT
Normal file
191
unicode/xerox/unihan/XCCS-300=UNIHAN.TXT
Normal file
@@ -0,0 +1,191 @@
|
||||
|
||||
# "300" UNIHAN
|
||||
|
||||
0xC021 0x6C46 # 汆 -- 300,041
|
||||
0xC022 0x6C69 # 汩 -- 300,042
|
||||
0xC023 0x6C94 # 沔 -- 300,043
|
||||
0xC024 0x6CEB # 泫 -- 300,044
|
||||
0xC025 0x6CF1 # 泱 -- 300,045
|
||||
0xC026 0x6D0E # 洎 -- 300,046
|
||||
0xC027 0x6D2B # 洫 -- 300,047
|
||||
0xC028 0x6D7C # 浼 -- 300,050
|
||||
0xC029 0x6D94 # 涔 -- 300,051
|
||||
0xC02A 0x6D98 # 涘 -- 300,052
|
||||
0xC02B 0x6DC5 # 淅 -- 300,053
|
||||
0xC02C 0x6C8D # 沍 -- 300,054
|
||||
0xC02D 0x6E54 # 湔 -- 300,055
|
||||
0xC02E 0x6E6B # 湫 -- 300,056
|
||||
0xC02F 0x6EB2 # 溲 -- 300,057
|
||||
0xC030 0x6EBD # 溽 -- 300,060
|
||||
0xC031 0x6E8F # 溏 -- 300,061
|
||||
0xC032 0x6F5E # 潞 -- 300,062
|
||||
0xC033 0x6F59 # 潙 -- 300,063
|
||||
0xC034 0x6FE1 # 濡 -- 300,064
|
||||
0xC035 0x7039 # 瀹 -- 300,065
|
||||
0xC036 0x70DD # 烝 -- 300,066
|
||||
0xC037 0x7162 # 煢 -- 300,067
|
||||
0xC038 0x71AF # 熯 -- 300,070
|
||||
0xC039 0x71B8 # 熸 -- 300,071
|
||||
0xC03A 0x71E0 # 燠 -- 300,072
|
||||
0xC03B 0x721D # 爝 -- 300,073
|
||||
0xC03C 0x7263 # 牣 -- 300,074
|
||||
0xC03D 0x72F7 # 狷 -- 300,075
|
||||
0xC03E 0x72FA # 狺 -- 300,076
|
||||
0xC03F 0x731E # 猞 -- 300,077
|
||||
0xC040 0x7322 # 猢 -- 300,100
|
||||
0xC041 0x733B # 猻 -- 300,101
|
||||
0xC042 0x734D # 獍 -- 300,102
|
||||
0xC043 0x737C # 獼 -- 300,103
|
||||
0xC044 0x73DE # 珞 -- 300,104
|
||||
0xC045 0x73E5 # 珥 -- 300,105
|
||||
0xC046 0x7462 # 瑢 -- 300,106
|
||||
0xC047 0x74D4 # 瓔 -- 300,107
|
||||
0xC048 0x74F4 # 瓴 -- 300,110
|
||||
0xC049 0x7513 # 甓 -- 300,111
|
||||
0xC04A 0x754B # 畋 -- 300,112
|
||||
0xC04B 0x7554 # 畔 -- 300,113
|
||||
0xC04C 0x756F # 畯 -- 300,114
|
||||
0xC04D 0x75A2 # 疢 -- 300,115
|
||||
0xC04E 0x75B3 # 疳 -- 300,116
|
||||
0xC04F 0x7608 # 瘈 -- 300,117
|
||||
0xC050 0x7616 # 瘖 -- 300,120
|
||||
0xC051 0x7622 # 瘢 -- 300,121
|
||||
0xC052 0x761E # 瘞 -- 300,122
|
||||
0xC053 0x7633 # 瘳 -- 300,123
|
||||
0xC054 0x7635 # 瘵 -- 300,124
|
||||
0xC055 0x7647 # 癇 -- 300,125
|
||||
0xC056 0x766F # 癯 -- 300,126
|
||||
0xC057 0x76F1 # 盱 -- 300,127
|
||||
0xC058 0x7719 # 眙 -- 300,130
|
||||
0xC059 0x775A # 睚 -- 300,131
|
||||
0xC05A 0x77EC # 矬 -- 300,132
|
||||
0xC05B 0x77F1 # 矱 -- 300,133
|
||||
0xC05C 0x782D # 砭 -- 300,134
|
||||
0xC05D 0x78D4 # 磔 -- 300,135
|
||||
0xC05E 0x78E7 # 磧 -- 300,136
|
||||
0xC05F 0x78EC # 磬 -- 300,137
|
||||
0xC060 0x7954 # 祔 -- 300,140
|
||||
0xC061 0x79D5 # 秕 -- 300,141
|
||||
0xC062 0x79EB # 秫 -- 300,142
|
||||
0xC063 0x7A2D # 稭 -- 300,143
|
||||
0xC064 0x7A78 # 穸 -- 300,144
|
||||
0xC065 0x7A80 # 窀 -- 300,145
|
||||
0xC066 0x7A86 # 窆 -- 300,146
|
||||
0xC067 0x7AAC # 窬 -- 300,147
|
||||
0xC068 0x7AA8 # 窨 -- 300,150
|
||||
0xC069 0x7AB5 # 窵 -- 300,151
|
||||
0xC06A 0x7B2B # 笫 -- 300,152
|
||||
0xC06B 0x7B91 # 箑 -- 300,153
|
||||
0xC06C 0x7B9C # 箜 -- 300,154
|
||||
0xC06D 0x7BA0 # 箠 -- 300,155
|
||||
0xC06E 0x7B90 # 箐 -- 300,156
|
||||
0xC06F 0x7BCC # 篌 -- 300,157
|
||||
0xC070 0x7C00 # 簀 -- 300,160
|
||||
0xC071 0x7C0B # 簋 -- 300,161
|
||||
0xC072 0x7C59 # 籙 -- 300,162
|
||||
0xC073 0x7C5C # 籜 -- 300,163
|
||||
0xC074 0x7C65 # 籥 -- 300,164
|
||||
0xC075 0x7C69 # 籩 -- 300,165
|
||||
0xC076 0x7CA2 # 粢 -- 300,166
|
||||
0xC077 0x7CC5 # 糅 -- 300,167
|
||||
0xC078 0x7CF0 # 糰 -- 300,170
|
||||
0xC079 0x7D35 # 紵 -- 300,171
|
||||
0xC07A 0x7D3F # 紿 -- 300,172
|
||||
0xC07B 0x7D70 # 絰 -- 300,173
|
||||
0xC07C 0x7D83 # 綃 -- 300,174
|
||||
0xC07D 0x7DE1 # 緡 -- 300,175
|
||||
0xC07E 0x7DE6 # 緦 -- 300,176
|
||||
0xC0A1 0x7E1D # 縝 -- 300,241
|
||||
0xC0A2 0x7E22 # 縢 -- 300,242
|
||||
0xC0A3 0x7E36 # 縶 -- 300,243
|
||||
0xC0A4 0x7E7D # 繽 -- 300,244
|
||||
0xC0A5 0x7E87 # 纇 -- 300,245
|
||||
0xC0A6 0x7F45 # 罅 -- 300,246
|
||||
0xC0A7 0x7F4D # 罍 -- 300,247
|
||||
0xC0A8 0x7F68 # 罨 -- 300,250
|
||||
0xC0A9 0x7F86 # 羆 -- 300,251
|
||||
0xC0AA 0x7F9D # 羝 -- 300,252
|
||||
0xC0AB 0x7FDB # 翛 -- 300,253
|
||||
0xC0AC 0x7FE5 # 翥 -- 300,254
|
||||
0xC0AD 0x8043 # 聃 -- 300,255
|
||||
0xC0AE 0x8093 # 肓 -- 300,256
|
||||
0xC0AF 0x80D9 # 胙 -- 300,257
|
||||
0xC0B0 0x8127 # 脧 -- 300,260
|
||||
0xC0B1 0x80FC # 胼 -- 300,261
|
||||
0xC0B2 0x8160 # 腠 -- 300,262
|
||||
0xC0B3 0x8186 # 膆 -- 300,263
|
||||
0xC0B4 0x825F # 艟 -- 300,264
|
||||
0xC0B5 0x8268 # 艨 -- 300,265
|
||||
0xC0B6 0x82AB # 芫 -- 300,266
|
||||
0xC0B7 0x82E1 # 苡 -- 300,267
|
||||
0xC0B8 0x8347 # 荇 -- 300,270
|
||||
0xC0B9 0x837D # 荽 -- 300,271
|
||||
0xC0BA 0x83AA # 莪 -- 300,272
|
||||
0xC0BB 0x83D4 # 菔 -- 300,273
|
||||
0xC0BC 0x83D8 # 菘 -- 300,274
|
||||
0xC0BD 0x8401 # 萁 -- 300,275
|
||||
0xC0BE 0x8451 # 葑 -- 300,276
|
||||
0xC0BF 0x8478 # 葸 -- 300,277
|
||||
0xC0C0 0x84B9 # 蒹 -- 300,300
|
||||
0xC0C1 0x84BA # 蒺 -- 300,301
|
||||
0xC0C2 0x84CD # 蓍 -- 300,302
|
||||
0xC0C3 0x84FD # 蓽 -- 300,303
|
||||
0xC0C4 0x855E # 蕞 -- 300,304
|
||||
0xC0C5 0x8564 # 蕤 -- 300,305
|
||||
0xC0C6 0x8555 # 蕕 -- 300,306
|
||||
0xC0C7 0x8605 # 蘅 -- 300,307
|
||||
0xC0C8 0x8627 # 蘧 -- 300,310
|
||||
0xC0C9 0x863C # 蘼 -- 300,311
|
||||
0xC0CA 0x8662 # 虢 -- 300,312
|
||||
0xC0CB 0x867A # 虺 -- 300,313
|
||||
0xC0CC 0x8709 # 蜉 -- 300,314
|
||||
0xC0CD 0x8723 # 蜣 -- 300,315
|
||||
0xC0CE 0x8729 # 蜩 -- 300,316
|
||||
0xC0CF 0x872E # 蜮 -- 300,317
|
||||
0xC0D0 0x8721 # 蜡 -- 300,320
|
||||
0xC0D1 0x871E # 蜞 -- 300,321
|
||||
0xC0D2 0x87AF # 螯 -- 300,322
|
||||
0xC0D3 0x87BD # 螽 -- 300,323
|
||||
0xC0D4 0x87DB # 蟛 -- 300,324
|
||||
0xC0D5 0x8806 # 蠆 -- 300,325
|
||||
0xC0D6 0x8844 # 衄 -- 300,326
|
||||
0xC0D7 0x8852 # 衒 -- 300,327
|
||||
0xC0D8 0x88B7 # 袷 -- 300,330
|
||||
0xC0D9 0x88D2 # 裒 -- 300,331
|
||||
0xC0DA 0x89A1 # 覡 -- 300,332
|
||||
0xC0DB 0x89AF # 覯 -- 300,333
|
||||
0xC0DC 0x8A61 # 詡 -- 300,334
|
||||
0xC0DD 0x8AB6 # 誶 -- 300,335
|
||||
0xC0DE 0x8AE2 # 諢 -- 300,336
|
||||
0xC0DF 0x8AFC # 諼 -- 300,337
|
||||
0xC0E0 0x8B16 # 謖 -- 300,340
|
||||
0xC0E1 0x8B4E # 譎 -- 300,341
|
||||
0xC0E2 0x8B8E # 讎 -- 300,342
|
||||
0xC0E3 0x8B9C # 讜 -- 300,343
|
||||
0xC0E4 0x8B9F # 讟 -- 300,344
|
||||
0xC0E5 0x8C73 # 豳 -- 300,345
|
||||
0xC0E6 0x8C8A # 貊 -- 300,346
|
||||
0xC0E7 0x8CB0 # 貰 -- 300,347
|
||||
0xC0E8 0x8CC5 # 賅 -- 300,350
|
||||
0xC0E9 0x8CEE # 賮 -- 300,351
|
||||
0xC0EA 0x8D84 # 趄 -- 300,352
|
||||
0xC0EB 0x8DBA # 趺 -- 300,353
|
||||
0xC0EC 0x8DCF # 跏 -- 300,354
|
||||
0xC0ED 0x8DFD # 跽 -- 300,355
|
||||
0xC0EE 0x8E1F # 踟 -- 300,356
|
||||
0xC0EF 0x8E23 # 踣 -- 300,357
|
||||
0xC0F0 0x8E4C # 蹌 -- 300,360
|
||||
0xC0F1 0x8E55 # 蹕 -- 300,361
|
||||
0xC0F2 0x8E63 # 蹣 -- 300,362
|
||||
0xC0F3 0x8E70 # 蹰 -- 300,363
|
||||
0xC0F4 0x8E8B # 躋 -- 300,364
|
||||
0xC0F5 0x8EFA # 軺 -- 300,365
|
||||
0xC0F6 0x8F62 # 轢 -- 300,366
|
||||
0xC0F7 0x9011 # 逑 -- 300,367
|
||||
0xC0F8 0x902D # 逭 -- 300,370
|
||||
0xC0F9 0x9036 # 逶 -- 300,371
|
||||
0xC0FA 0x905D # 遝 -- 300,372
|
||||
0xC0FB 0x9062 # 遢 -- 300,373
|
||||
0xC0FC 0x909B # 邛 -- 300,374
|
||||
0xC0FD 0x90A0 # 邠 -- 300,375
|
||||
0xC0FE 0x90C4 # 郄 -- 300,376
|
||||
190
unicode/xerox/unihan/XCCS-301=UNIHAN.TXT
Normal file
190
unicode/xerox/unihan/XCCS-301=UNIHAN.TXT
Normal file
@@ -0,0 +1,190 @@
|
||||
|
||||
# "301" UNIHAN
|
||||
|
||||
0xC121 0x9116 # 鄖 -- 301,041
|
||||
0xC122 0x9134 # 鄴 -- 301,042
|
||||
0xC123 0x9172 # 酲 -- 301,043
|
||||
0xC124 0x9174 # 酴 -- 301,044
|
||||
0xC125 0x9179 # 酹 -- 301,045
|
||||
0xC126 0x91AA # 醪 -- 301,046
|
||||
0xC127 0x9200 # 鈀 -- 301,047
|
||||
0xC128 0x93C3 # 鏃 -- 301,050
|
||||
0xC129 0x93D7 # 鏗 -- 301,051
|
||||
0xC12A 0x93E4 # 鏤 -- 301,052
|
||||
0xC12B 0x93D1 # 鏑 -- 301,053
|
||||
0xC12C 0x9455 # 鑕 -- 301,054
|
||||
0xC12D 0x95CB # 闋 -- 301,055
|
||||
0xC12E 0x95E0 # 闠 -- 301,056
|
||||
0xC12F 0x95E4 # 闤 -- 301,057
|
||||
0xC130 0x95E5 # 闥 -- 301,060
|
||||
0xC131 0x96B0 # 隰 -- 301,061
|
||||
0xC132 0x96B3 # 隳 -- 301,062
|
||||
0xC133 0x96BC # 隼 -- 301,063
|
||||
0xC134 0x9766 # 靦 -- 301,064
|
||||
0xC135 0x97D9 # 韙 -- 301,065
|
||||
0xC136 0x980F # 頏 -- 301,066
|
||||
0xC137 0x9859 # 顙 -- 301,067
|
||||
0xC138 0x98BA # 颺 -- 301,070
|
||||
0xC139 0x992E # 餮 -- 301,071
|
||||
0xC13A 0x9948 # 饈 -- 301,072
|
||||
0xC13B 0x9954 # 饔 -- 301,073
|
||||
0xC13C 0x9998 # 馘 -- 301,074
|
||||
0xC13D 0x9A2E # 騮 -- 301,075
|
||||
0xC13E 0x9A41 # 驁 -- 301,076
|
||||
0xC13F 0x9AC0 # 髀 -- 301,077
|
||||
0xC140 0x9AE0 # 髠 -- 301,100
|
||||
0xC141 0x9AEB # 髫 -- 301,101
|
||||
0xC142 0x9AED # 髭 -- 301,102
|
||||
0xC143 0x9B08 # 鬈 -- 301,103
|
||||
0xC144 0x9B0E # 鬎 -- 301,104
|
||||
0xC145 0x9B4E # 魎 -- 301,105
|
||||
0xC146 0x9CE7 # 鳧 -- 301,106
|
||||
0xC147 0x9DA9 # 鶩 -- 301,107
|
||||
0xC148 0x9DBC # 鶼 -- 301,110
|
||||
0xC149 0x9E15 # 鸕 -- 301,111
|
||||
0xC14A 0x9E7A # 鹺 -- 301,112
|
||||
0xC14B 0x9EE7 # 黧 -- 301,113
|
||||
0xC14C 0x9EF7 # 黷 -- 301,114
|
||||
0xC14D 0x9EFC # 黼 -- 301,115
|
||||
0xC14E 0x9F4F # 齏 -- 301,116
|
||||
0xC14F 0x9F54 # 齔 -- 301,117
|
||||
0xC150 0x9F55 # 齕 -- 301,120
|
||||
0xC151 0x9F57 # 齗 -- 301,121
|
||||
0xC152 0x5B53 # 孓 -- 301,122
|
||||
0xC153 0x6E53 # 湓 -- 301,123
|
||||
0xC154 0x55D0 # 嗐 -- 301,124
|
||||
0xC155 0x55DD # 嗝 -- 301,125
|
||||
0xC156 0x55E6 # 嗦 -- 301,126
|
||||
0xC157 0x56CC # 囌 -- 301,127
|
||||
0xC158 0x5E7A # 幺 -- 301,130
|
||||
0xC159 0x616A # 慪 -- 301,131
|
||||
0xC15A 0x643F # 搿 -- 301,132
|
||||
0xC15B 0x651B # 攛 -- 301,133
|
||||
0xC15C 0x77FD # 矽 -- 301,134
|
||||
0xC15D 0x6A81 # 檁 -- 301,135
|
||||
0xC15E 0x6B38 # 欸 -- 301,136
|
||||
0xC15F 0x71DC # 燜 -- 301,137
|
||||
0xC160 0x71F4 # 燴 -- 301,140
|
||||
0xC161 0x764D # 癍 -- 301,141
|
||||
0xC162 0x774F # 睏 -- 301,142
|
||||
0xC163 0x7E68 # 繨 -- 301,143
|
||||
0xC164 0x81CC # 臌 -- 301,144
|
||||
0xC165 0x82F6 # 苶 -- 301,145
|
||||
0xC166 0x82E4 # 苤 -- 301,146
|
||||
0xC167 0x867C # 虼 -- 301,147
|
||||
0xC168 0x8698 # 蚘 -- 301,150
|
||||
0xC169 0x897B # 襻 -- 301,151
|
||||
0xC16A 0x8E67 # 蹧 -- 301,152
|
||||
0xC16B 0x9029 # 逩 -- 301,153
|
||||
0xC16C 0x91C5 # 釅 -- 301,154
|
||||
0xC16D 0x9358 # 鍘 -- 301,155
|
||||
0xC16E 0x9410 # 鐐 -- 301,156
|
||||
0xC16F 0x9427 # 鐧 -- 301,157
|
||||
0xC170 0x9807 # 頇 -- 301,160
|
||||
0xC171 0x5306 # 匆 -- 301,161
|
||||
0xC172 0x993F # 餿 -- 301,162
|
||||
0xC173 0x995D # 饝 -- 301,163
|
||||
0xC174 0x9B9D # 鮝 -- 301,164
|
||||
0xC175 0x9C35 # 鰵 -- 301,165
|
||||
0xC176 0x9D30 # 鴰 -- 301,166
|
||||
0xC177 0x9EF9 # 黹 -- 301,167
|
||||
0xC178 0x5853 # 塓 -- 301,170
|
||||
0xC179 0x530B # 匋 -- 301,171
|
||||
0xC17A 0x53AA # 厪 -- 301,172
|
||||
0xC17B 0x59C5 # 姅 -- 301,173
|
||||
0xC17C 0x550F # 唏 -- 301,174
|
||||
0xC17D 0x5535 # 唵 -- 301,175
|
||||
0xC17E 0x6C87 # 沇 -- 301,176
|
||||
0xC1A1 0x57FC # 埼 -- 301,241
|
||||
0xC1A2 0x602D # 怭 -- 301,242
|
||||
0xC1A3 0x61BA # 憺 -- 301,243
|
||||
0xC1A4 0x636C # 捬 -- 301,244
|
||||
0xC1A5 0x5281 # 劁 -- 301,245
|
||||
0xC1A6 0x6834 # 栴 -- 301,246
|
||||
0xC1A7 0x684B # 桋 -- 301,247
|
||||
0xC1A8 0x7439 # 琹 -- 301,250
|
||||
0xC1A9 0x6CAD # 沭 -- 301,251
|
||||
0xC1AA 0x75C3 # 痃 -- 301,252
|
||||
0xC1AB 0x75B1 # 疱 -- 301,253
|
||||
0xC1AC 0x7B9A # 箚 -- 301,254
|
||||
0xC1AD 0x7C81 # 粁 -- 301,255
|
||||
0xC1AE 0x7CA8 # 粨 -- 301,256
|
||||
0xC1AF 0x7CFA # 糺 -- 301,257
|
||||
0xC1B0 0x7D31 # 紱 -- 301,260
|
||||
0xC1B1 0x8D18 # 贘 -- 301,261
|
||||
0xC1B2 0x8D0B # 贋 -- 301,262
|
||||
0xC1B3 0x8FEF # 迯 -- 301,263
|
||||
0xC1B4 0x91B1 # 醱 -- 301,264
|
||||
0xC1B5 0x747D # 瑽 -- 301,265
|
||||
0xC1B6 0x9BAD # 鮭 -- 301,266
|
||||
0xC1B7 0x4F89 # 侉 -- 301,267
|
||||
0xC1B8 0x52D1 # 勑 -- 301,270
|
||||
0xC1B9 0x5315 # 匕 -- 301,271
|
||||
0xC1BA 0x710C # 焌 -- 301,272
|
||||
0xC1BB 0x5565 # 啥 -- 301,273
|
||||
0xC1BC 0x55D9 # 嗙 -- 301,274
|
||||
0xC1BD 0x5ED2 # 廒 -- 301,275
|
||||
0xC1BE 0x5F82 # 徂 -- 301,276
|
||||
0xC1BF 0x6039 # 怹 -- 301,277
|
||||
0xC1C0 0x618B # 憋 -- 301,300
|
||||
0xC1C1 0x6164 # 慤 -- 301,301
|
||||
0xC1C2 0x63AD # 掭 -- 301,302
|
||||
0xC1C3 0x65EE # 旮 -- 301,303
|
||||
0xC1C4 0x65EF # 旯 -- 301,304
|
||||
0xC1C5 0x6AC2 # 櫂 -- 301,305
|
||||
0xC1C6 0x6C5B # 汛 -- 301,306
|
||||
0xC1C7 0x6C8F # 沏 -- 301,307
|
||||
0xC1C8 0x723B # 爻 -- 301,310
|
||||
0xC1CA 0x7349 # 獉 -- 301,312
|
||||
0xC1CB 0x74BA # 璺 -- 301,313
|
||||
0xC1CC 0x7931 # 礱 -- 301,314
|
||||
0xC1CD 0x70EF # 烯 -- 301,315
|
||||
0xC1CE 0x7C09 # 簉 -- 301,316
|
||||
0xC1CF 0x7C75 # 籵 -- 301,317
|
||||
0xC1D0 0x7CE8 # 糨 -- 301,320
|
||||
0xC1D1 0x7E52 # 繒 -- 301,321
|
||||
0xC1D2 0x7F36 # 缶 -- 301,322
|
||||
0xC1D3 0x7F87 # 羇 -- 301,323
|
||||
0xC1D4 0x80F4 # 胴 -- 301,324
|
||||
0xC1D5 0x81E2 # 臢 -- 301,325
|
||||
0xC1D6 0x93E2 # 鏢 -- 301,326
|
||||
0xC1D7 0x8617 # 蘗 -- 301,327
|
||||
0xC1D8 0x866C # 虬 -- 301,330
|
||||
0xC1D9 0x867B # 虻 -- 301,331
|
||||
0xC1DA 0x8A92 # 誒 -- 301,332
|
||||
0xC1DB 0x8C78 # 豸 -- 301,333
|
||||
0xC1DC 0x9106 # 鄆 -- 301,334
|
||||
0xC1DD 0x9463 # 鑣 -- 301,335
|
||||
0xC1DE 0x95C3 # 闃 -- 301,336
|
||||
0xC1DF 0x95C7 # 闇 -- 301,337
|
||||
0xC1E0 0x9B01 # 鬁 -- 301,340
|
||||
0xC1E1 0x9B2F # 鬯 -- 301,341
|
||||
0xC1E2 0x9EDF # 黟 -- 301,342
|
||||
0xC1E3 0x9EFD # 黽 -- 301,343
|
||||
0xC1E4 0x9F10 # 鼐 -- 301,344
|
||||
0xC1E5 0x4EE1 # 仡 -- 301,345
|
||||
0xC1E6 0x4EF3 # 仳 -- 301,346
|
||||
0xC1E7 0x4F08 # 伈 -- 301,347
|
||||
0xC1E8 0x4F03 # 伃 -- 301,350
|
||||
0xC1E9 0x4F49 # 佉 -- 301,351
|
||||
0xC1EA 0x4F4C # 佌 -- 301,352
|
||||
0xC1EB 0x4F7D # 佽 -- 301,353
|
||||
0xC1EC 0x4F81 # 侁 -- 301,354
|
||||
0xC1ED 0x4F98 # 侘 -- 301,355
|
||||
0xC1EE 0x4F9C # 侜 -- 301,356
|
||||
0xC1EF 0x4F74 # 佴 -- 301,357
|
||||
0xC1F0 0x4F79 # 佹 -- 301,360
|
||||
0xC1F1 0x4F90 # 侐 -- 301,361
|
||||
0xC1F2 0x4FC5 # 俅 -- 301,362
|
||||
0xC1F3 0x4FC1 # 俁 -- 301,363
|
||||
0xC1F4 0x4FD4 # 俔 -- 301,364
|
||||
0xC1F5 0x4FB7 # 侷 -- 301,365
|
||||
0xC1F6 0x5000 # 倀 -- 301,366
|
||||
0xC1F7 0x5022 # 倢 -- 301,367
|
||||
0xC1F8 0x502E # 倮 -- 301,370
|
||||
0xC1F9 0x4FF4 # 俴 -- 301,371
|
||||
0xC1FA 0x501E # 倞 -- 301,372
|
||||
0xC1FB 0x5041 # 偁 -- 301,373
|
||||
0xC1FC 0x5072 # 偲 -- 301,374
|
||||
0xC1FD 0x506D # 偭 -- 301,375
|
||||
0xC1FE 0x506F # 偯 -- 301,376
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user