#!/usr/bin/perl

require("fixedSample.pl");

while(<>){
  s/(\r)?\n$//;
  &txt2perl::parse($_);
}

sub txt2perl::userProgram {
  my $type          = $txt2perl::type;
  my $name          = $txt2perl::name;
  my $order         = $txt2perl::order;
  my @value         = @txt2perl::value;
  my $hasComment    = $txt2perl::hasComment;
  my $comment       = $txt2perl::comment;

  print( "$type $name($order) " );
  for(my $i=0; $i<$order; $i++){
    print( "$value[$i] " );
  }
  if( $hasComment ){
    print "#$comment";
  }
  print "\n";
}
