fbb3d94f46
'+' as part of their name, which is illegal for shell variables (where the corresponding replacement character is 'X'). git-svn-id: file:///srv/svn/repos/haiku/haiku/trunk@34903 a95241bf-73f2-0310-859d-f6bbb57e9c96
24 lines
514 B
Perl
24 lines
514 B
Perl
#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
=head1 convert_build_config_to_shell_format
|
|
|
|
This simple script converts its standard input from the jam-specific format
|
|
that is being used in BuildSetup into a format that's understood by sh.
|
|
|
|
=cut
|
|
|
|
my $data;
|
|
while (my $line = <>) {
|
|
$data .= $line;
|
|
if ($data =~ m{\s*([+\w]+)\s*\?=\s*\"?([^;]*?)\"?\s*;}gms) {
|
|
my ($variable, $value) = ($1, $2);
|
|
$variable =~ tr{+}{X}; # '+' is illegal as part of shell variable
|
|
print "$variable='$value'\n";
|
|
$data = '';
|
|
}
|
|
}
|
|
|