mirror of https://github.com/mgcaret/of816.git
73 lines
1.5 KiB
Forth
73 lines
1.5 KiB
Forth
testing 7.3.5.1 Numeric-base control
|
|
|
|
t{ hex -> }t
|
|
t{ base @ -> 10 }t
|
|
t{ decimal base @ hex -> 0a }t
|
|
t{ octal base @ hex -> 08 }t
|
|
|
|
testing 7.3.5.2 Numeric input
|
|
|
|
hex
|
|
|
|
t{ s" 123" $number -> 123 false }t
|
|
t{ s" $xyz" $number -> true }t
|
|
|
|
t{ 0 s>d s" 456" >number nip -> 456 s>d 0 }t
|
|
t{ 0 s>d s" $xyz" >number nip -> 0 s>d 4 }t
|
|
|
|
t{ 3a 30 do i 10 digit drop loop -> 0 1 2 3 4 5 6 7 8 9 }t
|
|
t{ 47 41 do i 10 digit drop loop -> a b c d e f }t
|
|
t{ 67 61 do i 10 digit drop loop -> a b c d e f }t
|
|
t{ 6a 67 do i 10 digit nip loop -> false false false }t
|
|
|
|
t{ d# 10 -> 0a }t
|
|
decimal
|
|
t{ h# 10 hex -> 10 }t
|
|
hex
|
|
t{ o# 10 -> 08 }t
|
|
|
|
testing 7.3.5.3 Numeric output
|
|
|
|
\ the output must be examined by hand to completely verify
|
|
\ but if the subsequent privitives work, the chances are that
|
|
\ these work as well
|
|
|
|
t{ 0 . 1 . -1 . -> }t
|
|
t{ 0 s. 1 s. -1 s. -> }t
|
|
t{ 0 u. 1 u. -1 u. -> }t \ 0 1 ffffffff
|
|
t{ -1 10 .r -> }t
|
|
t{ -1 10 u.r -> }t
|
|
t{ f .d -> }t
|
|
decimal
|
|
t{ 15 .h -> }t
|
|
hex
|
|
t{ 0 1 .s -> 0 1 }t
|
|
t{ base ? -> }t
|
|
|
|
testing 7.3.5.4 Numeric output primitives
|
|
|
|
hex
|
|
|
|
: s= ( str len str len )
|
|
2 pick 2dup = if
|
|
drop swap comp 0=
|
|
else
|
|
2drop 2drop false
|
|
then
|
|
;
|
|
|
|
t{ 0 (.) s" 0" s= -> true }t
|
|
t{ -1 (.) s" -1" s= -> true }t
|
|
t{ 1 (.) s" 1" s= -> true }t
|
|
|
|
t{ 0 (u.) s" 0" s= -> true }t
|
|
t{ -1 (u.) s" FFFFFFFF" s= -> true }t
|
|
t{ 1 (u.) s" 1" s= -> true }t
|
|
|
|
T{ <# 41 HOLD 42 HOLD 0 0 #> S" BA" S= -> true }T
|
|
T{ <# -1 SIGN 0 SIGN -1 SIGN 0 0 #> S" --" S= -> true }T
|
|
T{ <# 1 0 # # #> S" 01" S= -> true }T
|
|
T{ <# 1 0 #S #> S" 1" S= -> true }T
|
|
|
|
T{ <# 1 u#s u#> S" 1" S= -> true }T
|