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

Hexdump mode. Also add presets for mesh/openbecon

This commit is contained in:
Stefan `Sec` Zehl 2011-12-28 12:50:31 +01:00
parent b9ee9293aa
commit a3ceaa1e46
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tools/mesh/dbg.pl
View File

@ -43,6 +43,7 @@ if($cmd =~ /^r/){
my $rr="";
if (@fh = $sel->can_read(100)) {
sysread($fh[0],$rr,1024);
$rr=~s/\\\\/\\/g;
$read.=$rr;
}
};
@ -65,6 +66,8 @@ if($cmd =~ /^r/){
print "HOP=",unpack("n",substr($str,11,4))," ";
};
# print "\n";
}elsif($fmt eq "x"){
print "<",unpack("H*",$str),">";
}else{
print "Read: <"; sprint $str; print ">\n";
};
@ -74,6 +77,16 @@ if($cmd =~ /^r/){
};
print "rest: <"; sprint $read; print ">\n";
exit;
}elsif ($cmd eq "pM"){
syswrite(SER, '\3ORBIT\0');
syswrite(SER, '\4ORBIT\0');
syswrite(SER, '\5S\0');
syswrite(SER, '\6'.pack("H*","20").'\0');
}elsif ($cmd eq "pB"){
syswrite(SER, '\3'.pack("H*","0102030201").'\0');
syswrite(SER, '\4'.pack("H*","0102030201").'\0');
syswrite(SER, '\5Q\0');
syswrite(SER, '\6'.pack("H*","10").'\0');
}elsif ($cmd eq "mt"){
my $par=pack("H*",shift);
print "Write: <"; sprint $par; print ">\n";