github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-19 01:37:23 +00:00
Code Issues Projects Releases Wiki Activity

massive reorganization

Browse Source
This commit is contained in:
Larry Masinter
2020-11-15 19:22:14 -08:00
parent 6a758f1aa9
commit 6424116dc9
9681 changed files with 103 additions and 347608 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
sunloadup/NLOCALFILE Normal file
View File

@@ -0,0 +1,47 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(filecreated "14-Aug-88 19:30:10" |{DSK}/usr/local/medley/sources/NLOCALFILE.;2| 2162
|previous| |date:| "14-Aug-88 19:28:24" |{DSK}/usr/local/medley/sources/NLOCALFILE.;1|)
(prettycomprint nlocalfilecoms)
(rpaqq nlocalfilecoms ((records |GenerateFileState|)
(fns |\\LFReturnNextFile| |\\LFReturnInfo|)))
(declare\: eval@compile
(typerecord |GenerateFileState| (currentfile restoffiles attributes))
)
(defineq
(|\\LFReturnNextFile|
(lambda (generated) (* |amd| "10-Feb-86 16:04")
(* * |comment|)
(|if| (null (|fetch| (|GenerateFileState| restoffiles) |of| generated))
|then| nil
|else| (|replace| (|GenerateFileState| currentfile) |of| generated
|with| (|pop| (|fetch| (|GenerateFileState| restoffiles) |of|
generated)))
(|fetch| (|GeneratedFile| fullname) |of| (|fetch| (|GenerateFileState|
currentfile)
|of| generated)))))
(|\\LFReturnInfo|
(lambda (generated prop) (* |amd| "10-Feb-86 16:04")
(* * |comment|)
(|for| attrib |in| (|fetch| (|GenerateFileState| attributes) |of| generated)
|as| infoval |in| (|fetch| (|GeneratedFile| info) |of| (|fetch|
(|GenerateFileState|
currentfile)
|of| generated))
|do| (|if| (eq (mkatom (u-case attrib))
(mkatom (u-case prop)))
|then| (return infoval)))))
)
(declare\: dontcopy
(filemap (nil (513 2139 (|\\LFReturnNextFile| 523 . 1346) (|\\LFReturnInfo| 1348 . 2137)))))
stop