#!/usr/athena/bin/perl

use strict;

my @f;

my $name;
my $param;
my $conv;
my $comment;
my $addr;
my $type;
my $lf="\n\t";
#$lf = "     ";

while (<STDIN>) {
    chomp($_);
    ($name, $param, $conv, $comment) = split (/\t+\s+/, $_);
    chop($comment);
    @f = split /\'/,$param;
    if ($#f == 3) {
	$addr = $f[1];
	$type = $f[3];
	$conv = (split /[\[,\]]/,$conv)[1];
	print "<field$lf";
	print "name=\"$name\"$lf";
	print "offset=\"$addr\"$lf";
	print "type=\"$type\"$lf";
	print "conversion=\"$conv\"$lf";
	print "comment=\"$comment\"";
	printf substr($lf,0,1);
	print "/>\n\n";
    }
}