39 lines
1,009 B
Standard ML
39 lines
1,009 B
Standard ML
/*
|
|
* This file is part of the Fun programming language.
|
|
* https://fun-lang.xyz/
|
|
*
|
|
* Copyright 2025 Johannes Findeisen
|
|
* Licensed under the terms of the Apache-2.0 license.
|
|
* https://opensource.org/license/apache-2-0
|
|
*
|
|
* Added: 2025-12-09
|
|
*/
|
|
|
|
// XML stdlib abstraction wrapping the xml_* VM builtins (libxml2-backed).
|
|
// Minimal API for now: parse, from_file, root, name, text
|
|
|
|
class XML()
|
|
// Parse XML text into a document handle (>0) or 0 on error.
|
|
fun parse(this, text)
|
|
t = to_string(text)
|
|
return xml_parse(t)
|
|
|
|
// Load XML from a file path; returns document handle (>0) or 0.
|
|
fun from_file(this, path)
|
|
p = to_string(path)
|
|
data = read_file(p)
|
|
if (len(data) == 0)
|
|
return 0
|
|
return xml_parse(data)
|
|
|
|
// Get root node handle (>0) or 0.
|
|
fun root(this, doc)
|
|
return xml_root(doc)
|
|
|
|
// Get node name as string.
|
|
fun name(this, node)
|
|
return xml_name(node)
|
|
|
|
// Get node concatenated text content as string.
|
|
fun text(this, node)
|
|
return xml_text(node)
|