Xml.free gives back a parsed tree's records and lists (never its strings) and the parser's cursor is freed; ludic.ui frees a template's XML once built, sel_parse's and ex_parse's readers, lss_rule's declarations holder, and px_cmp no longer makes a list of its operators per call

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>

packages/ludic.ui/class.ludic

@@ -40,7 +40,9 @@ function uc_load(ui_st: mut UiState, k: UiClass) -> void {
   if k.lss != "" { lss_text(ui_st, f, k.lss) }
   f.sheet = sheet_of(f)
   tp_lines(ui_st, k.xml)
-  let root = tpl_read(ui_st, Xml.parse(k.xml), k.xml_path)
+  let doc = Xml.parse(k.xml)
+  let root = tpl_read(ui_st, doc, k.xml_path)
+  Xml.free(doc)                        # the template keeps the tree's strings, never its nodes
   k.sheet = f.sheet
   lib_link(ui_st, f, root)
   k.root = root

packages/ludic.ui/expr_parse.ludic

@@ -48,10 +48,13 @@ function px_bin(op: string, a: UiExpr, b: UiExpr) -> UiExpr {
 }
 function px_cmp(r: UiRd) -> UiExpr {
   let a = px_sum(r)
-  let ops = ["==", "!=", "<=", ">=", "<", ">"]
-  for k in 0 .. len(ops) {
-    if rd_op(r, ops[k]) { return px_bin(ops[k], a, px_sum(r)) }
-  }
+  # literals, longest first: a list of them was made on every call
+  if rd_op(r, "==") { return px_bin("==", a, px_sum(r)) }
+  if rd_op(r, "!=") { return px_bin("!=", a, px_sum(r)) }
+  if rd_op(r, "<=") { return px_bin("<=", a, px_sum(r)) }
+  if rd_op(r, ">=") { return px_bin(">=", a, px_sum(r)) }
+  if rd_op(r, "<") { return px_bin("<", a, px_sum(r)) }
+  if rd_op(r, ">") { return px_bin(">", a, px_sum(r)) }
   return a
 }
 function px_sum(r: UiRd) -> UiExpr {

packages/ludic.ui/expr_prim.ludic

@@ -62,6 +62,7 @@ function ex_parse(src: string, err: []string) -> UiExpr {
   rd_ws(r)
   if r.err == "" and r.i < len(r.s) { rd_fail(r, "the end") }
   if r.err != "" { push(err, r.err) }
+  unsafe { free(r) }                   # the reader only: what the expression keeps is copied out
   return e
 }
 # text with {holes}: a literal when it has none, the expression itself when it is one hole and

packages/ludic.ui/lib.ludic

@@ -39,7 +39,9 @@ function lib_read(ui_st: mut UiState, src: string, path: string) -> UiFile {
   let f = lib_new(ui_st, path)
   f.src = src
   tp_lines(ui_st, src)
-  let root = tpl_read(ui_st, Xml.parse(src), path)
+  let doc = Xml.parse(src)
+  let root = tpl_read(ui_st, doc, path)
+  Xml.free(doc)                        # the template keeps the tree's strings, never its nodes
   var tops = root.kids
   if root.tag != "ui" { tops = [root] }
   for i in 0 .. len(tops) { lib_top(ui_st, f, tops[i]) }

packages/ludic.ui/select.ludic

@@ -51,6 +51,8 @@ function sel_parse(src: string, err: []string) -> UiSel {
     comb = 0
   }
   if r.err != "" { push(err, r.err) }
+  unsafe { free(r) }                   # the reader only: every name read from it is a copy
+  @alloc_ok("only when a template is wrong: a broken screen, never a working one")
   if cur == null { push(err, `"{src}" selects nothing`) }
   return cur
 }

packages/ludic.ui/style_rule.ludic

@@ -10,7 +10,10 @@ function lss_rule(f: UiFile, sels: string, body: string, err: []string) -> void
       free(each[i])
     }
   }
-  unsafe { free(each) }
+  unsafe {
+    free(each)
+    free(decls)                        # the holder only: each rule keeps its keys and values lists
+  }
 }
 function lss_rule_add(f: UiFile, decls: UiRule, sel: string, err: []string) -> void {
   let r = new UiRule