| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/ |
| H A D | Complex.pm | 538 my ($z) = @_; 539 if ($z->{c_dirty}) { 540 my ($r, $t) = @{$z->polar}; 542 return (ref $z)->emake($r, $t); 544 my ($re, $im) = @{$z->cartesian}; 545 return (ref $z)->make(-$re, -$im); 554 my ($z) = @_; 555 if ($z->{c_dirty}) { 556 my ($r, $t) = @{$z->polar}; 557 return (ref $z)->emake($r, -$t); [all …]
|
| H A D | Complex.t | 75 my $z = cplx( 1, 1); 76 $z->Re(2); 77 $z->Im(3); 78 print "# $test Re(z) = ",$z->Re(), " Im(z) = ", $z->Im(), " z = $z\n"; 79 print 'not ' unless Re($z) == 2 and Im($z) == 3; 86 my $z = cplx( 1, 1); 87 $z->abs(3 * sqrt(2)); 88 print "# $test Re(z) = ",$z->Re(), " Im(z) = ", $z->Im(), " z = $z\n"; 89 print 'not ' unless (abs($z) - 3 * sqrt(2)) < $eps and 90 (arg($z) - pi / 4 ) < $eps and [all …]
|
| /onnv-gate/usr/src/common/openssl/crypto/cast/ |
| H A D | c_skey.c | 78 CAST_LONG z[16]; in CAST_set_key() local 102 CAST_exp(l,Z,z, 0); in CAST_set_key() 103 l=X[2]^S4[z[ 0]]^S5[z[ 2]]^S6[z[ 1]]^S7[z[ 3]]^S7[x[10]]; in CAST_set_key() 104 CAST_exp(l,Z,z, 4); in CAST_set_key() 105 l=X[3]^S4[z[ 7]]^S5[z[ 6]]^S6[z[ 5]]^S7[z[ 4]]^S4[x[ 9]]; in CAST_set_key() 106 CAST_exp(l,Z,z, 8); in CAST_set_key() 107 l=X[1]^S4[z[10]]^S5[z[ 9]]^S6[z[11]]^S7[z[ 8]]^S5[x[11]]; in CAST_set_key() 108 CAST_exp(l,Z,z,12); in CAST_set_key() 110 K[ 0]= S4[z[ 8]]^S5[z[ 9]]^S6[z[ 7]]^S7[z[ 6]]^S4[z[ 2]]; in CAST_set_key() 111 K[ 1]= S4[z[10]]^S5[z[11]]^S6[z[ 5]]^S7[z[ 4]]^S5[z[ 6]]; in CAST_set_key() [all …]
|
| /onnv-gate/usr/src/common/crypto/ecc/ |
| H A D | ec2_163.c | 64 mp_digit *u, z; in ec_GF2m_163_mod() local 77 z = u[5]; in ec_GF2m_163_mod() 78 u[2] ^= (z << 36) ^ (z << 35) ^ (z << 32) ^ (z << 29); in ec_GF2m_163_mod() 79 z = u[4]; in ec_GF2m_163_mod() 80 u[2] ^= (z >> 28) ^ (z >> 29) ^ (z >> 32) ^ (z >> 35); in ec_GF2m_163_mod() 81 u[1] ^= (z << 36) ^ (z << 35) ^ (z << 32) ^ (z << 29); in ec_GF2m_163_mod() 82 z = u[3]; in ec_GF2m_163_mod() 83 u[1] ^= (z >> 28) ^ (z >> 29) ^ (z >> 32) ^ (z >> 35); in ec_GF2m_163_mod() 84 u[0] ^= (z << 36) ^ (z << 35) ^ (z << 32) ^ (z << 29); in ec_GF2m_163_mod() 85 z = u[2] >> 35; /* z only has 29 significant bits */ in ec_GF2m_163_mod() [all …]
|
| H A D | ec2_233.c | 64 mp_digit *u, z; in ec_GF2m_233_mod() local 77 z = u[7]; in ec_GF2m_233_mod() 78 u[4] ^= (z << 33) ^ (z >> 41); in ec_GF2m_233_mod() 79 u[3] ^= (z << 23); in ec_GF2m_233_mod() 80 z = u[6]; in ec_GF2m_233_mod() 81 u[4] ^= (z >> 31); in ec_GF2m_233_mod() 82 u[3] ^= (z << 33) ^ (z >> 41); in ec_GF2m_233_mod() 83 u[2] ^= (z << 23); in ec_GF2m_233_mod() 84 z = u[5]; in ec_GF2m_233_mod() 85 u[3] ^= (z >> 31); in ec_GF2m_233_mod() [all …]
|
| H A D | ec2_193.c | 64 mp_digit *u, z; in ec_GF2m_193_mod() local 77 z = u[6]; in ec_GF2m_193_mod() 78 u[3] ^= (z << 14) ^ (z >> 1); in ec_GF2m_193_mod() 79 u[2] ^= (z << 63); in ec_GF2m_193_mod() 80 z = u[5]; in ec_GF2m_193_mod() 81 u[3] ^= (z >> 50); in ec_GF2m_193_mod() 82 u[2] ^= (z << 14) ^ (z >> 1); in ec_GF2m_193_mod() 83 u[1] ^= (z << 63); in ec_GF2m_193_mod() 84 z = u[4]; in ec_GF2m_193_mod() 85 u[2] ^= (z >> 50); in ec_GF2m_193_mod() [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigRat/t/ |
| H A D | big_ap.t | 31 my ($x,$y,$z); 36 $z = $r->new('12345678901234567890/2'); 37 ok ($z,$proper); 39 $z = $r->new('1234567890123456789E1'); 40 ok ($z,$proper2); 42 $z = $r->new('12345678901234567890/1E0'); 43 ok ($z,$proper2); 44 $z = $r->new('1234567890123456789e1/1'); 45 ok ($z,$proper2); 46 $z = $r->new('1234567890123456789e1/1E0'); [all …]
|
| /onnv-gate/usr/src/lib/libsqlite/src/ |
| H A D | util.c | 226 char *sqliteStrDup_(const char *z, char *zFile, int line){ in sqliteStrDup_() argument 228 if( z==0 ) return 0; in sqliteStrDup_() 229 zNew = sqliteMalloc_(strlen(z)+1, 0, zFile, line); in sqliteStrDup_() 230 if( zNew ) strcpy(zNew, z); in sqliteStrDup_() 233 char *sqliteStrNDup_(const char *z, int n, char *zFile, int line){ in sqliteStrNDup_() argument 235 if( z==0 ) return 0; in sqliteStrNDup_() 238 memcpy(zNew, z, n); in sqliteStrNDup_() 310 char *sqliteStrDup(const char *z){ in sqliteStrDup() argument 312 if( z==0 ) return 0; in sqliteStrDup() 313 zNew = sqliteMallocRaw(strlen(z)+1); in sqliteStrDup() [all …]
|
| H A D | tokenize.c | 158 int sqliteKeywordCode(const char *z, int n){ in sqliteKeywordCode() argument 179 h = sqliteHashNoCase(z, n) % KEY_HASH_SIZE; in sqliteKeywordCode() 182 if( p->len==n && sqliteStrNICmp(p->zName, z, n)==0 ){ in sqliteKeywordCode() 221 static int sqliteGetToken(const unsigned char *z, int *tokenType){ in sqliteGetToken() argument 223 switch( *z ){ in sqliteGetToken() 225 for(i=1; isspace(z[i]); i++){} in sqliteGetToken() 230 if( z[1]=='-' ){ in sqliteGetToken() 231 for(i=2; z[i] && z[i]!='\n'; i++){} in sqliteGetToken() 259 if( z[1]!='*' || z[2]==0 ){ in sqliteGetToken() 263 for(i=3; z[i] && (z[i]!='/' || z[i-1]!='*'); i++){} in sqliteGetToken() [all …]
|
| H A D | func.c | 71 const char *z; in lengthFunc() local 75 z = argv[0]; in lengthFunc() 76 if( z==0 ) return; in lengthFunc() 78 for(len=0; *z; z++){ if( (0xc0&*z)!=0x80 ) len++; } in lengthFunc() 80 len = strlen(z); in lengthFunc() 89 const char *z; in absFunc() local 91 z = argv[0]; in absFunc() 92 if( z==0 ) return; in absFunc() 93 if( z[0]=='-' && isdigit(z[1]) ) z++; in absFunc() 94 sqlite_set_result_string(context, z, -1); in absFunc() [all …]
|
| H A D | date.c | 130 static int getValue(const char *z, double *pR){ in getValue() argument 132 *pR = sqliteAtoF(z, &zEnd); in getValue() 133 return zEnd - z; in getValue() 463 char *z, zBuf[30]; in parseModifier() local 464 z = zBuf; in parseModifier() 466 z[n] = tolower(zMod[n]); in parseModifier() 468 z[n] = 0; in parseModifier() 469 switch( z[0] ){ in parseModifier() 476 if( strcmp(z, "localtime")==0 ){ in parseModifier() 491 if( strcmp(z, "unixepoch")==0 && p->validJD ){ in parseModifier() [all …]
|
| /onnv-gate/usr/src/lib/libast/common/uwin/ |
| H A D | lgamma.c | 178 double z, p, x1; in large_lgam() local 193 z = x1*x1; in large_lgam() 194 p = pb0+z*(pb1+z*(pb2+z*(pb3+z*(pb4+z*(pb5+z*(pb6+z*pb7)))))); in large_lgam() 212 double y, z, t, r = 0, p, q, hi, lo; in small_lgam() local 223 z = t - x0_lo; in small_lgam() 224 p = r0+z*(r1+z*(r2+z*(r3+z*(r4+z*r5)))); in small_lgam() 225 q = s0+z*(s1+z*(s2+z*(s3+z*s4))); in small_lgam() 226 r = t*(z*(p/q) - x0_lo); in small_lgam() 228 z = 1.0; in small_lgam() 230 case 6: z = (y + 5); in small_lgam() [all …]
|
| H A D | expm1.c | 116 double z,hi,lo,c; variable 134 z=hi-(lo=k*ln2lo); 135 c=(hi-z)-lo; 137 if(k==0) return(z+__exp__E(z,c)); 139 if(z< -0.25) 140 {x=z+half;x +=__exp__E(z,c); return(x+x);} 142 {z+=__exp__E(z,c); x=half+z; return(x+x);} 147 { x=one-scalb(one,-k); z += __exp__E(z,c);} 149 { x = __exp__E(z,c)-scalb(one,-k); x+=z; z=one;} 151 { x = __exp__E(z,c)+z; z=one;} [all …]
|
| H A D | log__L.c | 106 double __log__L(z) 107 double z; 110 return(z*(L1+z*(L2+z*(L3+z*(L4+z*(L5+z*(L6+z*(L7+z*L8)))))))); 112 return(z*(L1+z*(L2+z*(L3+z*(L4+z*(L5+z*(L6+z*L7)))))));
|
| H A D | gamma.c | 182 double z, p; local 185 z = one/(x*x); 186 p = Pa0+z*(Pa1+z*(Pa2+z*(Pa3+z*(Pa4+z*(Pa5+z*(Pa6+z*Pa7)))))); 271 ratfun_gam(z, c) in ratfun_gam() argument 272 double z, c; in ratfun_gam() 277 q = Q0 +z*(Q1+z*(Q2+z*(Q3+z*(Q4+z*(Q5+z*(Q6+z*(Q7+z*Q8))))))); 278 p = P0 + z*(P1 + z*(P2 + z*(P3 + z*P4))); 282 t.a = z, TRUNC(t.a); /* t ~= z + c */ 283 t.b = (z - t.a) + c; 284 t.b *= (t.a + z); [all …]
|
| /onnv-gate/usr/src/lib/libc/sparcv9/fp/ |
| H A D | _Qp_qtoux.c | 37 union longdouble z; in _Qp_qtoux() local 57 z.l.msw = xm & 0xffff; in _Qp_qtoux() 58 z.l.frac2 = x->l.frac2; in _Qp_qtoux() 59 z.l.frac3 = x->l.frac3; in _Qp_qtoux() 60 z.l.frac4 = x->l.frac4; in _Qp_qtoux() 63 z.l.msw = x->l.frac2; in _Qp_qtoux() 64 z.l.frac2 = x->l.frac3; in _Qp_qtoux() 65 z.l.frac3 = x->l.frac4; in _Qp_qtoux() 66 z.l.frac4 = 0; in _Qp_qtoux() 69 z.l.msw = x->l.frac3; in _Qp_qtoux() [all …]
|
| /onnv-gate/usr/src/lib/libc/sparc/fp/ |
| H A D | _Q_qtou.c | 41 union longdouble z; in _Q_qtou() local 60 z.l.msw = xm & 0xffff; in _Q_qtou() 61 z.l.frac2 = x->l.frac2; in _Q_qtou() 62 z.l.frac3 = x->l.frac3; in _Q_qtou() 63 z.l.frac4 = x->l.frac4; in _Q_qtou() 66 z.l.msw = x->l.frac2; in _Q_qtou() 67 z.l.frac2 = x->l.frac3; in _Q_qtou() 68 z.l.frac3 = x->l.frac4; in _Q_qtou() 69 z.l.frac4 = 0; in _Q_qtou() 72 z.l.msw = x->l.frac3; in _Q_qtou() [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | integer.t | 15 my $z; 17 $z = $x + $y; 18 is($z, 9, "plus"); 20 $z = $x - $y; 21 is($z, -1, "minus"); 23 $z = $x * $y; 24 is($z, 20, "times"); 26 $z = $x / $y; 27 is($z, 0, "divide"); 29 $z = $x / $y; [all …]
|
| /onnv-gate/usr/src/lib/libshell/common/tests/ |
| H A D | pointtype.sh | 85 float z=2 88 print -r $((sqrt(_.x*_.x + _.y*_.y + _.z*_.z))) 95 z=() 96 Pt_t -a z.p 97 z.p[1]=(y=2) 98 z.p[2]=(y=5) 99 z.p[3]=(x=6 y=4) 100 eval y="$z" 101 [[ $y == "$z" ]] || err_exit 'expansion of indexed array of types is incorrect' 103 [[ $y == "$z" ]] || err_exit 'typeset -p z for indexed array of types is incorrect' [all …]
|
| /onnv-gate/usr/src/lib/libbc/libc/gen/common/ |
| H A D | _Qfaddsub.c | 99 unsigned *z,g,s,r,c; local 141 z = pz->significand; 145 c = fpu_sub3wc(&z[3],px->significand[3],py->significand[3],c); 146 c = fpu_sub3wc(&z[2],px->significand[2],py->significand[2],c); 147 c = fpu_sub3wc(&z[1],px->significand[1],py->significand[1],c); 148 c = fpu_sub3wc(&z[0],px->significand[0],py->significand[0],c); 149 if((z[0]|z[1]|z[2]|z[3])==0) { /* exact zero result */ 154 if(z[0]>=0x20000) { /* sign reversal occurred */ 157 c = fpu_neg2wc(&z[3],z[3],c); 158 c = fpu_neg2wc(&z[2],z[2],c); [all …]
|
| /onnv-gate/usr/src/uts/sparc/fpu/ |
| H A D | addsub.c | 97 unsigned *z, g, s, r, c; local 138 z = pz->significand; 142 c = fpu_sub3wc(&z[3], px->significand[3], 144 c = fpu_sub3wc(&z[2], px->significand[2], 146 c = fpu_sub3wc(&z[1], px->significand[1], 148 c = fpu_sub3wc(&z[0], px->significand[0], 150 if ((z[0]|z[1]|z[2]|z[3]) == 0) { /* exact zero result */ 155 if (z[0] >= 0x20000) { /* sign reversal occurred */ 158 c = fpu_neg2wc(&z[3], z[3], c); 159 c = fpu_neg2wc(&z[2], z[2], c); [all …]
|
| /onnv-gate/usr/src/uts/common/fs/zfs/sys/ |
| H A D | zfs_znode.h | 89 #define SA_ZPL_ATIME(z) z->z_attr_table[ZPL_ATIME] argument 90 #define SA_ZPL_MTIME(z) z->z_attr_table[ZPL_MTIME] argument 91 #define SA_ZPL_CTIME(z) z->z_attr_table[ZPL_CTIME] argument 92 #define SA_ZPL_CRTIME(z) z->z_attr_table[ZPL_CRTIME] argument 93 #define SA_ZPL_GEN(z) z->z_attr_table[ZPL_GEN] argument 94 #define SA_ZPL_DACL_ACES(z) z->z_attr_table[ZPL_DACL_ACES] argument 95 #define SA_ZPL_XATTR(z) z->z_attr_table[ZPL_XATTR] argument 96 #define SA_ZPL_SYMLINK(z) z->z_attr_table[ZPL_SYMLINK] argument 97 #define SA_ZPL_RDEV(z) z->z_attr_table[ZPL_RDEV] argument 98 #define SA_ZPL_SCANSTAMP(z) z->z_attr_table[ZPL_SCANSTAMP] argument [all …]
|
| /onnv-gate/usr/src/lib/libast/common/string/ |
| H A D | strtoip4.c | 53 uint32_t z; in strtoip4() local 103 z = 0; in strtoip4() 109 z = (z << 8) | n; in strtoip4() 117 if (z <= 32 && (!old || part < 2)) in strtoip4() 118 bits = z; in strtoip4() 119 else if (z) in strtoip4() 121 if (part == 4 && (z & 0x8000001) == 1) in strtoip4() 122 z = ~z; in strtoip4() 123 while (!(z & 1)) in strtoip4() 124 z >>= 1; in strtoip4() [all …]
|
| /onnv-gate/usr/src/common/openssl/crypto/ripemd/ |
| H A D | rmd_locl.h | 116 #define F1(x,y,z) ((x)^(y)^(z)) 117 #define F2(x,y,z) (((x)&(y))|((~x)&z)) 118 #define F3(x,y,z) (((x)|(~y))^(z)) 119 #define F4(x,y,z) (((x)&(z))|((y)&(~(z)))) 120 #define F5(x,y,z) ((x)^((y)|(~(z)))) 125 #define F1(x,y,z) ((x) ^ (y) ^ (z)) argument 126 #define F2(x,y,z) ((((y) ^ (z)) & (x)) ^ (z)) argument 127 #define F3(x,y,z) (((~(y)) | (x)) ^ (z)) argument 128 #define F4(x,y,z) ((((x) ^ (y)) & (z)) ^ (y)) argument 129 #define F5(x,y,z) (((~(z)) | (y)) ^ (x)) argument
|
| /onnv-gate/usr/src/cmd/sqlite/ |
| H A D | shell.c | 228 static void output_quoted_string(FILE *out, const char *z){ in output_quoted_string() argument 231 for(i=0; z[i]; i++){ in output_quoted_string() 232 if( z[i]=='\'' ) nSingle++; in output_quoted_string() 235 fprintf(out,"'%s'",z); in output_quoted_string() 238 while( *z ){ in output_quoted_string() 239 for(i=0; z[i] && z[i]!='\''; i++){} in output_quoted_string() 242 z++; in output_quoted_string() 243 }else if( z[i]=='\'' ){ in output_quoted_string() 244 fprintf(out,"%.*s''",i,z); in output_quoted_string() 245 z += i+1; in output_quoted_string() [all …]
|