Add Tty/Locale modules and update examples

Author: codegod100

Cargo.lock

@@ -13,12 +13,16 @@ 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
+crossterm = "0.27"
 roc_std_new.workspace = true
 roc_io_error.workspace = true
 roc_random.workspace = true
 roc_command.workspace = true
 memoffset = "=0.9.1"
 
+[target.'cfg(not(target_os = "macos"))'.dependencies]
+sys-locale.workspace = true
+
 [workspace]
 members = [
     "crates/roc_io_error",

Cargo.toml

@@ -17,6 +17,7 @@ get_rust_triple() {
     esac
 }
 
+
 # All supported targets
 ALL_TARGETS="x64mac arm64mac x64musl arm64musl"
 

build.sh

@@ -86,6 +86,14 @@ export PATH="$(pwd)/$ROC_DIR:$PATH"
 echo ""
 echo "Using roc version: $(roc version)"
 
+if [ "$(uname -s)" = "Darwin" ] && [ -z "${SDKROOT:-}" ]; then
+    SDKROOT=$(xcrun --sdk macosx --show-sdk-path 2>/dev/null || true)
+    if [ -n "$SDKROOT" ]; then
+        export SDKROOT
+        echo "Using SDKROOT: $SDKROOT"
+    fi
+fi
+
 # Build the platform
 if [ "${NO_BUILD:-}" != "1" ]; then
     echo ""

ci/all_tests.sh

@@ -10,4 +10,6 @@ version.workspace = true
 [dependencies]
 roc_std.workspace = true
 roc_file.workspace = true
+
+[target.'cfg(not(target_os = "macos"))'.dependencies]
 sys-locale.workspace = true

crates/roc_env/Cargo.toml

@@ -58,13 +58,55 @@ pub fn exe_path() -> RocResult<RocList<u8>, ()> {
     }
 }
 
+#[cfg(target_os = "macos")]
+fn locale_from_env() -> Option<String> {
+    for key in ["LC_ALL", "LC_CTYPE", "LANG"] {
+        if let Ok(value) = std::env::var(key) {
+            let trimmed = value.trim();
+            if trimmed.is_empty() {
+                continue;
+            }
+            let locale = trimmed
+                .split('.')
+                .next()
+                .unwrap_or(trimmed)
+                .split('@')
+                .next()
+                .unwrap_or(trimmed)
+                .trim();
+            if !locale.is_empty() {
+                return Some(locale.to_string());
+            }
+        }
+    }
+
+    None
+}
+
+#[cfg(target_os = "macos")]
+pub fn get_locale() -> RocResult<RocStr, ()> {
+    locale_from_env()
+        .map(|locale| RocResult::ok(locale.as_str().into()))
+        .unwrap_or_else(|| RocResult::err(()))
+}
+
+#[cfg(target_os = "macos")]
+pub fn get_locales() -> RocList<RocStr> {
+    match locale_from_env() {
+        Some(locale) => RocList::from_slice(&[RocStr::from(locale.as_str())]),
+        None => RocList::empty(),
+    }
+}
+
+#[cfg(not(target_os = "macos"))]
 pub fn get_locale() -> RocResult<RocStr, ()> {
     sys_locale::get_locale().map_or_else(
         || RocResult::err(()),
         |locale| RocResult::ok(locale.to_string().as_str().into()),
     )
 }
 
+#[cfg(not(target_os = "macos"))]
 pub fn get_locales() -> RocList<RocStr> {
     const DEFAULT_MAX_LOCALES: usize = 10;
     let locales = sys_locale::get_locales();

crates/roc_env/src/lib.rs

@@ -16,7 +16,6 @@ path = "src/lib.rs"
 crossterm.workspace = true
 memmap2.workspace = true
 memchr.workspace = true
-sys-locale.workspace = true
 libc.workspace = true
 backtrace.workspace = true
 roc_std.workspace = true

crates/roc_host/Cargo.toml

@@ -17,4 +17,4 @@ main! = |_args| {
             Err(Exit(1))
         }
     }
-}
+}

examples/random.roc

@@ -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! : {} => {}
+}