#!/usr/bin/perl

# test.pl

use strict;
use warnings;

use Data::Dumper qw( Dumper );
use Grammar      qw( );

#$::RD_TRACE = '';

# ----------vvv  Example of what you can do  vvv----------

sub deparse_suffix {
   my ($suffix) = @_;
   return '' if !defined($suffix);
   my ($sep, @rest) = @$suffix;
   return '<' . join($sep, @rest) . '>';
}

sub deparse_body {
   my ($body) = @_;
   my ($name, $suffix) = @$body;
   return $name . deparse_suffix($suffix);
}

sub deparse_bodies {
   my ($bodies) = @_;
   my $deparsed = join ',', map deparse_body($_), @$bodies;
   return "($deparsed)" if @$bodies > 1;
   return $deparsed;
}

sub deparse_item {
   my ($item) = @_;
   my ($prefix, $bodies) = @$_;
   my $deparsed = '';
   $deparsed .= "<*$prefix>" if defined($prefix);
   $deparsed .= deparse_bodies($bodies);
   return $deparsed;
}

sub deparse_items {
   my ($items) = @_;
   return join ',', map deparse_item($_), @$items;
}

# ----------^^^  Example of what you can do  ^^^----------


my $parser = Grammar->new();

while (<DATA>) {
   chomp;
   my $items = $parser->parse($_)
      or do { warn("Bad data at line $.\n");
              next;
            };

   print("in:  $_\n");
   #print Dumper $items;
   print("out: ", deparse_items($items), "\n");
   print("\n");
}

__DATA__
<*2>FOO<2,1>,<*3>(SigB<8:0:2>,BAR),<*2>Siga<2:0>,Sigb<8,7,6,5,0>