17 lines
352 B
Plaintext
17 lines
352 B
Plaintext
|
#name : read lines of a file
|
||
|
|
#contributor : Xah Lee
|
||
|
|
# --
|
||
|
|
(defun read-lines (filePath)
|
||
|
|
"Return a list of lines in FILEPATH."
|
||
|
|
(with-temp-buffer
|
||
|
|
(insert-file-contents filePath)
|
||
|
|
(split-string
|
||
|
|
(buffer-string) "\n" t)))
|
||
|
|
|
||
|
|
;; process all lines
|
||
|
|
(mapc
|
||
|
|
(lambda (aLine)
|
||
|
|
(message aLine) ; do your stuff here
|
||
|
|
)
|
||
|
|
(read-lines "inputFilePath")
|
||
|
|
)
|