view release on metacpan or  search on metacpan

lib/CORBA/XPIDL/CheckVisitor.pm  view on Meta::CPAN

#

sub visitCodeFragment {
    my $self = shift;
    my ($node, $parent) = @_;

    $self->{parser}->YYData->{filename} = $node->{filename};
    $self->{parser}->YYData->{lineno} = $node->{lineno};
    if ($parent->isa('BaseInterface')) {
        $self->{parser}->Warning(
                "\%\%{ .. \%\%} code fragment within interface " .
                "ignored when generating NS_DECL_$parent->{idf} macro; " .
                "if the code fragment contains method declarations, " .
                "the macro probably isn't complete.\n"
        );
    }
    if ($self->{mode} eq 'header') {
        my @code = split /\n/, $node->{value};
        my $lang = shift @code;
        unless ($lang =~ /^\s*C\+\+/) {
            $self->{parser}->YYData->{filename} = $node->{filename};
            $self->{parser}->YYData->{lineno} = $node->{lineno};
            $self->{parser}->Warning(