Unni Cathrine Eiken February 2005

# Subrutine som tar inn argumentnummer (1 eller 2, tilsvarer ARG1 eller ARG2) og
predikat.
# Viser predikatets argumenter (NIVÅ0) og returnerer dem for bruk på neste nivå.
sub parse_level0 {
# Henter subrutinens parametre.
my $argnum = shift;
my $pred = shift;
# Henter ut alle predikatets argumenter.
my %args = $argnum == 1 ? %{$pred_args1{$pred}} : %{$pred_args2{$pred}};
# Henter ut selve argumentene i sortert rekkefølge (etter antall forekomster og
alfabetisk).
my @args = sort { $args{$b} $args{$a} } sort { lc($a) cmp lc($b) } keys %args;
}
# Viser predikatets argument-liste.
print "NIVÅ0, ARG$argnum ($pred): ";
print join(', ', map { "$_ x $args{$_}" } @args), "\n";
return @args;
# Subrutine som tar inn argumentnummer (1 eller 2, tilsvarer ARG1 eller ARG2) og et
argument (pluss ekstra styringsparametre).
# Finner andre predikater som argumentet er brukt i forbindelse med.
# Viser argumenter for alle funnede predikater, samt antallet ganger disse argumentene
ble brukt.
#
# I resten av subrutinen kalles disse funnede argumentene for "refererte argumenter (på
neste nivå)",
# fordi de indirekte via et predikat er referert fra et argument (eks: et NIVÅ0-argument
"refererer"
# til en del NIVÅ1-arguenter, som igjen referer til en del NIVÅ2-argumenter).
sub parse_level1or2 {
# Henter subrutinens parametre.
my $level = shift;
my $argnum = shift;
my $arg = shift;
my $pred_lvl0 = shift;
my $arg_lastlevel = $level == 1 ? '' : shift;
# Tar ikke hensyn til '?'-argumenter.
return if $arg eq '?';
# Datastruktur som teller antall refererte argumenter på neste nivå.
my %argrefs = ();
# Henter ut alle predikatene som inneholder argumentet.
my @preds = $argnum == 1 ? keys %{$arg1_preds{$arg}} : keys %{$arg2_preds{$arg}};
# ...og gjennomløper disse predikatene.
foreach $pred (@preds) {
# Tar ikke hensyn til samme predikatet som man holder på med.
next if $pred eq $pred_lvl0;
# Henter ut alle predikatets argumenter.
my %args = $argnum == 1 ? %{$pred_args1{$pred}} : %{$pred_args2{$pred}};
# ...og gjennomløper og teller disse.
foreach $argref (keys %args) {
# Tar ikke hensyn til samme argument som man holder på med.
next if $argref eq $arg || $argref eq $arg_lastlevel;
}
# Øker telleren (antall refererte argumenter på neste nivå).
$argrefs{$argref} += $args{$argref};
111