#!/afs/athena/contrib/perl/perl
$RCS_ID = '$Id: tbl2lst,v 2.2 1992/06/20 11:44:48 hobbs Exp $' ;
($pgm  = $0) =~ s-.*/-- ;
$HelpInfo = <<EOH ;

	    RDB operator: $pgm

Usage:  $pgm  [options]

Options:
    -edit    Edit option. Used by etbl.
    -help    Print this help info.
    -lN      Line length of N is to be used.

Converts an rdbtable to "list" format. Long data fields are folded.

This RDB operator reads an rdbtable from STDIN and writes the "list" format
to STDOUT.  Options may be abbreviated.

$RCS_ID
EOH
$: = "\n " ;    # default line break list (white space)
$LEN = 80 ;	# default line length
$frm = "format STDOUT = \n^" ;
while ( $ARGV[0] =~ /^-/ ){			# Get args
    $_ = shift ;
    if( /^-e.*/ ){ $EDT++ ; next ; }
    if( /^-h.*/ ){ print $HelpInfo ; exit; }
    if( /^-l(\d+)/ ){ $LEN = $1 ; next ; }
    die "Bad arg: $_\n", $HelpInfo ; }
$lim = $LEN - 16 ;		# max line space for long data fields
$frm .= '<' x ($lim -1) ;
$frm .= "\n\$x\n.\n" ;
eval $frm ;

while( <STDIN> ){  		# col names
    if( $EDT && /^\.\.>>>/ ){ print $_ ; next ; } # control line
    if( /^#\s|^\s+#/ ){ print ; next ; } 	# comment 
    last ; }
chop ;
@H = split( /\t/, $_ ) ;
$HH = $#H ;
for (1..10){ push( @H, "-DATA-ERROR-" ) ; }
while(<STDIN>){			# the data & definitions
    if( $EDT && /^\.\.>>>/ ){ $conl = $_ ; next ; }
    &conv ; }
sub conv {			# convert, output the record
    print "\n" ;		# blank line seperates each record
    print $conl if $conl ; $conl = "" ;
    chop ;
    @F = split( /\t/, $_ ) ;
    for( $i=0 ; $i <= $HH || $i <= $#F ; $i++ ){
	printf( "%13s | ", $H[$i] ) ;
	if( length($F[$i]) <= $lim ){
	    print $F[$i], "\n" ; }
	else{
	    $init = 0 ;
	    $x = $F[$i] ;
	    do {
		print "\t\t" if $init++ ;
		write ;
	    } while( $x ) ;
	}
    }
}