firefly-compiler 0.4.79 → 0.4.80

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

@@ -96,26 +96,26 @@ import * as ff_core_Unit from "../../ff/core/Unit.mjs"
 
 
 export function new_() {
-
-        return [];
+
+        return [];
     
 }
 
 export function fill_(size_, value_) {
-
-        return new Array(size_).fill(value_);
+
+        return new Array(size_).fill(value_);
     
 }
 
 export function fillBy_(size_, body_) {
-
-        return Array.from({length: size_}, (_, i) => body_(i));
+
+        return Array.from({length: size_}, (_, i) => body_(i));
     
 }
 
 export function range_(size_) {
-
-        return Array.from({length: size_}, (_, i) => i);
+
+        return Array.from({length: size_}, (_, i) => i);
     
 }
 
@@ -124,8 +124,8 @@ return left_ === right_
 }
 
 export function internalGrab_(self_, index_) {
-
-        return index_ < 0 || index_ >= self_.length ? ff_core_Try.internalThrowGrabException_() : self_[index_];
+
+        return index_ < 0 || index_ >= self_.length ? ff_core_Try.internalThrowGrabException_() : self_[index_];
     
 }
 
@@ -138,12 +138,12 @@ throw new Error('Function fill is missing on this target in async context.');
 }
 
 export async function fillBy_$(size_, body_, $task) {
-
-        const array = new Array(size_);
-        for(let i = 0; i < size_; i++) {
-            array[i] = await(body_(_i));
-        }
-        return array;
+
+        const array = new Array(size_);
+        for(let i = 0; i < size_; i++) {
+            array[i] = await(body_(_i));
+        }
+        return array;
     
 }
 
@@ -172,16 +172,16 @@ return self_.length
 }
 
 export function List_get(self_, index_) {
-
-            return index_ >= 0 && index_ < self_.length
-                ? ff_core_Option.Some(self_[index_])
-                : ff_core_Option.None()
+
+            return index_ >= 0 && index_ < self_.length
+                ? ff_core_Option.Some(self_[index_])
+                : ff_core_Option.None()
         
 }
 
 export function List_grab(self_, index_) {
-
-            return self_[index_] ?? internalGrab_(self_, index_);
+
+            return self_[index_] ?? internalGrab_(self_, index_);
         
 }
 
@@ -303,13 +303,13 @@ return value_
 }
 
 export function List_modify(self_, index_, body_) {
-
-            if(index_ < 0 || index_ >= self_.length) {
-                ff_core_Try.internalThrowGrabException_()
-            }
-            let result = self_.slice();
-            result[index_] = body_(result[index_]);
-            return result;
+
+            if(index_ < 0 || index_ >= self_.length) {
+                ff_core_Try.internalThrowGrabException_()
+            }
+            let result = self_.slice();
+            result[index_] = body_(result[index_]);
+            return result;
         
 }
 
@@ -374,8 +374,8 @@ return {array: self_.slice()}
 }
 
 export function List_each(self_, body_) {
-
-            return self_.forEach(body_);
+
+            return self_.forEach(body_);
         
 }
 
@@ -446,8 +446,8 @@ return (!body_(_w1))
 }
 
 export function List_map(self_, body_) {
-
-            return self_.map(body_)
+
+            return self_.map(body_)
         
 }
 
@@ -659,13 +659,13 @@ return value_
 }
 
 export async function List_modify$(self_, index_, body_, $task) {
-
-            if(index_ < 0 || index_ >= self_.length) {
-                ff_core_Try.internalThrowGrabException_()
-            }
-            let result = self_.slice();
-            result[index_] = await body_(result[index_], $task);
-            return result;
+
+            if(index_ < 0 || index_ >= self_.length) {
+                ff_core_Try.internalThrowGrabException_()
+            }
+            let result = self_.slice();
+            result[index_] = await body_(result[index_], $task);
+            return result;
         
 }
 
@@ -730,10 +730,10 @@ throw new Error('Function List_toArray is missing on this target in async contex
 }
 
 export async function List_each$(self_, body_, $task) {
-
-            for(let i = 0; i < self_.length; i++) {
-                await body_(self_[i], $task)
-            }
+
+            for(let i = 0; i < self_.length; i++) {
+                await body_(self_[i], $task)
+            }
         
 }
 
@@ -804,12 +804,12 @@ return (!(await body_(_w1, $task)))
 }
 
 export async function List_map$(self_, body_, $task) {
-
-            let result = [];
-            for(let i = 0; i < self_.length; i++) {
-                result.push(await body_(self_[i], $task));
-            }
-            return result;
+
+            let result = [];
+            for(let i = 0; i < self_.length; i++) {
+                result.push(await body_(self_[i], $task));
+            }
+            return result;
         
 }
 

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

@@ -124,58 +124,58 @@ ff_core_Lock.Lock_release(self_)
 }
 
 export async function Lock_condition$(self_, $task) {
-
-            return {lock: self_, stack: [], queue: []}
+
+            return {lock: self_, stack: [], queue: []}
         
 }
 
 export async function Lock_acquire$(self_, reentrant_, $task) {
-
-            if(self_.level === 0) {
-                self_.owner = $task
-                self_.level += 1
-            } else {
-                if(self_.owner !== $task || !reentrant_) {
-                    try {
-                        await new Promise((resolve, reject) => {
-                            $task.controller.signal.addEventListener('abort', reject)
-                            try {
-                                self_.queue.push({owner: $task, resolve: resolve})
-                            } finally {
-                                $task.controller.signal.removeEventListener('abort', reject)
-                            }
-                        })
-                    } finally {
-                        if($task.controller.signal.aborted) $task.controller = new AbortController()
-                    }
-                } else {
-                    self_.level += 1
-                }
-            }
+
+            if(self_.level === 0) {
+                self_.owner = $task
+                self_.level += 1
+            } else {
+                if(self_.owner !== $task || !reentrant_) {
+                    try {
+                        await new Promise((resolve, reject) => {
+                            $task.controller.signal.addEventListener('abort', reject)
+                            try {
+                                self_.queue.push({owner: $task, resolve: resolve})
+                            } finally {
+                                $task.controller.signal.removeEventListener('abort', reject)
+                            }
+                        })
+                    } finally {
+                        if($task.controller.signal.aborted) $task.controller = new AbortController()
+                    }
+                } else {
+                    self_.level += 1
+                }
+            }
         
 }
 
 export async function Lock_release$(self_, $task) {
-
-            if(self_.owner !== $task) {
-                throw new Error("Tried to release a lock without acquiring it first.")
-            } else if(self_.level > 1) {
-                self_.level -= 1
-            } else {
-                self_.owner = null
-                self_.level = 0
-                if(self_.stack.length === 0) {
-                    const empty = self_.stack
-                    self_.stack = self_.queue.reverse()
-                    self_.queue = empty
-                }
-                if(self_.stack.length !== 0) {
-                    const pending = self_.stack.pop()
-                    self_.owner = pending.owner
-                    self_.level = 1
-                    pending.resolve()
-                }
-            }
+
+            if(self_.owner !== $task) {
+                throw new Error("Tried to release a lock without acquiring it first.")
+            } else if(self_.level > 1) {
+                self_.level -= 1
+            } else {
+                self_.owner = null
+                self_.level = 0
+                if(self_.stack.length === 0) {
+                    const empty = self_.stack
+                    self_.stack = self_.queue.reverse()
+                    self_.queue = empty
+                }
+                if(self_.stack.length !== 0) {
+                    const pending = self_.stack.pop()
+                    self_.owner = pending.owner
+                    self_.level = 1
+                    pending.resolve()
+                }
+            }
         
 }
 
@@ -225,37 +225,37 @@ throw new Error('Function LockCondition_wakeAll is missing on this target in syn
 }
 
 export async function LockCondition_sleep$(self_, $task) {
-
-            if(self_.lock.owner !== $task) {
-                throw new Error("Tried to sleep on a condition without acquiring it first.")
-            }
-            const level = self_.lock.level
-            self_.lock.level = 1
-            await ff_core_Lock.Lock_release$(self_.lock)
-            try {
-                await new Promise((resolve, reject) => {
-                    $task.controller.signal.addEventListener('abort', reject)
-                    try {
-                        self_.queue.push(resolve)
-                    } finally {
-                        $task.controller.signal.removeEventListener('abort', reject)
-                        if($task.controller.signal.aborted) $task.controller = new AbortController()
-                    }
-                })
-            } finally {
-                let exception = null
-                let acquired = false
-                while(!acquired) {
-                    try {
-                        await ff_core_Lock.Lock_acquire$(self_.lock)
-                        self_.lock.level = level
-                        acquired = true
-                    } catch(e) {
-                        exception = e
-                    }
-                }
-                if(e !== null) throw e;
-            }
+
+            if(self_.lock.owner !== $task) {
+                throw new Error("Tried to sleep on a condition without acquiring it first.")
+            }
+            const level = self_.lock.level
+            self_.lock.level = 1
+            await ff_core_Lock.Lock_release$(self_.lock)
+            try {
+                await new Promise((resolve, reject) => {
+                    $task.controller.signal.addEventListener('abort', reject)
+                    try {
+                        self_.queue.push(resolve)
+                    } finally {
+                        $task.controller.signal.removeEventListener('abort', reject)
+                        if($task.controller.signal.aborted) $task.controller = new AbortController()
+                    }
+                })
+            } finally {
+                let exception = null
+                let acquired = false
+                while(!acquired) {
+                    try {
+                        await ff_core_Lock.Lock_acquire$(self_.lock)
+                        self_.lock.level = level
+                        acquired = true
+                    } catch(e) {
+                        exception = e
+                    }
+                }
+                if(e !== null) throw e;
+            }
         
 }
 
@@ -284,32 +284,32 @@ return
 }
 
 export async function LockCondition_wakeOne$(self_, $task) {
-
-            if(self_.stack.length === 0) {
-                const empty = self_.stack
-                self_.stack = self_.queue.reverse()
-                self_.queue = empty
-            }
-            if(self_.stack.length !== 0) {
-                const resolve = self_.stack.pop()
-                resolve()
-            }
+
+            if(self_.stack.length === 0) {
+                const empty = self_.stack
+                self_.stack = self_.queue.reverse()
+                self_.queue = empty
+            }
+            if(self_.stack.length !== 0) {
+                const resolve = self_.stack.pop()
+                resolve()
+            }
         
 }
 
 export async function LockCondition_wakeAll$(self_, $task) {
-
-            while(self_.stack.length !== 0) {
-                const resolve = self_.stack.pop()
-                resolve()
-            }
-            const empty = self_.stack
-            self_.stack = self_.queue.reverse()
-            self_.queue = empty
-            while(self_.stack.length !== 0) {
-                const resolve = self_.stack.pop()
-                resolve()
-            }
+
+            while(self_.stack.length !== 0) {
+                const resolve = self_.stack.pop()
+                resolve()
+            }
+            const empty = self_.stack
+            self_.stack = self_.queue.reverse()
+            self_.queue = empty
+            while(self_.stack.length !== 0) {
+                const resolve = self_.stack.pop()
+                resolve()
+            }
         
 }
 

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

@@ -120,11 +120,11 @@ throw new Error('Function internalListDirectoryWithoutOpendir is missing on this
 }
 
 export function internalProcessError_(problem_) {
-return ff_core_Try.Try_grab(ff_core_Try.Try_catchAny(ff_core_Core.try_((() => {
+return ff_core_Try.Try_catchAny(ff_core_Core.try_((() => {
 throw Object.assign(new Error(), {ffException: ff_core_Any.toAny_(ff_core_NodeSystem.ProcessException(problem_), ff_core_NodeSystem.ff_core_Any_HasAnyTag$ff_core_NodeSystem_ProcessException)})
 })), ((error_) => {
 return error_
-})))
+}))
 }
 
 export function internalWindowsWhere_(system_, cmd_, command_, directory_ = ff_core_Option.None(), environment_ = ff_core_Option.None()) {
@@ -147,20 +147,20 @@ return system_.assets_
 }
 
 export async function internalListDirectoryWithoutOpendir_$(system_, path_, $task) {
-
-        const fsPromises = import$0
-        const path = import$1
-        let files = await fsPromises.readdir(path_)
-        return files.map(file => path.join(path_, file))
+
+        const fsPromises = import$0
+        const path = import$1
+        let files = await fsPromises.readdir(path_)
+        return files.map(file => path.join(path_, file))
     
 }
 
 export async function internalProcessError_$(problem_, $task) {
-return ff_core_Try.Try_grab(ff_core_Try.Try_catchAny(ff_core_Core.try_((() => {
+return ff_core_Try.Try_catchAny(ff_core_Core.try_((() => {
 throw Object.assign(new Error(), {ffException: ff_core_Any.toAny_(ff_core_NodeSystem.ProcessException(problem_), ff_core_NodeSystem.ff_core_Any_HasAnyTag$ff_core_NodeSystem_ProcessException)})
 })), ((error_) => {
 return error_
-})))
+}))
 }
 
 export async function internalWindowsWhere_$(system_, cmd_, command_, directory_ = ff_core_Option.None(), environment_ = ff_core_Option.None(), $task) {
@@ -303,16 +303,16 @@ return (await ff_core_NodeSystem.internalAssets_$(self_, $task))
 }
 
 export async function NodeSystem_path$(self_, relativePath_, $task) {
-
-            const path = import$1
-            return path.resolve(relativePath_)
+
+            const path = import$1
+            return path.resolve(relativePath_)
         
 }
 
 export async function NodeSystem_pathFromUrl$(self_, url_, $task) {
-
-            const url = import$2;
-            return url.fileURLToPath(new URL(url_));
+
+            const url = import$2;
+            return url.fileURLToPath(new URL(url_));
         
 }
 
@@ -337,8 +337,8 @@ process.exit(exitCode_)
 }
 
 export async function NodeSystem_readStream$(self_, $task) {
-
-            return ff_core_Path.internalReadStream_$(() => process.stdin)
+
+            return ff_core_Path.internalReadStream_$(() => process.stdin)
         
 }
 
@@ -379,80 +379,80 @@ export async function NodeSystem_writeErrorLine$(self_, text_, $task) {
 }
 
 export async function NodeSystem_environment$(self_, $task) {
-
-            const result = [];
-            for(const key in process.env) {
-                result.push(ff_core_Pair.Pair(key, process.env[key]));
-            }
-            return ff_core_List.List_toMap(result, ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String);
+
+            const result = [];
+            for(const key in process.env) {
+                result.push(ff_core_Pair.Pair(key, process.env[key]));
+            }
+            return ff_core_List.List_toMap(result, ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String);
         
 }
 
 export async function NodeSystem_execute$(self_, command_, arguments_, standardIn_ = ff_core_Buffer.new_(0), directory_ = ff_core_Option.None(), environment_ = ff_core_Option.None(), maxBuffer_ = 16777216, killSignal_ = 9, windowsWhere_ = true, $task) {
-
-            const childProcess = import$3;
-            const environment = environment_.value_ !== void 0 ? {} : process.env;
-            if(environment_.value_ !== void 0) {
-                ff_core_Map.Map_each(
-                    environment_.value_, 
-                    (k, v) => environment[k] = v, 
-                    ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String
-                );
-            }
-            if(windowsWhere_ && process.platform === 'win32') {
-                const cmd = process.env.ComSpec || "cmd.exe";
-                command_ = (
-                    await internalWindowsWhere_$(self_, cmd, command_, directory_, environment_, $task)
-                ).value_ || command_;
-            }
-            const newProcess = childProcess.spawn(command_, arguments_, {
-                cwd: directory_.value_,
-                windowsHide: true,
-                signal: $task.controller.signal,
-                killSignal: killSignal_,
-                env: environment,
-            });
-            
-            let size = 0;
-            const out = [];
-            const err = [];
-            
-            newProcess.stdout.on('data', (data) => {
-                if(size > maxBuffer_) return;
-                size += data.byteLength;
-                if(size > maxBuffer_) newProcess.kill(killSignal_);
-                else out.push(data);
-            });
-
-            newProcess.stderr.on('data', (data) => {
-                if(size > maxBuffer_) return;
-                size += data.byteLength;
-                if(size > maxBuffer_) newProcess.kill(killSignal_);
-                else err.push(data);
-            });
-
-            return await new Promise((resolve, reject) => {
-                if(standardIn_.byteLength !== 0) {
-                    newProcess.stdin.write(standardIn_);
-                }
-                newProcess.stdin.end();
-                newProcess.on('error', error => {
-                    if(size > maxBuffer_) {
-                        reject(internalProcessError_("maxBuffer exceeded"));
-                    } else {
-                        reject(internalProcessError_(error.message));
-                    }
-                });
-                newProcess.on('close', code => {
-                    const o = Buffer.concat(out);
-                    const e = Buffer.concat(err);
-                    resolve(ProcessResult(
-                        code,
-                        new DataView(o.buffer, o.byteOffset, o.byteLength),
-                        new DataView(e.buffer, e.byteOffset, e.byteLength),
-                    ));
-                }); 
-            });
+
+            const childProcess = import$3;
+            const environment = environment_.value_ !== void 0 ? {} : process.env;
+            if(environment_.value_ !== void 0) {
+                ff_core_Map.Map_each(
+                    environment_.value_, 
+                    (k, v) => environment[k] = v, 
+                    ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String
+                );
+            }
+            if(windowsWhere_ && process.platform === 'win32') {
+                const cmd = process.env.ComSpec || "cmd.exe";
+                command_ = (
+                    await internalWindowsWhere_$(self_, cmd, command_, directory_, environment_, $task)
+                ).value_ || command_;
+            }
+            const newProcess = childProcess.spawn(command_, arguments_, {
+                cwd: directory_.value_,
+                windowsHide: true,
+                signal: $task.controller.signal,
+                killSignal: killSignal_,
+                env: environment,
+            });
+            
+            let size = 0;
+            const out = [];
+            const err = [];
+            
+            newProcess.stdout.on('data', (data) => {
+                if(size > maxBuffer_) return;
+                size += data.byteLength;
+                if(size > maxBuffer_) newProcess.kill(killSignal_);
+                else out.push(data);
+            });
+
+            newProcess.stderr.on('data', (data) => {
+                if(size > maxBuffer_) return;
+                size += data.byteLength;
+                if(size > maxBuffer_) newProcess.kill(killSignal_);
+                else err.push(data);
+            });
+
+            return await new Promise((resolve, reject) => {
+                if(standardIn_.byteLength !== 0) {
+                    newProcess.stdin.write(standardIn_);
+                }
+                newProcess.stdin.end();
+                newProcess.on('error', error => {
+                    if(size > maxBuffer_) {
+                        reject(internalProcessError_("maxBuffer exceeded"));
+                    } else {
+                        reject(internalProcessError_(error.message));
+                    }
+                });
+                newProcess.on('close', code => {
+                    const o = Buffer.concat(out);
+                    const e = Buffer.concat(err);
+                    resolve(ProcessResult(
+                        code,
+                        new DataView(o.buffer, o.byteOffset, o.byteLength),
+                        new DataView(e.buffer, e.byteOffset, e.byteLength),
+                    ));
+                }); 
+            });
         
 }
 

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

@@ -413,14 +413,14 @@ return ff_core_Ordering.fromFloat_((x_ - y_))
 
 export const ff_core_Ordering_Order$ff_core_String_String = {
 compare_(x_, y_) {
-
-            if(x_ < y_) {
-                return ff_core_Ordering.OrderingBefore()
-            } else if(x_ > y_) {
-                return ff_core_Ordering.OrderingAfter()
-            } else {
-                return ff_core_Ordering.OrderingSame()
-            }
+
+            if(x_ < y_) {
+                return ff_core_Ordering.OrderingBefore()
+            } else if(x_ > y_) {
+                return ff_core_Ordering.OrderingAfter()
+            } else {
+                return ff_core_Ordering.OrderingSame()
+            }
         
 },
 async compare_$(x_, y_, $task) {