#include <exec/types.h>
#include <graphics/displayinfo.h>
#include <stdio.h>
#include <string.h>

#include <clib/graphics_protos.h>
#include <clib/utility_protos.h>

/*****************************************************************************/

#define MONITOR_PART(id) ((id) & MONITOR_ID_MASK)

/*****************************************************************************/

BOOL NameMode (ULONG modeID, STRPTR result)
{
  struct NameInfo nameInfo;
  struct DisplayInfo dispInfo;
  struct DimensionInfo dimInfo;
  struct MonitorInfo monInfo;
  char buffer[DISPLAYNAMELEN + 1];
  UWORD len;
  DisplayInfoHandle dh;

  result[0] = 0;

  dh = FindDisplayInfo (modeID);
  if (GetDisplayInfoData (dh, (APTR) & dispInfo, sizeof (struct DisplayInfo),
                          DTAG_DISP, INVALID_ID), INVALID_ID)
  {
    if (!dispInfo.NotAvailable)
    {
      if (GetDisplayInfoData (dh, (APTR) & dimInfo, sizeof (struct DimensionInfo),
                              DTAG_DIMS, INVALID_ID))
      {
	/* Get name or make one if no name available */
	if (GetDisplayInfoData (dh, (APTR) & nameInfo, sizeof (struct NameInfo),
	                        DTAG_NAME, INVALID_ID))
	{
	  strcpy (result, nameInfo.Name);
	  return (TRUE);
	}
	else
	{
	  if (GetDisplayInfoData (dh, (APTR) & monInfo, sizeof (struct MonitorInfo),
	                          DTAG_MNTR, INVALID_ID))
	  {
	    if ((monInfo.Mspc) && (monInfo.Mspc->ms_Node.xln_Name))
	    {
	      strcpy (buffer, monInfo.Mspc->ms_Node.xln_Name);
	      len = strlen (buffer);
	      if ((len > 8) && (Strnicmp (&buffer[len - 8], ".monitor", len - 8)
	                                                                     == 0))
	      {
		buffer[len - 8] = 0;
		len -= 8;
	      }

	      while (len > 0)
		buffer[--len] = ToUpper (buffer[len]);
	    }
	  }

	  sprintf (result, "%s:%lu x %lu %s%s%s",
		   buffer,
		   (dimInfo.Nominal.MaxX - dimInfo.Nominal.MinX + 1),
		   (dimInfo.Nominal.MaxY - dimInfo.Nominal.MinY + 1),
		   (dispInfo.PropertyFlags & DIPF_IS_HAM) ? "HAM " :
		   (dispInfo.PropertyFlags & DIPF_IS_EXTRAHALFBRITE) ? "EHB " : "",
		   (dispInfo.PropertyFlags & DIPF_IS_PF2PRI) ? "DPF2 " :
		   (dispInfo.PropertyFlags & DIPF_IS_DUALPF) ? "DPF " : "",
		   (dispInfo.PropertyFlags & DIPF_IS_LACE) ? "Laced " : "", "");

	  return (TRUE);
	}
      }
    }
  }

  return (FALSE);
}

/*****************************************************************************/

void main (void)
{
  ULONG modeID;
  char name[64];

  modeID = INVALID_ID;
  while ((modeID = NextDisplayInfo (modeID)) != INVALID_ID)
  {
    if (MONITOR_PART (modeID))	/* ignore "default" monitor */
    {
      if (NameMode (modeID, name))
      {
	printf ("%s\n", name);
      }
    }
  }
}