1#!/bin/sh 2# the next line restarts using tclsh \ 3exec tclsh "$0" "$@" 4 5# Edit the path below to reflect installed Hamlib extension 6lappend ::auto_path @tcldir@ 7 8## Brute force loading 9#load "@tcldir@/hamlibtcl.so" Hamlib 10 11## Preferred package loading 12package require hamlib 13 14set tclver [info tclversion] 15puts "Tcl $tclver test, $hamlib_version\n" 16 17#rig_set_debug $RIG_DEBUG_TRACE 18rig_set_debug $RIG_DEBUG_NONE 19 20# Init RIG_MODEL_DUMMY 21Rig my_rig $RIG_MODEL_DUMMY 22 23my_rig open 24my_rig set_freq $RIG_VFO_A 145550000 25 26puts "status:\t\t[my_rig cget -error_status]" 27 28# get_mode returns a tuple 29set moderes [my_rig get_mode] 30set mode [rig_strrmode [lindex $moderes 0]] 31puts "mode:\t\t$mode\nbandwidth:\t[lindex $moderes 1]Hz" 32 33set state [my_rig cget -state] 34 35# The following works well also 36 37set rigcaps [my_rig cget -caps] 38#set model [$rigcaps cget -model_name] 39puts "Model:\t\t[$rigcaps cget -model_name]" 40puts "Manufacturer:\t\t[$rigcaps cget -mfg_name]" 41puts "Backend version:\t[$rigcaps cget -version]" 42puts "Backend license:\t[$rigcaps cget -copyright]" 43puts "Attenuators:\t[$rigcaps cget -attenuator]" 44 45puts "getinfo:\t[my_rig get_info]" 46 47my_rig set_level "VOXDELAY" 1 48puts "status:\t\t[my_rig cget -error_status]" 49puts "VOX delay:\t[my_rig get_level_i 'VOXDELAY']" 50puts "status:\t\t[my_rig cget -error_status]" 51my_rig set_level $RIG_LEVEL_VOXDELAY 5 52puts "status:\t\t[my_rig cget -error_status]" 53puts "VOX delay:\t[my_rig get_level_i $RIG_LEVEL_VOXDELAY]" 54puts "status:\t\t[my_rig cget -error_status]" 55 56puts "strength:\t[my_rig get_level_i $RIG_LEVEL_STRENGTH]" 57puts "status:\t\t[my_rig cget -error_status]" 58puts "status(str):\t[rigerror [my_rig cget -error_status]]" 59 60puts "\nSending Morse, '73'" 61my_rig send_morse $RIG_VFO_A "73" 62 63my_rig close 64#my_rig cleanup 65 66 67exit 0 68