Add Tty and Locale modules with Rust host implementation

Author: codegod100

Cargo.lock

@@ -13,6 +13,8 @@ crate-type = ["staticlib"]
 # Note: we use "=version" for reproducability, cargo may silently use a more recent version if you do not use `=`.
 [dependencies]
 libc = "=0.2.180" # keep version in sync with libc workspace dep below
+sys-locale.workspace = true
+crossterm = "0.27"
 roc_std_new.workspace = true
 roc_io_error.workspace = true
 roc_random.workspace = true

Cargo.toml

@@ -0,0 +1,11 @@
+Locale := [].{
+    ## Returns the most preferred locale for the system or application.
+    ##
+    ## The returned [Str] is a BCP 47 language tag, like `en-US` or `fr-CA`.
+    get! : {} => Str
+
+    ## Returns the preferred locales for the system or application.
+    ##
+    ## The returned [Str] are BCP 47 language tags, like `en-US` or `fr-CA`.
+    all! : {} => List(Str)
+}

platform/Locale.roc

@@ -0,0 +1,14 @@
+## Provides functionality to change the behaviour of the terminal.
+## This is useful for running an app like vim or a game in the terminal.
+Tty := [].{
+    ## Enable terminal [raw mode](https://en.wikipedia.org/wiki/Terminal_mode) to disable some default terminal bevahiour.
+    ##
+    ## This leads to the following changes:
+    ## - Input will not be echoed to the terminal screen.
+    ## - Input will be sent straight to the program instead of being buffered (= collected) until the Enter key is pressed.
+    ## - Special keys like Backspace and CTRL+C will not be processed by the terminal driver but will be passed to the program.
+    enable_raw_mode! : {} => {}
+
+    ## Revert terminal to default behaviour
+    disable_raw_mode! : {} => {}
+}

platform/Tty.roc

@@ -1,6 +1,6 @@
 platform ""
     requires {} { main! : List(Str) => Try({}, [Exit(I32), ..]) }
-    exposes [Cmd, Dir, Env, File, Path, Random, Sleep, Stdin, Stdout, Stderr, Utc]
+    exposes [Cmd, Dir, Env, File, Locale, Path, Random, Sleep, Stdin, Stdout, Stderr, Tty, Utc]
     packages {}
     provides { main_for_host! : "main_for_host" }
     targets: {
@@ -17,12 +17,14 @@ import Cmd
 import Dir
 import Env
 import File
+import Locale
 import Path
 import Random
 import Sleep
 import Stdin
 import Stdout
 import Stderr
+import Tty
 import Utc
 
 main_for_host! : List(Str) => I32