Searched refs:ref (Results 1 - 25 of 149) sorted by relevance

123456

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dref.t56 $ref[0] = \@a;
57 $ref[1] = \@b;
58 $ref[2] = \@c;
59 $ref[3] = \@d;
61 push(@{$ref[$i]}, "ok $ary[$i]\n");
64 print ${$ref[1]}[0];
65 print @{$ref[2]}[0];
76 $ref = [[],2,[3,4,5,]];
77 print scalar @$ref == 3 ? "ok 14\n" : "not ok 14\n";
78 print $$ref[
[all...]
H A Dexists_sub.t35 my $ref;
36 $ref->{A}[0] = \&t4;
37 print "not " unless exists &{$ref->{A}[0]} && not defined &{$ref->{A}[0]};
H A Dreaddir.t49 if (ref($fh) eq 'GLOB') { print "ok 5\n"; } else { print "not ok 5\n"; }
51 if (ref($fh[0]) eq 'GLOB') { print "ok 7\n"; } else { print "not ok 7\n"; }
53 if (ref($fh{abc}) eq 'GLOB') { print "ok 9\n"; } else { print "not ok 9\n"; }
H A Dgv.t20 print ref(\$bar) eq 'SCALAR' ? "ok 1\n" : "not ok 1\n";
26 print ref(\$foo) eq 'GLOB' ? "ok 2\n" : "not ok 2\n";
30 print ref(\$foo) eq 'GLOB' ? "ok 3\n" : "not ok 3\n";
34 print ref(\$foo) eq 'GLOB' ? "ok 4\n" : "not ok 4\n";
41 print ref(\$a) eq 'GLOB' ? "ok 5\n" : "not ok 5\n";
44 print ref(\$b) eq 'GLOB' ? "ok 7\n" : "not ok 7\n";
48 print ref(\$foo) eq 'SCALAR' ? "ok 8\n" : "not ok 8\n";
60 print ref(\$fuu) eq 'GLOB' ? "ok 10\n" : "not ok 10\n";
64 print ref(\$baa) eq 'GLOB' ? "ok 11\n" : "not ok 11\n";
103 print ref *
[all...]
H A Dinccode.t48 ok( $evalret, 'require Foo; magic via code ref' );
50 is( ref $INC{'Foo.pm'}, 'CODE', ' val Foo.pm is a coderef in %INC' );
57 is( ref $INC{'Foo1.pm'}, 'CODE', ' val Foo1.pm is a coderef in %INC' );
64 is( ref $INC{'Foo2.pl'}, 'CODE', ' val Foo2.pl is a coderef in %INC' );
91 ok( $evalret, 'require Bar; magic via array ref' );
93 is( ref $INC{'Bar.pm'}, 'ARRAY', ' val Bar.pm is an arrayref in %INC' );
98 is( ref $INC{'Bar1.pm'}, 'ARRAY', ' val Bar1.pm is an arrayref in %INC' );
103 is( ref $INC{'Bar2.pl'}, 'ARRAY', ' val Bar2.pl is an arrayref in %INC' );
125 is( ref $INC{'Quux.pm'}, 'FooLoader',
138 is( ref
[all...]
H A Ddie.t5 $SIG{__DIE__} = sub { print ref($_[0]) ? ("ok ",$_[0]->[0]++,"\n") : @_ } ;
35 print "not " unless ref($@) eq "Out";
/osnet-11/usr/src/lib/libldap5/sources/ldap/common/
H A Dreferral.c54 ldap_next_reference( LDAP *ld, LDAPMessage *ref )
56 if ( !NSLDAPI_VALID_LDAP_POINTER( ld ) || ref == NULLMSG ) {
60 for ( ref = ref->lm_chain; ref != NULLMSG; ref = ref->lm_chain ) {
61 if ( ref->lm_msgtype == LDAP_RES_SEARCH_REFERENCE ) {
62 return( ref );
95 ldap_parse_reference( LDAP *ld, LDAPMessage *ref, cha argument
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dtied_items.t10 # Tests ref to items in tied hash/array structures.
42 $ref = \$h{77};
43 $ref2 = dclone $ref;
46 ok 2, $$ref2 eq $$ref;
57 $ref = \$a[78];
58 $ref2 = dclone $ref;
61 ok 6, $$ref2 eq $$ref;
H A Doverload.t40 ok 1, ref $b eq 'OVERLOADED';
44 ok 3, ref $c eq 'REF';
45 ok 4, ref $$c eq 'OVERLOADED';
66 '""' => sub { ref $_[0] };
74 my $ref = REF_TO_OVER->make($self);
75 $self->{ref} = $ref;
84 ok 8, ref $b eq 'OVER';
86 ok 10, ref $b->{ref} e
[all...]
H A Dblessed.t93 ok 4, ref $y eq 'ARRAY';
96 ok 6, ref $y->[0] eq 'SHORT_NAME';
97 ok 7, ref $y->[1] eq 'SHORT_NAME_WITH_HOOK';
98 ok 8, ref $y->[2] eq $name;
99 ok 9, ref $y->[3] eq "${name}_WITH_HOOK";
103 do { $good = 0; last } unless ref $y->[4*$i] eq 'SHORT_NAME';
104 do { $good = 0; last } unless ref $y->[4*$i+1] eq 'SHORT_NAME_WITH_HOOK';
105 do { $good = 0; last } unless ref $y->[4*$i+2] eq $name;
106 do { $good = 0; last } unless ref $y->[4*$i+3] eq "${name}_WITH_HOOK";
114 ok 11, ref
[all...]
H A Dcompat06.t65 $self->{ref} = \%hash;
81 sub ref { $_[0]->{ref} } subroutine
111 ok 3, ref $y eq 'ROOT';
120 ok 5, $y->ref->{key1} eq 'val1';
121 ok 6, $y->ref->{key2} eq 'val2';
H A Djust_plain_nasty.t73 ok(ref($nasty), "ARRAY", "Sanity found (now to play with it :->)");
83 ok(ref($oh_dear), "ARRAY", "dclone - circular overload");
101 ok(ref($oh_dear), "ARRAY", "dclone - after a closure dclone");
112 ok(ref($oh_dear), "ARRAY", "dclone - before a closure dclone");
123 ok(ref($oh_dear), "ARRAY", "dclone - between a closure dclone");
134 ok(ref($oh_dear), "ARRAY", "dclone - after a closure dclone");
H A Drecurse.t52 die "STORABLE_thaw #2" unless ref $a eq 'ARRAY';
75 die "STORABLE_thaw #2" unless ref $a eq 'ARRAY' || @$a != 2;
103 die "STORABLE_thaw #2" unless ref $a eq 'ARRAY';
104 die "STORABLE_thaw #3" unless ref $r eq 'HASH';
143 ok 2, ref $y eq 'OBJ_REAL';
164 ok 11, ref $y->{sync} eq 'OBJ_SYNC';
179 ok 19, ref $x eq 'OBJ_REAL2';
227 ok 24, ref($bar2) eq 'Bar';
228 ok 25, ref($bar->{b}[0]) eq 'Foo';
229 ok 26, ref(
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Dasmdata.t20 is( (grep { ref eq 'ARRAY' } @data), @data, '%insn_data contains arrays' );
26 is( ref $data->[1], 'CODE', ' PUT code ref' );
27 ok( !ref $data->[2], ' GET method' );
44 is( grep(!ref, @specialsv_name), @specialsv_name, ' contains all strings' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/
H A Ddowngrade.t30 ok (ref(Math::BigFloat->new('inf')),'Math::BigInt');
31 ok (ref(Math::BigFloat->new('-inf')),'Math::BigInt');
32 ok (ref(Math::BigFloat->new('NaN')),'Math::BigInt');
33 ok (ref(Math::BigFloat->new('0')),'Math::BigInt');
34 ok (ref(Math::BigFloat->new('1')),'Math::BigInt');
35 ok (ref(Math::BigFloat->new('10')),'Math::BigInt');
36 ok (ref(Math::BigFloat->new('-10')),'Math::BigInt');
37 ok (ref(Math::BigFloat->new('-10.0E1')),'Math::BigInt');
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/bignum/t/
H A Dbignum.t21 my $x = 5; ok (ref($x) =~ /^Math::BigInt/); # :constant
24 $x = 2 + 3.5; ok (ref($x),'Math::BigFloat');
26 $x = 2 + 2.1; ok (ref($x),'Math::BigFloat');
28 $x = 2 ** 255; ok (ref($x) =~ /^Math::BigInt/);
H A Dbigrat.t21 my $x = 5; ok (ref($x) =~ /^Math::BigInt/); # :constant
24 # todo: $x = 2 + 3.5; ok (ref($x),'Math::BigFloat');
26 $x = 2 ** 255; ok (ref($x) =~ /^Math::BigInt/);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/DynaLoader/t/
H A DXSLoader.t18 ok( ref XSLoader->can('load') );
25 ::ok( ref SDBM_File->can('TIEHASH') );
/osnet-11/usr/src/lib/libast/common/hash/
H A Dhashalloc.c41 hashalloc(Hash_table_t* ref, ...) argument
53 va_start(ap, ref);
60 if (!ref && n == HASH_region)
72 if (ref)
74 tab->flags = ref->flags & ~HASH_RESET;
75 tab->root = ref->root;
101 if (ref) goto out;
113 if (ref) goto out;
117 if (ref) goto out;
121 if (ref) got
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/
H A DRefHash.t25 my $ref = []; my $ref1 = [];
79 test(ref($h) eq 'Tie::RefHash');
81 $h{$ref} = 'cholet';
82 test($h{$ref} eq 'cholet');
83 test(exists $h{$ref});
85 test(ref((keys %h)[0]) eq 'ARRAY');
86 test((keys %h)[0] eq $ref);
92 test(ref($k) eq 'ARRAY');
93 test($k eq $ref);
97 delete $h{$ref};
[all...]
/osnet-11/usr/src/grub/grub2/grub-core/lib/
H A Dcrc.c28 auto grub_uint32_t reflect (grub_uint32_t ref, int len);
29 grub_uint32_t reflect (grub_uint32_t ref, int len) argument
36 if (ref & 1)
38 ref >>= 1;
H A Dcrc64.c31 auto grub_uint64_t reflect (grub_uint64_t ref, int len);
32 grub_uint64_t reflect (grub_uint64_t ref, int len) argument
39 if (ref & 1)
41 ref >>= 1;
/osnet-11/usr/src/lib/libndr/common/
H A Dndr_ops.c239 ndo_malloc(ndr_stream_t *nds, unsigned len, ndr_ref_t *ref) argument
251 ndo_free(ndr_stream_t *nds, char *p, ndr_ref_t *ref) argument
268 ndo_grow_pdu(ndr_stream_t *nds, unsigned long want_end_offset, ndr_ref_t *ref) argument
273 ndo_printf(nds, ref, "grow %d", want_end_offset);
298 unsigned long n_bytes, ndr_ref_t *ref)
305 ndo_printf(nds, ref, "pad %d@%-3d", n_bytes, pdu_offset);
321 unsigned long n_bytes, char *buf, int swap_bytes, ndr_ref_t *ref)
331 ndo_printf(nds, ref, "get %d@%-3d = %s",
351 unsigned long n_bytes, char *buf, int swap_bytes, ndr_ref_t *ref)
361 ndo_printf(nds, ref, "pu
297 ndo_pad_pdu(ndr_stream_t *nds, unsigned long pdu_offset, unsigned long n_bytes, ndr_ref_t *ref) argument
320 ndo_get_pdu(ndr_stream_t *nds, unsigned long pdu_offset, unsigned long n_bytes, char *buf, int swap_bytes, ndr_ref_t *ref) argument
350 ndo_put_pdu(ndr_stream_t *nds, unsigned long pdu_offset, unsigned long n_bytes, char *buf, int swap_bytes, ndr_ref_t *ref) argument
369 ndo_tattle(ndr_stream_t *nds, char *what, ndr_ref_t *ref) argument
375 ndo_tattle_error(ndr_stream_t *nds, ndr_ref_t *ref) argument
456 ndo_printf(ndr_stream_t *nds, ndr_ref_t *ref, const char *fmt, ...) argument
485 ndo_fmt(ndr_stream_t *nds, ndr_ref_t *ref, char *note) argument
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Doverload.t81 test (ref $a eq "Oscalar"); # 4
87 test (ref $c eq "Oscalar"); # 7
93 test (ref $a eq "Oscalar"); # 10
97 test (ref $b eq "Oscalar"); # 11
100 test (ref $a eq "Oscalar"); # 14
105 test (ref $c eq "Oscalar"); # 15
108 test (ref $a eq "Oscalar"); # 18
113 test (ref $b eq "Oscalar"); # 19
116 test (ref $a eq "Oscalar"); # 22
122 test (ref
[all...]
/osnet-11/usr/src/lib/libpp/common/
H A Dppmisc.c31 * macro symbol def|ref
35 pprefmac(char* name, int ref) argument
39 if (!(sym = ppsymget(pp.symtab, name)) && (ref <= REF_NORMAL && pp.macref || ref == REF_CREATE || ref == REF_DELETE && (pp.mode & (INIT|READONLY))))
45 if (sym && ref <= REF_NORMAL)
47 if (pp.macref) (*pp.macref)(sym, error_info.file, error_info.line, ref == REF_NORMAL && (pp.state & CONDITIONAL) ? REF_IF : ref, 0L);
53 if (ref == REF_IF && sym && (sym->flags & SYM_PREDEFINED) && *name != '_' && !(pp.mode & (HOSTED|INACTIVE)))

Completed in 166 milliseconds

123456