Add Path.parse

Author: hdgarrood

bower.json

@@ -20,6 +20,7 @@
     "package.json"
   ],
   "devDependencies": {
-    "purescript-assert": "^0.1.0"
+    "purescript-assert": "^0.1.0",
+    "purescript-console": "~0.1.1"
   }
 }

src/Node/Path.js

@@ -39,3 +39,5 @@ exports.extname = path.extname;
 exports.sep = path.sep;
 
 exports.delimiter = path.delimiter;
+
+exports.parse = path.parse;

src/Node/Path.purs

@@ -37,3 +37,6 @@ foreign import sep :: String
 
 -- | The platform-specific path delimiter, `;` or `:`.
 foreign import delimiter :: String
+
+-- | Parse a path into components.
+foreign import parse :: String -> { root :: String, dir :: String, base :: String, ext :: String, name :: String }

test/Test/Main.purs

@@ -18,3 +18,10 @@ main = do
   assert $ extname "index" == ""
   assert $ sep == normalize "/"
   assert $ delimiter == ";" || delimiter == ":"
+
+  let path = parse "/home/user/file.js"
+  assert $ path.root == "/"
+  assert $ path.dir == "/home/user"
+  assert $ path.base == "file.js"
+  assert $ path.ext == ".js"
+  assert $ path.name == "file"