Merge pull request #1 from purescript-node/joneshf/initial-work

Put together a `net` module

Author: joneshf

.gitignore

@@ -0,0 +1,9 @@
+/.*
+!/.gitignore
+!/.jscsrc
+!/.jshintrc
+!/.travis.yml
+/bower_components/
+/node_modules/
+/output/
+package-lock.json

.jscsrc

@@ -0,0 +1,17 @@
+{
+  "preset": "grunt",
+  "disallowSpacesInFunctionExpression": null,
+  "requireSpacesInFunctionExpression": {
+    "beforeOpeningRoundBrace": true,
+    "beforeOpeningCurlyBrace": true
+  },
+  "disallowSpacesInAnonymousFunctionExpression": null,
+  "requireSpacesInAnonymousFunctionExpression": {
+    "beforeOpeningRoundBrace": true,
+    "beforeOpeningCurlyBrace": true
+  },
+  "disallowSpacesInsideObjectBrackets": null,
+  "requireSpacesInsideObjectBrackets": "all",
+  "validateQuoteMarks": "\"",
+  "requireCurlyBraces": null
+}

.jshintrc

@@ -0,0 +1,19 @@
+{
+  "bitwise": true,
+  "eqeqeq": true,
+  "forin": true,
+  "freeze": true,
+  "funcscope": true,
+  "futurehostile": true,
+  "strict": "global",
+  "latedef": true,
+  "noarg": true,
+  "nocomma": true,
+  "nonew": true,
+  "notypeof": true,
+  "singleGroups": true,
+  "undef": true,
+  "unused": true,
+  "eqnull": true,
+  "node": true
+}

.travis.yml

@@ -0,0 +1,21 @@
+language: node_js
+dist: trusty
+sudo: required
+node_js: 8
+env:
+  - PATH=$HOME/purescript:$PATH
+install:
+  - TAG=$(wget -q -O - https://github.com/purescript/purescript/releases/latest --server-response --max-redirect 0 2>&1 | sed -n -e 's/.*Location:.*tag\///p')
+  - wget -O $HOME/purescript.tar.gz https://github.com/purescript/purescript/releases/download/$TAG/linux64.tar.gz
+  - tar -xvf $HOME/purescript.tar.gz -C $HOME/
+  - chmod a+x $HOME/purescript
+  - npm install -g bower
+  - npm install
+  - bower install --production
+script:
+  - npm run -s build
+after_success:
+- >-
+  test $TRAVIS_TAG &&
+  echo $GITHUB_TOKEN | pulp login &&
+  echo y | pulp publish --no-push

README.md

@@ -1 +1,16 @@
 # purescript-node-net
+
+[![Latest release](http://img.shields.io/github/release/purescript-node/purescript-node-net.svg)](https://github.com/purescript-node/purescript-node-net/releases)
+[![Build Status](https://travis-ci.org/purescript-node/purescript-node-net.svg?branch=master)](https://travis-ci.org/purescript-node/purescript-node-net)
+
+A wrapper for Node's net API.
+
+## Installation
+
+```
+bower install purescript-node-net
+```
+
+## Documentation
+
+Module documentation is [published on Pursuit](http://pursuit.purescript.org/packages/purescript-node-net).

bower.json

@@ -0,0 +1,30 @@
+{
+  "name": "purescript-node-net",
+  "repository": {
+    "type": "git",
+    "url": "git://github.com/purescript-node/purescript-node-net"
+  },
+  "license": "MIT",
+  "ignore": [
+    "**/.*",
+    "node_modules",
+    "bower_components",
+    "output"
+  ],
+  "dependencies": {
+    "purescript-effect": ">= 1.0.0 < 3",
+    "purescript-either": ">= 1.0.0 < 5",
+    "purescript-exceptions": ">= 4.0.0 < 5",
+    "purescript-foreign": ">= 5.0.0 < 6",
+    "purescript-maybe": ">= 1.0.0 < 5",
+    "purescript-node-buffer": ">= 5.0.0 < 6",
+    "purescript-node-fs": ">= 5.0.0 < 6",
+    "purescript-nullable": ">= 3.0.0 < 5",
+    "purescript-options": ">= 1.0.0 < 6",
+    "purescript-prelude": ">= 4.0.0 < 5",
+    "purescript-transformers": ">= 1.0.0 < 5"
+  },
+  "devDependencies": {
+    "purescript-console": ">= 4.0.0 < 5"
+  }
+}

package.json

@@ -0,0 +1,15 @@
+{
+  "private": true,
+  "scripts": {
+    "clean": "rimraf output && rimraf .pulp-cache",
+    "build": "jshint src && jscs src && pulp build -- --censor-lib --strict",
+    "test": "pulp test"
+  },
+  "devDependencies": {
+    "jscs": "^3.0.7",
+    "jshint": "^2.9.5",
+    "pulp": "^12.2.0",
+    "purescript-psa": "^0.6.0",
+    "rimraf": "^2.6.2"
+  }
+}

src/Node/Net.js

@@ -0,0 +1,9 @@
+"use strict";
+
+var net = require("net");
+
+exports.isIP = net.isIP;
+
+exports.isIPv4 = net.isIPv4;
+
+exports.isIPv6 = net.isIPv6;

src/Node/Net.purs

@@ -0,0 +1,17 @@
+module Node.Net
+  ( isIP
+  , isIPv4
+  , isIPv6
+  ) where
+
+-- | Returns `4` if the `String` is a valid IPv4 address, `6` if the `String`
+-- | is a valid IPv6 address, and `0` otherwise.
+foreign import isIP :: String -> Int
+
+-- | Returns `true` if the `String` is a valid IPv4 address,
+-- | and `false` otherwise.
+foreign import isIPv4 :: String -> Boolean
+
+-- | Returns `true` if the `String` is a valid IPv4 address,
+-- | and `false` otherwise.
+foreign import isIPv6 :: String -> Boolean

src/Node/Net/Server.js

@@ -0,0 +1,29 @@
+"use strict";
+
+var net = require("net");
+
+exports.addressImpl = function (server) {
+  return server.address();
+};
+
+exports.closeImpl = function (server, callback) {
+  server.close(callback);
+};
+
+exports.createServerImpl = net.createServer;
+
+exports.getConnectionsImpl = function (server, callback) {
+  server.getConnections(callback);
+};
+
+exports.listenImpl = function (server, options, callback) {
+  server.listen(options, callback);
+};
+
+exports.listeningImpl = function (socket) {
+  return socket.listening;
+};
+
+exports.onImpl = function (event, server, callback) {
+  server.on(event, callback);
+};