/*

    atr.c

    ISO 7816 ICC's answer to reset abstract data type implementation

    This file is part of the Unix driver for Towitoko smartcard readers

    Copyright (C) 2000 Carlos Prados <cprados@yahoo.com>

    This library is free software; you can redistribute it and/or

    modify it under the terms of the GNU Lesser General Public

    License as published by the Free Software Foundation; either

    version 2 of the License, or (at your option) any later version.

    This library is distributed in the hope that it will be useful,

    but WITHOUT ANY WARRANTY; without even the implied warranty of

    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

    Lesser General Public License for more details.

	You should have received a copy of the GNU Lesser General Public License

	along with this library; if not, write to the Free Software Foundation,

	Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

*/

#include <config.h>

#include "atr.h"

#ifdef HAVE_STRING_H

#include <string.h>

#endif

#include "debug.h"

/*

 * Not exported variables definition

 */

static unsigned

atr_num_ib_table[16] =

{

  0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 4

};

/*

 * Exported variables definition

 */

static unsigned

atr_f_table[16] =

{

  372, 372, 558, 744, 1116, 1488, 1860, 0, 0, 512, 768, 1024, 1536, 2048, 0, 0

};

static unsigned

atr_d_table[16] =

{

  0, 1, 2, 4, 8, 16, 32, 64, 12, 20, 0, 0, 0, 0, 0, 0

};

static unsigned

atr_i_table[4] =

{

  25, 50, 100, 0

};

/*

 * Exported functions definition

 */

int

ATR_InitFromArray (ATR_t * atr, const BYTE atr_buffer[ATR_MAX_SIZE], unsigned length)

{

  BYTE TDi;

  unsigned pointer = 0, pn = 0;

  /* Check size of buffer */

  if (length < 2)

    return (ATR_MALFORMED);

  /* Store T0 and TS */

  atr->TS = atr_buffer[0];

  atr->T0 = TDi = atr_buffer[1];

  pointer = 1;

  /* Store number of historical bytes */

  atr->hbn = TDi & 0x0F;

  /* TCK is not present by default */

  (atr->TCK).present = FALSE;

  /* Extract interface bytes */

  while (pointer < length)

    {

      /* Check buffer is long enought */

      if (pointer + atr_num_ib_table[(0xF0 & TDi) >> 4] >= length)

	{

	  return (ATR_MALFORMED);

	}

      /* Check TAi is present */

      if ((TDi | 0xEF) == 0xFF)

	{

	  pointer++;

	  atr->ib[pn][ATR_INTERFACE_BYTE_TA].value = atr_buffer[pointer];

	  atr->ib[pn][ATR_INTERFACE_BYTE_TA].present = TRUE;

	}

      else

	atr->ib[pn][ATR_INTERFACE_BYTE_TA].present = FALSE;

      /* Check TBi is present */

      if ((TDi | 0xDF) == 0xFF)

	{

	  pointer++;

	  atr->ib[pn][ATR_INTERFACE_BYTE_TB].value = atr_buffer[pointer];

	  atr->ib[pn][ATR_INTERFACE_BYTE_TB].present = TRUE;

	}

      else

	atr->ib[pn][ATR_INTERFACE_BYTE_TB].present = FALSE;

      /* Check TCi is present */

      if ((TDi | 0xBF) == 0xFF)

	{

	  pointer++;

	  atr->ib[pn][ATR_INTERFACE_BYTE_TC].value = atr_buffer[pointer];

	  atr->ib[pn][ATR_INTERFACE_BYTE_TC].present = TRUE;

	}

      else

	atr->ib[pn][ATR_INTERFACE_BYTE_TC].present = FALSE;

      /* Read TDi if present */

      if ((TDi | 0x7F) == 0xFF)

	{

	  pointer++;

	  TDi = atr->ib[pn][ATR_INTERFACE_BYTE_TD].value = atr_buffer[pointer];

	  atr->ib[pn][ATR_INTERFACE_BYTE_TD].present = TRUE;

	  (atr->TCK).present = ((TDi & 0x0F) != ATR_PROTOCOL_TYPE_T0);

	  pn++;

	  if (pn >= ATR_MAX_PROTOCOLS)

	    return (ATR_MALFORMED);

	}

      else

	{

	  atr->ib[pn][ATR_INTERFACE_BYTE_TD].present = FALSE;

	  break;

	}

    }

  /* Store number of protocols */

  atr->pn = pn + 1;

  /* Store historical bytes */

  if (pointer + atr->hbn >= length)

    return (ATR_MALFORMED);

  memcpy (atr->hb, atr_buffer + pointer + 1, atr->hbn);

  pointer += (atr->hbn);

  /* Store TCK  */

  if ((atr->TCK).present)

    {

      if (pointer + 1 >= length)

	return (ATR_MALFORMED);

      pointer++;

      (atr->TCK).value = atr_buffer[pointer];

    }

  atr->length = pointer + 1;

  return (ATR_OK);

}

int

ATR_GetConvention (ATR_t * atr, int *convention)

{

  if (atr->TS == 0x3B)

    (*convention) = ATR_CONVENTION_DIRECT;

  else if (atr->TS == 0x3F)

    (*convention) = ATR_CONVENTION_INVERSE;

  else

    return (ATR_MALFORMED);

  return (ATR_OK);

}

int

ATR_GetIntegerValue (ATR_t * atr, int name, BYTE * value)

{

  int ret;

  if (name == ATR_INTEGER_VALUE_FI)

    {

      if (atr->ib[0][ATR_INTERFACE_BYTE_TA].present)

	{

	  (*value) = (atr->ib[0][ATR_INTERFACE_BYTE_TA].value & 0xF0) >> 4;

	  ret = ATR_OK;

	}

      else

	ret = ATR_NOT_FOUND;

    }

  else if (name == ATR_INTEGER_VALUE_DI)

    {

      if (atr->ib[0][ATR_INTERFACE_BYTE_TA].present)

	{

	  (*value) = (atr->ib[0][ATR_INTERFACE_BYTE_TA].value & 0x0F);

	  ret = ATR_OK;

	}

      else

	ret = ATR_NOT_FOUND;

    }

  else if (name == ATR_INTEGER_VALUE_II)

    {

      if (atr->ib[0][ATR_INTERFACE_BYTE_TB].present)

	{

	  (*value) = (atr->ib[0][ATR_INTERFACE_BYTE_TB].value & 0x60) >> 5;

	  ret = ATR_OK;

	}

      else

	ret = ATR_NOT_FOUND;

    }

  else if (name == ATR_INTEGER_VALUE_PI1)

    {

      if (atr->ib[0][ATR_INTERFACE_BYTE_TB].present)

	{

	  (*value) = (atr->ib[0][ATR_INTERFACE_BYTE_TB].value & 0x1F);

	  ret = ATR_OK;

	}

      else

	ret = ATR_NOT_FOUND;

    }

  else if (name == ATR_INTEGER_VALUE_PI2)

    {

      if (atr->ib[1][ATR_INTERFACE_BYTE_TB].present)

	{

	  (*value) = atr->ib[1][ATR_INTERFACE_BYTE_TB].value;

	  ret = ATR_OK;

	}

      else

	ret = ATR_NOT_FOUND;

    }

  else if (name == ATR_INTEGER_VALUE_N)

    {

      if (atr->ib[0][ATR_INTERFACE_BYTE_TC].present)

	{

	  (*value) = atr->ib[0][ATR_INTERFACE_BYTE_TC].value;

	  ret = ATR_OK;

	}

      else

	ret = ATR_NOT_FOUND;

    }

  else

    ret = ATR_NOT_FOUND;

  return ret;

}

int

ATR_GetParameter (ATR_t * atr, int name, double *parameter)

{

  BYTE FI, DI, II, PI1, PI2, N;

  if (name == ATR_PARAMETER_F)

    {

      if (ATR_GetIntegerValue (atr, ATR_INTEGER_VALUE_FI, &FI) == ATR_OK)

	(*parameter) = (double) (atr_f_table[FI]);

      else

	(*parameter) = (double) ATR_DEFAULT_F;

      return (ATR_OK);

    }

  else if (name == ATR_PARAMETER_D)

    {

      if (ATR_GetIntegerValue (atr, ATR_INTEGER_VALUE_DI, &DI) == ATR_OK)

	(*parameter) = (double) (atr_d_table[DI]);

      else

	(*parameter) = (double) ATR_DEFAULT_D;

      return (ATR_OK);

    }

  else if (name == ATR_PARAMETER_I)

    {

      if (ATR_GetIntegerValue (atr, ATR_INTEGER_VALUE_II, &II) == ATR_OK)

	(*parameter) = (double) (atr_i_table[II]);

      else

	(*parameter) = ATR_DEFAULT_I;

      return (ATR_OK);

    }

  else if (name == ATR_PARAMETER_P)

    {

      if (ATR_GetIntegerValue (atr, ATR_INTEGER_VALUE_PI2, &PI2) == ATR_OK)

	(*parameter) = (double) PI2;

      else if (ATR_GetIntegerValue (atr, ATR_INTEGER_VALUE_PI1, &PI1) == ATR_OK)

	(*parameter) = (double) PI1;

      else

	(*parameter) = (double) ATR_DEFAULT_P;

      return (ATR_OK);

    }

  else if (name == ATR_PARAMETER_N)

    {

      if (ATR_GetIntegerValue (atr, ATR_INTEGER_VALUE_N, &N) == ATR_OK)

	(*parameter) = (double) N;

      else

	(*parameter) = (double) ATR_DEFAULT_N;

      return (ATR_OK);

    }

  return (ATR_NOT_FOUND);

}

/*

 * This function was greatly inspired by ATRDecodeAtr() and

 * PHGetDefaultProtocol() from pcsc-lite

 *

 * It was rewritten by Ludovic Rousseau, 2004

 */

#define PROTOCOL_UNSET -1

int ATR_GetDefaultProtocol(ATR_t * atr, int *protocol, int *availableProtocols)

{

	int i;

	/* default value */

	*protocol = PROTOCOL_UNSET;

	if (availableProtocols)

		*availableProtocols = 0;

	for (i=0; i

		if (atr->ib[i][ATR_INTERFACE_BYTE_TD].present)

		{

			int T = atr->ib[i][ATR_INTERFACE_BYTE_TD].value & 0x0F;

			DEBUG_COMM2("T=%d Protocol Found", T);

			if (availableProtocols)

				*availableProtocols |= 1 << T;

			if (PROTOCOL_UNSET == *protocol)

			{

				/* set to the first protocol byte found */

				*protocol = T;

				DEBUG_COMM2("default protocol: T=%d", *protocol);

			}

		}

	/* specific mode if TA2 present */

	if (atr->ib[1][ATR_INTERFACE_BYTE_TA].present)

	{

		*protocol = atr->ib[1][ATR_INTERFACE_BYTE_TA].value & 0x0F;

		if (availableProtocols)

			*availableProtocols = 1 << *protocol;

		DEBUG_COMM2("specific mode found: T=%d", *protocol);

	}

	if (PROTOCOL_UNSET == *protocol)

	{

		DEBUG_INFO1("no default protocol found in ATR. Using T=0");

		*protocol = ATR_PROTOCOL_TYPE_T0;

		if (availableProtocols)

			*availableProtocols = 1 << *protocol;

	}

	return ATR_OK;

}