Home
last modified time | relevance | path

Searched refs:a (Results 1 – 25 of 5372) sorted by relevance

12345678910>>...215

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/base/
H A Dnum.t8 $a = 1; "$a";
9 print $a eq "1" ? "ok 1\n" : "not ok 1 # $a\n";
11 $a = -1; "$a";
12 print $a eq "-1" ? "ok 2\n" : "not ok 2 # $a\n";
14 $a = 1.; "$a";
15 print $a eq "1" ? "ok 3\n" : "not ok 3 # $a\n";
17 $a = -1.; "$a";
18 print $a eq "-1" ? "ok 4\n" : "not ok 4 # $a\n";
20 $a = 0.1; "$a";
21 print $a eq "0.1" ? "ok 5\n" : "not ok 5 # $a\n";
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dsubstr.t13 $a = 'abcdefxyz';
30 ok 1, substr($a,0,3) eq 'abc'; # P=Q R S
31 ok 2, substr($a,3,3) eq 'def'; # P Q R S
32 ok 3, substr($a,6,999) eq 'xyz'; # P Q S R
33 $b = substr($a,999,999) ; # warn # P R Q S
35 eval{substr($a,999,999) = "" ; };# P R Q S
37 ok 6, substr($a,0,-6) eq 'abc'; # P=Q R S
38 ok 7, substr($a,-3,1) eq 'x'; # P Q R S
42 ok 8, substr($a,1,3) eq 'abc' ; # P=Q R S
43 ok 9, substr($a,4,3) eq 'def' ; # P Q R S
[all …]
H A Dinc.t36 my $a = 2147483647;
37 my $c=$a++;
38 ok ($a == 2147483648, $a);
40 $a = 2147483647;
41 $c=++$a;
42 ok ($a == 2147483648, $a);
44 $a = 2147483647;
45 $a=$a+1;
46 ok ($a == 2147483648, $a);
48 $a = -2147483648;
[all …]
H A Dlength.t23 my $a = "\x{41}";
25 print "not " unless length($a) == 1;
30 print "not " unless $a eq "\x41" && length($a) == 1;
36 my $a = pack("U", 0xFF);
38 print "not " unless length($a) == 1;
45 printf "#%vx for 0xFF\n",$a;
46 print "not " unless $a eq "\x8b\x73" && length($a) == 2;
50 print "not " unless $a eq "\xc3\xbf" && length($a) == 2;
57 my $a = "\x{100}";
59 print "not " unless length($a) == 1;
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/
H A D04_splice.t27 my $o = tie @a, 'Tie::File', $file;
35 splice(@a, 0, 0, "rec4");
37 splice(@a, 0, 1, "rec5"); # same length
39 splice(@a, 0, 1, "record5"); # longer
42 splice(@a, 0, 1, "r5"); # shorter
44 splice(@a, 0, 1); # removal
46 splice(@a, 0, 0); # no-op
48 splice(@a, 0, 0, 'r7', 'rec8'); # insert more than one
50 splice(@a, 0, 2, 'rec7', 'record8', 'rec9'); # insert more than delete
53 splice(@a, 0, 3, 'record9', 'rec10'); # delete more than insert
[all …]
H A D20_cache_full.t25 my $o = tie @a, 'Tie::File', $file, memory => $MAX, autodefer => 0;
30 my @z = @a; # force cache to contain all ten records
34 my $a = join " ", sort $o->{cache}->ckeys;
35 if ($a eq $x) { print "ok $N\n" }
36 else { print "not ok $N # cache keys were <$a>; expected <$x>\n" }
45 splice(@a, 0, 0, "rec4");
47 splice(@a, 0, 1, "rec5"); # same length
49 splice(@a, 0, 1, "record5"); # longer
51 splice(@a, 0, 1, "r5"); # shorter
53 splice(@a, 0, 1); # removal
[all …]
H A D10_splice_rs.t26 my $o = tie @a, 'Tie::File', $file, recsep => 'blah';
33 splice(@a, 0, 0, "rec4");
35 splice(@a, 0, 1, "rec5"); # same length
37 splice(@a, 0, 1, "record5"); # longer
40 splice(@a, 0, 1, "r5"); # shorter
42 splice(@a, 0, 1); # removal
44 splice(@a, 0, 0); # no-op
46 splice(@a, 0, 0, 'r7', 'rec8'); # insert more than one
48 splice(@a, 0, 2, 'rec7', 'record8', 'rec9'); # insert more than delete
51 splice(@a, 0, 3, 'record9', 'rec10'); # delete more than insert
[all …]
H A D19_cache.t23 my $o = tie @a, 'Tie::File', $file;
28 my @z = @a; # force cache to contain all ten records
29 splice @a, 0, 0, "x";
38 splice(@a, 0, 0, "rec4");
40 splice(@a, 0, 1, "rec5"); # same length
42 splice(@a, 0, 1, "record5"); # longer
44 splice(@a, 0, 1, "r5"); # shorter
46 splice(@a, 0, 1); # removal
48 splice(@a, 0, 0); # no-op
51 splice(@a, 0, 0, 'r7', 'rec8'); # insert more than one
[all …]
H A D07_rv_splice.t20 my $o = tie @a, 'Tie::File', $file, autochomp => 0;
27 @r = splice(@a, 0, 0, "rec4");
29 @r = splice(@a, 0, 1, "rec5"); # same length
31 @r = splice(@a, 0, 1, "record5"); # longer
34 @r = splice(@a, 0, 1, "r5"); # shorter
36 @r = splice(@a, 0, 1); # removal
38 @r = splice(@a, 0, 0); # no-op
40 @r = splice(@a, 0, 0, 'r7', 'rec8'); # insert more than one
42 @r = splice(@a, 0, 2, 'rec7', 'record8', 'rec9'); # insert more than delete
45 @r = splice(@a, 0, 3, 'record9', 'rec10'); # delete more than insert
[all …]
H A D23_rv_ac_splice.t19 my $o = tie @a, 'Tie::File', $file, autochomp => 1;
26 @r = splice(@a, 0, 0, "rec4");
28 @r = splice(@a, 0, 1, "rec5"); # same length
30 @r = splice(@a, 0, 1, "record5"); # longer
33 @r = splice(@a, 0, 1, "r5"); # shorter
35 @r = splice(@a, 0, 1); # removal
37 @r = splice(@a, 0, 0); # no-op
39 @r = splice(@a, 0, 0, 'r7', 'rec8'); # insert more than one
41 @r = splice(@a, 0, 2, 'rec7', 'record8', 'rec9'); # insert more than delete
44 @r = splice(@a, 0, 3, 'record9', 'rec10'); # delete more than insert
[all …]
H A D11_rv_splice_rs.t18 my $o = tie @a, 'Tie::File', $file, autochomp => 0, recsep => 'blah';
25 @r = splice(@a, 0, 0, "rec4");
27 @r = splice(@a, 0, 1, "rec5"); # same length
29 @r = splice(@a, 0, 1, "record5"); # longer
32 @r = splice(@a, 0, 1, "r5"); # shorter
34 @r = splice(@a, 0, 1); # removal
36 @r = splice(@a, 0, 0); # no-op
38 @r = splice(@a, 0, 0, 'r7', 'rec8'); # insert more than one
40 @r = splice(@a, 0, 2, 'rec7', 'record8', 'rec9'); # insert more than delete
43 @r = splice(@a, 0, 3, 'record9', 'rec10'); # delete more than insert
[all …]
H A D09_gen_rs.t12 my $o = tie @a, 'Tie::File', $file,
19 $a[0] = 'rec0';
23 $a[1] = 'rec1';
25 $a[2] = 'rec2';
29 $a[0] = 'new0';
31 $a[1] = 'new1';
33 $a[2] = 'new2';
37 $a[0] = 'long0';
39 $a[1] = 'long1';
41 $a[2] = 'long2';
[all …]
H A D22_autochomp.t12 my $o = tie @a, 'Tie::File', $file, autochomp => 1, autodefer => 0;
17 $a[0] = 'rec0';
21 $a[1] = 'rec1';
23 $a[2] = 'rec2';
27 $a[0] = 'new0';
29 $a[1] = 'new1';
31 $a[2] = 'new2';
35 $a[0] = 'long0';
37 $a[1] = 'long1';
39 $a[2] = 'long2';
[all …]
H A D01_gen.t13 my $o = tie @a, 'Tie::File', $file, autochomp => 0, autodefer => 0;
20 $a[0] = 'rec0';
24 $a[1] = 'rec1';
26 $a[2] = 'rec2';
30 $a[0] = 'new0';
32 $a[1] = 'new1';
34 $a[2] = 'new2';
38 $a[0] = 'long0';
40 $a[1] = 'long1';
42 $a[2] = 'long2';
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/
H A Dembed.h2591 #define amagic_call(a,b,c,d) Perl_amagic_call(aTHX_ a,b,c,d) argument
2592 #define Gv_AMupdate(a) Perl_Gv_AMupdate(aTHX_ a) argument
2593 #define gv_handler(a,b) Perl_gv_handler(aTHX_ a,b) argument
2595 #define append_elem(a,b,c) Perl_append_elem(aTHX_ a,b,c) argument
2598 #define append_list(a,b,c) Perl_append_list(aTHX_ a,b,c) argument
2601 #define apply(a,b,c) Perl_apply(aTHX_ a,b,c) argument
2603 #define apply_attrs_string(a,b,c,d) Perl_apply_attrs_string(aTHX_ a,b,c,d) argument
2604 #define avhv_delete_ent(a,b,c,d) Perl_avhv_delete_ent(aTHX_ a,b,c,d) argument
2605 #define avhv_exists_ent(a,b,c) Perl_avhv_exists_ent(aTHX_ a,b,c) argument
2606 #define avhv_fetch_ent(a,b,c,d) Perl_avhv_fetch_ent(aTHX_ a,b,c,d) argument
[all …]
/onnv-gate/usr/src/common/openssl/crypto/bn/
H A Dbn_word.c63 BN_ULONG BN_mod_word(const BIGNUM *a, BN_ULONG w) in BN_mod_word() argument
75 bn_check_top(a); in BN_mod_word()
77 for (i=a->top-1; i>=0; i--) in BN_mod_word()
80 ret=((ret<<BN_BITS4)|((a->d[i]>>BN_BITS4)&BN_MASK2l))%w; in BN_mod_word()
81 ret=((ret<<BN_BITS4)|(a->d[i]&BN_MASK2l))%w; in BN_mod_word()
83 ret=(BN_ULLONG)(((ret<<(BN_ULLONG)BN_BITS2)|a->d[i])% in BN_mod_word()
90 BN_ULONG BN_div_word(BIGNUM *a, BN_ULONG w) in BN_div_word() argument
95 bn_check_top(a); in BN_div_word()
101 if (a->top == 0) in BN_div_word()
107 if (!BN_lshift(a, a, j)) in BN_div_word()
[all …]
H A Dbn_lib.c248 int BN_num_bits(const BIGNUM *a) in BN_num_bits() argument
250 int i = a->top - 1; in BN_num_bits()
251 bn_check_top(a); in BN_num_bits()
253 if (BN_is_zero(a)) return 0; in BN_num_bits()
254 return ((i*BN_BITS2) + BN_num_bits_word(a->d[i])); in BN_num_bits()
257 void BN_clear_free(BIGNUM *a) in BN_clear_free() argument
261 if (a == NULL) return; in BN_clear_free()
262 bn_check_top(a); in BN_clear_free()
263 if (a->d != NULL) in BN_clear_free()
265 OPENSSL_cleanse(a->d,a->dmax*sizeof(a->d[0])); in BN_clear_free()
[all …]
/onnv-gate/usr/src/lib/libc/port/fp/
H A Daconvert.c62 } a, c; in __aconvert() local
66 a.d = arg; in __aconvert()
67 *sign = s = a.i[0] >> 31; in __aconvert()
68 ha = a.i[0] & ~0x80000000; in __aconvert()
73 __infnanstring((ha == 0x7ff00000 && a.i[1] == 0)? in __aconvert()
80 if ((ha | a.i[1]) == 0) { in __aconvert()
94 a.i[0] = ha; in __aconvert()
95 a.d = (double)a.l; in __aconvert()
97 a.d = -a.d; in __aconvert()
98 ha = a.i[0] & ~0x80000000; in __aconvert()
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/warnings/
H A Dtoke3 we seem to have lost a few ambiguous warnings!!
6 $a = <<;
16 $a = 1
21 my $a =+ 2 ;
22 $a =- 2 ;
23 $a =* 2 ;
24 $a =% 2 ;
25 $a =& 2 ;
26 $a =. 2 ;
27 $a =^ 2 ;
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dcmdopt.t48 $a = 'a';
49 if ($a eq 'a') { print "ok 21\n";} else { print "not ok 21\n";}
50 if ($a ne 'a') { print "not ok 22\n";} else { print "ok 22\n";}
52 if ($a =~ /a/) { print "ok 23\n";} else { print "not ok 23\n";}
53 if ($a !~ /a/) { print "not ok 24\n";} else { print "ok 24\n";}
56 $a = 'a';
58 if ($a eq 'a' and $x) { print "ok 25\n";} else { print "not ok 25\n";}
59 if ($a ne 'a' and $x) { print "not ok 26\n";} else { print "ok 26\n";}
61 if ($a eq 'a' and $x) { print "not ok 27\n";} else { print "ok 27\n";}
62 if ($a ne 'a' and $x) { print "not ok 28\n";} else { print "ok 28\n";}
[all …]
/onnv-gate/usr/src/common/openssl/crypto/conf/
H A Dconf_def.h82 #define IS_COMMENT(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_COMMENT) argument
83 #define IS_FCOMMENT(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_FCOMMENT) argument
84 #define IS_EOF(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_EOF) argument
85 #define IS_ESC(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_ESC) argument
86 #define IS_NUMBER(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_NUMBER) argument
87 #define IS_WS(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_WS) argument
88 #define IS_ALPHA_NUMERIC(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_ALPHA_NUMERIC) argument
89 #define IS_ALPHA_NUMERIC_PUNCT(c,a) \ argument
90 (KEYTYPES(c)[(a)&0xff]&CONF_ALPHA_NUMERIC_PUNCT)
91 #define IS_QUOTE(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_QUOTE) argument
[all …]
/onnv-gate/usr/src/cmd/man/src/util/instant.src/tptregexp/
H A Dtests29 a.c abc y & abc
30 a.c axc y & axc
31 a.*c axyzc y & axyzc
32 a.*c axyzd n - -
33 a[bc]d abc n - -
34 a[bc]d abd y & abd
35 a[b-d]e abd n - -
36 a[b-d]e ace y & ace
37 a[b-d] aac y & ac
38 a[-b] a- y & a-
[all …]
/onnv-gate/usr/src/common/openssl/crypto/bn/asm/
H A Dx86_64-gcc.c61 #define mul_add(r,a,word,carry) do { \ argument
65 : "a"(word),"m"(a) \
78 #define mul(r,a,word,carry) do { \ argument
82 : "a"(word),"g"(a) \
91 #define sqr(r0,r1,a) \ argument
94 : "a"(a) \
144 void bn_sqr_words(BN_ULONG *r, BN_ULONG *a, int n) in bn_sqr_words() argument
150 sqr(r[0],r[1],a[0]); in bn_sqr_words()
151 sqr(r[2],r[3],a[1]); in bn_sqr_words()
152 sqr(r[4],r[5],a[2]); in bn_sqr_words()
[all …]
/onnv-gate/usr/src/cmd/ssh/libssh/common/
H A Dsftp-common.c53 attrib_clear(Attrib *a) in attrib_clear() argument
55 a->flags = 0; in attrib_clear()
56 a->size = 0; in attrib_clear()
57 a->uid = 0; in attrib_clear()
58 a->gid = 0; in attrib_clear()
59 a->perm = 0; in attrib_clear()
60 a->atime = 0; in attrib_clear()
61 a->mtime = 0; in attrib_clear()
66 stat_to_attrib(const struct stat *st, Attrib *a) in stat_to_attrib() argument
68 attrib_clear(a); in stat_to_attrib()
[all …]
/onnv-gate/usr/src/uts/common/zmod/
H A Dadler32.c23 # define MOD(a) \ argument
25 if (a >= (BASE << 16)) a -= (BASE << 16); \
26 if (a >= (BASE << 15)) a -= (BASE << 15); \
27 if (a >= (BASE << 14)) a -= (BASE << 14); \
28 if (a >= (BASE << 13)) a -= (BASE << 13); \
29 if (a >= (BASE << 12)) a -= (BASE << 12); \
30 if (a >= (BASE << 11)) a -= (BASE << 11); \
31 if (a >= (BASE << 10)) a -= (BASE << 10); \
32 if (a >= (BASE << 9)) a -= (BASE << 9); \
33 if (a >= (BASE << 8)) a -= (BASE << 8); \
[all …]

12345678910>>...215