firefly-compiler 0.5.35 → 0.5.37

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

@@ -42,6 +42,8 @@ import * as ff_core_Int from "../../ff/core/Int.mjs"
 
 import * as ff_core_IntMap from "../../ff/core/IntMap.mjs"
 
+import * as ff_core_Js from "../../ff/core/Js.mjs"
+
 import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
@@ -68,6 +70,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
 
 import * as ff_core_Path from "../../ff/core/Path.mjs"
 
+import * as ff_core_Queue from "../../ff/core/Queue.mjs"
+
 import * as ff_core_Random from "../../ff/core/Random.mjs"
 
 import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
@@ -90,8 +94,6 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
 
 import * as ff_core_Unit from "../../ff/core/Unit.mjs"
 
-import * as ff_core_UnsafeJs from "../../ff/core/UnsafeJs.mjs"
-
 // type AssetSystem
 export function AssetSystem(files_) {
 return {files_};
@@ -125,7 +127,7 @@ const streams_ = ff_core_List.List_collect(ff_core_Map.Map_pairs(self_.files_, f
 const p_ = _1.first_;
 const s_ = _1.second_;
 if(ff_core_String.String_startsWith(p_, prefix_, 0)) {
-return ff_core_Option.Some(ff_core_Pair.Pair(ff_core_String.String_dropFirst(p_, (ff_core_String.String_size(prefix_) - 1)), s_))
+return ff_core_Option.Some(ff_core_Pair.Pair(ff_core_String.String_dropFirst(p_, (prefix_.length - 1)), s_))
 }
 }
 {
@@ -153,7 +155,7 @@ return ff_core_List.List_distinct(ff_core_List.List_collect(ff_core_Map.Map_pair
 {
 const p_ = _1.first_;
 if(ff_core_String.String_startsWith(p_, prefix_, 0)) {
-return ff_core_Option.Some(ff_core_String.String_takeWhile(ff_core_String.String_dropFirst(p_, ff_core_String.String_size(prefix_)), ((_w1) => {
+return ff_core_Option.Some(ff_core_String.String_takeWhile(ff_core_String.String_dropFirst(p_, prefix_.length), ((_w1) => {
 return (_w1 !== 47)
 })))
 return
@@ -203,7 +205,7 @@ const streams_ = ff_core_List.List_collect(ff_core_Map.Map_pairs(self_.files_, f
 const p_ = _1.first_;
 const s_ = _1.second_;
 if(ff_core_String.String_startsWith(p_, prefix_, 0)) {
-return ff_core_Option.Some(ff_core_Pair.Pair(ff_core_String.String_dropFirst(p_, (ff_core_String.String_size(prefix_) - 1)), s_))
+return ff_core_Option.Some(ff_core_Pair.Pair(ff_core_String.String_dropFirst(p_, (prefix_.length - 1)), s_))
 }
 }
 {
@@ -231,7 +233,7 @@ return ff_core_List.List_distinct(ff_core_List.List_collect(ff_core_Map.Map_pair
 {
 const p_ = _1.first_;
 if(ff_core_String.String_startsWith(p_, prefix_, 0)) {
-return ff_core_Option.Some(ff_core_String.String_takeWhile(ff_core_String.String_dropFirst(p_, ff_core_String.String_size(prefix_)), ((_w1) => {
+return ff_core_Option.Some(ff_core_String.String_takeWhile(ff_core_String.String_dropFirst(p_, prefix_.length), ((_w1) => {
 return (_w1 !== 47)
 })))
 return

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

@@ -42,6 +42,8 @@ import * as ff_core_Int from "../../ff/core/Int.mjs"
 
 import * as ff_core_IntMap from "../../ff/core/IntMap.mjs"
 
+import * as ff_core_Js from "../../ff/core/Js.mjs"
+
 import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
@@ -68,6 +70,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
 
 import * as ff_core_Path from "../../ff/core/Path.mjs"
 
+import * as ff_core_Queue from "../../ff/core/Queue.mjs"
+
 import * as ff_core_Random from "../../ff/core/Random.mjs"
 
 import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
@@ -90,103 +94,131 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
 
 import * as ff_core_Unit from "../../ff/core/Unit.mjs"
 
-import * as ff_core_UnsafeJs from "../../ff/core/UnsafeJs.mjs"
-
 // type Atomic
 
 
 
 
 export function new_(value_) {
-
-        return {value: value_}
-    
+return {value: value_}
 }
 
 export async function new_$(value_, $task) {
-throw new Error('Function new is missing on this target in async context.');
+return {value: value_}
 }
 
 export function Atomic_modify(self_, body_) {
-
-            return self_.value = body_(self_.value)
-        
+if(false) {
+let currentValue_ = self_.value;
+let newValue_ = body_(self_.value);
+while((currentValue_ !== self_.value)) {
+currentValue_ = self_.value;
+newValue_ = body_(self_.value)
+};
+self_.value = newValue_;
+return newValue_
+} else {
+const newValue_ = body_(self_.value);
+self_.value = newValue_;
+return newValue_
+}
 }
 
 export function Atomic_getAndModify(self_, body_) {
-
-            const currentValue = self_.value
-            self_.value = body_(currentValue)
-            return currentValue
-        
+let currentValue_ = self_.value;
+if(false) {
+let newValue_ = body_(self_.value);
+while((currentValue_ !== self_.value)) {
+currentValue_ = self_.value;
+newValue_ = body_(self_.value)
+};
+self_.value = newValue_;
+return currentValue_
+} else {
+const newValue_ = body_(self_.value);
+self_.value = newValue_;
+return currentValue_
+}
 }
 
 export function Atomic_get(self_) {
-
-            return self_.value
-        
+return self_.value
 }
 
 export function Atomic_set(self_, value_) {
-
-            self_.value = value
-        
+self_.value = value_
 }
 
 export function Atomic_getAndSet(self_, newValue_) {
-
-            const currentValue = self_.value
-            self_.value = newValue
-            return currentValue
-        
+const currentValue_ = self_.value;
+self_.value = newValue_;
+return currentValue_
 }
 
 export function Atomic_compareAndSet(self_, currentValue_, newValue_) {
-
-            if(self_.value !== currentValue) return false
-            self_.value = newValue
-            return true
-        
+if((self_.value !== currentValue_)) {
+return false
+} else {
+self_.value = newValue_;
+return true
+}
 }
 
 export async function Atomic_modify$(self_, body_, $task) {
-
-            let currentValue, newValue
-            do {
-                currentValue = self_.value
-                newValue = await body_(currentValue)
-            } while(currentValue !== self_.value)
-            self_.value = newValue
-            return newValue
-        
+if(true) {
+let currentValue_ = self_.value;
+let newValue_ = (await body_(self_.value, $task));
+while((currentValue_ !== self_.value)) {
+currentValue_ = self_.value;
+newValue_ = (await body_(self_.value, $task))
+};
+self_.value = newValue_;
+return newValue_
+} else {
+const newValue_ = (await body_(self_.value, $task));
+self_.value = newValue_;
+return newValue_
+}
 }
 
 export async function Atomic_getAndModify$(self_, body_, $task) {
-
-            let currentValue, newValue
-            do {
-                currentValue = self_.value
-                newValue = await body_(currentValue)
-            } while(currentValue !== self_.value)
-            self_.value = newValue
-            return currentValue
-        
+let currentValue_ = self_.value;
+if(true) {
+let newValue_ = (await body_(self_.value, $task));
+while((currentValue_ !== self_.value)) {
+currentValue_ = self_.value;
+newValue_ = (await body_(self_.value, $task))
+};
+self_.value = newValue_;
+return currentValue_
+} else {
+const newValue_ = (await body_(self_.value, $task));
+self_.value = newValue_;
+return currentValue_
+}
 }
 
 export async function Atomic_get$(self_, $task) {
-throw new Error('Function Atomic_get is missing on this target in async context.');
+return self_.value
 }
 
 export async function Atomic_set$(self_, value_, $task) {
-throw new Error('Function Atomic_set is missing on this target in async context.');
+self_.value = value_
 }
 
 export async function Atomic_getAndSet$(self_, newValue_, $task) {
-throw new Error('Function Atomic_getAndSet is missing on this target in async context.');
+const currentValue_ = self_.value;
+self_.value = newValue_;
+return currentValue_
 }
 
 export async function Atomic_compareAndSet$(self_, currentValue_, newValue_, $task) {
-throw new Error('Function Atomic_compareAndSet is missing on this target in async context.');
+if((self_.value !== currentValue_)) {
+return false
+} else {
+self_.value = newValue_;
+return true
+}
 }
 
 

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

@@ -42,6 +42,8 @@ import * as ff_core_Int from "../../ff/core/Int.mjs"
 
 import * as ff_core_IntMap from "../../ff/core/IntMap.mjs"
 
+import * as ff_core_Js from "../../ff/core/Js.mjs"
+
 import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
@@ -68,6 +70,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
 
 import * as ff_core_Path from "../../ff/core/Path.mjs"
 
+import * as ff_core_Queue from "../../ff/core/Queue.mjs"
+
 import * as ff_core_Random from "../../ff/core/Random.mjs"
 
 import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
@@ -90,8 +94,6 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
 
 import * as ff_core_Unit from "../../ff/core/Unit.mjs"
 
-import * as ff_core_UnsafeJs from "../../ff/core/UnsafeJs.mjs"
-
 // type Bool
 const False$ = {False: true};
 export function False() {
@@ -114,7 +116,7 @@ const _1 = self_;
 if(!_1) {
 return 0
 }
-if(_1) {
+{
 return 1
 }
 }
@@ -126,7 +128,7 @@ const _1 = self_;
 if(!_1) {
 return 0
 }
-if(_1) {
+{
 return 1
 }
 }

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

@@ -42,6 +42,8 @@ import * as ff_core_Int from "../../ff/core/Int.mjs"
 
 import * as ff_core_IntMap from "../../ff/core/IntMap.mjs"
 
+import * as ff_core_Js from "../../ff/core/Js.mjs"
+
 import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
@@ -68,6 +70,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
 
 import * as ff_core_Path from "../../ff/core/Path.mjs"
 
+import * as ff_core_Queue from "../../ff/core/Queue.mjs"
+
 import * as ff_core_Random from "../../ff/core/Random.mjs"
 
 import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
@@ -90,8 +94,6 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
 
 import * as ff_core_Unit from "../../ff/core/Unit.mjs"
 
-import * as ff_core_UnsafeJs from "../../ff/core/UnsafeJs.mjs"
-
 // type BrowserSystem
 
 
@@ -102,78 +104,85 @@ import * as ff_core_UnsafeJs from "../../ff/core/UnsafeJs.mjs"
 
 
 export function BrowserSystem_httpClient(self_) {
-throw new Error('Function BrowserSystem_httpClient is missing on this target in sync context.');
+return globalThis
 }
 
 export function BrowserSystem_mainTask(self_) {
-throw new Error('Function BrowserSystem_mainTask is missing on this target in sync context.');
+return self_["task_"]
 }
 
 export function BrowserSystem_crypto(self_) {
-throw new Error('Function BrowserSystem_crypto is missing on this target in sync context.');
+return crypto
 }
 
 export function BrowserSystem_js(self_) {
-throw new Error('Function BrowserSystem_js is missing on this target in sync context.');
+return globalThis
 }
 
 export function BrowserSystem_url(self_) {
-throw new Error('Function BrowserSystem_url is missing on this target in sync context.');
+return location.href
 }
 
 export function BrowserSystem_urlPath(self_) {
-throw new Error('Function BrowserSystem_urlPath is missing on this target in sync context.');
+return location.pathname
 }
 
 export function BrowserSystem_urlQuery(self_, name_) {
-throw new Error('Function BrowserSystem_urlQuery is missing on this target in sync context.');
+const param_ = (new URLSearchParams(location.search)).get(name_);
+if(ff_core_JsValue.JsValue_isNullOrUndefined(param_)) {
+return ff_core_Option.None()
+} else {
+return ff_core_Option.Some(param_)
+}
 }
 
 export function BrowserSystem_urlFragment(self_) {
-throw new Error('Function BrowserSystem_urlFragment is missing on this target in sync context.');
+if((!location.hash.startsWith("#"))) {
+return ff_core_Option.None()
+} else {
+return ff_core_Option.Some(location.hash.slice(1))
+}
 }
 
 export async function BrowserSystem_httpClient$(self_, $task) {
-return typeof globalThis !== 'undefined' ? globalThis : window
+return globalThis
 }
 
 export async function BrowserSystem_mainTask$(self_, $task) {
-return self_.task_
+return self_["task_"]
 }
 
 export async function BrowserSystem_crypto$(self_, $task) {
-return (typeof globalThis !== 'undefined' ? globalThis : window).crypto
+return crypto
 }
 
 export async function BrowserSystem_js$(self_, $task) {
-return typeof globalThis !== 'undefined' ? globalThis : window
+return globalThis
 }
 
 export async function BrowserSystem_url$(self_, $task) {
-
-            return location.href;
-        
+return location.href
 }
 
 export async function BrowserSystem_urlPath$(self_, $task) {
-
-            return location.pathname;
-        
+return location.pathname
 }
 
 export async function BrowserSystem_urlQuery$(self_, name_, $task) {
-
-            const param = new URLSearchParams(location.search).get(name_)
-            if(param == null) return ff_core_Option.None();
-            return ff_core_Option.Some(param);
-        
+const param_ = (new URLSearchParams(location.search)).get(name_);
+if(ff_core_JsValue.JsValue_isNullOrUndefined(param_)) {
+return ff_core_Option.None()
+} else {
+return ff_core_Option.Some(param_)
+}
 }
 
 export async function BrowserSystem_urlFragment$(self_, $task) {
-
-            if(!location.hash.startsWith('#')) return ff_core_Option.None();
-            return ff_core_Option.Some(location.hash.slice(1));
-        
+if((!location.hash.startsWith("#"))) {
+return ff_core_Option.None()
+} else {
+return ff_core_Option.Some(location.hash.slice(1))
+}
 }