remove Debug.todos #12

guida-lang · Oct 17, 2024 · 6e9b4b6 · 6e9b4b6
1 parent 726be33
commit 6e9b4b6
Show file tree

Hide file tree

Showing 3 changed files with 50 additions and 4 deletions.
diff --git a/bin/index.js b/bin/index.js
@@ -316,6 +316,14 @@ const io = {
     fs.close(fd);
     this.send({ index, value: null });
   },
+  hFileSize: function (index, fd) {
+    const stats = fs.fstatSync(fd);
+    this.send({ index, value: stats.size });
+  },
+  withFile: function (index, filename, mode) {
+    var fd = fs.openSync(filename, mode);
+    this.send({ index, value: fd });
+  },
 };
 
 const app = Elm.Terminal.Main.init();

diff --git a/src/Data/IO.elm b/src/Data/IO.elm
@@ -126,6 +126,8 @@ type Effect
     | ReplGetInputLine String
     | ReplGetInputLineWithInitial String ( String, String )
     | HClose Handle
+    | HFileSize Handle
+    | WithFile String IOMode
     | StateGet
     | ProcWithCreateProcess CreateProcess
     | NoOp
@@ -545,7 +547,7 @@ hFlush handle =
 
 hFileSize : Handle -> IO Int
 hFileSize handle =
-    todo "hFileSize"
+    make Decode.int (HFileSize handle)
 
 
 hClose : Handle -> IO ()
@@ -643,6 +645,6 @@ hSetEncoding _ _ =
 
 
 withFile : String -> IOMode -> (Handle -> IO a) -> IO a
-withFile _ _ callback =
-    -- TODO review this
-    callback stdout
+withFile path mode callback =
+    make (Decode.map Handle Decode.int) (WithFile path mode)
+        |> bind callback
diff --git a/src/Terminal/Main.elm b/src/Terminal/Main.elm
@@ -429,6 +429,42 @@ effectToCmd index portOut effect =
                         ]
                 }
 
+        IO.HFileSize (IO.Handle fd) ->
+            portOut
+                { index = index
+                , value =
+                    Encode.object
+                        [ ( "fn", Encode.string "hFileSize" )
+                        , ( "args", Encode.list Encode.int [ fd ] )
+                        ]
+                }
+
+        IO.WithFile filename mode ->
+            portOut
+                { index = index
+                , value =
+                    Encode.object
+                        [ ( "fn", Encode.string "withFile" )
+                        , ( "args"
+                          , Encode.list Encode.string
+                                [ filename
+                                , case mode of
+                                    IO.ReadMode ->
+                                        "r"
+
+                                    IO.WriteMode ->
+                                        "w"
+
+                                    IO.AppendMode ->
+                                        "a"
+
+                                    IO.ReadWriteMode ->
+                                        "w+"
+                                ]
+                          )
+                        ]
+                }
+
         IO.DirFindExecutable name ->
             portOut
                 { index = index