//===========================================================================
//========= Base types for Lists ============================================
//===========================================================================

void BaseList::Insert(BaseLink* a)
{
  if (pLast) 
  { a->pNext = pLast->pNext;
    pLast = pLast->pNext = a;
  }
  else
    pLast = a->pNext = a;
}

//----------------------------------------------------------------------------

BaseListIterator BaseListIterator::operator++(int)
{
	if(pCurr)
	{
		if(pCurr==pBaseList->pLast)
			pCurr=0;
		else
			pCurr=pCurr->pNext;
	}
	return *this;
}

//----------------------------------------------------------------------------

void BaseListIterator::GotoFirst()
{
	if(pBaseList->pLast)
		pCurr=pBaseList->pLast->pNext;
	else
		pCurr=0;
}

//----------------------------------------------------------------------------

BaseListIterator::BaseListIterator(BaseList &s)
{
	pBaseList = &s;
	GotoFirst();
}

//----------------------------------------------------------------------------

BaseLink* BaseListIterator::operator()()
{
	return pCurr;
}

//----------------------------------------------------------------------------


template<class T>
T* ListIterator<T>::operator->()
{
	if(!pCurr)
		return 0;
	else
		return &(( (Link<T>*)pCurr)->info);
}

//----------------------------------------------------------------------------


template<class T>
T ListIterator<T>::operator()()      
{
	return ((Link<T>*) BaseListIterator::operator()() )->info;
}

//----------------------------------------------------------------------------

template <class T> 
  ListIterator<T>::operator T*()		
// type tranform to pointer on content
{ 
	if (pCurr)
		return &( ((Link<T>*)pCurr)->info); 
	else
		return 0;
}