firefly-compiler 0.4.40 → 0.4.46

package/lux/LuxEvent.ff

@@ -1,116 +1,116 @@
-class LuxEvent {}
-
-extend self: LuxEvent {
-    
-    preventDefault(): Unit {unsupported()}
-        target js sync """self_.preventDefault()"""
-
-    stopPropagation(): Unit {unsupported()}
-        target js sync """self_.stopPropagation()"""
-        
-    target(): JsValue {unsupported()}
-        target js sync """return self_.target"""
-
-    currentTarget(): JsValue {unsupported()}
-        target js sync """return self_.currentTarget"""
-
-    relatedTarget(): JsValue {unsupported()}
-        target js sync """return self_.relatedTarget"""
-
-    nativeEvent(): JsValue {unsupported()}
-        target js sync """return self_"""
-
-    type(): String {unsupported()}
-        target js sync """return self_.type"""
-
-    altKey(): Bool {unsupported()}
-        target js sync """return self_.altKey || false"""
-
-    ctrlKey(): Bool {unsupported()}
-        target js sync """return self_.ctrlKey || false"""
-
-    shiftKey(): Bool {unsupported()}
-        target js sync """return self_.shiftKey || false"""
-
-    metaKey(): Bool {unsupported()}
-        target js sync """return self_.metaKey || false"""
-
-    button(): Int {unsupported()}
-        target js sync """return self_.button || 0"""
-
-    primaryButton(): Bool {unsupported()}
-        target js sync """return !!(self_.buttons & 1)"""
-        
-    secondaryButton(): Bool {unsupported()}
-        target js sync """return !!(self_.buttons & 2)"""
-        
-    middleButton(): Bool {unsupported()}
-        target js sync """return !!(self_.buttons & 4)"""
-        
-    clientX(): Float {unsupported()}
-        target js sync """return self_.clientX || 0"""
-
-    clientY(): Float {unsupported()}
-        target js sync """return self_.clientY || 0"""
-
-    movementX(): Float {unsupported()}
-        target js sync """return self_.movementX || 0"""
-
-    movementY(): Float {unsupported()}
-        target js sync """return self_.movementY || 0"""
-
-    offsetX(): Float {unsupported()}
-        target js sync """return self_.offsetX || 0"""
-
-    offsetY(): Float {unsupported()}
-        target js sync """return self_.offsetY || 0"""
-
-    pageX(): Float {unsupported()}
-        target js sync """return self_.opageX || 0"""
-
-    pageY(): Float {unsupported()}
-        target js sync """return self_.pageY || 0"""
-
-    screenX(): Float {unsupported()}
-        target js sync """return self_.screenX || 0"""
-
-    screenY(): Float {unsupported()}
-        target js sync """return self_.screenY || 0"""
-
-    key(): String {unsupported()}
-        target js sync """return self_.key || ''"""
-        
-    code(): String {unsupported()}
-        target js sync """return self_.code || ''"""
-        
-    repeat(): Bool {unsupported()}
-        target js sync """return !!self_.repeat"""
-        
-    leftKeyLocation(): Bool {unsupported()}
-        target js sync """return self_.location === 1"""
-        
-    rightKeyLocation(): Bool {unsupported()}
-        target js sync """return self_.location === 2"""
-        
-    numpadKeyLocation(): Bool {unsupported()}
-        target js sync """return self_.location === 3"""
-        
-    isComposing(): Bool {unsupported()}
-        target js sync """return !!self_.isComposing"""
-        
-    data(): String {unsupported()}
-        target js sync """return self_.data || ''"""
-        
-    text(): String {unsupported()}
-        target js sync """return '' + (self_.target.value || '')"""
-
-    inputType(): String {unsupported()}
-        target js sync """return self_.inputType || ''"""
-
-    dataTransfer(): JsValue {unsupported()}
-        target js sync """return self_.dataTransfer"""
-
-    getTargetRanges(): JsValue {unsupported()}
-        target js sync """return self_.getTargetRanges()"""
-        
-}
+class LuxEvent {}
+
+extend self: LuxEvent {
+    
+    preventDefault(): Unit {unsupported()}
+        target js sync """self_.preventDefault()"""
+
+    stopPropagation(): Unit {unsupported()}
+        target js sync """self_.stopPropagation()"""
+        
+    target(): JsValue {unsupported()}
+        target js sync """return self_.target"""
+
+    currentTarget(): JsValue {unsupported()}
+        target js sync """return self_.currentTarget"""
+
+    relatedTarget(): JsValue {unsupported()}
+        target js sync """return self_.relatedTarget"""
+
+    nativeEvent(): JsValue {unsupported()}
+        target js sync """return self_"""
+
+    type(): String {unsupported()}
+        target js sync """return self_.type"""
+
+    altKey(): Bool {unsupported()}
+        target js sync """return self_.altKey || false"""
+
+    ctrlKey(): Bool {unsupported()}
+        target js sync """return self_.ctrlKey || false"""
+
+    shiftKey(): Bool {unsupported()}
+        target js sync """return self_.shiftKey || false"""
+
+    metaKey(): Bool {unsupported()}
+        target js sync """return self_.metaKey || false"""
+
+    button(): Int {unsupported()}
+        target js sync """return self_.button || 0"""
+
+    primaryButton(): Bool {unsupported()}
+        target js sync """return !!(self_.buttons & 1)"""
+        
+    secondaryButton(): Bool {unsupported()}
+        target js sync """return !!(self_.buttons & 2)"""
+        
+    middleButton(): Bool {unsupported()}
+        target js sync """return !!(self_.buttons & 4)"""
+        
+    clientX(): Float {unsupported()}
+        target js sync """return self_.clientX || 0"""
+
+    clientY(): Float {unsupported()}
+        target js sync """return self_.clientY || 0"""
+
+    movementX(): Float {unsupported()}
+        target js sync """return self_.movementX || 0"""
+
+    movementY(): Float {unsupported()}
+        target js sync """return self_.movementY || 0"""
+
+    offsetX(): Float {unsupported()}
+        target js sync """return self_.offsetX || 0"""
+
+    offsetY(): Float {unsupported()}
+        target js sync """return self_.offsetY || 0"""
+
+    pageX(): Float {unsupported()}
+        target js sync """return self_.opageX || 0"""
+
+    pageY(): Float {unsupported()}
+        target js sync """return self_.pageY || 0"""
+
+    screenX(): Float {unsupported()}
+        target js sync """return self_.screenX || 0"""
+
+    screenY(): Float {unsupported()}
+        target js sync """return self_.screenY || 0"""
+
+    key(): String {unsupported()}
+        target js sync """return self_.key || ''"""
+        
+    code(): String {unsupported()}
+        target js sync """return self_.code || ''"""
+        
+    repeat(): Bool {unsupported()}
+        target js sync """return !!self_.repeat"""
+        
+    leftKeyLocation(): Bool {unsupported()}
+        target js sync """return self_.location === 1"""
+        
+    rightKeyLocation(): Bool {unsupported()}
+        target js sync """return self_.location === 2"""
+        
+    numpadKeyLocation(): Bool {unsupported()}
+        target js sync """return self_.location === 3"""
+        
+    isComposing(): Bool {unsupported()}
+        target js sync """return !!self_.isComposing"""
+        
+    data(): String {unsupported()}
+        target js sync """return self_.data || ''"""
+        
+    text(): String {unsupported()}
+        target js sync """return '' + (self_.target.value || '')"""
+
+    inputType(): String {unsupported()}
+        target js sync """return self_.inputType || ''"""
+
+    dataTransfer(): JsValue {unsupported()}
+        target js sync """return self_.dataTransfer"""
+
+    getTargetRanges(): JsValue {unsupported()}
+        target js sync """return self_.getTargetRanges()"""
+        
+}

package/lux/Main.ff

@@ -1,128 +1,128 @@
-import HttpServer from ff:httpserver
-
-import Lux
-import LuxEvent
-import Css
-
-data ChatEntry(
-    question: String
-    answer: Option[String]
-)
-
-mainComponent(lux: Lux, http: HttpClient) {
-    lux.useState([]): chat, setChat => 
-    lux.useState(""): message, setMessage =>
-    lux.div {
-        lux.div {
-            chat.each {questionComponent(lux, http, _)}
-        }
-        lux.form {
-            lux.input {
-                //.with("autofocus", "true")
-                lux.setValue(message)
-                lux.onInput {event => setMessage(event.text())}
-            }
-            lux.on("submit") {event => 
-                event.preventDefault()
-                setMessage("")
-                setChat([...chat, message])
-            }
-        }
-    }
-}
-
-questionCss = CssClass([Css.marginBottom("10px")], [], [])
-
-questionComponent(lux: Lux, http: HttpClient, question: String) {
-    lux.div {
-        lux.cssClass(questionCss)
-        lux.div {lux.text("User: " + question)}
-        lux.useLazy1(question): _ =>
-        lux.useSuspense {lux.div {lux.text("Assistant typing...")}}: lux =>
-        let answer = http.fetch(
-            url = "/chat"
-            method = "POST"
-            body = Some(HttpClient.bodyText(question))
-        ).readText()
-        lux.div {lux.text("Assistant: " + answer)}
-    }
-}
-
-browserMain(system: BrowserSystem) {
-    Lux.renderById(system, "main") {lux => mainComponent(lux, system.httpClient())}
-}
-
-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"])
-            response.writeText("<!doctype html>")
-            response.writeText("<div id='main'></div>")
-            response.writeText("<script type='module' src='/js/script/script/Main.mjs'></script>")
-        } elseIf {request.path().startsWith("/js/") && !request.path().contains("..")} {
-            response.setHeader("Content-Type", ["text/javascript; charset=UTF-8"])
-            response.writeText(system.assets().readText(request.path()))
-        } elseIf {request.path() == "/chat"} {
-            let question = request.readText()
-            response.setHeader("Content-Type", ["text/plain; charset=UTF-8"])
-            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(question)
-                    let answer = fetchAnswer(system.httpClient(), key, chatJson)
-                    response.writeText(answer)
-            }
-        } else {
-            response.writeStatus(404, Some("Not found"))
-        }
-    }
-}
-
-fetchAnswer(httpClient: HttpClient, key: String, question: Json): 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.write()))
-    ).readJson()
-    json.field("choices").index(0).field("message").field("content").grabString()
-}
-
-encodeChat(question: String): Json {
-    let systemJson = Json.object()
-        .with("role", "system")
-        .with("content", "You are a helpful assistant.")
-    let questionJson = Json.object()
-        .with("role", "user")
-        .with("content", question)
-    Json.object()
-        .with("model", "gpt-3.5-turbo")
-        .with("messages", [systemJson, questionJson])
-}
-
-
-/*
-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())
-    system.setAssets(assets)
-}
+import HttpServer from ff:httpserver
+
+import Lux
+import LuxEvent
+import Css
+
+data ChatEntry(
+    question: String
+    answer: Option[String]
+)
+
+mainComponent(lux: Lux, http: HttpClient) {
+    lux.useState([]): chat, setChat => 
+    lux.useState(""): message, setMessage =>
+    lux.div {
+        lux.div {
+            chat.each {questionComponent(lux, http, _)}
+        }
+        lux.form {
+            lux.input {
+                //.with("autofocus", "true")
+                lux.setValue(message)
+                lux.onInput {event => setMessage(event.text())}
+            }
+            lux.on("submit") {event => 
+                event.preventDefault()
+                setMessage("")
+                setChat([...chat, message])
+            }
+        }
+    }
+}
+
+questionCss = CssClass([Css.marginBottom("10px")], [], [])
+
+questionComponent(lux: Lux, http: HttpClient, question: String) {
+    lux.div {
+        lux.cssClass(questionCss)
+        lux.div {lux.text("User: " + question)}
+        lux.useLazy1(question): _ =>
+        lux.useSuspense {lux.div {lux.text("Assistant typing...")}}: lux =>
+        let answer = http.fetch(
+            url = "/chat"
+            method = "POST"
+            body = Some(HttpClient.bodyText(question))
+        ).readText()
+        lux.div {lux.text("Assistant: " + answer)}
+    }
+}
+
+browserMain(system: BrowserSystem) {
+    Lux.renderById(system, "main") {lux => mainComponent(lux, system.httpClient())}
+}
+
+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"])
+            response.writeText("<!doctype html>")
+            response.writeText("<div id='main'></div>")
+            response.writeText("<script type='module' src='/js/script/script/Main.mjs'></script>")
+        } elseIf {request.path().startsWith("/js/") && !request.path().contains("..")} {
+            response.setHeader("Content-Type", ["text/javascript; charset=UTF-8"])
+            response.writeText(system.assets().readText(request.path()))
+        } elseIf {request.path() == "/chat"} {
+            let question = request.readText()
+            response.setHeader("Content-Type", ["text/plain; charset=UTF-8"])
+            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(question)
+                    let answer = fetchAnswer(system.httpClient(), key, chatJson)
+                    response.writeText(answer)
+            }
+        } else {
+            response.writeStatus(404, Some("Not found"))
+        }
+    }
+}
+
+fetchAnswer(httpClient: HttpClient, key: String, question: Json): 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.write()))
+    ).readJson()
+    json.field("choices").index(0).field("message").field("content").grabString()
+}
+
+encodeChat(question: String): Json {
+    let systemJson = Json.object()
+        .with("role", "system")
+        .with("content", "You are a helpful assistant.")
+    let questionJson = Json.object()
+        .with("role", "user")
+        .with("content", question)
+    Json.object()
+        .with("model", "gpt-3.5-turbo")
+        .with("messages", [systemJson, questionJson])
+}
+
+
+/*
+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())
+    system.setAssets(assets)
+}