Hamlib/bindings/tcltest.tcl

48 wiersze
1.1 KiB
Tcl
Czysty Zwykły widok Historia

#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"
load ".libs/hamlibtcl.so" Hamlib
puts $hamlib_version\n
rig_set_debug $RIG_DEBUG_TRACE
# Init RIG_MODEL_DUMMY
Rig my_rig $RIG_MODEL_DUMMY
my_rig open
my_rig set_freq 145550000
puts status:[my_rig cget -error_status]
set mode [my_rig get_mode]
puts "mode:[lindex $mode 0], bandwidth:[lindex $mode 1]Hz (0=normal)"
set state [my_rig cget -state]
puts ITU_region:[$state cget -itu_region]
# The following works well also
# puts ITU_region:[[my_rig cget -state] cget -itu_region]
puts getinfo:[my_rig get_info]
my_rig set_level "VOX" 1
puts status:[my_rig cget -error_status]
puts level:[my_rig get_level_i "VOX"]
puts status:[my_rig cget -error_status]
my_rig set_level $RIG_LEVEL_VOX 5
puts status:[my_rig cget -error_status]
puts level:[my_rig get_level_i $RIG_LEVEL_VOX]
puts status:[my_rig cget -error_status]
puts str:[my_rig get_level_i $RIG_LEVEL_STRENGTH]
puts status:[my_rig cget -error_status]
puts status(str):[rigerror [my_rig cget -error_status]]
my_rig close
#my_rig cleanup
exit 0