@time()

crates/codegen/src/cpp.rs

@@ -2,10 +2,11 @@ use std::fmt::Display;
 
 use hir::{IR, IRKind, Value};
 
-const MODULE_INCLUDES: [&str; 3] = [
+const MODULE_INCLUDES: [&str; 4] = [
-    "\"hazure/io.hpp\"", // `read()` and `write()`
+    "\"hazure/io.hpp\"",
-    "<stdbool.h>", // bool type
+    "\"hazure/time.hpp\"",
-    "<string>", // string type
+    "<stdbool.h>",
+    "<string>",
 ];
 
 pub struct Codegen {
@@ -63,7 +64,8 @@ impl Codegen {
             IRKind::Intrinsic { name, args } => {
                 match name.as_str() {
                     "write" => { format!("hazure_write({}){}\n", self.gen_ir(&args[0], false), semicolon!()) },
-                    "read" => { format!("hazure_read({}){}\n", self.gen_ir(&args[0], false), semicolon!()) },
+                    "read" => { format!("hazure_read(){}\n", semicolon!()) },
+                    "time" => { format!("hazure_get_time(){}\n", semicolon!()) },
                     _ => unreachable!(format!("Unknown intrinsic: {}", name)) // Shoul be handled by lowering
                 }
             },

crates/hir/src/lib.rs

@@ -1,9 +1,10 @@
 use std::ops::Range;
 use parser::Expr;
 
-const INTRINSICS: [&str; 2] = [
+const INTRINSICS: [&str; 3] = [
     "write",
     "read",
+    "time",
 ];
 
 #[derive(Debug)]

example/time.hz

@@ -0,0 +1,4 @@
+fun main: int = do
+    @time()
+    |> @write();
+end;

lib/time.hpp

@@ -0,0 +1,9 @@
+#pragma once
+#include <ctime>
+
+/*
+ * @brief Get time in seconds since the Epoch.
+ */
+int hazure_get_time() {
+    return std::time(0);
+}