(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