// Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).
// All rights reserved.
// This component and the accompanying materials are made available
// under the terms of "Eclipse Public License v1.0"
// which accompanies this distribution, and is available
// at the URL "http://www.eclipse.org/legal/epl-v10.html".
//
// Initial Contributors:
// Nokia Corporation - initial contribution.
//
// Contributors:
//
// Description:
// Name        : iswctype.cpp
// Part of     : LIBC
// Contains the source for fchdir
// Version     : 1.0
//


 
#include <e32std.h>
#include <wctype.h>

extern "C" {
//-----------------------------------------------------------------------------
//Function Name : int iswalpha(wint_t i)
//Description   : tests whether wc is a wide character belonging to the wide
//character class "alpha".
//Return Value  : returns  non-zero  if  i is  a  wide  character belonging to
//the  wide  character class "alpha". Otherwise it returns zero.
//-----------------------------------------------------------------------------
EXPORT_C int iswalpha(wint_t i)
{
	TChar::TCharInfo uInfo;

	TChar((TUint)i).GetInfo(uInfo);
	if((uInfo.iCategory == (TChar::ELuCategory))  || 
	 	(uInfo.iCategory == (TChar::ELlCategory)) ||
	 	(uInfo.iCategory == (TChar::ELtCategory)) ||
	 	(uInfo.iCategory == (TChar::ELoCategory)))
	{
		return (1);
	}
	else
	{
		return (0);
	}
} //end of function

//-----------------------------------------------------------------------------
//Function Name : int iswalnum(wint_t i)
//Description   : tests whether wc is a wide character belonging to the wide
//character class "alnum".
//Return Value  : returns  non-zero  if  i is  a  wide  character belonging to
//the  wide  character class "alnum". Otherwise it returns zero.
//-----------------------------------------------------------------------------
EXPORT_C int iswalnum(wint_t i)
{
	TChar::TCharInfo uInfo;
	
	TChar((TUint)i).GetInfo(uInfo);
	if((uInfo.iCategory == (TChar::ENdCategory)) || 
		(uInfo.iCategory == (TChar::ELlCategory)) || 
		(uInfo.iCategory == (TChar::ELuCategory)) ||
	 	(uInfo.iCategory == (TChar::ELtCategory)) ||
	 	(uInfo.iCategory == (TChar::ELoCategory)))
	{
		return (1);
	}
	else
	{
		return (0);
	}
} //end of function

//-----------------------------------------------------------------------------
//Function Name : int iswblank(wint_t i)
//Description   : tests whether wc is a wide character belonging to the wide
//character class "blank".
//Return Value  : returns  non-zero  if  i is  a  wide  character belonging to
//the  wide  character class "blank". Otherwise it returns zero.
//-----------------------------------------------------------------------------
EXPORT_C int iswblank(wint_t i)
{
	const TUint KHorizontalTab = 0x09;
	TChar::TCharInfo uInfo;
	
	TChar((TUint)i).GetInfo(uInfo);
	if((uInfo.iCategory == (TChar::EZsCategory)) || 
		((uInfo.iCategory == (TChar::EControlGroup)) &&
		(uInfo.iBdCategory == (TChar::ESegmentSeparator)) &&
		(uInfo.iLowerCase == KHorizontalTab )))
	{
		return (1);
	}
	else
	{
		return (0);
	}
} //end of function

//-----------------------------------------------------------------------------
//Function Name : int iswcntrl(wint_t i)
//Description   : tests whether wc is a wide character belonging to the wide
//character class "cntrl".
//Return Value  : returns  non-zero  if  i is  a  wide  character belonging to
//the  wide  character class "cntrl". Otherwise it returns zero.
//-----------------------------------------------------------------------------
EXPORT_C int iswcntrl(wint_t i)
{
	TChar::TCharInfo uInfo;
	
	TChar((TUint)i).GetInfo(uInfo);
	if((uInfo.iCategory == (TChar::EZlCategory))  ||
		(uInfo.iCategory == (TChar::EZpCategory)) ||
		(uInfo.iCategory == (TChar::ECcCategory)) ||
		(uInfo.iCategory == (TChar::ECfCategory)))
	{
		return (1);
	}
	else
	{
		return (0);
	}
} //end of function

//-----------------------------------------------------------------------------
//Function Name : int iswdigit(wint_t i)
//Description   : tests whether wc is a wide character belonging to the wide
//character class "digit".
//Return Value  : returns  non-zero  if  i is  a  wide  character belonging to
//the  wide  character class "digit". Otherwise it returns zero.
//-----------------------------------------------------------------------------
EXPORT_C int iswdigit(wint_t i)
{
	TChar::TCharInfo uInfo;
		
	TChar((TUint)i).GetInfo(uInfo);
	if(uInfo.iCategory == (TChar::ENdCategory))
	{
		return (1);
	}
	else
	{
		return (0);
	}
} //end of function

//-----------------------------------------------------------------------------
//Function Name : int iswprint(wint_t i)
//Description   : tests whether wc is a wide character belonging to the wide
//character class "print".
//Return Value  : returns  non-zero  if  i is  a  wide  character belonging to
//the  wide  character class "print". Otherwise it returns zero.
//-----------------------------------------------------------------------------
EXPORT_C int iswprint(wint_t i)
{
	TChar::TCharInfo uInfo;
	
	TChar((TUint)i).GetInfo(uInfo);
	if((uInfo.iCategory == (TChar::ELuCategory))  || 
	 	(uInfo.iCategory == (TChar::ELlCategory)) ||
	 	(uInfo.iCategory == (TChar::ELtCategory)) ||
	 	(uInfo.iCategory == (TChar::ELoCategory)) ||
	 	(uInfo.iCategory == (TChar::ELmCategory)) || 
	 	(uInfo.iCategory == (TChar::EMnCategory)) ||
	 	(uInfo.iCategory == (TChar::EMcCategory)) ||
	 	(uInfo.iCategory == (TChar::EMeCategory)) ||
	 	(uInfo.iCategory == (TChar::ENdCategory)) || 
	 	(uInfo.iCategory == (TChar::ENoCategory)) ||
	 	(uInfo.iCategory == (TChar::EPcCategory)) ||
	 	(uInfo.iCategory == (TChar::EPdCategory)) ||
	 	(uInfo.iCategory == (TChar::EPsCategory)) || 
	 	(uInfo.iCategory == (TChar::EPeCategory)) ||
	 	(uInfo.iCategory == (TChar::EPiCategory)) ||
	 	(uInfo.iCategory == (TChar::EPfCategory)) ||
	 	(uInfo.iCategory == (TChar::EPoCategory)) || 
	 	(uInfo.iCategory == (TChar::ESmCategory)) ||
	 	(uInfo.iCategory == (TChar::EScCategory)) ||
	 	(uInfo.iCategory == (TChar::ESkCategory)) ||
	 	(uInfo.iCategory == (TChar::ESoCategory)) ||
	 	(uInfo.iCategory == (TChar::EZsCategory)))
	{
		return (1);
	}
	else
	{
		return (0);
	}
} //end of function
	
//-----------------------------------------------------------------------------
//Function Name : int iswlower(wint_t i)
//Description   : tests whether wc is a wide character belonging to the wide
//character class "lower".
//Return Value  : returns  non-zero  if  i is  a  wide  character belonging to
//the  wide  character class "lower". Otherwise it returns zero.
//-----------------------------------------------------------------------------
EXPORT_C int iswlower(wint_t i)
{
	TChar::TCharInfo uInfo;

	TChar((TUint)i).GetInfo(uInfo);
	if((uInfo.iCategory == (TChar::ELlCategory)))
	{
		return (1);
	}
	else
	{
		return (0);
	}
} //end of function

//-----------------------------------------------------------------------------
//Function Name : int iswgraph(wint_t i)
//Description   : tests whether wc is a wide character belonging to the wide
//character class "graph".
//Return Value  : returns  non-zero  if  i is  a  wide  character belonging to
//the  wide  character class "graph". Otherwise it returns zero.
//-----------------------------------------------------------------------------
EXPORT_C int iswgraph(wint_t i)
{
	TChar::TCharInfo uInfo;
	
	TChar((TUint)i).GetInfo(uInfo);
	if((uInfo.iCategory == (TChar::ELuCategory))  || 
	 	(uInfo.iCategory == (TChar::ELlCategory)) ||
	 	(uInfo.iCategory == (TChar::ELtCategory)) ||
	 	(uInfo.iCategory == (TChar::ELoCategory)) ||
	 	(uInfo.iCategory == (TChar::ELmCategory)) || 
	 	(uInfo.iCategory == (TChar::EMnCategory)) ||
	 	(uInfo.iCategory == (TChar::EMcCategory)) ||
	 	(uInfo.iCategory == (TChar::EMeCategory)) ||
	 	(uInfo.iCategory == (TChar::ENdCategory)) || 
	 	(uInfo.iCategory == (TChar::ENoCategory)) ||
	 	(uInfo.iCategory == (TChar::EPcCategory)) ||
	 	(uInfo.iCategory == (TChar::EPdCategory)) ||
	 	(uInfo.iCategory == (TChar::EPsCategory)) || 
	 	(uInfo.iCategory == (TChar::EPeCategory)) ||
	 	(uInfo.iCategory == (TChar::EPiCategory)) ||
	 	(uInfo.iCategory == (TChar::EPfCategory)) ||
	 	(uInfo.iCategory == (TChar::EPoCategory)) || 
	 	(uInfo.iCategory == (TChar::ESmCategory)) ||
	 	(uInfo.iCategory == (TChar::EScCategory)) ||
	 	(uInfo.iCategory == (TChar::ESkCategory)) ||
	 	(uInfo.iCategory == (TChar::ESoCategory)))
	{
		return (1);
	}
	else
	{
		return (0);
	}
} //end of function

//-----------------------------------------------------------------------------
//Function Name : int iswpunct(wint_t i)
//Description   : tests whether wc is a wide character belonging to the wide
//character class "punct".
//Return Value  : returns  non-zero  if  i is  a  wide  character belonging to
//the  wide  character class "punct". Otherwise it returns zero.
//-----------------------------------------------------------------------------
EXPORT_C int iswpunct(wint_t i)
{
	TChar::TCharInfo uInfo;
	
	TChar((TUint)i).GetInfo(uInfo);
	if((uInfo.iCategory == (TChar::EPcCategory))  ||
		(uInfo.iCategory == (TChar::EPdCategory)) ||
		(uInfo.iCategory == (TChar::EPsCategory)) ||
		(uInfo.iCategory == (TChar::EPeCategory)) ||
		(uInfo.iCategory == (TChar::EPiCategory)) ||
		(uInfo.iCategory == (TChar::EPfCategory)) ||
		(uInfo.iCategory == (TChar::EPoCategory)) ||
		((uInfo.iCategory == (TChar::EScCategory)  &&
	     (uInfo.iBdCategory ==((TChar::EEuropeanNumberTerminator))))) ||
	    ((uInfo.iCategory == (TChar::ESymbolGroup) &&
	     (uInfo.iBdCategory ==((TChar::EEuropeanNumberTerminator))))) ||
	    ((uInfo.iCategory == (TChar::ESymbolGroup) &&
	     (uInfo.iBdCategory ==((TChar::EOtherNeutral))))) ||
	     ((uInfo.iCategory == (TChar::ESkCategory) &&
	     (uInfo.iBdCategory ==((TChar::EOtherNeutral))))))
	{
		return (1);
	}
	else
	{
		return (0);
	}
} //end of function

//-----------------------------------------------------------------------------
//Function Name : int iswspace(wint_t i)
//Description   : tests whether wc is a wide character belonging to the wide
//character class "space".
//Return Value  : returns  non-zero  if  i is  a  wide  character belonging to
//the  wide  character class "space". Otherwise it returns zero.
//-----------------------------------------------------------------------------
EXPORT_C int iswspace(wint_t i)
{
	return (TChar((TUint)i).IsSpace());
} //end of function

//-----------------------------------------------------------------------------
//Function Name : int iswupper(wint_t i)
//Description   : tests whether wc is a wide character belonging to the wide
//character class "upper".
//Return Value  : returns  non-zero  if  i is  a  wide  character belonging to
//the  wide  character class "upper". Otherwise it returns zero.
//-----------------------------------------------------------------------------
EXPORT_C int iswupper(wint_t i)
{
	TChar::TCharInfo uInfo;
	
	TChar((TUint)i).GetInfo(uInfo);
	if((uInfo.iCategory == (TChar::ELuCategory)))
	{
		return (1);
	}
	else
	{
		return (0);
	}
} //end of function

//-----------------------------------------------------------------------------
//Function Name : int iswxdigit(wint_t i)
//Description   : tests whether wc is a wide character belonging to the wide
//character class "xdigit".
//Return Value  : returns  non-zero  if  i is  a  wide  character belonging to
//the  wide  character class "xdigit". Otherwise it returns zero.
//-----------------------------------------------------------------------------
EXPORT_C int iswxdigit(wint_t i)
{
	TChar::TCharInfo uInfo;
	
	TChar((TUint)i).GetInfo(uInfo);
	if((((uInfo.iCategory == (TChar::ELlCategory)) || (uInfo.iCategory == (TChar::ELuCategory))) && 
			((i >= L'a' && i <= L'f') || (i >= L'A' && i <= L'F'))) ||
			(uInfo.iCategory == (TChar::ENdCategory)))
	{
		return (1);
	}
	else
	{
		return (0);
	}
} //end of function
    
//-----------------------------------------------------------------------------
//Function Name : wint_t towlower(wint_t i)
//Description   :If i is a wide character,  it  is  converted  to  lowercase.
//Characters  which  do  not  have case are returned unchanged.
//Return Value  :returns the lowercase equivalent of i, or  WEOF if i is WEOF
//-----------------------------------------------------------------------------
EXPORT_C wint_t towlower(wint_t i)
{
	TChar::TCharInfo uInfo;

	TChar((TUint)i).GetInfo(uInfo);
	return (uInfo.iLowerCase);
} //end of function

//-----------------------------------------------------------------------------
//Function Name : wint_t towupper(wint_t i)
//Description   :If i is a wide character,  it  is  converted  to  uppercase.
//Characters  which  do  not  have case are returned unchanged.
//Return Value  :returns the uppercase equivalent of i, or  WEOF if i is WEOF
//-----------------------------------------------------------------------------
EXPORT_C wint_t towupper(wint_t i)
{
	TChar::TCharInfo uInfo;
	
	TChar((TUint)i).GetInfo(uInfo);
	return (uInfo.iUpperCase);
} //end of function

} // extern "C"