Re: SwiftX Popup Hex Stop

Leon,

Thank you. That works very nicely, with HEX changed to DECIMAL and [+HOST]
makes it work in TARGET too.

-----Original Message-----
From: Leon Wagner [mailto:leon_at_forth.com]
Sent: Wednesday, January 09, 2002 13:53
To: Bulgrien, Dennis; swiftx_at_forth.com
Subject: RE: [swiftx] Re: SwiftX Popup Hex Stop

Once again, you're in control. The only reason the stack is cleared is
because
WH does an ABORT (remember that ABORT and ABORT" are implemented in terms of
THROW per ANS Forth) so you can CATCH it if you want to.

HOST

: WH ( -- ) BASE @ >R HEX ['] WH CATCH DROP R> BASE ! ;

INTERPRETER

: WH ( -- ) [+HOST] WH ;

TARGET

Note the [+HOST] in the INTERPRETER definition. The search orders for
interpreting and compining are necessarily different in the cross-compiling
environement. This is discussed in the SwiftX Reference Manual so I won't
repeat it all here.

> -----Original Message-----
> From: swiftx-bounce_at_forth.com [mailto:swiftx-bounce_at_forth.com]On Behalf
> Of Bulgrien, Dennis
> Sent: Wednesday, January 09, 2002 7:00 AM
> To: 'swiftx_at_forth.com'
> Subject: [swiftx] Re: SwiftX Popup Hex Stop
>
>
>
> An incomplete workaround:
>
> HOST
> : WH BASE @ DECIMAL WH BASE ! ;
> INTERPRETER
> : WH WH ;
>
> This doesn't always work because SwiftX WH clears the stack on something
> like WH TIMER, where it says "Can't open file" (see below); a VARIABLE
could
> be used. Also, TARGET HEX WH still prints hex, probably a BASE issue. WH
> might do something fancy (which I can't see) to use either TARGET or HOST
> BASE , but the workaround only used HOST BASE .
>
> It would be nice if WH didn't clear the stack. If I'm interacting with my
> target with some data on the stack and WH a word on it and in SwiftForth,
> I'll lose my place.
>
> WH TIMER
>
> Wordlist *TARGET
> d:\cygwin\home\dbulgrien\cvs\sx3\SWIFTX\SRC\TIMING.F
> 1B| : TIMER ( n -- ) COUNTER SWAP - . ;
>
> Wordlist *INTERPRETER
> d:\cygwin\home\dbulgrien\cvs\sx3\SWIFTX\XCOMP\INTERP-S.F
> 6E| : TIMER TIMER ;
>
> Wordlist FORTH
> d:\cygwin\home\dbulgrien\cvs\sx3\SWIFTFORTH\SRC\IDE\WIN32\COUNTER.F
> 1F| Can't open file
>
>
> -----Original Message-----
> From: Bulgrien, Dennis
> Sent: Tuesday, January 08, 2002 11:49
> To: 'swiftx_at_forth.com'
> Subject: [swiftx] SwiftX Popup Hex Stop
>
>
>
> In SwiftX v3, I cross-reference TIMER (see below), right-click on 110| and
> pick EDIT. It loads into my editor at line 110. However, if the base is
> hexadecimal, WH displays line numbers in hex and right-click on 6E| EDIT
no
> longer loads it into the editor; apparently the hex line number was passed
> on the command line but since it expects decimal does not know how to
> interpret it. Another related issue will occur if the hex number happens
to
> be composed entirely of decimal digits; the editor will load the file but
go
> to the wrong line number. Would'nt it be nice if WH ignored BASE or the
> EDIT on the pop-up menu translated to decimal? Unfortunately SwiftX can't
> open the file containing WH so I can modify it.
>
> WH TIMER
>
> Wordlist *TARGET
> d:\cygwin\home\dbulgrien\cvs\sx3\SWIFTX\SRC\TIMING.F
> 27| : TIMER ( n -- ) COUNTER SWAP - . ;
>
> Wordlist *INTERPRETER
> d:\cygwin\home\dbulgrien\cvs\sx3\SWIFTX\XCOMP\INTERP-S.F
> 110| : TIMER TIMER ;
>
> Wordlist FORTH
> d:\cygwin\home\dbulgrien\cvs\sx3\SWIFTFORTH\SRC\IDE\WIN32\COUNTER.F
> 31| Can't open file
>
> EDIT 110| ok
> HEX ok
> WH TIMER
>
> Wordlist *TARGET
> d:\cygwin\home\dbulgrien\cvs\sx3\SWIFTX\SRC\TIMING.F
> 1B| : TIMER ( n -- ) COUNTER SWAP - . ;
>
> Wordlist *INTERPRETER
> d:\cygwin\home\dbulgrien\cvs\sx3\SWIFTX\XCOMP\INTERP-S.F
> 6E| : TIMER TIMER ;
>
> Wordlist FORTH
> d:\cygwin\home\dbulgrien\cvs\sx3\SWIFTFORTH\SRC\IDE\WIN32\COUNTER.F
> 1F| Can't open file
>
> EDIT 6E| ok
>
> LOCATE WH
> Line 281 in file:
> d:\cygwin\home\dbulgrien\cvs\sx3\SWIFTFORTH\SRC\IDE\WIN32\XREF.F
> Can't open file
>
> Dennis W. Bulgrien, Engineer Mailto:dbulgrien_at_vcsd.com
> VertexRSI, Controls and Structures http://www.vcsd.com
> 1915 E. Harrison Road tel: 903 295 1480 x287
> Longview, TX 75604-5438 fax: 903 295 1479
> ----------------------------------------------------------------------
> swiftx_at_forth.com The SwiftX programming discussion email list
> To unsubscribe, send subject "unsubscribe swiftx" to listar_at_forth.com
> For help with listar commands, send subject "help" to listar_at_forth.com
> Archives are located at http://www.forth.com/swiftx -- check them out!
> ----------------------------------------------------------------------
> THIS LIST IS NOT FOR BUG REPORTS! Send bug reports to support_at_forth.com.
----------------------------------------------------------------------
swiftx_at_forth.com The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe swiftx" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/swiftx -- check them out!
----------------------------------------------------------------------
THIS LIST IS NOT FOR BUG REPORTS! Send bug reports to support_at_forth.com.
Received on Wed Jan 09 2002 - 12:19:54 PST