Add token-based PEG frontend and CLI source parsing

crates/cli/src/README.md

@@ -1,7 +1,7 @@
 # CLI 入口
 
-[main.rs](main.rs) 是唯一入口：同步 main 将 run 的结果转成进程退出码；run 处理 bootstrap、help、文件 metadata put/get/import，错误打印到 stderr 并返回失败。
+[main.rs](main.rs) 是唯一入口：同步 main 将 run 的结果转成进程退出码；run 处理 bootstrap、parse 文件、help、文件 metadata put/get/import，错误打印到 stderr 并返回失败。
 
-bootstrap 创建并显式释放两个对象，不读取数据库环境、不打开数据库。未知命令报错；metadata 通过 host::MetadataStore 读写文件，import 从标准输入接收旧记录且不覆盖已有文件。参数目前由 std::env::args 读取，非 Unicode 参数可能 panic，边界见 [配置](../../../docs/operations/configuration.md)。
+bootstrap 创建并显式释放两个对象，不读取数据库环境、不打开数据库。parse 使用 frontend 输出 AST，词法／语法错误显示文件、行、列；不创建 VM 或执行源码。未知命令报错；metadata 通过 host::MetadataStore 读写文件，import 从标准输入接收旧记录且不覆盖已有文件。参数目前由 std::env::args 读取，非 Unicode 参数可能 panic，边界见 [配置](../../../docs/operations/configuration.md)。
 
 新增命令时更新用法、[运行指南](../../../docs/operations/README.md) 和 [smoke.py 的导航](../../../scripts/README.md)。返回 [cli](../README.md)。

crates/cli/src/main.rs

@@ -4,7 +4,7 @@ use std::process::ExitCode;
 use endor_core::{Value, Vm};
 use host::MetadataStore;
 
-const USAGE: &str = "Usage: cli [bootstrap | metadata put <key> <value> | metadata get <key> | metadata import | help]";
+const USAGE: &str = "Usage: cli [bootstrap | parse <file> | metadata put <key> <value> | metadata get <key> | metadata import | help]";
 
 fn main() -> ExitCode {
     match run() {
@@ -45,6 +45,18 @@ fn run() -> Result<(), Box<dyn Error>> {
             println!("bootstrap uses no database");
         }
         ["help"] | ["--help"] | ["-h"] => println!("{USAGE}"),
+        ["parse", path] => {
+            let source =
+                std::fs::read_to_string(path).map_err(|error| format!("{path}: {error}"))?;
+            let program = frontend::parse(&source).map_err(|error| {
+                let location = error.location(&source);
+                format!(
+                    "{path}:{}:{}: {}",
+                    location.line, location.column, error.message
+                )
+            })?;
+            println!("{program:#?}");
+        }
         ["metadata", "put", key, value] => {
             MetadataStore::from_env()?.put(key, value)?;
             println!("stored (file)");