github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-30 21:49:38 +00:00
Code Issues Projects Releases Wiki Activity

DEFINE-FILE-INFO with its own reader environment (#381)

Browse Source 
* DEFINE-FILE-INFO with its own reader environment

Including format.  That reader environment also allows colon as a package delimiter, in addition to the funky control and upper panel character.

"Function" is now a synonym for character set 2.  WITH-READER-ENVIRONMENT doesn't bind EXTERNALFORMAT.

* Changed *DEFAULT-MAKEFILE-ENVIRONMENT* to use Interlisp rdtbl

* Store FDEV's default externalformat in the FDEV

And related adjustments so that the display output stream (which is created in various places) is always created with the right (CR) EOL convention.  Also a little simpler interface for creating external formats.
This commit is contained in:
rmkaplan
2021-08-05 13:43:08 -07:00
committed by GitHub
parent 3fc26567c0
commit d64e9282bf
33 changed files with 32623 additions and 30396 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
sources/XCCS
View File

@@ -1,10 +1,10 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "24-Jun-2021 23:15:05" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;36 13925
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED " 1-Aug-2021 23:16:58" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;37 13678
changes to%: (VARS XCCSCOMS)
changes to%: (FNS \CREATE.XCCS.EXTERNALFORMAT)
previous date%: "24-Jun-2021 16:47:37"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;35)
previous date%: "24-Jun-2021 23:15:05"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;36)
(PRETTYCOMPRINT XCCSCOMS)
@@ -210,19 +210,19 @@
(DEFINEQ
(\CREATE.XCCS.EXTERNALFORMAT
[LAMBDA NIL (* ; "Edited 24-Jun-2021 16:45 by rmk:")
[LAMBDA (NAME EOL) (* ; "Edited 1-Aug-2021 23:13 by rmk:")
(* ;;; "Create the :XCCS external format. Stream's EOL overrides the (vacuous) default here")
(\INSTALL.EXTERNALFORMAT (create EXTERNALFORMAT
NAME _ :XCCS
INCCODEFN _ (FUNCTION \XCCSINCCODE)
PEEKCCODEFN _ (FUNCTION \XCCSPEEKCCODE)
BACKCCODEFN _ (FUNCTION \XCCSBACKCCODE)
OUTCHARFN _ (FUNCTION \XCCSOUTCHAR)
FORMATBYTESTREAMFN _ (FUNCTION \XCCSFORMATBYTESTREAM)
EOL _ LF.EOLC
EOLVALID _ NIL])
(CL:UNLESS NAME (SETQ NAME :XCCS))
(CL:UNLESS EOL
(SETQ EOL 'LF))
(MAKE-EXTERNALFORMAT NAME (FUNCTION \XCCSINCCODE)
(FUNCTION \XCCSPEEKCCODE)
(FUNCTION \XCCSBACKCCODE)
(FUNCTION \XCCSOUTCHAR)
(FUNCTION \XCCSFORMATBYTESTREAM)
EOL])
)
(DEFINEQ
@@ -290,8 +290,8 @@
(\CREATE.XCCS.EXTERNALFORMAT)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1292 1521 (ACCESS-CHARSET 1302 . 1519)) (1522 10652 (\XCCSINCCODE 1532 . 4344) (
\XCCSPEEKCCODE 4346 . 6882) (\XCCSOUTCHAR 6884 . 9422) (\XCCSBACKCCODE 9424 . 10323) (
\XCCSFORMATBYTESTREAM 10325 . 10650)) (10653 11497 (\CREATE.XCCS.EXTERNALFORMAT 10663 . 11495)) (11498
12329 (\NSIN.24BITENCODING.ERROR 11508 . 12327)))))
(FILEMAP (NIL (1333 1562 (ACCESS-CHARSET 1343 . 1560)) (1563 10693 (\XCCSINCCODE 1573 . 4385) (
\XCCSPEEKCCODE 4387 . 6923) (\XCCSOUTCHAR 6925 . 9463) (\XCCSBACKCCODE 9465 . 10364) (
\XCCSFORMATBYTESTREAM 10366 . 10691)) (10694 11250 (\CREATE.XCCS.EXTERNALFORMAT 10704 . 11248)) (11251
12082 (\NSIN.24BITENCODING.ERROR 11261 . 12080)))))
STOP