require 'serialport'
def init_system
- sleep 1
- $sp.print("echo off \r")
- print("DBG i: " + "echo off \r"+"\n") if $debug
+# sleep 1
+ $sp.print("exit\r")
+ sleep 0.5
+ $sp.print("exit\r")
+ sleep 0.5
+ $sp.print("echo off \r")
+ print("DBG i: " + "echo off \r"+"\n") if $debug
# line = $sp.readlines()
# print("DBG 0.0: ")
# print(line)
-# sleep 1
- $sp.print("shavs_set #{$algo_select} \r")
- print("DBG i: " + "shavs_set #{$algo_select} \r"+"\n") if $debug
+ sleep 1
+ $sp.print("shavs_set #{$algo_select}\r")
+ print("DBG i: " + "shavs_set #{$algo_select} \r"+"\n") # if $debug
# line = $sp.readlines()
# print("DBG 0.1: ")
# print(line)
-# sleep 1
+ sleep 1
$sp.print("shavs_test1 \r")
print("DBG i: " + "shavs_test1 \r"+"\n") if $debug
# line = $sp.readlines()
begin
line = $sp.gets()
line = "" if line==nil
- puts("DBG g: "+line) if $debug
+ puts("DBG got: "+line) if $debug && line!=""
end while not /[\s]*MD[\s]*=.*/.match(line)
return line
end
def send_md(md_string)
+ sleep(0.15)
for i in 0..md_string.length-1
$sp.print(md_string[i].chr)
# print("DBG s: "+ md_string[i].chr) if $debug
- if(i%20==19)
- sleep(0.1)
+ if(i%5==4)
+ sleep(0.15)
end
end
end
b.upcase!
printf("\n%4d (%4d): ", line, (line-1)*$linewidth) if (pos%$linewidth==0 and $linewidth!=0)
line += 1 if (pos%$linewidth==0 and $linewidth!=0)
+ sleep(1)
#putc((a==b)?'*':'!')
if(a==b)
putc('*')
else
putc('!')
- printf("\nshould: %s\ngot: %s\n",lb,avr_md)
+# printf("\nshould: %s\ngot: %s\n",lb,avr_md)
nerrors += 1
end
pos += 1