#!/usr/local/bin/perl

open(CEB, "> alignCebC.txt") or die $!;
open(ENG, "> alignCebE.txt") or die $!;
open(GLOSS, "> cebuano-gloss.txt") or die $!;
print GLOSS "#srclang: Cebuano\n";
print GLOSS "#tgtlang: English\n\n";
print GLOSS "#glossary\n\n#sentences\n\n";

open(ET, "> cebuano-et.txt") or die $!;
print ET "srclang: Cebuano\n";
print ET "tgtlang: English\n\n";

open(CE, "alignCebAll.txt") or die $!;

while ($line = <CE>) {
    chomp($line);
    $line =~ s/[\r\n]*$//;
    next if $line =~ m/^\s*$/;
    ($ceb, $eng) = split(/[\.\?\!]\s+|\t/, $line);
    $eng =~ s/[\.\!\?]\s*$//;
    print CEB "$ceb\n";
    print ENG "$eng\n";

    print ET "newpair\n";
    print ET "srcsent: $ceb\n";
    print ET "tgtsent: $eng\n";
    print ET "aligned: ()\n";
    print ET "context: \n";
    print ET "comment: \n\n";

    print GLOSS "newblock\n";
    print GLOSS "srcsent: $ceb\n";
    print GLOSS "srcmrph: \n";
    print GLOSS "glosses: \n";
    print GLOSS "tgtsent: $eng\n\n";
    
}

close(CE);