mirror of
https://github.com/oliverschmidt/contiki.git
synced 2024-09-09 23:54:32 +00:00
this version of mc1322x can flash code with flasher.
This commit is contained in:
parent
311b2f49c4
commit
6fbc97a798
@ -45,20 +45,14 @@ $ob->read_const_time(1000); # 1 second per unfulfilled "read" call
|
||||
|
||||
my $s = 0;
|
||||
|
||||
SEND:
|
||||
do {
|
||||
while(1) {
|
||||
|
||||
my $c;
|
||||
my $count;
|
||||
my $ret = '';
|
||||
my $c; my $count; my $ret = ''; my $test='';
|
||||
|
||||
if($s == 1) { print "performing secondary send\n"; }
|
||||
|
||||
$ob->write(pack('C','0'));
|
||||
|
||||
my $ret = '';
|
||||
my $test;
|
||||
|
||||
if($s == 1) {
|
||||
$test = 'ready';
|
||||
} else {
|
||||
@ -73,6 +67,7 @@ my $s = 0;
|
||||
next;
|
||||
}
|
||||
$ret .= $c;
|
||||
print $ret . "\n";
|
||||
}
|
||||
print $ret . "\n";
|
||||
|
||||
@ -88,16 +83,25 @@ my $s = 0;
|
||||
|
||||
my $i = 1;
|
||||
while(read(FILE, $c, 1)) {
|
||||
print unpack('H',$c) . unpack('h',$c) if $verbose;
|
||||
$i++;
|
||||
usleep(50); # this is as fast is it can go...
|
||||
usleep(500) if ($s==1);
|
||||
$ob->write($c);
|
||||
# if($s==1) {
|
||||
# ($count, $c) = $ob->read(1);
|
||||
# print $c;
|
||||
# }
|
||||
}
|
||||
}
|
||||
|
||||
if(-e $second) {$s=1; $filename = $second; next SEND; }
|
||||
last if ($s==1);
|
||||
if((-e $second)) {
|
||||
$s=1; $filename = $second;
|
||||
} else {
|
||||
last;
|
||||
}
|
||||
|
||||
};
|
||||
}
|
||||
|
||||
print "done.\n";
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user