#include "stralloc.h"
#include "strerr.h"

static stralloc sa = {0};

char *strerr(se)
struct strerr *se;
{
  strerr_sysinit();
 
  if (!stralloc_copys(&sa,"")) return "out of memory";
 
  while(se) {
    if (se->x) if (!stralloc_cats(&sa,se->x)) return "out of memory";
    if (se->y) if (!stralloc_cats(&sa,se->y)) return "out of memory";
    if (se->z) if (!stralloc_cats(&sa,se->z)) return "out of memory";
    se = se->who;
  }
 
  if (!stralloc_0(&sa)) return "out of memory";
  return sa.s;
}