Searched refs:seen (Results 1 - 25 of 53) sorted by relevance

123

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Ddefins.t26 my $seen = 0;
30 $seen++ if $name eq '0';
32 print "not " unless $seen;
36 $seen = 0;
40 $seen++ if $line eq '0';
43 print "not " unless $seen;
48 $seen = 0;
49 while (($seen ? $dummy : $name) = <FILE>)
51 $seen++ if $name eq '0';
53 print "not " unless $seen;
[all...]
H A Dtiearray.t9 my %seen;
15 $seen{'TIEARRAY'}++;
22 $seen{'STORESIZE'}++;
29 $seen{'EXTEND'}++;
36 $seen{'FETCHSIZE'}++;
42 $seen{'FETCH'}++;
49 $seen{'STORE'}++;
56 $seen{'UNSHIFT'}++;
63 $seen{'PUSH'}++;
70 $seen{'CLEA
[all...]
H A Dgroups.t119 $seen{$pwgid}++;
125 next if (! defined $group or ! grep { $_ eq $group } @gr) and $seen{$_}++;
172 if ($pwgid == 0 || $seen{0} < 2) {
H A Dgrent.t86 my %seen;
98 push @{ $seen{$name_s} }, $.;
H A Dinccode.t196 @INC = sub { $filename = 'seen'; return undef; };
198 is( $filename, 'seen', 'the coderef sees fully-qualified pathnames' );
H A Dpwent.t81 my %seen;
99 push @{ $seen{$name_s} }, $.;
H A Drunlevel.t185 %seen = ();
191 print $t if ($seen{$t}++ == 0);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/
H A Dstrap-analyze.t40 seen => 10,
78 seen => 5,
110 seen => 11,
128 seen => 4,
146 seen => 4,
164 seen => 4,
184 seen => 0,
201 seen => 5,
219 seen => 5,
241 seen
[all...]
/osnet-11/usr/src/cmd/hal/addons/network-devices/
H A Dcache.c24 * that we have already seen and those that have gone missing. This allows
34 static GHashTable *seen = NULL; variable
75 if (seen != NULL) {
81 g_hash_table_foreach_remove(seen, device_remove_if_stale, args);
92 if (seen == NULL)
93 seen = g_hash_table_new_full(g_str_hash, g_str_equal,
96 result = g_hash_table_lookup_extended(seen, name,
100 g_hash_table_insert(seen, strdup(name), val);
103 HAL_DEBUG(("seen: %s (%d)", name, *val));
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/uni/
H A Dcase.pl20 my %seen;
23 $seen{$i}++;
30 if (++$seen{$i} == 2) {
31 warn sprintf "$base: $i seen twice\n";
43 $none{$i}++ unless $seen{$i};
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dcrlf.t82 my $seen = 0;
83 $seen++ while $text =~ /$chars/g;
84 return $seen;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/
H A DAbbrev.pm59 my $seen = ++$table{$abbrev};
60 if ($seen == 1) { # We're the first word so far to have
63 } elsif ($seen == 2) { # We're the second word to have this
/osnet-11/usr/src/tools/onbld/Checks/
H A DCmtBlk.py37 def __init__(self, lineno, seen, shouldbe):
40 self.seen = seen
121 e.shouldbe, e.seen))
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Pg/
H A DPg.pm344 my %seen;
345 map { $seen{$_} = 1 } @_;
348 @pgs = grep { $seen{$_} } @pgs;
801 # Convert the first list to a hash with seen entries marked as 1-values
820 my %seen; # Set to 1 for everything in the first list
822 map { $seen{$_} = 1 } @$left;
824 return (grep { ! $seen{$_} } @$right);
859 my %seen;
860 return (grep { ++$seen{$_} == 1 } @_);
1360 my %seen; # Se
[all...]
/osnet-11/usr/src/lib/libshadowfs/common/
H A Dshadow_migrate.c216 shadow_load_fidlist(shadow_handle_t *shp, shadow_hash_t *seen, int idx) argument
280 * hash based on FID and ignore those we've already seen.
286 if (shadow_hash_lookup(seen, &ioc.si_fid) != NULL)
293 shadow_hash_insert(seen, fep);
383 shadow_hash_t *seen; local
410 if ((seen = shadow_hash_create(offsetof(shadow_fid_entry_t, sfe_link),
416 if (shadow_load_fidlist(shp, seen, 0) != 0 ||
417 shadow_load_fidlist(shp, seen, 1) != 0)
420 while ((fep = shadow_hash_first(seen)) != NULL) {
421 shadow_hash_remove(seen, fe
[all...]
/osnet-11/usr/src/grub/grub2/util/
H A Ddeviceiter.c384 } *seen; variable in typeref:struct:seen_device
386 /* Check if DEVICE can be read. Skip any DEVICE that we have already seen.
403 /* Have we seen this device already? */
407 if (grub_named_list_find (GRUB_AS_NAMED_LIST (seen), real_device))
409 grub_dprintf ("deviceiter", "Already seen %s (%s)\n",
496 /* Remember that we've seen this device. */
499 grub_list_push (GRUB_AS_LIST_P (&seen), GRUB_AS_LIST (seen_elt));
512 while (seen)
514 struct seen_device *seen_elt = seen;
515 seen
[all...]
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Catalog/
H A DCatalog.pm67 my %seen;
74 if ($seen{$v}++);
76 undef(%seen);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A DEmbed.pm49 my($fh,@mods,%seen);
72 @mods = grep(!$seen{$_}++, @mods);
94 my(@retval,%seen);
102 next if $seen{$ccode}++;
110 my($pname,@retval,%seen);
125 push(@retval, $ccode) unless $seen{$ccode}++;
128 push(@retval, $ccode) unless $seen{$ccode}++;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dvars.pm55 use vars qw($frob @mung %seen);
H A Dutf8_heavy.pl168 my %seen;
175 grep { /^([0-9a-fA-F]+)/ and not $seen{$1}++ } @tmp; # XXX doesn't do ranges right
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/
H A DStraps.pm127 seen => 0,
147 ($totals{max} && $totals{seen} &&
148 $totals{max} == $totals{seen} &&
174 $totals->{seen}++;
203 warn "Enormous test number seen [test $result{number}]\n";
668 seen total tests actually seen
675 todo number of todo tests seen
681 So a successful test should have max == seen == ok.
704 Generates the details based on the last test line seen
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/
H A DRefHash.t213 my (@warnings, %seen);
215 push @warnings, $_ unless $seen{$_}++;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/
H A DDumper.pm69 seen => {}, # local (nested) refs (id => [name, val])
96 # add-to or query the table of already seen references
114 $s->{seen}{$id} = [$k, $v];
123 return map { @$_ } values %{$s->{seen}};
246 if (exists $s->{seen}{$id}) {
252 push @post, $name . " = " . $s->{seen}{$id}[0];
255 $out = $s->{seen}{$id}[0];
271 $s->{seen}{$id} = [ (($name =~ /^[@%]/) ? ('\\' . $name ) :
410 if (exists $s->{seen}{$id}) {
411 if ($s->{seen}{
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/bin/
H A Denc2xs484 my $seen;
485 # use -Q to silence the seen test. Makefile.PL uses this by default.
486 $seen = {} unless $opt{Q};
518 if ($seen) {
523 if (exists $seen->{$uch})
526 $val,$page,$ch,$seen->{$uch});
531 $seen->{$uch} = $page << 8 | $ch;
1241 Fallback for unicode -> encoding. When seen, enc2xs adds this
1250 Fallback for encoding -> unicode. When seen, enc2xs adds this
1360 With %seen holdin
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CPAN/
H A DFirstTime.pm633 my (@cont, $cont, %cont, @countries, @urls, %seen);
657 %seen = map (($_ => 1), @previous_urls);
662 @u = grep (! $seen{$_}, @u);
683 my %seen = map (($_ => 1), @{$CPAN::Config->{urllist}});
687 unless (%seen) {
700 push @urls, $ans unless $seen{$ans}++;
711 } while $ans || !%seen;

Completed in 47 milliseconds

123