Index: app/src/gph/Makefile
===================================================================
--- app/src/gph/Makefile	(revision 8d3e6ab33b2b6727eb54bb3498a0ba2af9ca9ea1)
+++ 	(revision )
@@ -1,9 +1,0 @@
-
-gph:
-
-copy:
-ifdef UTT_BIN_DIR
-	cp gph ${UTT_BIN_DIR}
-endif
-
-clean:
Index: app/src/gph/gph
===================================================================
--- app/src/gph/gph	(revision 3748bd1db46143a281581cb44dc804da0190cbc2)
+++ 	(revision )
@@ -1,162 +1,0 @@
-#!/usr/bin/perl
-
-#package:	UAM Text Tools
-#component:	gph
-#version:	1.0
-#author:	Tomasz Obrebski
-
-use strict;
-use Getopt::Long;
-use File::HomeDir;
-
-
-
-
-
-my $systemconfigfile='/usr/local/etc/utt/gph.conf';
-my $userconfigfile=home()."/.utt/gph.conf";
-
-Getopt::Long::Configure('no_ignore_case_always');
-
-my $help=0;
-my $inputfile=0;
-my $outputfile=0;
-my @process=();
-my $reset;
-my $interactive=0;
-
-#read configuration files###########################
-my $file;
-my @process_conf=();
-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 "inputfile")or($name eq "f")){
-                        $inputfile=$value;
-                }
-                elsif(($name eq "outputfile")or($name eq "o")){
-                        $outputfile=$value;
-                }
-                elsif(($name eq "process")or($name eq "p")){
-                        push @process_conf, $value;
-                }
-                elsif(($name eq "reset")or($name eq "r")){
-                        $reset=$value;
-                }
-                elsif(($name eq "interactive")or($name eq "i")){
-                        $interactive=1;
-                }
-                elsif(($name eq "help")or($name eq "h")){
-                        $help=1;
-                }
-
-        }
-        close CONFIG;
-  }
-}
-#########################################################
-
-
-
-GetOptions("process|p=s" => \@process,
-           "inputfile|f=s" => \$inputfile,
-           "outputfile|o=s" => \$outputfile,
-	   "help|h" => \$help,
-	   "reset|r=s" => \$reset,
-	   "interactive|i" => \$interactive);
-
-@process = @process_conf if @process<1;
-
-if($help)
-{
-    print <<'END'
-Usage: gph [OPTIONS]
-
-Options:
-   --process=TYPE -p TYPE    Process segments of type TYPE.
-   --reset=TYPE -r TYPE      Start new graph at tags of type TYPE.
-   --inputfile=FILE -f FILE  Input file.
-   --outputfile=FILE -o FILE Output file.
-   --interactive -i          Toggle interactive mode (default=off).
-END
-;
-    exit 0;
-}
-
-
-$|=1 if $interactive;
-
-
-if(!$inputfile or $inputfile eq "-") {
-	*INPUT = *STDIN;
-}
-else {
-	open(INPUT, "$inputfile") or die("Can't open input file: $inputfile!");
-}
-
-if(!$outputfile or $outputfile eq "-") {
-	*OUTPUT = *STDOUT;
-}
-else {
-	open(OUTPUT, "$outputfile") or die("Can't open output file: $outputfile!");
-}
-
-my @prev;
-my $n=0;
-
-while(<INPUT>)
-{
-    chomp;
-    my $do=0;
-
-    my @line = split /\s+/;
-
-    if($line[2] eq $reset)
-    {
-	$n=0;
-	@prev = ();
-    }
-
-    for my $p (@process)
-    {
-	$do=1 if $line[2] eq $p;
-    }
-
-	my $gph = '';
-    if($do)
-    {
-	my @preds = ();
-	shift @prev while @prev+0 && $prev[0]->[1] + $prev[0]->[2] < $line[0];
-	for my $p (@prev)
-	{
-	    push(@preds, $p->[0]) if $p->[1] + $p->[2] == $line[0];
-	}
-	push @prev, [$n, $line[0], $line[1]];
-	
-	$gph=' gph:'.$n.':'.join(',',@preds);
-
-	$n++;
-    }
-    else
-    {
-	for my $p (@prev)
-	{
-	    if($p->[1]+$p->[2] == $line[0])
-	    {
-		$p->[2] += $line[1];
-	    }
-	}
-
-	$gph='';
-
-    }
-
-    print OUTPUT $_.$gph."\n";    
-}
-