freelang-editor 11.7.4

package/self/interpreter.fl

@@ -0,0 +1,351 @@
+;; self/interpreter.fl — FL 로 작성된 Interpreter Core (Phase 05/53-65)
+;;
+;; 입력: AST node + scope
+;; 출력: value (number/string/bool/null/function-value/map/list)
+;;
+;; 특수폼: fn, define, let, if, do, quote, set! (9개 기본)
+;; 나머지 22 개는 Phase 06 에서 추가.
+;;
+;; builtins 은 FL runtime 이 이미 제공하는 것을 그대로 사용.
+;; (+ - * / < > = str length append list first rest get ...)
+;; 자체 interp 이 이들을 호출할 때 native-call 로 위임.
+
+;; ──────────────────────────────────────
+;; 53 eval dispatcher
+;; ──────────────────────────────────────
+
+[FUNC self-eval :params [node scope]
+  :body (cond
+          [(null? node) null]
+          [(= (get node :kind) "literal")   (eval-literal node scope)]
+          [(= (get node :kind) "variable")  (eval-variable node scope)]
+          [(= (get node :kind) "keyword")   (get node :name)]
+          [(= (get node :kind) "sexpr")     (eval-sexpr node scope)]
+          [(= (get node :kind) "block")     (eval-block node scope)]
+          [true null])]
+
+;; ──────────────────────────────────────
+;; 54 Literal eval
+;; ──────────────────────────────────────
+
+[FUNC eval-literal :params [n scope]
+  :body (let [[t (get n :type)] [v (get n :value)]]
+          (cond
+            [(= t "number")  (str-to-num v)]
+            [(= t "string")  v]
+            [(= t "boolean") (= v "true")]
+            [(= t "null")    null]
+            [(= t "symbol")
+             (let [[v2 (scope-get scope v)]]
+               (if (null? v2) v v2))]
+            [true v]))]
+
+;; ──────────────────────────────────────
+;; 55 Variable eval (x) — strict resolve
+;; ──────────────────────────────────────
+
+[FUNC eval-variable :params [n scope]
+  :body (let [[name (get n :name)]
+              [v (scope-get scope name)]]
+          (if (null? v)
+            (throw-undefined name (get n :line))
+            v))]
+
+[FUNC throw-undefined :params [name line]
+  :body (error (str "Undefined variable: '$" name "' (line " line ")"))]
+
+;; ──────────────────────────────────────
+;; 56 SExpr eval — 특수폼 테이블 + 함수 호출
+;; ──────────────────────────────────────
+
+[FUNC eval-sexpr :params [n scope]
+  :body (let [[op (get n :op)] [args (get n :args)]]
+          (cond
+            [(= op "fn")      (eval-fn args scope (get n :line))]
+            [(= op "define")  (eval-define args scope)]
+            [(= op "defn")    (eval-defn args scope (get n :line))]
+            [(= op "let")     (eval-let args scope)]
+            [(= op "if")      (eval-if args scope)]
+            [(= op "cond")    (eval-cond args scope)]
+            [(= op "do")      (eval-do args scope)]
+            [(= op "quote")   (if (= (length args) 0) null (get args 0))]
+            [(= op "set!")    (eval-set args scope)]
+            [(= op "and")     (eval-and args scope)]
+            [(= op "or")      (eval-or args scope)]
+            [true (eval-call op args scope (get n :line))]))]
+
+;; ──────────────────────────────────────
+;; 57 Block eval — [FUNC] 만 처리 (register), 나머지는 meta
+;; ──────────────────────────────────────
+
+[FUNC eval-block :params [n scope]
+  :body (let [[type (get n :type)]]
+          (if (= type "FUNC")
+            (eval-func-block n scope)
+            null))]
+
+[FUNC eval-func-block :params [n scope]
+  :body (let [[name (get n :name)]
+              [fields (get n :fields)]
+              [params-node (get fields "params")]
+              [body (get fields "body")]
+              [params (extract-params params-node)]
+              [fv {:kind "function-value" :params params :body body
+                    :capturedEnv scope :name name}]]
+          ;; scope 에 name 등록
+          (scope-set scope name fv))]
+
+[FUNC extract-params :params [pnode]
+  :body (if (null? pnode) (list)
+          (let [[items (get (get pnode :fields) "items")]]
+            (if (null? items) (list)
+              (map (fn [x] (extract-param-name x)) items))))]
+
+[FUNC extract-param-name :params [x]
+  :body (cond
+          [(= (get x :kind) "variable") (get x :name)]
+          [(= (get x :kind) "literal") (get x :value)]
+          [true "_"])]
+
+;; ──────────────────────────────────────
+;; 58-65 특수폼 구현
+;; ──────────────────────────────────────
+
+;; fn — function-value 생성
+[FUNC eval-fn :params [args scope line]
+  :body (let [[pnode (get args 0)]
+              [body (get args 1)]
+              [params (extract-params pnode)]]
+          {:kind "function-value" :params params :body body
+           :capturedEnv scope :name null})]
+
+;; define — 변수 또는 함수
+[FUNC eval-define :params [args scope]
+  :body (let [[name-node (get args 0)]
+              [name (get-name name-node)]]
+          (if (= (length args) 2)
+            (let [[v (self-eval (get args 1) scope)]]
+              (scope-set scope name v))
+            (let [[pnode (get args 1)] [body (get args 2)]
+                  [params (extract-params pnode)]
+                  [fv {:kind "function-value" :params params :body body
+                        :capturedEnv scope :name name}]]
+              (scope-set scope name fv))))]
+
+[FUNC get-name :params [n]
+  :body (cond
+          [(= (get n :kind) "variable") (get n :name)]
+          [(= (get n :kind) "literal")  (get n :value)]
+          [true "_anon"])]
+
+;; defn → define (fn ...)
+[FUNC eval-defn :params [args scope line]
+  :body (let [[name (get-name (get args 0))]
+              [pnode (get args 1)]
+              [body (get args 2)]
+              [params (extract-params pnode)]
+              [fv {:kind "function-value" :params params :body body
+                    :capturedEnv scope :name name}]]
+          (scope-set scope name fv))]
+
+;; let — 1D/2D 모두 지원
+[FUNC eval-let :params [args scope]
+  :body (let [[bindings-node (get args 0)]
+              [items (get (get bindings-node :fields) "items")]
+              [scope2 (push-scope scope)]
+              [scope3 (bind-all items scope2)]
+              [body-args (slice args 1 (length args))]
+              [result (eval-do body-args scope3)]]
+          result)]
+
+[FUNC bind-all :params [items scope]
+  :body (if (= (length items) 0) scope
+          (let [[first (get items 0)]]
+            (if (and (= (get first :kind) "block") (= (get first :type) "Array"))
+              ;; 2D case [[x v] [y w]]
+              (bind-2d items scope 0)
+              ;; 1D case [x v y w]
+              (bind-1d items scope 0))))]
+
+[FUNC bind-2d :params [items scope i]
+  :body (if (>= i (length items)) scope
+          (let [[pair (get items i)]
+                [pitems (get (get pair :fields) "items")]
+                [k (get-name (get pitems 0))]
+                [v (self-eval (get pitems 1) scope)]
+                [scope2 (scope-set scope k v)]]
+            (bind-2d items scope2 (+ i 1))))]
+
+[FUNC bind-1d :params [items scope i]
+  :body (if (>= i (length items)) scope
+          (let [[k (get-name (get items i))]
+                [v (self-eval (get items (+ i 1)) scope)]
+                [scope2 (scope-set scope k v)]]
+            (bind-1d items scope2 (+ i 2))))]
+
+;; if
+[FUNC eval-if :params [args scope]
+  :body (let [[cond (self-eval (get args 0) scope)]]
+          (if (truthy? cond)
+            (self-eval (get args 1) scope)
+            (if (>= (length args) 3)
+              (self-eval (get args 2) scope)
+              null)))]
+
+[FUNC truthy? :params [v]
+  :body (cond
+          [(null? v) false]
+          [(= v false) false]
+          [(= v 0) false]
+          [(= v "") false]
+          [true true])]
+
+;; cond — [[test result] [test result] [true default]]
+[FUNC eval-cond :params [args scope]
+  :body (cond-loop args scope 0)]
+
+[FUNC cond-loop :params [args scope i]
+  :body (if (>= i (length args)) null
+          (let [[clause (get args i)]
+                [items (get (get clause :fields) "items")]
+                [test (self-eval (get items 0) scope)]]
+            (if (truthy? test)
+              (self-eval (get items 1) scope)
+              (cond-loop args scope (+ i 1)))))]
+
+;; do/begin — sequence, 마지막 값
+[FUNC eval-do :params [args scope]
+  :body (do-loop args scope 0 null)]
+
+[FUNC do-loop :params [args scope i last]
+  :body (if (>= i (length args)) last
+          (do-loop args scope (+ i 1)
+                   (self-eval (get args i) scope)))]
+
+;; set! — 기존 변수 재할당
+[FUNC eval-set :params [args scope]
+  :body (let [[name (get-name (get args 0))]
+              [v (self-eval (get args 1) scope)]]
+          (scope-set scope name v))]
+
+;; and / or — short-circuit
+[FUNC eval-and :params [args scope]
+  :body (and-loop args scope 0 true)]
+
+[FUNC and-loop :params [args scope i last]
+  :body (if (>= i (length args)) last
+          (let [[v (self-eval (get args i) scope)]]
+            (if (truthy? v) (and-loop args scope (+ i 1) v) false)))]
+
+[FUNC eval-or :params [args scope]
+  :body (or-loop args scope 0)]
+
+[FUNC or-loop :params [args scope i]
+  :body (if (>= i (length args)) false
+          (let [[v (self-eval (get args i) scope)]]
+            (if (truthy? v) v (or-loop args scope (+ i 1)))))]
+
+;; ──────────────────────────────────────
+;; 65 eval-call — 사용자 함수 또는 builtin
+;; ──────────────────────────────────────
+
+[FUNC eval-call :params [op args scope line]
+  :body (let [[clean-op (strip-dollar op)]
+              [fn-val (scope-get scope clean-op)]
+              [vals (eval-args args scope 0 (list))]]
+          (cond
+            [(and (not (null? fn-val))
+                  (= (get fn-val :kind) "function-value"))
+             (apply-user-fn fn-val vals)]
+            [true (native-call clean-op vals)]))]
+
+[FUNC strip-dollar :params [s]
+  :body (if (null? s) s
+          (if (and (>= (length s) 1) (= (char-at s 0) "$"))
+            (substring s 1 (length s))
+            s))]
+
+[FUNC eval-args :params [args scope i acc]
+  :body (if (>= i (length args)) acc
+          (eval-args args scope (+ i 1)
+                     (append acc (list (self-eval (get args i) scope)))))]
+
+[FUNC apply-user-fn :params [fv vals]
+  :body (let [[params (get fv :params)]
+              [body (get fv :body)]
+              [captured (get fv :capturedEnv)]
+              [scope2 (push-scope captured)]
+              [scope3 (bind-params params vals scope2 0)]]
+          (self-eval body scope3))]
+
+[FUNC bind-params :params [params vals scope i]
+  :body (if (>= i (length params)) scope
+          (bind-params params vals
+                       (scope-set scope (get params i) (get vals i))
+                       (+ i 1)))]
+
+;; native-call — FL 런타임의 실제 builtin 직접 호출.
+;; 현재 셀프 interp 은 subset 만 지원. + - * / < > = str length get 등.
+[FUNC native-call :params [op vals]
+  :body (cond
+          [(= op "+") (apply-add vals 0 0)]
+          [(= op "-") (apply-sub vals)]
+          [(= op "*") (apply-mul vals 1 0)]
+          [(= op "/") (apply-div vals)]
+          [(= op "<") (< (get vals 0) (get vals 1))]
+          [(= op ">") (> (get vals 0) (get vals 1))]
+          [(= op "<=") (<= (get vals 0) (get vals 1))]
+          [(= op ">=") (>= (get vals 0) (get vals 1))]
+          [(= op "=")  (= (get vals 0) (get vals 1))]
+          [(= op "!=") (not (= (get vals 0) (get vals 1)))]
+          [(= op "not") (not (get vals 0))]
+          [(= op "str") (str-apply vals 0 "")]
+          [(= op "println")  (println (first-val vals))]
+          [(= op "length") (length (get vals 0))]
+          [(= op "list") vals]
+          [true (error (str "native-call unknown op: " op))])]
+
+[FUNC apply-add :params [vals i acc]
+  :body (if (>= i (length vals)) acc
+          (apply-add vals (+ i 1) (+ acc (get vals i))))]
+
+[FUNC apply-sub :params [vals]
+  :body (if (= (length vals) 1) (- 0 (get vals 0))
+          (- (get vals 0) (sub-rest vals 1 0)))]
+
+[FUNC sub-rest :params [vals i acc]
+  :body (if (>= i (length vals)) acc
+          (sub-rest vals (+ i 1) (+ acc (get vals i))))]
+
+[FUNC apply-mul :params [vals acc i]
+  :body (if (>= i (length vals)) acc
+          (apply-mul vals (* acc (get vals i)) (+ i 1)))]
+
+[FUNC apply-div :params [vals]
+  :body (/ (get vals 0) (get vals 1))]
+
+[FUNC str-apply :params [vals i acc]
+  :body (if (>= i (length vals)) acc
+          (str-apply vals (+ i 1) (str acc (get vals i))))]
+
+[FUNC first-val :params [vals]
+  :body (if (= (length vals) 0) "" (get vals 0))]
+
+;; ──────────────────────────────────────
+;; 공개 API — (run-ast ast-list) → 마지막 값
+;; ──────────────────────────────────────
+
+[FUNC run-ast :params [ast]
+  :body (run-ast-loop ast (make-scope) 0 null)]
+
+[FUNC run-ast-loop :params [ast scope i last]
+  :body (if (>= i (length ast)) last
+          (let [[v (self-eval (get ast i) scope)]]
+            (if (and (not (null? v))
+                     (= (get v :kind) nil)
+                     (= (length v) 1))  ;; scope 가 반환된 경우
+              (run-ast-loop ast v (+ i 1) last)
+              (run-ast-loop ast scope (+ i 1) v))))]
+
+;; NOTE: 이 interp 는 smoke 수준. Phase 06 에서 특수폼 22 개 추가,
+;; Phase 07 에서 builtin 342 개 native-call 확장.

package/self/lexer.fl

@@ -0,0 +1,200 @@
+;; self/lexer.fl — FL 로 작성된 Lexer (Phase 01, [FUNC] 블록 버전)
+;;
+;; v11 defn 이 forward-ref 를 지원하지 않아 [FUNC] 블록 사용.
+;; [FUNC] 는 2-pass 등록이라 상호재귀 허용.
+;;
+;; 입력: source string
+;; 출력: tokens list. 각 토큰 = {:kind :value :line :col}
+;;
+;; 토큰 종류: LParen / RParen / LBracket / RBracket / LBrace / RBrace
+;;          / Number / String / Symbol / Variable / Keyword
+;;          / Unknown / (comment 는 drop)
+
+;; ──────────────────────────────────────
+;; char predicates
+;; ──────────────────────────────────────
+
+[FUNC is-digit? :params [$c]
+  :body (if (null? $c) false (and (>= $c "0") (<= $c "9")))]
+
+[FUNC is-alpha? :params [$c]
+  :body (if (null? $c) false
+          (or (and (>= $c "a") (<= $c "z"))
+              (and (>= $c "A") (<= $c "Z"))))]
+
+[FUNC is-alnum? :params [$c] :body (or (is-digit? $c) (is-alpha? $c))]
+
+[FUNC is-space? :params [$c]
+  :body (or (= $c " ") (= $c "\t") (= $c "\n") (= $c "\r"))]
+
+[FUNC is-symbol-char? :params [$c]
+  :body (if (null? $c) false
+          (or (is-alnum? $c)
+              (= $c "-") (= $c "_") (= $c "?") (= $c "!")
+              (= $c "/") (= $c ".") (= $c "<") (= $c ">")
+              (= $c "=") (= $c "+") (= $c "*") (= $c "%")
+              (= $c "&") (= $c "|") (= $c "^") (= $c "~")))]
+
+;; ──────────────────────────────────────
+;; state = {:src :idx :line :col :tokens}
+;; ──────────────────────────────────────
+
+[FUNC make-state :params [$src]
+  :body {:src $src :idx 0 :line 1 :col 1 :tokens []}]
+
+[FUNC peek-at :params [$st $offset]
+  :body (let [[$src (get $st :src)]
+              [$i (+ (get $st :idx) $offset)]]
+          (if (>= $i (length $src)) null (char-at $src $i)))]
+
+[FUNC peek :params [$st] :body (peek-at $st 0)]
+
+[FUNC at-end? :params [$st]
+  :body (>= (get $st :idx) (length (get $st :src)))]
+
+[FUNC advance :params [$st]
+  :body (let [[$c (peek $st)]]
+          (if (= $c "\n")
+            {:src (get $st :src) :idx (+ (get $st :idx) 1)
+             :line (+ (get $st :line) 1) :col 1
+             :tokens (get $st :tokens)}
+            {:src (get $st :src) :idx (+ (get $st :idx) 1)
+             :line (get $st :line) :col (+ (get $st :col) 1)
+             :tokens (get $st :tokens)}))]
+
+[FUNC emit :params [$st $kind $value $sl $sc]
+  :body {:src (get $st :src) :idx (get $st :idx)
+         :line (get $st :line) :col (get $st :col)
+         :tokens (append (get $st :tokens)
+                         {:kind $kind :type $kind :value $value :line $sl :col $sc})}]
+
+;; ──────────────────────────────────────
+;; 스킵 (whitespace + ; line comment)
+;; ──────────────────────────────────────
+
+[FUNC skip-comment :params [$st]
+  :body (let [[$cur $st]]
+          (do
+            (while (and (not (at-end? $cur)) (not (= (peek $cur) "\n")))
+              (set! $cur (advance $cur)))
+            (if (at-end? $cur) $cur (advance $cur))))]
+
+[FUNC skip-ws :params [$st]
+  :body (let [[$cur $st] [$running true]]
+          (do
+            (while (and (not (at-end? $cur)) $running)
+              (let [[$c (peek $cur)]]
+                (cond
+                  [(is-space? $c) (set! $cur (advance $cur))]
+                  [(= $c ";") (set! $cur (skip-comment $cur))]
+                  [true (set! $running false)])))
+            $cur))]
+
+;; ──────────────────────────────────────
+;; 숫자 (정수/실수/음수)
+;; ──────────────────────────────────────
+
+[FUNC read-number-body :params [$st $acc $has-dot $line $col]
+  :body (let [[$cur $st] [$res_acc $acc] [$dot $has-dot] [$running true]]
+          (do
+            (while (and (not (at-end? $cur)) $running)
+              (let [[$c (peek $cur)]]
+                (cond
+                  [(is-digit? $c) (do (set! $res_acc (str $res_acc $c)) (set! $cur (advance $cur)))]
+                  [(and (= $c ".") (not $dot)) (do (set! $res_acc (str $res_acc $c)) (set! $dot true) (set! $cur (advance $cur)))]
+                  [true (set! $running false)])))
+            (emit $cur "Number" $res_acc $line $col)))]
+
+[FUNC read-number :params [$st]
+  :body (read-number-body $st "" false (get $st :line) (get $st :col))]
+
+;; ──────────────────────────────────────
+;; 문자열 (escape \n \t \r \" \\)
+;; ──────────────────────────────────────
+
+[FUNC translate-esc :params [$c]
+  :body (cond
+          [(= $c "n") "\n"] [(= $c "t") "\t"] [(= $c "r") "\r"]
+          [(= $c "\"") "\""] [(= $c "\\") "\\"] [true $c])]
+
+[FUNC read-string-body :params [$st $acc $line $col]
+  :body (let [[$cur $st] [$res_acc $acc] [$running true]]
+          (do
+            (while (and (not (at-end? $cur)) $running)
+              (let [[$c (peek $cur)]]
+                (cond
+                  [(= $c "\"") (do (set! $cur (advance $cur)) (set! $running false))]
+                  [(= $c "\\")
+                   (let [[$st2 (advance $cur)] [$c2 (peek $st2)]]
+                     (do (set! $res_acc (str $res_acc (translate-esc $c2))) (set! $cur (advance $st2))))]
+                  [true (do (set! $res_acc (str $res_acc $c)) (set! $cur (advance $cur)))])))
+            (emit $cur "String" $res_acc $line $col)))]
+
+[FUNC read-string :params [$st]
+  :body (let [[$line (get $st :line)] [$col (get $st :col)]
+              [$st1 (advance $st)]]
+          (read-string-body $st1 "" $line $col))]
+
+;; ──────────────────────────────────────
+;; 심볼 / 변수 / 키워드 (모두 symbol-char 연속)
+;; ──────────────────────────────────────
+
+[FUNC read-symbol-body-kind :params [$st $acc $line $col $kind]
+  :body (let [[$cur $st] [$res_acc $acc] [$running true]]
+          (do
+            (while (and (not (at-end? $cur)) $running)
+              (let [[$c (peek $cur)]]
+                (if (is-symbol-char? $c)
+                  (do (set! $res_acc (str $res_acc $c)) (set! $cur (advance $cur)))
+                  (set! $running false))))
+            (emit $cur $kind $res_acc $line $col)))]
+
+[FUNC read-symbol :params [$st]
+  :body (read-symbol-body-kind $st "" (get $st :line) (get $st :col) "Symbol")]
+
+[FUNC read-variable :params [$st]
+  :body (let [[$line (get $st :line)] [$col (get $st :col)]
+              [$st1 (advance $st)]]
+          (read-symbol-body-kind $st1 "" $line $col "Variable"))]
+
+[FUNC read-keyword :params [$st]
+  :body (let [[$line (get $st :line)] [$col (get $st :col)]
+              [$st1 (advance $st)]]
+          (read-symbol-body-kind $st1 "" $line $col "Keyword"))]
+
+;; ──────────────────────────────────────
+;; 토큰 하나 읽기
+;; ──────────────────────────────────────
+
+[FUNC read-token :params [$st]
+  :body (let [[$st1 (skip-ws $st)]]
+          (if (at-end? $st1) $st1
+            (let [[$c (peek $st1)] [$line (get $st1 :line)] [$col (get $st1 :col)]]
+              (cond
+                [(= $c "(") (emit (advance $st1) "LParen"   $c $line $col)]
+                [(= $c ")") (emit (advance $st1) "RParen"   $c $line $col)]
+                [(= $c "[") (emit (advance $st1) "LBracket" $c $line $col)]
+                [(= $c "]") (emit (advance $st1) "RBracket" $c $line $col)]
+                [(= $c "{") (emit (advance $st1) "LBrace"   $c $line $col)]
+                [(= $c "}") (emit (advance $st1) "RBrace"   $c $line $col)]
+                [(= $c "\"") (read-string $st1)]
+                [(= $c "$") (read-variable $st1)]
+                [(= $c ":") (read-keyword $st1)]
+                [(is-digit? $c) (read-number $st1)]
+                [(and (= $c "-") (is-digit? (peek-at $st1 1)))
+                 (read-number-body (advance $st1) "-" false $line $col)]
+                [(is-symbol-char? $c) (read-symbol $st1)]
+                [true (emit (advance $st1) "Unknown" $c $line $col)]))))]
+
+;; ──────────────────────────────────────
+;; 메인 루프 — 모든 토큰 수집
+;; ──────────────────────────────────────
+
+  [FUNC lex-loop :params [$st]
+    :body (let [[$cur $st]]
+            (do
+              (while (not (at-end? (skip-ws $cur)))
+                (set! $cur (read-token $cur)))
+              (get $cur :tokens)))]
+
+[FUNC lex :params [$src] :body (lex-loop (make-state $src))]

package/self/lexer.self.js

@@ -0,0 +1,30 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);
+const is_digit_q = (c)=>((c==null)?false:((c>="0")&&(c<="9")));;
+const is_alpha_q = (c)=>((c==null)?false:(((c>="a")&&(c<="z"))||((c>="A")&&(c<="Z"))));;
+const is_alnum_q = (c)=>(is_digit_q(c)||is_alpha_q(c));;
+const is_space_q = (c)=>((c===" ")||(c==="	")||(c==="
+")||(c==="
+const is_symbol_char_q = (c)=>((c==null)?false:(is_alnum_q(c)||(c==="-")||(c==="_")||(c==="?")||(c==="!")||(c==="/")||(c===".")||(c==="<")||(c===">")||(c==="=")||(c==="+")||(c==="*")||(c==="%")||(c==="&")||(c==="|")||(c==="^")||(c==="~")));;
+const make_state = (src)=>null;;
+const peek_at = (st,offset)=>((()=>{let src=_fl_get(st,"src");let i=(_fl_get(st,"idx")+offset);return ((i>=_fl_length(src))?null:_fl_char_at(src,i));})());;
+const peek = (st)=>peek_at(st,0);;
+const at_end_q = (st)=>(_fl_get(st,"idx")>=_fl_length(_fl_get(st,"src")));;
+const advance = (st)=>((()=>{let c=peek(st);return ((c==="
+")?null:null);})());;
+const emit = (st,kind,value,sl,sc)=>null;;
+const skip_comment = (st)=>(at_end_q(st)?st:((()=>{let c=peek(st);return ((c==="
+")?advance(st):skip_comment(advance(st)));})()));;
+const skip_ws = (st)=>(at_end_q(st)?st:((()=>{let c=peek(st);return (is_space_q(c)?skip_ws(advance(st)):((c===";")?skip_ws(skip_comment(st)):(true?st:null)));})()));;
+const read_number_body = (st,acc,has_dot,line,col)=>(at_end_q(st)?emit(st,"Number",acc,line,col):((()=>{let c=peek(st);return (is_digit_q(c)?read_number_body(advance(st),_fl_str(acc,c),has_dot,line,col):(((c===".")&&(!has_dot))?read_number_body(advance(st),_fl_str(acc,c),true,line,col):(true?emit(st,"Number",acc,line,col):null)));})()));;
+const read_number = (st)=>read_number_body(st,"",false,_fl_get(st,"line"),_fl_get(st,"col"));;
+const translate_esc = (c)=>((c==="n")?"
+":((c==="t")?"	":((c==="r")?"
+const read_string_body = (st,acc,line,col)=>(at_end_q(st)?emit(st,"String",acc,line,col):((()=>{let c=peek(st);return ((c==="\"")?emit(advance(st),"String",acc,line,col):((c==="\\")?((()=>{let st2=advance(st);let c2=peek(st2);return read_string_body(advance(st2),_fl_str(acc,translate_esc(c2)),line,col);})()):(true?read_string_body(advance(st),_fl_str(acc,c),line,col):null)));})()));;
+const read_string = (st)=>((()=>{let line=_fl_get(st,"line");let col=_fl_get(st,"col");let st1=advance(st);return read_string_body(st1,"",line,col);})());;
+const read_symbol_body_kind = (st,acc,line,col,kind)=>(at_end_q(st)?emit(st,kind,acc,line,col):((()=>{let c=peek(st);return (is_symbol_char_q(c)?read_symbol_body_kind(advance(st),_fl_str(acc,c),line,col,kind):emit(st,kind,acc,line,col));})()));;
+const read_symbol = (st)=>read_symbol_body_kind(st,"",_fl_get(st,"line"),_fl_get(st,"col"),"Symbol");;
+const read_variable = (st)=>((()=>{let line=_fl_get(st,"line");let col=_fl_get(st,"col");let st1=advance(st);return read_symbol_body_kind(st1,"",line,col,"Variable");})());;
+const read_keyword = (st)=>((()=>{let line=_fl_get(st,"line");let col=_fl_get(st,"col");let st1=advance(st);return read_symbol_body_kind(st1,"",line,col,"Keyword");})());;
+const read_token = (st)=>((()=>{let st1=skip_ws(st);return (at_end_q(st1)?st1:((()=>{let c=peek(st1);let line=_fl_get(st1,"line");let col=_fl_get(st1,"col");return ((c==="(")?emit(advance(st1),"LParen",c,line,col):((c===")")?emit(advance(st1),"RParen",c,line,col):((c==="[")?emit(advance(st1),"LBracket",c,line,col):((c==="]")?emit(advance(st1),"RBracket",c,line,col):((c==="{")?emit(advance(st1),"LBrace",c,line,col):((c==="}")?emit(advance(st1),"RBrace",c,line,col):((c==="\"")?read_string(st1):((c==="$")?read_variable(st1):((c===":")?read_keyword(st1):(is_digit_q(c)?read_number(st1):(((c==="-")&&is_digit_q(peek_at(st1,1)))?read_number_body(advance(st1),"-",false,line,col):(is_symbol_char_q(c)?read_symbol(st1):(true?emit(advance(st1),"Unknown",c,line,col):null)))))))))))));})()));})());;
+const lex_loop = (st)=>((()=>{let st1=skip_ws(st);return (at_end_q(st1)?_fl_get(st1,"tokens"):lex_loop(read_token(st1)));})());;
+const lex = (src)=>lex_loop(make_state(src));;

package/self/main.fl

@@ -0,0 +1,22 @@
+
+[FUNC do-run :params [$input]
+  :body (let [[$output (str "/tmp/fl-run-" (now-ms) ".js")]]
+          (do
+            (compile-file $input $output)
+            (shell-exec (str "node " $output) ".")
+            (file-delete $output)))]
+
+[FUNC cli-main :params []
+  :body (let [[$argv (cli-args)]]
+          (if (null? $argv) null
+            (if (= (length $argv) 0) null
+              (let [[$cmd (get $argv 0)]]
+                (if (= $cmd "run")
+                  (let [[$input (get $argv 1)]]
+                    (do-run $input))
+                  (let [[$input (get $argv 0)]
+                        [$output (if (>= (length $argv) 2) (get $argv 1) (str $input ".out.js"))]]
+                    (compile-file $input $output)))))))]
+
+;; Entry point trigger
+(cli-main)