package encoding_xml

/*
	An XML 1.0 / 1.1 parser

	Copyright 2021-2022 Jeroen van Rijn <nom@duclavier.com>.
	Made available under Odin's BSD-3 license.

	A from-scratch XML implementation, loosely modeled on the [spec](https://www.w3.org/TR/2006/REC-xml11-20060816).

	List of contributors:
		Jeroen van Rijn: Initial implementation.
*/


import "core:io"
import "core:fmt"

/*
	Just for debug purposes.
*/
print :: proc(writer: io.Writer, doc: ^Document) -> (written: int, err: io.Error) {
	if doc == nil { return }
	written += fmt.wprintf(writer, "[XML Prolog]\n")

	for attr in doc.prologue {
		written += fmt.wprintf(writer, "\t%v: %v\n", attr.key, attr.val)
	}

	written += fmt.wprintf(writer, "[Encoding] %v\n", doc.encoding)

	if len(doc.doctype.ident) > 0 {
		written += fmt.wprintf(writer, "[DOCTYPE]  %v\n", doc.doctype.ident)

		if len(doc.doctype.rest) > 0 {
			fmt.wprintf(writer, "\t%v\n", doc.doctype.rest)
		}
	}

	for comment in doc.comments {
		written += fmt.wprintf(writer, "[Pre-root comment]  %v\n", comment)
	}

	if len(doc.elements) > 0 {
		fmt.wprintln(writer, " --- ")
		print_element(writer, doc, 0)
		fmt.wprintln(writer, " --- ")
	}

	return written, .None
}

print_element :: proc(writer: io.Writer, doc: ^Document, element_id: Element_ID, indent := 0) -> (written: int, err: io.Error) {
	tab :: proc(writer: io.Writer, indent: int) {
		for _ in 0..=indent {
			fmt.wprintf(writer, "\t")
		}
	}

	tab(writer, indent)

	element := doc.elements[element_id]

	if element.kind == .Element {
		fmt.wprintf(writer, "<%v>\n", element.ident)

		for value in element.value {
			switch v in value {
			case string:
				tab(writer, indent + 1)
				fmt.wprintf(writer, "[Value] %v\n", v)
			case Element_ID:
				print_element(writer, doc, v, indent + 1)
			}
		}

		for attr in element.attribs {
			tab(writer, indent + 1)
			fmt.wprintf(writer, "[Attr] %v: %v\n", attr.key, attr.val)
		}
	} else if element.kind == .Comment {
		fmt.wprintf(writer, "[COMMENT] %v\n", element.value)
	}

	return written, .None
}