Changeset 19dfa5c for app/src/dgp

Timestamp:

04/24/08 12:36:13 (17 years ago)

Author:

pawelk <pawelk@…>

Branches:

master, help

Children:

12d8443

Parents:

a5fdde9

git-author:

pawelk <pawelk@…> (04/24/08 12:36:13)

git-committer:

pawelk <pawelk@…> (04/24/08 12:36:13)

Message:

gph i dgc obsluguja configi

git-svn-id: ​svn://atos.wmid.amu.edu.pl/utt@33 e293616e-ec6a-49c2-aa92-f4a8b91c5d16

File:

• app/src/dgp/dgc (modified) (13 diffs)

app/src/dgp/dgc

@@ -6 +6 @@
 #author:        Tomasz Obrebski
 
+# wymaga niejawnie programu canonize!!!!
 #use lib "ENV{HOME}/.utt/lib/perl";
-#use strict;
+
+use strict;
 use Getopt::Long;
 use Data::Dumper;
 
 use attr;
-#use File::HomeDir;
+use File::HomeDir;
+
+my $systemconfigfile='/usr/local/etc/utt/dgc.conf';
+my $userconfigfile=home()."/.utt/dgc.conf";
+
+Getopt::Long::Configure('no_ignore_case_always');
 
 my $help=0;
@@ -18 +25 @@
 my $dicfile=0;
 my $gramfile=0;
+my $outputfile=0;
+
+#read configuration files###########################
+my $file;
+foreach $file ($systemconfigfile, $userconfigfile){
+  if(open(CONFIG, $file)){
+        while (<CONFIG>) {
+                chomp;
+                s/#.*//;
+                s/^\s+//;
+                s/\s+$//;
+                next unless length;
+                my ($name, $value) = split(/\s*=\s*/, $_, 2);
+                if(($name eq "catfile")or($name eq "c")){
+                        $catfile=$value;
+                }
+                elsif(($name eq "dicfile")or($name eq "d")){
+                        $dicfile=$value;
+                }
+                elsif(($name eq "gramfile")or($name eq "g")){
+                        $gramfile=$value;
+                }
+                elsif(($name eq "outputfile")or($name eq "o")){
+                        $outputfile=$value;
+                }
+                elsif(($name eq "help")or($name eq "h")){
+                        $help=1;
+                }
+
+        }
+        close CONFIG;
+  }
+}
+#########################################################
+
+GetOptions("help|h" => \$help,
+           "catfile|c=s" => \$catfile,
+           "dicfile|d=s" => \$dicfile,
+           "gramfile|g=s" => \$gramfile,
+           "outputfile|o=s" => \$outputfile);
+
+if($help)
+{
+    print <<'END'
+Usage: dgc [OPTIONS]
+
+Options:
+   --catfile -c filename        List of syntactic categories.
+   --dicfile -d filename        Dictionary.
+   --gramfile -g filename       List of grammar rules.
+   --outputfile -o filename     Output filename.
+   --help -h                    Help.
+END
+;
+    exit 0;
+}
+
+die("At least one of --cats and --dic must be given.\n") if !$catfile && !$dicfile;
 
 my $ncat=0;
@@ -27 +92 @@
 my $nlink=0;
 
-GetOptions("help|h" => \$help,
-           "catfile|c=s" => \$catfile,
-           "dicfile|d=s" => \$dicfile,
-           "gramfile|g=s" => \$gramfile);
-
-if($help)
-{
-    print <<'END'
-Usage: dgpcompile [OPTIONS]
-
-Options:
-   --cats -c filename           List of syntactic categories.
-   --dic  -d filename           Dictionary.
-   --help -h                    Help.
-END
-;
-    exit 0;
-}
-
-die("At least one of --cats and --dic must be given.\n") if !$catfile && !$dicfile;
-
 my %cats;
 my %roles;
@@ -53 +97 @@
 my %gov;
 
+if(!$outputfile) {
+        *OUTPUT = *STDOUT;
+}
+elsif($outputfile eq "-") {
+    *OUTPUT = *STDOUT;
+}
+else {
+        open(OUTPUT, ">$outputfile") or die("Can't open output file: $outputfile!");
+}
+
+
+
 loadcats($catfile) if $catfile;
 extractcats($dicfile) if $dicfile;
 
 
-$cats_re = qr/(?:$attr::cat_re\s*(?:,\s*$attr::cat_re)*)/;
+my $cats_re = qr/(?:$attr::cat_re\s*(?:,\s*$attr::cat_re)*)/;
 
 # class parse_class:
 # /$attr::cat_re/g;
 
-while(<>)
+
+if(!$gramfile) { 
+        *INPUT = *STDIN;
+}
+elsif($gramfile eq "-"){
+    *INPUT = *STDIN;
+}
+else {
+        open(INPUT, $gramfile) or die("Unable to open: $gramfile!");
+}
+
+while(<INPUT>)
 {
     if(/^\s*AGR\s+(\S+)\s+(\S+)\s*$/)
@@ -75 +142 @@
     {
         $roles{$_}=1;
-        print;
+        print OUTPUT;
     }
     elsif(/^\s*SGL\s+\S+\s*$/)
     {
         ++$nsgl;
-        print;
+        print OUTPUT;
     }
     elsif(/^\s*REQ\s+(\S+)\s+(\S+)\s*$/)
     {
-        print "#$_";
+        print OUTPUT "#$_";
         my $cat = attr::parse $1;
         for my $atomcat (keys %cats)
@@ -90 +157 @@
             if(attr::match @$cat, @{$cats{$atomcat}})
             {
-                print "REQ ".$atomcat." $2\n";
+                print OUTPUT "REQ ".$atomcat." $2\n";
                 ++$nreq;
             }
@@ -98 +165 @@
     {
         ++$nleft;
-        print;
+        print OUTPUT;
     }
     elsif(/^\s*RIGHT\s+\S+\s*$/)
     {
         ++$nright;
-        print;
-    }
-    elsif(($hs,$ds,$r) = /^\s*LINK\s+($cats_re)\s+($cats_re)\s+(\S+)\s*$/)
-    {
-        print "#$_";
-        for $h ($hs =~ /$attr::cat_re/g)
-        {
-            for $d ($ds =~ /$attr::cat_re/g)
+        print OUTPUT;
+    }
+    elsif(my ($hs,$ds,$r) = /^\s*LINK\s+($cats_re)\s+($cats_re)\s+(\S+)\s*$/)
+    {
+        print OUTPUT "#$_";
+        for my $h ($hs =~ /$attr::cat_re/g)
+        {
+            for my $d ($ds =~ /$attr::cat_re/g)
             {
                 addlinks($h,$d,$r);
@@ -119 +186 @@
     else
     {
-        print;
+        print OUTPUT;
     }
 }
@@ -126 +193 @@
 sub addlinks
 {
-    ($h,$d,$r) = @_;
-
-    for my $a (@{$agr{$r}}) { print "#AGR $r $a\n"; }
-    for my $c (@{$gov{$r}}) { print "#GOV $r ".attr::unparse(@$c)."\n"; }
+    my ($h,$d,$r) = @_;
+
+    for my $a (@{$agr{$r}}) { print OUTPUT "#AGR $r $a\n"; }
+    for my $c (@{$gov{$r}}) { print OUTPUT "#GOV $r ".attr::unparse(@$c)."\n"; }
     my $head = attr::parse $h;
     my $dep = attr::parse $d;
@@ -152 +219 @@
                 }
                 
-                print "LINK ";
-                print $atomhead." ";
-                print $atomdep." $r\n";
+                print OUTPUT "LINK ";
+                print OUTPUT $atomhead." ";
+                print OUTPUT $atomdep." $r\n";
                 ++$nlink;
                 
@@ -180 +247 @@
         while(/,([^[:space:];]+)/g)
         {
-            $cat=$1;
+            my $cat=$1;
             next if !$cat || exists $cats{$cat};
             $ncat++;
-            print "CAT $1\n";
+            print OUTPUT "CAT $1\n";
             $cats{$cat}=attr::parse($cat);
         }
@@ -199 +266 @@
         tr/ \t\n//d;
         next if !$_ || exists $cats{$_};
-        print "CAT $_\n";
+        print OUTPUT "CAT $_\n";
         ++$ncat;
         $cats{$_}=attr::parse($_);
@@ -205 +272 @@
     close CATFILE;
 }
+