18 lines
No EOL
382 B
Text
Executable file
18 lines
No EOL
382 B
Text
Executable file
# contributor: Xah Lee (XahLee.org)
|
|
# name: read lines of a file
|
|
# key: x-file
|
|
# --
|
|
(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")
|
|
) |