Lines Matching refs:main
39 $main::buildinfo = "$ARGV[2]";
40 $main::regview = "$ARGV[3]";
41 %{$main::reftypes} = ();
42 %{$main::currenttypes} = ();
43 %{$main::removedtypes} = ();
45 open ( FILEIN, "$main::regview \"$ARGV[0]\" |" ) || die "could not use content of current typelibra…
84 if ( ! exists $main::currenttypes->{$1} )
86 $main::currenttypes->{$1} = { PUBLISHED => $published,
97 open ( FILEIN, "$main::regview \"$ARGV[1]\" |" ) || die "could not use content of reference type li…
137 if ( ! exists $main::reftypes->{$1} )
139 $main::reftypes->{$1}++;
141 if ( exists $main::currenttypes->{$1} )
143 $main::currenttypes->{$1}->{COUNT}++;
149 $main::removedtypes->{$1} = { PUBLISHED => $published,
164 @typekeys = keys %{$main::currenttypes};
172 if ( $main::currenttypes->{$i}->{COUNT} == 1 &&
173 !("$main::currenttypes->{$i}->{TYPECLASS}" eq "module"))
178 if ($main::currenttypes->{$i}->{PUBLISHED} == 1)
186 if ($main::currenttypes->{$i}->{PUBLISHED} == 1)
191 print "$main::currenttypes->{$i}->{TYPECLASS} = $t\n";
198 @removedtypekeys = keys %{$main::removedtypes};
204 print "removed not yet published $main::currenttypes->{$i}->{TYPECLASS} = $t\n";
208 print "Summary [last check for $main::buildinfo]:\n\n";