mirror of
https://github.com/janet-lang/janet
synced 2025-09-12 07:46:09 +00:00
Add script for removing <CR> on windows.
This caused bad stuff to be generated on windows, specifically the amalg file. We cause totally strip <CR> from files on windows using this script.
This commit is contained in:
9
tools/removecr.janet
Normal file
9
tools/removecr.janet
Normal file
@@ -0,0 +1,9 @@
|
||||
# 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))
|
Reference in New Issue
Block a user