magic/vm-src/t_hdr.c

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>

#include "headers.h"

void t_hdr() {
  scm h;

  h = make_header(0, 0x32, 0x55);
  printf("%ld %lx %lx\n",
	 header_color(h),
	 header_raw_size(h),
	 header_scm_size(h)
	 );
  h = color_header(h, 1);
  printf("%ld %lx %lx\n",
	 header_color(h),
	 header_raw_size(h),
	 header_scm_size(h)
	 );
  
  h = make_header(1, 0xFFFE, 0x2222);
  printf("%ld %lx %lx\n",
	 header_color(h),
	 header_raw_size(h),
	 header_scm_size(h)
	 );
  h = color_header(h, 0);
  printf("%ld %lx %lx\n",
	 header_color(h),
	 header_raw_size(h),
	 header_scm_size(h)
	 );
  
  h = make_header(0, 0xBAFE, 0xFFFF);
  printf("%ld %lx %lx\n",
	 header_color(h),
	 header_raw_size(h),
	 header_scm_size(h)
	 );
  h = color_header(h, 1);
  printf("%ld %lx %lx\n",
	 header_color(h),
	 header_raw_size(h),
	 header_scm_size(h)
	 );
}