@grain/stdlib 0.5.13 → 0.6.0

package/{sys → wasi}/time.gr

@@ -1,22 +1,16 @@
 /**
- * @module Time: Access to system clocks.
+ * Access to system clocks.
  *
- * @example import Time from "sys/time"
+ * @example from "wasi/time" include Time
  */
+module Time
 
-import WasmI32, {
-  add as (+),
-  eq as (==),
-  ne as (!=),
-} from "runtime/unsafe/wasmi32"
-import Memory from "runtime/unsafe/memory"
-import Wasi from "runtime/wasi"
-import Errors from "runtime/unsafe/errors"
-import { allocateInt64, tagSimpleNumber } from "runtime/dataStructures"
-
-/**
- * @section Values: Functions and constants included in the Time module.
- */
+from "runtime/unsafe/wasmi32" include WasmI32
+use WasmI32.{ (+), (==), (!=) }
+from "runtime/unsafe/memory" include Memory
+from "runtime/wasi" include Wasi
+from "runtime/dataStructures" include DataStructures
+use DataStructures.{ allocateInt64, tagSimpleNumber }
 
 @unsafe
 let getClockTime = (clockid, precision) => {
@@ -25,10 +19,9 @@ let getClockTime = (clockid, precision) => {
   let err = Wasi.clock_time_get(clockid, precision, timePtr)
   if (err != Wasi._ESUCCESS) {
     Memory.free(int64Ptr)
-    Err(Wasi.SystemError(tagSimpleNumber(err)))
-  } else {
-    Ok(WasmI32.toGrain(int64Ptr): Int64)
+    return Err(Wasi.SystemError(tagSimpleNumber(err)))
   }
+  return Ok(WasmI32.toGrain(int64Ptr): Int64)
 }
 
 /**
@@ -38,7 +31,7 @@ let getClockTime = (clockid, precision) => {
  * @returns `Ok(time)` of the current time if successful or `Err(exception)` otherwise
  */
 @unsafe
-export let realTime = () => {
+provide let realTime = () => {
   getClockTime(Wasi._CLOCK_REALTIME, 1000N)
 }
 
@@ -51,7 +44,7 @@ export let realTime = () => {
  * @returns `Ok(time)` of the current time if successful or `Err(exception)` otherwise
  */
 @unsafe
-export let monotonicTime = () => {
+provide let monotonicTime = () => {
   getClockTime(Wasi._CLOCK_MONOTONIC, 1N)
 }
 
@@ -61,7 +54,7 @@ export let monotonicTime = () => {
  * @returns `Ok(elapsed)` of the elapsed nanoseconds if successful or `Err(exception)` otherwise
  */
 @unsafe
-export let processCpuTime = () => {
+provide let processCpuTime = () => {
   getClockTime(Wasi._CLOCK_PROCESS_CPUTIME, 1N)
 }
 
@@ -71,6 +64,6 @@ export let processCpuTime = () => {
  * @returns `Ok(elapsed)` of the elapsed nanoseconds if successful or `Err(exception)` otherwise
  */
 @unsafe
-export let threadCpuTime = () => {
+provide let threadCpuTime = () => {
   getClockTime(Wasi._CLOCK_THREAD_CPUTIME, 1N)
 }

package/{sys → wasi}/time.md

@@ -5,7 +5,7 @@ title: Time
 Access to system clocks.
 
 ```grain
-import Time from "sys/time"
+from "wasi/time" include Time
 ```
 
 ## Values
@@ -15,7 +15,7 @@ Functions and constants included in the Time module.
 ### Time.**realTime**
 
 ```grain
-realTime : () -> Result<Int64, Exception>
+realTime : () => Result<Int64, Exception>
 ```
 
 Get the current time, in nanoseconds.
@@ -30,7 +30,7 @@ Returns:
 ### Time.**monotonicTime**
 
 ```grain
-monotonicTime : () -> Result<Int64, Exception>
+monotonicTime : () => Result<Int64, Exception>
 ```
 
 Get the time of the system's high-resolution clock, in nanoseconds.
@@ -47,7 +47,7 @@ Returns:
 ### Time.**processCpuTime**
 
 ```grain
-processCpuTime : () -> Result<Int64, Exception>
+processCpuTime : () => Result<Int64, Exception>
 ```
 
 Get the number of nanoseconds elapsed since the process began.
@@ -61,7 +61,7 @@ Returns:
 ### Time.**threadCpuTime**
 
 ```grain
-threadCpuTime : () -> Result<Int64, Exception>
+threadCpuTime : () => Result<Int64, Exception>
 ```
 
 Get the number of nanoseconds elapsed since the thread began.