study/chsrc
1
0
Fork 0
mirror of https://github.com/RubyMetric/chsrc synced 2025-07-21 23:59:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

Rename to ConfigBlock

Browse Source
This commit is contained in:
Aoran Zeng 2025-07-16 12:19:05 +08:00
parent 2387b4e9f8
commit 286843b40b
No known key found for this signature in database
GPG Key ID: 8F8BA8488E10ED98
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
tool/rawstr4c/lib/Parser.rakumod
View File

@ -75,7 +75,7 @@ my class ConfigItem's-Value {
#| 包含所有 config items 的容器 #| 包含所有 config items 的容器
my class Config { my class ConfigBlock {
has %!items; has %!items;
@ -104,16 +104,18 @@ my class Config {
#| 表示一个 section #| 表示一个 section
my class Section { my class Section {
has Str $.title; has Str $.title;
has Int $.level; has Int $.level;
has Config $.config; has ConfigBlock $.configblock;
has Str $.codeblock is rw; has Str $.codeblock is rw;
has Section $.parent is rw; has Section $.parent is rw;
has Section @.children; has Section @.children;
method new($title, $level, $config = Config.new(), Section $parent?) { method new($title, $level) {
self.bless(:$title, :level($level), :config($config), :$parent, :children([])); my $configblock = ConfigBlock.new();
# parent 和 codeblock 刻意不初始化
self.bless(:$title, :$level, :$configblock, :children([]));
} }
method add-child($child-section) { method add-child($child-section) {
@ -196,8 +198,7 @@ class Parser {
# 无论有没有具体的 root 信息 (比如所处理的文件第一行就是标题)， # 无论有没有具体的 root 信息 (比如所处理的文件第一行就是标题)，
# 都创建一个 root section (level 0) # 都创建一个 root section (level 0)
my $root-config = Config.new(); $current-section = Section.new("", 0);
$current-section = Section.new("", 0, $root-config);
@!sections.push: $current-section; @!sections.push: $current-section;
# 开始遍历 # 开始遍历
@ -215,7 +216,7 @@ class Parser {
# 准备创建一个新的 section # 准备创建一个新的 section
$rawstr = ""; $rawstr = "";
my $new-section = Section.new($title, $level, Config.new()); my $new-section = Section.new($title, $level);
@!sections.push: $new-section; @!sections.push: $new-section;
# 找到合适的父节点 # 找到合适的父节点
@ -230,7 +231,7 @@ class Parser {
} }
# Step2: 处理配置项 (如果该行不是配置项则下一行) # Step2: 处理配置项 (如果该行不是配置项则下一行)
if self.parse-config-item-line($line, $current-section.config) { if self.parse-config-item-line($line, $current-section.configblock) {
next; next;
} }
@ -241,8 +242,8 @@ class Parser {
} else { } else {
$in-codeblock = True; $in-codeblock = True;
my $lang = ~($0 // ''); my $lang = ~($0 // '');
if $lang && $current-section && !$current-section.config.exist('language') { if $lang && $current-section && !$current-section.configblock.exist('language') {
$current-section.config.set('language', $lang); $current-section.configblock.set('language', $lang);
} }
} }
next; next;
@ -277,7 +278,7 @@ class Parser {
say "====== sections ======"; say "====== sections ======";
for @!sections.kv -> $i, $section { for @!sections.kv -> $i, $section {
my $title = $section.title || "(Root)"; my $title = $section.title || "(Root)";
my $has-config = $section.config.keys ?? "有配置" !! "无配置"; my $has-config = $section.configblock.keys ?? "有配置" !! "无配置";
my $has-code = $section.codeblock ?? "有代码" !! "无代码"; my $has-code = $section.codeblock ?? "有代码" !! "无代码";
say " [$i] Level {$section.level}: $title - $has-config, $has-code"; say " [$i] Level {$section.level}: $title - $has-config, $has-code";
} }