use radix literals

[factor.git] / basis / alien / endian / endian-tests.factor

diff --git a/basis/alien/endian/endian-tests.factor b/basis/alien/endian/endian-tests.factor
index 53901a39384534097f4ce3e3e15f639b06cc4c3e..6c083df8e7398ef6016a1fca682f5b63fd2937c1 100644 (file)
--- a/basis/alien/endian/endian-tests.factor
+++ b/basis/alien/endian/endian-tests.factor
@@ -20,37 +20,37 @@ STRUCT: endian-struct
     { l be64 } ;
 
 CONSTANT: endian-bytes-0f B{
-        HEX: 0 HEX: ff
-        HEX: 0 HEX: ff
-        HEX: 0 HEX: ff
-        HEX: 0 HEX: ff
-
-        HEX: 0 HEX: 0 HEX: 0 HEX: ff
-        HEX: 0 HEX: 0 HEX: 0 HEX: ff
-        HEX: 0 HEX: 0 HEX: 0 HEX: ff
-        HEX: 0 HEX: 0 HEX: 0 HEX: ff
-
-        HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: ff
-        HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: ff
-        HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: ff
-        HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: ff
+        0x0 0xff
+        0x0 0xff
+        0x0 0xff
+        0x0 0xff
+
+        0x0 0x0 0x0 0xff
+        0x0 0x0 0x0 0xff
+        0x0 0x0 0x0 0xff
+        0x0 0x0 0x0 0xff
+
+        0x0 0x0 0x0 0x0 0x0 0x0 0x0 0xff
+        0x0 0x0 0x0 0x0 0x0 0x0 0x0 0xff
+        0x0 0x0 0x0 0x0 0x0 0x0 0x0 0xff
+        0x0 0x0 0x0 0x0 0x0 0x0 0x0 0xff
     }
 
 CONSTANT: endian-bytes-f0 B{
-        HEX: ff HEX: 0
-        HEX: ff HEX: 0
-        HEX: ff HEX: 0
-        HEX: ff HEX: 0
-
-        HEX: ff HEX: 0 HEX: 0 HEX: 0
-        HEX: ff HEX: 0 HEX: 0 HEX: 0
-        HEX: ff HEX: 0 HEX: 0 HEX: 0
-        HEX: ff HEX: 0 HEX: 0 HEX: 0
-
-        HEX: ff HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0
-        HEX: ff HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0
-        HEX: ff HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0
-        HEX: ff HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0
+        0xff 0x0
+        0xff 0x0
+        0xff 0x0
+        0xff 0x0
+
+        0xff 0x0 0x0 0x0
+        0xff 0x0 0x0 0x0
+        0xff 0x0 0x0 0x0
+        0xff 0x0 0x0 0x0
+
+        0xff 0x0 0x0 0x0 0x0 0x0 0x0 0x0
+        0xff 0x0 0x0 0x0 0x0 0x0 0x0 0x0
+        0xff 0x0 0x0 0x0 0x0 0x0 0x0 0x0
+        0xff 0x0 0x0 0x0 0x0 0x0 0x0 0x0
     }
 
 : endian-test-struct-0f ( -- obj )
@@ -59,36 +59,36 @@ CONSTANT: endian-bytes-f0 B{
 : endian-test-struct-f0 ( -- obj )
     endian-bytes-f0 endian-struct memory>struct ;
 
-[ HEX: ff00 ] [ endian-test-struct-0f a>> ] unit-test
+[ 0xff00 ] [ endian-test-struct-0f a>> ] unit-test
 [ -256 ] [ endian-test-struct-0f b>> ] unit-test
-[ HEX: 00ff ] [ endian-test-struct-0f c>> ] unit-test
-[ HEX: 00ff ] [ endian-test-struct-0f d>> ] unit-test
+[ 0x00ff ] [ endian-test-struct-0f c>> ] unit-test
+[ 0x00ff ] [ endian-test-struct-0f d>> ] unit-test
 
-[ HEX: ff000000 ] [ endian-test-struct-0f e>> ] unit-test
+[ 0xff000000 ] [ endian-test-struct-0f e>> ] unit-test
 [ -16777216 ] [ endian-test-struct-0f f>> ] unit-test
-[ HEX: 000000ff ] [ endian-test-struct-0f g>> ] unit-test
-[ HEX: 000000ff ] [ endian-test-struct-0f h>> ] unit-test
+[ 0x000000ff ] [ endian-test-struct-0f g>> ] unit-test
+[ 0x000000ff ] [ endian-test-struct-0f h>> ] unit-test
 
-[ HEX: ff00000000000000 ] [ endian-test-struct-0f i>> ] unit-test
+[ 0xff00000000000000 ] [ endian-test-struct-0f i>> ] unit-test
 [ -72057594037927936 ] [ endian-test-struct-0f j>> ] unit-test
-[ HEX: 00000000000000ff ] [ endian-test-struct-0f k>> ] unit-test
-[ HEX: 00000000000000ff ] [ endian-test-struct-0f l>> ] unit-test
+[ 0x00000000000000ff ] [ endian-test-struct-0f k>> ] unit-test
+[ 0x00000000000000ff ] [ endian-test-struct-0f l>> ] unit-test
 
 
-[ HEX: ff00 ] [ endian-test-struct-f0 c>> ] unit-test
+[ 0xff00 ] [ endian-test-struct-f0 c>> ] unit-test
 [ -256 ] [ endian-test-struct-f0 d>> ] unit-test
-[ HEX: 00ff ] [ endian-test-struct-f0 a>> ] unit-test
-[ HEX: 00ff ] [ endian-test-struct-f0 b>> ] unit-test
+[ 0x00ff ] [ endian-test-struct-f0 a>> ] unit-test
+[ 0x00ff ] [ endian-test-struct-f0 b>> ] unit-test
 
-[ HEX: ff000000 ] [ endian-test-struct-f0 g>> ] unit-test
+[ 0xff000000 ] [ endian-test-struct-f0 g>> ] unit-test
 [ -16777216 ] [ endian-test-struct-f0 h>> ] unit-test
-[ HEX: 000000ff ] [ endian-test-struct-f0 e>> ] unit-test
-[ HEX: 000000ff ] [ endian-test-struct-f0 f>> ] unit-test
+[ 0x000000ff ] [ endian-test-struct-f0 e>> ] unit-test
+[ 0x000000ff ] [ endian-test-struct-f0 f>> ] unit-test
 
-[ HEX: ff00000000000000 ] [ endian-test-struct-f0 k>> ] unit-test
+[ 0xff00000000000000 ] [ endian-test-struct-f0 k>> ] unit-test
 [ -72057594037927936 ] [ endian-test-struct-f0 l>> ] unit-test
-[ HEX: 00000000000000ff ] [ endian-test-struct-f0 i>> ] unit-test
-[ HEX: 00000000000000ff ] [ endian-test-struct-f0 j>> ] unit-test
+[ 0x00000000000000ff ] [ endian-test-struct-f0 i>> ] unit-test
+[ 0x00000000000000ff ] [ endian-test-struct-f0 j>> ] unit-test
 
 [ t ]
 [ endian-test-struct-0f binary [ write ] with-byte-writer endian-bytes-0f = ] unit-test