static void
pack(wchar_t word[])
{
wchar_t *cp;
int s, t;
if (outp == NOSTR)
leadin();
t = wscol(word);
*outp = L'\0';
s = wscol(outbuf);
if (t+s <= width) {
for (cp = word; *cp; *outp++ = *cp++);
return;
}
if (s > filler) {
oflush();
leadin();
}
for (cp = word; *cp; *outp++ = *cp++);
}
/*
List a class (type)
*/
static void lstClass(EjsMod *mp, EjsModule *module, int slotNum, EjsType *klass, int attributes)
{
Ejs *ejs;
ejs = mp->ejs;
mprFprintf(mp->file, "\n");
if (klass->baseType) {
mprFprintf(mp->file, "CLASS: %sclass %@ extends %@\n", getAttributeString(mp, attributes),
klass->qname.name, klass->baseType->qname.name);
} else {
mprFprintf(mp->file, "CLASS: %sclass %@\n", getAttributeString(mp, attributes), klass->qname.name);
}
leadin(mp, module, 1, 0);
mprFprintf(mp->file,
" # Class Details: %d class traits, %d prototype (instance) traits, %s, requested slot %d\n",
ejsGetLength(ejs, (EjsObj*) klass),
klass->prototype ? ejsGetLength(ejs, klass->prototype) : 0,
klass->hasInstanceVars ? "has-state": "", slotNum);
}
static void lstDependency(EjsMod *mp, EjsModule *module, EjsModule *dependant)
{
leadin(mp, module, 0, 0);
mprFprintf(mp->file, "DEPENDENCY: require %@ (sum %d)\n\n", dependant->vname, dependant->checksum);
}
