Function fxListModules

xs/sources/xsDebug.c:2461–2503

}

void fxListModules(txMachine* the)
{
	txInspectorNameList aList = { C_NULL, C_NULL };
	txSlot* realm = fxFindRealm(the);
	txSlot* moduleMap = mxModuleMap(realm);
	txSlot* instance = fxGetInstance(the, moduleMap);
	txSlot* instanceInspector = fxToInstanceInspector(the, instance);
	txSlot* modules = mxOwnModules(realm)->value.reference;
	txSlot* module;
	fxEcho(the, "<grammar>");
	if (instance->next) {
		fxEcho(the, "<node");
		if (instanceInspector)
			fxEchoFlags(the, "-", moduleMap->flag);
		else
			fxEchoFlags(the, "+", moduleMap->flag);
		fxEcho(the, " name=\"(map)\"");
		fxEchoAddress(the, instance);
		if (instanceInspector) {
			fxEcho(the, ">");
			fxEchoInstance(the, instance, &aList);
			fxEcho(the, "</node>");
		}
		else
			fxEcho(the, "/>");
	}
	module = modules->next;
	while (module) {
        if (mxIsReference(module))
            fxEchoModule(the, module, &aList);
		module = module->next;
	}
	modules = modules->value.instance.prototype;
	if (modules) {
		module = modules->next;
		while (module) {
			if (mxIsReference(module))
				fxEchoModule(the, module, &aList);
			module = module->next;
		}
	}
	fxEcho(the, "</grammar>");
}

void fxLogin(txMachine* the)
{