/*

    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 
}