gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.109, 2004/12/08 12:47:30	version 1.110, 2004/12/08 18:39:01
Line 104 Defer source ( -- c-addr u ) \ core	Line 104 Defer source ( -- c-addr u ) \ core
\ number? number 23feb93py	\ number? number 23feb93py

hex	hex
const Create bases 0A , 10 , 2 , 0A	const Create bases 0A , 10 , 2 , 0A ,
\ 10 16 2 10	\ 10 16 2 10

\ !! protect BASE saving wrapper against exceptions	\ !! protect BASE saving wrapper against exceptions
: getbase ( addr u -- addr' u' )	: getbase ( addr u -- addr' u' )
2dup s" 0x" string-prefix? >r	2dup s" 0x" string-prefix? >r
2dup s" 0X" string-prefix? r> or	2dup s" 0X" string-prefix? r> or
base @ #33 < and if	base @ #34 < and if
hex 2 /string	hex 2 /string
endif	endif
over c@ [char] # - dup 4 u<	over c@ [char] # - dup 4 u<