mirror of
https://github.com/Hamlib/Hamlib.git
synced 2024-09-22 02:47:21 +00:00
49d2124a03
Due to the changes of the patch contributed by Ervin Hegedüs, correct the bindings test scripts to work with the corrected ordering of VFO and frequency arguments. Also add a call to send_morse() in each script.
62 lines
1.5 KiB
Tcl
Executable File
62 lines
1.5 KiB
Tcl
Executable File
#!/bin/sh
|
|
# the next line restarts using tclsh \
|
|
exec tclsh "$0" "$@"
|
|
|
|
# Edit the path below to reflect installed Hamlib extension
|
|
lappend ::auto_path /usr/local/lib/tcl/Hamlib
|
|
|
|
## Brute force loading
|
|
#load "/usr/local/lib/tcltk/Hamlib/hamlibtcl.so" Hamlib
|
|
|
|
## Preferred package loading
|
|
package require hamlib
|
|
|
|
set tclver [info tclversion]
|
|
puts "Tcl $tclver test, $hamlib_version\n"
|
|
|
|
#rig_set_debug $RIG_DEBUG_TRACE
|
|
rig_set_debug $RIG_DEBUG_NONE
|
|
|
|
# Init RIG_MODEL_DUMMY
|
|
Rig my_rig $RIG_MODEL_DUMMY
|
|
|
|
my_rig open
|
|
my_rig set_freq $RIG_VFO_A 145550000
|
|
|
|
puts "status:\t\t[my_rig cget -error_status]"
|
|
|
|
# get_mode returns a tuple
|
|
set moderes [my_rig get_mode]
|
|
set mode [rig_strrmode [lindex $moderes 0]]
|
|
puts "mode:\t\t$mode\nbandwidth:\t[lindex $moderes 1]Hz"
|
|
|
|
set state [my_rig cget -state]
|
|
puts "ITU_region:\t[$state cget -itu_region]"
|
|
|
|
# The following works well also
|
|
# puts ITU_region:[[my_rig cget -state] cget -itu_region]
|
|
|
|
puts "getinfo:\t[my_rig get_info]"
|
|
|
|
my_rig set_level "VOX" 1
|
|
puts "status:\t\t[my_rig cget -error_status]"
|
|
puts "VOX level:\t[my_rig get_level_i 'VOX']"
|
|
puts "status:\t\t[my_rig cget -error_status]"
|
|
my_rig set_level $RIG_LEVEL_VOX 5
|
|
puts "status:\t\t[my_rig cget -error_status]"
|
|
puts "VOX level:\t[my_rig get_level_i $RIG_LEVEL_VOX]"
|
|
puts "status:\t\t[my_rig cget -error_status]"
|
|
|
|
puts "strength:\t[my_rig get_level_i $RIG_LEVEL_STRENGTH]"
|
|
puts "status:\t\t[my_rig cget -error_status]"
|
|
puts "status(str):\t[rigerror [my_rig cget -error_status]]"
|
|
|
|
puts "\nSending Morse, '73'"
|
|
my_rig send_morse $RIG_VFO_A "73"
|
|
|
|
my_rig close
|
|
#my_rig cleanup
|
|
|
|
|
|
exit 0
|