File Coverage

blib/lib/MarpaX/Languages/C/Scan.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

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

package MarpaX::Languages::C::Scan;

# ABSTRACT: C::Scan-like interface

use MarpaX::Languages::C::AST::Grammar::ISO_ANSI_C_2011::Scan;
use Carp qw/croak/;
use Log::Any qw/$log/;

our $VERSION = '0.45'; # VERSION


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

  my $grammarName = $options{grammarName} || 'ISO-ANSI-C-2011';

  if (! defined($grammarName)) {
    croak 'Usage: new($grammar_Name)';
  } elsif ($grammarName eq 'ISO-ANSI-C-2011') {
    return MarpaX::Languages::C::AST::Grammar::ISO_ANSI_C_2011::Scan->new(%options);
  } else {
    croak "Unsupported grammar name $grammarName";
  }
}

# ----------------------------------------------------------------------------------------


sub replace {
  my ($self, $from, $to, $declaration, %options) = @_;

  $log->tracef('Making as AST of %s', $declaration);

  my $c = MarpaX::Languages::C::Scan->new(content => $declaration, %options);

}


1;

__END__