kill-carriage-return. Close #144

projects/kill-carriage-return/build.hxml

@@ -0,0 +1,4 @@
+-lib kiss
+-cp src
+--main kill_carriage_return.Main
+--interp

projects/kill-carriage-return/haxelib.json

@@ -0,0 +1,17 @@
+{
+	"main": "kill_carriage_return.Main",
+	"name": "kill-carriage-return",
+	"description": "Do you hate Windows-style line endings as much as I do?",
+	"classPath": "src/",
+	"dependencies": {
+		"kiss": ""
+	},
+	"url": "https://github.com/NQNStudios/kisslang",
+	"contributors": [
+		"NQNStudios"
+	],
+	"version": "0.0.0",
+	"releasenote": "",
+	"tags": [],
+	"license": "LGPL"
+}

projects/kill-carriage-return/src/kill_carriage_return/Main.hx

@@ -0,0 +1,7 @@
+package kill_carriage_return;
+
+class Main {
+    static function main() {
+        Main_.main();
+    }
+}

projects/kill-carriage-return/src/kill_carriage_return/Main_.kiss

@@ -0,0 +1,46 @@
+(function usageError []
+    (print "Usage: haxelib run kill-carriage-return <kill or stun> <extensions...>")
+    (Sys.exit 1)
+    false)
+
+(using haxe.io.Path)
+(function run [dir :Array<String> extensions _kill]
+    (walkDirectory 
+        ""
+        dir
+        ->:Void file
+            (when (contains extensions (file.extension))
+                ((if _kill kill stun) file))
+        ->:Void dir 0
+        ->:Void dir 0)
+    (when stunnedFiles
+        (print "Windows line ending(s) detected in:")
+        (doFor file stunnedFiles (print file))
+        (Sys.exit 1)))
+
+(import sys.io.File)
+(function kill [file]
+    (File.saveContent file (.replace (File.getContent file) "\r" "")))
+
+(var stunnedFiles [])
+(function stun [file]
+    (when (contains (File.getContent file) "\r")
+        (stunnedFiles.push file)))
+
+(ifLet [[::killOrStun ...extensions cwd] (Sys.args)]
+        {
+            (run 
+                cwd 
+                (for ext extensions
+                    (if (ext.startsWith ".")
+                            (ext.substr 1)
+                        ext))
+                (case killOrStun
+                    ("kill"
+                        true)
+                    ("stun"
+                        false)
+                    (otherwise
+                        (usageError))))
+        }
+    (usageError))

projects/kill-carriage-return/test.sh

@@ -0,0 +1,4 @@
+#! /bin/bash
+
+haxelib dev kill-carriage-return ./
+(cd ../../ && haxelib run kill-carriage-return stun sh)