mirror of
https://github.com/janet-lang/janet
synced 2024-12-25 16:00:27 +00:00
10 lines
333 B
Clojure
10 lines
333 B
Clojure
|
# Remove carriage returns from file. Since piping things on
|
||
|
|
# windows may add bad line endings, we can just force removal
|
||
|
|
# with this script.
|
||
|
|
(def fname ((dyn :args) 1))
|
||
|
|
(with [f (file/open fname :rb+)]
|
||
|
|
(def source (:read f :all))
|
||
|
|
(def new-source (string/replace-all "\r" "" source))
|
||
|
|
(:seek f :set 0)
|
||
|
|
(:write f new-source))
|