lib/KorAP/XML/Annotation/XIP/Dependency.pm

package KorAP::XML::Annotation::XIP::Dependency;
use KorAP::XML::Annotation::Base;

# > source to target
# < target to source

sub parse {
  my $self = shift;

  # Phrase depencies are currently ignored.

  my $rel_id = 1;

  # XIP dependencies are currently skipped
  return;

  $$self->add_tokendata(
    foundry => 'xip',
    layer => 'dependency',
    encoding => 'xip',
    cb => sub {
      my ($stream, $token, $tokens) = @_;
      my $mtt = $stream->pos($token->get_pos);
      my $mt;

      my $content = $token->get_hash;

      my $rel = $content->{rel};
      $rel = [$rel] unless ref $rel eq 'ARRAY';

      foreach (@$rel) {
        my $label = $_->{-label};

        # Relation is "unary" - meaning relation to itself
        if ($_->{-type} && $_->{-type} eq 'unary') {
          $mt = $mtt->add_by_term('>:xip/d:' . $label);
          $mt->set_payload('<i>' . $token->get_pos);
          $mt = $mtt->add_by_term('<:xip/d:' . $label);
          $mt->set_payload('<i>' . $token->get_pos);
        }
        else {

          my $from = $_->{span}->{-from};
          my $to   = $_->{span}->{-to};

          my $rel_token = $tokens->token($from, $to) or next;
          $mt = $mtt->add_by_term('>:xip/d:' . $label);
          $mt->set_payload('<i>' . $rel_token->get_pos);

          $mt = $stream->pos($rel_token->get_pos)
            ->add_by_term('<:xip/d:' . $label);
          $mt->set_payload('<i>' . $token->get_pos);
        };
      };
    }) or return;

  return 1;
};

sub layer_info {
  ['xip/d=rels']
}


1;