/*

   * (C) Copyright 2000-2006

   * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
   *

   * SPDX-License-Identifier:	GPL-2.0+

   *
   ********************************************************************
   *
   * Lots of code copied from:
   *
   * m8xx_pcmcia.c - Linux PCMCIA socket driver for the mpc8xx series.
   * (C) 1999-2000 Magnus Damm <damm@bitsmart.com>
   *
   * "The ExCA standard specifies that socket controllers should provide
   * two IO and five memory windows per socket, which can be independently
   * configured and positioned in the host address space and mapped to
   * arbitrary segments of card address space. " - David A Hinds. 1999
   *
   * This controller does _not_ meet the ExCA standard.
   *
   * m8xx pcmcia controller brief info:
   * + 8 windows (attrib, mem, i/o)
   * + up to two slots (SLOT_A and SLOT_B)
   * + inputpins, outputpins, event and mask registers.
   * - no offset register. sigh.
   *
   * Because of the lacking offset register we must map the whole card.
   * We assign each memory window PCMCIA_MEM_WIN_SIZE address space.
   * Make sure there is (PCMCIA_MEM_WIN_SIZE * PCMCIA_MEM_WIN_NO
   * * PCMCIA_SOCKETS_NO) bytes at PCMCIA_MEM_WIN_BASE.
   * The i/o windows are dynamically allocated at PCMCIA_IO_WIN_BASE.
   * They are maximum 64KByte each...
   */
  
  /* #define DEBUG	1	*/
  
  /*
   * PCMCIA support
   */
  #include <common.h>
  #include <command.h>
  #include <config.h>
  #include <pcmcia.h>

  #include <asm/io.h>

  /* -------------------------------------------------------------------- */

  #if defined(CONFIG_CMD_PCMCIA)

  extern int pcmcia_on (void);
  extern int pcmcia_off (void);

  int do_pinit (cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[])

  {
  	int rcode = 0;
  
  	if (argc != 2) {
  		printf ("Usage: pinit {on | off}
  ");
  		return 1;
  	}
  	if (strcmp(argv[1],"on") == 0) {

  		rcode = pcmcia_on ();

  	} else if (strcmp(argv[1],"off") == 0) {
  		rcode = pcmcia_off ();
  	} else {
  		printf ("Usage: pinit {on | off}
  ");
  		return 1;
  	}
  
  	return rcode;
  }

  U_BOOT_CMD(

  	pinit,	2,	0,	do_pinit,

  	"PCMCIA sub-system",

  	"on  - power on PCMCIA socket
  "

  	"pinit off - power off PCMCIA socket"
  );

  #endif

  /* -------------------------------------------------------------------- */

  #undef	CHECK_IDE_DEVICE

  #if defined(CONFIG_CMD_IDE) && defined(CONFIG_IDE_8xx_PCCARD)

  #define	CHECK_IDE_DEVICE

  #endif

  
  #if	defined(CONFIG_PXA_PCMCIA)
  #define	CHECK_IDE_DEVICE

  #endif

  #ifdef	CHECK_IDE_DEVICE

  int		ide_devices_found;
  static uchar	*known_cards[] = {
  	(uchar *)"ARGOSY PnPIDE D5",
  	NULL
  };

  #define	MAX_TUPEL_SZ	512
  #define MAX_FEATURES	4

  #define MAX_IDENT_CHARS		64
  #define	MAX_IDENT_FIELDS	4

  #define	indent	"\t   "

  static void print_funcid (int func)
  {
  	puts (indent);
  	switch (func) {
  		case CISTPL_FUNCID_MULTI:
  			puts (" Multi-Function");

  			break;

  		case CISTPL_FUNCID_MEMORY:
  			puts (" Memory");

  			break;

  		case CISTPL_FUNCID_SERIAL:
  			puts (" Serial Port");

  			break;

  		case CISTPL_FUNCID_PARALLEL:
  			puts (" Parallel Port");

  			break;

  		case CISTPL_FUNCID_FIXED:
  			puts (" Fixed Disk");

  			break;

  		case CISTPL_FUNCID_VIDEO:
  			puts (" Video Adapter");
  			break;
  		case CISTPL_FUNCID_NETWORK:
  			puts (" Network Adapter");
  			break;
  		case CISTPL_FUNCID_AIMS:
  			puts (" AIMS Card");
  			break;
  		case CISTPL_FUNCID_SCSI:
  			puts (" SCSI Adapter");
  			break;
  		default:
  			puts (" Unknown");

  			break;

  	}

  	puts (" Card
  ");

  }

  static void print_fixed (volatile uchar *p)

  {

  	if (p == NULL)
  		return;

  	puts(indent);

  	switch (*p) {
  		case CISTPL_FUNCE_IDE_IFACE:
  		{   uchar iface = *(p+2);

  		puts ((iface == CISTPL_IDE_INTERFACE) ? " IDE" : " unknown");
  		puts (" interface ");
  		break;
  		}
  		case CISTPL_FUNCE_IDE_MASTER:
  		case CISTPL_FUNCE_IDE_SLAVE:
  		{   uchar f1 = *(p+2);
  		uchar f2 = *(p+4);

  		puts ((f1 & CISTPL_IDE_SILICON) ? " [silicon]" : " [rotating]");

  		if (f1 & CISTPL_IDE_UNIQUE)
  			puts (" [unique]");

  		puts ((f1 & CISTPL_IDE_DUAL) ? " [dual]" : " [single]");

  		if (f2 & CISTPL_IDE_HAS_SLEEP)
  			puts (" [sleep]");

  		if (f2 & CISTPL_IDE_HAS_STANDBY)
  			puts (" [standby]");

  		if (f2 & CISTPL_IDE_HAS_IDLE)
  			puts (" [idle]");

  		if (f2 & CISTPL_IDE_LOW_POWER)
  			puts (" [low power]");

  		if (f2 & CISTPL_IDE_REG_INHIBIT)
  			puts (" [reg inhibit]");

  		if (f2 & CISTPL_IDE_HAS_INDEX)
  			puts (" [index]");

  		if (f2 & CISTPL_IDE_IOIS16)
  			puts (" [IOis16]");

  		break;
  		}
  	}
  	putc ('
  ');

  }

  static int identify  (volatile uchar *p)

  {

  	uchar id_str[MAX_IDENT_CHARS];
  	uchar data;
  	uchar *t;
  	uchar **card;
  	int i, done;

  	if (p == NULL)
  		return (0);	/* Don't know */

  	t = id_str;
  	done =0;

  	for (i=0; i<=4 && !done; ++i, p+=2) {
  		while ((data = *p) != '\0') {
  			if (data == 0xFF) {
  				done = 1;
  				break;
  			}
  			*t++ = data;
  			if (t == &id_str[MAX_IDENT_CHARS-1]) {
  				done = 1;
  				break;
  			}
  			p += 2;
  		}
  		if (!done)
  			*t++ = ' ';

  	}

  	*t = '\0';
  	while (--t > id_str) {
  		if (*t == ' ')
  			*t = '\0';
  		else
  			break;
  	}
  	puts ((char *)id_str);
  	putc ('
  ');

  	for (card=known_cards; *card; ++card) {
  		debug ("## Compare against \"%s\"
  ", *card);
  		if (strcmp((char *)*card, (char *)id_str) == 0) {	/* found! */
  			debug ("## CARD FOUND ##
  ");
  			return (1);
  		}
  	}

  	return (0);	/* don't know */

  }

  int check_ide_device (int slot)

  {
  	volatile uchar *ident = NULL;
  	volatile uchar *feature_p[MAX_FEATURES];

  	volatile uchar *p, *start, *addr;

  	int n_features = 0;
  	uchar func_id = ~0;
  	uchar code, len;
  	ushort config_base = 0;
  	int found = 0;
  	int i;

  	addr = (volatile uchar *)(CONFIG_SYS_PCMCIA_MEM_ADDR +
  				  CONFIG_SYS_PCMCIA_MEM_SIZE * (slot * 4));

  	debug ("PCMCIA MEM: %08lX
  ", (ulong)addr);

  	start = p = (volatile uchar *) addr;

  
  	while ((p - start) < MAX_TUPEL_SZ) {
  
  		code = *p; p += 2;
  
  		if (code == 0xFF) { /* End of chain */
  			break;
  		}
  
  		len = *p; p += 2;
  #if defined(DEBUG) && (DEBUG > 1)
  		{ volatile uchar *q = p;
  			printf ("
  Tuple code %02x  length %d
  \tData:",
  				code, len);
  
  			for (i = 0; i < len; ++i) {
  				printf (" %02x", *q);
  				q+= 2;
  			}
  		}
  #endif	/* DEBUG */
  		switch (code) {
  		case CISTPL_VERS_1:
  			ident = p + 4;
  			break;
  		case CISTPL_FUNCID:
  			/* Fix for broken SanDisk which may have 0x80 bit set */
  			func_id = *p & 0x7F;
  			break;
  		case CISTPL_FUNCE:
  			if (n_features < MAX_FEATURES)
  				feature_p[n_features++] = p;
  			break;
  		case CISTPL_CONFIG:
  			config_base = (*(p+6) << 8) + (*(p+4));
  			debug ("
  ## Config_base = %04x ###
  ", config_base);
  		default:
  			break;
  		}
  		p += 2 * len;
  	}
  
  	found = identify (ident);
  
  	if (func_id != ((uchar)~0)) {
  		print_funcid (func_id);
  
  		if (func_id == CISTPL_FUNCID_FIXED)
  			found = 1;
  		else
  			return (1);	/* no disk drive */
  	}
  
  	for (i=0; i<n_features; ++i) {
  		print_fixed (feature_p[i]);
  	}
  
  	if (!found) {
  		printf ("unknown card type
  ");
  		return (1);
  	}

  	ide_devices_found |= (1 << slot);

  #if CONFIG_CPC45
  #else

  	/* set I/O area in config reg -> only valid for ARGOSY D5!!! */

  	*((uchar *)(addr + config_base)) = 1;

  #endif
  #if 0
  	printf("
  ## Config_base = %04x ###
  ", config_base);
  	printf("Configuration Option Register: %02x @ %x
  ", readb(addr + config_base), addr + config_base);
  	printf("Card Configuration and Status Register: %02x
  ", readb(addr + config_base + 2));
  	printf("Pin Replacement Register Register: %02x
  ", readb(addr + config_base + 4));
  	printf("Socket and Copy Register: %02x
  ", readb(addr + config_base + 6));
  #endif

  	return (0);
  }

  #endif	/* CHECK_IDE_DEVICE */