mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-01-13 17:10:27 +00:00
Code Issues 1 Releases Wiki Activity

Add slurp and spit to the core library.

Browse Source
This commit is contained in:
Calvin Rose 2019-01-19 22:00:33 -05:00
parent d1a075b2a6
commit 48b179d67e
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/core/core.janet
View File

@ -1705,5 +1705,24 @@ value, one key will be ignored."
(put symbol-set k true)) (put symbol-set k true))
(sort (keys symbol-set))) (sort (keys symbol-set)))
(defn slurp
"Read all data from a file with name path
and then close the file."
[path]
(def f (file/open path :r))
(def contents (file/read f :all))
(file/close f)
contents)
(defn spit
"Write contents to a file at path.
Can optionally append to the file."
[path contents mode &]
(default mode :w)
(def f (file/open path mode))
(file/write f contents)
(file/close f)
nil)
# Use dynamic *env* from now on # Use dynamic *env* from now on
(put _env '_env nil) (put _env '_env nil)