Artifact cd6e0105ca4c57d98fe35188ad4de24f00c04440:
- File xtype.fs — part of check-in [e68be82525] at 2019-01-25 21:18:14 on branch trunk — Fixes for Gforth ITC, which doesn't like smart compile, compilation semantics, and needs compsem: stuff instead (user: bernd size: 503)
\ hex helpers : hex[ ]] [: [[ ; immediate : ]hex ]] ;] $10 base-execute [[ ; immediate : x~~ ]] hex[ ~~ ]hex [[ ; immediate : xtype ( addr u -- ) hex[ bounds ?DO I c@ 0 <# # # #> type LOOP ]hex ; : (digits>$) ( addr u -- addr' u' ) save-mem >r dup dup r> bounds ?DO I 2 s>number drop over c! char+ 2 +LOOP over - ; : hex>$ ( addr u -- addr' u' ) ['] (digits>$) $10 base-execute ; : x" ( "hexstring" -- addr u ) '"' parse hex>$ ; compsem: [compile] x" postpone SLiteral ;