//
// $Id$
//

//*******************************************************************
// tbuffer.cls: K‚tir ny£ buffer
// 1999, Csisz r Levente

// M–veletek: get,unget,put,unput
// A get ‚s a put egy fifo t rat val¢s¡t meg.
// A stringeket ”sszevonja.
// Nil-t nem t rol a bufferben.

class TBUFFER OBJECT

   attrib buffer // {{tipus,tartalom[,szamlalo]},...}
   
   nmethod get()
   // Kiveszi ‚s visszaadja a buffer els“ elem‚t.
   // Ha a buffer �res, akkor nil-t ad.

   nmethod unget(item)
   // Az itemet visszateszi a puffer elej‚re.
   // Ha az item nil, akkor nem csin l semmit.
   
   nmethod put(item)
   // Az itemet beteszi a puffer v‚g‚re.
   // Ha az item nil, akkor nem csin l semmit.
   
   nmethod unput()
   // Kiveszi ‚s visszaadja a buffer utols¢ elem‚t.
   // Ha a buffer �res, akkor nil-t ad.

   nmethod clear()
   // Ki�r¡ti a puffert.
      

   nmethod bItemNumber()
   // H ny elem– a buffer. Az ”sszevont stringeket egynek sz molja.
   
   nmethod getBItem(i)
   // Az i. buffer elemet adja.
   
   nmethod appendBuffer(aTBuffer)
   // Az aTBuffer tartalm t hozz appendeli a this-hez.
   
   rmethod oinit()
   
// metaclass

//    rmethod oinitclass()