Beispiel #1
0
ZRef<ZYadR> sYadR(ZRef<ZML::StrimmerU> iStrimmerU)
	{
	sSkipText(iStrimmerU->GetStrim());
	if (iStrimmerU->GetStrim().Current() != ZML::eToken_Exhausted)
		return new YadMapR(iStrimmerU);
	return null;
	}
Beispiel #2
0
static ZRef<ZYadR> spMakeYadR_XMLPList(ZRef<ZML::StrimmerU> iStrimmerU)
	{
	ZML::StrimU& theR = iStrimmerU->GetStrim();
	sSkipText(theR);

	if (theR.Current() == ZML::eToken_TagEmpty)
		{
		if (theR.Name() == "dict")
			{
			return new ZYadMapR_XMLPList(iStrimmerU, ZYadR_XMLPlist::eRead_EmptyTag);
			}
		else if (theR.Name() == "array")
			{
			return new ZYadSeqR_XMLPList(iStrimmerU, ZYadR_XMLPlist::eRead_EmptyTag);
			}
		else if (theR.Name() == "data")
			{
			return new ZYadStreamerR_XMLPList(iStrimmerU, ZYadR_XMLPlist::eRead_EmptyTag);
			}
		else if (theR.Name() == "string")
			{
			return new ZYadStrimmerR_XMLPList(iStrimmerU, ZYadR_XMLPlist::eRead_EmptyTag);
			}
		}
	else if (theR.Current() == ZML::eToken_TagBegin)
		{
		if (theR.Name() == "dict")
			{
			theR.Advance();
			return new ZYadMapR_XMLPList(iStrimmerU, ZYadR_XMLPlist::eRead_EndTag);
			}
		else if (theR.Name() == "array")
			{
			theR.Advance();
			return new ZYadSeqR_XMLPList(iStrimmerU, ZYadR_XMLPlist::eRead_EndTag);
			}
		else if (theR.Name() == "data")
			{
			theR.Advance();
			return new ZYadStreamerR_XMLPList(iStrimmerU, ZYadR_XMLPlist::eRead_EndTag);
			}
		else if (theR.Name() == "string")
			{
			theR.Advance();
			return new ZYadStrimmerR_XMLPList(iStrimmerU, ZYadR_XMLPlist::eRead_EndTag);
			}
		}

	ZAny theVal;
	if (spTryRead_Any(theR, theVal))
		return sMake_YadAtomR_Any(theVal);

	return null;
	}
Beispiel #3
0
ZRef<ZYadR> ZYad_XMLPList::sYadR(ZRef<ZML::StrimmerU> iStrimmerU)
	{
	if (not iStrimmerU)
		return null;

	ZML::StrimU& theR = iStrimmerU->GetStrim();

	for (;;)
		{
		sSkipText(theR);
		if (theR.Current() != ZML::eToken_TagBegin || theR.Name() != "plist")
			break;
		theR.Advance();
		}

	return spMakeYadR_XMLPList(iStrimmerU);
	}
Beispiel #4
0
ZRef<ZYadR> YadMapR::ReadInc(Name& oName)
	{
	if (fIter != fAttrs.end())
		{
		oName = fIter->first;
		ZRef<ZYadR> result = ZooLib::sYadR(fIter->second);
		++fIter;
		return result;
		}

	if (!fStrimmerU)
		return null;

	ZML::StrimU& theR = fStrimmerU->GetStrim();

	// We have read the begin, and have returned
	// any attributes on that begin.
	sSkipText(theR);

	if (fOuterName.empty())
		{
		if (theR.Current() == ZML::eToken_Exhausted)
			return null;
		}
	else if (sTryRead_End(theR, fOuterName))
		{
		return null;
		}

	if (theR.Current() == ZML::eToken_TagEmpty)
		{
		oName = theR.Name();
		ZRef<ZYadR> result = new YadMapR(theR.Attrs());
		theR.Advance();
		return result;
		}

	if (theR.Current() != ZML::eToken_TagBegin)
		spThrowParseException("Expected begin tag");

	ZML::Attrs_t theAttrs = theR.Attrs();
	const string theName = theR.Name();
	theR.Advance();

	oName = theName;
	const string8 theText = theR.ReadAll8();
	sSkipText(theR);

	if (theR.Current() == ZML::eToken_TagEnd)
		{
		if (theR.Name() != theName)
			spThrowParseException("Expected end tag '" + theName + "'");

		if (theAttrs.empty())
			{
			theR.Advance();
			return ZooLib::sYadR(theText);
			}
		else if (!theText.empty())
			{
			theAttrs.push_back(pair<string, string>("!text", theText));
			}
		}

	return new YadMapR(fStrimmerU, theName, theAttrs);
	}