Initial commit

Author: paf31

.gitignore

@@ -0,0 +1,5 @@
+/bower_components/
+/node_modules/
+/output/
+/.psci*
+/src/.webpack.js

LICENSE

@@ -0,0 +1,20 @@
+The MIT License (MIT)
+
+Copyright (c) 2015 DICOM Grid, Inc.
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+the Software, and to permit persons to whom the Software is furnished to do so,
+subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

bower.json

@@ -0,0 +1,19 @@
+{
+  "name": "purescript-node-url",
+  "version": "1.0.0",
+  "moduleType": [
+    "node"
+  ],
+  "ignore": [
+    "**/.*",
+    "node_modules",
+    "bower_components",
+    "output"
+  ],
+  "devDependencies": {
+    "purescript-console": "^0.1.0"
+  },
+  "dependencies": {
+    "purescript-nullable": "~0.2.1"
+  }
+}

docs/Node/URL.md

@@ -0,0 +1,67 @@
+## Module Node.URL
+
+This module defines bindings to the Node URL and Query String APIs.
+
+#### `Query`
+
+``` purescript
+data Query
+```
+
+A query object is a JavaScript object whose values are strings or arrays of strings.
+
+It is intended that the user coerce values of this type to/from some trusted representation via
+e.g. `Data.Foreign` or `Unsafe.Coerce`..
+
+#### `URL`
+
+``` purescript
+type URL = { protocol :: Nullable String, slashes :: Nullable Boolean, host :: Nullable String, auth :: Nullable String, hostname :: Nullable String, port :: Nullable String, pathname :: Nullable String, search :: Nullable String, path :: Nullable String, query :: Nullable String, hash :: Nullable String }
+```
+
+A URL object.
+
+All fields are nullable, and will be missing if the URL string passed to 
+`parse` did not contain the appropriate URL part.
+
+#### `parse`
+
+``` purescript
+parse :: String -> URL
+```
+
+Parse a URL string into a URL object.
+
+#### `format`
+
+``` purescript
+format :: URL -> String
+```
+
+Format a URL object as a URL string.
+
+#### `resolve`
+
+``` purescript
+resolve :: String -> String -> String
+```
+
+Resolve a URL relative to some base URL.
+
+#### `parseQueryString`
+
+``` purescript
+parseQueryString :: String -> Query
+```
+
+Convert a query string to an object.
+
+#### `toQueryString`
+
+``` purescript
+toQueryString :: Query -> String
+```
+
+Convert a query string to an object.
+
+

src/Node/URL.js

@@ -0,0 +1,20 @@
+"use strict";
+
+// module Node.URL
+
+var url = require('url');
+var queryString = require('querystring');
+
+exports.parse = url.parse;
+
+exports.format = url.format;
+
+exports.resolve = function(from) {
+    return function(to) {
+        return url.resolve(from, to);
+    }  
+};
+
+exports.parseQueryString = queryString.parse;
+
+exports.toQueryString = queryString.stringify;

src/Node/URL.purs

@@ -0,0 +1,44 @@
+-- | This module defines bindings to the Node URL and Query String APIs.
+
+module Node.URL where
+    
+import Data.Nullable
+    
+-- | A query object is a JavaScript object whose values are strings or arrays of strings.
+-- |
+-- | It is intended that the user coerce values of this type to/from some trusted representation via
+-- | e.g. `Data.Foreign` or `Unsafe.Coerce`..
+data Query
+    
+-- | A URL object.
+-- |
+-- | All fields are nullable, and will be missing if the URL string passed to 
+-- | `parse` did not contain the appropriate URL part.
+type URL = 
+  { protocol :: Nullable String
+  , slashes  :: Nullable Boolean
+  , host     :: Nullable String
+  , auth     :: Nullable String
+  , hostname :: Nullable String
+  , port     :: Nullable String
+  , pathname :: Nullable String
+  , search   :: Nullable String
+  , path     :: Nullable String
+  , query    :: Nullable String
+  , hash     :: Nullable String
+  }
+  
+-- | Parse a URL string into a URL object.
+foreign import parse :: String -> URL
+  
+-- | Format a URL object as a URL string.
+foreign import format :: URL -> String
+
+-- | Resolve a URL relative to some base URL.
+foreign import resolve :: String -> String -> String
+
+-- | Convert a query string to an object.
+foreign import parseQueryString :: String -> Query
+
+-- | Convert a query string to an object.
+foreign import toQueryString :: Query -> String

test/Main.purs

@@ -0,0 +1,6 @@
+module Test.Main where
+
+import Control.Monad.Eff.Console
+
+main = do
+  log "You should add some tests."