#!/usr/pkg/bin/perl -w

=comment

  YamCha -- Yet Another Multipurpose CHunk Annotator
 
  $Id: selecttag.in,v 1.4 2004/10/03 03:16:26 taku-ku Exp $;

  Copyright (C) 2000-2004 Taku Kudo <taku-ku@is.aist-nara.ac.jp>
  This is free software with ABSOLUTELY NO WARRANTY.
  
  This library is free software; you can redistribute it and/or
  modify it under the terms of the GNU Lesser General Public
  License as published by the Free Software Foundation; either
  version 2.1 of the License, or (at your option) any later version.
  
  This library is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  Lesser General Public License for more details.
  
  You should have received a copy of the GNU Lesser General Public
  License along with this library; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
=cut

my %tag;
my $default = "";
my $syntax  = shift (@ARGV);

# header
while (<>) {
  print;
  last if (/^\s*$/);
}

# noconv
if (lc($syntax) eq "__noconv__") {
    while (<>) { print };
}

# conv
while ($syntax =~ s/([^=\s]+)=([^,\s]+)//) {
    my $from = $1;
    my $to   = $2;

    if (lc($from) eq "__default__") {
	$default = $to;
    } else {
	my @list = split /,/, $from;
	for (@list) {
	    $tag{$_} = $to;
	}
    }
}

while (<>) {
    my ($i,$v) = split /\s+/, $_, 2;

    my $to = $tag{$i};
    if (defined $to) {
	print $to, " ";
    } elsif ($default ne "") {
	print $default, " ";
    } else {
	die "FATAL: Cannot know how to convert the tag [$i]\n";
    }

    print $v;
}
