Hamlib/tcl/tcltest.tcl
Stéphane Fillod, F8CFE 64e8aa524a display returned value
git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@896 7ae35d74-ebe9-4afe-98af-79ac388436b8
2002-01-22 01:03:46 +00:00

20 lines
321 B
Tcl
Executable File

#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"
load "../tcl/.libs/libhamlibtcl.so" Hamlib
#load "./hamlibtcl.so" Hamlib
puts [rig version]\n
# Init RIG_MODEL_DUMMY
set my_rig [rig init 1]
$my_rig open
$my_rig set_freq 145550000
puts [$my_rig get_strength]
$my_rig close
$my_rig cleanup
exit 0