Return to int.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.116, 2005/01/06 21:54:17 | version 1.117, 2005/01/09 20:32:41 |
---|---|
Line 111 const Create bases 0A , 10 , 2 , 0 | Line 111 const Create bases 0A , 10 , 2 , 0 |
: 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 @ #34 < 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< |