URL
https://opencores.org/ocsvn/bluespec-h264/bluespec-h264/trunk
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
| Rev 18 |
Rev 28 |
| Line 16... |
Line 16... |
foreach(@h264files)
|
foreach(@h264files)
|
{
|
{
|
chomp($_);
|
chomp($_);
|
|
|
print $_;
|
print $_;
|
|
print " ";
|
`cp ./h264/$_ input.264`;
|
`cp ./h264/$_ input.264`;
|
system("wc input.264 | awk \'{printf(\"%08x\\n%08x\\n%08x\\n%08x\\n\", \$3, \$3, \$3, \$3)}\' > input_size.hex");
|
system("wc input.264 | awk \'{printf(\"%08x\\n%08x\\n%08x\\n%08x\\n\", \$3, \$3, \$3, \$3)}\' > input_size.hex");
|
`perl hexfilegen.pl input.264`;
|
`perl hexfilegen.pl input.264`;
|
system("./a.out | grep \"OUT\" | awk \'{print \$2}\' > out.hex");
|
system("./a.out | grep \"OUT\" | awk \'{print \$2}\' > out.hex");
|
`perl dehex.pl out.hex out_hw.yuv`;
|
`perl dehex.pl out.hex out_hw.yuv`;
|
`./decoder/bin/ldecod.exe -i input.264 -o out_gold.yuv`;
|
`./decoder/bin/ldecod.exe -i input.264 -o out_gold.yuv`;
|
$out=`diff -q out_gold.yuv out_hw.yuv`;
|
$out=`diff -q out_gold.yuv out_hw.yuv`;
|
print $out;
|
print $out;
|
|
print "\n";
|
}
|
}
|
|
|
|
|
No newline at end of file
|
No newline at end of file
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.