18 lines
382 B
Text
18 lines
382 B
Text
|
# 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")
|
||
|
|
)
|