Implement stdout and stderr (#959)

alantech · Nov 15, 2024 · bce100c · bce100c
1 parent b8917c9
commit bce100c
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 0 deletions.
diff --git a/alan/src/compile/integration_tests.rs b/alan/src/compile/integration_tests.rs
@@ -550,6 +550,26 @@ test_full!(print_compile_time_string => r#"
     }"#;
     stdout "FooBar\n";
 );
+test_full!(stdout_and_stderr => r#"
+    export fn main {
+      let hello = 'Hello';
+      let goodbye = 'Goodbye';
+      let comma = ', ';
+      let world = 'World';
+      let end = '!\n';
+
+      stdout(hello);
+      stdout(comma);
+      stdout(world);
+      stdout(end);
+      goodbye.stderr;
+      comma.stderr;
+      world.stderr;
+      end.stderr;
+    }"#;
+    stdout "Hello, World!\n";
+    stderr "Goodbye, World!\n";
+);
 
 // Basic Math Tests
 

diff --git a/alan/src/std/root.ln b/alan/src/std/root.ln
@@ -4892,6 +4892,11 @@ export fn{Rs} eprint{T}(v: T!) = if({T}(v).exists,
   fn = v.getOrExit.eprint,
   fn = v.Error.getOrExit.eprint);
 
+export fn{Rs} stdout "print!" :: ("{}", string);
+export fn{Js} stdout "((s) => process.stdout.write(s.val))" :: string;
+export fn{Rs} stderr "eprint!" :: ("{}", string);
+export fn{Js} stderr "((s) => process.stderr.write(s.val))" :: string;
+
 /// Built-in operator definitions
 export infix add as + precedence 3;
 export infix sub as - precedence 3;