kopia lustrzana https://github.com/Hamlib/Hamlib
22 wiersze
347 B
Tcl
Executable File
22 wiersze
347 B
Tcl
Executable File
#!/bin/sh
|
|
# the next line restarts using tclsh \
|
|
exec tclsh "$0" "$@"
|
|
|
|
load ".libs/hamlibtcl.so" Hamlib
|
|
|
|
puts $hamlib_version\n
|
|
|
|
# Init RIG_MODEL_DUMMY
|
|
Rig my_rig $RIG_MODEL_DUMMY
|
|
|
|
my_rig open
|
|
my_rig set_freq 145550000
|
|
|
|
# note: get_level may not be implemented yet!
|
|
puts [my_rig get_level $RIG_LEVEL_STRENGTH]
|
|
my_rig close
|
|
my_rig cleanup
|
|
|
|
|
|
exit 0
|