Unni Cathrine Eiken February 2005

}
}
for ($i = 0; $i < @semform; $i++){
if ($semform[$i] =~ /\(attr\(var\($linje\)/){
splice(@semform, $i, 1);
#print("@semform\n");
}
}
#restrimatch():
#fjerner ep'er som ikke inneholder informasjon om den semantiske formen
#går gjennom hvert element i @restriksjoner og for hvert element settes $epARG1 til
første element i @ep2
#hvis elementet fra @restriksjoner inneholder $epARG1 som indexverdi, fjernes det fra
@ep2
sub restrimatch {
foreach $linje (@restriksjoner){
$epARGx = $ep[0];
if ($linje =~ m/\(attr\(var\($epARGx\)/){
shift(@ep);
}
}
}
#restrimatch for doble argument2:
#samme fremgangsmåte som for restrimatch(), men med andre variabler etc
sub restrimatch4 {
$imax = @liste;
for ($i = 0; $i < $imax; $i++){
foreach $linje (@restriksjoner){
$epARGx = $liste[$i];
if ($linje =~ m/\(attr\(var\($epARGx\)/){
splice(@liste,$i,1);
}
}
}
}
#MODULARISERT VERSJON - GENERISK FUNKSJON FOR Å FINNE SEMANTISK FORM
#finnARGxsemform():
sub finnARGxsemform {
$epARGx = $ep[0];
foreach $linje (@index){
if ($linje =~ /\(attr\(var\($epARGx\)/){
@utenKomma = split(/,/, $linje);
push(args, @utenKomma);
$verdi = substr(@utenKomma[3],4,2);
push(@ARGxind, $verdi);
for ($i = 0; $i < @semform; $i++){
if (@semform[i] =~ /\(attr\(var\($epARGx\)/){
splice(@semform, $i, 1);
}
}
}
}
#finner ep hvor element i @ARGxind er verdien til ARG0 og legger dem i array @liste
if (@ARGxind != 0){
foreach $element (@ARGxind){
$imax = @ARG0verdi;
for ($i = 0; $i < $imax; $i++){
if($element =~ /$ARG0verdi[$i]/){
98