41 lines
895 B
Factor
41 lines
895 B
Factor
|
! Copyright (C) 2007 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: namespaces math words kernel alien byte-arrays
|
||
|
|
hashtables vectors strings sbufs arrays bit-arrays
|
||
|
|
float-arrays quotations assocs layouts tuples ;
|
||
|
|
|
||
|
|
BIN: 111 tag-mask set
|
||
|
|
8 num-tags set
|
||
|
|
3 tag-bits set
|
||
|
|
|
||
|
|
23 num-types set
|
||
|
|
|
||
|
|
H{
|
||
|
|
{ fixnum BIN: 000 }
|
||
|
|
{ bignum BIN: 001 }
|
||
|
|
{ tuple BIN: 010 }
|
||
|
|
{ object BIN: 011 }
|
||
|
|
{ ratio BIN: 100 }
|
||
|
|
{ float BIN: 101 }
|
||
|
|
{ complex BIN: 110 }
|
||
|
|
{ POSTPONE: f BIN: 111 }
|
||
|
|
} tag-numbers set
|
||
|
|
|
||
|
|
tag-numbers get H{
|
||
|
|
{ array 8 }
|
||
|
|
{ wrapper 9 }
|
||
|
|
{ hashtable 10 }
|
||
|
|
{ vector 11 }
|
||
|
|
{ string 12 }
|
||
|
|
{ sbuf 13 }
|
||
|
|
{ quotation 14 }
|
||
|
|
{ dll 15 }
|
||
|
|
{ alien 16 }
|
||
|
|
{ word 17 }
|
||
|
|
{ byte-array 18 }
|
||
|
|
{ bit-array 19 }
|
||
|
|
{ float-array 20 }
|
||
|
|
{ curry 21 }
|
||
|
|
{ callstack 22 }
|
||
|
|
} union type-numbers set
|