From 24c4099dd738e18108c0598c667fb083fe4666f3 Mon Sep 17 00:00:00 2001
From: tron <tron>
Date: Sun, 28 Sep 2003 15:09:50 +0000
Subject: Fix GCC 3.3.1 related build problem.

---
 comms/pilot-link/distinfo         |    3 +-
 comms/pilot-link/patches/patch-ae | 1312 +++++++++++++++++++++++++++++++++++++
 2 files changed, 1314 insertions(+), 1 deletion(-)
 create mode 100644 comms/pilot-link/patches/patch-ae

(limited to 'comms/pilot-link')

diff --git a/comms/pilot-link/distinfo b/comms/pilot-link/distinfo
index 53e41b5b94e..a070b294bee 100644
--- a/comms/pilot-link/distinfo
+++ b/comms/pilot-link/distinfo
@@ -1,4 +1,4 @@
-$NetBSD: distinfo,v 1.12 2003/01/10 04:30:18 rh Exp $
+$NetBSD: distinfo,v 1.13 2003/09/28 15:09:50 tron Exp $
 
 SHA1 (pilot-link-0.11.7.tar.bz2) = f1ae56d3aad5d793f58fac4d3a51ca0c0f517262
 Size (pilot-link-0.11.7.tar.bz2) = 669470 bytes
@@ -6,3 +6,4 @@ SHA1 (patch-aa) = 87ea9401603bd55d62ac2fa17ad45ff16baeda4d
 SHA1 (patch-ab) = add1156600a681cc0ae30c5d9095b4f1bb6739c3
 SHA1 (patch-ac) = 1a5c5946a23850910849d3f58011b2e9086d7641
 SHA1 (patch-ad) = 91e0a72a0f2d313173024c9edacfa0b92fb33b3d
+SHA1 (patch-ae) = a7e84e6fc2b7414c63e4306da5df3cd840b2a6ca
diff --git a/comms/pilot-link/patches/patch-ae b/comms/pilot-link/patches/patch-ae
new file mode 100644
index 00000000000..daf152cfc42
--- /dev/null
+++ b/comms/pilot-link/patches/patch-ae
@@ -0,0 +1,1312 @@
+$NetBSD: patch-ae,v 1.4 2003/09/28 15:09:50 tron Exp $
+
+--- src/pilot-debug.c.orig	2002-12-02 15:32:47.000000000 +0100
++++ src/pilot-debug.c	2003-09-28 17:08:23.000000000 +0200
+@@ -1549,526 +1549,524 @@
+     return TCL_OK;
+   }
+ 
+-  Tcl_VarEval(interp,"\
+-
+-###  /*** Generate remote UI window ***/
+-
+-set tkdbg 1
+-
+-toplevel .remote
+-wm title .remote {Palm Remote UI}
+-
+-catch {
+-	if {[file exists {tools/pix/case.gif}]} {
+-		set dir {tools}
+-	} elseif {[file exists {",LIBDIR,"/pix/case.gif}]} {
+-		set dir {",LIBDIR,"/pix}
+-	} else {
+-		error {No pix}
+-	}
+-	image create photo Case -format gif -file \"$dir/pix/case.gif\"
+-	image create photo B1 -format gif -file \"$dir/pix/b1.gif\"
+-	image create photo B2 -format gif -file \"$dir/pix/b2.gif\"
+-	image create photo B3 -format gif -file \"$dir/pix/b3.gif\"
+-	image create photo B4 -format gif -file \"$dir/pix/b4.gif\"
+-	image create photo B5 -format gif -file \"$dir/pix/b5.gif\"
+-	image create photo B6 -format gif -file \"$dir/pix/b6.gif\"
+-	image create photo B7 -format gif -file \"$dir/pix/b7.gif\"
+-}
+-
+-canvas .remote.c -width 221 -height 337
+-
+-.remote.c create rectangle 27 29 196 260 -outline {red} -tag screen -fill {blue}
+-.remote.c create rectangle 0 280 18 306 -outline {red} -tag button1 -fill {blue}
+-.remote.c create oval 23 276 52 307 -outline {red} -tag button2 -fill {blue}
+-.remote.c create oval 63 276 92 307 -outline {red} -tag button3 -fill {blue}
+-.remote.c create rectangle 97 277 127 294 -outline {red} -tag button4 -fill {blue}
+-.remote.c create rectangle 97 300 127 317 -outline {red} -tag button5 -fill {blue}
+-.remote.c create oval 133 276 162 307 -outline {red} -tag button6 -fill {blue}
+-.remote.c create oval 171 276 200 307 -outline {red} -tag button7 -fill {blue}
+-
+-.remote.c create rectangle 33 32 187 253 -outline black -tag screen
+-.remote.c create rectangle 33 200 61 225 -outline black -tag screen
+-.remote.c create rectangle 33 225 61 253 -outline black -tag screen
+-.remote.c create rectangle 160 200 187 225 -outline black -tag screen
+-.remote.c create rectangle 160 225 187 253 -outline black -tag screen
+-.remote.c create rectangle 62 200 159 253 -outline black -tag screen
+-
+-set buttons(1) 0
+-
+-proc holdbutton {button} {
+-	global buttons
+-	if {$button==1} {
+-		set buttons($button) [after 1000 \"continuebutton $button\"]
+-	} else {
+-		pushbutton $button
+-		set buttons($button) [after 250 \"holdbutton $button\"]
+-	}
+-}
+-
+-proc continuebutton {button} {
+-	global buttons
+-	if {$button==1} {
+-		pushbutton 0
+-	}
+-	set buttons($button) \"\"
+-}
+-
+-proc releasebutton {button} {
+-	global buttons
+-	if {$buttons($button)!=\"\"} {
+-		if {$button==1} {
+-			pushbutton 1
+-		}
+-		after cancel $buttons($button)
+-		set buttons($button) \"\"
+-	}
+-}
+-
+-.remote.c bind button1 <ButtonPress-1> {.remote.c itemconfigure button1 -fill green; update; holdbutton 1}
+-.remote.c bind button1 <ButtonRelease-1> {.remote.c itemconfigure button1 -fill blue; releasebutton 1}
+-
+-.remote.c bind button2 <ButtonPress-1> {.remote.c itemconfigure button2 -fill green; update; holdbutton 2}
+-.remote.c bind button2 <ButtonRelease-1> {.remote.c itemconfigure button2 -fill blue; releasebutton 2}
+-
+-.remote.c bind button3 <ButtonPress-1> {.remote.c itemconfigure button3 -fill green; update; holdbutton 3}
+-.remote.c bind button3 <ButtonRelease-1> {.remote.c itemconfigure button3 -fill blue; releasebutton 3}
+-
+-.remote.c bind button4 <ButtonPress-1> {.remote.c itemconfigure button4 -fill green; update; holdbutton 4}
+-.remote.c bind button4 <ButtonRelease-1> {.remote.c itemconfigure button4 -fill blue; releasebutton 4}
+-
+-.remote.c bind button5 <ButtonPress-1> {.remote.c itemconfigure button5 -fill green; update; holdbutton 5}
+-.remote.c bind button5 <ButtonRelease-1> {.remote.c itemconfigure button5 -fill blue; releasebutton 5}
+-
+-.remote.c bind button6 <ButtonPress-1> {.remote.c itemconfigure button6 -fill green; update; holdbutton 6}
+-.remote.c bind button6 <ButtonRelease-1> {.remote.c itemconfigure button6 -fill blue; releasebutton 6}
+-
+-.remote.c bind button7 <ButtonPress-1> {.remote.c itemconfigure button7 -fill green; update; holdbutton 7}
+-.remote.c bind button7 <ButtonRelease-1> {.remote.c itemconfigure button7 -fill blue; releasebutton 7}
+-
+-catch {
+-	.remote.c create image 0 282 -image B1 -anchor nw -tag downbutton1
+-	.remote.c create image 22 274 -image B2 -anchor nw -tag downbutton2
+-	.remote.c create image 60 275 -image B3 -anchor nw -tag downbutton3
+-	.remote.c create image 93 278 -image B4 -anchor nw -tag downbutton4
+-	.remote.c create image 95 298 -image B5 -anchor nw -tag downbutton5
+-	.remote.c create image 131 275 -image B6 -anchor nw -tag downbutton6
+-	.remote.c create image 169 274 -image B7 -anchor nw -tag downbutton7
+-
+-	.remote.c create image 0 0 -image Case -anchor nw
+-
+-	.remote.c bind button1 <ButtonPress-1> {.remote.c raise downbutton1; update; holdbutton 1}
+-	.remote.c bind button1 <ButtonRelease-1> {.remote.c lower downbutton1; releasebutton 1}
+-
+-	.remote.c bind button2 <ButtonPress-1> {.remote.c raise downbutton2; update; holdbutton 2}
+-	.remote.c bind button2 <ButtonRelease-1> {.remote.c lower downbutton2; releasebutton 2}
+-
+-	.remote.c bind button3 <ButtonPress-1> {.remote.c raise downbutton3; update; holdbutton 3}
+-	.remote.c bind button3 <ButtonRelease-1> {.remote.c lower downbutton3; releasebutton 3}
+-
+-	.remote.c bind button4 <ButtonPress-1> {.remote.c raise downbutton4; update; holdbutton 4}
+-	.remote.c bind button4 <ButtonRelease-1> {.remote.c lower downbutton4; releasebutton 4}
+-
+-	.remote.c bind button5 <ButtonPress-1> {.remote.c raise downbutton5; update; holdbutton 5}
+-	.remote.c bind button5 <ButtonRelease-1> {.remote.c lower downbutton5; releasebutton 5}
+-
+-	.remote.c bind button6 <ButtonPress-1> {.remote.c raise downbutton6; update; holdbutton 6}
+-	.remote.c bind button6 <ButtonRelease-1> {.remote.c lower downbutton6; releasebutton 6}
+-
+-	.remote.c bind button7 <ButtonPress-1> {.remote.c raise downbutton7; update; holdbutton 7}
+-	.remote.c bind button7 <ButtonRelease-1> {.remote.c lower downbutton7; releasebutton 7}
+-	
+-	
+-	.remote.c itemconfigure button1 -outline {} -fill {}
+-	.remote.c raise button1
+-	.remote.c itemconfigure button2 -outline {} -fill {}
+-	.remote.c raise button2
+-	.remote.c itemconfigure button3 -outline {} -fill {}
+-	.remote.c raise button3
+-	.remote.c itemconfigure button4 -outline {} -fill {}
+-	.remote.c raise button4
+-	.remote.c itemconfigure button5 -outline {} -fill {}
+-	.remote.c raise button5
+-	.remote.c itemconfigure button6 -outline {} -fill {}
+-	.remote.c raise button6
+-	.remote.c itemconfigure button7 -outline {} -fill {}
+-	.remote.c raise button7
+-	.remote.c itemconfigure screen -outline {} -fill {}
+-	.remote.c raise screen
+-}
+-
+-pack .remote.c -side top
+-
+-.remote.c bind screen <ButtonPress-1> {pen %x %y 1}
+-.remote.c bind screen <B1-Motion> {pen %x %y 1}
+-.remote.c bind screen <ButtonRelease-1> {pen %x %y 0}
+-
+-global KeyQueue
+-global KeyQueueId
+-global KeyQueueDelay
+-set KeyQueue {}
+-set KeyQueueId {}
+-set KeyQueueDelay 50
+-
+-proc readyqueue {} {
+-    global KeyQueueId
+-    global KeyQueueDelay
+-    if {$KeyQueueId == {}} {
+-	after $KeyQueueDelay { set KeyQueueId [ after idle {sendqueue} ] }
+-    }
+-}
+-
+-proc queuekey {c} {
+-    global KeyQueue
+-    append KeyQueue $c
+-    readyqueue
+-}
+-
+-proc sendqueue {} {
+-    global KeyQueue
+-    global KeyQueueId
+-    if {[string length $KeyQueue] > 0} {
+-	key [string index $KeyQueue 0]
+-	set KeyQueue [string range $KeyQueue 1 end]
+-    }
+-    set KeyQueueId {}
+-    if {[string length $KeyQueue] > 0} { readyqueue }
+-}
+-
+-bind .remote <KeyPress> {queuekey %A}
+-
+-## Handle pasting
+-proc do_paste { } {
+-    if [catch {selection get} sel] {
+-	if [catch {selection get -selection CLIPBOARD} sel] {
+-	    return
+-	}
+-    }
+-    queuekey $sel
+-}
+-bind .remote <ButtonPress-2> {do_paste}
+-
+-#####  /*** Generate remote console window ***/
+-
+-toplevel .console
+-wm title .console \"Palm Remote Console\"
+-scrollbar .console.y -orient vertical -command {.console.t yview}
+-text .console.t -yscrollcommand {.console.y set}
+-pack .console.t -fill both -expand yes -side left
+-pack .console.y -fill y -side right
+-focus .console.t
+-
+-####  /*** Generate pilot state window ***/
+-
+-toplevel .state
+-wm title .state {Palm State}
+-label .state.l1 -text {Active mode:}
+-label .state.l1x -text {Battery:}
+-label .state.l2 -text {Exception:}
+-label .state.l25 -text {Reset:}
+-label .state.l3 -text {Function:}
+-label .state.l4 -text {F-start:}
+-label .state.l5 -text {F-end:}
+-label .state.l6 -text {D0:}
+-label .state.l7 -text {A0:}
+-label .state.l8 -text {D1:}
+-label .state.l9 -text {A1:}
+-label .state.l10 -text {D2:}
+-label .state.l11 -text {A2:}
+-label .state.l12 -text {D3:}
+-label .state.l13 -text {A3:}
+-label .state.l14 -text {D4:}
+-label .state.l15 -text {A4:}
+-label .state.l16 -text {D5:}
+-label .state.l17 -text {A5:}
+-label .state.l18 -text {D6:}
+-label .state.l19 -text {A6:}
+-label .state.l20 -text {D7:}
+-
+-label .state.l21 -text {PC:}
+-label .state.l22 -text {SR:}
+-label .state.l23 -text {USP:}
+-label .state.l24 -text {SSP:}
+-
+-label .state.halted -text {None}
+-label .state.battery -text {Unknown}
+-label .state.exception -text {0}
+-label .state.reset -text {No}
+-label .state.funcname -text {}
+-label .state.funcstart -text {00000000}
+-label .state.funcend -text {00000000}
+-label .state.d0 -text {00000000}
+-label .state.a0 -text {00000000}
+-label .state.d1 -text {00000000}
+-label .state.a1 -text {00000000}
+-label .state.d2 -text {00000000}
+-label .state.a2 -text {00000000}
+-label .state.d3 -text {00000000}
+-label .state.a3 -text {00000000}
+-label .state.d4 -text {00000000}
+-label .state.a4 -text {00000000}
+-label .state.d5 -text {00000000}
+-label .state.a5 -text {00000000}
+-label .state.d6 -text {00000000}
+-label .state.a6 -text {00000000}
+-label .state.d7 -text {00000000}
+-label .state.pc -text {00000000}
+-label .state.sr -text {0000}
+-label .state.usp -text {00000000}
+-label .state.ssp -text {00000000}
+-
+-grid .state.l1 -column 0 -row 0 -sticky e -columnspan 2
+-grid .state.halted -column 2 -row 0 -sticky w -columnspan 2
+-
+-grid .state.l1x -column 0 -row 1 -sticky e -columnspan 2
+-grid .state.battery -column 2 -row 1 -sticky w -columnspan 2
+-
+-grid .state.l2 -column 0 -row 2 -sticky e -columnspan 2
+-grid .state.exception -column 2 -row 2 -sticky w -columnspan 2
+-
+-grid .state.l25 -column 0 -row 3 -sticky e -columnspan 2
+-grid .state.reset -column 2 -row 3 -sticky w -columnspan 2
+-
+-grid .state.l3 -column 0 -row 4 -sticky e -columnspan 2 
+-grid .state.funcname -column 2 -row 4 -sticky w -columnspan 2
+-
+-grid .state.l4 -column 0 -row 5 -sticky e -columnspan 2 
+-grid .state.funcstart -column 2 -row 5 -sticky w -columnspan 2
+-
+-grid .state.l5 -column 0 -row 6 -sticky e -columnspan 2 
+-grid .state.funcend -column 2 -row 6 -sticky w -columnspan 2
+-
+-frame .state.rule1 -relief raised -bd 2 -height 4
+-grid .state.rule1 -column 0 -row 7 -columnspan 4 -sticky ew
+-
+-grid .state.l6 -column 0 -row 8 -sticky e 
+-grid .state.d0 -column 1 -row 8 -sticky w
+-grid .state.l7 -column 2 -row 8 -sticky e 
+-grid .state.a0 -column 3 -row 8 -sticky w
+-
+-grid .state.l8 -column 0 -row 9 -sticky e 
+-grid .state.d1 -column 1 -row 9 -sticky w
+-grid .state.l9 -column 2 -row 9 -sticky e 
+-grid .state.a1 -column 3 -row 9 -sticky w
+-
+-grid .state.l10 -column 0 -row 10 -sticky e 
+-grid .state.d2 -column 1 -row 10 -sticky w
+-grid .state.l11 -column 2 -row 10 -sticky e 
+-grid .state.a2 -column 3 -row 10 -sticky w
+-
+-grid .state.l12 -column 0 -row 11 -sticky e 
+-grid .state.d3 -column 1 -row 11 -sticky w
+-grid .state.l13 -column 2 -row 11 -sticky e 
+-grid .state.a3 -column 3 -row 11 -sticky w
+-
+-grid .state.l14 -column 0 -row 12 -sticky e 
+-grid .state.d4 -column 1 -row 12 -sticky w
+-grid .state.l15 -column 2 -row 12 -sticky e 
+-grid .state.a4 -column 3 -row 12 -sticky w
+-
+-grid .state.l16 -column 0 -row 13 -sticky e 
+-grid .state.d5 -column 1 -row 13 -sticky w
+-grid .state.l17 -column 2 -row 13 -sticky e 
+-grid .state.a5 -column 3 -row 13 -sticky w
+-
+-grid .state.l18 -column 0 -row 14 -sticky e 
+-grid .state.d6 -column 1 -row 14 -sticky w
+-grid .state.l19 -column 2 -row 14 -sticky e 
+-grid .state.a6 -column 3 -row 14 -sticky w
+-
+-grid .state.l20 -column 0 -row 15 -sticky e 
+-grid .state.d7 -column 1 -row 15 -sticky w
+-
+-grid .state.l21 -column 0 -row 16 -sticky e 
+-grid .state.pc -column 1 -row 16 -sticky w
+-grid .state.l22 -column 2 -row 16 -sticky e 
+-grid .state.sr -column 3 -row 16 -sticky w
+-
+-grid .state.l23 -column 0 -row 17 -sticky e 
+-grid .state.usp -column 1 -row 17 -sticky w
+-grid .state.l24 -column 2 -row 17 -sticky e 
+-grid .state.ssp -column 3 -row 17 -sticky w
+-
+-label .state.bl2 -text {B1:}
+-label .state.bl4 -text {B2:}
+-label .state.bl6 -text {B3:}
+-label .state.bl8 -text {B4:}
+-label .state.bl10 -text {B5:}
+-label .state.bl12 -text {B6:}
+-
+-label .state.b1 -text {00000000}
+-label .state.b1a -text {Off}
+-label .state.b2 -text {00000000}
+-label .state.b2a -text {Off}
+-label .state.b3 -text {00000000}
+-label .state.b3a -text {Off}
+-label .state.b4 -text {00000000}
+-label .state.b4a  -text {Off}
+-label .state.b5 -text {00000000}
+-label .state.b5a -text {Off}
+-label .state.b6 -text {00000000}
+-label .state.b6a -text {Off}
+-
+-frame .state.rule2 -relief raised -bd 2 -height 4
+-grid .state.rule2 -column 0 -row 18 -columnspan 4 -sticky ew
+-
+-grid .state.bl2 -column 0 -row 19 -sticky e
+-grid .state.b1 -column 1 -row 19 -sticky w
+-grid .state.b1a -column 2 -row 19 -sticky w 
+-
+-grid .state.bl4 -column 0 -row 20 -sticky e
+-grid .state.b2 -column 1 -row 20 -sticky w
+-grid .state.b2a -column 2 -row 20 -sticky w 
+-
+-grid .state.bl6 -column 0 -row 21 -sticky e
+-grid .state.b3 -column 1 -row 21 -sticky w
+-grid .state.b3a -column 2 -row 21 -sticky w 
+-
+-grid .state.bl8 -column 0 -row 22 -sticky e
+-grid .state.b4 -column 1 -row 22 -sticky w
+-grid .state.b4a -column 2 -row 22 -sticky w 
+-
+-grid .state.bl10 -column 0 -row 23 -sticky e
+-grid .state.b5 -column 1 -row 23 -sticky w
+-grid .state.b5a -column 2 -row 23 -sticky w 
+-
+-grid .state.bl12 -column 0 -row 24 -sticky e
+-grid .state.b6 -column 1 -row 24 -sticky w
+-grid .state.b6a -column 2 -row 24 -sticky w 
+-
+-###  /*** Generate debugger console window ***/
+-
+-wm title . \"Palm Debugger Console\"
+-catch {
+-	wm iconbitmap . {@pix/case.xbm}
+-	wm iconbitmap .remote {@pix/case.xbm}
+-	wm iconbitmap .console {@pix/case.xbm}
+-	wm iconbitmap .state {@pix/case.xbm}
+-	#wm iconmask . {@pix/casemask.xbm}
+-}
+-
+-frame .m -relief raised
+-frame .f
+-scrollbar .f.y -orient vertical -command {.f.t yview}
+-text .f.t -yscrollcommand {.f.y set} -wrap word
+-pack .f.t -fill both -expand yes -side left
+-pack .f.y -fill y -side right
+-pack [menubutton .m.file -text {File} -menu .m.file.m] -side left
+-#pack [menubutton .m.edit -text {Edit} -menu .m.edit.m] -side left
+-pack [menubutton .m.windows -text {Windows} -menu .m.windows.m] -side left
+-#pack [menubutton .m.help -text {display_help} -menu .m.help.m] -side right
+-
+-menu .m.file.m
+-menu .m.windows.m
+-#menu .m.edit.m
+-#menu .m.help.m
+-
+-#wm iconify .remote
+-#wm iconify .console
+-#wm iconify .state
+-
+-
+-proc ShowWindow {name1 name2 op} {
+-  global show
+-  if {$show($name2)} {
+-    if {[wm state $name2] != \"normal\"} {
+-      wm deiconify $name2
+-    }
+-  } else {
+-    if {[wm state $name2] == \"normal\"} {
+-      wm withdraw $name2
+-    }
+-  }
+-}
+-
+-
+-trace variable show w {ShowWindow}
+-
+-bind .remote <Unmap> { set show(.remote) 0 }
+-bind .console <Unmap> { set show(.console) 0 }
+-bind .state <Unmap> { set show(.state) 0 }
+-
+-bind .remote <Map> { set show(.remote) 1 }
+-bind .console <Map> { set show(.console) 1 }
+-bind .state <Map> { set show(.state) 1 }
+-
+-wm protocol .remote WM_DELETE_WINDOW { set show(.remote) 0 }
+-wm protocol .console WM_DELETE_WINDOW { set show(.console) 0 }
+-wm protocol .state WM_DELETE_WINDOW { set show(.state) 0 }
+-
+-set show(.remote) 0
+-set show(.console) 0
+-set show(.state) 0
+-
+-
+-.m.file.m add command -label {Exit} -command {exit}
+-
+-.m.windows.m add checkbutton -label {Remote UI} -var show(.remote)
+-.m.windows.m add checkbutton -label {Remote Console} -var show(.console)
+-.m.windows.m add checkbutton -label {Remote State} -var show(.state)
+-
+-pack .m -side top -fill x
+-pack .f -side top -fill both -expand yes
+-focus .f.t
+-
+-###  /*** Configure console bindings ***/
+-
+-bind .console.t <Shift-KeyPress-Return> {tkTextInsert .console.t \"\\n\" ; break}
+-bind .f.t <Shift-KeyPress-Return> {tkTextInsert .f.t \"\\n\" ; break}
+-
+-bind .console.t <Control-KeyPress-Return> {tkTextInsert .console.t \"\\n\" ; break}
+-bind .f.t <Control-KeyPress-Return> {tkTextInsert .f.t \"\\n\" ; break}
+-
+-bind .console.t <KeyPress-Return> {Console [.console.t get {insert linestart} {insert lineend}] ; break}
+-bind .f.t <KeyPress-Return> {
+-	set line [.f.t get {insert linestart} {insert lineend}]
+-	set f [string first \">\" $line]
+-	incr f
+-	set line [string range $line $f end]
+-	.f.t mark set insert {insert lineend}
+-	.f.t insert insert \\n
+-	Debugger $line
+-	if {[.f.t compare insert != {insert linestart}]} {
+-		.f.t insert insert \"\\n\"
+-	}
+-	.f.t insert insert \"pilot-debug> \"
+-	.f.t see insert
+-	break
+-}
+-
+-proc Console {cmd} {
+-	.console.t mark set insert {insert lineend}
+-	tkTextInsert .console.t \\n
+-	transmit $cmd
+-}
+-
+-proc Debugger {cmd} {
+-	#.f.t mark set insert {insert lineend}
+-	#tkTextInsert .f.t \\n
+-	if {[string length [string trim $cmd]]!=0} {
+-		set code [catch {eval $cmd} message]
+-		if {[string length $message]} {
+-			set message [string trimright $message]
+-			Say \"$message\\n\"
+-			#if {[.f.t compare insert != {insert linestart}]} {
+-			#	Say \"\\\n\"
+-			#}
+-		}
+-	}
+-}
+-
+-proc Say {text} {
+-	global Interactive
+-	if {$Interactive} {
+-	  .f.t insert insert \"$text\"
+-	  .f.t see insert
+-	} else {
+-	  upvar result result
+-	  set result \"$result$text\"
+-	}
+-}
+-
+-", NULL);
++  Tcl_VarEval(interp,
++"\n"
++"###  /*** Generate remote UI window ***/\n"
++"\n"
++"set tkdbg 1\n"
++"\n"
++"toplevel .remote\n"
++"wm title .remote {Palm Remote UI}\n"
++"\n"
++"catch {\n"
++"	if {[file exists {tools/pix/case.gif}]} {\n"
++"		set dir {tools}\n"
++"	} elseif {[file exists {",LIBDIR,"/pix/case.gif}]} {\n"
++"		set dir {",LIBDIR,"/pix}\n"
++"	} else {\n"
++"		error {No pix}\n"
++"	}\n"
++"	image create photo Case -format gif -file \"$dir/pix/case.gif\"\n"
++"	image create photo B1 -format gif -file \"$dir/pix/b1.gif\"\n"
++"	image create photo B2 -format gif -file \"$dir/pix/b2.gif\"\n"
++"	image create photo B3 -format gif -file \"$dir/pix/b3.gif\"\n"
++"	image create photo B4 -format gif -file \"$dir/pix/b4.gif\"\n"
++"	image create photo B5 -format gif -file \"$dir/pix/b5.gif\"\n"
++"	image create photo B6 -format gif -file \"$dir/pix/b6.gif\"\n"
++"	image create photo B7 -format gif -file \"$dir/pix/b7.gif\"\n"
++"}\n"
++"\n"
++"canvas .remote.c -width 221 -height 337\n"
++"\n"
++".remote.c create rectangle 27 29 196 260 -outline {red} -tag screen -fill {blue}\n"
++".remote.c create rectangle 0 280 18 306 -outline {red} -tag button1 -fill {blue}\n"
++".remote.c create oval 23 276 52 307 -outline {red} -tag button2 -fill {blue}\n"
++".remote.c create oval 63 276 92 307 -outline {red} -tag button3 -fill {blue}\n"
++".remote.c create rectangle 97 277 127 294 -outline {red} -tag button4 -fill {blue}\n"
++".remote.c create rectangle 97 300 127 317 -outline {red} -tag button5 -fill {blue}\n"
++".remote.c create oval 133 276 162 307 -outline {red} -tag button6 -fill {blue}\n"
++".remote.c create oval 171 276 200 307 -outline {red} -tag button7 -fill {blue}\n"
++"\n"
++".remote.c create rectangle 33 32 187 253 -outline black -tag screen\n"
++".remote.c create rectangle 33 200 61 225 -outline black -tag screen\n"
++".remote.c create rectangle 33 225 61 253 -outline black -tag screen\n"
++".remote.c create rectangle 160 200 187 225 -outline black -tag screen\n"
++".remote.c create rectangle 160 225 187 253 -outline black -tag screen\n"
++".remote.c create rectangle 62 200 159 253 -outline black -tag screen\n"
++"\n"
++"set buttons(1) 0\n"
++"\n"
++"proc holdbutton {button} {\n"
++"	global buttons\n"
++"	if {$button==1} {\n"
++"		set buttons($button) [after 1000 \"continuebutton $button\"]\n"
++"	} else {\n"
++"		pushbutton $button\n"
++"		set buttons($button) [after 250 \"holdbutton $button\"]\n"
++"	}\n"
++"}\n"
++"\n"
++"proc continuebutton {button} {\n"
++"	global buttons\n"
++"	if {$button==1} {\n"
++"		pushbutton 0\n"
++"	}\n"
++"	set buttons($button) \"\"\n"
++"}\n"
++"\n"
++"proc releasebutton {button} {\n"
++"	global buttons\n"
++"	if {$buttons($button)!=\"\"} {\n"
++"		if {$button==1} {\n"
++"			pushbutton 1\n"
++"		}\n"
++"		after cancel $buttons($button)\n"
++"		set buttons($button) \"\"\n"
++"	}\n"
++"}\n"
++"\n"
++".remote.c bind button1 <ButtonPress-1> {.remote.c itemconfigure button1 -fill green; update; holdbutton 1}\n"
++".remote.c bind button1 <ButtonRelease-1> {.remote.c itemconfigure button1 -fill blue; releasebutton 1}\n"
++"\n"
++".remote.c bind button2 <ButtonPress-1> {.remote.c itemconfigure button2 -fill green; update; holdbutton 2}\n"
++".remote.c bind button2 <ButtonRelease-1> {.remote.c itemconfigure button2 -fill blue; releasebutton 2}\n"
++"\n"
++".remote.c bind button3 <ButtonPress-1> {.remote.c itemconfigure button3 -fill green; update; holdbutton 3}\n"
++".remote.c bind button3 <ButtonRelease-1> {.remote.c itemconfigure button3 -fill blue; releasebutton 3}\n"
++"\n"
++".remote.c bind button4 <ButtonPress-1> {.remote.c itemconfigure button4 -fill green; update; holdbutton 4}\n"
++".remote.c bind button4 <ButtonRelease-1> {.remote.c itemconfigure button4 -fill blue; releasebutton 4}\n"
++"\n"
++".remote.c bind button5 <ButtonPress-1> {.remote.c itemconfigure button5 -fill green; update; holdbutton 5}\n"
++".remote.c bind button5 <ButtonRelease-1> {.remote.c itemconfigure button5 -fill blue; releasebutton 5}\n"
++"\n"
++".remote.c bind button6 <ButtonPress-1> {.remote.c itemconfigure button6 -fill green; update; holdbutton 6}\n"
++".remote.c bind button6 <ButtonRelease-1> {.remote.c itemconfigure button6 -fill blue; releasebutton 6}\n"
++"\n"
++".remote.c bind button7 <ButtonPress-1> {.remote.c itemconfigure button7 -fill green; update; holdbutton 7}\n"
++".remote.c bind button7 <ButtonRelease-1> {.remote.c itemconfigure button7 -fill blue; releasebutton 7}\n"
++"\n"
++"catch {\n"
++"	.remote.c create image 0 282 -image B1 -anchor nw -tag downbutton1\n"
++"	.remote.c create image 22 274 -image B2 -anchor nw -tag downbutton2\n"
++"	.remote.c create image 60 275 -image B3 -anchor nw -tag downbutton3\n"
++"	.remote.c create image 93 278 -image B4 -anchor nw -tag downbutton4\n"
++"	.remote.c create image 95 298 -image B5 -anchor nw -tag downbutton5\n"
++"	.remote.c create image 131 275 -image B6 -anchor nw -tag downbutton6\n"
++"	.remote.c create image 169 274 -image B7 -anchor nw -tag downbutton7\n"
++"\n"
++"	.remote.c create image 0 0 -image Case -anchor nw\n"
++"\n"
++"	.remote.c bind button1 <ButtonPress-1> {.remote.c raise downbutton1; update; holdbutton 1}\n"
++"	.remote.c bind button1 <ButtonRelease-1> {.remote.c lower downbutton1; releasebutton 1}\n"
++"\n"
++"	.remote.c bind button2 <ButtonPress-1> {.remote.c raise downbutton2; update; holdbutton 2}\n"
++"	.remote.c bind button2 <ButtonRelease-1> {.remote.c lower downbutton2; releasebutton 2}\n"
++"\n"
++"	.remote.c bind button3 <ButtonPress-1> {.remote.c raise downbutton3; update; holdbutton 3}\n"
++"	.remote.c bind button3 <ButtonRelease-1> {.remote.c lower downbutton3; releasebutton 3}\n"
++"\n"
++"	.remote.c bind button4 <ButtonPress-1> {.remote.c raise downbutton4; update; holdbutton 4}\n"
++"	.remote.c bind button4 <ButtonRelease-1> {.remote.c lower downbutton4; releasebutton 4}\n"
++"\n"
++"	.remote.c bind button5 <ButtonPress-1> {.remote.c raise downbutton5; update; holdbutton 5}\n"
++"	.remote.c bind button5 <ButtonRelease-1> {.remote.c lower downbutton5; releasebutton 5}\n"
++"\n"
++"	.remote.c bind button6 <ButtonPress-1> {.remote.c raise downbutton6; update; holdbutton 6}\n"
++"	.remote.c bind button6 <ButtonRelease-1> {.remote.c lower downbutton6; releasebutton 6}\n"
++"\n"
++"	.remote.c bind button7 <ButtonPress-1> {.remote.c raise downbutton7; update; holdbutton 7}\n"
++"	.remote.c bind button7 <ButtonRelease-1> {.remote.c lower downbutton7; releasebutton 7}\n"
++"	\n"
++"	\n"
++"	.remote.c itemconfigure button1 -outline {} -fill {}\n"
++"	.remote.c raise button1\n"
++"	.remote.c itemconfigure button2 -outline {} -fill {}\n"
++"	.remote.c raise button2\n"
++"	.remote.c itemconfigure button3 -outline {} -fill {}\n"
++"	.remote.c raise button3\n"
++"	.remote.c itemconfigure button4 -outline {} -fill {}\n"
++"	.remote.c raise button4\n"
++"	.remote.c itemconfigure button5 -outline {} -fill {}\n"
++"	.remote.c raise button5\n"
++"	.remote.c itemconfigure button6 -outline {} -fill {}\n"
++"	.remote.c raise button6\n"
++"	.remote.c itemconfigure button7 -outline {} -fill {}\n"
++"	.remote.c raise button7\n"
++"	.remote.c itemconfigure screen -outline {} -fill {}\n"
++"	.remote.c raise screen\n"
++"}\n"
++"\n"
++"pack .remote.c -side top\n"
++"\n"
++".remote.c bind screen <ButtonPress-1> {pen %x %y 1}\n"
++".remote.c bind screen <B1-Motion> {pen %x %y 1}\n"
++".remote.c bind screen <ButtonRelease-1> {pen %x %y 0}\n"
++"\n"
++"global KeyQueue\n"
++"global KeyQueueId\n"
++"global KeyQueueDelay\n"
++"set KeyQueue {}\n"
++"set KeyQueueId {}\n"
++"set KeyQueueDelay 50\n"
++"\n"
++"proc readyqueue {} {\n"
++"    global KeyQueueId\n"
++"    global KeyQueueDelay\n"
++"    if {$KeyQueueId == {}} {\n"
++"	after $KeyQueueDelay { set KeyQueueId [ after idle {sendqueue} ] }\n"
++"    }\n"
++"}\n"
++"\n"
++"proc queuekey {c} {\n"
++"    global KeyQueue\n"
++"    append KeyQueue $c\n"
++"    readyqueue\n"
++"}\n"
++"\n"
++"proc sendqueue {} {\n"
++"    global KeyQueue\n"
++"    global KeyQueueId\n"
++"    if {[string length $KeyQueue] > 0} {\n"
++"	key [string index $KeyQueue 0]\n"
++"	set KeyQueue [string range $KeyQueue 1 end]\n"
++"    }\n"
++"    set KeyQueueId {}\n"
++"    if {[string length $KeyQueue] > 0} { readyqueue }\n"
++"}\n"
++"\n"
++"bind .remote <KeyPress> {queuekey %A}\n"
++"\n"
++"## Handle pasting\n"
++"proc do_paste { } {\n"
++"    if [catch {selection get} sel] {\n"
++"	if [catch {selection get -selection CLIPBOARD} sel] {\n"
++"	    return\n"
++"	}\n"
++"    }\n"
++"    queuekey $sel\n"
++"}\n"
++"bind .remote <ButtonPress-2> {do_paste}\n"
++"\n"
++"#####  /*** Generate remote console window ***/\n"
++"\n"
++"toplevel .console\n"
++"wm title .console \"Palm Remote Console\"\n"
++"scrollbar .console.y -orient vertical -command {.console.t yview}\n"
++"text .console.t -yscrollcommand {.console.y set}\n"
++"pack .console.t -fill both -expand yes -side left\n"
++"pack .console.y -fill y -side right\n"
++"focus .console.t\n"
++"\n"
++"####  /*** Generate pilot state window ***/\n"
++"\n"
++"toplevel .state\n"
++"wm title .state {Palm State}\n"
++"label .state.l1 -text {Active mode:}\n"
++"label .state.l1x -text {Battery:}\n"
++"label .state.l2 -text {Exception:}\n"
++"label .state.l25 -text {Reset:}\n"
++"label .state.l3 -text {Function:}\n"
++"label .state.l4 -text {F-start:}\n"
++"label .state.l5 -text {F-end:}\n"
++"label .state.l6 -text {D0:}\n"
++"label .state.l7 -text {A0:}\n"
++"label .state.l8 -text {D1:}\n"
++"label .state.l9 -text {A1:}\n"
++"label .state.l10 -text {D2:}\n"
++"label .state.l11 -text {A2:}\n"
++"label .state.l12 -text {D3:}\n"
++"label .state.l13 -text {A3:}\n"
++"label .state.l14 -text {D4:}\n"
++"label .state.l15 -text {A4:}\n"
++"label .state.l16 -text {D5:}\n"
++"label .state.l17 -text {A5:}\n"
++"label .state.l18 -text {D6:}\n"
++"label .state.l19 -text {A6:}\n"
++"label .state.l20 -text {D7:}\n"
++"\n"
++"label .state.l21 -text {PC:}\n"
++"label .state.l22 -text {SR:}\n"
++"label .state.l23 -text {USP:}\n"
++"label .state.l24 -text {SSP:}\n"
++"\n"
++"label .state.halted -text {None}\n"
++"label .state.battery -text {Unknown}\n"
++"label .state.exception -text {0}\n"
++"label .state.reset -text {No}\n"
++"label .state.funcname -text {}\n"
++"label .state.funcstart -text {00000000}\n"
++"label .state.funcend -text {00000000}\n"
++"label .state.d0 -text {00000000}\n"
++"label .state.a0 -text {00000000}\n"
++"label .state.d1 -text {00000000}\n"
++"label .state.a1 -text {00000000}\n"
++"label .state.d2 -text {00000000}\n"
++"label .state.a2 -text {00000000}\n"
++"label .state.d3 -text {00000000}\n"
++"label .state.a3 -text {00000000}\n"
++"label .state.d4 -text {00000000}\n"
++"label .state.a4 -text {00000000}\n"
++"label .state.d5 -text {00000000}\n"
++"label .state.a5 -text {00000000}\n"
++"label .state.d6 -text {00000000}\n"
++"label .state.a6 -text {00000000}\n"
++"label .state.d7 -text {00000000}\n"
++"label .state.pc -text {00000000}\n"
++"label .state.sr -text {0000}\n"
++"label .state.usp -text {00000000}\n"
++"label .state.ssp -text {00000000}\n"
++"\n"
++"grid .state.l1 -column 0 -row 0 -sticky e -columnspan 2\n"
++"grid .state.halted -column 2 -row 0 -sticky w -columnspan 2\n"
++"\n"
++"grid .state.l1x -column 0 -row 1 -sticky e -columnspan 2\n"
++"grid .state.battery -column 2 -row 1 -sticky w -columnspan 2\n"
++"\n"
++"grid .state.l2 -column 0 -row 2 -sticky e -columnspan 2\n"
++"grid .state.exception -column 2 -row 2 -sticky w -columnspan 2\n"
++"\n"
++"grid .state.l25 -column 0 -row 3 -sticky e -columnspan 2\n"
++"grid .state.reset -column 2 -row 3 -sticky w -columnspan 2\n"
++"\n"
++"grid .state.l3 -column 0 -row 4 -sticky e -columnspan 2 \n"
++"grid .state.funcname -column 2 -row 4 -sticky w -columnspan 2\n"
++"\n"
++"grid .state.l4 -column 0 -row 5 -sticky e -columnspan 2 \n"
++"grid .state.funcstart -column 2 -row 5 -sticky w -columnspan 2\n"
++"\n"
++"grid .state.l5 -column 0 -row 6 -sticky e -columnspan 2 \n"
++"grid .state.funcend -column 2 -row 6 -sticky w -columnspan 2\n"
++"\n"
++"frame .state.rule1 -relief raised -bd 2 -height 4\n"
++"grid .state.rule1 -column 0 -row 7 -columnspan 4 -sticky ew\n"
++"\n"
++"grid .state.l6 -column 0 -row 8 -sticky e \n"
++"grid .state.d0 -column 1 -row 8 -sticky w\n"
++"grid .state.l7 -column 2 -row 8 -sticky e \n"
++"grid .state.a0 -column 3 -row 8 -sticky w\n"
++"\n"
++"grid .state.l8 -column 0 -row 9 -sticky e \n"
++"grid .state.d1 -column 1 -row 9 -sticky w\n"
++"grid .state.l9 -column 2 -row 9 -sticky e \n"
++"grid .state.a1 -column 3 -row 9 -sticky w\n"
++"\n"
++"grid .state.l10 -column 0 -row 10 -sticky e \n"
++"grid .state.d2 -column 1 -row 10 -sticky w\n"
++"grid .state.l11 -column 2 -row 10 -sticky e \n"
++"grid .state.a2 -column 3 -row 10 -sticky w\n"
++"\n"
++"grid .state.l12 -column 0 -row 11 -sticky e \n"
++"grid .state.d3 -column 1 -row 11 -sticky w\n"
++"grid .state.l13 -column 2 -row 11 -sticky e \n"
++"grid .state.a3 -column 3 -row 11 -sticky w\n"
++"\n"
++"grid .state.l14 -column 0 -row 12 -sticky e \n"
++"grid .state.d4 -column 1 -row 12 -sticky w\n"
++"grid .state.l15 -column 2 -row 12 -sticky e \n"
++"grid .state.a4 -column 3 -row 12 -sticky w\n"
++"\n"
++"grid .state.l16 -column 0 -row 13 -sticky e \n"
++"grid .state.d5 -column 1 -row 13 -sticky w\n"
++"grid .state.l17 -column 2 -row 13 -sticky e \n"
++"grid .state.a5 -column 3 -row 13 -sticky w\n"
++"\n"
++"grid .state.l18 -column 0 -row 14 -sticky e \n"
++"grid .state.d6 -column 1 -row 14 -sticky w\n"
++"grid .state.l19 -column 2 -row 14 -sticky e \n"
++"grid .state.a6 -column 3 -row 14 -sticky w\n"
++"\n"
++"grid .state.l20 -column 0 -row 15 -sticky e \n"
++"grid .state.d7 -column 1 -row 15 -sticky w\n"
++"\n"
++"grid .state.l21 -column 0 -row 16 -sticky e \n"
++"grid .state.pc -column 1 -row 16 -sticky w\n"
++"grid .state.l22 -column 2 -row 16 -sticky e \n"
++"grid .state.sr -column 3 -row 16 -sticky w\n"
++"\n"
++"grid .state.l23 -column 0 -row 17 -sticky e \n"
++"grid .state.usp -column 1 -row 17 -sticky w\n"
++"grid .state.l24 -column 2 -row 17 -sticky e \n"
++"grid .state.ssp -column 3 -row 17 -sticky w\n"
++"\n"
++"label .state.bl2 -text {B1:}\n"
++"label .state.bl4 -text {B2:}\n"
++"label .state.bl6 -text {B3:}\n"
++"label .state.bl8 -text {B4:}\n"
++"label .state.bl10 -text {B5:}\n"
++"label .state.bl12 -text {B6:}\n"
++"\n"
++"label .state.b1 -text {00000000}\n"
++"label .state.b1a -text {Off}\n"
++"label .state.b2 -text {00000000}\n"
++"label .state.b2a -text {Off}\n"
++"label .state.b3 -text {00000000}\n"
++"label .state.b3a -text {Off}\n"
++"label .state.b4 -text {00000000}\n"
++"label .state.b4a  -text {Off}\n"
++"label .state.b5 -text {00000000}\n"
++"label .state.b5a -text {Off}\n"
++"label .state.b6 -text {00000000}\n"
++"label .state.b6a -text {Off}\n"
++"\n"
++"frame .state.rule2 -relief raised -bd 2 -height 4\n"
++"grid .state.rule2 -column 0 -row 18 -columnspan 4 -sticky ew\n"
++"\n"
++"grid .state.bl2 -column 0 -row 19 -sticky e\n"
++"grid .state.b1 -column 1 -row 19 -sticky w\n"
++"grid .state.b1a -column 2 -row 19 -sticky w \n"
++"\n"
++"grid .state.bl4 -column 0 -row 20 -sticky e\n"
++"grid .state.b2 -column 1 -row 20 -sticky w\n"
++"grid .state.b2a -column 2 -row 20 -sticky w \n"
++"\n"
++"grid .state.bl6 -column 0 -row 21 -sticky e\n"
++"grid .state.b3 -column 1 -row 21 -sticky w\n"
++"grid .state.b3a -column 2 -row 21 -sticky w \n"
++"\n"
++"grid .state.bl8 -column 0 -row 22 -sticky e\n"
++"grid .state.b4 -column 1 -row 22 -sticky w\n"
++"grid .state.b4a -column 2 -row 22 -sticky w \n"
++"\n"
++"grid .state.bl10 -column 0 -row 23 -sticky e\n"
++"grid .state.b5 -column 1 -row 23 -sticky w\n"
++"grid .state.b5a -column 2 -row 23 -sticky w \n"
++"\n"
++"grid .state.bl12 -column 0 -row 24 -sticky e\n"
++"grid .state.b6 -column 1 -row 24 -sticky w\n"
++"grid .state.b6a -column 2 -row 24 -sticky w \n"
++"\n"
++"###  /*** Generate debugger console window ***/\n"
++"\n"
++"wm title . \"Palm Debugger Console\"\n"
++"catch {\n"
++"	wm iconbitmap . {@pix/case.xbm}\n"
++"	wm iconbitmap .remote {@pix/case.xbm}\n"
++"	wm iconbitmap .console {@pix/case.xbm}\n"
++"	wm iconbitmap .state {@pix/case.xbm}\n"
++"	#wm iconmask . {@pix/casemask.xbm}\n"
++"}\n"
++"\n"
++"frame .m -relief raised\n"
++"frame .f\n"
++"scrollbar .f.y -orient vertical -command {.f.t yview}\n"
++"text .f.t -yscrollcommand {.f.y set} -wrap word\n"
++"pack .f.t -fill both -expand yes -side left\n"
++"pack .f.y -fill y -side right\n"
++"pack [menubutton .m.file -text {File} -menu .m.file.m] -side left\n"
++"#pack [menubutton .m.edit -text {Edit} -menu .m.edit.m] -side left\n"
++"pack [menubutton .m.windows -text {Windows} -menu .m.windows.m] -side left\n"
++"#pack [menubutton .m.help -text {display_help} -menu .m.help.m] -side right\n"
++"\n"
++"menu .m.file.m\n"
++"menu .m.windows.m\n"
++"#menu .m.edit.m\n"
++"#menu .m.help.m\n"
++"\n"
++"#wm iconify .remote\n"
++"#wm iconify .console\n"
++"#wm iconify .state\n"
++"\n"
++"\n"
++"proc ShowWindow {name1 name2 op} {\n"
++"  global show\n"
++"  if {$show($name2)} {\n"
++"    if {[wm state $name2] != \"normal\"} {\n"
++"      wm deiconify $name2\n"
++"    }\n"
++"  } else {\n"
++"    if {[wm state $name2] == \"normal\"} {\n"
++"      wm withdraw $name2\n"
++"    }\n"
++"  }\n"
++"}\n"
++"\n"
++"\n"
++"trace variable show w {ShowWindow}\n"
++"\n"
++"bind .remote <Unmap> { set show(.remote) 0 }\n"
++"bind .console <Unmap> { set show(.console) 0 }\n"
++"bind .state <Unmap> { set show(.state) 0 }\n"
++"\n"
++"bind .remote <Map> { set show(.remote) 1 }\n"
++"bind .console <Map> { set show(.console) 1 }\n"
++"bind .state <Map> { set show(.state) 1 }\n"
++"\n"
++"wm protocol .remote WM_DELETE_WINDOW { set show(.remote) 0 }\n"
++"wm protocol .console WM_DELETE_WINDOW { set show(.console) 0 }\n"
++"wm protocol .state WM_DELETE_WINDOW { set show(.state) 0 }\n"
++"\n"
++"set show(.remote) 0\n"
++"set show(.console) 0\n"
++"set show(.state) 0\n"
++"\n"
++"\n"
++".m.file.m add command -label {Exit} -command {exit}\n"
++"\n"
++".m.windows.m add checkbutton -label {Remote UI} -var show(.remote)\n"
++".m.windows.m add checkbutton -label {Remote Console} -var show(.console)\n"
++".m.windows.m add checkbutton -label {Remote State} -var show(.state)\n"
++"\n"
++"pack .m -side top -fill x\n"
++"pack .f -side top -fill both -expand yes\n"
++"focus .f.t\n"
++"\n"
++"###  /*** Configure console bindings ***/\n"
++"\n"
++"bind .console.t <Shift-KeyPress-Return> {tkTextInsert .console.t \"\\n\" ; break}\n"
++"bind .f.t <Shift-KeyPress-Return> {tkTextInsert .f.t \"\\n\" ; break}\n"
++"\n"
++"bind .console.t <Control-KeyPress-Return> {tkTextInsert .console.t \"\\n\" ; break}\n"
++"bind .f.t <Control-KeyPress-Return> {tkTextInsert .f.t \"\\n\" ; break}\n"
++"\n"
++"bind .console.t <KeyPress-Return> {Console [.console.t get {insert linestart} {insert lineend}] ; break}\n"
++"bind .f.t <KeyPress-Return> {\n"
++"	set line [.f.t get {insert linestart} {insert lineend}]\n"
++"	set f [string first \">\" $line]\n"
++"	incr f\n"
++"	set line [string range $line $f end]\n"
++"	.f.t mark set insert {insert lineend}\n"
++"	.f.t insert insert \\n\n"
++"	Debugger $line\n"
++"	if {[.f.t compare insert != {insert linestart}]} {\n"
++"		.f.t insert insert \"\\n\"\n"
++"	}\n"
++"	.f.t insert insert \"pilot-debug> \"\n"
++"	.f.t see insert\n"
++"	break\n"
++"}\n"
++"\n"
++"proc Console {cmd} {\n"
++"	.console.t mark set insert {insert lineend}\n"
++"	tkTextInsert .console.t \\n\n"
++"	transmit $cmd\n"
++"}\n"
++"\n"
++"proc Debugger {cmd} {\n"
++"	#.f.t mark set insert {insert lineend}\n"
++"	#tkTextInsert .f.t \\n\n"
++"	if {[string length [string trim $cmd]]!=0} {\n"
++"		set code [catch {eval $cmd} message]\n"
++"		if {[string length $message]} {\n"
++"			set message [string trimright $message]\n"
++"			Say \"$message\\n\"\n"
++"			#if {[.f.t compare insert != {insert linestart}]} {\n"
++"			#	Say \"\\\n\"\n"
++"			#}\n"
++"		}\n"
++"	}\n"
++"}\n"
++"\n"
++"proc Say {text} {\n"
++"	global Interactive\n"
++"	if {$Interactive} {\n"
++"	  .f.t insert insert \"$text\"\n"
++"	  .f.t see insert\n"
++"	} else {\n"
++"	  upvar result result\n"
++"	  set result \"$result$text\"\n"
++"	}\n"
++"}\n\n", NULL);
+   puts(interp->result);
+   
+   created = 1;
+@@ -2080,25 +2078,24 @@
+ 
+ static int proc_help(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[])
+ {
+-  Say("\
+---- display_help ---\n\
+-g [<addr>]                 Go: Resume execution (if address is supplied,
+-                               will start at that point)\n\
+-t <addr1> [<addr2>]      Till: Resume execution until addr1 (if addr2 is
+-                               supplied, will start at that point)\n\
+-coldboot                       Simulate the hard-reset (reset pin + power
+-                               button press, i.e. lose all data)\n\
+-warmboot                       Simulate a soft-reset (reset pin press)\n\
+-pushbutton <button number>     Simulate button push\n\
+-mirror [bool]                  Continually view the Palm's screen in the
+-                               Remote UI window (if bool supplied, can
+-                               turn on or off mirroring, otherwise
+-                               toggles)\n\
+-getdisplay                     Show the Palm's display in the Remote UI
+-                               window\n\
+-updatedisplay                  Force a mirror refresh\n\
+-feature                        Get/Set/Read Palm features\n\
+-");
++  Say(
++"--- display_help ---\n"
++"g [<addr>]                 Go: Resume execution (if address is supplied,\n"
++"                               will start at that point)\n"
++"t <addr1> [<addr2>]      Till: Resume execution until addr1 (if addr2 is\n"
++"                               supplied, will start at that point)\n"
++"coldboot                       Simulate the hard-reset (reset pin + power\n"
++"                               button press, i.e. lose all data)\n"
++"warmboot                       Simulate a soft-reset (reset pin press)\n"
++"pushbutton <button number>     Simulate button push\n"
++"mirror [bool]                  Continually view the Palm's screen in the\n"
++"                               Remote UI window (if bool supplied, can\n"
++"                               turn on or off mirroring, otherwise\n"
++"                               toggles)\n"
++"getdisplay                     Show the Palm's display in the Remote UI\n"
++"                               window\n"
++"updatedisplay                  Force a mirror refresh\n"
++"feature                        Get/Set/Read Palm features\n");
+   return TCL_OK;
+ }
+ 
+@@ -2151,55 +2148,53 @@
+     Tcl_CreateCommand(interp, cmds[i].name, cmds[i].proc, 0, NULL);
+   }
+ 
+-  Tcl_VarEval(interp,"\
+-proc Say {text} {
+-	global Interactive
+-	if {$Interactive} {
+-	  puts \"$text\"
+-	} else {
+-	  upvar result result
+-	  set result \"$result$text\"
+-	}
+-}
+-
+-proc interactive {args} {
+-	global Interactive
+-	global errorInfo
+-	set hold $Interactive
+-	set Interactive 1
+-	set code [catch $args message]
+-	set Interactive $hold
+-	error $message $errorInfo $code
+-}
+-
+-proc noninteractive {args} {
+-	global Interactive
+-	global errorInfo
+-	set hold $Interactive
+-	set Interactive 0
+-	set code [catch $args message]
+-	set Interactive $hold
+-	error $message $errorInfo $code
+-}
+-
+-set Interactive 1
+-
+-proc bgerror {msg} {
+-	Say $msg
+-}
+-
+-proc checkup {} {
+-	catch {noninteractive battery}
+-	after 10000 checkup
+-}
+-
+-after 1000 checkup
+-
+-proc checkupin {time} {
+-	after $time {catch {noninteractive battery}}
+-}
+-
+-",NULL);     
++  Tcl_VarEval(interp,
++"proc Say {text} {\n"
++"	global Interactive\n"
++"	if {$Interactive} {\n"
++"	  puts \"$text\"\n"
++"	} else {\n"
++"	  upvar result result\n"
++"	  set result \"$result$text\"\n"
++"	}\n"
++"}\n"
++"\n"
++"proc interactive {args} {\n"
++"	global Interactive\n"
++"	global errorInfo\n"
++"	set hold $Interactive\n"
++"	set Interactive 1\n"
++"	set code [catch $args message]\n"
++"	set Interactive $hold\n"
++"	error $message $errorInfo $code\n"
++"}\n"
++"\n"
++"proc noninteractive {args} {\n"
++"	global Interactive\n"
++"	global errorInfo\n"
++"	set hold $Interactive\n"
++"	set Interactive 0\n"
++"	set code [catch $args message]\n"
++"	set Interactive $hold\n"
++"	error $message $errorInfo $code\n"
++"}\n"
++"\n"
++"set Interactive 1\n"
++"\n"
++"proc bgerror {msg} {\n"
++"	Say $msg\n"
++"}\n"
++"\n"
++"proc checkup {} {\n"
++"	catch {noninteractive battery}\n"
++"	after 10000 checkup\n"
++"}\n"
++"\n"
++"after 1000 checkup\n"
++"\n"
++"proc checkupin {time} {\n"
++"	after $time {catch {noninteractive battery}}\n"
++"}\n\n", NULL);     
+ 
+   Tcl_LinkVar(interp, "Interactive", (char*)&Interactive, TCL_LINK_INT);
+ 
+@@ -2216,44 +2211,36 @@
+        Type 'exit' to quit the application\n\n");
+   
+ #if 0
+-  Say("\tWelcome to pilot-debug!\n\n\
+-
+-Please connect your Palm and start console or debugging mode.\n\n\
+-
+-(Console mode is a background task that can respond to a few commands,\n
+-most importantly RPC which lets any function on the Palm be invoked. The\n
+-Palm operates as usual while console mode is active, except that since\n
+-the serial port is held open, HotSync and other applications that use\n
+-the serial port will not work. Debug mode is activated on demand or when\n
+-the Palm crashes. In debug mode, the CPU is halted, and no commands may\n
+-be executed, except via a debugging console like this one.)\n\n\
+-
+-In the absence of special utilities, the console can be started by the\n
+-\".2\" shortcut, and debugging via \".1\". To clear either mode,\n
+-reboot via the reset button. If console mode is active, you may also\n
+-reboot via the \"coldboot\" or \"warmboot\" commands.\n\n\
+-
+-The Remote UI window lets you manipulate the Palm if console mode is\n
+-active. By clicking the mouse button on the screen or buttons, you can\n
+-simulate pen taps, and if you type anything while the window has the\n
+-focus, the Palm will receive the keystrokes.\n\n\
+-
+-The Remote Console window is specifically for the transmission and\n
+-reception of console packets. Pressing Return on a line will transmit\n
+-it, and any incoming packets will be displayed here in addition to the\n
+-Debug Console.\n\n\ 
+-
+-The Remote State window shows the current Palm CPU state. It is only\n
+-updated on request or when the Palm halts.\n\n\
+-
+-
+-The Debugging Console window is the primary interface for pilot-debug.\n
+-Pressing Return on a line that contains text will execute that line as\n
+-a Tcl command. (Try 'expr 3+4'.) All of the usual Tcl and Tk commands\n
+-are available, as well as some special-purpose ones, including 'help',\n
+-'coldboot', 'warmboot', 'attach', 't', and 'g', (the last one continues\n
+-after the Palm halts.)\n\n\ Execute 'help' for the list of commands\n
+-currently implemented.\n\n\ "); 
++  Say("\tWelcome to pilot-debug!\n\n\n"
++"Please connect your Palm and start console or debugging mode.\n\n"
++"(Console mode is a background task that can respond to a few commands,\n"
++"most importantly RPC which lets any function on the Palm be invoked. The\n"
++"Palm operates as usual while console mode is active, except that since\n"
++"the serial port is held open, HotSync and other applications that use\n"
++"the serial port will not work. Debug mode is activated on demand or when\n"
++"the Palm crashes. In debug mode, the CPU is halted, and no commands may\n"
++"be executed, except via a debugging console like this one.)\n\n"
++"In the absence of special utilities, the console can be started by the\n"
++"\".2\" shortcut, and debugging via \".1\". To clear either mode,\n"
++"reboot via the reset button. If console mode is active, you may also\n"
++"reboot via the \"coldboot\" or \"warmboot\" commands.\n\n"
++"The Remote UI window lets you manipulate the Palm if console mode is\n"
++"active. By clicking the mouse button on the screen or buttons, you can\n"
++"simulate pen taps, and if you type anything while the window has the\n"
++"focus, the Palm will receive the keystrokes.\n\n"
++"The Remote Console window is specifically for the transmission and\n"
++"reception of console packets. Pressing Return on a line will transmit\n"
++"it, and any incoming packets will be displayed here in addition to the\n"
++"Debug Console.\n\n"
++"The Remote State window shows the current Palm CPU state. It is only\n"
++"updated on request or when the Palm halts.\n\n"
++"The Debugging Console window is the primary interface for pilot-debug.\n"
++"Pressing Return on a line that contains text will execute that line as\n"
++"a Tcl command. (Try 'expr 3+4'.) All of the usual Tcl and Tk commands\n"
++"are available, as well as some special-purpose ones, including 'help',\n"
++"'coldboot', 'warmboot', 'attach', 't', and 'g', (the last one continues\n"
++"after the Palm halts.)\n\n\ Execute 'help' for the list of commands\n"
++"currently implemented.\n\n"); 
+ #endif
+ 
+     /* Specify a user-specific startup file to invoke if the application is
+@@ -2263,26 +2250,23 @@
+ 
+     Tcl_SetVar(interp, "tcl_rcFileName", "~/.pdebugrc", TCL_GLOBAL_ONLY);
+ 
+-    Tcl_VarEval(interp,"\
+-      set tcl_prompt1 myprompt
+-      proc myprompt {} {
+-        puts -nonewline \"pilot-debug> \"
+-      }
+-      
+-    ",NULL);
++    Tcl_VarEval(interp,
++"     set tcl_prompt1 myprompt\n"
++"     proc myprompt {} {\n"
++"       puts -nonewline \"pilot-debug> \"\n"
++"      }\n\n",NULL);
+ 
+     /* Deal with command-line arguments */
+ 
+-    Tcl_VarEval(interp,"\
+-      if {$argc > 0} {
+-        set p [lindex $argv 0]
+-        set argv [lrange $argv 1 end]
+-        port $p
+-      } else {
+-        Say \"As you have not entered a serial port on the command like, you might like to \
+-set one with 'port /dev/something'\\n\\n\"
+-      }
+-    ",NULL);
++    Tcl_VarEval(interp,
++"      if {$argc > 0} {\n"
++"        set p [lindex $argv 0]\n"
++"        set argv [lrange $argv 1 end]\n"
++"        port $p\n"
++"      } else {\n"
++"        Say \"As you have not entered a serial port on the command like, you might like to "
++"set one with 'port /dev/something'\\n\\n\"\n"
++"      }\n",NULL);
+         
+     return TCL_OK;
+ }
-- 
cgit v1.2.3