attributes-high.pl6

use v6.c;
use lib 'lib';

use NativeCall;

use HTML::MyHTML::Raw;

=begin pod
Uses the HTML::MyHTML::Raw interface to do exactly the same as
L<attributes_high_level.c|https://github.com/lexborisov/myhtml/blob/master/examples/attributes_high_level.c>
does inside the MyHTML repo.
=end pod

my $html = "<div><p>hello</p></div>";

# basic init
my $myhtml = myhtml_create();
myhtml_init($myhtml, 0, 1, 0);

# init tree
my $tree = myhtml_tree_create();
myhtml_tree_init($tree, $myhtml);

# parse html
myhtml_parse_fragment($tree, 0, $html.encode, $html.encode.bytes, 0x02a, 0x01);

# get first DIV from index
my $tag-idx = myhtml_tree_get_tag_index($tree);
my $idx-node = myhtml_tag_index_first($tag-idx, 0x02a);
my $node = myhtml_tag_index_tree_node($idx-node);

# print original tree
say "Original tree:";
myhtml_tree_print_node_childs(
  $tree,
  myhtml_tree_get_document($tree),
  FILE.fd(1),
  0
);

say "For a test; Create and delete 100_000 attrs...";
for ^100_000 {
  my $key   = "key".encode;
  my $value = "value".encode;
  my $attr = myhtml_attribute_add($tree, $node, $key, 3, $value, 5, 0x00);
  myhtml_attribute_delete($tree, $node, $attr);
}

# add first attr in first div in tree
my $key   = "awesome".encode;
my $value = "perl6".encode;
myhtml_attribute_add($tree, $node, $key, $key.bytes, $value, $value.bytes, 0x00);

say "Modified tree:";
myhtml_tree_print_node_childs(
  $tree,
  myhtml_tree_get_document($tree),
  FILE.fd(1),
  0
);

# get attr by key name
my $gets-attr = myhtml_attribute_by_key($node, $key, $key.bytes);
my Str $attr-char = myhtml_attribute_value($gets-attr);
say "Get attr by key name\n key: $attr-char";

# release resources
myhtml_tree_destroy($tree);
myhtml_destroy($myhtml);