github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-05 11:14:38 +00:00
Code Issues Projects Releases Wiki Activity
Files
ab4eb3d52d73c8af6385367eb43a149ccd021a25
Interlisp.medley/sources/CMLREAD.LCOM
rmkaplan 0f470b9753 Rmk161 loadup works with utf 8 source files (#2512) 
* New starter.sysout contains the UTF-8 external format
* Init.sysout is created with the UTF-8 external format
* Files with non-ascii characters and some other files converted to UTF-8, for basic testing
* Environment arg of WITH-READER-ENVIRONMENT can be a stream
* Compiler functions now respect the external format as copied from the source file
* Colon is the package delimiter in DEFINE-FILE-INFO expressions
* UNICODE file is deprecated in favor of UNICODE-FORMATS and UNICODE-TABLES
2026-03-02 11:56:11 -08:00

105 lines
5.3 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
(FILECREATED "25-Feb-2026 23:00:30" ("compiled on " {WMEDLEY}<sources>CMLREAD.;24)
"25-Feb-2026 17:00:12" "COMPILE-FILEd" in "FULL 25-Feb-2026 ..." dated "25-Feb-2026 17:00:21")
(FILECREATED "25-Feb-2026 11:51:19" {WMEDLEY}<sources>CMLREAD.;24 12180 :EDIT-BY rmk :CHANGES-TO (VARS
CMLREADCOMS) (FUNCTIONS WITH-READER-ENVIRONMENT) :PREVIOUS-DATE "25-Feb-2026 09:25:29"
{WMEDLEY}<sources>CMLREAD.;21)
(RPAQQ CMLREADCOMS ((COMS (* ;; "Misc Common Lisp reader functions") (FNS CL:COPY-READTABLE) (FNS
CL:READ-LINE CL:READ-CHAR CL:UNREAD-CHAR CL:PEEK-CHAR CL:LISTEN CL:READ-CHAR-NO-HANG CL:CLEAR-INPUT
CL:READ-FROM-STRING CL:READ-BYTE CL:WRITE-BYTE) (* ; "must turn off packed version of CLISP infix") (
VARS (CLISPCHARS (LDIFFERENCE CLISPCHARS (QUOTE (- *)))) (CLISPCHARRAY (MAKEBITTABLE CLISPCHARS)) (
DWIMINMACROSFLG)) (VARIABLES *READ-DEFAULT-FLOAT-FORMAT*) (GLOBALVARS CMLRDTBL READ-LINE-RDTBL)) (COMS
(FUNCTIONS WITH-READER-ENVIRONMENT) (PROP INFO WITH-READER-ENVIRONMENT) (ADDVARS (SYSSPECVARS
*PACKAGE* *READTABLE* *READ-BASE* *PRINT-BASE*)) (GLOBALVARS *COMMON-LISP-READ-ENVIRONMENT*) (INITVARS
(*COMMON-LISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REPACKAGE â†<C3A2> (CL:FIND-PACKAGE "USER")
REREADTABLE â†<C3A2> CMLRDTBL REBASE â†<C3A2> 10 REFORMAT â†<C3A2> :MCCS)))) (PROP FILETYPE CMLREAD) (DECLARE%:
DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CL:READ-BYTE
CL:READ-FROM-STRING CL:CLEAR-INPUT CL:READ-CHAR-NO-HANG CL:PEEK-CHAR CL:UNREAD-CHAR CL:READ-CHAR
CL:READ-LINE CL:COPY-READTABLE)))))
CL:COPY-READTABLE :D8
(L (0 -args-) F 3 *READTABLE*) KekHñ‘S<E28098>kalHñ‘h‚laºIµJ¥IµYJµ d I
J(71 RESETREADTABLE 59 COPYREADTABLE 44 CMLRDTBL 35 CMLRDTBL)
(65 READTABLEP 49 READTABLEP)
()
CL:READ-LINE :D8
(L (0 -args-)) ’ekHñ‘h<E28098>kaalHñ‘i‚laºlHñ‘h‚la»lHñ‘h‚la¼Ig
YJ³L³dÉ
É<½IdkM’KI`
¾IÉ
É<_¿IdkO–¿Ni$ Nh$(138 READCCODE 100 RSTRING 58 \GETSTREAM)
(114 FDEV 107 STREAM 95 READ-LINE-RDTBL 78 FDEV 71 STREAM 53 INPUT)
()
CL:READ-CHAR :D8
(L (0 -args-) F 8 *STANDARD-INPUT*) pekHñ’W<10>kaalHñ‘i‚laºlHñ‘h‚la»lHñ‘h‚la¼Ig
½J³L³MÉ
É<¾MdkN’KM _Òlð´lOÑ(96 READCCODE 59 \GETSTREAM)
(79 FDEV 72 STREAM 54 INPUT)
()
CL:UNREAD-CHAR :D8
(L (0 -args-) F 1 *STANDARD-INPUT*) elHñ‘Q‚lag
h(28 \BACKCCODE 23 \GETSTREAM)
(18 INPUT)
()
CL:PEEK-CHAR :D8
(L (0 -args-) P 10 \RefillBufferFn F 11 *STANDARD-INPUT*) Á ekHñ‘h<E28098>kaqlHñ’W‚laºlHñ‘i‚la»lHñ‘h‚la¼Jg
g
IµOKhð
µL]Òlð´*lMÑið²"O µ
K²äO ^Òlð´lNÑIdò.¿IÓKhð_¿_¿OO
dOð‘I²¤O °æ (190 \ILLEGAL.ARG 183 READCCODE 167 \PEEKCCODE.EOLC 119 \EOF.ACTION 107 SKIPSEPRCODES 80 \PEEKCCODE.EOLC 59 \GETSTREAM)
(148 CHARACTER 139 CHARACTER 64 \PEEKREFILL 54 INPUT)
()
CL:LISTEN :D8
(L (0 STREAM)) @g
i
(16 READP 10 \GETSTREAM)
(5 INPUT)
()
CL:READ-CHAR-NO-HANG :D8
(L (0 -args-)) XekHñ‘h<E28098>ka1lHñ‘i‚laºlHñ‘h‚la»lHñ‘h‚la¼Idi
š¿IJKL  ¡hJ–I K(83 \EOF.ACTION 72 EOFP 66 CL:READ-CHAR 55 READP)
NIL
()
CL:CLEAR-INPUT :D8
(L (0 -args-) F 1 *STANDARD-INPUT*) ekHñ‘Q<E28098>kag
(26 CLEARBUF 21 \GETSTREAM)
(16 INPUT)
()
CL:READ-FROM-STRING :D8
(L (0 -args-)) 
ekaálHñ‘h‚laºlHñ‘h‚la»Hl½¼MdLó²Q¿h¾Hl_¿_¿OdOó²R¿h_¿Hl_¿_¿OdOó²T¿h_¿O²cIkOI _¿dOñ’¿O °Magð•MkØa°§MlÔ]°™agð–OkØa°¥OlÔ_°”agð–OkØa°£OlÔ_°’I _¿N™ONà
¿O™OJK ˆOJK OÉ
ÉN_¿OkOâ$(237 CL:READ 227 CL:READ-PRESERVING-WHITESPACE 214 SETFILEPTR 200 OPENSTRINGSTREAM 195 MKSTRING 118 SUBSTRING 102 NCHARS)
(251 FDEV 244 STREAM 171 :PRESERVE-WHITESPACE 147 :END 126 :START)
()
CL:READ-BYTE :D8
(L (0 -args-)) JekaAlHñ‘i‚laºlHñ‘h‚la»Ig
¼J³LÉ
É<½LdkM’KL (41 \GETSTREAM)
(58 FDEV 51 STREAM 36 INPUT)
()
CL:WRITE-BYTE :D8
(L (1 BINARY-OUTPUT-STREAM 0 INTEGER))
A@
@(6 BOUT)
NIL
()
(RPAQ CLISPCHARS (LDIFFERENCE CLISPCHARS (QUOTE (- *))))
(RPAQ CLISPCHARRAY (MAKEBITTABLE CLISPCHARS))
(RPAQQ DWIMINMACROSFLG NIL)
(CL:PROCLAIM (QUOTE (CL:SPECIAL *READ-DEFAULT-FLOAT-FORMAT*)))
(OR (BOUNDP (QUOTE *READ-DEFAULT-FLOAT-FORMAT*)) (CL:SETQ *READ-DEFAULT-FLOAT-FORMAT* (QUOTE
CL:SINGLE-FLOAT)))
expand-WITH-READER-ENVIRONMENT :D8
(L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 8@!H¹HºgooogoJhIhNIL
(35 LET 15 CL:LAMBDA)
( 40 ((*PACKAGE* (ffetch (READER-ENVIRONMENT REPACKAGE) of E)) (*READTABLE* (ffetch (READER-ENVIRONMENT REREADTABLE) of E)) (*READ-BASE* (ffetch (READER-ENVIRONMENT REBASE) of E)) (*PRINT-BASE* (ffetch (READER-ENVIRONMENT REBASE) of E)))
30 (\DTEST E (QUOTE READER-ENVIRONMENT)) 25 (CL:WHEN (\GETSTREAM E (QUOTE INPUT) T) (SETQ E (READ-READER-ENVIRONMENT STREAM)))
20 (E))
(SETF-MACRO-FUNCTION (QUOTE WITH-READER-ENVIRONMENT) (QUOTE expand-WITH-READER-ENVIRONMENT))
(PUTPROPS WITH-READER-ENVIRONMENT INFO EVAL)
(ADDTOVAR SYSSPECVARS *PACKAGE* *READTABLE* *READ-BASE* *PRINT-BASE*)
(RPAQ? *COMMON-LISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REPACKAGE â†<C3A2> (CL:FIND-PACKAGE "USER")
REREADTABLE â†<C3A2> CMLRDTBL REBASE â†<C3A2> 10 REFORMAT â†<C3A2> :MCCS))
(PUTPROPS CMLREAD FILETYPE :FAKE-COMPILE-FILE)
NIL
Reference in New Issue View Git Blame Copy Permalink