From 7242b998c74b117301e7cd5a6e08a8f9066cbfa1 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sat, 8 Mar 2025 09:59:28 -0800 Subject: [PATCH] LLREAD: Add character names One, Two... for digits 0, 1 ... --- sources/LLREAD | 53 ++++++++++++++++++++++++-------------------- sources/LLREAD.LCOM | Bin 22558 -> 22587 bytes 2 files changed, 29 insertions(+), 24 deletions(-) diff --git a/sources/LLREAD b/sources/LLREAD index 7733498f..2f5dbff9 100644 --- a/sources/LLREAD +++ b/sources/LLREAD @@ -1,18 +1,14 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "30-Jul-2023 17:42:27" {WMEDLEY}LLREAD.;105 90277 +(FILECREATED " 8-Mar-2025 09:05:43" {WMEDLEY}LLREAD.;107 90353 :EDIT-BY rmk - :CHANGES-TO (FNS \SUBREAD) + :CHANGES-TO (VARS LLREADCOMS) - :PREVIOUS-DATE "17-Jun-2023 13:12:06" {WMEDLEY}LLREAD.;104) + :PREVIOUS-DATE "30-Jul-2023 17:42:27" {WMEDLEY}LLREAD.;105) -(* ; " -Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. -") - (PRETTYCOMPRINT LLREADCOMS) (RPAQQ LLREADCOMS @@ -38,7 +34,8 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (FNS CHARACTER.READ CHARCODE.DECODE) (FNS HEXNUM? OCTALNUM?) (ALISTS (CHARACTERNAMES Page Form FF Rubout Del Null Escape Esc Bell Tab Backspace Bs - Newline CR EOL Return Tenexeol Space Sp Linefeed LF) + Newline CR EOL Return Tenexeol Space Sp Linefeed LF Zero One Two Three + Four Five Six Seven Eight Nine) (CHARACTERSETNAMES Meta Function Greek Cyrillic Hira Hiragana Kata Katakana Kanji))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (CONSTANTS * READTYPES) @@ -1548,7 +1545,17 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (Space 32) (Sp 32) (Linefeed 10) - (LF 10)) + (LF 10) + (Zero 48) + (One 49) + (Two 50) + (Three 51) + (Four 52) + (Five 53) + (Six 54) + (Seven 55) + (Eight 56) + (Nine 57)) (ADDTOVAR CHARACTERSETNAMES (Meta 1) (Function 2) @@ -1661,20 +1668,18 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (ADDTOVAR LAMA CL:PARSE-INTEGER CL:READ-DELIMITED-LIST CL:READ-PRESERVING-WHITESPACE CL:READ) ) -(PUTPROPS LLREAD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 -1991 1993 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3442 11886 (LASTC 3452 . 3758) (PEEKC 3760 . 4148) (PEEKCCODE 4150 . 4561) (RATOM 4563 - . 5644) (READ 5646 . 6206) (READC 6208 . 6849) (READCCODE 6851 . 7610) (READP 7612 . 8164) ( -SETREADMACROFLG 8166 . 8465) (SKIPSEPRCODES 8467 . 9547) (SKIPSEPRS 9549 . 9935) (SKREAD 9937 . 11884) -) (11932 20541 (CL:READ 11942 . 12491) (CL:READ-PRESERVING-WHITESPACE 12493 . 13215) ( -CL:READ-DELIMITED-LIST 13217 . 14132) (CL:PARSE-INTEGER 14134 . 20539)) (20634 33111 (RSTRING 20644 . -21376) (READ-EXTENDED-TOKEN 21378 . 25250) (\RSTRING2 25252 . 33109)) (33147 63880 (\TOP-LEVEL-READ -33157 . 35140) (\SUBREAD 35142 . 60296) (\SUBREADCONCAT 60298 . 60921) (\ORIG-READ.SYMBOL 60923 . -61991) (\ORIG-INVALID.SYMBOL 61993 . 62892) (\APPLYREADMACRO 62894 . 63310) (INREADMACROP 63312 . -63878)) (64039 64214 (READQUOTE 64049 . 64212)) (64239 76143 (READVBAR 64249 . 65580) (READHASHMACRO -65582 . 71392) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71394 . 71614) (DIGITBASEP 71616 . 72350) ( -READNUMBERINBASE 72352 . 74238) (ESTIMATE-DIMENSIONALITY 74240 . 74565) (SKIP.HASH.COMMENT 74567 . -75535) (CMLREAD.FEATURE.PARSER 75537 . 76141)) (76187 82531 (CHARACTER.READ 76197 . 77451) ( -CHARCODE.DECODE 77453 . 82529)) (82532 85702 (HEXNUM? 82542 . 84885) (OCTALNUM? 84887 . 85700))))) + (FILEMAP (NIL (3437 11881 (LASTC 3447 . 3753) (PEEKC 3755 . 4143) (PEEKCCODE 4145 . 4556) (RATOM 4558 + . 5639) (READ 5641 . 6201) (READC 6203 . 6844) (READCCODE 6846 . 7605) (READP 7607 . 8159) ( +SETREADMACROFLG 8161 . 8460) (SKIPSEPRCODES 8462 . 9542) (SKIPSEPRS 9544 . 9930) (SKREAD 9932 . 11879) +) (11927 20536 (CL:READ 11937 . 12486) (CL:READ-PRESERVING-WHITESPACE 12488 . 13210) ( +CL:READ-DELIMITED-LIST 13212 . 14127) (CL:PARSE-INTEGER 14129 . 20534)) (20629 33106 (RSTRING 20639 . +21371) (READ-EXTENDED-TOKEN 21373 . 25245) (\RSTRING2 25247 . 33104)) (33142 63875 (\TOP-LEVEL-READ +33152 . 35135) (\SUBREAD 35137 . 60291) (\SUBREADCONCAT 60293 . 60916) (\ORIG-READ.SYMBOL 60918 . +61986) (\ORIG-INVALID.SYMBOL 61988 . 62887) (\APPLYREADMACRO 62889 . 63305) (INREADMACROP 63307 . +63873)) (64034 64209 (READQUOTE 64044 . 64207)) (64234 76138 (READVBAR 64244 . 65575) (READHASHMACRO +65577 . 71387) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71389 . 71609) (DIGITBASEP 71611 . 72345) ( +READNUMBERINBASE 72347 . 74233) (ESTIMATE-DIMENSIONALITY 74235 . 74560) (SKIP.HASH.COMMENT 74562 . +75530) (CMLREAD.FEATURE.PARSER 75532 . 76136)) (76182 82526 (CHARACTER.READ 76192 . 77446) ( +CHARCODE.DECODE 77448 . 82524)) (82527 85697 (HEXNUM? 82537 . 84880) (OCTALNUM? 84882 . 85695))))) STOP diff --git a/sources/LLREAD.LCOM b/sources/LLREAD.LCOM index 3277e7371e8c46e75f4bf31643fdcd9d73a0c938..0639abb88f147d06c227cdc09c475216ab31402a 100644 GIT binary patch delta 510 zcmZvWyH4Cd6ozGlQn(-mMI?~WFH0bAh#g~l_TtX$j>AgcOJ>YM(m{5_T7Zqra!JK2 zfJRCg#2X-OiA2LQP|)x!jCUIfy6@LH=Re>7d+p&~yWU-_Tb;eaavhhzX#@@l{OZl2 zeO0SKH{7}viT&Bo^#Yd!o?~FY5P$OHlk`XoAudmf)71c3J|3mn0n!Xcv>nHIe`?#d zf#Kd*?SI(m8x`G*+A(c18YZ*_10QI4azk6$tfAp}#6v(^?Zn#rh2r=SL31nY{-E4S zdN2ne<2vG4b+wwk4zD2SGdgJZwz<_(^>SGwlPB#{e+$1wk)xLhBo{f7Q6U7P{H#Ef zo(u5w5?q{%3^Y9$jnPdrQGuymv9Os?#%aAiQfA9BTUT_;h z70vTi`E6%S_W6QJ3;c^pkpH-;(j#A*yzslZASjQOzc{1BCeU zIPUiw^WHT8YvBG*+QhFned1{_&qw9ASux4SkgsNwVpJ?9w?{r)QO0SUp4m`LLF@FA z1l~3^n^-g8JZGfNA zs2_KGtkw>A1e)d5zAmT#Cb1mfvVGDJPv{WU*BeyHJ{q8h=K&2u9#IzYG`NTuh$;%VY%=-alpo^b_y)DqO*bI)vJ*&$5Ct0)^fcV37@yhlQ zUhnXy59{i{KzDl9;~DK{43b2B7s76KN#nC~4!YLQr^_6UVVKX$6@=w{R?e>%MLE^L jYBeo|t#A}|g{x>NJVjH|B7mi;y5)e}pJf<0jT8JAl+%42