shithub: femtolisp

ref: 87f00731e2864debf2efe657de5181fbe5e17a72
dir: /llt/dump.c/

#include "llt.h"

static char hexdig[] = "0123456789abcdef";

/*
  display a given number of bytes from a buffer, with the first
  address label being startoffs
*/
void
hexdump(ios_t *dest, const char *buffer, size_t len, size_t startoffs)
{
	size_t offs = 0;
	size_t i, pos;
	char ch, linebuffer[16], hexc[4];
	static const char *spc50 = "                                                  ";

	hexc[2] = hexc[3] = ' ';
	do{
		ios_printf(dest, "%.8x  ", offs+startoffs);
		pos = 10;
		for(i = 0; i < 16 && offs < len; i++, offs++){
			ch = buffer[offs];
			linebuffer[i] = (ch < 32 || ch >= 0x7f) ? '.' : ch;
			hexc[0] = hexdig[((uint8_t)ch)>>4];
			hexc[1] = hexdig[ch & 0x0f];
			pos += ios_write(dest, hexc, (i == 7 || i == 15) ? 4 : 3);
		}
		for(; i < 16; i++)
			linebuffer[i] = ' ';
		ios_write(dest, spc50, 60-pos);
		ios_putc('|', dest);
		ios_write(dest, linebuffer, 16);
		ios_write(dest, "|\n", 2);
	}while(offs < len);
}