/* class comment */!!

inherit(Object, #StringBuffer, #(curpos /* Current position */
curdata /* Current string */
), 2, nil)!!

now(class(StringBuffer))!!

now(StringBuffer)!!

/* 3/14/2002 0:37 */
Def asString(self)
{
  ^subString( curdata, 0, curpos); 
}!!

/* 3/13/2002 20:21 */
Def append(self, s)
{
  if class( s) == Char
    curdata[ curpos] := s;
    curpos := curpos + 1;
  else
    do( s, { using( ch) append( self, ch); });
  endIf;
  
}!!

/* 3/13/2002 19:49 */
Def reset(self, ln)
{
  if size( curdata) < ln
    curdata := new( String, ln);
  endIf;
  
  curpos := 0;
}!!