Add Tty and Locale modules (#418)

* Add Tty/Locale modules and example tests

* Add comments about raw mode

* set specific version

---------

Co-authored-by: Anton-4 <17049058+Anton-4@users.noreply.github.com>

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.29.0"
 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 ""
@@ -105,6 +113,8 @@ MIGRATED_EXAMPLES=(
     "command"
     "time"
     "random"
+    "locale"
+    "tty"
 )
 
 EXAMPLES_DIR="${ROOT_DIR}/examples/"

ci/all_tests.sh

@@ -10,14 +10,13 @@ source ./ci/expect_scripts/shared-code.exp
 spawn $env(EXAMPLES_DIR)locale
 
 set expected_output [normalize_output {
-The most preferred locale for this system or application: [a-zA-Z\-]+
+The most preferred locale for this system or application: [A-Za-z0-9_\-]+
 All available locales for this system or application: \[.*\]
 }]
 
 expect -re $expected_output {
-        expect eof {
-            check_exit_and_segfault
-        }
+    expect eof {
+        check_exit_and_segfault
     }
 }
 

ci/expect_scripts/locale.exp

@@ -0,0 +1,21 @@
+#!/usr/bin/expect
+
+# uncomment line below for debugging
+# exp_internal 1
+
+set timeout 7
+
+source ./ci/expect_scripts/shared-code.exp
+
+spawn $env(EXAMPLES_DIR)tty
+
+expect -re "Tty: enabling raw mode" {
+    expect -re "Tty: disabling raw mode" {
+        expect eof {
+            check_exit_and_segfault
+        }
+    }
+}
+
+puts stderr "\nExpect script failed: output was not as expected. Diff the output with expected_output in this script. Alternatively, uncomment `exp_internal 1` to debug."
+exit 1

ci/expect_scripts/tty.exp

@@ -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

@@ -10,7 +10,8 @@ main! = |_args| {
     Stdout.line!("The most preferred locale for this system or application: ${locale_str}")
 
     all_locales = Locale.all!()
-    Stdout.line!("All available locales: ${Inspect.to_str(all_locales)}")
+    locales_str = Str.join_with(all_locales, ", ")
+    Stdout.line!("All available locales for this system or application: [${locales_str}]")
 
     Ok({})
-}
+}