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

Use new Config for Generator

Browse Source
This commit is contained in:
Aoran Zeng 2025-07-16 17:54:03 +08:00
parent e0988351eb
commit ff14468b14
No known key found for this signature in database
GPG Key ID: 8F8BA8488E10ED98
1 changed files with 41 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

92
tool/rawstr4c/lib/Generator.rakumod
View File

@ -13,6 +13,7 @@
unit module Generator; unit module Generator;
use Parser; use Parser;
use Config;
use Version; use Version;
my class CStringConverter { my class CStringConverter {
@ -53,41 +54,38 @@ my class CStringConverter {
} }
#| 配置管理器，负责处理层次化配置的继承逻辑
class ConfigManager {
#| 从当前 section 开始，向上遍历父节点查找配置项
method get-inherited-config($section, $key, $default = '') {
my $current = $section;
while $current {
if $current.config && $current.config.exist($key) {
return $current.config.get($key);
}
$current = $current.parent;
}
# 如果都没找到，使用 section 的 config 来获取默认值
return $section.config.get($key, $default);
}
}
my class CVariableNameGenerator { my class CVariableNameGenerator {
method generate($section, $section-config, $title) { method generate($section) {
# 检查 name-literally (并不层次化) my $config = Config::SectionConfig.new($section);
my $name-literally = $section-config.get('name-literally');
if $name-literally.is-bool() && $name-literally.as-bool() { my $prefix = $config.prefix.string-value;
return $section-config.get('name', $title.lc).as-string(); my $language = $config.language.string-value;
my $postfix;
my $config-postfix = $config.postfix;
if $config-postfix.is-mode() && $config-postfix.mode-value() eq 'use-language' {
$postfix = $language ?? 'in_' ~ $language !! '';
} else {
# 如果不是模式，那就是用户给了一个具体的字符串
$postfix = $config-postfix.string-value();
} }
# 从层次化配置中获取值，使用 ConfigManager 类方法 my $keep-prefix = $config.keep-prefix.bool-value;
my $prefix = ConfigManager.get-inherited-config($section, 'prefix', '_rawstr4c').as-string(); my $keep-postfix = $config.keep-postfix.bool-value;
my $language = $section-config.get('language').as-string();
my $postfix = self.resolve-postfix($section, $language); my $config-name = $config.name;
my $keep-prefix = ConfigManager.get-inherited-config($section, 'keep-prefix', 'true').as-bool(); my $name;
my $keep-postfix = ConfigManager.get-inherited-config($section, 'keep-postfix', 'true').as-bool();
if $config-name.is-nil() {
$name = $section.title.lc
} else {
$name = $config-name.string-value;
}
my $name = $section-config.get('name', $title.lc).as-string();
# 替换非法字符 # 替换非法字符
$name = $name.subst(/<-[a..z A..Z 0..9 _]>/, '_', :g); $name = $name.subst(/<-[a..z A..Z 0..9 _]>/, '_', :g);
# 合并连续的下划线 # 合并连续的下划线
@ -105,16 +103,6 @@ my class CVariableNameGenerator {
return $varname || "unnamed_var"; return $varname || "unnamed_var";
} }
method resolve-postfix($section, $language) {
my $postfix = ConfigManager.get-inherited-config($section, 'postfix', ':use-language');
if $postfix.is-mode() && $postfix.as-mode() eq 'use-language' {
return $language ?? 'in_' ~ $language !! '';
}
# 如果不是模式，那就是用户给了一个具体的字符串
return $postfix.as-string();
}
} }
@ -229,33 +217,34 @@ class Generator {
method generate-for-section($section) { method generate-for-section($section) {
my $section-config = $section.config; my $configblock = $section.configblock;
my $title = $section.title; my $title = $section.title;
my $code = $section.codeblock; my $rawstr = $section.codeblock;
my $debug-parser = ConfigManager.get-inherited-config($section, 'debug', 'false').as-bool();
return unless $code; my $config = Config::SectionConfig.new($section);
my $translate-mode = ConfigManager.get-inherited-config($section, 'translate', 'escape').as-mode(); my $debug-config = $config.debug.bool-value;
my $varname = $.varname-generator.generate($section, $section-config, $title); return unless $rawstr;
my $output-mode = ConfigManager.get-inherited-config($section, 'output', 'terminal').as-mode(); my $translate-mode = $config.translate-mode.mode-value;
my $output-mode = $config.output-mode.mode-value;
my $language = $config.language.string-value;
my $prefix = $config.prefix.string-value;
if $debug-parser { my $varname = $.varname-generator.generate($section);
if $debug-config {
say "--- Section: $title ---"; say "--- Section: $title ---";
say "Variable name = $varname"; say "Variable name = $varname";
say "Translation mode = $translate-mode"; say "Translation mode = $translate-mode";
say "Output mode = $output-mode"; say "Output mode = $output-mode";
my $language = $section-config.get('language', 'None').as-string();
my $prefix = ConfigManager.get-inherited-config($section, 'prefix', '_rawstr4c').as-string();
say "Language = $language"; say "Language = $language";
say "Prefix = $prefix (inherited from hierarchy)"; say "Prefix = $prefix (inherited from hierarchy)";
say ''; say '';
} }
my $c-string = $.string-converter.convert-string($code, $translate-mode); my $c-string = $.string-converter.convert-string($rawstr, $translate-mode);
given $output-mode { given $output-mode {
when 'terminal' { when 'terminal' {
@ -278,6 +267,7 @@ class Generator {
method generate() { method generate() {
my $root-section = $.parser.root-section; my $root-section = $.parser.root-section;
my $config = Config::SectionConfig.new($root-section);
# 获取所有需要处理的 sections：包括 root section 和所有子 sections # 获取所有需要处理的 sections：包括 root section 和所有子 sections
my @all-sections = ($root-section, |$root-section.get-all-descendants()); my @all-sections = ($root-section, |$root-section.get-all-descendants());
@ -287,7 +277,7 @@ class Generator {
self.generate-for-section($section); self.generate-for-section($section);
} }
my $output-mode = ConfigManager.get-inherited-config($root-section, 'output', 'terminal').as-mode(); my $output-mode = $config.output-mode.mode-value;
# 最后把累计到 @variables 的内容输出到文件 # 最后把累计到 @variables 的内容输出到文件
if $output-mode ne 'terminal' { if $output-mode ne 'terminal' {