firefly-compiler 0.4.4

package/output/js/ff/core/Char.mjs

@@ -0,0 +1,145 @@
+
+
+import * as ff_core_Any from "../../ff/core/Any.mjs"
+
+import * as ff_core_Array from "../../ff/core/Array.mjs"
+
+import * as ff_core_AssetSystem from "../../ff/core/AssetSystem.mjs"
+
+import * as ff_core_Atomic from "../../ff/core/Atomic.mjs"
+
+import * as ff_core_Bool from "../../ff/core/Bool.mjs"
+
+import * as ff_core_BrowserSystem from "../../ff/core/BrowserSystem.mjs"
+
+import * as ff_core_Buffer from "../../ff/core/Buffer.mjs"
+
+import * as ff_core_BuildSystem from "../../ff/core/BuildSystem.mjs"
+
+import * as ff_core_Channel from "../../ff/core/Channel.mjs"
+
+import * as ff_core_Char from "../../ff/core/Char.mjs"
+
+import * as ff_core_Core from "../../ff/core/Core.mjs"
+
+import * as ff_core_Duration from "../../ff/core/Duration.mjs"
+
+import * as ff_core_Equal from "../../ff/core/Equal.mjs"
+
+import * as ff_core_Error from "../../ff/core/Error.mjs"
+
+import * as ff_core_FileHandle from "../../ff/core/FileHandle.mjs"
+
+import * as ff_core_Float from "../../ff/core/Float.mjs"
+
+import * as ff_core_HttpClient from "../../ff/core/HttpClient.mjs"
+
+import * as ff_core_Instant from "../../ff/core/Instant.mjs"
+
+import * as ff_core_Int from "../../ff/core/Int.mjs"
+
+import * as ff_core_IntMap from "../../ff/core/IntMap.mjs"
+
+import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
+
+import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
+
+import * as ff_core_List from "../../ff/core/List.mjs"
+
+import * as ff_core_Lock from "../../ff/core/Lock.mjs"
+
+import * as ff_core_Log from "../../ff/core/Log.mjs"
+
+import * as ff_core_Map from "../../ff/core/Map.mjs"
+
+import * as ff_core_NodeSystem from "../../ff/core/NodeSystem.mjs"
+
+import * as ff_core_Nothing from "../../ff/core/Nothing.mjs"
+
+import * as ff_core_Option from "../../ff/core/Option.mjs"
+
+import * as ff_core_Ordering from "../../ff/core/Ordering.mjs"
+
+import * as ff_core_Pair from "../../ff/core/Pair.mjs"
+
+import * as ff_core_Path from "../../ff/core/Path.mjs"
+
+import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
+
+import * as ff_core_Set from "../../ff/core/Set.mjs"
+
+import * as ff_core_Show from "../../ff/core/Show.mjs"
+
+import * as ff_core_Stack from "../../ff/core/Stack.mjs"
+
+import * as ff_core_Stream from "../../ff/core/Stream.mjs"
+
+import * as ff_core_String from "../../ff/core/String.mjs"
+
+import * as ff_core_StringMap from "../../ff/core/StringMap.mjs"
+
+import * as ff_core_Task from "../../ff/core/Task.mjs"
+
+import * as ff_core_Try from "../../ff/core/Try.mjs"
+
+import * as ff_core_Unit from "../../ff/core/Unit.mjs"
+
+// newtype Char
+
+
+
+
+
+
+
+export function Char_isAsciiLetter(self_) {
+return (ff_core_Char.Char_isAsciiUpper(self_) || ff_core_Char.Char_isAsciiLower(self_))
+}
+
+export function Char_isAsciiLetterOrDigit(self_) {
+return (ff_core_Char.Char_isAsciiLetter(self_) || ff_core_Char.Char_isAsciiDigit(self_))
+}
+
+export function Char_isAsciiUpper(self_) {
+return ((self_ >= 65) && (self_ <= 90))
+}
+
+export function Char_isAsciiLower(self_) {
+return ((self_ >= 97) && (self_ <= 122))
+}
+
+export function Char_isAsciiDigit(self_) {
+return ((self_ >= 48) && (self_ <= 57))
+}
+
+export function Char_toString(self_) {
+return String.fromCharCode(self_)
+}
+
+export async function Char_isAsciiLetter$(self_, $task) {
+return (ff_core_Char.Char_isAsciiUpper(self_) || ff_core_Char.Char_isAsciiLower(self_))
+}
+
+export async function Char_isAsciiLetterOrDigit$(self_, $task) {
+return (ff_core_Char.Char_isAsciiLetter(self_) || ff_core_Char.Char_isAsciiDigit(self_))
+}
+
+export async function Char_isAsciiUpper$(self_, $task) {
+return ((self_ >= 65) && (self_ <= 90))
+}
+
+export async function Char_isAsciiLower$(self_, $task) {
+return ((self_ >= 97) && (self_ <= 122))
+}
+
+export async function Char_isAsciiDigit$(self_, $task) {
+return ((self_ >= 48) && (self_ <= 57))
+}
+
+export async function Char_toString$(self_, $task) {
+throw new Error('Function Char_toString is missing on this target in async context.');
+}
+
+
+
+

package/output/js/ff/core/Core.mjs

@@ -0,0 +1,300 @@
+
+
+import * as ff_core_Any from "../../ff/core/Any.mjs"
+
+import * as ff_core_Array from "../../ff/core/Array.mjs"
+
+import * as ff_core_AssetSystem from "../../ff/core/AssetSystem.mjs"
+
+import * as ff_core_Atomic from "../../ff/core/Atomic.mjs"
+
+import * as ff_core_Bool from "../../ff/core/Bool.mjs"
+
+import * as ff_core_BrowserSystem from "../../ff/core/BrowserSystem.mjs"
+
+import * as ff_core_Buffer from "../../ff/core/Buffer.mjs"
+
+import * as ff_core_BuildSystem from "../../ff/core/BuildSystem.mjs"
+
+import * as ff_core_Channel from "../../ff/core/Channel.mjs"
+
+import * as ff_core_Char from "../../ff/core/Char.mjs"
+
+import * as ff_core_Core from "../../ff/core/Core.mjs"
+
+import * as ff_core_Duration from "../../ff/core/Duration.mjs"
+
+import * as ff_core_Equal from "../../ff/core/Equal.mjs"
+
+import * as ff_core_Error from "../../ff/core/Error.mjs"
+
+import * as ff_core_FileHandle from "../../ff/core/FileHandle.mjs"
+
+import * as ff_core_Float from "../../ff/core/Float.mjs"
+
+import * as ff_core_HttpClient from "../../ff/core/HttpClient.mjs"
+
+import * as ff_core_Instant from "../../ff/core/Instant.mjs"
+
+import * as ff_core_Int from "../../ff/core/Int.mjs"
+
+import * as ff_core_IntMap from "../../ff/core/IntMap.mjs"
+
+import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
+
+import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
+
+import * as ff_core_List from "../../ff/core/List.mjs"
+
+import * as ff_core_Lock from "../../ff/core/Lock.mjs"
+
+import * as ff_core_Log from "../../ff/core/Log.mjs"
+
+import * as ff_core_Map from "../../ff/core/Map.mjs"
+
+import * as ff_core_NodeSystem from "../../ff/core/NodeSystem.mjs"
+
+import * as ff_core_Nothing from "../../ff/core/Nothing.mjs"
+
+import * as ff_core_Option from "../../ff/core/Option.mjs"
+
+import * as ff_core_Ordering from "../../ff/core/Ordering.mjs"
+
+import * as ff_core_Pair from "../../ff/core/Pair.mjs"
+
+import * as ff_core_Path from "../../ff/core/Path.mjs"
+
+import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
+
+import * as ff_core_Set from "../../ff/core/Set.mjs"
+
+import * as ff_core_Show from "../../ff/core/Show.mjs"
+
+import * as ff_core_Stack from "../../ff/core/Stack.mjs"
+
+import * as ff_core_Stream from "../../ff/core/Stream.mjs"
+
+import * as ff_core_String from "../../ff/core/String.mjs"
+
+import * as ff_core_StringMap from "../../ff/core/StringMap.mjs"
+
+import * as ff_core_Task from "../../ff/core/Task.mjs"
+
+import * as ff_core_Try from "../../ff/core/Try.mjs"
+
+import * as ff_core_Unit from "../../ff/core/Unit.mjs"
+
+// type GrabException
+const GrabException$ = {GrabException: true};
+export function GrabException() {
+return GrabException$;
+}
+
+
+
+export function if_(condition_, body_) {
+{
+const _1 = condition_;
+{
+if(!_1) {
+return ff_core_Option.None()
+return
+}
+}
+{
+if(_1) {
+return ff_core_Option.Some(body_())
+return
+}
+}
+}
+}
+
+export function while_(condition_, body_) {
+{
+const _1 = condition_();
+{
+if(!_1) {
+
+return
+}
+}
+{
+if(_1) {
+body_();
+while(condition_()) {
+body_()
+}
+return
+}
+}
+}
+}
+
+export function doWhile_(body_) {
+while(body_()) {
+
+}
+}
+
+export function doUntil_(body_) {
+_tailcall: for(;;) {
+{
+const _1 = body_();
+{
+if(_1.Some) {
+const v_ = _1.value_;
+return v_
+return
+}
+}
+{
+if(_1.None) {
+{
+const body_r_ = body_;
+body_ = body_r_
+continue _tailcall
+}
+return
+}
+}
+}
+return
+}
+}
+
+export function do_(body_) {
+return body_()
+}
+
+export function try_(body_) {
+
+        try {
+            return {Success: true, value_: body_()}
+        } catch(e) {
+            return {Failure: true, error_: e}
+        }
+    
+}
+
+export function throw_(exception_, ff_core_Any_HasAnyTag$E) {
+return ff_core_Core.throwAny_(ff_core_Any.toAny_(exception_, ff_core_Any_HasAnyTag$E))
+}
+
+export function throwAny_(exception_) {
+throw Object.assign(new Error(), {ffException: exception_})
+}
+
+export function panic_(message_) {
+throw new Error(message_)
+}
+
+export async function if_$(condition_, body_, $task) {
+{
+const _1 = condition_;
+{
+if(!_1) {
+return ff_core_Option.None()
+return
+}
+}
+{
+if(_1) {
+return ff_core_Option.Some((await body_($task)))
+return
+}
+}
+}
+}
+
+export async function while_$(condition_, body_, $task) {
+{
+const _1 = (await condition_($task));
+{
+if(!_1) {
+
+return
+}
+}
+{
+if(_1) {
+(await body_($task));
+while((await condition_($task))) {
+(await body_($task))
+}
+return
+}
+}
+}
+}
+
+export async function doWhile_$(body_, $task) {
+while((await body_($task))) {
+
+}
+}
+
+export async function doUntil_$(body_, $task) {
+_tailcall: for(;;) {
+{
+const _1 = (await body_($task));
+{
+if(_1.Some) {
+const v_ = _1.value_;
+return v_
+return
+}
+}
+{
+if(_1.None) {
+{
+const body_r_ = body_;
+body_ = body_r_
+continue _tailcall
+}
+return
+}
+}
+}
+return
+}
+}
+
+export async function do_$(body_, $task) {
+return (await body_($task))
+}
+
+export async function try_$(body_, $task) {
+
+        try {
+            return {Success: true, value_: await body_($task)}
+        } catch(e) {
+            return {Failure: true, error_: e}
+        }
+    
+}
+
+export async function throw_$(exception_, ff_core_Any_HasAnyTag$E, $task) {
+return ff_core_Core.throwAny_(ff_core_Any.toAny_(exception_, ff_core_Any_HasAnyTag$E))
+}
+
+export async function throwAny_$(exception_, $task) {
+throw new Error('Function throwAny is missing on this target in async context.');
+}
+
+export async function panic_$(message_, $task) {
+throw new Error('Function panic is missing on this target in async context.');
+}
+
+
+
+export const ff_core_Any_HasAnyTag$ff_core_Core_GrabException = {
+anyTag_() {
+return ff_core_Any.internalAnyTag_((("ff:core/Core.GrabException" + "[") + "]"))
+},
+async anyTag_$($task) {
+return ff_core_Any.internalAnyTag_((("ff:core/Core.GrabException" + "[") + "]"))
+}
+};
+
+

package/output/js/ff/core/Duration.mjs

@@ -0,0 +1,112 @@
+
+
+import * as ff_core_Any from "../../ff/core/Any.mjs"
+
+import * as ff_core_Array from "../../ff/core/Array.mjs"
+
+import * as ff_core_AssetSystem from "../../ff/core/AssetSystem.mjs"
+
+import * as ff_core_Atomic from "../../ff/core/Atomic.mjs"
+
+import * as ff_core_Bool from "../../ff/core/Bool.mjs"
+
+import * as ff_core_BrowserSystem from "../../ff/core/BrowserSystem.mjs"
+
+import * as ff_core_Buffer from "../../ff/core/Buffer.mjs"
+
+import * as ff_core_BuildSystem from "../../ff/core/BuildSystem.mjs"
+
+import * as ff_core_Channel from "../../ff/core/Channel.mjs"
+
+import * as ff_core_Char from "../../ff/core/Char.mjs"
+
+import * as ff_core_Core from "../../ff/core/Core.mjs"
+
+import * as ff_core_Duration from "../../ff/core/Duration.mjs"
+
+import * as ff_core_Equal from "../../ff/core/Equal.mjs"
+
+import * as ff_core_Error from "../../ff/core/Error.mjs"
+
+import * as ff_core_FileHandle from "../../ff/core/FileHandle.mjs"
+
+import * as ff_core_Float from "../../ff/core/Float.mjs"
+
+import * as ff_core_HttpClient from "../../ff/core/HttpClient.mjs"
+
+import * as ff_core_Instant from "../../ff/core/Instant.mjs"
+
+import * as ff_core_Int from "../../ff/core/Int.mjs"
+
+import * as ff_core_IntMap from "../../ff/core/IntMap.mjs"
+
+import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
+
+import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
+
+import * as ff_core_List from "../../ff/core/List.mjs"
+
+import * as ff_core_Lock from "../../ff/core/Lock.mjs"
+
+import * as ff_core_Log from "../../ff/core/Log.mjs"
+
+import * as ff_core_Map from "../../ff/core/Map.mjs"
+
+import * as ff_core_NodeSystem from "../../ff/core/NodeSystem.mjs"
+
+import * as ff_core_Nothing from "../../ff/core/Nothing.mjs"
+
+import * as ff_core_Option from "../../ff/core/Option.mjs"
+
+import * as ff_core_Ordering from "../../ff/core/Ordering.mjs"
+
+import * as ff_core_Pair from "../../ff/core/Pair.mjs"
+
+import * as ff_core_Path from "../../ff/core/Path.mjs"
+
+import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
+
+import * as ff_core_Set from "../../ff/core/Set.mjs"
+
+import * as ff_core_Show from "../../ff/core/Show.mjs"
+
+import * as ff_core_Stack from "../../ff/core/Stack.mjs"
+
+import * as ff_core_Stream from "../../ff/core/Stream.mjs"
+
+import * as ff_core_String from "../../ff/core/String.mjs"
+
+import * as ff_core_StringMap from "../../ff/core/StringMap.mjs"
+
+import * as ff_core_Task from "../../ff/core/Task.mjs"
+
+import * as ff_core_Try from "../../ff/core/Try.mjs"
+
+import * as ff_core_Unit from "../../ff/core/Unit.mjs"
+
+// newtype Duration
+
+
+
+
+
+
+
+export function Duration_show(self_, digits_ = 3) {
+return (ff_core_Float.Float_toFixed(self_, digits_) + " s")
+}
+
+export async function Duration_show$(self_, digits_ = 3, $task) {
+return (ff_core_Float.Float_toFixed(self_, digits_) + " s")
+}
+
+export const ff_core_Show_Show$ff_core_Duration_Duration = {
+show_(value_) {
+return ff_core_Duration.Duration_show(value_, 3)
+},
+async show_$(value_, $task) {
+return ff_core_Duration.Duration_show(value_, 3)
+}
+};
+
+