#!/usr/bin/perl
#This small perl script is to help in processing the 
#CAVS 3.3 test tool's vst .req files
#use is
# vsttest < reqfile > rspfile

#COUNT = 158
#b = 160
#XKey = fffffffffffffffffffffffffffffffffffffffe
#XSeed = 0000000000000000000000000000000000000000

while( <> ) {
	$done = 0;
	if( /XKey = ([0-9a-f]+)$/ ) {
		$xkey=$1;
		chomp $xkey;
	} elsif( /\[Xorg - SHA1\]$/ ) {
		print;
		$G = "SHA";
	} elsif( /\[Xorg - DES\]$/ ) {
		print;
		$G = "DES";
	} elsif( /b = ([0-9]+)$/ ) {
	} elsif( /XSeed = ([0-9a-f]+)$/ ) {
		$xseed=$1;
		chomp $xseed;
		$done = 1;
	} else {
		print;
	}

	if($done == 1) {
		system(( "./test186", $G, $xkey, $xseed));
	}
}

