32 $buildlog_recipe_status->{next_status} = {};

    35 $buildlog_recipe_status->{next_status} = {status=>$buildlog_recipe_status_status};

    38 my $recipe_info = {};

    51 

    39 

    52 my $CATEGORY_RECIPEFAILURE = 'recipe_failure';

    40 my $category = $RaptorCommon::CATEGORY_RAPTORRECIPE;

    53 my $CATEGORY_RECIPEFAILURE_ARMCC_CANNOTOPENSOURCEINPUTFILE = 'armcc_cannot_open_source_input_file';

    54 my $CATEGORY_RECIPEFAILURE_ARMLINK_COULDNOTOPENFILE = 'armlink_could_not_open_file';

    55 my $CATEGORY_RECIPEFAILURE_ELF2E32_COULDNOTOPENFILE = 'elf2e32_could_not_open_file';

    44 	my ($text) = @_;

    59 	my ($text, $component, $phase, $recipe, $file, $line) = @_;

    45 	

    60 	

    46 	my $severity = $RaptorCommon::SEVERITY_UNKNOWN;

    61 	my $category = $CATEGORY_RECIPEFAILURE;

    47 	

    62 	my $severity = '';

    48 	if ($text =~ m,Cannot process schema version .* of file,)

    63 	my $subcategory = '';

    49 	{

    64 	

    50 		$severity = $RaptorCommon::SEVERITY_CRITICAL;

    65 	if ($text =~ m,Error:  #5: cannot open source input file .*: No such file or directory,)

    51 		

    66 	{

    52 		#dump_recipe($category, $severity, $text);

    67 		$severity = $RaptorCommon::SEVERITY_MAJOR;

    53 		print "$category, $severity, $text\n";

    68 		my $subcategory = $CATEGORY_RECIPEFAILURE_ARMCC_CANNOTOPENSOURCEINPUTFILE;

    54 	}

    69 		RaptorCommon::dump_fault($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line);

    70 	}

    71 	elsif ($text =~ m,Fatal error: L6002U: Could not open file .*: No such file or directory,)

    72 	{

    73 		$severity = $RaptorCommon::SEVERITY_MAJOR;

    74 		my $subcategory = $CATEGORY_RECIPEFAILURE_ARMLINK_COULDNOTOPENFILE;

    75 		RaptorCommon::dump_fault($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line);

    76 	}

    77 	elsif ($text =~ m,elf2e32 : Error: E1001: Could not open file : .*.,)

    78 	{

    79 		$severity = $RaptorCommon::SEVERITY_MAJOR;

    80 		my $subcategory = $CATEGORY_RECIPEFAILURE_ELF2E32_COULDNOTOPENFILE;

    81 		RaptorCommon::dump_fault($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line);

    82 	}

    83 	else # log everything by default

    84 	{

    85 		RaptorCommon::dump_fault($category, $subcategory, $severity, $component, $phase, $recipe, $file, $line);

    86 	}

    87 }

    88 

    89 sub on_start_buildlog

    90 {

    91 	#print FILE "line,layer,component,name,armlicence,platform,phase,code,bldinf,mmp,target,source,\n";

    92 	

    93 	RaptorCommon::init();

    70 		if ($attributes->{$_}->{'LocalName'} eq 'bldinf')

   107 		$recipe_info->{$attributes->{$_}->{'LocalName'}} = $attributes->{$_}->{'Value'};

    71 		{

   108 		#print "$_ -> $attributes->{$_}->{'Value'}\n";

    72 			$bldinf = $attributes->{$_}->{'Value'};

   109 	}

    73 		}

    74 		

    75 		$attrstring .= "$attributes->{$_}->{'LocalName'}}='$attributes->{$_}->{'Value'}' ";

    76 		

    77 	}

    78 	

    79 	if ($bldinf eq '')

    80 	{

    81 		print "WARNING: recipe tag with no bldinf attribute. Associating to package unknown/unknown\n";

    82 		$bldinf = "/sf/unknown/unknown/group/bld.inf";

    83 	}

    84 	

    85 	$recipe_info->{bldinf} = $bldinf;

    86 	

    87 	$characters = "<recipe $attrstring>\n";

   103 	#print "on_end_buildlog_recipe\n";

   147 	if ($recipe_info->{exit} =~ /failed/)

   104 	

   148 	{

   105 	$characters .= "\n</recipe>\n";

   149 		# normalize bldinf path

   106 	

   150 		$recipe_info->{bldinf} = lc($recipe_info->{bldinf});

   107 	my $normalized = lc($recipe_info->{bldinf});

   151 		$recipe_info->{bldinf} =~ s,^[A-Za-z]:,,;

   108 	$normalized =~ s,^[A-Za-z]:,,;

   152 		$recipe_info->{bldinf} =~ s,[\\],/,g;

   109 	$normalized =~ s,[\\],/,g;

   153 		

   110 	

   154 		my $package = '';

   111 	$normalized =~ m,^/sf/([^/]+)/([^/]+)/,;

   155 		if ($recipe_info->{bldinf} =~ m,/((os|mw|app|tools|ostools|adaptation)/[^/]*),)

   112 	my $layer = $1;

   156 		{

   113 	my $package = $2;

   157 			$package = $1;

   114 	

   158 			$package =~ s,/,_,;

   115 	mkdir("$::basedir/recipes");

   159 		}

   116 	mkdir("$::basedir/recipes/$layer");

   160 		else

   117 	mkdir("$::basedir/recipes/$layer/$package");

   161 		{

   118 	

   162 			print "WARNING: can't understand bldinf attribute of recipe: $recipe_info->{bldinf}. Won't dump to failed recipes file.\n";

   119 	my $filename = "$::basedir/recipes/$layer/$package/recipes.txt";

   163 		}

   120 	

   164 		

   121 	print "Writing recipes file $filename\n" if (!-f$filename);

   165 		$characters =~ s,^[\r\n]*,,;

   122 	open(FILE, ">>$filename");

   166 		$characters =~ s,[\r\n]*$,,;

   123 	print FILE $characters;

   167 		

   124 	close(FILE);

   168 		if ($package)

   169 		{

   170 			$filename = "$::basedir/$package.txt";

   171 			if (!-f$filename)

   172 			{

   173 				print "Writing recipe file $filename\n";

   174 				open(FILE, ">$filename");

   175 				close(FILE);

   176 			}

   177 			

   178 			if ($failure_item == 0 and -f "$filename")

   179 			{

   180 				open(FILE, "$filename");

   181 				{

   182 					local $/ = undef;

   183 					my $filecontent = <FILE>;

   184 					$failure_item = $1 if ($filecontent =~ m/.*---failure_item_(\d+)/s);

   185 				}

   186 				close(FILE);

   187 			}

   188 			

   189 			$failure_item++;

   190 			

   191 			open(FILE, ">>$filename");

   192 			print FILE "---failure_item_$failure_item\---\n";

   193 			print FILE "$characters\n\n";

   194 			close(FILE);

   195 		}

   196 		

   197 		process($characters, $recipe_info->{bldinf}, $recipe_info->{phase}, $recipe_info->{name}, "$package.txt", $failure_item);

   198 	}

   199 

   200 	$characters = '';

   201 }

   202 

   203 sub on_end_buildlog

   204 {