Text only | Text with Images

newLISP Fan Club

Forum => Anything else we might add? => Topic started by: Sammo on July 28, 2004, 05:13:25 PM

Title: link a list of files?
Post by: Sammo on July 28, 2004, 05:13:25 PM
Will (or should) the following work to extend link.lsp to allow several source files to be specified? I'd like to link several files (one main program plus several libraries) without having to merge the files by hand.


Code Select
(load "link.lsp")
(define (link-list orgExe newExeName list-of-SourceNames)
  (set 'tempFileName "linktemp.lsp")
  (set 'tempHandle (open tempFileName "write"))
  (map (fn (F) (write-buffer tempHandle (read-file F))) list-of-SourceNames)
  (close tempHandle)
  (link orgExe NewExeName tempFileName))after which I would execute


Code Select
(link-list "newlisp.exe" "myprog.exe" '("mysource.lsp" "mylibrary.lsp"))I suppose a macro might be a better implementation choice, but being somewhat "macro challenged" I choose this route. A macro would have the advantage of not having to explictly form the list of files. Any other advantages?
Title:
Post by: HPW on July 28, 2004, 10:36:43 PM
Hello Sam,



works for me after correcting your typo:


Code Select

(link orgExe newExeName tempFileName)

not
Code Select

(link orgExe NewExeName tempFileName)


Case-sensitive symbol names in newLISP!

Maybe you could add 'deleting of tempFileName'.



;-)



7:40 am from Germany
Title:
Post by: eddier on July 29, 2004, 05:32:08 AM
The only advantage, if it is really an advantage, that I can see is that the list of files in
Code Select

(link-list "newlisp.exe" "myprog.exe" '("mysource.lsp" "mylibrary.lsp"))


could be called as
Code Select

(link-list "newlisp.exe" "myprog.exe" "mysource.lsp" "mylibrary.lsp")


Using the code you have, I think the macro would be something like
Code Select

(define-macro (link-list orgExe newExeName )
  (set 'tempFileName "linktemp.lsp")
  (set 'tempHandle (open tempFileName "write"))
  (map (fn (F) (write-buffer tempHandle (read-file F))) (args))
  (close tempHandle)
  (link orgExe newExeName tempFileName))


Eddie
Title:
Post by: Lutz on July 29, 2004, 05:37:58 AM
you would have to do (slice (args) 2) because the first two parameters are the orginal and new exe.



Lutz
Title:
Post by: eddier on July 29, 2004, 05:47:09 AM
Oops!



Eddie
Title:
Post by: HPW on July 29, 2004, 06:05:45 AM
Nice! Shorter is better!
Title:
Post by: Sammo on July 29, 2004, 06:09:39 AM
Thanks, everyone! Here is the working macro version:
Code Select
(load "link.lsp")
(define-macro (link-list orgExe newExeName )
    (set 'tempFileName "linktemp.lsp")
    (set 'tempHandle (open tempFileName "write"))
    (map (fn (F) (write-buffer tempHandle (read-file F))) (slice (args) 2))
    (close tempHandle)
    (link orgExe newExeName tempFileName)
    (delete-file tempFileName))which is called like this:
Code Select
(link-list "newlisp.exe" "myprog.exe" "main.lsp" "lib.lsp" "etc.lsp")
Text only | Text with Images