firefly-compiler 0.4.5 → 0.4.6

package/.hintrc

@@ -1,5 +1,5 @@
-{
-  "extends": [
-    "development"
-  ]
+{
+  "extends": [
+    "development"
+  ]
 }

package/README.md

@@ -13,7 +13,7 @@ A straightforward language for full-stack development.
 
 ## Writing your first webapp
 
-Install the [VSCode extension](https://marketplace.visualstudio.com/items?itemName=firefly-team.firefly-lang) (requires the upcoming [VSCode 1.82](https://code.visualstudio.com/insiders/)).
+Install the [VSCode extension](https://marketplace.visualstudio.com/items?itemName=firefly-team.firefly-lang).
 
 Create a `WebApp.ff` file.
 

package/core/HttpClient.ff

@@ -27,7 +27,7 @@ extend self: HttpClient {
             try {
                 const options = {headers: {}, signal: $task.controller.signal}
                 options.method = method_
-                ff_core_List.List_each(headers_, pair => {options.headers[pair.key_] = pair.value_})
+                ff_core_List.List_each(headers_, pair => {options.headers[pair.first_] = pair.second_})
                 if(body_.value_) options.body = body_.value_
                 if(redirect_.RedirectError) options.redirect = "error"
                 else if(redirect_.RedirectManual) options.redirect = "manual"

package/lsp/LanguageServer.ff

@@ -17,17 +17,26 @@ capability RequestMessage(
     parameters: Map[String, JsValue]
 )
 
+logMessages = False
 
 main(system: NodeSystem) {
+    let logDirectory = if(logMessages) {
+        let directory = system.path(".").slash("messages")
+        if(directory.isDirectory()) {directory.delete()}
+        directory.createDirectory()
+        directory
+    }
+    
     let fireflyPath = system.path(".")
     let handler = Handler(fireflyPath, None, Map.empty(), [].toSet(), Map.empty(), Map.empty())
     try {
         mutable input = system.readStream()
-        let responseChannel: Channel[JsValue] = system.mainTask().channel()
+        let responseChannel: Channel[Pair[JsValue, String]] = system.mainTask().channel()
         system.mainTask().spawn {_ =>
             while {True} {
                 let body = responseChannel.read()
-                let json = body.toJson(Some("    ")).toBuffer()
+                let json = body.first.toJson(Some("    ")).toBuffer()
+                logDirectory.each {logMessage(_, "response", body.first, body.second)}
                 system.writeText("Content-Length: " + json.size() + "\r\n\r\n")
                 system.writeBuffer(json)
             }
@@ -38,13 +47,14 @@ main(system: NodeSystem) {
                 input = requestPair.second
                 let request = requestPair.first
                 let message = parseRequestMessage(request.object)
+                logDirectory.each {logMessage(_, "request", request.object, message.method)}
                 spawn(message.id) {_ =>
                     if(message.method == "$/cancelRequest") {
                         abort(Some(parseMessageId(message.parameters.grab("id"))))
                     }
                     try {
                         handleRequestMessage(system, handler, message).each {body =>
-                            responseChannel.write(body)
+                            responseChannel.write(Pair(body, message.method))
                         }
                     } catchAny {error =>
                         let problem = if(error.name() == "AbortError") {
@@ -55,7 +65,8 @@ main(system: NodeSystem) {
                             Error(-32603, "Internal error")
                         }
                         message.id.each {id => 
-                            responseChannel.write(makeResponseMessage(system.js(), id, problem))
+                            let body = makeResponseMessage(system.js(), id, problem)
+                            responseChannel.write(Pair(body, message.method))
                         }
                     } grab()
                 }
@@ -74,17 +85,17 @@ taskGroup[K: Order, R](
     mutable tasks = [].toMap()
     function spawn(key: K, body: Task => Unit): Task {
         let body2 = {task =>
-            lock.do {tasks = tasks.add(key, task)}
+            lock.do(reentrant = True) {tasks = tasks.add(key, task)}
             try {
                 body(task)
             } finally {
-                lock.do {tasks = tasks.remove(key)}
+                lock.do(reentrant = True) {tasks = tasks.remove(key)}
             } grab()
         }
         parentTask.spawn(body2)
     }
     function abort(key: K): Unit {
-        lock.do {tasks.get(key).each {_.abort()}}
+        lock.do(reentrant = True) {tasks.get(key).each {_.abort()}}
     }
     groupBody(spawn, abort)
 }
@@ -227,3 +238,17 @@ makeResponseMessage(js: JsSystem, id: MessageId, result: ResultOrError): JsValue
     }
     o
 }
+
+logMessage(directory: Path, messageType: String, body: JsValue, method: String) {
+    let id = if(method == "$/cancelRequest") {
+        Some(body.get("params").get("id").grabInt())
+    } else {
+        body.getOwn("id").map {_.grabInt()}
+    }
+    let number = directory.entries().toList().size()
+    let idName = id.map {_ + ""}.else {"_"}
+    let methodName = method.replace("$", "notification").replace("/", "_")
+    let fileName = number + "-id-" + idName + "-" + messageType + "-" + methodName + ".json"
+    let path = directory.slash(fileName)
+    path.writeText(body.toJson(Some("    ")))
+}

package/lsp/stderr.txt

@@ -0,0 +1 @@
+End of input while parsing request headers

package/lsp/stdin.txt

@@ -0,0 +1,11 @@
+Content-Length: 5836
+
+{"jsonrpc":"2.0","id":0,"method":"initialize","params":{"processId":43727,"clientInfo":{"name":"Visual Studio Code","version":"1.76.2"},"locale":"en","rootPath":"/Users/ahnfelt/Downloads/firefly-boot","rootUri":"file:///Users/ahnfelt/Downloads/firefly-boot","capabilities":{"workspace":{"applyEdit":true,"workspaceEdit":{"documentChanges":true,"resourceOperations":["create","rename","delete"],"failureHandling":"textOnlyTransactional","normalizesLineEndings":true,"changeAnnotationSupport":{"groupsOnLabel":true}},"configuration":true,"didChangeWatchedFiles":{"dynamicRegistration":true,"relativePatternSupport":true},"symbol":{"dynamicRegistration":true,"symbolKind":{"valueSet":[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26]},"tagSupport":{"valueSet":[1]},"resolveSupport":{"properties":["location.range"]}},"codeLens":{"refreshSupport":true},"executeCommand":{"dynamicRegistration":true},"didChangeConfiguration":{"dynamicRegistration":true},"workspaceFolders":true,"semanticTokens":{"refreshSupport":true},"fileOperations":{"dynamicRegistration":true,"didCreate":true,"didRename":true,"didDelete":true,"willCreate":true,"willRename":true,"willDelete":true},"inlineValue":{"refreshSupport":true},"inlayHint":{"refreshSupport":true},"diagnostics":{"refreshSupport":true}},"textDocument":{"publishDiagnostics":{"relatedInformation":true,"versionSupport":false,"tagSupport":{"valueSet":[1,2]},"codeDescriptionSupport":true,"dataSupport":true},"synchronization":{"dynamicRegistration":true,"willSave":true,"willSaveWaitUntil":true,"didSave":true},"completion":{"dynamicRegistration":true,"contextSupport":true,"completionItem":{"snippetSupport":true,"commitCharactersSupport":true,"documentationFormat":["markdown","plaintext"],"deprecatedSupport":true,"preselectSupport":true,"tagSupport":{"valueSet":[1]},"insertReplaceSupport":true,"resolveSupport":{"properties":["documentation","detail","additionalTextEdits"]},"insertTextModeSupport":{"valueSet":[1,2]},"labelDetailsSupport":true},"insertTextMode":2,"completionItemKind":{"valueSet":[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25]},"completionList":{"itemDefaults":["commitCharacters","editRange","insertTextFormat","insertTextMode"]}},"hover":{"dynamicRegistration":true,"contentFormat":["markdown","plaintext"]},"signatureHelp":{"dynamicRegistration":true,"signatureInformation":{"documentationFormat":["markdown","plaintext"],"parameterInformation":{"labelOffsetSupport":true},"activeParameterSupport":true},"contextSupport":true},"definition":{"dynamicRegistration":true,"linkSupport":true},"references":{"dynamicRegistration":true},"documentHighlight":{"dynamicRegistration":true},"documentSymbol":{"dynamicRegistration":true,"symbolKind":{"valueSet":[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26]},"hierarchicalDocumentSymbolSupport":true,"tagSupport":{"valueSet":[1]},"labelSupport":true},"codeAction":{"dynamicRegistration":true,"isPreferredSupport":true,"disabledSupport":true,"dataSupport":true,"resolveSupport":{"properties":["edit"]},"codeActionLiteralSupport":{"codeActionKind":{"valueSet":["","quickfix","refactor","refactor.extract","refactor.inline","refactor.rewrite","source","source.organizeImports"]}},"honorsChangeAnnotations":false},"codeLens":{"dynamicRegistration":true},"formatting":{"dynamicRegistration":true},"rangeFormatting":{"dynamicRegistration":true},"onTypeFormatting":{"dynamicRegistration":true},"rename":{"dynamicRegistration":true,"prepareSupport":true,"prepareSupportDefaultBehavior":1,"honorsChangeAnnotations":true},"documentLink":{"dynamicRegistration":true,"tooltipSupport":true},"typeDefinition":{"dynamicRegistration":true,"linkSupport":true},"implementation":{"dynamicRegistration":true,"linkSupport":true},"colorProvider":{"dynamicRegistration":true},"foldingRange":{"dynamicRegistration":true,"rangeLimit":5000,"lineFoldingOnly":true,"foldingRangeKind":{"valueSet":["comment","imports","region"]},"foldingRange":{"collapsedText":false}},"declaration":{"dynamicRegistration":true,"linkSupport":true},"selectionRange":{"dynamicRegistration":true},"callHierarchy":{"dynamicRegistration":true},"semanticTokens":{"dynamicRegistration":true,"tokenTypes":["namespace","type","class","enum","interface","struct","typeParameter","parameter","variable","property","enumMember","event","function","method","macro","keyword","modifier","comment","string","number","regexp","operator","decorator"],"tokenModifiers":["declaration","definition","readonly","static","deprecated","abstract","async","modification","documentation","defaultLibrary"],"formats":["relative"],"requests":{"range":true,"full":{"delta":true}},"multilineTokenSupport":false,"overlappingTokenSupport":false,"serverCancelSupport":true,"augmentsSyntaxTokens":true},"linkedEditingRange":{"dynamicRegistration":true},"typeHierarchy":{"dynamicRegistration":true},"inlineValue":{"dynamicRegistration":true},"inlayHint":{"dynamicRegistration":true,"resolveSupport":{"properties":["tooltip","textEdits","label.tooltip","label.location","label.command"]}},"diagnostic":{"dynamicRegistration":true,"relatedDocumentSupport":false}},"window":{"showMessage":{"messageActionItem":{"additionalPropertiesSupport":true}},"showDocument":{"support":true},"workDoneProgress":true},"general":{"staleRequestSupport":{"cancel":true,"retryOnContentModified":["textDocument/semanticTokens/full","textDocument/semanticTokens/range","textDocument/semanticTokens/full/delta"]},"regularExpressions":{"engine":"ECMAScript","version":"ES2020"},"markdown":{"parser":"marked","version":"1.1.0"},"positionEncodings":["utf-16"]},"notebookDocument":{"synchronization":{"dynamicRegistration":true,"executionSummarySupport":true}}},"trace":"off","workspaceFolders":[{"uri":"file:///Users/ahnfelt/Downloads/firefly-boot","name":"firefly-boot"}]}}Content-Length: 52
+
+{"jsonrpc":"2.0","method":"initialized","params":{}}Content-Length: 9421
+
+{"jsonrpc":"2.0","method":"textDocument/didOpen","params":{"textDocument":{"uri":"file:///Users/ahnfelt/Downloads/firefly-boot/lsp/LanguageServer.ff","languageId":"firefly","version":1,"text":"class LanguageServer(\n    mutable openFiles: Map[String, String]\n)\n\ndata BadRequestException(reason: String)\n\ncapability Request(\n    headers: Map[String, String]\n    object: JsValue\n)\n\ncapability RequestMessage(\n    id: Option[MessageId] // None when the request is a Notification Message\n    method: String\n    parameters: Map[String, JsValue]\n)\n\ndata MessageId {\n    MessageIdInt(id: Int)\n    MessageIdString(id: String)\n}\n\ncapability ResultOrError {\n    Result(result: JsValue)\n    Error(code: Int, message: String)\n}\n\n\nmain(system: NodeSystem) {\n    try {\n        mutable input = system.readStream()\n        while {True} {\n            let requestPair = parseRequest(system, input)\n            input = requestPair.second\n            let request = requestPair.first\n            let message = parseRequestMessage(request.object)\n            handleRequestMessage(system.js(), message).each {body =>\n                system.writeText(makeResponse(body))\n            }\n            //system.writeText(makeResponse(makeDiagnoseNotification(system.js())))\n        }\n    } catch {| BadRequestException(reason), error =>\n         system.writeErrorText(reason + \"\\n\")\n    } grab()\n}\n    \nparseRequest(system: NodeSystem, input: Stream[Buffer]): Pair[Request, Stream[Buffer]] {\n    let headersPair = parseRequestHeaders(input)\n    let headers = headersPair.first\n    let contentLength = headers\n        .get(\"content-length\").else {throw(BadRequestException(\"'content-length' header is missing\"))}\n        .getInt().else {throw(BadRequestException(\"Value for 'content-length' is not an integer\"))}\n    let bodyPair = parseRequestBody(system.js(), contentLength, headersPair.second)\n    bodyPair.mapFirst {body => Request(headers, body)}\n}\n\nparseRequestHeaders(input: Stream[Buffer]): Pair[Map[String, String], Stream[Buffer]] {\n    let buffers = Stack.make()\n    mutable buffer = input.next().else {\n        throw(BadRequestException(\"End of input while parsing request headers\"))\n    }\n    mutable offset = 0\n    mutable droppingInitialNewlines = True\n    mutable lastWasNewline = False\n    mutable done = False\n    while {!done} {\n        if(offset == buffer.size()) {\n            offset = 0\n            buffers.push(buffer)\n            buffer = input.next().else {\n                throw(BadRequestException(\"End of input while parsing request headers\"))\n            }\n        }\n        let byte = buffer.grabUint8(offset)\n        if(droppingInitialNewlines && (byte == '\\n'.codeUnit || byte == '\\r'.codeUnit)) {\n            // Skip\n        } elseIf {byte == '\\n'.codeUnit} {\n            if(lastWasNewline) {\n                done = True\n            } else {\n                lastWasNewline = True\n            }\n        } elseIf {byte != '\\r'.codeUnit && lastWasNewline} {\n            lastWasNewline = False\n        } else {\n            droppingInitialNewlines = False\n        }\n        offset += 1\n    }\n    buffers.push(buffer.view(0, offset))\n    let headers = Buffer.fromBufferArray(buffers.drain()).toString()\n    let map = headers.lines().pairs().filter {_.second.size() != 0}.map {| Pair(i, line) =>\n        line.splitFirst(':').else {\n            throw(BadRequestException(\"Invalid header at line \" + i + \" '\" + line + \"'\"))\n        }.mapFirst {_.lower()} //.mapSecond {_.trim()}\n    }.toMap()\n    Pair(map, [buffer.view(offset, buffer.size())].toStream().addAll(input))\n}\n\nparseRequestBody(js: JsSystem, contentLength: Int, input: Stream[Buffer]): Pair[JsValue, Stream[Buffer]] {\n    let bodyPair = try {\n        input.readBytes(contentLength) // Should Stream.readBytes return an option?\n    } catchAny {error =>\n        throw(BadRequestException(\"End of input while parsing request body\"))\n    } grab()\n    let body = Buffer.fromBufferArray(bodyPair.first).toString()\n    let json = try {\n        js.parseJson(body)\n    } catchAny {error =>\n        throw(BadRequestException(\"Invalid JSON in request body: \" + body))\n    } grab()\n    Pair(json, bodyPair.second)\n}\n\nparseRequestMessage(object: JsValue): RequestMessage {\n    let id = object.getOwn(\"id\").map {id =>\n        if(id.isInt()) {\n            MessageIdInt(id.grabInt())\n        } elseIf {id.isString()} {\n            MessageIdString(id.grabString())\n        } else {\n            throw(BadRequestException(\"Bad JSON-RPC id, int or string expected\"))\n        }\n    }\n\n    let method = object.getOwn(\"method\").{\n        | None => throw(BadRequestException(\"Bad JSON-RPC, missing method\"))\n        | Some(m) {!m.isString()} => throw(BadRequestException(\"Bad JSON-RPC method, string expected\"))\n        | Some(m) => m.grabString()\n    }\n\n    let parameters = object.getOwn(\"params\").{\n        | None => [].toMap()\n        | Some(o) {!o.isObject()} => throw(BadRequestException(\"Bad JSON-RPC params, object expected\"))\n        | Some(o) => o.grabMap()\n    }\n\n    RequestMessage(id, method, parameters)\n}\n\nhandleRequestMessage(js: JsSystem, message: RequestMessage): Option[JsValue] {\n    message.id.{\n        // Notification Message\n        | None =>\n            message.method.{\n                | \"initialized\" =>\n                | _ =>\n            }\n            None\n        // Request Message\n        | Some(id) =>\n            let result = message.method.{\n                | \"initialize\" => handleInitialize(js, message.parameters)\n                | \"textDocument/diagnostic\" => handleDiagnostic(js, message.parameters)\n                | \"hover\" => handleHover(js, message.parameters)\n                | _ => handleUnsupported(js)\n            }\n            Some(makeResponseMessage(js, id, result))\n    }\n}\n\nmakeResponse(body: JsValue): String {\n    let json = body.toJson(Some(\"    \"))\n    let length = json.size()\n    \"Content-Length: \" + length + \"\\r\\n\" +\n    \"\\r\\n\" +\n    json\n}\n\nmakeResponseMessage(js: JsSystem, id: MessageId, result: ResultOrError): JsValue {\n    let o = js.object()\n    o.set(\"jsonrpc\", \"2.0\")\n    id.{\n        | MessageIdInt(id) => o.set(\"id\", id)\n        | MessageIdString(id) => o.set(\"id\", id)\n    }\n    result.{\n        | Result(result) =>\n            o.set(\"result\", result)\n        | Error(code, message) =>\n            let e = js.object()\n            e.set(\"code\", code)\n            e.set(\"message\", message)\n            o.set(\"error\", e)\n    }\n    o\n}\n\nhandleUnsupported(js: JsSystem): ResultOrError {\n    Error(1234, \"Unsupported method\")\n}\n\nhandleInitialize(js: JsSystem, parameters: Map[String, JsValue]): ResultOrError {\n    let anyFireflyFile = js.object()\n        .with(\"filters\", [\n            js.object()\n                .with(\"pattern\", js.object()\n                    .with(\"glob\", \"**/*.ff\")\n                    .with(\"matches\", \"file\")\n                )\n        ].toArray())\n\n    let o = js.object()\n        .with(\"capabilities\", js.object()\n            .with(\"textDocumentSync\", js.object()\n                .with(\"openClose\", True)\n                .with(\"change\", 1 /* TextDocumentSyncKind.Full */)\n            )\n            .with(\"hoverProvider\", False)\n            //.with(\"definitionProvider\", True)\n            //.with(\"typeDefinitionProvider\", True)\n            .with(\"diagnosticProvider\", js.object()\n                .with(\"interFileDependencies\", True)\n                .with(\"workspaceDiagnostics\", False)\n            )\n            /*.with(\"workspace\", js.object()\n                .with(\"workspaceFolders\", js.object()\n                     .with(\"supported\", True)\n                     .with(\"changeNotifications\", True)\n                )\n                .with(\"fileOperations\", js.object()\n                     .with(\"didCreate\", anyFireflyFile)\n                     .with(\"didRename\", anyFireflyFile)\n                     .with(\"didDelete\", anyFireflyFile)\n                )\n            )*/\n        )\n        .with(\"serverInfo\", js.object()\n            .with(\"name\", \"Firefly Language Server\")\n            .with(\"version\", \"0.0.0\")\n        )\n    Result(o)\n}\n\nhandleDiagnostic(js: JsSystem, parameters: Map[String, JsValue]): ResultOrError {\n    let diagnostic = js.object()\n        .with(\"range\", js.object()\n            .with(\"start\", js.object()\n                .with(\"line\", 0).with(\"character\", 6)\n            )\n            .with(\"end\", js.object()\n                .with(\"line\", 0).with(\"character\", 20)\n            )\n        )\n        .with(\"severity\", 1 /* Error */)\n        .with(\"message\", \"Hurray!\")\n\n    let o = js.object()\n        .with(\"kind\", \"full\")\n        .with(\"items\", [/*diagnostic*/].toArray())\n\n    Result(o)\n}\n\nhandleHover(js: JsSystem, parameters: Map[String, JsValue]): ResultOrError {\n    let o = js.object().with(\"contents\", \"TODO\")\n    Result(o)\n}\n\nmakeNotificationMessage(js: JsSystem, method: String, params: JsValue): JsValue {\n    js.object()\n        .with(\"jsonrpc\", \"2.0\")\n        .with(\"method\", method)\n        .with(\"params\", params)\n}\n"}}}Content-Length: 162
+
+{"jsonrpc":"2.0","id":1,"method":"textDocument/diagnostic","params":{"textDocument":{"uri":"file:///Users/ahnfelt/Downloads/firefly-boot/lsp/LanguageServer.ff"}}}Content-Length: 44
+
+{"jsonrpc":"2.0","id":2,"method":"shutdown"}

package/lsp/stdout.txt

@@ -0,0 +1,41 @@
+Content-Length: 500
+
+{
+    "jsonrpc": "2.0",
+    "id": 0,
+    "result": {
+        "capabilities": {
+            "textDocumentSync": {
+                "openClose": true,
+                "change": 1
+            },
+            "hoverProvider": false,
+            "diagnosticProvider": {
+                "interFileDependencies": true,
+                "workspaceDiagnostics": false
+            }
+        },
+        "serverInfo": {
+            "name": "Firefly Language Server",
+            "version": "0.0.0"
+        }
+    }
+}Content-Length: 104
+
+{
+    "jsonrpc": "2.0",
+    "id": 1,
+    "result": {
+        "kind": "full",
+        "items": []
+    }
+}Content-Length: 121
+
+{
+    "jsonrpc": "2.0",
+    "id": 2,
+    "error": {
+        "code": 1234,
+        "message": "Unsupported method"
+    }
+}

package/lux/Main.ff

@@ -3,6 +3,10 @@ import HttpServer from ff:httpserver
 import Lux
 import LuxEvent
 
+data ChatEntry(
+    question: String
+    answer: Option[String]
+)
 
 mainComponent(lux: Lux, http: HttpClient) {
     lux.useState([]): chat, setChat => 
@@ -46,6 +50,7 @@ browserMain(system: BrowserSystem) {
 }
 
 nodeMain(system: NodeSystem) {
+    let openAiKey = system.arguments().first()
     HttpServer.listen(system, "localhost", 8080) {request, response =>
         if(request.path() == "/") {
             response.setHeader("Content-Type", ["text/html; charset=UTF-8"])
@@ -56,15 +61,64 @@ nodeMain(system: NodeSystem) {
             response.setHeader("Content-Type", ["text/javascript; charset=UTF-8"])
             response.writeText(system.assets().readText(request.path()))
         } elseIf {request.path() == "/chat"} {
-            system.mainTask().sleep(Duration(request.readText().size().toFloat()))
+            let question = request.readText()
             response.setHeader("Content-Type", ["text/plain; charset=UTF-8"])
-            response.writeText("Hello there!")
+            openAiKey.{
+                | None => 
+                    system.mainTask().sleep(Duration(question.size().toFloat()))
+                    response.writeText("Hi! You need to give an OpenAI secret key at the command line.")
+                | Some(key) => 
+                    let chatJson = encodeChat(system.js(), question)
+                    let answer = fetchAnswer(system.httpClient(), system.js(), key, chatJson)
+                    response.writeText(answer)
+            }
         } else {
             response.writeStatus(404, Some("Not found"))
         }
     }
 }
 
+fetchAnswer(httpClient: HttpClient, js: JsSystem, key: String, question: JsValue): String {
+    let json = httpClient.fetch(
+        url = "https://api.openai.com/v1/chat/completions"
+        method = "POST"
+        headers = [
+            Pair("Authorization", "Bearer " + key)
+            Pair("Content-Type", "application/json")
+        ]
+        body = Some(HttpClient.bodyText(question.toJson()))
+    ).readText()
+    js.parseJson(json).get("choices").get(0).get("message").get("content").grabString()
+}
+
+encodeChat(js: JsSystem, question: String): JsValue {
+    let systemJson = js.object()
+        .with("role", "system")
+        .with("content", "You are a helpful assistant.")
+    let questionJson = js.object()
+        .with("role", "user")
+        .with("content", question)
+    let messagesJson = js.array([systemJson, questionJson])
+    js.object()
+        .with("model", "gpt-3.5-turbo")
+        .with("messages", messagesJson)
+}
+
+
+/*
+let
+encodeMessage role content = 
+    E.object  [ ("role", E.string role), ("content", E.string content) ]
+encodeEntry question maybeAnswer = case maybeAnswer of
+    Nothing -> [ encodeMessage "user" question ]
+    Just answer -> [ encodeMessage "user" question, encodeMessage "assistant" answer ]
+encodedMessages = encodeMessage "system" "You are a helpful assistant."
+    :: List.concatMap (\entry -> encodeEntry entry.question entry.answer) chat
+in E.object 
+[ ("model", E.string "gpt-3.5-turbo")
+, ("messages", E.list (\x -> x) encodedMessages)
+]
+*/
 buildMain(system: BuildSystem) {
     let browser = system.compileForBrowser("Main.ff")
     let assets = AssetSystem.create().addAssets("/js", browser.assets())

package/meetup/AutoCompletion.ff

@@ -0,0 +1,6 @@
+main(system: NodeSystem) {
+    
+    let list = ["Meetup", "MF#K"]
+    list.map {a => a.}
+    
+}