#! /local/bin/perl

die "Usage: $0 <rex-db>\n" if $#ARGV < 0 ; 

$db = $ARGV[0] ;
$data = "$db.data" ;
$desc = "$db.descr" ;
$jdat = "$db.dat" ;
$jdes = "$db.des" ;

die "$0: can't open $desc\n" if ! open(DESC,$desc) ;
die "$0: can't open $data\n" if ! open(DATA,$data) ;
die "$0: can't open $jdes\n" if ! open(JDES,">$jdes") ;
die "$0: can't open $jdat\n" if ! open(JDAT,">$jdat") ;

$i = 1 ;
while ( $_ = <DESC> )
  { chop ;
    @desc = split(/:/) ;
    print JDES "name:$i:$desc[0]\n" ;
    print JDES "cpat:$i:$desc[1]\n" ;
    $i++ ;
  }

while ( $_ = <DATA> )
  { s/!/!!/g ;
    print JDAT $_ ;
  }