Index: app/src/dgp/dgc
===================================================================
--- app/src/dgp/dgc	(revision adb4c8d65ba8b406a1703d1c091bcf1af4bdfb3c)
+++ app/src/dgp/dgc	(revision 3748bd1db46143a281581cb44dc804da0190cbc2)
@@ -38,11 +38,11 @@
                 next unless length;
                 my ($name, $value) = split(/\s*=\s*/, $_, 2);
-                if(($name eq "catfile")or($name eq "c")){
+                if(($name eq "categories")or($name eq "c")){
                         $catfile=$value;
                 }
-                elsif(($name eq "dicfile")or($name eq "d")){
+                elsif(($name eq "dictionary")or($name eq "d")){
                         $dicfile=$value;
                 }
-                elsif(($name eq "gramfile")or($name eq "g")){
+                elsif(($name eq "grammar")or($name eq "g")){
                         $gramfile=$value;
                 }
@@ -61,8 +61,15 @@
 
 GetOptions("help|h" => \$help,
-	   "catfile|c=s" => \$catfile,
-	   "dicfile|d=s" => \$dicfile,
-	   "gramfile|g=s" => \$gramfile,
+	   "categories|c=s" => \$catfile,
+	   "dictionary|d=s" => \$dicfile,
+	   "grammar|g=s" => \$gramfile,
 	   "outputfile|o=s" => \$outputfile);
+
+my $homedir = $ENV{'HOME'};
+$catfile =~ s/~/$homedir/;
+$dicfile =~ s/~/$homedir/;
+$gramfile =~ s/~/$homedir/;
+$outputfile =~ s/~/$homedir/;
+
 
 if($help)
@@ -72,8 +79,8 @@
 
 Options:
-   --catfile -c filename	List of syntactic categories.
-   --dicfile -d filename        Dictionary.
-   --gramfile -g filename	List of grammar rules.
-   --outputfile -o filename	Output filename.
+   --categories -c filename	List of syntactic categories.
+   --dictionary -d filename     Dictionary.
+   --grammar -g filename	List of grammar rules.
+   --outputfile -o filename	Output file name.
    --help -h			Help.
 END