ctdo
/
crashtest-r0ket
16
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

make r0ket lib do wait_ok for config commands.

This commit is contained in:
Stefan `Sec` Zehl 2012-05-06 23:33:14 +02:00
parent 0fccf9dd26
commit 5b7e0a38ce
2 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tools/mesh/lib/r0ket.pm
View File

@ -346,30 +346,44 @@ sub send_pkt_num {
sub send_pkt { sub send_pkt {
send_pkt_num(shift,1); send_pkt_num(shift,1);
wait_ok(1);
}; };
sub set_txmac { sub set_txmac {
send_pkt_num(shift,3); send_pkt_num(shift,3);
wait_ok(1);
}; };
sub set_rxmac { sub set_rxmac {
send_pkt_num(shift,4); send_pkt_num(shift,4);
wait_ok(1);
}; };
sub set_channel { sub set_channel {
send_pkt_num(pack("C",shift),5); send_pkt_num(pack("C",shift),5);
wait_ok(1);
}; };
sub set_rxlen { sub set_rxlen {
$rxlen=$_[0]; $rxlen=$_[0];
send_pkt_num(pack("C",shift),6); send_pkt_num(pack("C",shift),6);
wait_ok(1);
}; };
sub get_id {
send_pkt_num("",7);
my $id=get_data(7);
wait_ok(1);
return $id;
};
sub wait_ok { sub wait_ok {
my ($type,$pkt); my ($type,$pkt);
($type,$pkt)=get_data(); while(1){
while($type ne "2"){
print "pkt[$type]=[",length($pkt),"]",(sprint $pkt),"\n";
($type,$pkt)=get_data(); ($type,$pkt)=get_data();
last if ($type == 2);
die "wait_ok ran into timeout!\n" if($type == 0);
print "wait_ok: pkt[$type]=[",length($pkt),"]",(sprint $pkt),"\n";
}; };
print "ok!\n"; print "ok!\n" unless ($quiet || $_[0]);
return 1; return 1;
}; };
1; 1;

4
tools/mesh/rf
View File

@ -169,13 +169,11 @@ if($cmd =~ /^r/){
}elsif ($set =~ /^len/){ }elsif ($set =~ /^len/){
r0ket::set_rxlen(shift); r0ket::set_rxlen(shift);
}elsif ($set =~ /^id/){ }elsif ($set =~ /^id/){
r0ket::send_pkt_num("",7); my $id=r0ket::get_id();
my $id=r0ket::get_data(7);
print "r0ket id: ",r0ket::hprint($id),"\n"; print "r0ket id: ",r0ket::hprint($id),"\n";
}else{ }else{
die "Unknown config argument $set\n"; die "Unknown config argument $set\n";
}; };
r0ket::wait_ok();
}elsif ($cmd =~ /^s/){ }elsif ($cmd =~ /^s/){
$cmd=~s/^//; $cmd=~s/^//;