#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <sys/mman.h>
#include <unistd.h>
#include <fcntl.h>
#include <errno.h>
#include "vbe.h"
#include "vesamode.h"
#ident "$Id$"

#define SQR(x) ((x) * (x))

int main(void)
{
	int i, j;
	u_int16_t *mode_list, *mode_list_end;
	unsigned char hmin, hmax, vmin, vmax;
	struct vbe_info *vbe_info;
	struct vbe_edid1_info *edid;
	struct vbe_modeline *modelines;
#if KERNEL_BOOT_INFO
	u_int32_t page_size;
	int dev_mem_fd;
	char *mem;
#endif

	if ((vbe_info = vbe_get_vbe_info()) == NULL) return 1;
	printf("%dKB of video ram\n", vbe_info->memory_size * 64);

#if KERNEL_BOOT_INFO
	/* Open /dev/mem for extra information from VGA BIOS. */
	if ((dev_mem_fd = open("/dev/mem", O_RDONLY)) < 0) {
	  perror("open /dev/mem");
	  return 1;
	}
	page_size = getpagesize();
	mem = malloc(page_size);
	if (lseek(dev_mem_fd, vbe_info->mode_list.base, SEEK_SET) != vbe_info->mode_list.base)
	  return 1;
	if (read(dev_mem_fd, mem, page_size) != page_size)
	  return 1;
	mode_list = (u_int16_t *)mem;
	mode_list_end = (u_int16_t *)(mem + page_size);
#endif
#if defined(__i386__)
	mode_list = (u_int16_t *)vbe_info->mode_list.ptr;
	mode_list_end = (u_int16_t *)-2; /* this will always succeed */
#endif

	/* List supported standard modes. */
	while (mode_list < mode_list_end && *mode_list != 0xffff) {
	  for (i = 0; known_vesa_modes[i].x; i++)
	    if (known_vesa_modes[i].number == *mode_list)
	      printf("%d %d %d\n", 
		     known_vesa_modes[i].colors,
		     known_vesa_modes[i].x,
		     known_vesa_modes[i].y
		     );
	  mode_list++;
	}
	printf("\n");

#if KERNEL_BOOT_INFO
	free(mem);
	close(dev_mem_fd);
#endif

	if ((edid = vbe_get_edid_info()) == NULL) return 0;
	if (edid->version == 255 && edid->revision == 255) return 0;

	vbe_get_edid_ranges(edid, &hmin, &hmax, &vmin, &vmax);
	modelines = vbe_get_edid_modelines(edid);

	if (hmin > hmax || vmin > vmax) return 0;

	printf(hmin ? "%d-%d kHz HorizSync\n" : "\n", hmin, hmax);
	printf(vmin ? "%d-%d Hz VertRefresh\n" : "\n", vmin, vmax);

	if (edid->max_size_horizontal != 127 && edid->max_size_vertical != 127) { 
	  char manufacturer[4];
	  double size = sqrt(SQR(edid->max_size_horizontal) + 
			     SQR(edid->max_size_vertical)) / 2.54;
	  manufacturer[0] = edid->manufacturer_name.char1 + 'A' - 1;
	  manufacturer[1] = edid->manufacturer_name.char2 + 'A' - 1;
	  manufacturer[2] = edid->manufacturer_name.char3 + 'A' - 1;
	  manufacturer[3] = '\0';
	  printf(size ? "%3.2f inches monitor (truly %3.2f')  EISA ID=%s%04x\n" : "\n", size * 1.08, size, manufacturer, edid->product_code);
	}

	for(j=0; modelines && (modelines[j].refresh != 0); j++){
	  printf("# %dx%d, %1.1f%sHz",
		 modelines[j].width,
		 modelines[j].height,
		 modelines[j].refresh,
		 modelines[j].interlaced?"i":""
		 );
	  if(modelines[j].modeline) {
	    printf("; hfreq=%f, vfreq=%f\n%s\n",
		   modelines[j].hfreq,
		   modelines[j].vfreq,
		   modelines[j].modeline);
	  } else printf("\n");
	}
	return 0;
}