package NonTerminalExpression;
use strict;
use base qw{AbstractExpression};
use Array;

sub new {
  my $class = shift;
  my $self = {};
  $self->{expressions} = Array->new();
  bless $self, $class;
}
sub interpret {
  my $self = shift;
  my $context = shift;
  my $i;
  for ($i=0; $i<$self->{expressions}->getSize(); $i++) {
    $self->{expressions}->getExpression($i)->interpret($context);
  }
} 
sub add {
  my $self = shift;
  my $ae = shift;
  $self->{expressions}->add($ae);
}
1;