basis/alien/endian/endian-tests.factor

   1 ! Copyright (C) 2011 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors alien.endian classes.struct io
   4 io.encodings.binary io.streams.byte-array kernel tools.test
   5 alien.c-types ;
   6 IN: alien.endian.tests
   7
   8 STRUCT: endian-struct
   9     { a ule16 }
  10     { b le16 }
  11     { c ube16 }
  12     { d be16 }
  13     { e ule32 }
  14     { f le32 }
  15     { g ube32 }
  16     { h be32 }
  17     { i ule64 }
  18     { j le64 }
  19     { k ube64 }
  20     { l be64 } ;
  21
  22 CONSTANT: endian-bytes-0f B{
  23         HEX: 0 HEX: ff
  24         HEX: 0 HEX: ff
  25         HEX: 0 HEX: ff
  26         HEX: 0 HEX: ff
  27
  28         HEX: 0 HEX: 0 HEX: 0 HEX: ff
  29         HEX: 0 HEX: 0 HEX: 0 HEX: ff
  30         HEX: 0 HEX: 0 HEX: 0 HEX: ff
  31         HEX: 0 HEX: 0 HEX: 0 HEX: ff
  32
  33         HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: ff
  34         HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: ff
  35         HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: ff
  36         HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: ff
  37     }
  38
  39 CONSTANT: endian-bytes-f0 B{
  40         HEX: ff HEX: 0
  41         HEX: ff HEX: 0
  42         HEX: ff HEX: 0
  43         HEX: ff HEX: 0
  44
  45         HEX: ff HEX: 0 HEX: 0 HEX: 0
  46         HEX: ff HEX: 0 HEX: 0 HEX: 0
  47         HEX: ff HEX: 0 HEX: 0 HEX: 0
  48         HEX: ff HEX: 0 HEX: 0 HEX: 0
  49
  50         HEX: ff HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0
  51         HEX: ff HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0
  52         HEX: ff HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0
  53         HEX: ff HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0
  54     }
  55
  56 : endian-test-struct-0f ( -- obj )
  57     endian-bytes-0f endian-struct memory>struct ;
  58
  59 : endian-test-struct-f0 ( -- obj )
  60     endian-bytes-f0 endian-struct memory>struct ;
  61
  62 [ HEX: ff00 ] [ endian-test-struct-0f a>> ] unit-test
  63 [ -256 ] [ endian-test-struct-0f b>> ] unit-test
  64 [ HEX: 00ff ] [ endian-test-struct-0f c>> ] unit-test
  65 [ HEX: 00ff ] [ endian-test-struct-0f d>> ] unit-test
  66
  67 [ HEX: ff000000 ] [ endian-test-struct-0f e>> ] unit-test
  68 [ -16777216 ] [ endian-test-struct-0f f>> ] unit-test
  69 [ HEX: 000000ff ] [ endian-test-struct-0f g>> ] unit-test
  70 [ HEX: 000000ff ] [ endian-test-struct-0f h>> ] unit-test
  71
  72 [ HEX: ff00000000000000 ] [ endian-test-struct-0f i>> ] unit-test
  73 [ -72057594037927936 ] [ endian-test-struct-0f j>> ] unit-test
  74 [ HEX: 00000000000000ff ] [ endian-test-struct-0f k>> ] unit-test
  75 [ HEX: 00000000000000ff ] [ endian-test-struct-0f l>> ] unit-test
  76
  77
  78 [ HEX: ff00 ] [ endian-test-struct-f0 c>> ] unit-test
  79 [ -256 ] [ endian-test-struct-f0 d>> ] unit-test
  80 [ HEX: 00ff ] [ endian-test-struct-f0 a>> ] unit-test
  81 [ HEX: 00ff ] [ endian-test-struct-f0 b>> ] unit-test
  82
  83 [ HEX: ff000000 ] [ endian-test-struct-f0 g>> ] unit-test
  84 [ -16777216 ] [ endian-test-struct-f0 h>> ] unit-test
  85 [ HEX: 000000ff ] [ endian-test-struct-f0 e>> ] unit-test
  86 [ HEX: 000000ff ] [ endian-test-struct-f0 f>> ] unit-test
  87
  88 [ HEX: ff00000000000000 ] [ endian-test-struct-f0 k>> ] unit-test
  89 [ -72057594037927936 ] [ endian-test-struct-f0 l>> ] unit-test
  90 [ HEX: 00000000000000ff ] [ endian-test-struct-f0 i>> ] unit-test
  91 [ HEX: 00000000000000ff ] [ endian-test-struct-f0 j>> ] unit-test
  92
  93 [ t ]
  94 [ endian-test-struct-0f binary [ write ] with-byte-writer endian-bytes-0f = ] unit-test
  95
  96 [ t ]
  97 [ endian-test-struct-f0 binary [ write ] with-byte-writer endian-bytes-f0 = ] unit-test
  98
  99 LE-STRUCT: le-endian-struct
 100     { a ule16 }
 101     { b le16 }
 102     { c ube16 }
 103     { d be16 }
 104     { e ule32 }
 105     { f le32 }
 106     { g ube32 }
 107     { h be32 }
 108     { i ule64 }
 109     { j le64 }
 110     { k ube64 }
 111     { l be64 } ;
 112
 113 [ t ]
 114 [
 115     endian-bytes-0f le-endian-struct memory>struct
 116     binary [ write ] with-byte-writer endian-bytes-0f =
 117 ] unit-test
 118
 119 [ t ]
 120 [
 121     endian-bytes-f0 le-endian-struct memory>struct
 122     binary [ write ] with-byte-writer endian-bytes-f0 =
 123 ] unit-test
 124
 125
 126 BE-STRUCT: be-endian-struct
 127     { a ule16 }
 128     { b le16 }
 129     { c ube16 }
 130     { d be16 }
 131     { e ule32 }
 132     { f le32 }
 133     { g ube32 }
 134     { h be32 }
 135     { i ule64 }
 136     { j le64 }
 137     { k ube64 }
 138     { l be64 } ;
 139
 140 [ t ]
 141 [
 142     endian-bytes-0f be-endian-struct memory>struct
 143     binary [ write ] with-byte-writer endian-bytes-0f =
 144 ] unit-test
 145
 146 [ t ]
 147 [
 148     endian-bytes-f0 be-endian-struct memory>struct
 149     binary [ write ] with-byte-writer endian-bytes-f0 =
 150 ] unit-test
 151
 152 LE-STRUCT: le-override-struct
 153     { a ushort }
 154     { b short }
 155     { c ube16 }
 156     { d be16 }
 157     { e uint }
 158     { f int }
 159     { g ube32 }
 160     { h be32 }
 161     { i ulonglong }
 162     { j longlong }
 163     { k ube64 }
 164     { l be64 } ;
 165
 166 [ t ]
 167 [
 168     endian-bytes-0f le-override-struct memory>struct
 169     binary [ write ] with-byte-writer endian-bytes-0f =
 170 ] unit-test
 171
 172 [ t ]
 173 [
 174     endian-bytes-f0 le-override-struct memory>struct
 175     binary [ write ] with-byte-writer endian-bytes-f0 =
 176 ] unit-test
 177
 178 BE-STRUCT: be-override-struct
 179     { a ule16 }
 180     { b le16 }
 181     { c ushort }
 182     { d short }
 183     { e ule32 }
 184     { f le32 }
 185     { g uint }
 186     { h int }
 187     { i ule64 }
 188     { j le64 }
 189     { k ulonglong }
 190     { l longlong } ;
 191
 192 [ t ]
 193 [
 194     endian-bytes-0f be-override-struct memory>struct
 195     binary [ write ] with-byte-writer endian-bytes-0f =
 196 ] unit-test
 197
 198 [ t ]
 199 [
 200     endian-bytes-f0 be-override-struct memory>struct
 201     binary [ write ] with-byte-writer endian-bytes-f0 =
 202 ] unit-test
 203
 204
 205 LE-PACKED-STRUCT: le-packed-struct
 206     { a char[7] }
 207     { b int } ;
 208
 209 [ t ]
 210 [
 211     B{ 0 0 0 0 0 0 0  3 0 0 0 } [
 212         le-packed-struct memory>struct
 213         binary [ write ] with-byte-writer
 214     ] keep =
 215 ] unit-test
 216
 217 [ 3 ]
 218 [
 219     B{ 0 0 0 0 0 0 0  3 0 0 0 } le-packed-struct memory>struct
 220     b>>
 221 ] unit-test
 222
 223
 224 BE-PACKED-STRUCT: be-packed-struct
 225     { a char[7] }
 226     { b int } ;
 227
 228 [ t ]
 229 [
 230     B{ 0 0 0 0 0 0 0  0 0 0 3 } [
 231         be-packed-struct memory>struct
 232         binary [ write ] with-byte-writer
 233     ] keep =
 234 ] unit-test
 235
 236 [ 3 ]
 237 [
 238     B{ 0 0 0 0 0 0 0  0 0 0 3 } be-packed-struct memory>struct
 239     b>>
 240 ] unit-test
 241