freelang-editor 11.7.4

package/lib/query.fl

@@ -0,0 +1,160 @@
+;; ─────────────────────────────────────────────────────────────
+;; query.fl — SQL 쿼리 빌더 DSL
+;; (load "lib/query.fl")
+;;
+;; 사용:
+;;   (-> (q/from "users")
+;;       (q/select ["id" "name" "email"])
+;;       (q/where "age > ?" [25])
+;;       (q/where "status = ?" ["active"])
+;;       (q/order-by "name" "ASC")
+;;       (q/limit 10)
+;;       (q/offset 20)
+;;       (q/exec db))
+;;
+;; INSERT:
+;;   (q/insert db "users" {:name "Alice" :email "a@b.com"})
+;;
+;; UPDATE:
+;;   (q/update db "users" {:name "Bob"} "id = ?" [1])
+;;
+;; DELETE:
+;;   (q/delete db "users" "id = ?" [1])
+;; ─────────────────────────────────────────────────────────────
+
+;; ── SELECT 빌더 ──────────────────────────────────────────────
+
+(defn q/from [table]
+  {:table table
+   :cols  "*"
+   :wheres []
+   :params []
+   :order  nil
+   :dir    "ASC"
+   :lim    nil
+   :off    nil})
+
+(defn q/select [q cols]
+  (assoc q :cols (str-join cols ", ")))
+
+(defn q/where [q cond params]
+  {:table  (get q :table)
+   :cols   (get q :cols)
+   :wheres (push (get q :wheres) cond)
+   :params (reduce push (get q :params) params)
+   :order  (get q :order)
+   :dir    (get q :dir)
+   :lim    (get q :lim)
+   :off    (get q :off)})
+
+(defn q/order-by [q col dir]
+  (assoc (assoc q :order col) :dir (?? dir "ASC")))
+
+(defn q/limit [q n]
+  (assoc q :lim n))
+
+(defn q/offset [q n]
+  (assoc q :off n))
+
+;; ── SQL 문자열 생성 ──────────────────────────────────────────
+
+(defn q/build-select [q]
+  (let [base   (str "SELECT " (get q :cols) " FROM " (get q :table))
+        wheres (get q :wheres)
+        where  (if (empty? wheres)
+                 ""
+                 (str " WHERE " (str-join wheres " AND ")))
+        order  (if (nil? (get q :order))
+                 ""
+                 (str " ORDER BY " (get q :order) " " (get q :dir)))
+        lim    (if (nil? (get q :lim))
+                 ""
+                 (str " LIMIT " (get q :lim)))
+        off    (if (nil? (get q :off))
+                 ""
+                 (str " OFFSET " (get q :off)))]
+    (str base where order lim off)))
+
+;; ── 실행 ─────────────────────────────────────────────────────
+
+(defn q/exec [q db]
+  (db-query db (q/build-select q) (get q :params)))
+
+(defn q/exec-one [q db]
+  (let [result (db-query db
+                  (q/build-select (q/limit q 1))
+                  (get q :params))]
+    (if (empty? result)
+      nil
+      (first result))))
+
+;; ── INSERT ───────────────────────────────────────────────────
+
+(defn q/insert [db table row]
+  (let [cols   (keys row)
+        vals   (map (fn [k] (get row k)) cols)
+        marks  (str-join (map (fn [_] "?") cols) ", ")
+        sql    (str "INSERT INTO " table
+                    " (" (str-join cols ", ")
+                    ") VALUES (" marks ")")]
+    (db-exec db sql vals)))
+
+;; ── INSERT (키워드 키 지원) ──────────────────────────────────
+
+(defn q/insert-kw [db table row]
+  (let [cols   (map (fn [k] (str-replace (str k) ":" "")) (keys row))
+        vals   (map (fn [k] (get row k)) (keys row))
+        marks  (str-join (map (fn [_] "?") cols) ", ")
+        sql    (str "INSERT INTO " table
+                    " (" (str-join cols ", ")
+                    ") VALUES (" marks ")")]
+    (db-exec db sql vals)))
+
+;; ── UPDATE ───────────────────────────────────────────────────
+
+(defn q/update [db table row cond cond-params]
+  (let [cols   (keys row)
+        sets   (str-join (map (fn [c] (str c " = ?")) cols) ", ")
+        vals   (map (fn [k] (get row k)) cols)
+        all-params (reduce push vals cond-params)
+        sql    (str "UPDATE " table " SET " sets " WHERE " cond)]
+    (db-exec db sql all-params)))
+
+;; ── DELETE ───────────────────────────────────────────────────
+
+(defn q/delete [db table cond params]
+  (db-exec db
+    (str "DELETE FROM " table " WHERE " cond)
+    params))
+
+;; ── 집계 쿼리 ────────────────────────────────────────────────
+
+(defn q/count [db table cond params]
+  (let [sql    (str "SELECT COUNT(*) as cnt FROM " table
+                    (if (str-blank? cond) "" (str " WHERE " cond)))
+        result (db-query db sql (?? params []))]
+    (if (empty? result)
+      0
+      (get (first result) "cnt"))))
+
+(defn q/exists? [db table cond params]
+  (> (q/count db table cond params) 0))
+
+;; ── 페이지네이션 ─────────────────────────────────────────────
+
+(defn q/paginate [q db page per-page]
+  (let [offset (* (- page 1) per-page)
+        data   (-> q
+                   (q/limit per-page)
+                   (q/offset offset)
+                   (q/exec db))
+        total  (q/count db (get q :table)
+                  (if (empty? (get q :wheres)) ""
+                    (str-join (get q :wheres) " AND "))
+                  (get q :params))
+        pages  (ceil (/ total per-page))]
+    {:data  data
+     :page  page
+     :total total
+     :pages pages
+     :per   per-page}))

package/lib/result.fl

@@ -0,0 +1,124 @@
+;; ─────────────────────────────────────────────────────────────
+;; result.fl — Result 모나드 (성공/실패 체이닝)
+;; (load "lib/result.fl")
+;;
+;; 사용:
+;;   (res/ok 42)                          → {:ok true :val 42}
+;;   (res/err "실패 이유")                 → {:ok false :err "실패 이유"}
+;;   (-> (res/ok data)
+;;       (res/then validate-fn)
+;;       (res/then save-fn)
+;;       (res/catch log-err-fn)
+;;       (res/unwrap-or "기본값"))
+;; ─────────────────────────────────────────────────────────────
+
+;; ── 생성자 ──────────────────────────────────────────────────
+
+(defn res/ok [val]
+  {:ok true :val val})
+
+(defn res/err [msg]
+  {:ok false :err msg})
+
+;; ── 술어 ────────────────────────────────────────────────────
+
+(defn res/ok? [r]
+  (= true (get r :ok)))
+
+(defn res/err? [r]
+  (= false (get r :ok)))
+
+;; ── 체이닝 ──────────────────────────────────────────────────
+
+;; 성공일 때만 fn 적용 (fn은 val을 받아 res/ok 또는 res/err 반환)
+(defn res/then [r f]
+  (if (res/ok? r)
+    (f (get r :val))
+    r))
+
+;; 실패일 때만 fn 적용 (복구 시도)
+(defn res/catch [r f]
+  (if (res/err? r)
+    (f (get r :err))
+    r))
+
+;; 성공 값을 변환 (Result 아닌 일반 값 반환하는 fn)
+(defn res/map [r f]
+  (if (res/ok? r)
+    (res/ok (f (get r :val)))
+    r))
+
+;; 실패 메시지를 변환
+(defn res/map-err [r f]
+  (if (res/err? r)
+    (res/err (f (get r :err)))
+    r))
+
+;; ── 값 추출 ─────────────────────────────────────────────────
+
+;; 성공이면 val, 실패면 기본값
+(defn res/unwrap-or [r default]
+  (if (res/ok? r)
+    (get r :val)
+    default))
+
+;; 성공이면 val, 실패면 에러 throw
+(defn res/unwrap! [r]
+  (if (res/ok? r)
+    (get r :val)
+    (error (str "res/unwrap! 실패: " (get r :err)))))
+
+;; 성공 값 (nil이면 실패)
+(defn res/val [r]
+  (get r :val))
+
+;; 실패 메시지 (nil이면 성공)
+(defn res/err-msg [r]
+  (get r :err))
+
+;; ── HTTP 응답 변환 ───────────────────────────────────────────
+
+;; Result → server-json 응답
+(defn res/to-json [r]
+  (if (res/ok? r)
+    (server-json {:ok true :data (get r :val)})
+    (server-json {:ok false :error (get r :err)})))
+
+;; Result → server-json (상태 코드 포함)
+(defn res/to-response [r ok-code err-code]
+  (if (res/ok? r)
+    (server-json {:ok true :data (get r :val)})
+    {:status err-code :body {:ok false :error (get r :err)}}))
+
+;; ── 유틸 ────────────────────────────────────────────────────
+
+;; try 블록을 Result로 래핑
+(defn res/try [f]
+  (try
+    (res/ok (f))
+    (catch e
+      (res/err (get e "message")))))
+
+;; 여러 Result 중 첫 번째 실패 반환 (모두 성공이면 마지막 값)
+(defn res/all [results]
+  (reduce
+    (fn [acc r]
+      (if (res/err? acc)
+        acc
+        (if (res/err? r)
+          r
+          r)))
+    (res/ok nil)
+    results))
+
+;; 조건부 Result 생성
+(defn res/from [val pred err-msg]
+  (if (pred val)
+    (res/ok val)
+    (res/err err-msg)))
+
+;; nil 값을 Result로 변환
+(defn res/from-nil [val err-msg]
+  (if (nil? val)
+    (res/err err-msg)
+    (res/ok val)))

package/lib/template.fl

@@ -0,0 +1,161 @@
+;; ─────────────────────────────────────────────────────────────
+;; template.fl — 미니 템플릿 엔진
+;; (load "lib/template.fl")
+;;
+;; 문법:
+;;   {{변수}}              값 치환
+;;   {{#if cond}}...{{/if}}     조건부
+;;   {{#each items}}...{{/each}} 반복 ({{.}} = 현재값, {{@index}} = 인덱스)
+;;   {{#with obj}}...{{/with}}   스코프 변경
+;;   {{> partial ctx}}           부분 템플릿 호출
+;; ─────────────────────────────────────────────────────────────
+
+;; ── 부분 템플릿 레지스트리 ───────────────────────────────────
+(define tmpl/partials (atom {}))
+
+(defn tmpl/register [name tmpl-str]
+  (swap! tmpl/partials assoc name tmpl-str))
+
+;; ── 값 직렬화 ────────────────────────────────────────────────
+(defn tmpl/to-str [v]
+  (cond
+    [(nil? v)    ""]
+    [(boolean? v) (if v "true" "false")]
+    [true         (str v)]))
+
+;; ── 변수 치환 ────────────────────────────────────────────────
+(defn tmpl/replace-vars [s ctx]
+  (reduce
+    (fn [acc key]
+      (str-replace acc (str "{{" key "}}") (tmpl/to-str (get ctx key))))
+    s
+    (keys ctx)))
+
+;; ── {{#if}} 처리 ────────────────────────────────────────────
+(defn tmpl/process-if [s ctx]
+  (let [pattern "{{#if "
+        parts   (str-split s pattern)]
+    (if (= (length parts) 1)
+      s
+      (reduce
+        (fn [acc part]
+          (let [close-idx (str-index-of part "}}")]
+            (if (= close-idx -1)
+              (str acc part)
+              (let [cond-key (str-slice part 0 close-idx)
+                    rest-str (str-slice part (+ close-idx 2) (length part))
+                    end-tag  "{{/if}}"
+                    end-idx  (str-index-of rest-str end-tag)]
+                (if (= end-idx -1)
+                  (str acc part)
+                  (let [body     (str-slice rest-str 0 end-idx)
+                        after    (str-slice rest-str (+ end-idx (length end-tag)) (length rest-str))
+                        cond-val (get ctx cond-key)]
+                    (str acc (if cond-val body "") after)))))))
+        (first parts)
+        (rest parts)))))
+
+;; ── {{#each}} 처리 ───────────────────────────────────────────
+(defn tmpl/process-each [s ctx]
+  (let [pattern "{{#each "
+        parts   (str-split s pattern)]
+    (if (= (length parts) 1)
+      s
+      (reduce
+        (fn [acc part]
+          (let [close-idx (str-index-of part "}}")]
+            (if (= close-idx -1)
+              (str acc part)
+              (let [list-key  (str-slice part 0 close-idx)
+                    rest-str  (str-slice part (+ close-idx 2) (length part))
+                    end-tag   "{{/each}}"
+                    end-idx   (str-index-of rest-str end-tag)]
+                (if (= end-idx -1)
+                  (str acc part)
+                  (let [body   (str-slice rest-str 0 end-idx)
+                        after  (str-slice rest-str (+ end-idx (length end-tag)) (length rest-str))
+                        items  (?? (get ctx list-key) [])]
+                    (str acc
+                         (str-join
+                           (map-indexed
+                             (fn [idx item]
+                               (-> body
+                                   (str-replace "{{.}}" (tmpl/to-str item))
+                                   (str-replace "{{@index}}" (str idx))
+                                   (tmpl/replace-vars (if (map? item) item {}))))
+                             items)
+                           "")
+                         after)))))))
+        (first parts)
+        (rest parts)))))
+
+;; ── {{#with}} 처리 ───────────────────────────────────────────
+(defn tmpl/process-with [s ctx]
+  (let [pattern "{{#with "
+        parts   (str-split s pattern)]
+    (if (= (length parts) 1)
+      s
+      (reduce
+        (fn [acc part]
+          (let [close-idx (str-index-of part "}}")]
+            (if (= close-idx -1)
+              (str acc part)
+              (let [obj-key  (str-slice part 0 close-idx)
+                    rest-str (str-slice part (+ close-idx 2) (length part))
+                    end-tag  "{{/with}}"
+                    end-idx  (str-index-of rest-str end-tag)]
+                (if (= end-idx -1)
+                  (str acc part)
+                  (let [body  (str-slice rest-str 0 end-idx)
+                        after (str-slice rest-str (+ end-idx (length end-tag)) (length rest-str))
+                        obj   (?? (get ctx obj-key) {})]
+                    (str acc (tmpl/render body obj) after)))))))
+        (first parts)
+        (rest parts)))))
+
+;; ── {{> partial}} 처리 ──────────────────────────────────────
+(defn tmpl/process-partials [s ctx]
+  (let [pattern "{{> "
+        parts   (str-split s pattern)]
+    (if (= (length parts) 1)
+      s
+      (reduce
+        (fn [acc part]
+          (let [close-idx (str-index-of part "}}")]
+            (if (= close-idx -1)
+              (str acc part)
+              (let [name-part (str-slice part 0 close-idx)
+                    after     (str-slice part (+ close-idx 2) (length part))
+                    pname     (str-trim name-part)
+                    partial   (get (deref tmpl/partials) pname)]
+                (str acc (if partial (tmpl/render partial ctx) "") after)))))
+        (first parts)
+        (rest parts)))))
+
+;; ── 남은 {{...}} 제거 ────────────────────────────────────────
+(defn tmpl/clear-unknowns [s]
+  (let [parts (str-split s "{{")]
+    (if (= (length parts) 1)
+      s
+      (reduce
+        (fn [acc part]
+          (let [close-idx (str-index-of part "}}")]
+            (if (= close-idx -1)
+              (str acc "{{" part)
+              (str acc (str-slice part (+ close-idx 2) (length part))))))
+        (first parts)
+        (rest parts)))))
+
+;; ── 메인 렌더 ────────────────────────────────────────────────
+(defn tmpl/render [tmpl-str ctx]
+  (-> tmpl-str
+      (tmpl/process-partials ctx)
+      (tmpl/process-each ctx)
+      (tmpl/process-if ctx)
+      (tmpl/process-with ctx)
+      (tmpl/replace-vars ctx)
+      (tmpl/clear-unknowns)))
+
+;; ── 파일에서 렌더 ────────────────────────────────────────────
+(defn tmpl/render-file [path ctx]
+  (tmpl/render (file-read path) ctx))

package/lib/validate.fl

@@ -0,0 +1,136 @@
+;; ─────────────────────────────────────────────────────────────
+;; validate.fl — 입력 검증 라이브러리
+;; (load "lib/validate.fl")
+;;
+;; 사용:
+;;   (vld/check value {:required true :type "string" :min-length 2})
+;;   (vld/schema data {:name {:required true :type "string"}
+;;                      :age  {:type "number" :min 0 :max 120}})
+;; ─────────────────────────────────────────────────────────────
+
+;; ── 개별 규칙 검사 ─────────────────────────────────────────
+
+(defn vld/rule-required [v _opts]
+  (when (or (nil? v) (and (string? v) (str-blank? v)))
+    "필수 항목입니다"))
+
+(defn vld/rule-type [v opts]
+  (let [expected (get opts "type")]
+    (when (not (str-blank? expected))
+      (let [actual (type-of v)]
+        (when (not (= actual expected))
+          (str-format "타입 오류: %s 예상, %s 입력됨" [expected actual]))))))
+
+(defn vld/rule-min-length [v opts]
+  (let [min (get opts "min-length")]
+    (when (and (not (nil? min)) (string? v))
+      (when (< (length v) min)
+        (str-format "최소 %d자 이상이어야 합니다" [min])))))
+
+(defn vld/rule-max-length [v opts]
+  (let [max (get opts "max-length")]
+    (when (and (not (nil? max)) (string? v))
+      (when (> (length v) max)
+        (str-format "최대 %d자 이하이어야 합니다" [max])))))
+
+(defn vld/rule-min [v opts]
+  (let [min (get opts "min")]
+    (when (and (not (nil? min)) (number? v))
+      (when (< v min)
+        (str-format "최솟값은 %s입니다" [(str min)])))))
+
+(defn vld/rule-max [v opts]
+  (let [max (get opts "max")]
+    (when (and (not (nil? max)) (number? v))
+      (when (> v max)
+        (str-format "최댓값은 %s입니다" [(str max)])))))
+
+(defn vld/rule-email [v opts]
+  (when (get opts "email")
+    (when (and (string? v) (not (str-blank? v)))
+      (when (not (and (str-contains v "@")
+                      (str-contains v ".")
+                      (> (length v) 5)))
+        "올바른 이메일 형식이 아닙니다"))))
+
+(defn vld/rule-url [v opts]
+  (when (get opts "url")
+    (when (and (string? v) (not (str-blank? v)))
+      (when (not (or (str-starts-with v "http://")
+                     (str-starts-with v "https://")))
+        "올바른 URL 형식이 아닙니다 (http:// 또는 https://로 시작)"))))
+
+(defn vld/rule-in [v opts]
+  (let [allowed (get opts "in")]
+    (when (and (not (nil? allowed)) (not (nil? v)))
+      (when (not (includes-item allowed v))
+        (str-format "허용값: %s" [(str-join (map str allowed) ", ")])))))
+
+(defn vld/rule-pattern [v opts]
+  (let [pat (get opts "pattern")]
+    (when (and (not (str-blank? pat)) (string? v))
+      (when (not (re-match pat v))
+        (?? (get opts "pattern-msg") "형식이 올바르지 않습니다")))))
+
+;; ── 단일 값 검사 ────────────────────────────────────────────
+
+(defn vld/check [value opts]
+  ;; nil이고 required가 없으면 검증 생략 (PATCH/PUT 부분 업데이트 지원)
+  (if (and (nil? value) (not (get opts "required")))
+    {:ok true}
+    (let [checkers [vld/rule-required
+                    vld/rule-type
+                    vld/rule-min-length
+                    vld/rule-max-length
+                    vld/rule-min
+                    vld/rule-max
+                    vld/rule-email
+                    vld/rule-url
+                    vld/rule-in
+                    vld/rule-pattern]
+          errors (filter (fn [e] (not (nil? e)))
+                   (map (fn [chk] (chk value opts)) checkers))]
+      (if (empty? errors)
+        {:ok true}
+        {:ok false :errors errors}))))
+
+;; ── 스키마 검사 ─────────────────────────────────────────────
+
+(defn vld/schema [data schema]
+  (let [field-results
+        (map (fn [field]
+               (let [field-rules (get schema field)
+                     value       (get data field)
+                     result      (vld/check value field-rules)]
+                 (if (get result "ok")
+                   nil
+                   {:field field :errors (get result "errors")})))
+             (keys schema))
+        failures (filter (fn [fr] (not (nil? fr))) field-results)]
+    (if (empty? failures)
+      {:ok true}
+      {:ok false
+       :errors (reduce (fn [acc f]
+                         (assoc acc (get f "field") (get f "errors")))
+                       {}
+                       failures)})))
+
+;; ── 편의 함수 ───────────────────────────────────────────────
+
+(defn vld/ok? [result] (get result "ok"))
+
+(defn vld/errors [result] (get result "errors"))
+
+(defn vld/assert [result msg]
+  (when (not (vld/ok? result))
+    (error msg)))
+
+(defn vld/error-str [result]
+  (let [errs (vld/errors result)]
+    (if (map? errs)
+      (str-join
+        (map (fn [field]
+               (str field ": " (str-join (get errs field) ", ")))
+             (keys errs))
+        " | ")
+      (str-join errs ", "))))

package/package.json

@@ -0,0 +1,58 @@
+{
+  "name": "freelang-editor",
+  "version": "11.7.4",
+  "description": "FreeLang Editor — AI-Native Language with Built-in DevTools & WebSocket. [v11.7.4: Re-groups + snake_case alias + 1090 tests]",
+  "keywords": [
+    "ai",
+    "language",
+    "freelang",
+    "s-expression",
+    "ai-native",
+    "claude",
+    "agent"
+  ],
+  "author": "Claude Code (Anthropic)",
+  "license": "MIT",
+  "homepage": "https://gogs.dclub.kr/kim/freelang-v11",
+  "main": "dist/index.js",
+  "bin": {
+    "v9": "dist/cli.js"
+  },
+  "scripts": {
+    "build": "node scripts/build.js",
+    "watch": "node scripts/build.js --watch",
+    "docs:gen": "node scripts/gen-stdlib-docs.js",
+    "compile": "node --stack-size=8000 stage1.js",
+    "compile:self": "node --stack-size=8000 stage1.js self/all.fl stage1-new.js",
+    "verify:fixed-point": "bash scripts/verify-fixed-point-deep.sh",
+    "verify:build-deterministic": "bash scripts/verify-build-deterministic.sh",
+    "verify:self-host": "bash scripts/verify-self-host.sh tier2",
+    "test": "jest --config .config/jest.fast.config.js --passWithNoTests",
+    "test:fast": "jest --config .config/jest.fast.config.js --passWithNoTests",
+    "test:full": "jest --config .config/jest.config.js --passWithNoTests",
+    "test:watch": "jest --config .config/jest.fast.config.js --watch",
+    "test:coverage": "jest --config .config/jest.config.js --coverage",
+    "test:ci": "jest --config .config/jest.config.js --ci --coverage --maxWorkers=2",
+    "benchmark": "node scripts/benchmark.js",
+    "dev": "node bootstrap.js run app/page.fl",
+    "start": "node bootstrap.js serve app/",
+    "server": "node bootstrap.js serve app/",
+    "freelang": "node bootstrap.js run",
+    "fl": "node bootstrap.js run",
+    "repl": "node bootstrap.js repl"
+  },
+  "devDependencies": {
+    "@types/jest": "^29.5.14",
+    "@types/node": "^20.19.37",
+    "better-sqlite3": "^12.9.0",
+    "esbuild": "^0.21.5",
+    "jest": "^29.7.0",
+    "mongodb": "^7.2.0",
+    "mysql2": "^3.22.3",
+    "sharp": "^0.34.5",
+    "ts-jest": "^29.4.6",
+    "ts-node": "^10.9.0",
+    "typescript": "^5.3.0"
+  },
+  "dependencies": {}
+}