tweak emitted code for preference metadata

This commit is contained in:
Paul Davis 2023-01-27 15:07:27 -07:00
parent 2d74669c7e
commit 89e897a84a
1 changed files with 11 additions and 2 deletions

View File

@ -6,16 +6,23 @@ $section = "";
$heading = "";
$accumulated = "";
print "
void
UIConfiguration::build_metadata ()
{
#define VAR_META(name,...) { char const * _x[] { __VA_ARGS__ }; all_metadata.insert (std::make_pair<std::string,Metadata> ((name), PBD::upcase (_x))); }\n\n";
while (<>) {
if (/\[SECTION:/) {
chop;
s/\[SECTION://;
s/\]//;
$section = $_;
print $section, "\n";
$in_section = 1;
$in_heading = 0;
$heading = "";
$accumulated = "";
next;
}
@ -29,7 +36,7 @@ while (<>) {
if ($accumulated ne "") {
@arr = split (/\s+/, $accumulated);
print "VAR_META (X_(\"$heading\"), ";
print "\tVAR_META (X_(\"$heading\"), ";
for my $word (@arr) {
if ($word ne "") {
print "_(\"$word\"), ";
@ -52,3 +59,5 @@ while (<>) {
$accumulated .= $_;
}
print "\n}\n";