如何使用 C# 将 XML 解析为 lisp 的 S 表达式?
How to parse an XML to S-Expression for lisp using C#?
我希望能够加载任何 xml 文件并将其转换为 lisp 的 s-expression。有谁知道如何使用 c# 完成此操作?
我之前没有使用 lisp 或 s-expression 的经验,我的主要问题是我不知道如何在代码中表示 s-expression 结构。
如有任何提示,我将不胜感激。
我正在考虑将 linq 用于 xml 并可能将此 xml 反序列化为 c# 对象,然后将其序列化为 s-expression,但我不确定这是否是正确的方法这样做。
例如
这就是我加载的内容:
<document author="paul@prescod.net">
<para>This is a paragraph <footnote>(just a little one)</footnote>.</para>
<para>Ha! I made you say "underwear".</para>
</document>
这就是我想要收到的:
(document author: "paul@prescod.net"
(para "This is a paragraph " (footnote "(better than the one under there)") ".")
(para "Ha! I made you say \"underwear\"."))
您可以在 XmlReader
上使用访问者模式来遍历 xml 并在旁边生成 S-Expression。此示例生成非常接近的输出(如果需要作为字符串输出,请将 Console
替换为 StringBuilder
对象):
var t = @"<document author=""paul@prescod.net"">
<para>This is a paragraph <footnote>(better than the one under there)</footnote>.</para>
<para>Ha! I made you say ""underwear"".</para>
</document>";
var xmlTextReader = XmlTextReader.Create(new StringReader(t));
Visit(xmlTextReader, (XmlNodeType nodeType, XmlReader element) =>
{
switch (nodeType)
{
case XmlNodeType.Element:
Console.WriteLine();
Console.Write(new string('\t', element.Depth));
Console.Write("(" + element.Name);
break;
case XmlNodeType.Text:
if(!string.IsNullOrEmpty(element.Value))
{
Console.Write(@" """ + element.Value.Replace(@"""", @"\""") + @"""");
}
break;
case XmlNodeType.EndElement:
Console.Write(")");
break;
case XmlNodeType.Attribute:
Console.Write(" " + element.Name + @": """ + element.Value.Replace(@"""",@"\""") + @"""");
break;
}
});
...
public static void Visit(XmlReader xmlReader, Action<XmlNodeType, XmlReader> visitor)
{
while (xmlReader.Read())
{
visitor(xmlReader.NodeType, xmlReader);
if (xmlReader.NodeType == XmlNodeType.Element)
{
while (xmlReader.MoveToNextAttribute())
{
visitor(xmlReader.NodeType, xmlReader);
}
}
}
}
我希望能够加载任何 xml 文件并将其转换为 lisp 的 s-expression。有谁知道如何使用 c# 完成此操作?
我之前没有使用 lisp 或 s-expression 的经验,我的主要问题是我不知道如何在代码中表示 s-expression 结构。
如有任何提示,我将不胜感激。
我正在考虑将 linq 用于 xml 并可能将此 xml 反序列化为 c# 对象,然后将其序列化为 s-expression,但我不确定这是否是正确的方法这样做。
例如 这就是我加载的内容:
<document author="paul@prescod.net">
<para>This is a paragraph <footnote>(just a little one)</footnote>.</para>
<para>Ha! I made you say "underwear".</para>
</document>
这就是我想要收到的:
(document author: "paul@prescod.net"
(para "This is a paragraph " (footnote "(better than the one under there)") ".")
(para "Ha! I made you say \"underwear\"."))
您可以在 XmlReader
上使用访问者模式来遍历 xml 并在旁边生成 S-Expression。此示例生成非常接近的输出(如果需要作为字符串输出,请将 Console
替换为 StringBuilder
对象):
var t = @"<document author=""paul@prescod.net"">
<para>This is a paragraph <footnote>(better than the one under there)</footnote>.</para>
<para>Ha! I made you say ""underwear"".</para>
</document>";
var xmlTextReader = XmlTextReader.Create(new StringReader(t));
Visit(xmlTextReader, (XmlNodeType nodeType, XmlReader element) =>
{
switch (nodeType)
{
case XmlNodeType.Element:
Console.WriteLine();
Console.Write(new string('\t', element.Depth));
Console.Write("(" + element.Name);
break;
case XmlNodeType.Text:
if(!string.IsNullOrEmpty(element.Value))
{
Console.Write(@" """ + element.Value.Replace(@"""", @"\""") + @"""");
}
break;
case XmlNodeType.EndElement:
Console.Write(")");
break;
case XmlNodeType.Attribute:
Console.Write(" " + element.Name + @": """ + element.Value.Replace(@"""",@"\""") + @"""");
break;
}
});
...
public static void Visit(XmlReader xmlReader, Action<XmlNodeType, XmlReader> visitor)
{
while (xmlReader.Read())
{
visitor(xmlReader.NodeType, xmlReader);
if (xmlReader.NodeType == XmlNodeType.Element)
{
while (xmlReader.MoveToNextAttribute())
{
visitor(xmlReader.NodeType, xmlReader);
}
}
}
}