// This component and the accompanying materials are made available

// under the terms of the License "Symbian Foundation License v1.0"

// which accompanies this distribution, and is available

// at the URL "http://www.symbianfoundation.org/legal/sfl-v10.html".

//

// Initial Contributors:

// Accenture

//

// Contributors:

//

// Description:

// \sf\adaptation\beagleboard\omap3530\omap3530_drivers\euart\euart.cpp

// pdd for serial ports

// assume Modem Control Signals change cause an interrupt

// 

//

#include <d32comm.h>

#include <beagle\variant.h>

#include "euart.h"

#define TX_POLLING_HACK

_LIT(KPddName,"Comm.Beagle");

using namespace Omap3530Uart;

DDriverComm::DDriverComm()

//

// Constructor

//

	{

	iUnitsMask=0x7;

	iVersion=TVersion(KCommsMajorVersionNumber,KCommsMinorVersionNumber,KCommsBuildVersionNumber);

	}

TInt DDriverComm::Install()

//

// Install the driver

//

	{

	return SetName(&KPddName);

	}

void GetTemplateCommsCaps(TDes8 &aCaps, TInt aUnit)

	{

	TCommCaps2 capsBuf;

	// Fill in the Caps structure with the relevant information for this Unit, e.g

	TCommCapsV02 &c=capsBuf();

	c.iRate=KCapsBps1200|KCapsBps2400|KCapsBps4800|KCapsBps9600|KCapsBps19200|KCapsBps38400|

			KCapsBps57600|KCapsBps115200|KCapsBps230400|KCapsBps460800|KCapsBps4000000;

	c.iDataBits=KCapsData5|KCapsData6|KCapsData7|KCapsData8;

	c.iStopBits=KCapsStop1|KCapsStop2;

	c.iParity=KCapsParityNone|KCapsParityEven|KCapsParityOdd|KCapsParityMark|KCapsParitySpace;

	c.iHandshake=0; //(OR in all KCapsObeyXXXSupported, KCapsSendXXXSupported, KCapsFailXXXSupported, KCapsFreeXXXSupported

				    // as required for this Unit's configuration);.

	c.iSignals=0;   //(OR in as many KCapsSignalXXXSupported as Modem control signals controllable by this Unit);

	c.iSIR=0; 		//(0 or OR in as many KCapsSIRXXX as IR bit rates supported);

	c.iNotificationCaps=0; //(OR in as many KNotifyXXXSupported as notifications supported by this Unit);

	c.iFifo=0;				//(0 or KCapsHasFifo);

	c.iRoleCaps=0;			//(0 or KCapsRoleSwitchSupported);

	c.iFlowControlCaps=0;	//(0 or KCapsFlowControlStatusSupported);

	/** @see TCommCapsV02 */

	aCaps=capsBuf.Left(Min(capsBuf.Length(),aCaps.MaxLength()));

	}

void DDriverComm::GetCaps(TDes8 &aDes) const

//

// Return the drivers capabilities

//

	{

	GetTemplateCommsCaps(aDes, 0);

	}

TInt DDriverComm::Create(DBase*& aChannel, TInt aUnit, const TDesC8* anInfo, const TVersion& aVer)

//

// Create a driver

//

	{

	DCommBeagle* pD=new DCommBeagle;

	aChannel=pD;

	TInt r=KErrNoMemory;

	if (pD)

		r=pD->DoCreate(aUnit,anInfo);

	return r;

	}

TInt DDriverComm::Validate(TInt aUnit, const TDesC8* /*anInfo*/, const TVersion& aVer)

//

//	Validate the requested configuration (Version and Unit)

//

	{

	if ((!Kern::QueryVersionSupported(iVersion,aVer)) || (!Kern::QueryVersionSupported(aVer,TVersion(KMinimumLddMajorVersion,KMinimumLddMinorVersion,KMinimumLddBuild))))

		return KErrNotSupported;

	if(aUnit<0 || aUnit >2)

		return KErrNotSupported;

	return KErrNone;

	}

DCommBeagle::DCommBeagle()

//

// Constructor

//

	{

	gData=0;

	iInterruptId=-1;		// -1 means not bound

	}

DCommBeagle::~DCommBeagle()

//

// Destructor

//

	{

	if (iInterruptId>=0)

		Interrupt::Unbind(iInterruptId);

	if (iDfcQ)

		{

		iDfcQ->Destroy();

		}

	}

const TInt KDCommBeagleDfcThreadPriority = 24;

_LIT(KDCommBeagleDfcThread,"DCommBeagleDfcThread");

TInt DCommBeagle::DoCreate(TInt aUnit, const TDesC8* /*anInfo*/)

//

// Sets up the PDD

//

	{

	iUnit=aUnit;

	//  Create own DFC queue

	TInt r = Kern::DynamicDfcQCreate(iDfcQ, KDCommBeagleDfcThreadPriority, KDCommBeagleDfcThread);

	if (r != KErrNone)

		return r; 	

	// Set iPortAddr and irq with the Linear Base address of the UART and the Interrupt ID coresponding to aUnit

	iUart = new TUart((TUartNumber)aUnit);

	Prcm::SetClockState(iUart->PrcmInterfaceClk(), Prcm::EClkOn);

	Prcm::SetClockState(iUart->PrcmFunctionClk(), Prcm::EClkOn);

	// bind to UART interrupt

	r=Interrupt::Bind(iUart->InterruptId(),Isr,this);

	if (r==KErrNone)

		iInterruptId=iUart->InterruptId();

	return r;

	}

TDfcQue* DCommBeagle::DfcQ(TInt aUnit)

//

// Return the DFC queue to be used for this device

// For UARTs just use the standard low priority DFC queue

// For Serial PC cards, use the PC card controller thread for the socket in question.

//

	{

	return aUnit==iUnit ? iDfcQ : NULL;

	}

TInt DCommBeagle::Start()

//

// Start receiving characters

//

	{

	if(iUnit == Kern::SuperPage().iDebugPort)

		Variant::MarkDebugPortOff();

	iTransmitting=EFalse;			// if EnableTransmit() called before Start()

	if(iUart==NULL)

		{

		return KErrNotReady;

		}

	iSignals=Signals();

	iLdd->UpdateSignals(iSignals);

	Interrupt::Enable(iInterruptId);

	iUart->EnableInterrupt(TUart::EIntRhr);

	return KErrNone;

	}

TBool FinishedTransmitting(TAny* aPtr)

	{

	DCommBeagle* self = (DCommBeagle*)aPtr;

	if(self->iUart==NULL)

		{

		return ETrue;

		}

	if(!self->iUart->TxFifoEmpty())

		{

		return EFalse;

		}

	return ETrue;

	}

void DCommBeagle::Stop(TStopMode aMode)

//

// Stop receiving characters

//

	{

	switch (aMode)

		{

		case EStopNormal:

		case EStopPwrDown:

			iUart->DisableInterrupt(TUart::EIntRhr);

			iUart->DisableInterrupt(TUart::EIntThr);

			Interrupt::Disable(iInterruptId);

			// wait for uart to stop tranmitting

			Kern::PollingWait(FinishedTransmitting,this,3,100);

			iTransmitting=EFalse;

			iUart->Disable();			

			Prcm::SetClockState(iUart->PrcmFunctionClk(), Prcm::EClkOff);

			break;

		case  EStopEmergency:

			iUart->DisableInterrupt(TUart::EIntRhr);			

			iUart->DisableInterrupt(TUart::EIntThr);

			Interrupt::Disable(iInterruptId);

			iTransmitting=EFalse;

			break;

		}

	}

void DCommBeagle::Break(TBool aState)

//

// Start or stop the uart breaking

//

	{

	if (aState)

		{

		//

		// TO DO: (mandatory)

		//

		// Enable sending a Break (space) condition

		//

		}

	else

		{

		//

		// TO DO: (mandatory)

		//

		// Stop sending a Break (space) condition

		//

		}

	}

void DCommBeagle::EnableTransmit()

//

// Start sending characters.

//

	{

	TBool tx=(TBool)NKern::SafeSwap((TAny*)ETrue,(TAny*&)iTransmitting);

	if (tx)

		{

		return;

		}

	TInt r = 0;

	#ifdef TX_POLLING_HACK

	while (Kern::PowerGood())

	#else

	while (Kern::PowerGood() && !iUart->TxFifoFull())

	#endif

		{	

		r=TransmitIsr();

		if(r<0)

			{

			//no more to send

			iTransmitting=EFalse;

			break;

			}

		#ifdef TX_POLLING_HACK

		while(iUart->TxFifoFull());

		#endif

		iUart->Write(r);

		}

	TInt irq=0;

	if (!iInInterrupt)					// CheckTxBuffer adds a Dfc: can only run from ISR or with NKernel locked

		{

		NKern::Lock();

		irq=NKern::DisableAllInterrupts();

		}

	CheckTxBuffer();

	if (!iInInterrupt)

		{

		NKern::RestoreInterrupts(irq);

		NKern::Unlock();

		}

	if (r>=0)											// only enable interrupt if there's more data to send

		{

		iUart->EnableInterrupt(TUart::EIntThr);

		}

	}

TUint DCommBeagle::Signals() const

//

// Read and translate the modem lines

//

	{

	TUint signals=0;

	//

	// TO DO: (mandatory)

	//

	// If the UART corresponding to iUnit supports Modem Control Signals, read them and return a bitmask with one or 

	// more of the following OR-ed in:

	// - KSignalDTR,

	// - KSignalRTS,

	// - KSignalDSR,

	// - KSignalCTS,

	// - KSignalDCD.

	// 

	return signals;

	}

void DCommBeagle::SetSignals(TUint aSetMask, TUint aClearMask)

//

// Set signals.

//

	{

	//

	// TO DO: (mandatory)

	//

	// If the UART corresponding to iUnit supports Modem Control Signals, converts the flags in aSetMask and aClearMask 

	// into hardware-specific bitmasks to write to the UART modem/handshake output register(s). 

	// aSetMask, aClearMask will have one or more of the following OR-ed in:

	// - KSignalDTR,

	// - KSignalRTS,

	//

	}

TInt DCommBeagle::ValidateConfig(const TCommConfigV01 &aConfig) const

//

// Check a config structure.

//

	{

	//

	// TO DO: (mandatory)

	//

	// Checks the the options in aConfig are supported by the UART corresponding to iUnit

	// May need to check:

	//  - aConfig.iParity (contains one of EParityXXX)

	/** @see TParity */

	//  - aConfig.iRate (contains one of EBpsXXX)

	/** @see TBps */

	//  - aConfig.iDataBits (contains one of EDataXXX)

	/** @see TDataBits */

	//  - aConfig.iStopBits (contains one of EStopXXX)

	/** @see TDataBits */

	//  - aConfig.iHandshake (contains one of KConfigObeyXXX or KConfigSendXXX or KConfigFailXXX or KConfigFreeXXX)

	//  - aConfig.iParityError (contains KConfigParityErrorFail or KConfigParityErrorIgnore or KConfigParityErrorReplaceChar)

	//  - aConfig.iFifo (contains ether EFifoEnable or EFifoDisable)

	/** @see TFifo */

	//  - aConfig.iSpecialRate (may contain a rate not listed under TBps)

	//  - aConfig.iTerminatorCount (conatains number of special characters used as terminators)

	//  - aConfig.iTerminator[] (contains a list of special characters which can be used as terminators)

	//  - aConfig.iXonChar (contains the character used as XON - software flow control)

	//  - aConfig.iXoffChar (contains the character used as XOFF - software flow control)

	//  - aConfig.iParityErrorChar (contains the character used to replace bytes received with a parity error)

	//  - aConfig.iSIREnable (contains either ESIREnable or ESIRDisable)

	/** @see TSir */

	//  - aConfig.iSIRSettings (contains one of KConfigSIRXXX)

	// and returns KErrNotSupported if the UART corresponding to iUnit does not support this configuration

	//

	return KErrNone;

	}

void DCommBeagle::CheckConfig(TCommConfigV01& aConfig)

	{

	//

	// TO DO: (optional)

	//

	// Validates the default configuration that is defined when a channel is first opened

	//

	}

TInt DCommBeagle::DisableIrqs()

//

// Disable normal interrupts

//

	{

	return NKern::DisableInterrupts(1);

	}

void DCommBeagle::RestoreIrqs(TInt aLevel)

//

// Restore normal interrupts

//

	{

	NKern::RestoreInterrupts(aLevel);

	}

void DCommBeagle::Configure(TCommConfigV01 &aConfig)

//

// Configure the UART from aConfig

//

	{

	Kern::PollingWait(FinishedTransmitting,this,3,100);	// wait for uart to stop tranmitting

	iUart->Disable();

	iUart->Init();

	iUart->DefineMode(TUart::EUart);

	switch(aConfig.iRate)

		{

		case EBps1200:

			iUart->SetBaud(TUart::E1200);

			break;

		case EBps2400:

			iUart->SetBaud(TUart::E2400);

			break;

		case EBps4800:

			iUart->SetBaud(TUart::E4800);

			break;

		case EBps9600:

			iUart->SetBaud(TUart::E9600);

			break;

		case EBps19200:

			iUart->SetBaud(TUart::E19200);

			break;

		case EBps38400:

			iUart->SetBaud(TUart::E38400);

			break;

		case EBps57600:

			iUart->SetBaud(TUart::E57600);

			break;

		case EBps460800:

			iUart->SetBaud(TUart::E460800);

			break;

		case EBps115200:

		default:

			iUart->SetBaud(TUart::E115200);

		}

	TUart::TDataBits databits = (TUart::TDataBits)aConfig.iDataBits;

	TUart::TStopBits stopbits;

	switch(aConfig.iStopBits)

		{

		case EStop2:

			stopbits=TUart::E2Stop;

			break;

		case EStop1:

		default:

			stopbits=TUart::E1Stop;		

		}

	TUart::TParity parity;	

	switch(aConfig.iParity)

		{

		case EParityEven:

			parity=TUart::EEven;

			break;

		case EParityOdd:

			parity=TUart::EOdd;

			break;

		case EParityMark:

			parity=TUart::EMark;

			break;

		case EParitySpace:

			parity=TUart::ESpace;

			break;

		case EParityNone:

		default:

			parity=TUart::ENone;

		}

	iUart->SetDataFormat(databits, stopbits, parity);

	iUart->EnableFifo(TUart::EEnabled, TUart::ETrigger8, TUart::ETrigger8);

	iUart->Enable();

	}

void DCommBeagle::Caps(TDes8 &aCaps) const

//

// return our caps

//

	{

	GetTemplateCommsCaps(aCaps,iUnit);

	}

void DCommBeagle::Isr(TAny* aPtr)

//

// Service the UART interrupt

//

	{

	DCommBeagle& d=*(DCommBeagle*)aPtr;

	d.iInInterrupt=1;										// going in...

	TUint xon=d.iLdd->iRxXonChar;

	TUint xoff=d.iLdd->iRxXoffChar;

	// Read the interrupt source register to determine if it is a Receive, Transmit or Modem Signals change interrupt.

	// If required also, clear interrupts at the source.

	// Then process the interrupt condition as in the following pseudo-code extract:

	//

	TUint interruptId = IIR::iMem.Read(*(d.iUart));

	TUint interruptEn = IER::iMem.Read(*(d.iUart));	

	if((interruptId & IIR::IT_TYPE::ETHR) && (interruptEn & IER::THR_IT::KMask) )

		{

		while(Kern::PowerGood() && !d.iUart->TxFifoFull())	

			{

			TInt r=d.TransmitIsr();

			if(r<0)

				{

				// Disable the Transmit Interrupt in Hardware

				d.iUart->DisableInterrupt(TUart::EIntThr);

				d.iTransmitting=EFalse;

				break;

				}

			d.iUart->Write(r);

			}

		d.CheckTxBuffer();

		}

	if((interruptId & IIR::IT_TYPE::ERHR) && (interruptEn & IER::RHR_IT::KMask) )

		{

		TUint rx[32];

		TInt rxi=0;

		TInt x=0;