Merge branch 'gren-0.2.0'

Author: robinheghan

.gitignore

@@ -1,4 +1,5 @@
 .gren
+app
 node_modules
 
 .idea

Makefile

@@ -1,12 +1,16 @@
-common_examples := counter\
-			files\
-			flight_booker\
-			hello_world\
-			temperature_converter\
-			timer\
-			local_storage
+browser_examples := \
+	counter\
+	files\
+	flight_booker\
+	hello_world\
+	temperature_converter\
+	timer\
+	local_storage\
+	todo_mvc
 
-all_examples := $(common_examples) todo_mvc
+node_examples := cat
+
+all_examples := $(browser_examples) $(node_examples)
 
 project_caches := $(foreach project, $(all_examples), $(project)/.gren)
 
@@ -21,12 +25,12 @@ clean:
 	rm -r $(project_caches)
 	@echo "Done"
 
-$(common_examples):
+$(browser_examples):
 	@echo "Compiling $@"
 	@cd "./$@/";\
 	gren make ./src/Main.gren --output=./Example.html
 
-todo_mvc:
+$(node_examples):
 	@echo "Compiling $@"
 	@cd "./$@/";\
-		gren make ./src/Main.gren --output=./Example.js
+	gren make ./src/Main.gren --optimize --output=./app

cat/gren.json

@@ -0,0 +1,15 @@
+{
+    "type": "application",
+    "platform": "node",
+    "source-directories": [
+        "src"
+    ],
+    "gren-version": "0.2.0",
+    "dependencies": {
+        "direct": {
+            "gren-lang/core": "3.0.0",
+            "gren-lang/node": "1.0.0"
+        },
+        "indirect": {}
+    }
+}

cat/src/Main.gren

@@ -0,0 +1,75 @@
+module Main exposing (main)
+
+import Node
+import Bytes exposing (Bytes)
+import Bytes.Encode as BE
+import Stream exposing (Stream)
+import Node.Program as Program exposing (Program)
+import FileSystem
+import Task
+
+
+main : Program Model Msg
+main =
+    Program.define
+        { init = init
+        , update = update
+        , subscriptions = \_ -> Sub.none
+        }
+
+
+type alias Model =
+    { stdout : Stream }
+
+
+type Msg
+    = OpenResult (Result FileSystem.AccessError (FileSystem.ReadableFileHandle Never))
+    | ReadResult (Result FileSystem.UnknownFileSystemError Bytes)
+
+
+init : Program.AppInitTask { model : Model, command : Cmd Msg }
+init =
+    Program.await Node.initialize <| \nodeConfig ->
+        Program.await FileSystem.initialize <| \fsPermission ->
+            Program.startProgram
+                { model =
+                    { stdout = nodeConfig.stdout
+                    }
+                , command =
+                    case nodeConfig.args of
+                        [ _, _, file ] ->
+                            FileSystem.openForRead fsPermission file
+                                |> Task.attempt OpenResult
+
+                        _ ->
+                            Stream.send nodeConfig.stderr <|
+                                BE.encode <|
+                                    BE.string "Exactly one argument is required: the file name to read\n"
+                }
+
+
+update : Msg -> Model -> { model : Model, command : Cmd Msg }
+update msg model =
+    case msg of
+        OpenResult (Ok fh) ->
+            { model = model
+            , command =
+                FileSystem.read fh
+                    |> Task.attempt ReadResult
+            }
+
+        OpenResult (Err error) ->
+            { model = model
+            , command = Cmd.none
+            }
+
+        ReadResult (Ok bytes) ->
+            { model = model
+            , command = Stream.send model.stdout bytes
+            }
+
+        ReadResult (Err error) ->
+            { model = model
+            , command = Cmd.none
+            }
+