Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #135248

Re: FigForth Keep script running

Show all headers | View raw

                             Demo Numbers and trys                              

Numbers

: dnbr  ( "numeric<bl>" -- d ) BL WORD HERE NUMBER ;
: nbr   ( "numeric<bl>" -- n ) DNBR DROP ;
: dnnbr ( "numeric<bl>" -- d dpl ) DNBR DPL @ ;

i. dnbr 123.45 d. --> 12345 
i. nbr 123.45 . --> 12345 
i. dnnbr 123.45 dn. --> 123.45 

: OX
  BASE @ >R  
  OCTAL NBR [COMPILE] LITERAL
  R> BASE ! ; IMMEDIATE

: OY
  BASE @ >R
  HEX NBR [compile] LITERAL
  R> BASE ! ; IMMEDIATE

: DN
  BASE @ >R
  DECIMAL DNNBR
  STATE @ IF REV 3 0 DO [COMPILE] LITERAL LOOP ENDIF
  R> BASE ! ; IMMEDIATE

: tcf_end ." TCF_END " 42 . ;

i. Ox 644 . tcf_end --> 420 TCF_END 42 
i. Oy abc . tcf_end --> 2748 TCF_END 42 
i. Dn 123.45 dn. tcf_end --> 123.45 TCF_END 42 
i. hex Dn 1024 dn. tcf_end --> 400 TCF_END 2A 
decimal


TRY

DEFER RESET
: TRY 
PRO 
back 
 RESET 
 STATE @ IF '." (?) Stubbed " RDROP ;' EVAL ENDIF
TREK CUT: 
CONT ;
--
-errors
{ decimal +voc } {xt} is reset
--
ereset -edump -ecut ' noop ' snapshot !
i. try Ox 755 . tcf_end --> 493 TCF_END 42 
i. try Ox 755 . Ox 69  . tcf_end --> 493 
69?  CUTTING
i. try Ox 755 . Ox 644 . tcf_end --> 493 420 TCF_END 42 
--
i. try Oy abc . tcf_end --> 2748 TCF_END 42 
i. try Oy 123 . Oy 4o00 . tcf_end --> 291 
4o00?  CUTTING
i. try Oy 123 . Oy 4000 . tcf_end --> 291 16384 TCF_END 42 
--
i. try Dn 12345  dn. tcf_end --> 12345 TCF_END 42 
i. try Dn 12345. dn. tcf_end --> 12345. TCF_END 42 
i. try Dn 123,45 dn. tcf_end --> 
123,45?  CUTTING
i. try Dn 123.45 dn. tcf_end --> 123.45 TCF_END 42 
--
decimal
--
try : foo ox 755 . ;
i. foo tcf_end --> 493 TCF_END 42 
try : bar ox 49 .  ;
49?  CUTTING
i. bar tcf_end --> (?) Stubbed 
--
{fin} +uabort +ecut
..
CURRENT and CONTEXT are WRK    PREVOC is WRK  BASE: 10 
Latest: bar  HERE : 134597916  UNUSED : 11455 
S?: empty 
--- 

-fin- 
 OK
-- 
me

Back to comp.lang.forth | Previous | Next — Previous in thread | Find similar | Unroll thread

Thread

FigForth Keep script running sjack@dontemail.me (sjack) - 2026-07-19 16:07 +0000
  Re: FigForth Keep script running albert@SPENARNC.XS4ALL.NL - 2026-07-21 11:20 +0200
  Re: FigForth Keep script running sjack@dontemail.me (sjack) - 2026-07-22 15:25 +0000

csiph-web