# HG changeset patch # User Shabe Razvi # Date 1273581594 -3600 # Node ID dfa3d8557c6101165951cbdc7ad88446bd2e3cc1 # Parent 08436a2279400d1fbd6b9a0112da1c3e0c91a047 Update uh_parser to understand sftools/dev packages diff -r 08436a227940 -r dfa3d8557c61 uh_parser/RaptorError.pm --- a/uh_parser/RaptorError.pm Tue May 11 11:31:22 2010 +0100 +++ b/uh_parser/RaptorError.pm Tue May 11 13:39:54 2010 +0100 @@ -193,7 +193,7 @@ my $package = ''; # if bldinf attribute is not available then heuristically attempt to determine the package if (!$raptor_error_info->{bldinf} && - $characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s) + $characters =~ m,.*?([/\\]sf|sftools[/\\](os|mw|app|tools|ostools|adaptation|dev)[/\\][a-zA-Z]+[/\\]?),s) { $raptor_error_info->{bldinf} = "$1... (guessed)"; } @@ -207,7 +207,7 @@ $raptor_error_info->{bldinf} =~ s,^[A-Za-z]:,,; $raptor_error_info->{bldinf} =~ s,[\\],/,g; - if ($raptor_error_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) + if ($raptor_error_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),) { $package = $1; $package =~ s,/,_,; diff -r 08436a227940 -r dfa3d8557c61 uh_parser/RaptorRecipe.pm --- a/uh_parser/RaptorRecipe.pm Tue May 11 11:31:22 2010 +0100 +++ b/uh_parser/RaptorRecipe.pm Tue May 11 13:39:54 2010 +0100 @@ -256,7 +256,7 @@ $recipe_info->{bldinf} =~ s,[\\],/,g; my $package = ''; - if ($recipe_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) + if ($recipe_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),) { $package = $1; $package =~ s,/,_,; diff -r 08436a227940 -r dfa3d8557c61 uh_parser/RaptorUnreciped.pm --- a/uh_parser/RaptorUnreciped.pm Tue May 11 11:31:22 2010 +0100 +++ b/uh_parser/RaptorUnreciped.pm Tue May 11 13:39:54 2010 +0100 @@ -169,7 +169,7 @@ my $package = ''; my $guessed_bldinf = ''; # if bldinf attribute is not available then heuristically attempt to determine the package - if ($line =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s) + if ($line =~ m,.*?([/\\]sf|sftools[/\\](os|mw|app|tools|ostools|adaptation|dev)[/\\][a-zA-Z]+[/\\]?),s) { $guessed_bldinf = "$1... (guessed)"; } @@ -183,7 +183,7 @@ $guessed_bldinf =~ s,^[A-Za-z]:,,; $guessed_bldinf =~ s,[\\],/,g; - if ($guessed_bldinf =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) + if ($guessed_bldinf =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),) { $package = $1; $package =~ s,/,_,; diff -r 08436a227940 -r dfa3d8557c61 uh_parser/RaptorWarning.pm --- a/uh_parser/RaptorWarning.pm Tue May 11 11:31:22 2010 +0100 +++ b/uh_parser/RaptorWarning.pm Tue May 11 13:39:54 2010 +0100 @@ -123,7 +123,7 @@ my $package = ''; # if bldinf attribute is not available then heuristically attempt to determine the package if (!$raptor_warning_info->{bldinf} && - $characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][a-zA-Z]+[/\\]?),s) + $characters =~ m,.*?([/\\]sf|sftools[/\\](os|mw|app|tools|ostools|adaptation|dev)[/\\][a-zA-Z]+[/\\]?),s) { $raptor_warning_info->{bldinf} = "$1... (guessed)"; } @@ -137,7 +137,7 @@ $raptor_warning_info->{bldinf} =~ s,^[A-Za-z]:,,; $raptor_warning_info->{bldinf} =~ s,[\\],/,g; - if ($raptor_warning_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[a-zA-Z]+),) + if ($raptor_warning_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation|dev)/[a-zA-Z]+),) { $package = $1; $package =~ s,/,_,; diff -r 08436a227940 -r dfa3d8557c61 uh_parser/releaseables.pm --- a/uh_parser/releaseables.pm Tue May 11 11:31:22 2010 +0100 +++ b/uh_parser/releaseables.pm Tue May 11 13:39:54 2010 +0100 @@ -225,7 +225,7 @@ $normalized =~ s,^[A-Za-z]:,,; $normalized =~ s,[\\],/,g; - $normalized =~ m,^/sf/([^/]+)/([^/]+)/,; + $normalized =~ m,^/sf|sftools/([^/]+)/([^/]+)/,; my $layer = $1; my $package = $2; diff -r 08436a227940 -r dfa3d8557c61 uh_parser/uh.pl --- a/uh_parser/uh.pl Tue May 11 11:31:22 2010 +0100 +++ b/uh_parser/uh.pl Tue May 11 13:39:54 2010 +0100 @@ -174,7 +174,7 @@ } if ($failure->{component}) { - if ($failure->{component} =~ m,/((os|mw|app|tools|ostools|adaptation|unknown)/[a-zA-Z]+),) + if ($failure->{component} =~ m,/((os|mw|app|tools|ostools|adaptation|unknown|dev)/[a-zA-Z]+),) { $failure_package = $1; } @@ -502,7 +502,7 @@ $bldinf =~ s,[\\],/,g; my $package = ''; - if ($bldinf =~ m,/((os|mw|app|tools|ostools|adaptation|unknown)/[a-zA-Z]+),) + if ($bldinf =~ m,/((os|mw|app|tools|ostools|adaptation|unknown|dev)/[a-zA-Z]+),) { $package = $1; }