#!/usr/bin/perl

use pt::pln;

#undef $/;

$/='';

my $corpname=shift;

open (Fo,"> $corpname.cor");
print Fo "<corpus>\n";

for $n (@ARGV){
  open (F,$n);
  print "<obra id=\'$n\'>\n"; 
  print Fo "<obra id=\'$n\'>\n"; 
  while(<F>){
     print  Fo xmlsentences($_);
  }
  print Fo "</obra>\n"; 
}
print Fo "</corpus>\n";

print "making cqp:\n";
system("make N=$corpname C=$corpname.cor"); 


__END__