proc readMouse {raw} {
                binary scan [string range $raw 12 13] s pos

                if {[string index $raw 10] == "\x01"} {
                        #up/down
                        set ::pointery [expr {int($::screenh * ($pos / 1024.00))}]
                } else {
                        #left/right
                        set ::pointerx [expr {int($::screenw * ($pos / 1024.00))}]
                }

                TkXext.move.pointer $::pointerx  $::pointery
        }

        proc readKey {raw} {
                binary scan [string index $raw 10] c key
                incr key -32
                if {[string index $raw 12] == "\x01"} {
                        #key pressed
                        TkXext.send.string [string index $::keymap $key]
                }
        }

        proc processEvent {fh} {
                if {[catch {set raw [read $fh 16]}]} {
                        fileevent $fh readable {}
                        catch {close $fh}
                        after 5000 detectUnit
                        return
                }
                if {[string index $raw 8] == "\x01"} {readKey $raw}
                if {[string index $raw 8] == "\x03"} {readMouse $raw}
        }

        proc detectUnit {} {
                set fh [open /proc/bus/input/devices r]
                set deviceinfo [read $fh]
                close $fh

                set found 0
                foreach line [split $deviceinfo \n] {
                        if {$found} {
                                if {[string first "Handlers" $line] == -1} {continue}
                                break
                        }
                        if {[string first "Saitek Pro Gamer Command Unit" $line] == -1} {continue}
                        set found 1
                }

                set device [file join /dev/input/[lindex [split [string trim $line] =]        1]]

                if {$found} {
                        set evfh [open $device RDONLY]
                        fconfigure $evfh -translation binary
                        fileevent $evfh readable  "processEvent $evfh"
                } else {
                        after 5000 detectUnit
                }
        }

        proc main {} {
                package require Tk
                load [file join $::starkit::topdir TkXext.so]
                wm geometry . 0x0+0+0
                wm overrideredirect . 1
                set ::keymap "qwertyuiopasdfghjklzxcvbnm,./"
                set ::screenh [winfo screenheight .]
                set ::screenw [winfo screenwidth .]
                set ::pointerx 512
                set ::pointery 512
                after 100 detectUnit
        }

        main

  tclkit saitekdriver.bin

• Home
• Recent changes
• Help
• WhoAmI/Logout
• Create new page
• Random page
• Previous page
• Next page
• 
  
• Add comments
• Edit
• History
• Edit summary
• References