File Coverage

blib/lib/MarpaX/Languages/IDL/AST/Value.pm

Criterion	Covered	Total	%
statement	15	33	45.4
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	1	1	100.0
total	21	41	51.2

use strict;
use warnings FATAL => 'all';

package MarpaX::Languages::IDL::AST::Value;
use Scalar::Util qw/blessed/;

# ABSTRACT: Translate an IDL source to an AST - parse tree value helpers

our $VERSION = '0.004'; # VERSION


use constant {
  LEXEME_INDEX => 0
};

use constant {
  LEXEME_INDEX_START => 0,
  LEXEME_INDEX_LENGTH => 1,
  LEXEME_INDEX_VALUE => 2
};

sub new {
  my ($class) = @_;

  #
  # "Contents of an entire IDL file, together with the contents of any files referenced by #include statements, forms a naming scope.
  # Definitions that do not appear inside a scope are part of the global scope. There is only a single global scope, irrespective
  # of the number of source files that form a specification."
  #
  # Scopes can be nested.
  #
  my $self = {
  };

  bless($self, $class);

  return $self;
}

sub _scopedName {
  my ($self, $scopedName) = @_;

  #
  # We concatenate identifiers to have a single-like lexeme
  #
  my @scopedNames = ();
  my $firstIdentifier = $scopedName->[0];
  my $lastIdentifier = $scopedName->[-1];
  my $firstLexeme = $firstIdentifier->[LEXEME_INDEX];
  my $lastLexeme = $lastIdentifier->[LEXEME_INDEX];

  my $start = $firstLexeme->[LEXEME_INDEX_START];
  my $length = $lastLexeme->[LEXEME_INDEX_START] + $lastLexeme->[LEXEME_INDEX_LENGTH] - $start;
  map {push(@scopedNames, $_->[LEXEME_INDEX]->[LEXEME_INDEX_VALUE])} @{$scopedName};
  my $value = join('::', @scopedNames);
  my $rc = bless [$start, $length, $value ], blessed($scopedName);

  return $rc;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

MarpaX::Languages::IDL::AST::Value - Translate an IDL source to an AST - parse tree value helpers

=head1 VERSION

version 0.004

=head1 DESCRIPTION

This module contain some tools used by IDL to AST

=head2 new()

Instanciate a new object.

=head1 AUTHOR

Jean-Damien Durand <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Jean-Damien Durand.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut