"SG" == Sven Geggus wrote:
SG> Serg Oskin <[EMAIL PROTECTED]> wrote:
>> Try now.
SG> [EMAIL PROTECTED]:./sven> tclsh
SG> tclsh8.4 [~]package require ow
SG> 0.1
SG> looks fine so far, I will now try to communicate with some 1-wire devices.
SG> BTW, besides from the manpage, is there some sample tcl-code for using
SG> owtcl?
Hmm.. Example:
package require ow
::OW::init /dev/ttyS0 localhost:3000 -fahrenheit
foreach device [::OW::get /] {
puts $device
}
puts [::OW::get 12.000000000000/PIO.A]
::OW::put 12.000000000000/PIO.A 1
Later higher level will be realized. Example:
package require ow
set owfs [ow /dev/ttS0 localhost:3000 -format {f.i}]
foreach device [$owfs -get /] {
puts $device
}
puts [$owfs 12.000000000000/PIO.A -get]
set light [$owfs 12.000000000000]
puts [$light PIO.A -get]
set lightdriver [$light PIO.A]
$lightdriver -set 1
>> What at you OS?
SG> Debian GNU/Linux Sarge with distribution-supplied version of tcl/tk and
SG> libusb.
In RH & FC for linking owtcl it is enough to specify "-low" as libow.so it has
already been connected with libusb.so. But in Debian it is necessary to
specify "-low -lusb" ... I shall try to find out in what a difference...
--
Serg (http://oskin.ru/)
~
~
:q!
-------------------------------------------------------
This SF.Net email is sponsored by Oracle Space Sweepstakes
Want to be the first software developer in space?
Enter now for the Oracle Space Sweepstakes!
http://ads.osdn.com/?ad_id=7412&alloc_id=16344&op=click
_______________________________________________
Owfs-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/owfs-developers
