53 lines
1.2 KiB
OpenEdge ABL
53 lines
1.2 KiB
OpenEdge ABL
//
|
||
// $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 <20>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 <20>res, akkor nil-t ad.
|
||
|
||
nmethod clear()
|
||
// Ki<4B>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()
|
||
|