0

I am currently dealing with a problem, where I have to read a zipped file line by line, and further on process each line and do something with it.

I managed to read from stdin using the following code:

(defun process ()

  (princ (split-sequence:split-sequence #\Space (read-line))))

(defun main (args)
  (process))

*this will be a command line tool

Where I ran it as:

cat file.txt | ./executable

this works fine, but it prints only the first line. I assume I must insert some form of loop in the first part, yet I am not sure how this is to be done.

Thank you for any help!

sdgaw erzswer
  • 2,182
  • 2
  • 26
  • 45

1 Answers1

1

I solved this using:

  (loop for line = (read-line) ; stream, no error, :eof value
     until (eq line :eof)
     do (princ line))
sdgaw erzswer
  • 2,182
  • 2
  • 26
  • 45