improve output format to include required XML boilerplate
This commit is contained in:
parent
73170bfc53
commit
88fb3c5ac9
|
@ -208,7 +208,9 @@ while (<>) {
|
||||||
($group_key,$group_file,$group_name) = split (/\s+/, $_, 3);
|
($group_key,$group_file,$group_name) = split (/\s+/, $_, 3);
|
||||||
if ($make_accelmap && $ardour_bindings) {
|
if ($make_accelmap && $ardour_bindings) {
|
||||||
if (!exists ($group_handles{$group_file})) {
|
if (!exists ($group_handles{$group_file})) {
|
||||||
open $group_handles{$group_file}, ">", "gtk2_ardour/" . $group_file . ".bindings" or die "Cannot open bindings file " . $group_file . ".bindings: $!"
|
|
||||||
|
open $group_handles{$group_file}, ">", "gtk2_ardour/" . $group_file . ".bindings" or die "Cannot open bindings file " . $group_file . ".bindings: $!";
|
||||||
|
print { $group_handles{$group_file} } "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n <Bindings name=\"ardour-", $group_file , "\">\n <Press>\n";
|
||||||
}
|
}
|
||||||
$group_files{$group_key} = $group_handles{$group_file}
|
$group_files{$group_key} = $group_handles{$group_file}
|
||||||
}
|
}
|
||||||
|
@ -281,7 +283,7 @@ while (<>) {
|
||||||
$b =~ s/LEVEL4/Level4-/;
|
$b =~ s/LEVEL4/Level4-/;
|
||||||
|
|
||||||
if (exists ($group_files{$gkey})) {
|
if (exists ($group_files{$gkey})) {
|
||||||
print { $group_files{$gkey} } "<Binding key=\"" . $b . "\" action=\"" . $action . "\"/>\n";
|
print { $group_files{$gkey} } " <Binding key=\"" . $b . "\" action=\"" . $action . "\"/>\n";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -302,6 +304,7 @@ while (<>) {
|
||||||
}
|
}
|
||||||
|
|
||||||
foreach my $key (keys %group_handles) {
|
foreach my $key (keys %group_handles) {
|
||||||
|
print { $group_handles{$key} } " </Press>\n <Release>\n </Release>\n</Bindings>\n";
|
||||||
close $group_handles{$key} or die "Group file $group_files{$key} not closed!"
|
close $group_handles{$key} or die "Group file $group_files{$key} not closed!"
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user