newlispfanclub.alh.net

Posted: **Thu Aug 05, 2004 6:15 pm**

Having a need to concatenate files and not having a decent command-line tool, I wrote:

;;  cat
;;  concatenate files
;;  c:> cat file1 file2 file3 ... >stdout
;;
;;  cat.make
;;  (load {c:\newlisp\link.lsp})
;;  (link {c:\newlisp\newlisp.exe} "cat.exe" "cat.lsp")

(map (fn (F) (write-line (read-file F))) (rest (main-args)))
(exit)

which seems to work pretty well. Is there a better sol'n?

Posted: **Thu Aug 05, 2004 7:27 pm**

Hello Sammo,

Very Lispy !! great... now i was thinking exactly the same this week
except for a tool called "tail" You dont happen to have one perhpas :-) ?

Newlisp is great for baking tools this way ;-) love it...

Regards...Norman.

Posted: **Thu Aug 05, 2004 7:49 pm**

How about this?

1) read the entire file whose name is (nth 1 (main-args))
2) parse into lines
3) use 'slice' to get last (nth 2 (main-args)) lines (assumes an integer)
4) join and print the result

Code: Select all

;;  tail
;;
(print (join
        (slice
            (parse (read-file (nth 1 (main-args))) "\r\n")
            (- (integer (nth 2 (main-args)))))
        "\r\n"))
(exit)

Seems to work!

Posted: **Thu Aug 05, 2004 8:25 pm**

yes thats a real nice tail alright ;-)

If your into a new adventure?
Try tailing continously a file :-)
im not sure if newlisp can do it, but i doubt that its not able to do it ;-)

Regards, Norman...