#include <stdio.h>

#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>

#include <sys/param.h>
#include <sun/dklabel.h>

main(int argc, char ** argv)
{
	int disk;

	struct fs		*ufs;
	struct dk_label		label;
	short				i;
	unsigned short		sum, *word;


	if ( -1 == ( disk = open( argv[1], O_RDONLY )))
	{
		perror(argv[1]);
		exit(1);
	}
	else
	{
		if ( sizeof(label) != read( disk, &label, sizeof(label) ))
			perror("read label");
		close(disk);

		fprintf(stdout,"%s\n",label.dkl_asciilabel);
		/* dkl_pad */
		fprintf(stdout,"%u\trotations per minute\n",label.dkl_rpm);
		fprintf(stdout,"%u\tphysical cylinders\n",label.dkl_pcyl);
		fprintf(stdout,"%u\talternates per cylinder\n",label.dkl_apc);
		fprintf(stdout,"%u\tinterleave factor\n",label.dkl_intrlv);
		fprintf(stdout,"%u\tdata cylinders\n",label.dkl_ncyl);
		fprintf(stdout,"%u\talternate cylinders\n",label.dkl_acyl);
		fprintf(stdout,"%u\theads in this partition\n",label.dkl_nhead);
		fprintf(stdout,"%u\t512 byte sectors per track\n",label.dkl_nsect);
		fprintf(stdout,"\t(This makes a %d Mb disk)\n",
				label.dkl_ncyl * label.dkl_nhead *
				label.dkl_nsect * 512 / 1024 / 1024);
		for( i=0; i<NDKMAP ; i++)
		{
			fprintf(stdout,"\t%d\tlogical partition\n", i);
			fprintf(stdout,"\t\t%d\tstarting cylinder\n",
				label.dkl_map[i].dkl_cylno);
			fprintf(stderr,"\t\t%d\tblocks (%d b, %d Kb, %d Mb)\n",
				label.dkl_map[i].dkl_nblk,
				label.dkl_map[i].dkl_nblk*512,
				label.dkl_map[i].dkl_nblk*512/1024,
				label.dkl_map[i].dkl_nblk*512/1024/1024
				);
		}
		fprintf(stdout,"0x%X\tmagic (should be 0x%X)\n",
			label.dkl_magic, DKL_MAGIC);

		for (
			word = (unsigned short *)&label, sum=0;
			word < ((unsigned short *)&label + sizeof(label)/sizeof(short) -1);
			word ++
			)
			sum ^= *word;

		fprintf(stdout,"0x%X\txor checksum of sector (calculated 0x%X)\n",
		label.dkl_cksum, sum);
	}
	exit ( 0 );
}