#!/usr/bin/perl
use lib "/usr/lib/dbischema";
use Schema; use XMLParser; use Data::Dumper;
@ARGV == 3
	or die "syntax: $0 schema database table > field_types\n";
my $schema = XMLParser->parsefile($ARGV[0])
	or die "cannot parse schema\n";
my $database = $schema->database($ARGV[1])
	or die "no such database `$ARGV[1]'\n";
my $table = $database->table($ARGV[2])
	or die "no such table `$ARGV[2]'\n";
for ($table->fields) {
	print join "\t", $_->name, $_->type, $_->size||'', "\n";
}