RE: [Hecl-devel] Greetings

[David <dav...@ak...>]

David
 I have pulled down top of tree from CVS. There are a few things
different but I think I have it all working now.

 There seems to be something slightly odd about the source command. When
you change the file its using it doesn't show up the first time you resource
the file. You have to run source twice to get it to work.

 Here for posterity is my first Hecl program. :-) It interfaces with a java
module I wrote that simulates a keyboard.


#
# Read events from simulated keyboard using [phone key] command
#
proc ReadKeys {} {
    puts "Reading keyboard. Press 1 key to exit"
    phone reset

    while {= 1 1} {
        set k [phone key]                       ;# Read keyboard
        if {ne $k ""} {                         ;# Print if event found
            puts "Key command $k received"
            }
        if {eq $k "1"} {                        ;# If key 1 event then exit
            puts "Exiting"
            break
            }
        }
    }


ReadKeys


A small point. The while command doesn't like the common tcl idiom while {1}
I had to write while {= 1 1} I am not sure if its that important.




David



> -----Original Message-----
> From: hec...@li...
> [mailto:hec...@li...]On Behalf Of David N.
> Welton
> Sent: 13 August 2005 12:33
> To: hec...@li...
> Subject: Re: [Hecl-devel] Greetings
>
>
> David wrote:
>
> >  Also in a similar vein "global var1 var2 var3" would be nice. Perhaps I
> > use too many global variables but it would be a way to keep the scripts
> > shorter.
>
> Added that one too in CVS.
>
> --
> David N. Welton
> - http://www.dedasys.com/davidw/
>
> Apache, Linux, Tcl Consulting
> - http://www.dedasys.com/
>
>
> -------------------------------------------------------
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle
> Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> _______________________________________________
> Hecl-devel mailing list
> Hec...@li...
> https://lists.sourceforge.net/lists/listinfo/hecl-devel
>