firefly-compiler 0.4.31 → 0.4.33

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

@@ -1,5 +1,7 @@
 import * as import$0 from 'fs/promises';
 
+import * as import$3 from 'node:child_process';
+
 import * as import$1 from 'path';
 
 import * as import$2 from 'url';
@@ -95,6 +97,16 @@ import * as ff_core_Unit from "../../ff/core/Unit.mjs"
 // type NodeSystem
 
 
+// type ProcessResult
+export function ProcessResult(exitCode_, standardOut_, standardError_) {
+return {exitCode_, standardOut_, standardError_};
+}
+
+// type ProcessException
+export function ProcessException(problem_) {
+return {problem_};
+}
+
 
 
 export function internalAssets_(system_) {
@@ -105,6 +117,14 @@ export function internalListDirectoryWithoutOpendir_(system_, path_) {
 throw new Error('Function internalListDirectoryWithoutOpendir is missing on this target in sync context.');
 }
 
+export function internalProcessError_(problem_) {
+return ff_core_Try.Try_grab(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 internalAssets_$(system_, $task) {
 return system_.assets_
 }
@@ -118,6 +138,14 @@ export async function internalListDirectoryWithoutOpendir_$(system_, path_, $tas
     
 }
 
+export async function internalProcessError_$(problem_, $task) {
+return ff_core_Try.Try_grab(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 NodeSystem_arguments(self_) {
 throw new Error('Function NodeSystem_arguments is missing on this target in sync context.');
 }
@@ -206,6 +234,14 @@ export function NodeSystem_writeErrorLine(self_, text_) {
 ff_core_NodeSystem.NodeSystem_writeErrorText(self_, (text_ + "\n"))
 }
 
+export function NodeSystem_environment(self_) {
+throw new Error('Function NodeSystem_environment is missing on this target in sync context.');
+}
+
+export function NodeSystem_execute(self_, command_, arguments_, standardIn_ = ff_core_Buffer.new_(0), workingDirectory_ = ff_core_Option.None(), environment_ = ff_core_Option.None(), maxBuffer_ = 16777216, killSignal_ = 9) {
+throw new Error('Function NodeSystem_execute is missing on this target in sync context.');
+}
+
 export async function NodeSystem_arguments$(self_, $task) {
 return self_.array_
 }
@@ -302,6 +338,85 @@ export async function NodeSystem_writeErrorLine$(self_, text_, $task) {
 (await ff_core_NodeSystem.NodeSystem_writeErrorText$(self_, (text_ + "\n"), $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);
+        
+}
 
+export async function NodeSystem_execute$(self_, command_, arguments_, standardIn_ = ff_core_Buffer.new_(0), workingDirectory_ = ff_core_Option.None(), environment_ = ff_core_Option.None(), maxBuffer_ = 16777216, killSignal_ = 9, $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
+                );
+            }
+            const newProcess = childProcess.spawn(command_, arguments_, {
+                cwd: workingDirectory_.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(
+                        size > maxBuffer_ ? -1 : code,
+                        new DataView(o.buffer, o.byteOffset, o.byteLength),
+                        new DataView(e.buffer, e.byteOffset, e.byteLength),
+                    ));
+                }); 
+            });
+        
+}
+
+export const ff_core_Any_HasAnyTag$ff_core_NodeSystem_ProcessException = {
+anyTag_() {
+return ff_core_Any.internalAnyTag_((("ff:core/NodeSystem.ProcessException" + "[") + "]"))
+},
+async anyTag_$($task) {
+return ff_core_Any.internalAnyTag_((("ff:core/NodeSystem.ProcessException" + "[") + "]"))
+}
+};
 
 

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

@@ -149,6 +149,19 @@ return self_
 }
 }
 
+export function Option_or(self_, noneBody_, someBody_) {
+{
+const _1 = self_;
+if(_1.None) {
+return noneBody_()
+}
+if(_1.Some) {
+const value_ = _1.value_;
+return someBody_(value_)
+}
+}
+}
+
 export function Option_isEmpty(self_) {
 {
 const _1 = self_;
@@ -180,7 +193,7 @@ return ff_core_List.List_toArray(ff_core_Option.Option_toList(self_))
 
 export function Option_toStream(self_, cycle_ = false) {
 let next_ = self_;
-return ff_core_Stream.make_((() => {
+return ff_core_Stream.new_((() => {
 const result_ = next_;
 if((!cycle_)) {
 next_ = ff_core_Option.None()
@@ -332,6 +345,19 @@ return self_
 }
 }
 
+export async function Option_or$(self_, noneBody_, someBody_, $task) {
+{
+const _1 = self_;
+if(_1.None) {
+return (await noneBody_($task))
+}
+if(_1.Some) {
+const value_ = _1.value_;
+return (await someBody_(value_, $task))
+}
+}
+}
+
 export async function Option_isEmpty$(self_, $task) {
 {
 const _1 = self_;
@@ -363,7 +389,7 @@ return ff_core_List.List_toArray(ff_core_Option.Option_toList(self_))
 
 export async function Option_toStream$(self_, cycle_ = false, $task) {
 let next_ = self_;
-return (await ff_core_Stream.make_$((async ($task) => {
+return (await ff_core_Stream.new_$((async ($task) => {
 const result_ = next_;
 if((!cycle_)) {
 next_ = ff_core_Option.None()

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

@@ -98,7 +98,7 @@ return ff_core_Random.seedFloat_(ff_core_Int.Int_toFloat(seed_))
 }
 
 export function seedFloat_(seed_) {
-const buffer_ = ff_core_Buffer.make_(8, false);
+const buffer_ = ff_core_Buffer.new_(8, false);
 ff_core_Buffer.Buffer_setFloat64(buffer_, 0, seed_, true);
 return ff_core_Random.seedBuffer_(buffer_)
 }
@@ -146,7 +146,7 @@ return ff_core_Random.seedFloat_(ff_core_Int.Int_toFloat(seed_))
 }
 
 export async function seedFloat_$(seed_, $task) {
-const buffer_ = ff_core_Buffer.make_(8, false);
+const buffer_ = ff_core_Buffer.new_(8, false);
 ff_core_Buffer.Buffer_setFloat64(buffer_, 0, seed_, true);
 return ff_core_Random.seedBuffer_(buffer_)
 }

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

@@ -1072,7 +1072,7 @@ return
 return
 }
 }
-return ff_core_Stream.make_((() => {
+return ff_core_Stream.new_((() => {
 return next_()
 }), (() => {
 
@@ -1265,7 +1265,7 @@ return
 return
 }
 }
-return (await ff_core_Stream.make_$((async ($task) => {
+return (await ff_core_Stream.new_$((async ($task) => {
 return next_()
 }), (async ($task) => {
 

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

@@ -102,7 +102,7 @@ return {buffer_, offset_, checksum_};
 
 
 export function serialize_(value_, initialBufferSize_ = 1024, ff_core_Serializable_Serializable$T) {
-const serialization_ = ff_core_Serializable.Serialization(ff_core_Buffer.make_(initialBufferSize_, false), 0, 0);
+const serialization_ = ff_core_Serializable.Serialization(ff_core_Buffer.new_(initialBufferSize_, false), 0, 0);
 ff_core_Serializable_Serializable$T.serializeUsing_(serialization_, value_);
 ff_core_Serializable.Serialization_autoResize(serialization_, 4);
 ff_core_Buffer.Buffer_setInt32(serialization_.buffer_, serialization_.offset_, serialization_.checksum_, true);
@@ -139,7 +139,7 @@ export function internalGrabLatin1_(self_, byteOffset_, size_) {
 }
 
 export async function serialize_$(value_, initialBufferSize_ = 1024, ff_core_Serializable_Serializable$T, $task) {
-const serialization_ = ff_core_Serializable.Serialization(ff_core_Buffer.make_(initialBufferSize_, false), 0, 0);
+const serialization_ = ff_core_Serializable.Serialization(ff_core_Buffer.new_(initialBufferSize_, false), 0, 0);
 ff_core_Serializable_Serializable$T.serializeUsing_(serialization_, value_);
 ff_core_Serializable.Serialization_autoResize(serialization_, 4);
 ff_core_Buffer.Buffer_setInt32(serialization_.buffer_, serialization_.offset_, serialization_.checksum_, true);
@@ -168,7 +168,7 @@ throw new Error('Function internalGrabLatin1 is missing on this target in async
 export function Serialization_autoResize(self_, minSpareCapacity_) {
 if(((self_.offset_ + minSpareCapacity_) > ff_core_Buffer.Buffer_size(self_.buffer_))) {
 const minSize_ = (ff_core_Buffer.Buffer_size(self_.buffer_) + minSpareCapacity_);
-const newBuffer_ = ff_core_Buffer.make_(ff_core_Int.Int_max((ff_core_Buffer.Buffer_size(self_.buffer_) * 2), minSize_), false);
+const newBuffer_ = ff_core_Buffer.new_(ff_core_Int.Int_max((ff_core_Buffer.Buffer_size(self_.buffer_) * 2), minSize_), false);
 ff_core_Buffer.Buffer_setAll(newBuffer_, 0, self_.buffer_);
 self_.buffer_ = newBuffer_
 }
@@ -177,7 +177,7 @@ self_.buffer_ = newBuffer_
 export async function Serialization_autoResize$(self_, minSpareCapacity_, $task) {
 if(((self_.offset_ + minSpareCapacity_) > ff_core_Buffer.Buffer_size(self_.buffer_))) {
 const minSize_ = (ff_core_Buffer.Buffer_size(self_.buffer_) + minSpareCapacity_);
-const newBuffer_ = ff_core_Buffer.make_(ff_core_Int.Int_max((ff_core_Buffer.Buffer_size(self_.buffer_) * 2), minSize_), false);
+const newBuffer_ = ff_core_Buffer.new_(ff_core_Int.Int_max((ff_core_Buffer.Buffer_size(self_.buffer_) * 2), minSize_), false);
 ff_core_Buffer.Buffer_setAll(newBuffer_, 0, self_.buffer_);
 self_.buffer_ = newBuffer_
 }

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

@@ -92,12 +92,12 @@ import * as ff_core_Unit from "../../ff/core/Unit.mjs"
 
 
 
-export function empty_() {
-return ff_core_Map.empty_()
+export function new_() {
+return ff_core_Map.new_()
 }
 
-export async function empty_$($task) {
-return ff_core_Map.empty_()
+export async function new_$($task) {
+return ff_core_Map.new_()
 }
 
 export function Set_add(self_, value_, ff_core_Ordering_Order$T) {

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

@@ -95,7 +95,7 @@ return {next_, close_};
 
 
 
-export function make_(next_, close_ = (() => {
+export function new_(next_, close_ = (() => {
 
 })) {
 return ff_core_Stream.Stream(next_, close_)
@@ -122,7 +122,7 @@ stream_.close_()
 }))
 }
 
-export async function make_$(next_, close_ = (async ($task) => {
+export async function new_$(next_, close_ = (async ($task) => {
 
 }), $task) {
 return ff_core_Stream.Stream(next_, close_)
@@ -595,7 +595,7 @@ return result_
 }
 
 export function Stream_toArray(self_) {
-const array_ = ff_core_Array.make_();
+const array_ = ff_core_Array.new_();
 ff_core_Stream.Stream_each(self_, ((_w1) => {
 ff_core_Array.Array_push(array_, _w1)
 }));
@@ -1052,7 +1052,7 @@ return result_
 }
 
 export async function Stream_toArray$(self_, $task) {
-const array_ = ff_core_Array.make_();
+const array_ = ff_core_Array.new_();
 (await ff_core_Stream.Stream_each$(self_, (async (_w1, $task) => {
 ff_core_Array.Array_push(array_, _w1)
 }), $task));
@@ -1092,7 +1092,7 @@ return ff_core_List.List_toMap((await ff_core_Stream.Stream_toList$(self_, $task
 }
 
 export function Stream_toBuffer(self_) {
-const builder_ = ff_core_Array.make_();
+const builder_ = ff_core_Array.new_();
 ff_core_Stream.Stream_each(self_, ((_w1) => {
 ff_core_Array.Array_push(builder_, _w1)
 }));
@@ -1107,7 +1107,7 @@ export function Stream_readBytes(self_, bytes_) {
 if((bytes_ <= 0)) {
 return ff_core_Pair.Pair([], self_)
 } else {
-const buffers_ = ff_core_Array.make_();
+const buffers_ = ff_core_Array.new_();
 let buffer_ = ff_core_Option.Option_grab(self_.next_());
 let taken_ = 0;
 let remainder_ = ff_core_Option.None();
@@ -1127,7 +1127,7 @@ return ff_core_Pair.Pair(ff_core_Array.Array_drain(buffers_), ff_core_Stream.Str
 }
 
 export async function Stream_toBuffer$(self_, $task) {
-const builder_ = ff_core_Array.make_();
+const builder_ = ff_core_Array.new_();
 (await ff_core_Stream.Stream_each$(self_, (async (_w1, $task) => {
 ff_core_Array.Array_push(builder_, _w1)
 }), $task));
@@ -1142,7 +1142,7 @@ export async function Stream_readBytes$(self_, bytes_, $task) {
 if((bytes_ <= 0)) {
 return ff_core_Pair.Pair([], self_)
 } else {
-const buffers_ = ff_core_Array.make_();
+const buffers_ = ff_core_Array.new_();
 let buffer_ = ff_core_Option.Option_grab((await self_.next_($task)));
 let taken_ = 0;
 let remainder_ = ff_core_Option.None();

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

@@ -93,12 +93,12 @@ import * as ff_core_Unit from "../../ff/core/Unit.mjs"
 
 
 
-export function make_() {
+export function new_() {
 return new Map()
 }
 
-export async function make_$($task) {
-throw new Error('Function make is missing on this target in async context.');
+export async function new_$($task) {
+throw new Error('Function new is missing on this target in async context.');
 }
 
 export function StringMap_get(self_, key_) {
@@ -144,7 +144,7 @@ for(const [k, v] of self_) if(!body_(k, v)) break
 }
 
 export function StringMap_toArray(self_) {
-const array_ = ff_core_Array.make_();
+const array_ = ff_core_Array.new_();
 ff_core_StringMap.StringMap_each(self_, ((k_, v_) => {
 ff_core_Array.Array_push(array_, ff_core_Pair.Pair(k_, v_))
 }));
@@ -164,7 +164,7 @@ return ff_core_List.List_toMap(ff_core_StringMap.StringMap_toList(self_), ff_cor
 }
 
 export function StringMap_keys(self_) {
-const array_ = ff_core_Array.make_();
+const array_ = ff_core_Array.new_();
 ff_core_StringMap.StringMap_each(self_, ((k_, v_) => {
 ff_core_Array.Array_push(array_, k_)
 }));
@@ -172,7 +172,7 @@ return ff_core_Array.Array_toList(array_, 0, 9007199254740991)
 }
 
 export function StringMap_values(self_) {
-const array_ = ff_core_Array.make_();
+const array_ = ff_core_Array.new_();
 ff_core_StringMap.StringMap_each(self_, ((k_, v_) => {
 ff_core_Array.Array_push(array_, v_)
 }));
@@ -227,7 +227,7 @@ for(const [k, v] of self_) if(!await body_(k, v)) break
 }
 
 export async function StringMap_toArray$(self_, $task) {
-const array_ = ff_core_Array.make_();
+const array_ = ff_core_Array.new_();
 ff_core_StringMap.StringMap_each(self_, ((k_, v_) => {
 ff_core_Array.Array_push(array_, ff_core_Pair.Pair(k_, v_))
 }));
@@ -247,7 +247,7 @@ return ff_core_List.List_toMap(ff_core_StringMap.StringMap_toList(self_), ff_cor
 }
 
 export async function StringMap_keys$(self_, $task) {
-const array_ = ff_core_Array.make_();
+const array_ = ff_core_Array.new_();
 ff_core_StringMap.StringMap_each(self_, ((k_, v_) => {
 ff_core_Array.Array_push(array_, k_)
 }));
@@ -255,7 +255,7 @@ return ff_core_Array.Array_toList(array_, 0, 9007199254740991)
 }
 
 export async function StringMap_values$(self_, $task) {
-const array_ = ff_core_Array.make_();
+const array_ = ff_core_Array.new_();
 ff_core_StringMap.StringMap_each(self_, ((k_, v_) => {
 ff_core_Array.Array_push(array_, v_)
 }));

package/package.json

@@ -4,7 +4,7 @@
   "description": "Firefly compiler",
   "author": "Firefly team",
   "license": "MIT",
-  "version": "0.4.31",
+  "version": "0.4.33",
   "repository": {
     "type": "git",
     "url": "https://github.com/Ahnfelt/firefly-boot"

package/postgresql/Pg.ff

@@ -10,7 +10,7 @@ data PgLevel {
     PgSerializable
 }
 
-makePool(
+newPool(
     system: NodeSystem
     user: String
     host: String
@@ -38,7 +38,7 @@ makePool(
     ))
 }
 
-makePoolFromConnectionString(
+newPoolFromConnectionString(
     system: NodeSystem
     connectionString: String
     connectionTimeout: Duration = Duration(10.0)

package/rpc/Rpc.ff

@@ -4,8 +4,8 @@ capability RpcServer[I, O, C](
     handlers: StringMap[(C, I) => O]
 )
 
-makeServer[I, O, C](): RpcServer[I, O, C] {
-    RpcServer(StringMap.make())
+newServer[I, O, C](): RpcServer[I, O, C] {
+    RpcServer(StringMap.new())
 }
 
 extend self[I, O, C]: RpcServer[I, O, C] {
@@ -53,7 +53,7 @@ extend self: RpcClient {
     }
 }
 
-makeClient(
+newClient(
     httpClient: HttpClient
     prefix: String
     method: String = "POST"

package/vscode/package.json

@@ -4,7 +4,7 @@
     "description": "Firefly language support",
     "author": "Firefly team",
     "license": "MIT",
-    "version": "0.4.31",
+    "version": "0.4.33",
     "repository": {
         "type": "git",
         "url": "https://github.com/Ahnfelt/firefly-boot"

package/webserver/WebServer.ff

@@ -32,7 +32,7 @@ data MultipartField {}
 
 capability WebSocketConnection {}
 
-make(
+new(
     system: NodeSystem
     host: String
     port: Int
@@ -612,7 +612,7 @@ internalSend[T](self: WebSocketConnection, send: () => Bool): JsValue
     """
 
 internalArray[T](): Array[T] {
-    Array.make()
+    Array.new()
 }
 
 internalTextChunk(data: String): JsValue

package/httpserver/.firefly/package.ff

@@ -1 +0,0 @@
-package ff:httpserver:0.0.0