obrebski/utt
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Naproawiono dgc - teraz obsluguje tez komenatrze w linii z regula.

Browse Source 
git-svn-id: svn://atos.wmid.amu.edu.pl/utt@34 e293616e-ec6a-49c2-aa92-f4a8b91c5d16
This commit is contained in:
pawelk 2008-04-30 10:16:33 +00:00
parent 19dfa5cb76
commit 12d8443b2c
1 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
app/src/dgp/dgc
View File

@ -130,27 +130,30 @@ else {
while(<INPUT>)
{
if(/^\s*AGR\s+(\S+)\s+(\S+)\s*$/)
s/#.*//;
s/^\s+//;
s/\s+$//;
if(/^AGR\s+(\S+)\s+(\S+)$/)
{
push @{$agr{$1}}, $2;
}
elsif(/^\s*GOV\s+(\S+)\s+(\S+)\s*$/)
elsif(/^GOV\s+(\S+)\s+(\S+)$/)
{
push @{$gov{$1}}, attr::parse($2);
}
elsif(/^\s*ROLE\s+\S+\s*$/)
elsif(/^ROLE\s+\S+$/)
{
$roles{$_}=1;
print OUTPUT;
print OUTPUT "$_\n";
}
elsif(/^\s*SGL\s+\S+\s*$/)
elsif(/^SGL\s+\S+$/)
{
++$nsgl;
print OUTPUT;
print OUTPUT "$_\n";
}
elsif(/^\s*REQ\s+(\S+)\s+(\S+)\s*$/)
elsif(/^REQ\s+(\S+)\s+(\S+)$/)
{
print OUTPUT "#$_";
print OUTPUT "#$_\n";
my $cat = attr::parse $1;
for my $atomcat (keys %cats)
{
@ -161,19 +164,19 @@ while(<INPUT>)
}
}
}
elsif(/^\s*LEFT\s+\S+\s*$/)
elsif(/^LEFT\s+\S+$/)
{
++$nleft;
print OUTPUT;
print OUTPUT "$_\n";
}
elsif(/^\s*RIGHT\s+\S+\s*$/)
elsif(/^RIGHT\s+\S+$/)
{
++$nright;
print OUTPUT;
print OUTPUT "$_\n";
}
elsif(my ($hs,$ds,$r) = /^\s*LINK\s+($cats_re)\s+($cats_re)\s+(\S+)\s*$/)
elsif(my ($hs,$ds,$r) = /^LINK\s+($cats_re)\s+($cats_re)\s+(\S+)$/)
{
print OUTPUT "#$_";
print OUTPUT "#$_\n";
for my $h ($hs =~ /$attr::cat_re/g)
{
for my $d ($ds =~ /$attr::cat_re/g)
@ -182,10 +185,12 @@ while(<INPUT>)
}
}
}
elsif(/^$/) {
# pomijamy puste linie oraz komentarze
}
else
{
print OUTPUT;
print STDERR "Illegal format: $_\n";
}
}