From 179325c52847c4502fcefbc9e171e191155b0a07 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sat, 24 Apr 2021 17:20:30 -0700 Subject: [PATCH] Remove SEDIT-GAP from lispusers/ISO8859IO Also converted to LF, while I was at it --- lispusers/ISO8859IO | 513 +++++++++++++++++++++++++++++++++++---- lispusers/ISO8859IO.LCOM | Bin 9908 -> 10852 bytes 2 files changed, 466 insertions(+), 47 deletions(-) diff --git a/lispusers/ISO8859IO b/lispusers/ISO8859IO index 8fbe249f..a3e0206a 100644 --- a/lispusers/ISO8859IO +++ b/lispusers/ISO8859IO @@ -1,7 +1,75 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 9-Mar-99 18:20:26" {DSK}medley3.5>lispusers>iso8859io.;3 36139 changes to%: (FNS MAKEMACFORMAT) previous date%: " 9-Mar-99 17:35:17" {DSK}medley3.5>lispusers>iso8859io.;2) (* ; " Copyright (c) 1995, 1996, 1997, 1999 by Xerox Corporation. All rights reserved. ") (PRETTYCOMPRINT ISO8859IOCOMS) (RPAQQ ISO8859IOCOMS ( (* ;; "This package defines EXTERNALFORMATS for files that are encoded in either ISO8859/1, the standard IBM extended ascii, or the usual MAC encoding.") (COMS (* ; "ISO8859/1") (FNS \8859OUTCHARFN \8859INCCODEFN \8859PEEKCCODEFN) (GLOBALVARS *XEROXTOISO8859MAP* *ISO8859TOXEROXMAP*) (FNS MAKEISOFORMAT) (P (MAKEISOFORMAT))) (COMS (* ; "IBM-PC Extended Ascii") (FNS \IBMOUTCHARFN \IBMINCCODEFN \IBMPEEKCCODEFN) (GLOBALVARS *XEROXTOIBMMAP* *IBMTOXEROXMAP*) (FNS MAKEIBMFORMAT) (P (MAKEIBMFORMAT))) (COMS (* ; "Macintosh") (FNS \MACOUTCHARFN \MACINCCODEFN \MACPEEKCCODEFN) (GLOBALVARS *XEROXTOMACMAP* *MACTOXEROXMAP*) (FNS MAKEMACFORMAT) (P (MAKEMACFORMAT))) (COMS (* ; "Independent of char encoding") (FNS \COMMONBACKCHARFN \MAKERECODEMAP \RECODECCODE)) (DECLARE%: EVAL@COMPILE DONTCOPY [P (EVAL (SYSRECLOOK1 'EXTERNALFORMAT] (* ;; "From FILEIO") (CONSTANTS (\NORUNCODE 255)) (* ;; "From LLCHAR") (CONSTANTS (NSCHARSETSHIFT 255)) (* ;; "From LLREAD") (MACROS \XCCSIN \XCCSPEEK \BACKXCCSCHAR) (* ;; "From MODARITH") (MACROS UNFOLD)))) (* ;; "This package defines EXTERNALFORMATS for files that are encoded in either ISO8859/1, the standard IBM extended ascii, or the usual MAC encoding." ) (* ; "ISO8859/1") (DEFINEQ (\8859OUTCHARFN +(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") +(FILECREATED "24-Apr-2021 17:06:30"  +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;3 36846 + + changes to%: (FNS \8859OUTCHARFN \8859INCCODEFN \8859PEEKCCODEFN MAKEISOFORMAT) + + previous date%: "24-Apr-2021 17:06:06" +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;2) + + +(* ; " +Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. +") + +(PRETTYCOMPRINT ISO8859IOCOMS) + +(RPAQQ ISO8859IOCOMS + ( + (* ;; "This package defines EXTERNALFORMATS for files that are encoded in either ISO8859/1, the standard IBM extended ascii, or the usual MAC encoding.") + + (COMS (* ; "ISO8859/1") + (FNS \8859OUTCHARFN \8859INCCODEFN \8859PEEKCCODEFN) + (GLOBALVARS *XEROXTOISO8859MAP* *ISO8859TOXEROXMAP*) + (FNS MAKEISOFORMAT) + (P (MAKEISOFORMAT))) + (COMS (* ; "IBM-PC Extended Ascii") + (FNS \IBMOUTCHARFN \IBMINCCODEFN \IBMPEEKCCODEFN) + (GLOBALVARS *XEROXTOIBMMAP* *IBMTOXEROXMAP*) + (FNS MAKEIBMFORMAT) + (P (MAKEIBMFORMAT))) + (COMS (* ; "Macintosh") + (FNS \MACOUTCHARFN \MACINCCODEFN \MACPEEKCCODEFN) + (GLOBALVARS *XEROXTOMACMAP* *MACTOXEROXMAP*) + (FNS MAKEMACFORMAT) + (P (MAKEMACFORMAT))) + (COMS (* ; "Independent of char encoding") + (FNS \COMMONBACKCHARFN \MAKERECODEMAP \RECODECCODE)) + (DECLARE%: EVAL@COMPILE DONTCOPY [P (EVAL (SYSRECLOOK1 'EXTERNALFORMAT] + + (* ;; "From FILEIO") + + (CONSTANTS (\NORUNCODE 255)) + + (* ;; "From LLCHAR") + + (CONSTANTS (NSCHARSETSHIFT 255)) + + (* ;; "From LLREAD") + + (MACROS \XCCSIN \XCCSPEEK \BACKXCCSCHAR) + + (* ;; "From MODARITH") + + (MACROS UNFOLD)))) + + + +(* ;; +"This package defines EXTERNALFORMATS for files that are encoded in either ISO8859/1, the standard IBM extended ascii, or the usual MAC encoding." +) + + + + +(* ; "ISO8859/1") + +(DEFINEQ + +(\8859OUTCHARFN [LAMBDA (STREAM CHARCODE) - (DECLARE (GLOBALVARS *XEROXTOISO8859MAP*)) (* ; "Edited 9-Mar-99 16:59 by rmk:") - (* ; "Edited 7-Dec-95 14:34 by ") + (DECLARE (GLOBALVARS *XEROXTOISO8859MAP*)) (* ; "Edited 9-Mar-99 16:59 by rmk:") + (* ; "Edited 7-Dec-95 14:34 by ") (* ; "Edited 7-Dec-95 14:32 by ") (* ;; "Converts CHARCODE from internal Xerox-rendering to ISO8859 before printing. Unconverted codes are left unchanged (no error). If any remaining codes are out of charset 0, the Xerox run-encoding is used (which means that y-umlaut (code 255 in iso) will confuse any readers).") @@ -12,9 +80,11 @@ (* ;; "We know that ISO doesn't have floating accents, so only singletons are returned. We also know that it agrees with Xerox on first 128") (\RECODECCODE CHARCODE *XEROXTOISO8859MAP*) - ELSE CHARCODE]) (\8859INCCODEFN - [LAMBDA (STREAM COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") - (* ; "Edited 7-Dec-95 15:24 by ") + ELSE CHARCODE]) + +(\8859INCCODEFN + [LAMBDA (STREAM COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") + (* ; "Edited 7-Dec-95 15:24 by ") (* ; "Edited 7-Dec-95 15:19 by ") (IF COUNTP THEN @@ -29,13 +99,15 @@ (IMINUS COUNT))) ELSE (\RECODECCODE (\XCCSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256)) - *ISO8859TOXEROXMAP*]) (\8859PEEKCCODEFN - [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") - (* ; "Edited 3-Jan-96 14:21 by ") + *ISO8859TOXEROXMAP*]) + +(\8859PEEKCCODEFN + [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") + (* ; "Edited 3-Jan-96 14:21 by ") (* ; "Edited 7-Dec-95 15:51 by ") (* ;; "Uses \XCCSPEEK to handle Xerox run-coding") - (* ; "Edited 7-Dec-95 15:19 by ") + (* ; "Edited 7-Dec-95 15:19 by ") (LET (PCODE (COUNT 0)) (SETQ PCODE (IF COUNTP THEN (\XCCSPEEK STREAM (UNFOLD (ACCESS-CHARSET STREAM) @@ -47,11 +119,20 @@ (IF COUNTP THEN (CL:VALUES (AND PCODE (\RECODECCODE PCODE *ISO8859TOXEROXMAP*)) COUNT) - ELSE (AND PCODE (\RECODECCODE PCODE *ISO8859TOXEROXMAP*]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS *XEROXTOISO8859MAP* *ISO8859TOXEROXMAP*) ) (DEFINEQ (MAKEISOFORMAT - [LAMBDA NIL (* ; "Edited 9-Mar-99 17:19 by rmk:") - (* ; "Edited 7-Dec-95 16:24 by ") + ELSE (AND PCODE (\RECODECCODE PCODE *ISO8859TOXEROXMAP*]) +) +(DECLARE%: DOEVAL@COMPILE DONTCOPY + +(GLOBALVARS *XEROXTOISO8859MAP* *ISO8859TOXEROXMAP*) +) +(DEFINEQ + +(MAKEISOFORMAT + [LAMBDA NIL (* ; "Edited 24-Apr-2021 17:01 by rmk:") + (* ; "Edited 9-Mar-99 17:19 by rmk:") + (* ; "Edited 7-Dec-95 16:24 by ") (* ; "Edited 7-Dec-95 16:20 by ") - [LET ((XEROXTOISO '((61217 160) + (LET [(XEROXTOISO '((61217 160) (61291 166) (8994 168) (211 169) @@ -129,15 +210,24 @@ (252 254) (61933 255) (61805 376] - (SETQ *XEROXTOISO8859MAP* (\MAKERECODEMAP XEROXTOISO)) - (SETQ *ISO8859TOXEROXMAP* (\MAKERECODEMAP - '#.(SEDIT::MAKE-GAP '(0 . #*(15 7)@@@@@DD@@BH@OICN@BH@@DD@@@@@)) - T)) + (SETQ *XEROXTOISO8859MAP* (\MAKERECODEMAP XEROXTOISO)) + (SETQ *ISO8859TOXEROXMAP* (\MAKERECODEMAP XEROXTOISO T))) (\INSTALL.EXTERNALFORMAT :ISO8859/1 (CREATE EXTERNALFORMAT INCCODEFN _ (FUNCTION \8859INCCODEFN) PEEKCCODEFN _ (FUNCTION \8859PEEKCCODEFN) BACKCHARFN _ (FUNCTION \COMMONBACKCHARFN) - FILEOUTCHARFN _ (FUNCTION \8859OUTCHARFN]) ) (MAKEISOFORMAT) (* ; "IBM-PC Extended Ascii") (DEFINEQ (\IBMOUTCHARFN + FILEOUTCHARFN _ (FUNCTION \8859OUTCHARFN]) +) + +(MAKEISOFORMAT) + + + +(* ; "IBM-PC Extended Ascii") + +(DEFINEQ + +(\IBMOUTCHARFN [LAMBDA (STREAM CHARCODE) (* ; "Edited 9-Mar-99 16:59 by rmk:") (* ;; "Converts CHARCODE from internal Xerox-rendering to IBM before printing. Unconverted codes are left unchanged (no error). If any remaining codes are out of charset 0, the Xerox run-encoding is used (which means that y-umlaut (code 255 in iso) will confuse any readers).") @@ -148,12 +238,14 @@ (* ;; "We know that IBM doesn't have floating accents, so only singletons are returned. We also know that it agrees with Xerox on first 128") (\RECODECCODE CHARCODE *XEROXTOIBMMAP*) - ELSE CHARCODE]) (\IBMINCCODEFN - [LAMBDA (STREAM COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") + ELSE CHARCODE]) + +(\IBMINCCODEFN + [LAMBDA (STREAM COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") (* ; "Edited 8-Dec-95 13:23 by ") (* ;; "Uses \XCCSIN to handle Xerox run-coding") - (* ; "Edited 7-Dec-95 15:19 by ") + (* ; "Edited 7-Dec-95 15:19 by ") (IF COUNTP THEN (LET ((COUNT 0)) (CL:VALUES (\RECODECCODE (\XCCSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) @@ -163,14 +255,16 @@ (IMINUS COUNT))) ELSE (\RECODECCODE (\XCCSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256)) - *IBMTOXEROXMAP*]) (\IBMPEEKCCODEFN - [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") - (* ; "Edited 3-Jan-96 14:23 by ") - (* ; "Edited 8-Dec-95 13:24 by ") + *IBMTOXEROXMAP*]) + +(\IBMPEEKCCODEFN + [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") + (* ; "Edited 3-Jan-96 14:23 by ") + (* ; "Edited 8-Dec-95 13:24 by ") (* ; "Edited 7-Dec-95 15:51 by ") (* ;; "Uses \XCCSPEEK to handle Xerox run-coding") - (* ; "Edited 7-Dec-95 15:19 by ") + (* ; "Edited 7-Dec-95 15:19 by ") (LET (PCODE (COUNT 0)) (SETQ PCODE (IF COUNTP THEN (\XCCSPEEK STREAM (UNFOLD (ACCESS-CHARSET STREAM) @@ -182,7 +276,15 @@ (IF COUNTP THEN (CL:VALUES (AND PCODE (\RECODECCODE PCODE *IBMTOXEROXMAP*)) COUNT) - ELSE (AND PCODE (\RECODECCODE PCODE *IBMTOXEROXMAP*]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS *XEROXTOIBMMAP* *IBMTOXEROXMAP*) ) (DEFINEQ (MAKEIBMFORMAT + ELSE (AND PCODE (\RECODECCODE PCODE *IBMTOXEROXMAP*]) +) +(DECLARE%: DOEVAL@COMPILE DONTCOPY + +(GLOBALVARS *XEROXTOIBMMAP* *IBMTOXEROXMAP*) +) +(DEFINEQ + +(MAKEIBMFORMAT [LAMBDA NIL (* ; "Edited 9-Mar-99 17:33 by rmk:") (LET [(XEROXTOIBM '((61217 255) (61291 166) @@ -277,7 +379,18 @@ INCCODEFN _ (FUNCTION \IBMINCCODEFN) PEEKCCODEFN _ (FUNCTION \IBMPEEKCCODEFN) BACKCHARFN _ (FUNCTION \COMMONBACKCHARFN) - FILEOUTCHARFN _ (FUNCTION \IBMOUTCHARFN]) ) (MAKEIBMFORMAT) (* ; "Macintosh") (DEFINEQ (\MACOUTCHARFN + FILEOUTCHARFN _ (FUNCTION \IBMOUTCHARFN]) +) + +(MAKEIBMFORMAT) + + + +(* ; "Macintosh") + +(DEFINEQ + +(\MACOUTCHARFN [LAMBDA (STREAM CHARCODE) (* ; "Edited 9-Mar-99 16:59 by rmk:") (* ;; "Converts CHARCODE from internal Xerox-rendering to MAC before printing. Unconverted codes are left unchanged (no error). If any remaining codes are out of charset 0, the Xerox run-encoding is used (which means that code 255 will confuse any readers).") @@ -288,8 +401,10 @@ (* ;; "We know that MAC doesn't have floating accents, so only singletons are returned. We also know that it agrees with Xerox on first 128") (\RECODECCODE CHARCODE *XEROXTOMACMAP*) - ELSE CHARCODE]) (\MACINCCODEFN - [LAMBDA (STREAM COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") + ELSE CHARCODE]) + +(\MACINCCODEFN + [LAMBDA (STREAM COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") (* ; "Edited 8-Dec-95 13:29 by ") (* ;; "Uses \XCCSIN to handle Xerox run-coding") @@ -303,9 +418,11 @@ (IMINUS COUNT))) ELSE (\RECODECCODE (\XCCSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256)) - *MACTOXEROXMAP*]) (\MACPEEKCCODEFN - [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") - (* ; "Edited 3-Jan-96 14:23 by ") + *MACTOXEROXMAP*]) + +(\MACPEEKCCODEFN + [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") + (* ; "Edited 3-Jan-96 14:23 by ") (* ; "Edited 8-Dec-95 13:29 by ") (* ;; "Uses \XCCSPEEK to handle Xerox run-coding") @@ -321,17 +438,157 @@ (IF COUNTP THEN (CL:VALUES (AND PCODE (\RECODECCODE PCODE *MACTOXEROXMAP*)) COUNT) - ELSE (AND PCODE (\RECODECCODE PCODE *MACTOXEROXMAP*]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS *XEROXTOMACMAP* *MACTOXEROXMAP*) ) (DEFINEQ (MAKEMACFORMAT [LAMBDA NIL (* ; "Edited 9-Mar-99 17:32 by rmk:") (* ; "Edited 7-Dec-95 16:24 by ") (* ; "Edited 7-Dec-95 16:20 by ") (* ;; "Note: This maps some characters into sequences--only the first in the sequence will appear. Sigh.") (LET [(XEROXTOMAC '((211 212) (227 187) (61290 194) (210 168) (203 252) (209 213) (235 188) (61729 203) (61730 231) (61731 171) (61732 204) (61735 128) (61736 129) (225 174) (61741 130) (61744 172) (61745 131) (61746 230) (61749 232) (61758 237) (61759 234) (61760 235) (61764 236) (61772 132) (61775 241) (61776 238) (61777 170) (61778 205) (61780 133) (233 175) (61791 244) (61792 242) (61793 243) (61797 134) (61803 194 89) (251 167) (61857 136) (61858 135) (61859 137) (61860 139) (61863 138) (61864 140) (241 190) (61869 141) (61872 143) (61873 142) (61874 144) (61877 145) (61886 147) (61887 146) (61888 148) (61892 149) (61900 150) (61903 152) (61904 151) (61905 153) (61906 155) (61908 154) (184 214) (249 191) (61919 157) (61920 156) (61921 158) (61925 159) (61931 194 121) (61933 216) (61805 217) (61232 160) (176 161) (167 164) (61286 165) (182 166) (8546 173) (8551 176) (8549 178) (8550 179) (165 180) (61370 182) (61306 183) (61307 184) (9843 185) (61301 186) (191 192) (161 193) (61308 195) (61346 196) (61305 197) (9797 198) (171 199) (187 200) (8516 201) (32 202) (61220 208) (61221 209) (8574 215) (47 218) (164 219) (61226 220) (61227 221) (61476 222) (61477 223) (61233 224) (183 225) (9138 226) (61224 227) (61249 228] (SETQ *XEROXTOMACMAP* (\MAKERECODEMAP XEROXTOMAC)) (SETQ *MACTOXEROXMAP* (\MAKERECODEMAP XEROXTOMAC T)) (\INSTALL.EXTERNALFORMAT :MACINTOSH (CREATE EXTERNALFORMAT INCCODEFN _ (FUNCTION \MACINCCODEFN) PEEKCCODEFN _ (FUNCTION \MACPEEKCCODEFN) BACKCHARFN _ (FUNCTION \COMMONBACKCHARFN) FILEOUTCHARFN _ (FUNCTION \MACOUTCHARFN]) ) (MAKEMACFORMAT) (* ; "Independent of char encoding") (DEFINEQ (\COMMONBACKCHARFN - [LAMBDA (STREAM COUNTP) (* ; "Edited 29-Mar-96 10:55 by rmk") - (* ; "Edited 8-Dec-95 13:26 by ") - - (* ;; "Let \BACKXCCSCHAR handle the run-coding. The charset in the stream is the charset byte, unconverted to ISO. This is independent of the particular character translation.") - - (IF COUNTP - THEN (LET ((COUNT 0)) - (\BACKXCCSCHAR STREAM COUNT) - COUNT) - ELSE (\BACKXCCSCHAR STREAM NIL]) (\MAKERECODEMAP + ELSE (AND PCODE (\RECODECCODE PCODE *MACTOXEROXMAP*]) +) +(DECLARE%: DOEVAL@COMPILE DONTCOPY + +(GLOBALVARS *XEROXTOMACMAP* *MACTOXEROXMAP*) +) +(DEFINEQ + +(MAKEMACFORMAT + [LAMBDA NIL (* ; "Edited 9-Mar-99 17:32 by rmk:") + (* ; "Edited 7-Dec-95 16:24 by ") + (* ; "Edited 7-Dec-95 16:20 by ") + + (* ;; "Note: This maps some characters into sequences--only the first in the sequence will appear. Sigh.") + + (LET [(XEROXTOMAC '((211 212) + (227 187) + (61290 194) + (210 168) + (203 252) + (209 213) + (235 188) + (61729 203) + (61730 231) + (61731 171) + (61732 204) + (61735 128) + (61736 129) + (225 174) + (61741 130) + (61744 172) + (61745 131) + (61746 230) + (61749 232) + (61758 237) + (61759 234) + (61760 235) + (61764 236) + (61772 132) + (61775 241) + (61776 238) + (61777 170) + (61778 205) + (61780 133) + (233 175) + (61791 244) + (61792 242) + (61793 243) + (61797 134) + (61803 194 89) + (251 167) + (61857 136) + (61858 135) + (61859 137) + (61860 139) + (61863 138) + (61864 140) + (241 190) + (61869 141) + (61872 143) + (61873 142) + (61874 144) + (61877 145) + (61886 147) + (61887 146) + (61888 148) + (61892 149) + (61900 150) + (61903 152) + (61904 151) + (61905 153) + (61906 155) + (61908 154) + (184 214) + (249 191) + (61919 157) + (61920 156) + (61921 158) + (61925 159) + (61931 194 121) + (61933 216) + (61805 217) + (61232 160) + (176 161) + (167 164) + (61286 165) + (182 166) + (8546 173) + (8551 176) + (8549 178) + (8550 179) + (165 180) + (61370 182) + (61306 183) + (61307 184) + (9843 185) + (61301 186) + (191 192) + (161 193) + (61308 195) + (61346 196) + (61305 197) + (9797 198) + (171 199) + (187 200) + (8516 201) + (32 202) + (61220 208) + (61221 209) + (8574 215) + (47 218) + (164 219) + (61226 220) + (61227 221) + (61476 222) + (61477 223) + (61233 224) + (183 225) + (9138 226) + (61224 227) + (61249 228] + (SETQ *XEROXTOMACMAP* (\MAKERECODEMAP XEROXTOMAC)) + (SETQ *MACTOXEROXMAP* (\MAKERECODEMAP XEROXTOMAC T)) + (\INSTALL.EXTERNALFORMAT :MACINTOSH (CREATE EXTERNALFORMAT + INCCODEFN _ (FUNCTION \MACINCCODEFN) + PEEKCCODEFN _ (FUNCTION \MACPEEKCCODEFN) + BACKCHARFN _ (FUNCTION \COMMONBACKCHARFN) + FILEOUTCHARFN _ (FUNCTION \MACOUTCHARFN]) +) + +(MAKEMACFORMAT) + + + +(* ; "Independent of char encoding") + +(DEFINEQ + +(\COMMONBACKCHARFN + [LAMBDA (STREAM COUNTP) (* ; "Edited 29-Mar-96 10:55 by rmk") + (* ; "Edited 8-Dec-95 13:26 by ") + + (* ;; "Let \BACKXCCSCHAR handle the run-coding. The charset in the stream is the charset byte, unconverted to ISO. This is independent of the particular character translation.") + + (IF COUNTP + THEN (LET ((COUNT 0)) + (\BACKXCCSCHAR STREAM COUNT) + COUNT) + ELSE (\BACKXCCSCHAR STREAM NIL]) + +(\MAKERECODEMAP [LAMBDA (CODEMAP INVERTED) (* ; "Edited 9-Mar-99 17:23 by rmk:") (* ;; "Produces a map array for use by \RECODECCODE. The map array is a 256-array of either NIL or 256-arrays, so that space isn't allocated for widely separated codes.") @@ -351,7 +608,9 @@ CSMAP)) (CL:SETF (CL:SVREF CSMAP (LOGAND (CAR M) 255)) - (CADR M)) FINALLY (RETURN MAPARRAY]) (\RECODECCODE + (CADR M)) FINALLY (RETURN MAPARRAY]) + +(\RECODECCODE [LAMBDA (CODE MAPARRAY) (* ; "Edited 9-Mar-99 17:28 by rmk:") (* ; "Edited 21-Jun-95 10:18 by rmk:") @@ -359,4 +618,164 @@ (LET [(CSMAP (CL:SVREF MAPARRAY (LRSH CODE 8] (OR (AND CSMAP (CL:SVREF CSMAP (LOGAND CODE 255))) - CODE]) ) (DECLARE%: EVAL@COMPILE DONTCOPY (EVAL (SYSRECLOOK1 'EXTERNALFORMAT)) (DECLARE%: EVAL@COMPILE (RPAQQ \NORUNCODE 255) (CONSTANTS (\NORUNCODE 255)) ) (DECLARE%: EVAL@COMPILE (RPAQQ NSCHARSETSHIFT 255) (CONSTANTS (NSCHARSETSHIFT 255)) ) (DECLARE%: EVAL@COMPILE [PUTPROPS \XCCSIN MACRO ((STREAM SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR) (* ;;; "returns a 16 bit character code. SHIFTEDCSET is STREAM's char set left shifted 8, SHIFTEDCSETVAR if non-NIL is the variable to set if char set changes. COUNTERVAR if non-NIL is decremented by number of bytes read. Doesn't do EOL conversion -- \INCHAR and \INCCODE do that.") (LET ((CHAR (\BIN STREAM)) SCSET) (COND [(EQ CHAR NSCHARSETSHIFT) (* ; "Shifting character sets") [ACCESS-CHARSET STREAM (SETQ SCSET (COND ((NEQ NSCHARSETSHIFT (SETQ CHAR (\BIN STREAM))) (AND 'COUNTERVAR (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2)) ) CHAR) ((PROGN (* ;  "2 shift-bytes means not run-encoded") (AND 'COUNTERVAR (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 3) )) (EQ 0 (\BIN STREAM))) \NORUNCODE) (T (\NSIN.24BITENCODING.ERROR STREAM] (SETQ CHAR (\BIN STREAM)) (SETQ SCSET (COND ('SHIFTEDCSETVAR (* ; "CHARSETVAR=NIL means don't set") (SETQ SHIFTEDCSETVAR (UNFOLD SCSET 256))) (T (UNFOLD SCSET 256] (T (SETQ SCSET SHIFTEDCSET))) (COND ((EQ SCSET (UNFOLD \NORUNCODE 256)) (* ;  "just read two bytes and combine them to a 16 bit value") (AND 'COUNTERVAR (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2))) (LOGOR (UNFOLD CHAR 256) (\BIN STREAM))) (CHAR (AND 'COUNTERVAR (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 1))) (AND CHAR (LOGOR SCSET CHAR] [PUTPROPS \XCCSPEEK MACRO ((STREAM SHIFTEDCSET SHIFTEDCSETVAR NOERROR COUNTERVAR) (* ;; "Returns a 16 bit character code. Doesn't do EOL conversion--\INCHAR does that. May actually read the character-set shift, storing the result in the stream. COUNTERVAR, if given, is updated to reflect any such bytes that are actually read") (PROG ((CHAR (\PEEKBIN STREAM NOERROR)) SCSET) (COND ((NULL CHAR) (RETURN NIL)) [(EQ CHAR NSCHARSETSHIFT)(* ; "CHARSETVAR=NIL means don't set") (\BIN STREAM) (* ; "Consume the char shift byte") [ACCESS-CHARSET STREAM (SETQ SCSET (COND ((NEQ NSCHARSETSHIFT (SETQ CHAR (\BIN STREAM))) (* ;  "Note: no eof error check on this \BIN -- an eof in the middle of a charset shift is an error") (AND 'COUNTERVAR (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2))) CHAR) ((PROGN (* ;  "2 shift-bytes means not run-encoded") (AND 'COUNTERVAR (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 3))) (EQ 0 (\BIN STREAM))) \NORUNCODE) (T (\NSIN.24BITENCODING.ERROR STREAM] [SETQ SCSET (COND ('SHIFTEDCSETVAR (* ; "CHARSETVAR=NIL means don't set") (SETQ SHIFTEDCSETVAR (UNFOLD SCSET 256))) (T (UNFOLD SCSET 256] (COND ((NULL (SETQ CHAR (\PEEKBIN STREAM NOERROR))) (RETURN NIL] (T (SETQ SCSET SHIFTEDCSET))) (RETURN (COND ((EQ SCSET (UNFOLD \NORUNCODE 256)) (* ;; "just peek two bytes and combine them to a 16 bit value. Again, is an error if we hit eof in mid-character") (\BIN STREAM) (PROG1 (LOGOR (UNFOLD CHAR 256) (\PEEKBIN STREAM NOERROR)) (\BACKFILEPTR STREAM))) (T (LOGOR SHIFTEDCSET CHAR] [PUTPROPS \BACKXCCSCHAR MACRO ((STREAM SHIFTEDCHARSET COUNTERVAR) (AND (\BACKFILEPTR STREAM) (COND [[COND (SHIFTEDCHARSET (EQ SHIFTEDCHARSET (UNFOLD \NORUNCODE 256) )) (T (EQ \NORUNCODE (ACCESS-CHARSET STREAM] (COND ((\BACKFILEPTR STREAM) (AND 'COUNTERVAR (add COUNTERVAR 2)) T) ('COUNTERVAR (add COUNTERVAR 1] ('COUNTERVAR (add COUNTERVAR 1] ) (DECLARE%: EVAL@COMPILE [PUTPROPS UNFOLD MACRO (X (PROG [(FORM (CAR X)) (DIVISOR (CAR (CONSTANTEXPRESSIONP (CADR X] (OR (AND DIVISOR (POWEROFTWOP DIVISOR)) (\ILLEGAL.ARG (CADR X))) (RETURN (LIST 'LLSH FORM (SUB1 (INTEGERLENGTH DIVISOR] ) ) (PUTPROPS ISO8859IO COPYRIGHT ("Xerox Corporation" 1995 1996 1997 1999)) (DECLARE%: DONTCOPY (FILEMAP (NIL (2796 6275 (\8859OUTCHARFN 2806 . 3876) (\8859INCCODEFN 3878 . 5078) (\8859PEEKCCODEFN 5080 . 6273)) (6367 10157 (MAKEISOFORMAT 6377 . 10155)) (10217 13320 (\IBMOUTCHARFN 10227 . 11052) ( \IBMINCCODEFN 11054 . 12028) (\IBMPEEKCCODEFN 12030 . 13318)) (13404 17155 (MAKEIBMFORMAT 13414 . 17153)) (17203 19986 (\MACOUTCHARFN 17213 . 18020) (\MACINCCODEFN 18022 . 18897) (\MACPEEKCCODEFN 18899 . 19984)) (20070 24867 (MAKEMACFORMAT 20080 . 24865)) (24934 27228 (\COMMONBACKCHARFN 24944 . 25549) (\MAKERECODEMAP 25551 . 26781) (\RECODECCODE 26783 . 27226))))) STOP \ No newline at end of file + CODE]) +) +(DECLARE%: EVAL@COMPILE DONTCOPY + +(EVAL (SYSRECLOOK1 'EXTERNALFORMAT)) + +(DECLARE%: EVAL@COMPILE + +(RPAQQ \NORUNCODE 255) + + +(CONSTANTS (\NORUNCODE 255)) +) + +(DECLARE%: EVAL@COMPILE + +(RPAQQ NSCHARSETSHIFT 255) + + +(CONSTANTS (NSCHARSETSHIFT 255)) +) + +(DECLARE%: EVAL@COMPILE + +(PUTPROPS \XCCSIN MACRO [(STREAM SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR) + +(* ;;; "returns a 16 bit character code. SHIFTEDCSET is STREAM's char set left shifted 8, SHIFTEDCSETVAR if non-NIL is the variable to set if char set changes. COUNTERVAR if non-NIL is decremented by number of bytes read. Doesn't do EOL conversion -- \INCHAR and \INCCODE do that.") + + (LET ((CHAR (\BIN STREAM)) + SCSET) + (COND + [(EQ CHAR NSCHARSETSHIFT) + (* ; "Shifting character sets") + [ACCESS-CHARSET STREAM + (SETQ SCSET (COND + ((NEQ NSCHARSETSHIFT (SETQ CHAR + (\BIN STREAM))) + (AND 'COUNTERVAR (SETQ COUNTERVAR + (IDIFFERENCE + COUNTERVAR 2))) + CHAR) + ((PROGN + (* ; + "2 shift-bytes means not run-encoded") + (AND 'COUNTERVAR + (SETQ COUNTERVAR + (IDIFFERENCE COUNTERVAR + 3))) + (EQ 0 (\BIN STREAM))) + \NORUNCODE) + (T (\NSIN.24BITENCODING.ERROR STREAM] + (SETQ CHAR (\BIN STREAM)) + (SETQ SCSET (COND + ('SHIFTEDCSETVAR + (* ; "CHARSETVAR=NIL means don't set") + (SETQ SHIFTEDCSETVAR (UNFOLD SCSET + 256))) + (T (UNFOLD SCSET 256] + (T (SETQ SCSET SHIFTEDCSET))) + (COND + ((EQ SCSET (UNFOLD \NORUNCODE 256)) + (* ; + "just read two bytes and combine them to a 16 bit value") + (AND 'COUNTERVAR (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2 + ))) + (LOGOR (UNFOLD CHAR 256) + (\BIN STREAM))) + (CHAR (AND 'COUNTERVAR (SETQ COUNTERVAR (IDIFFERENCE + COUNTERVAR 1) + )) + (AND CHAR (LOGOR SCSET CHAR]) + +(PUTPROPS \XCCSPEEK MACRO [(STREAM SHIFTEDCSET SHIFTEDCSETVAR NOERROR COUNTERVAR) + + (* ;; "Returns a 16 bit character code. Doesn't do EOL conversion--\INCHAR does that. May actually read the character-set shift, storing the result in the stream. COUNTERVAR, if given, is updated to reflect any such bytes that are actually read") + + (PROG ((CHAR (\PEEKBIN STREAM NOERROR)) + SCSET) + (COND + ((NULL CHAR) + (RETURN NIL)) + [(EQ CHAR NSCHARSETSHIFT) + (* ; "CHARSETVAR=NIL means don't set") + (\BIN STREAM) (* ; "Consume the char shift byte") + [ACCESS-CHARSET STREAM + (SETQ SCSET (COND + ((NEQ NSCHARSETSHIFT + (SETQ CHAR (\BIN STREAM))) + (* ; + "Note: no eof error check on this \BIN -- an eof in the middle of a charset shift is an error") + (AND 'COUNTERVAR + (SETQ COUNTERVAR + (IDIFFERENCE COUNTERVAR 2)) + ) + CHAR) + ((PROGN + (* ; + "2 shift-bytes means not run-encoded") + (AND 'COUNTERVAR + (SETQ COUNTERVAR + (IDIFFERENCE + COUNTERVAR 3) + )) + (EQ 0 (\BIN STREAM))) + \NORUNCODE) + (T (\NSIN.24BITENCODING.ERROR + STREAM] + [SETQ SCSET (COND + ('SHIFTEDCSETVAR + (* ; "CHARSETVAR=NIL means don't set") + (SETQ SHIFTEDCSETVAR + (UNFOLD SCSET 256))) + (T (UNFOLD SCSET 256] + (COND + ((NULL (SETQ CHAR (\PEEKBIN STREAM NOERROR))) + (RETURN NIL] + (T (SETQ SCSET SHIFTEDCSET))) + (RETURN (COND + ((EQ SCSET (UNFOLD \NORUNCODE 256)) + + (* ;; "just peek two bytes and combine them to a 16 bit value. Again, is an error if we hit eof in mid-character") + + (\BIN STREAM) + (PROG1 (LOGOR (UNFOLD CHAR 256) + (\PEEKBIN STREAM NOERROR)) + (\BACKFILEPTR STREAM))) + (T (LOGOR SHIFTEDCSET CHAR]) + +(PUTPROPS \BACKXCCSCHAR MACRO [(STREAM SHIFTEDCHARSET COUNTERVAR) + (AND (\BACKFILEPTR STREAM) + (COND + [[COND + (SHIFTEDCHARSET (EQ SHIFTEDCHARSET + (UNFOLD \NORUNCODE 256))) + (T (EQ \NORUNCODE (ACCESS-CHARSET STREAM] + (COND + ((\BACKFILEPTR STREAM) + (AND 'COUNTERVAR (add COUNTERVAR 2)) + T) + ('COUNTERVAR (add COUNTERVAR 1] + ('COUNTERVAR (add COUNTERVAR 1]) +) + +(DECLARE%: EVAL@COMPILE + +(PUTPROPS UNFOLD MACRO [X (PROG [(FORM (CAR X)) + (DIVISOR (CAR (CONSTANTEXPRESSIONP (CADR X] + (OR (AND DIVISOR (POWEROFTWOP DIVISOR)) + (\ILLEGAL.ARG (CADR X))) + (RETURN (LIST 'LLSH FORM (SUB1 (INTEGERLENGTH DIVISOR]) +) +) +(PUTPROPS ISO8859IO COPYRIGHT ("Xerox Corporation" 1995 1996 1997 1999 2021)) +(DECLARE%: DONTCOPY + (FILEMAP (NIL (2391 5846 (\8859OUTCHARFN 2401 . 3463) (\8859INCCODEFN 3465 . 4657) (\8859PEEKCCODEFN +4659 . 5844)) (5938 9711 (MAKEISOFORMAT 5948 . 9709)) (9771 12858 (\IBMOUTCHARFN 9781 . 10606) ( +\IBMINCCODEFN 10608 . 11578) (\IBMPEEKCCODEFN 11580 . 12856)) (12942 16693 (MAKEIBMFORMAT 12952 . +16691)) (16741 19512 (\MACOUTCHARFN 16751 . 17558) (\MACINCCODEFN 17560 . 18431) (\MACPEEKCCODEFN +18433 . 19510)) (19596 24385 (MAKEMACFORMAT 19606 . 24383)) (24452 26736 (\COMMONBACKCHARFN 24462 . +25057) (\MAKERECODEMAP 25059 . 26289) (\RECODECCODE 26291 . 26734))))) +STOP diff --git a/lispusers/ISO8859IO.LCOM b/lispusers/ISO8859IO.LCOM index 61c04df6caabe23986da9268b44ccc7d9fd746eb..c31c5fe17ce21820b0fc2889e7b707bc67343a02 100644 GIT binary patch delta 2138 zcmbu9O>Y}T7{{A7&~!r+N|om2!o(56TNE=dyE`)mj5f}OTFKg$k&w9cf;b@|ByR8x_|MKbF9Os`;jPxmHWM;W&2g>_YU_T=Gxk3L#a^L8l~5S z4;mX@zy-WaWq}+STL0x;;`Kn=SbK|{w^b^Y3S_r)1Tz=yM&*!}IWPE6tVz&O4fme1 z2qGdCL}cgv&ffj*AvqenR3^o>`X=$R$A!|6r15%!qSqR&G;aH3|DgL}Z}9Li_YdjC z0`h*-Xyonbta0Dle!(=makpK)6Svmtq`a!U?AEn+$Goh0d2ZG#LXsaxy;^OoCQflO zy!`DLBy^n3pGulZvVKAI>Et(;pYe)ZvFwY9nQZ0i9NO-C7wXM{#U`O-D`_>h+6{EV zCzsyNKAW1I`r%H`yM(`4^K&z+&#SQ@`}OL=Sd=|GUBJDR5y{=1`Hv*ot~S!NQD2Fx z>#nF!S=o7qfwsBYX<-2;$KzL$t#;C?#~b!I+V`5t(lHT|l-<32l@Yd?5C5+4pLfnpA;ust(amPfWr z0y&4&46#9C4-F7=P;E30sP(_jFrc{m|ac+o19%2)2fhsg&Tc3rbWqHHbQ9|$++A!QIw&qJ4-FIEEv0^tRKu`Xp(+ z3y5))vFWAkulWINzPIqx_^kKud6#!Fe(~`;UcI)Fx5UicR$?YN+>T~0<0Pguq@+pE zY!fmQQWN6*n?&c4M5OXaA(D9%Wdrgz+SOU~XL5kuJRkqIonJ4$IWfYY{IU4s_;VNx Lc#Qsac)I=%Dx&bS delta 1300 zcma)5!B5jr7~jScAX1Dh2qS2|6esP>W?yU9wd!2gbudQPxz%JUmkEo`09!UZ7&TnH zc*B&Fe}ge3_zw^dCVJ)M#h7^TKuo-O^u4a515Dr@UcdL=uiy9keZTj9S|5$A)F#E` z@{77w)>TW-0u6G^sI_CV3@EAaoFWJ`F!XYBt<_kquRwDhLtbPng;%#)?dH?^@F2u#uYNOM7)~UBUsYa)nOp0=&8NVs8K+(J$Td1u&S&_nvI57>6+I5_EvzvGM zNp1acy%SNuPz$=DYB{rPs1`JEJ;NygUXFM?PQyxV1M@kaT2hcmv!`g{6P|{-vxxv9 zfdm;`ny}HtOc^Rytn~QWU;W`~U-KkI5EUeOh0aumr&wxa0K)%_#uEnZwAqA0wS%>S4_9n zq!5z>4ytgA z-HtV%#TMi<#z~K^Q4B&5?KLoCkjhwp7w<_Rt?oJYca)v%A^L?o7}v00 z7ubu3hGmRC!|d6y_t??>v28!K+X(#_2vOJ$?KEl_;!(qk|5Muzvq4hU-V29tdY8=W zX^)KeP@QY~X_}B}U3!Pn=PrKdGI?V