firefly-compiler 0.4.4

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

@@ -0,0 +1,433 @@
+
+
+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 String
+
+
+
+
+
+
+
+
+export function String_size(self_) {
+return self_.length
+}
+
+export function String_grab(self_, index_) {
+
+            if(index_ < 0 || index_ >= self_.length) {
+                ff_core_Try.internalThrowGrabException_()
+            }
+            return self_.charCodeAt(index_)
+        
+}
+
+export function String_replace(self_, needle_, replacement_) {
+return self_.replaceAll(needle_, replacement_)
+}
+
+export function String_replaceFirst(self_, needle_, replacement_) {
+return self_.replace(needle_, replacement_)
+}
+
+export function String_reverse(self_) {
+return [...self_].reverse().join('')
+}
+
+export function String_lower(self_) {
+return self_.toLowerCase()
+}
+
+export function String_upper(self_) {
+return self_.toUpperCase()
+}
+
+export function String_dropWhile(self_, p_) {
+
+            let i = 0
+            for(; i < self_.length && p_(self_.codePointAt(i)); i++);
+            return self_.slice(i)
+        
+}
+
+export function String_takeWhile(self_, p_) {
+
+            let i = 0
+            for(; i < self_.length && p_(self_.codePointAt(i)); i++);
+            return self_.slice(0, i)
+        
+}
+
+export function String_slice(self_, from_, until_) {
+return self_.slice(from_, until_)
+}
+
+export function String_split(self_, char_) {
+return self_.split(String.fromCharCode(char_))
+}
+
+export function String_splitFirst(self_, char_) {
+
+            const array = self_.split(String.fromCharCode(char_), 2)
+            return array.length === 2
+                ? ff_core_Option.Some(ff_core_Pair.Pair(array[0], array[1]))
+                : ff_core_Option.None()
+        
+}
+
+export function String_lines(self_) {
+
+            return ff_core_Array.Array_toList(self_.split(
+                new RegExp("[" + String.fromCharCode(13) + "]?[" + String.fromCharCode(10) + "]", "g")
+            ))
+        
+}
+
+export function String_dropFirst(self_, count_ = 1) {
+return self_.slice(count_)
+}
+
+export function String_dropLast(self_, count_ = 1) {
+return self_.slice(0, self_.length - count_)
+}
+
+export function String_getInt(self_) {
+
+            if(self_.length == 0) {
+                return ff_core_Option.None()
+            }
+            for(let i = 0; i < self_.length; i++) {
+                const c = self_.codePointAt(i)
+                if(c < 48 || c > 57) ff_core_Option.None()
+            }
+            return ff_core_Option.Some(parseInt(self_, 10));
+        
+}
+
+export function String_grabInt(self_) {
+
+            if(self_.length == 0) {
+                ff_core_Try.internalThrowGrabException_()
+            }
+            for(let i = 0; i < self_.length; i++) {
+                const c = self_.codePointAt(i)
+                if(c < 48 || c > 57) ff_core_Try.internalThrowGrabException_()
+            }
+            return parseInt(self_, 10);
+        
+}
+
+export function String_first(self_) {
+
+            return self_.length > 0
+                ? ff_core_Option.Some(self_.charCodeAt(0))
+                : ff_core_Option.None()
+        
+}
+
+export function String_last(self_) {
+
+            return self_.length > 0
+                ? ff_core_Option.Some(self_.charCodeAt(self_.length - 1))
+                : ff_core_Option.None()
+        
+}
+
+export function String_grabFirst(self_) {
+return ff_core_Option.Option_else(ff_core_String.String_first(self_), (() => {
+return ff_core_Try.internalThrowGrabException_()
+}))
+}
+
+export function String_grabLast(self_) {
+return ff_core_Option.Option_else(ff_core_String.String_last(self_), (() => {
+return ff_core_Try.internalThrowGrabException_()
+}))
+}
+
+export function String_contains(self_, substring_) {
+return self_.includes(substring_)
+}
+
+export function String_startsWith(self_, prefix_, offset_ = 0) {
+return self_.startsWith(prefix_, offset_)
+}
+
+export function String_endsWith(self_, prefix_) {
+return self_.endsWith(prefix_)
+}
+
+export function String_removeFirst(self_, prefix_) {
+if(ff_core_String.String_startsWith(self_, prefix_, 0)) {
+return ff_core_Option.Some(ff_core_String.String_dropFirst(self_, ff_core_String.String_size(prefix_)))
+} else {
+return ff_core_Option.None()
+}
+}
+
+export function String_removeLast(self_, suffix_) {
+if(ff_core_String.String_endsWith(self_, suffix_)) {
+return ff_core_Option.Some(ff_core_String.String_dropLast(self_, ff_core_String.String_size(suffix_)))
+} else {
+return ff_core_Option.None()
+}
+}
+
+export function String_any(self_, body_) {
+
+            for(let i = 0; i < self_.length; i++) {
+                if(body_(self_.charCodeAt(i))) return true;
+            }
+            return false;
+        
+}
+
+export function String_all(self_, body_) {
+
+            for(let i = 0; i < self_.length; i++) {
+                if(!body_(self_.charCodeAt(i))) return false;
+            }
+            return true;
+        
+}
+
+export function String_toBuffer(self_) {
+
+            const encoded = new TextEncoder().encode(self_)
+            return new DataView(encoded.buffer, encoded.byteOffset, encoded.byteLength)
+        
+}
+
+export async function String_size$(self_, $task) {
+throw new Error('Function String_size is missing on this target in async context.');
+}
+
+export async function String_grab$(self_, index_, $task) {
+throw new Error('Function String_grab is missing on this target in async context.');
+}
+
+export async function String_replace$(self_, needle_, replacement_, $task) {
+throw new Error('Function String_replace is missing on this target in async context.');
+}
+
+export async function String_replaceFirst$(self_, needle_, replacement_, $task) {
+throw new Error('Function String_replaceFirst is missing on this target in async context.');
+}
+
+export async function String_reverse$(self_, $task) {
+throw new Error('Function String_reverse is missing on this target in async context.');
+}
+
+export async function String_lower$(self_, $task) {
+throw new Error('Function String_lower is missing on this target in async context.');
+}
+
+export async function String_upper$(self_, $task) {
+throw new Error('Function String_upper is missing on this target in async context.');
+}
+
+export async function String_dropWhile$(self_, p_, $task) {
+
+            let i = 0
+            for(; i < self_.length && await p_(self_.codePointAt(i), $task); i++);
+            return self_.slice(i)
+        
+}
+
+export async function String_takeWhile$(self_, p_, $task) {
+
+            let i = 0
+            for(; i < self_.length && await p_(self_.codePointAt(i), $task); i++);
+            return self_.slice(0, i)
+        
+}
+
+export async function String_slice$(self_, from_, until_, $task) {
+throw new Error('Function String_slice is missing on this target in async context.');
+}
+
+export async function String_split$(self_, char_, $task) {
+throw new Error('Function String_split is missing on this target in async context.');
+}
+
+export async function String_splitFirst$(self_, char_, $task) {
+throw new Error('Function String_splitFirst is missing on this target in async context.');
+}
+
+export async function String_lines$(self_, $task) {
+throw new Error('Function String_lines is missing on this target in async context.');
+}
+
+export async function String_dropFirst$(self_, count_ = 1, $task) {
+throw new Error('Function String_dropFirst is missing on this target in async context.');
+}
+
+export async function String_dropLast$(self_, count_ = 1, $task) {
+throw new Error('Function String_dropLast is missing on this target in async context.');
+}
+
+export async function String_getInt$(self_, $task) {
+throw new Error('Function String_getInt is missing on this target in async context.');
+}
+
+export async function String_grabInt$(self_, $task) {
+throw new Error('Function String_grabInt is missing on this target in async context.');
+}
+
+export async function String_first$(self_, $task) {
+throw new Error('Function String_first is missing on this target in async context.');
+}
+
+export async function String_last$(self_, $task) {
+throw new Error('Function String_last is missing on this target in async context.');
+}
+
+export async function String_grabFirst$(self_, $task) {
+return ff_core_Option.Option_else(ff_core_String.String_first(self_), (() => {
+return ff_core_Try.internalThrowGrabException_()
+}))
+}
+
+export async function String_grabLast$(self_, $task) {
+return ff_core_Option.Option_else(ff_core_String.String_last(self_), (() => {
+return ff_core_Try.internalThrowGrabException_()
+}))
+}
+
+export async function String_contains$(self_, substring_, $task) {
+throw new Error('Function String_contains is missing on this target in async context.');
+}
+
+export async function String_startsWith$(self_, prefix_, offset_ = 0, $task) {
+throw new Error('Function String_startsWith is missing on this target in async context.');
+}
+
+export async function String_endsWith$(self_, prefix_, $task) {
+throw new Error('Function String_endsWith is missing on this target in async context.');
+}
+
+export async function String_removeFirst$(self_, prefix_, $task) {
+if(ff_core_String.String_startsWith(self_, prefix_, 0)) {
+return ff_core_Option.Some(ff_core_String.String_dropFirst(self_, ff_core_String.String_size(prefix_)))
+} else {
+return ff_core_Option.None()
+}
+}
+
+export async function String_removeLast$(self_, suffix_, $task) {
+if(ff_core_String.String_endsWith(self_, suffix_)) {
+return ff_core_Option.Some(ff_core_String.String_dropLast(self_, ff_core_String.String_size(suffix_)))
+} else {
+return ff_core_Option.None()
+}
+}
+
+export async function String_any$(self_, body_, $task) {
+
+            for(let i = 0; i < self_.length; i++) {
+                if(await body_(self_.charCodeAt(i), $task)) return true;
+            }
+            return false;
+        
+}
+
+export async function String_all$(self_, body_, $task) {
+
+            for(let i = 0; i < self_.length; i++) {
+                if(!await body_(self_.charCodeAt(i), $task)) return false;
+            }
+            return true;
+        
+}
+
+export async function String_toBuffer$(self_, $task) {
+throw new Error('Function String_toBuffer is missing on this target in async context.');
+}
+
+
+
+

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

@@ -0,0 +1,282 @@
+
+
+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 StringMap
+
+
+
+
+export function make_() {
+return new Map()
+}
+
+export async function make_$($task) {
+throw new Error('Function make is missing on this target in async context.');
+}
+
+export function StringMap_get(self_, key_) {
+return self_.has(key_) ? ff_core_Option.Some(self_.get(key_)) : ff_core_Option.None()
+}
+
+export function StringMap_grab(self_, key_) {
+
+            const result = self_.get(key_)
+            if(key_ === void 0 && !self_.has(key_)) {
+                ff_core_Try.internalThrowGrabException_()
+            }
+            return result
+        
+}
+
+export function StringMap_set(self_, key_, value_) {
+self_.set(key_, value_)
+}
+
+export function StringMap_has(self_, key_) {
+return self_.has(key_)
+}
+
+export function StringMap_remove(self_, key_) {
+return self_.delete(key_)
+}
+
+export function StringMap_clear(self_) {
+self_.clear()
+}
+
+export function StringMap_size(self_) {
+return self_.size
+}
+
+export function StringMap_each(self_, body_) {
+return self_.forEach((v, k) => body_(k, v))
+}
+
+export function StringMap_eachWhile(self_, body_) {
+for(const [k, v] of self_) if(!body_(k, v)) break
+}
+
+export function StringMap_toStack(self_) {
+const stack_ = ff_core_Stack.make_();
+ff_core_StringMap.StringMap_each(self_, ((k_, v_) => {
+ff_core_Stack.Stack_push(stack_, ff_core_Pair.Pair(k_, v_))
+}));
+return stack_
+}
+
+export function StringMap_toArray(self_) {
+return ff_core_Stack.Stack_drain(ff_core_StringMap.StringMap_toStack(self_))
+}
+
+export function StringMap_toList(self_) {
+return ff_core_Array.Array_toList(ff_core_StringMap.StringMap_toArray(self_))
+}
+
+export function StringMap_toStream(self_) {
+return ff_core_Array.Array_toStream(ff_core_StringMap.StringMap_toArray(self_), false)
+}
+
+export function StringMap_toMap(self_) {
+return ff_core_Array.Array_toMap(ff_core_StringMap.StringMap_toArray(self_), ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String)
+}
+
+export function StringMap_keys(self_) {
+const stack_ = ff_core_Stack.make_();
+ff_core_StringMap.StringMap_each(self_, ((k_, v_) => {
+ff_core_Stack.Stack_push(stack_, k_)
+}));
+return ff_core_Stack.Stack_toList(stack_, 0, 9007199254740991)
+}
+
+export function StringMap_values(self_) {
+const stack_ = ff_core_Stack.make_();
+ff_core_StringMap.StringMap_each(self_, ((k_, v_) => {
+ff_core_Stack.Stack_push(stack_, v_)
+}));
+return ff_core_Stack.Stack_toList(stack_, 0, 9007199254740991)
+}
+
+export function StringMap_copy(self_) {
+return new Map(self_)
+}
+
+export function StringMap_getOrSet(self_, key_, body_) {
+if((!ff_core_StringMap.StringMap_has(self_, key_))) {
+ff_core_StringMap.StringMap_set(self_, key_, body_())
+};
+return ff_core_StringMap.StringMap_grab(self_, key_)
+}
+
+export async function StringMap_get$(self_, key_, $task) {
+throw new Error('Function StringMap_get is missing on this target in async context.');
+}
+
+export async function StringMap_grab$(self_, key_, $task) {
+throw new Error('Function StringMap_grab is missing on this target in async context.');
+}
+
+export async function StringMap_set$(self_, key_, value_, $task) {
+throw new Error('Function StringMap_set is missing on this target in async context.');
+}
+
+export async function StringMap_has$(self_, key_, $task) {
+throw new Error('Function StringMap_has is missing on this target in async context.');
+}
+
+export async function StringMap_remove$(self_, key_, $task) {
+throw new Error('Function StringMap_remove is missing on this target in async context.');
+}
+
+export async function StringMap_clear$(self_, $task) {
+throw new Error('Function StringMap_clear is missing on this target in async context.');
+}
+
+export async function StringMap_size$(self_, $task) {
+throw new Error('Function StringMap_size is missing on this target in async context.');
+}
+
+export async function StringMap_each$(self_, body_, $task) {
+for(const [k, v] of self_) await body_(k, v)
+}
+
+export async function StringMap_eachWhile$(self_, body_, $task) {
+for(const [k, v] of self_) if(!await body_(k, v)) break
+}
+
+export async function StringMap_toStack$(self_, $task) {
+const stack_ = ff_core_Stack.make_();
+ff_core_StringMap.StringMap_each(self_, ((k_, v_) => {
+ff_core_Stack.Stack_push(stack_, ff_core_Pair.Pair(k_, v_))
+}));
+return stack_
+}
+
+export async function StringMap_toArray$(self_, $task) {
+return ff_core_Stack.Stack_drain(ff_core_StringMap.StringMap_toStack(self_))
+}
+
+export async function StringMap_toList$(self_, $task) {
+return ff_core_Array.Array_toList(ff_core_StringMap.StringMap_toArray(self_))
+}
+
+export async function StringMap_toStream$(self_, $task) {
+return (await ff_core_Array.Array_toStream$(ff_core_StringMap.StringMap_toArray(self_), false, $task))
+}
+
+export async function StringMap_toMap$(self_, $task) {
+return ff_core_Array.Array_toMap(ff_core_StringMap.StringMap_toArray(self_), ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String)
+}
+
+export async function StringMap_keys$(self_, $task) {
+const stack_ = ff_core_Stack.make_();
+ff_core_StringMap.StringMap_each(self_, ((k_, v_) => {
+ff_core_Stack.Stack_push(stack_, k_)
+}));
+return ff_core_Stack.Stack_toList(stack_, 0, 9007199254740991)
+}
+
+export async function StringMap_values$(self_, $task) {
+const stack_ = ff_core_Stack.make_();
+ff_core_StringMap.StringMap_each(self_, ((k_, v_) => {
+ff_core_Stack.Stack_push(stack_, v_)
+}));
+return ff_core_Stack.Stack_toList(stack_, 0, 9007199254740991)
+}
+
+export async function StringMap_copy$(self_, $task) {
+throw new Error('Function StringMap_copy is missing on this target in async context.');
+}
+
+export async function StringMap_getOrSet$(self_, key_, body_, $task) {
+if((!ff_core_StringMap.StringMap_has(self_, key_))) {
+ff_core_StringMap.StringMap_set(self_, key_, (await body_($task)))
+};
+return ff_core_StringMap.StringMap_grab(self_, key_)
+}
+
+
+
+