97 lines
2.3 KiB
Standard ML
Executable file
97 lines
2.3 KiB
Standard ML
Executable file
#!/usr/bin/env fun
|
|
|
|
/*
|
|
* This file is part of the Fun programming language.
|
|
* https://fun-lang.xyz/
|
|
*
|
|
* Copyright 2025 Johannes Findeisen <you@hanez.org>
|
|
* Licensed under the terms of the Apache-2.0 license.
|
|
* https://opensource.org/license/apache-2-0
|
|
*
|
|
* Added: 2025-12-09
|
|
*/
|
|
|
|
/*
|
|
* Demonstrate reading specific fields from an XML file using
|
|
* the minimal XML API (root name) and simple string parsing.
|
|
*/
|
|
|
|
include <io/xml.fun>
|
|
|
|
path = "./examples/data/catalog.xml"
|
|
xml = XML()
|
|
doc = xml.from_file(path)
|
|
if (doc == 0)
|
|
print("Failed to load: ")
|
|
print(path)
|
|
else
|
|
root = xml.root(doc)
|
|
print("Root element: ")
|
|
print(xml.name(root))
|
|
|
|
// Show how to access specific fields by quick-and-dirty parsing
|
|
content = read_file(path) // raw XML text
|
|
// First product name
|
|
name = xml.between(content, "<name>", "</name>")
|
|
// First price value and its currency attribute (extract value, then attribute)
|
|
price_val = xml.between(content, "<price", "</price>")
|
|
currency = ""
|
|
if (len(price_val) > 0)
|
|
currency = xml.between(price_val, "currency=\"", "\"")
|
|
// strip attribute tag part
|
|
price_text = xml.between(price_val, ">", "") // until end
|
|
if (len(price_text) == 0)
|
|
price_text = price_val
|
|
else
|
|
price_text = ""
|
|
|
|
print("First product name: ")
|
|
print(name)
|
|
print("First price: ")
|
|
if (len(currency) > 0)
|
|
print(currency)
|
|
print(" ")
|
|
print(price_text)
|
|
|
|
/* Expected output:
|
|
Root element:
|
|
<?xml version="1.0" encoding="UTF-8"?>
|
|
<catalog>
|
|
<product id="SKU-1001">
|
|
<name>Wireless Keyboard</name>
|
|
<category>Peripherals</category>
|
|
<price currency="USD">39.99</price>
|
|
<specs>
|
|
<layout>US</layout>
|
|
<connection>Bluetooth</connection>
|
|
<battery>AA</battery>
|
|
</specs>
|
|
</product>
|
|
<product id="SKU-2002">
|
|
<name>27" Monitor</name>
|
|
<category>Displays</category>
|
|
<price currency="USD">199.00</price>
|
|
<specs>
|
|
<resolution>2560x1440</resolution>
|
|
<panel>IPS</panel>
|
|
<refresh>75Hz</refresh>
|
|
</specs>
|
|
</product>
|
|
<product id="SKU-3003">
|
|
<name>USB-C Dock</name>
|
|
<category>Peripherals</category>
|
|
<price currency="USD">89.50</price>
|
|
<specs>
|
|
<ports>2xHDMI, 3xUSB-A, 1xUSB-C PD</ports>
|
|
<pd>65W</pd>
|
|
</specs>
|
|
</product>
|
|
</catalog>
|
|
|
|
First product name:
|
|
Wireless Keyboard
|
|
First price:
|
|
USD
|
|
|
|
39.99
|
|
*/
|