firefly-compiler 0.4.9 → 0.4.11

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -50,6 +50,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -52,6 +52,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -48,6 +48,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"
@@ -126,6 +128,22 @@ export function String_reverse(self_) {
 return [...self_].reverse().join('')
 }
 
+export function String_repeat(self_, count_) {
+return self_.repeat(count_)
+}
+
+export function String_trim(self_) {
+return self_.trim()
+}
+
+export function String_trimStart(self_) {
+return self_.trimStart()
+}
+
+export function String_trimEnd(self_) {
+return self_.trimEnd()
+}
+
 export function String_lower(self_) {
 return self_.toLowerCase()
 }
@@ -265,6 +283,18 @@ return ff_core_Option.None()
 }
 }
 
+export function String_padStart(self_, length_, padding_ = " ") {
+
+            return self_.padStart(length_, padding_);
+        
+}
+
+export function String_padEnd(self_, length_, padding_ = " ") {
+
+            return self_.padEnd(length_, padding_);
+        
+}
+
 export function String_any(self_, body_) {
 
             for(let i = 0; i < self_.length; i++) {
@@ -310,6 +340,22 @@ 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_repeat$(self_, count_, $task) {
+throw new Error('Function String_repeat is missing on this target in async context.');
+}
+
+export async function String_trim$(self_, $task) {
+throw new Error('Function String_trim is missing on this target in async context.');
+}
+
+export async function String_trimStart$(self_, $task) {
+throw new Error('Function String_trimStart is missing on this target in async context.');
+}
+
+export async function String_trimEnd$(self_, $task) {
+throw new Error('Function String_trimEnd 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.');
 }
@@ -414,6 +460,14 @@ return ff_core_Option.None()
 }
 }
 
+export async function String_padStart$(self_, length_, padding_ = " ", $task) {
+throw new Error('Function String_padStart is missing on this target in async context.');
+}
+
+export async function String_padEnd$(self_, length_, padding_ = " ", $task) {
+throw new Error('Function String_padEnd is missing on this target in async context.');
+}
+
 export async function String_any$(self_, body_, $task) {
 
             for(let i = 0; i < self_.length; i++) {

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

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

@@ -46,6 +46,8 @@ import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
 
 import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
 
+import * as ff_core_Json from "../../ff/core/Json.mjs"
+
 import * as ff_core_List from "../../ff/core/List.mjs"
 
 import * as ff_core_Lock from "../../ff/core/Lock.mjs"

package/package.json

@@ -4,7 +4,7 @@
   "description": "Firefly compiler",
   "author": "Firefly team",
   "license": "MIT",
-  "version": "0.4.9",
+  "version": "0.4.11",
   "repository": {
       "type": "git",
       "url": "https://github.com/Ahnfelt/firefly-boot"
@@ -14,7 +14,7 @@
       "Programming Languages"
   ],
   "engines": {
-      "node": "^18.0.0"
+      "node": ">=18.0.0"
   },
   "main": "./vscode/client/out/extension",
   "icon": "./vscode/icons/firefly-logo.png",

package/postgresql/Pg.ff

@@ -62,11 +62,11 @@ extend self: PgPool {
 
     connect(): PgConnection {
         UnsafeJs.throwIfCancelled()
-        PgConnection(UnsafeJs.await { self.jsValue.call0("connect") })
+        PgConnection(UnsafeJs.await {self.jsValue.call0("connect")})
     }
 
     close(): Unit {
-        UnsafeJs.await { self.jsValue.call0("end") }
+        UnsafeJs.await {self.jsValue.call0("end")}
     }
 
     connectionCount(): Int {
@@ -300,7 +300,7 @@ extend self: PgStatement {
     }
 
     each(body: PgRow => Unit): Unit {
-        self.all { row =>
+        self.all {row =>
             body(row)
             True
         }
@@ -308,7 +308,7 @@ extend self: PgStatement {
 
     map[T](body: PgRow => T): List[T] {
         mutable result = []
-        self.each { row =>
+        self.each {row =>
             result = [body(row), ...result]
         }
         result.reverse()
@@ -379,12 +379,12 @@ internalRunStatement(statement: PgStatement, body: Option[PgRow => Bool]): Int {
     UnsafeJs.throwIfCancelled()
     let pair = internalParseParameters(statement.sql)
     let parameters = internalCheckParameters(pair.second, statement.parameters)
-    let result = UnsafeJs.await { statement.connection.grab().jsValue.call2("query", pair.first, parameters) }
+    let result = UnsafeJs.await {statement.connection.grab().jsValue.call2("query", pair.first, parameters)}
     body.{
         | None =>
             result.get("rowCount").grabInt()
         | Some(f) =>
-            let all = result.get("rows").grabArray().toList().all { row =>
+            let all = result.get("rows").grabArray().toList().all {row =>
                 f(PgRow(row))
             }
             if(all) {1} else {0}
@@ -392,9 +392,9 @@ internalRunStatement(statement: PgStatement, body: Option[PgRow => Bool]): Int {
 }
 
 internalBatchStatements(
-    connection: PgConnection,
-    statements: List[PgStatement],
-    body: Option[PgRow => Bool],
+    connection: PgConnection
+    statements: List[PgStatement]
+    body: Option[PgRow => Bool]
     endBody: Option[() => Unit]
 ): List[Int] {
     let sqlCache = statements.map {s => Pair(s.sql, s.sql)}.group().map {sql, list =>
@@ -409,7 +409,7 @@ internalBatchStatements(
         }
         Pair(sql, (newSql = pair.first, parameterNames = pair.second, prepared = prepared))
     }
-    let promises = statements.map { statement =>
+    let promises = statements.map {statement =>
         UnsafeJs.throwIfCancelled()
         let record = sqlCache.grab(statement.sql)
         let parameters = internalCheckParameters(record.parameterNames, statement.parameters)
@@ -418,15 +418,15 @@ internalBatchStatements(
             .with("values", parameters)
         connection.jsValue.call1("query", record.prepared.map {query.with("name", _)}.else {query})
     }
-    let results = promises.map { promise =>
+    let results = promises.map {promise =>
         UnsafeJs.throwIfCancelled()
-        let result = UnsafeJs.await { promise }
+        let result = UnsafeJs.await {promise }
         UnsafeJs.throwIfCancelled()
         body.{
             | None =>
                 result.get("rowCount").grabInt()
             | Some(f) =>
-                let all = result.get("rows").grabArray().toList().all { row =>
+                let all = result.get("rows").grabArray().toList().all {row =>
                     f(PgRow(row))
                 }
                 endBody.each {_()}

package/rpc/.firefly/package.ff

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

package/rpc/Rpc.ff

@@ -0,0 +1,69 @@
+trait I: Rpc[O] {}
+
+capability RpcServer[I, O, C](
+    handlers: StringMap[(C, I) => O]
+)
+
+makeServer[I, O, C](): RpcServer[I, O, C] {
+    RpcServer(StringMap.make())
+}
+
+extend self[I, O, C]: RpcServer[I, O, C] {
+    handle(name: String, context: C, input: I): Option[O] {
+        self.handlers.get(name).map {handler =>
+            handler(context, input)
+        }
+    }
+    
+    addCustom(
+        handler: (C, I) => O
+    ): Unit {
+        let name = "TODO"
+        self.handlers.set(name) {context, input =>
+            handler(context, input)
+        }
+    }
+}
+
+extend self[C]: RpcServer[Buffer, Buffer, C] {
+    add[I: Rpc[O]: HasAnyTag: Serializable, O: Serializable](
+        handler: (C, I) => O
+    ): Unit {
+        let name = Any.anyTag[I]().show()
+        self.handlers.set(name) {context, message =>
+            let input = Serializable.deserialize(message)
+            let output = handler(context, input)
+            Serializable.serialize(output)
+        }
+    }
+}
+
+capability RpcClient(
+    binaryCall: (String, Buffer) => Buffer
+)
+
+extend self: RpcClient {
+    call[I: Rpc[O]: HasAnyTag: Serializable, O: Serializable](
+        message: I
+    ): O {
+        let name = Any.anyTag[I]().show()
+        let input = Serializable.serialize(message)
+        let response = self.binaryCall(name, input)
+        Serializable.deserialize(response)
+    }
+}
+
+makeClient(
+    httpClient: HttpClient
+    prefix: String
+    method: String = "POST"
+): RpcClient {
+    RpcClient {name, buffer =>
+        let response = httpClient.fetch(
+            url = prefix + name, 
+            method = method, 
+            body = Some(HttpClient.bodyBuffer(buffer))
+        )
+        response.readBuffer()
+    }
+}

package/vscode/package.json

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