core/bootstrap/layouts/layouts.factor

   1 ! Copyright (C) 2007 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: namespaces math words kernel alien byte-arrays
   4 hashtables vectors strings sbufs arrays bit-arrays
   5 float-arrays quotations assocs layouts tuples ;
   6
   7 BIN: 111 tag-mask set
   8 8 num-tags set
   9 3 tag-bits set
  10
  11 23 num-types set
  12
  13 H{
  14     { fixnum      BIN: 000 }
  15     { bignum      BIN: 001 }
  16     { tuple       BIN: 010 }
  17     { object      BIN: 011 }
  18     { ratio       BIN: 100 }
  19     { float       BIN: 101 }
  20     { complex     BIN: 110 }
  21     { POSTPONE: f BIN: 111 }
  22 } tag-numbers set
  23
  24 tag-numbers get H{
  25     { array 8 }
  26     { wrapper 9 }
  27     { hashtable 10 }
  28     { vector 11 }
  29     { string 12 }
  30     { sbuf 13 }
  31     { quotation 14 }
  32     { dll 15 }
  33     { alien 16 }
  34     { word 17 }
  35     { byte-array 18 }
  36     { bit-array 19 }
  37     { float-array 20 }
  38     { curry 21 }
  39     { callstack 22 }
  40 } union type-numbers set