Unni Cathrine Eiken February 2005

}
}
}
@utenDings = split(/\'/, $linje);
push(@args, @utenDings);
@pred = @utenDings[3];
push(@predikat, @pred);
if ($predikat[0] =~ /named/){
foreach $verdi (@navn){
if ($verdi =~ /\(attr\(var\($epmor\)/){
splice(@pred);
splice(@predikat);
@uten = split(/\'/, $verdi);
push(@arg, @uten);
@pred = @uten[3];
push(@predikat, @pred);
#print("@predikat\n");
}
}
}
foreach $linje (@prt){
if ($linje =~ /\(attr\(var\($epmor\)/){
@utenDings = split(/\'/, $linje);
push(@args, @utenDings);
@ekstr = @utenDings[3];
push(@ekstra, @ekstr);
}
}
sub finnARG1 {
$imax = 0;
splice(@ARGxep);
splice(@ARGxverdi);
splice(@ep);
splice(@ARGx);
}
$imax = @ARG1ep;
@ARGxep = @ARG1ep;
@ARGxverdi = @ARG1verdi;
finnARGx();
@ARG1 = @ARGx;
sub finnARG2 {
$imax = 0;
splice(@ARGxep);
splice(@ARGxverdi);
splice(@ep);
splice(@ARGx);
}
$imax = @ARG2ep;
@ARGxep = @ARG2ep;
@ARGxverdi = @ARG2verdi;
finnARGx();
@ARG2 = @ARGx;
sub finnARG3 {
$imax = 0;
splice(@ARGxep);
splice(@ARGxverdi);
splice(@ep);
96