Index: app/src/grp/grp
===================================================================
--- app/src/grp/grp	(revision 20b4e44e7537762f6aceb72b039f6e8f8a50e201)
+++ app/src/grp/grp	(revision f5d3b20097c280ad859675079ea5c7bc804b9815)
@@ -28,4 +28,5 @@
 my $eos="seg(EOS)";
 my $morfield='lem';
+my $tags=0;
 
 #read configuration files###########################
@@ -61,4 +62,7 @@
 			$action;
     		}
+    		elsif($name eq "tags"){
+    			$tags=$value;
+    		}
     		elsif(($name eq "help")or($name eq "h")){
 			$help=1;
@@ -78,4 +82,5 @@
 	   "command" => \$show_command,
 	   "action=s" => \$action,
+	   "tags=s" => \$tags,
 	   "help|h" => \$help);
 
@@ -97,4 +102,5 @@
 				    P - postprocess
 				(default pgP)
+   --tags=STRING                Morphosyntactic tag format.
    --command			Print the shell command to be executed and exit.
    --help -h			Help.
@@ -109,4 +115,11 @@
     $macrofile or
     -e "$LIB_DIR/terms.m4" and $macrofile="$LIB_DIR/terms.m4";
+
+die("$0: undefined tagset format (tags option missing)") unless
+    $tags;
+
+die("$0: $tags.tag2re program not found") unless
+    1; #JAK NAPISAC WARUNEK???
+
 
 my $uncompress = ($action =~ /u/) ? ' lzop -cd | '  : '';
@@ -132,5 +145,5 @@
 # <> expansion
 
-$grepre =~ s/<([^>]+)>/`echo $1 | tag2re`/ge;
+$grepre =~ s/<([^>]+)>/`echo $1 | $tags.tag2re`/ge;
 
 $grepre =~ s/\./[^ [:cntrl:]]/g;