github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-05 23:54:46 +00:00
Code Issues Projects Releases Wiki Activity

FILEIO, MACHINEINDEPENDENT

Browse Source 
\EXTERNALFORMAT extracts the format from a reader-environment
WRITEFILE uses the format in *OLD-IINTERLISP-READ-ENVIRONMENT* (now :XCCS)
This commit is contained in:
rmkaplan
2021-08-05 21:08:05 -07:00
parent c2cff44a64
commit b1d209484a
4 changed files with 96 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
sources/MACHINEINDEPENDENT
View File

@@ -1,9 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED " 5-Aug-2021 15:09:08" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;21 113815
(FILECREATED " 5-Aug-2021 21:01:33" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;23 114018
previous date%: "29-Jul-2021 20:32:10"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;18)
changes to%: (FNS WRITEFILE)
previous date%: " 5-Aug-2021 20:43:52"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;22)
(* ; "
@@ -1229,7 +1231,7 @@ with the terms of said license.
(ERROR FN '"not a function"])
(WRITEFILE
[LAMBDA (X FILE) (* bvm%: "30-Aug-86 16:45")
[LAMBDA (X FILE) (* ; "Edited 5-Aug-2021 20:58 by rmk:")
(* ;; "X is a list of expression (or an atom that evaluates to a list) X is written on FILE. If X begins with a PRINTDATE expression, a new one is written. Following the PRETTYDEF conventions, if FILE is listed, it is left open. Otherwise a stop is printed and it is closed.")
@@ -1243,11 +1245,12 @@ with the terms of said license.
[RESETSAVE NIL (LIST (FUNCTION CLOSE-AND-MAYBE-DELETE)
(SETQ STREAM (OPENSTREAM FILE 'OUTPUT]
(RESETSAVE (OUTPUT STREAM))
(\EXTERNALFORMAT STREAM *OLD-INTERLISP-READ-ENVIRONMENT*)
[COND
((ATOM X)
(SETQ X (EVAL X]
(PRIN1 "
(PRIN1 (QUOTE %"
(TERPRI)
(PRIN1 "(PRIN1 (QUOTE %"
WRITEFILE OF ")
(PRIN2 (SETQ FILE (FULLNAME STREAM)))
(PRIN1 " MADE BY ")
@@ -1255,9 +1258,9 @@ WRITEFILE OF ")
(PRIN1 " ON ")
(PRIN1 (DATE))
(PRIN1 "
%")T)
")
%")T)")
(TERPRI)
(TERPRI)
(for X1 in X do (PRINTDEF X1 NIL (EQ (CAR (LISTP X1))
'DEFINEQ))
(TERPRI))
@@ -2378,23 +2381,23 @@ This has little hope of working any more.")
(PUTPROPS MACHINEINDEPENDENT COPYRIGHT ("Venue & Xerox Corporation" T 1983 1984 1985 1986 1987 1988
1989 1990 1991 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (12804 26111 (LOAD? 12814 . 14665) (FILESLOAD 14667 . 14956) (DOFILESLOAD 14958 . 22206)
(FINDFILE-WITH-EXTENSIONS 22208 . 25667) (READ-FILECREATED 25669 . 26109)) (26228 31549 (DMPHASH
26238 . 27832) (HASHOVERFLOW 27834 . 31547)) (32345 63516 (BKBUFS 32355 . 33474) (CHANGENAME 33476 .
33737) (CHNGNM 33739 . 35587) (CLBUFS 35589 . 36862) (DEFINE 36864 . 37588) (FNS.PUTDEF 37590 . 41005)
(EQMEMB 41007 . 41189) (EQUALN 41191 . 42020) (FNCHECK 42022 . 44029) (FNTYP1 44031 . 44128) (LCSKIP
44130 . 44974) (MAPRINT 44976 . 45922) (MKLIST 45924 . 46074) (NAMEFIELD 46076 . 47601) (NLIST 47603
. 47938) (PRINTBELLS 47940 . 48066) (PROMPTCHAR 48068 . 49958) (RAISEP 49960 . 50221) (READFILE 50223
. 52567) (READLINE 52569 . 58009) (REMPROPLIST 58011 . 58899) (RESETBUFS 58901 . 59351) (TAB 59353 .
59949) (UNSAVED1 59951 . 61056) (WRITEFILE 61058 . 62634) (CLOSE-AND-MAYBE-DELETE 62636 . 62980) (
UNSAFE.TO.MODIFY 62982 . 63514)) (65840 68784 (FILEDATE 65850 . 68782)) (69014 92753 (FILEMAP 69024 .
69494) (\PARSE-FILE-HEADER 69496 . 73311) (GET-ENVIRONMENT-AND-FILEMAP 73313 . 75540) (
LOOKUP-ENVIRONMENT-AND-FILEMAP 75542 . 77733) (GET-FILEMAP-FROM-FILECREATED 77735 . 78559) (
\FILEMAP-HASHOVERFLOW 78561 . 83225) (FLUSHFILEMAPS 83227 . 83850) (LISPSOURCEFILEP 83852 . 85031) (
GETFILEMAP 85033 . 85452) (PUTFILEMAP 85454 . 87645) (UPDATEFILEMAP 87647 . 92751)) (93370 96956 (
LVLPRINT 93380 . 93553) (LVLPRIN1 93555 . 93737) (LVLPRIN2 93739 . 93971) (LVLPRIN 93973 . 94987) (
LVLPRIN0 94989 . 96954)) (96990 101907 (FLUSHRIGHT 97000 . 97815) (PRINTPARA 97817 . 98915) (
PRINTPARA1 98917 . 101905)) (101943 104228 (SUBLIS 101953 . 102561) (SUBPAIR 102563 . 103791) (DSUBLIS
103793 . 104226)) (104251 104851 (CONSTANTOK 104261 . 104849)) (106929 107634 (NLAMBDA.ARGS 106939 .
107632)))))
(FILEMAP (NIL (12841 26148 (LOAD? 12851 . 14702) (FILESLOAD 14704 . 14993) (DOFILESLOAD 14995 . 22243)
(FINDFILE-WITH-EXTENSIONS 22245 . 25704) (READ-FILECREATED 25706 . 26146)) (26265 31586 (DMPHASH
26275 . 27869) (HASHOVERFLOW 27871 . 31584)) (32382 63719 (BKBUFS 32392 . 33511) (CHANGENAME 33513 .
33774) (CHNGNM 33776 . 35624) (CLBUFS 35626 . 36899) (DEFINE 36901 . 37625) (FNS.PUTDEF 37627 . 41042)
(EQMEMB 41044 . 41226) (EQUALN 41228 . 42057) (FNCHECK 42059 . 44066) (FNTYP1 44068 . 44165) (LCSKIP
44167 . 45011) (MAPRINT 45013 . 45959) (MKLIST 45961 . 46111) (NAMEFIELD 46113 . 47638) (NLIST 47640
. 47975) (PRINTBELLS 47977 . 48103) (PROMPTCHAR 48105 . 49995) (RAISEP 49997 . 50258) (READFILE 50260
. 52604) (READLINE 52606 . 58046) (REMPROPLIST 58048 . 58936) (RESETBUFS 58938 . 59388) (TAB 59390 .
59986) (UNSAVED1 59988 . 61093) (WRITEFILE 61095 . 62837) (CLOSE-AND-MAYBE-DELETE 62839 . 63183) (
UNSAFE.TO.MODIFY 63185 . 63717)) (66043 68987 (FILEDATE 66053 . 68985)) (69217 92956 (FILEMAP 69227 .
69697) (\PARSE-FILE-HEADER 69699 . 73514) (GET-ENVIRONMENT-AND-FILEMAP 73516 . 75743) (
LOOKUP-ENVIRONMENT-AND-FILEMAP 75745 . 77936) (GET-FILEMAP-FROM-FILECREATED 77938 . 78762) (
\FILEMAP-HASHOVERFLOW 78764 . 83428) (FLUSHFILEMAPS 83430 . 84053) (LISPSOURCEFILEP 84055 . 85234) (
GETFILEMAP 85236 . 85655) (PUTFILEMAP 85657 . 87848) (UPDATEFILEMAP 87850 . 92954)) (93573 97159 (
LVLPRINT 93583 . 93756) (LVLPRIN1 93758 . 93940) (LVLPRIN2 93942 . 94174) (LVLPRIN 94176 . 95190) (
LVLPRIN0 95192 . 97157)) (97193 102110 (FLUSHRIGHT 97203 . 98018) (PRINTPARA 98020 . 99118) (
PRINTPARA1 99120 . 102108)) (102146 104431 (SUBLIS 102156 . 102764) (SUBPAIR 102766 . 103994) (DSUBLIS
103996 . 104429)) (104454 105054 (CONSTANTOK 104464 . 105052)) (107132 107837 (NLAMBDA.ARGS 107142 .
107835)))))
STOP