log.xreate
No OneTemporary
Actions

Subscribers

None

File Metadata

	/*

	Log level:
	Log entry(flat, hierarchical)

	*/




	// EXTERN INCLUDES
	interface(extern-c){
	xml2 = library:: pkgconfig("libxml-2.0").

	include {
	xml2 = ["libxml/tree.h", "string.h"]
	}.
	}

	// CONTAINERS
	interface(dfa) {
	operator map:: (op(seqaccess)) -> impl(solid).
	operator list_range:: ()->impl(on_the_fly).
	operator list:: ()->impl(solid).
	operator fold:: (op(seqaccess)).
	operator index:: (op(randaccess)).
	/* operator map: (op(seqaccess)) -> impl(llvm_array \| on_the_fly); */
	}

	import raw("core/containers.lp").


	// PROGRAM
	XmlNode = type alias {
	tag:: string,
	/* attrs:: [string],*/
	content:: string
	}.

	Tree = type Tree(Leaf) [Leaf, [Tree(Leaf)]].
	XmlTree = type alias Tree(XmlNode).


	test= function():: num; entry {
	filename = "project/documentation.fodt" :: string.
	docRaw = xmlParseFile(filename) :: xmlDocPtr.
	tree= xmlDocGetRootElement(docRaw) :: xmlNodePtr.
	childrenRaw = tree["children"]:: [xmlNodePtr]; containers:linkedlist(next, null).
	size = loop fold(childrenRaw->child:: xmlNodePtr, 0->count::int):: int {

	// $log{
	// count +1:: warning, subsystem=xml
	// }


	//log{warning, subsystem=xml, ..}
	childName = child["name"]::string; logging.
	count + strlen(childName):: int
	}.

	size
	}