Unni Cathrine Eiken February 2005

}
splice(@ARGx);
$imax = @ARG3ep;
@ARGxep = @ARG3ep;
@ARGxverdi = @ARG3verdi;
finnARGx();
@ARG3 = @ARGx;
sub finnARGx {
$epmor = $ARG0ep[0];
}
for ($i = 0; $i < $imax; $i++){
if ($epmor =~ /$ARGxep[$i]/){
$ARGx = $ARGxverdi[$i];
$imax2 = @ARG0verdi;
for ($ii = 0; $ii < $imax2; $ii++){
if ($ARGx =~ /$ARG0verdi[$ii]/){
push(@ep, $ARG0ep[$ii]);
}
}#slutt for2
}
}#slutt for1
finnARGxsemform();
#fjernRestri():
#setter @ARGxep og @ARGxverdi til ARG0-verdiene
#kjører restrik()
sub fjernRestri {
@ARGxep = @ARG0ep;
@ARGxverdi = @ARG0verdi;
restrik();
@ARG0ep = @ARGxep;
@ARG0verdi = @ARGxverdi;
}
#restrik():
#Går gjennom @restriksjoner og @index og fjerner verdier fra @ARG0ep og @ARG0verdi dersom
#disse arrayene inneholder informasjon om dem
sub restrik {
$imax = @ARGxep;
}
for ($i = 0; $i < $imax; $i++){
foreach $linje (@restriksjoner){
if ($linje =~ /\(attr\(var\($ARGxep[$i]\)/){
splice(@ARGxep, $i, 1);
splice(@ARGxverdi, $i, 1);
}
}
}
foreach $linje (@index){
@utenKomma = split(/,/, $linje);
push(@args, @utenKomma);
$ep = substr(@utenKomma[1], 12, 2);
push(@indexep, $ep);
#print("@indexep\n");
#print("@semform\n");
foreach $linje (@indexep){
97