@calcit/procs 0.12.44 → 0.12.45

package/build.rs

@@ -23,6 +23,8 @@ pub struct CodeEntry {
   pub doc: String,
   #[serde(default)]
   pub examples: Vec<Cirru>,
+  #[serde(default)]
+  pub tags: Vec<String>,
   pub code: Cirru,
   #[serde(default)]
   pub schema: Option<Edn>,
@@ -261,6 +263,32 @@ fn validate_schema_edn_no_legacy_quotes(value: &Edn, owner: &str) -> Result<(),
   walk(value, owner, &mut path)
 }
 
+fn parse_tags_from_edn(value: &Edn, owner: &str) -> Result<Vec<String>, String> {
+  match value {
+    Edn::Set(set) => {
+      let mut tags = Vec::with_capacity(set.0.len());
+      for item in &set.0 {
+        match item {
+          Edn::Tag(tag) => tags.push(format!(":{}", tag.ref_str())),
+          other => {
+            return Err(format!(
+              "{owner}: CodeEntry.tags expects tag items, got {}",
+              format_edn_preview(other)
+            ));
+          }
+        }
+      }
+      tags.sort();
+      tags.dedup();
+      Ok(tags)
+    }
+    other => Err(format!(
+      "{owner}: CodeEntry.tags expects a hashset, got {}",
+      format_edn_preview(other)
+    )),
+  }
+}
+
 fn parse_code_entry(edn: Edn, owner: &str) -> Result<CodeEntry, String> {
   let record: EdnRecordView = match edn {
     Edn::Record(r) => r,
@@ -268,12 +296,14 @@ fn parse_code_entry(edn: Edn, owner: &str) -> Result<CodeEntry, String> {
   };
   let mut doc = String::new();
   let mut examples: Vec<Cirru> = vec![];
+  let mut tags: Vec<String> = Vec::new();
   let mut code: Option<Cirru> = None;
   let mut schema: Option<Edn> = None;
   for (key, value) in &record.pairs {
     match key.arc_str().as_ref() {
       "doc" => doc = from_edn(value.clone()).map_err(|e| format!("{owner}: invalid `:doc`: {e}"))?,
       "examples" => examples = from_edn(value.clone()).map_err(|e| format!("{owner}: invalid `:examples`: {e}"))?,
+      "tags" => tags = parse_tags_from_edn(value, owner)?,
       "code" => code = Some(from_edn(value.clone()).map_err(|e| format!("{owner}: invalid `:code`: {e}"))?),
       "schema" => {
         if !matches!(value, Edn::Nil) {
@@ -286,6 +316,7 @@ fn parse_code_entry(edn: Edn, owner: &str) -> Result<CodeEntry, String> {
   Ok(CodeEntry {
     doc,
     examples,
+    tags,
     code: code.ok_or_else(|| format!("{owner}: missing `:code` field in CodeEntry"))?,
     schema,
   })

package/editing-history/2026-0610-1200-get-def-doc-schema-builtin.md

@@ -0,0 +1,7 @@
+# &get-def-doc / &get-def-schema
+
+- 新增 `&get-def-doc`、`&get-def-schema` 内置函数，参数为 `ns/def` 字符串或 symbol。
+- Rust/eval 运行时通过 `program::lookup_def_doc` / `lookup_def_schema` 读取已加载定义的 `:doc` 与 `:schema`。
+- `snapshot::schema_annotation_to_edn` 统一 schema 转 EDN。
+- calcit-js 标记为 unavailable，不生成 def-meta 注册表，避免 js-out 膨胀。
+- 测试：`calcit/test-def-meta.cirru`，仅在 `inside-eval:` 下运行。

package/lib/calcit.procs.mjs

@@ -2147,5 +2147,7 @@ export let gensym = unavailableProc;
 export let macroexpand = unavailableProc;
 export let macroexpand_all = unavailableProc;
 export let _$n_get_calcit_running_mode = unavailableProc;
+export let _$n_get_def_doc = unavailableProc;
+export let _$n_get_def_schema = unavailableProc;
 // already handled in code emitter
 export let raise = unavailableProc;

package/lib/package.json

@@ -1,6 +1,6 @@
 {
     "name": "@calcit/procs",
-    "version": "0.12.44",
+    "version": "0.12.45",
     "main": "./lib/calcit.procs.mjs",
     "devDependencies": {
         "@types/node": "^25.7.0",

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@calcit/procs",
-  "version": "0.12.44",
+  "version": "0.12.45",
   "main": "./lib/calcit.procs.mjs",
   "devDependencies": {
     "@types/node": "^25.7.0",

package/ts-src/calcit.procs.mts

@@ -2278,6 +2278,8 @@ export let gensym = unavailableProc;
 export let macroexpand = unavailableProc;
 export let macroexpand_all = unavailableProc;
 export let _$n_get_calcit_running_mode = unavailableProc;
+export let _$n_get_def_doc = unavailableProc;
+export let _$n_get_def_schema = unavailableProc;
 
 // already handled in code emitter
 export let raise = unavailableProc;