add IOCHAR to exportfiles and export \CATRANSLATE (#933)
This commit is contained in:
Larry Masinter
GitHub
parent
147abac04c
commit
06a7356b00
@ -1,12 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "17-Oct-2021 16:06:59"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILESETS.;17 6482
|
||||
(FILECREATED "11-Sep-2022 20:08:31" {DSK}<home>larry>medley>sources>FILESETS.;2 6394
|
||||
|
||||
changes to%: (VARS EXPORTFILES)
|
||||
:CHANGES-TO (VARS EXPORTFILES)
|
||||
|
||||
previous date%: "17-Oct-2021 13:52:47"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILESETS.;16)
|
||||
:PREVIOUS-DATE "17-Oct-2021 16:06:59" {DSK}<home>larry>medley>sources>FILESETS.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
@ -52,10 +50,10 @@ Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation.
|
||||
|
||||
(RPAQQ FILESETS (0LISPSET 1LISPSET 2LISPSET 3LISPSET))
|
||||
|
||||
(RPAQQ 0LISPSET (PACKAGE-CONVERSION-TABLE LLFAULT LLSUBRS LLBFS LLNEW FILEIO EXTERNALFORMAT
|
||||
IMAGEIO LLBASIC LLGC LLARRAYELT LLINTERP LLMVS DEFSTRUCT-RUN-TIME
|
||||
SETF-RUNTIME CMLSEQBASICS LLARITH LLFLOAT LLBIGNUM LLREAD XCCS LLCHAR
|
||||
LLSTK LLDATATYPE IOCHAR LLKEY LLTIMER))
|
||||
(RPAQQ 0LISPSET (PACKAGE-CONVERSION-TABLE LLFAULT LLSUBRS LLBFS LLNEW FILEIO EXTERNALFORMAT IMAGEIO
|
||||
LLBASIC LLGC LLARRAYELT LLINTERP LLMVS DEFSTRUCT-RUN-TIME SETF-RUNTIME
|
||||
CMLSEQBASICS LLARITH LLFLOAT LLBIGNUM LLREAD XCCS LLCHAR LLSTK LLDATATYPE
|
||||
IOCHAR LLKEY LLTIMER))
|
||||
|
||||
(RPAQQ 1LISPSET
|
||||
(ASTACK DTDECLARE ATBL LLCODE ACODE COREIO AOFD ADIR PMAP VANILLADISK ATERM APRINT ABASIC
|
||||
@ -69,8 +67,8 @@ Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation.
|
||||
(RPAQQ 3LISPSET (MACROS DLAP BYTECOMPILER COMPILE))
|
||||
|
||||
(RPAQQ EXPORTFILES
|
||||
(MODARITH LLPARAMS LLCODE AERROR AOFD APRINT ATERM LLARRAYELT LLDATATYPE LLNEW LLBASIC LLCHAR
|
||||
LLSTK PMAP LLGC ATBL FILEIO EXTERNALFORMAT LLARITH LLFLOAT FONT LLKEY LLDISPLAY
|
||||
(IOCHAR MODARITH LLPARAMS LLCODE AERROR AOFD APRINT ATERM LLARRAYELT LLDATATYPE LLNEW LLBASIC
|
||||
LLCHAR LLSTK PMAP LLGC ATBL FILEIO EXTERNALFORMAT LLARITH LLFLOAT FONT LLKEY LLDISPLAY
|
||||
ADISPLAY AINTERRUPT RENAMEMACROS HLDISPLAY WINDOW MACROAUX ADDARITH LLFAULT LLTIMER
|
||||
IMAGEIO PROC XCCS PASSWORDS INTERPRESS HARDCOPY CMLARRAY LLSUBRS LLETHER PUP UFS
|
||||
DTDECLARE))
|
||||
@ -131,19 +129,19 @@ Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation.
|
||||
(RDPTRS)
|
||||
(RDVALUES))))
|
||||
|
||||
(RPAQQ ABCFILES (LOADABC COMPILEBANG SAMEDIR WHEREIS COMPILEFORMSLIST CHECKSET CMACROS DCODEFOR10
|
||||
DTDECLARE BYTECOMPILER DLAP LLCODE ACODE MACROAUX))
|
||||
(RPAQQ ABCFILES (LOADABC COMPILEBANG SAMEDIR WHEREIS COMPILEFORMSLIST CHECKSET CMACROS DCODEFOR10
|
||||
DTDECLARE BYTECOMPILER DLAP LLCODE ACODE MACROAUX))
|
||||
|
||||
(RPAQQ READSYSFILES (RDSYS READSYS VMEM REMOTEVMEM))
|
||||
|
||||
(RPAQQ DATABASEFILES (0LISPSET 1LISPSET (2LISPSET ACODE)
|
||||
(3LISPSET DLAP)
|
||||
(4LISPSET DFILE DMISC)
|
||||
7LISPSET
|
||||
(8LISPSET MAKEINIT MEM)
|
||||
9LISPSET
|
||||
(10LISPSET LLPARAMS)
|
||||
(NIL CHECKARRAYSPACE MAKEINEW PMEMSTATS PPAGESTATS LLFCOMPILE)))
|
||||
(3LISPSET DLAP)
|
||||
(4LISPSET DFILE DMISC)
|
||||
7LISPSET
|
||||
(8LISPSET MAKEINIT MEM)
|
||||
9LISPSET
|
||||
(10LISPSET LLPARAMS)
|
||||
(NIL CHECKARRAYSPACE MAKEINEW PMEMSTATS PPAGESTATS LLFCOMPILE)))
|
||||
|
||||
(RPAQQ DEADFNS
|
||||
((PUTBASE \PUTBASE)
|
||||
|
||||
@ -1,12 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "24-Jul-2022 14:56:20"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>IOCHAR.;43 100109
|
||||
(FILECREATED "11-Sep-2022 20:07:43" {DSK}<home>larry>medley>sources>IOCHAR.;2 100127
|
||||
|
||||
:CHANGES-TO (FNS \SLOWFILEPOS)
|
||||
:CHANGES-TO (VARS IOCHARCOMS)
|
||||
|
||||
:PREVIOUS-DATE "10-Jul-2022 16:52:14"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>IOCHAR.;39)
|
||||
:PREVIOUS-DATE "24-Jul-2022 14:56:20" {DSK}<home>larry>medley>sources>IOCHAR.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
@ -16,11 +14,11 @@ Copyright (c) 1981-1988, 1990-1991, 2018, 2020 by Venue & Xerox Corporation.
|
||||
(PRETTYCOMPRINT IOCHARCOMS)
|
||||
|
||||
(RPAQQ IOCHARCOMS
|
||||
[(COMS (FNS CHCON UNPACK DCHCON DUNPACK)
|
||||
[[COMS (FNS CHCON UNPACK DCHCON DUNPACK)
|
||||
(FNS UALPHORDER ALPHORDER CONCAT CONCATCODES PACKC PACK PACK* \PACK.ITEM STRPOS)
|
||||
(FUNCTIONS XCL:PACK XCL:PACK*)
|
||||
(GLOBALVARS \SIGNFLAG \PRINTRADIX)
|
||||
(DECLARE%: DONTCOPY (MACROS \CATRANSLATE)))
|
||||
(EXPORT (DECLARE%: DONTCOPY (MACROS \CATRANSLATE]
|
||||
(COMS (FNS STRPOSL MAKEBITTABLE)
|
||||
(DECLARE%: DONTCOPY (RESOURCES \STRPOSLARRAY))
|
||||
(INITRESOURCES \STRPOSLARRAY))
|
||||
@ -183,7 +181,7 @@ Copyright (c) 1981-1988, 1990-1991, 2018, 2020 by Venue & Xerox Corporation.
|
||||
|
||||
(GLOBALVARS \SIGNFLAG \PRINTRADIX)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS \CATRANSLATE MACRO (OPENLAMBDA (CABASE CASIZE CAFAT CHAR)
|
||||
@ -195,6 +193,9 @@ Copyright (c) 1981-1988, 1990-1991, 2018, 2020 by Venue & Xerox Corporation.
|
||||
CHAR))))
|
||||
)
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(STRPOSL
|
||||
@ -1569,15 +1570,15 @@ DONTCOPY
|
||||
(PUTPROPS IOCHAR COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990
|
||||
1991 2018 2020))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3507 7301 (CHCON 3517 . 4367) (UNPACK 4369 . 5263) (DCHCON 5265 . 6532) (DUNPACK 6534
|
||||
. 7299)) (7302 18817 (UALPHORDER 7312 . 7408) (ALPHORDER 7410 . 9213) (CONCAT 9215 . 9860) (
|
||||
CONCATCODES 9862 . 10048) (PACKC 10050 . 12653) (PACK 12655 . 13234) (PACK* 13236 . 14958) (\PACK.ITEM
|
||||
14960 . 15415) (STRPOS 15417 . 18815)) (18819 19108 (XCL:PACK 18819 . 19108)) (19110 19360 (XCL:PACK*
|
||||
19110 . 19360)) (19998 22389 (STRPOSL 20008 . 21634) (MAKEBITTABLE 21636 . 22387)) (22551 23028 (
|
||||
CASEARRAY 22561 . 22751) (UPPERCASEARRAY 22753 . 23026)) (23350 56727 (FILEPOS 23360 . 32601) (
|
||||
FFILEPOS 32603 . 44824) (\SETUP.FFILEPOS 44826 . 48609) (\SLOWFILEPOS 48611 . 56725)) (57515 98762 (
|
||||
DATE 57525 . 57611) (DATEFORMAT 57613 . 57705) (GDATE 57707 . 57818) (IDATE 57820 . 69491) (
|
||||
\IDATESCANTOKEN 69493 . 70772) (\IDATE-PARSE-MONTH 70774 . 74470) (\OUTDATE 74472 . 87220) (
|
||||
\OUTDATE-STRING 87222 . 87837) (\RPLRIGHT 87839 . 88077) (\UNPACKDATE 88079 . 93870) (\PACKDATE 93872
|
||||
. 97192) (\DTSCAN 97194 . 97336) (\ISDST? 97338 . 97845) (\CHECKDSTCHANGE 97847 . 98760)))))
|
||||
(FILEMAP (NIL (3456 7250 (CHCON 3466 . 4316) (UNPACK 4318 . 5212) (DCHCON 5214 . 6481) (DUNPACK 6483
|
||||
. 7248)) (7251 18766 (UALPHORDER 7261 . 7357) (ALPHORDER 7359 . 9162) (CONCAT 9164 . 9809) (
|
||||
CONCATCODES 9811 . 9997) (PACKC 9999 . 12602) (PACK 12604 . 13183) (PACK* 13185 . 14907) (\PACK.ITEM
|
||||
14909 . 15364) (STRPOS 15366 . 18764)) (18768 19057 (XCL:PACK 18768 . 19057)) (19059 19309 (XCL:PACK*
|
||||
19059 . 19309)) (20016 22407 (STRPOSL 20026 . 21652) (MAKEBITTABLE 21654 . 22405)) (22569 23046 (
|
||||
CASEARRAY 22579 . 22769) (UPPERCASEARRAY 22771 . 23044)) (23368 56745 (FILEPOS 23378 . 32619) (
|
||||
FFILEPOS 32621 . 44842) (\SETUP.FFILEPOS 44844 . 48627) (\SLOWFILEPOS 48629 . 56743)) (57533 98780 (
|
||||
DATE 57543 . 57629) (DATEFORMAT 57631 . 57723) (GDATE 57725 . 57836) (IDATE 57838 . 69509) (
|
||||
\IDATESCANTOKEN 69511 . 70790) (\IDATE-PARSE-MONTH 70792 . 74488) (\OUTDATE 74490 . 87238) (
|
||||
\OUTDATE-STRING 87240 . 87855) (\RPLRIGHT 87857 . 88095) (\UNPACKDATE 88097 . 93888) (\PACKDATE 93890
|
||||
. 97210) (\DTSCAN 97212 . 97354) (\ISDST? 97356 . 97863) (\CHECKDSTCHANGE 97865 . 98778)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user