// ННГУ, ВМК, Курс "Методы программирования-2", С++, ООП
//
// Copyright (c) Гергель В.П. 27.08.2000
//
// Циклические списки с заголовком

#include "HeadRing.h"

THeadRing :: THeadRing () : TDatList() {
  InsLast(); pHead = pFirst; ListLen = 0;
  pStop = pHead; Reset();
  pFirst->SetNextLink(pFirst);
}              /*---------------------------------------------*/

THeadRing ::  ~THeadRing () {
  TDatList::DelList();
  DelLink(pHead);
  pHead = NULL;
}              /*---------------------------------------------*/

void THeadRing :: InsFirst ( PTDatValue pVal ) { // вставить после заголовка
  TDatList::InsFirst(pVal);
  if ( RetCode == DataOK ) pHead->SetNextLink(pFirst);
}              /*---------------------------------------------*/

void THeadRing :: DelFirst  ( void ) {           // удалить первое звено
  TDatList::DelFirst(); pHead->SetNextLink(pFirst);
}              /*---------------------------------------------*/