#include <stdio.h>

 #include <string.h>

 #include <sys/stat.h>

 #include <sys/mman.h>

 #include <fcntl.h>

 #include <unistd.h>

 #include <arpa/inet.h>

 #include <rpm/rpmlib.h>

 #define	RPM_LEAD_SIZE 96

 struct rpm_lead {

 	unsigned char magic[4];

 	unsigned char major;

 	unsigned char minor;

 	short type;

 	short archnum;

 	char name[66];

 	short osnum;

 	short signature_type;

 	char reserved[16];

 };

 struct rpm_header {

 	unsigned char magic[4];

 	unsigned char reserved[4];

 	int nindex;

 	int hsize;

 };

 struct rpm_header_index {

 	int tag;

 	int type;

 	int offset;

 	int count;

 };

 #define ALIGN(value, base) (((value) + (base - 1)) & ~((base) - 1))

 static void dump_header(struct rpm_header *header)

 {

 	struct rpm_header_index *base, *index;

 	int i, j, nindex, tag, offset, type, count;

 	char *pool, *name;

 	nindex = ntohl(header->nindex);

 	printf("header index records: %d\n", nindex);

 	printf("header storage size: %d\n", ntohl(header->hsize));

 	base = (struct rpm_header_index *) (header + 1);

 	pool = (void *) (header + 1) + nindex * sizeof *index;

 	printf("headers:\n");

 	for (i = 0; i < nindex; i++) {

 		index = base + i;

 		tag = ntohl(index->tag);

 		offset = ntohl(index->offset);

 		type = ntohl(index->type);

 		count = ntohl(index->count);

 		printf("  0x%08x 0x%08x 0x%08x 0x%08x\n",

 		       tag, type, offset, count);

 		switch (tag) {

 		case RPMTAG_NAME:

 			name = "name";

 			break;

 		case RPMTAG_VERSION:

 			name = "version";

 			break;

 		case RPMTAG_RELEASE:

 			name = "release";

 			break;

 		case RPMTAG_REQUIRENAME:

 			name = "requires";

 			break;

 		default:

 			name = "unknown";

 			break;

 		}

 		switch (type) {

 		case RPM_STRING_TYPE:

 			printf("    (%s %s)\n", name, pool + offset);

 			break;

 		case RPM_STRING_ARRAY_TYPE:

 			printf("    (%s", name);

 			for (j = 0; j < count; j++) {

 				printf(" %s", pool + offset);

 				offset += strlen(pool + offset) + 1;

 			}

 			printf(")\n");

 			break;

 		}

 	}

 }

 void

 razor_rpm_dump(const char *filename)

 {

 	struct stat buf;

 	void *p;

 	int fd, nindex, hsize;

 	struct rpm_header *signature, *header;

 	struct rpm_header_index *index;

 	if (stat(filename, &buf) < 0) {

 		fprintf(stderr, "no such file %s\n", filename);

 		return;

 	}

 	fd = open(filename, O_RDONLY);

 	p = mmap(NULL, buf.st_size, PROT_READ, MAP_PRIVATE, fd, 0);

 	close(fd);

 	printf("%s: %ldkB\n", filename, buf.st_size / 1024);

 	signature = p + RPM_LEAD_SIZE;

 	nindex = ntohl(signature->nindex);

 	hsize = ntohl(signature->hsize);

 	header = (void *) (signature + 1) +

 		ALIGN(nindex * sizeof *index + hsize, 8);

 	dump_header(signature);

 	dump_header(header);

 	munmap(p, buf.st_size);

 }