# Deparse.pm

use strict;
use warnings;

package Deparser;

my $skip = ' ';

sub add_skip {
   if (length($_[0])) {
      return $skip . $_[0];
   } else {
      return '';
   }
}

sub loop(&@) {
   my $cb = shift(@_);
   return join $skip, map { $cb->() } @_;
}

sub deparse {
   &cmdline
}

sub cmdline {
   my ($node) = @_;
   my ($pkgcmd, $opts) = @$node;
   my $text = pkgcmd($pkgcmd);
   $text .= add_skip(loop { opt($_) } @$opts);
   return $text;
}

sub pkgcmd {
   my ($node) = @_;
   return IDENT($node);
}

sub opt {
   my ($node) = @_;
   my ($flag, $val) = @$node;
   my $text = FLAG($flag);
   $text .= add_skip(IDENT($val));
   return $text;
}

sub FLAG  { return $_[0] };
sub IDENT { return $_[0] };

1;