18 lines
377 B
Plaintext
18 lines
377 B
Plaintext
# -*- mode: snippet -*-
|
|
# 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")
|
|
) |