mirrors
/
janet
mirror of https://github.com/janet-lang/janet
1
0
Fork 0
Code Issues 1 Releases Wiki Activity

Update amalg step.

This commit is contained in:
Calvin Rose 2019-10-19 18:00:29 -05:00
parent 423b6db855
commit b9e05d06fe
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tools/amalg.janet
View File

@ -10,3 +10,6 @@
# Body # Body
(each path (tuple/slice (dyn :args) 1) (each path (tuple/slice (dyn :args) 1)
(print (slurp path))) (print (slurp path)))
# maybe will help
(:flush stdout)

8
tools/removecr.janet
View File

@ -2,8 +2,6 @@
# windows may add bad line endings, we can just force removal # windows may add bad line endings, we can just force removal
# with this script. # with this script.
(def fname ((dyn :args) 1)) (def fname ((dyn :args) 1))
(with [f (file/open fname :rb+)] (def input (slurp fname :rb))
(def source (:read f :all)) (def new-source (string/replace-all "\r" "" source))
(def new-source (string/replace-all "\r" "" source)) (spit fname new-source :wb)
(:seek f :set 0)
(:write f new-source))