core/bootstrap/layouts/layouts.factor

   1 ! Copyright (C) 2007, 2008 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
   5 quotations assocs layouts classes.tuple.private
   6 kernel.private ;
   7
   8 BIN: 111 tag-mask set
   9 8 num-tags set
  10 3 tag-bits set
  11
  12 18 num-types set
  13
  14 H{
  15     { fixnum      BIN: 000 }
  16     { bignum      BIN: 001 }
  17     { tuple       BIN: 010 }
  18     { object      BIN: 011 }
  19     { hi-tag      BIN: 011 }
  20     { ratio       BIN: 100 }
  21     { float       BIN: 101 }
  22     { complex     BIN: 110 }
  23     { POSTPONE: f BIN: 111 }
  24 } tag-numbers set
  25
  26 tag-numbers get H{
  27     { array 8 }
  28     { wrapper 9 }
  29     { byte-array 10 }
  30     { callstack 11 }
  31     { string 12 }
  32     { tuple-layout 13 }
  33     { quotation 14 }
  34     { dll 15 }
  35     { alien 16 }
  36     { word 17 }
  37 } assoc-union type-numbers set