newlines?

[methodic]

I am reading a bunch of data from STDIN, saving each line in a variable, then I am concatinating the newest line with the older data, but it seems newlisp is stripping out the newline chars.



example:

(set 'full "")



(while (set 'n (read-line (device)))

  (set 'full (string body n)))



if i do a (print full), I get everything, minus the newlines.



Am i missing something?

[methodic]

nevermind, i figured out that read-line chops off the newline, so Im simply doing this:



 (set 'full (string body n "n")))

[Lutz]

But your program isn't appending but setting the variable 'full' each time. Here is a method to do a quick string append:

Code Select Expand


(set 'full "")

(while (set 'n (read-line (device)))
    (write-buffer full (string body n)))


Now 'full' will get appended each time



Lutz



ps: welcome to the group Methodic