Initial commit

Author: hdgarrood

.gitignore

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

bower.json

@@ -0,0 +1,20 @@
+{
+  "name": "purescript-node-process",
+  "moduleType": [
+    "node"
+  ],
+  "ignore": [
+    "**/.*",
+    "node_modules",
+    "bower_components",
+    "output"
+  ],
+  "dependencies": {
+    "purescript-console": "^0.1.0",
+    "purescript-maps": "~0.5.4",
+    "purescript-node-streams": "~0.3.0",
+    "purescript-maybe": "~0.3.5",
+    "purescript-unsafe-coerce": "~0.1.0",
+    "purescript-exceptions": "~0.3.3"
+  }
+}

src/Node/Process.js

@@ -0,0 +1,10 @@
+"use strict";
+// module Node.Process
+
+exports.globalProcessObject = process;
+
+exports.readMutableProperty = function(propName) {
+    return function() {
+        return process[propName];
+    }
+}

src/Node/Process.purs

@@ -0,0 +1,122 @@
+-- | Bindings to the global `process` object in Node.js. See also [the Node API documentation](https://nodejs.org/api/process.html)
+module Node.Process
+  ( PROCESS()
+  , onBeforeExit
+  , onExit
+  , onSignal
+  , argv
+  , execArgv
+  , chdir
+  , cwd
+  , getEnv
+  , lookupEnv
+  , setEnv
+  , pid
+  , platform
+  , exit
+  , stdin
+  , stdout
+  , stderr
+  , stdoutIsTTY
+  , version
+  ) where
+
+import Prelude
+import Control.Monad.Eff
+import Control.Monad.Eff.Console (CONSOLE())
+import Control.Monad.Eff.Exception (EXCEPTION())
+import Data.Maybe (Maybe())
+import Data.StrMap (StrMap())
+import Data.StrMap as StrMap
+import Node.Stream (Readable(), Writable())
+import Unsafe.Coerce (unsafeCoerce)
+
+-- | An effect tracking interaction with the global `process` object.
+foreign import data PROCESS :: !
+
+-- YOLO
+foreign import globalProcessObject :: forall props. { | props }
+
+-- | Very unsafe. Be careful. Reads a mutable property off the global `process`
+-- | object.
+foreign import readMutableProperty :: forall eff a. String -> Eff eff a
+
+-- | Read an immutable property off the global `process` object.
+readImmutableProperty :: forall a. String -> a
+readImmutableProperty = unsafeCoerce <<< readMutableProperty
+
+-- | Register a callback to be performed when the event loop empties, and
+-- | Node.js is about to exit. Asynchronous calls can be made in the callback,
+-- | and if any are made, it will cause the process to continue a little longer.
+foreign import onBeforeExit :: forall eff. Eff (process :: PROCESS | eff) Unit -> Eff (process :: PROCESS | eff) Unit
+
+-- | Register a callback to be performed when the process is about to exit.
+-- | Any work scheduled via asynchronous calls made here will not be performed
+-- | in time.
+-- |
+-- | The argument to the callback is the exit code which the process is about
+-- | to exit with.
+foreign import onExit :: forall eff. (Int -> Eff (process :: PROCESS | eff) Unit) -> Eff (process :: PROCESS | eff) Unit
+
+-- | Install a handler for a particular signal.
+foreign import onSignal :: forall eff. String -> Eff (process :: PROCESS | eff) Unit -> Eff (process :: PROCESS | eff) Unit
+
+-- | Get an array containing the command line arguments. Be aware
+-- | that this can change over the course of the program.
+argv :: forall eff. Eff (process :: PROCESS | eff) (Array String)
+argv = readMutableProperty "argv"
+
+-- | Node-specific options passed to the `node` executable. Be aware that
+-- | this can change over the course of the program.
+execArgv :: forall eff. Eff (process :: PROCESS | eff) (Array String)
+execArgv = readMutableProperty "execArgv"
+
+-- | The absolute pathname of the `node` executable that started the
+-- | process.
+execPath :: forall eff. Eff (process :: PROCESS | eff) String
+execPath = readMutableProperty "execPath"
+
+-- | Change the current working directory of the process. If the current
+-- | directory could not be changed, an exception will be thrown.
+foreign import chdir :: forall eff. String -> Eff (err :: EXCEPTION, process :: PROCESS | eff) Unit
+
+-- | Get the current working directory of the process.
+foreign import cwd :: forall eff. Eff (process :: PROCESS | eff) String
+
+-- | Get a copy of the current environment.
+getEnv :: forall eff. Eff (process :: PROCESS | eff) (StrMap String)
+getEnv = readMutableProperty "env"
+
+-- | Lookup a particular environment variable.
+lookupEnv :: forall eff. String -> Eff (process :: PROCESS | eff) (Maybe String)
+lookupEnv k = StrMap.lookup k <$> getEnv
+
+-- | Set an environment variable.
+foreign import setEnv :: forall eff. String -> String -> Eff (process :: PROCESS | eff) Unit
+
+pid :: Int
+pid = readImmutableProperty "pid"
+
+platform :: String
+platform = readImmutableProperty "platform"
+
+-- | Cause the process to exit with the supplied integer code. An exit code
+-- | of 0 is normally considered successful, and anything else is considered a
+-- | failure.
+foreign import exit :: forall eff. Int -> Eff (process :: PROCESS | eff) Unit
+
+stdin :: forall eff. Readable () (console :: CONSOLE | eff)
+stdin = readImmutableProperty "stdin"
+
+stdout :: forall eff. Writable () (console :: CONSOLE | eff)
+stdout = readImmutableProperty "stdout"
+
+stderr :: forall eff. Writable () (console :: CONSOLE | eff)
+stderr = readImmutableProperty "stderr"
+
+-- | Check whether the process is being run inside a TTY context
+foreign import stdoutIsTTY :: forall eff. Eff (process :: PROCESS | eff) Boolean
+
+-- | Get the Node.js version.
+version :: String
+version = readImmutableProperty "version"