| /netvirt/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/ |
| biglog.t | 52 ok ($cl->new(-2)->blog(), 'NaN');
53 ok ($cl->new(-1)->blog(), 'NaN');
54 ok ($cl->new(-10)->blog(), 'NaN');
55 ok ($cl->new(-2,2)->blog(), 'NaN');
57 my $ten = $cl->new(10)->blog();
60 ok ($cl->new(10)->blog(), '2.302585092994045684017991454684364207601');
64 ok ($cl->new(0.1)->blog(), -$ten);
65 ok ($cl->new(0.01)->blog(), -$ten * 2);
66 ok ($cl->new(0.001)->blog(), -$ten * 3);
67 ok ($cl->new(0.0001)->blog(), -$ten * 4)
[all...] |
| downgrade.t | 30 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');
40 ok (Math::BigFloat->new('0.2E0'), '0.2');
41 ok (Math::BigFloat->new('0.2E1'), '2')
[all...] |
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigRat/t/ |
| bigrat.t | 27 $x = Math::BigRat->new(1234); ok ($x,1234);
33 # new and bnorm()
35 foreach my $func (qw/new bnorm/)
66 $x = $cr->$func($mbi->new(1231)); ok ($x,'1231');
67 $x = $cr->$func($mbf->new(1232)); ok ($x,'1232');
68 $x = $cr->$func($mbf->new(1232.3)); ok ($x,'12323/10');
71 $x = $cr->new('-0'); ok ($x,'0'); ok ($x->{_n}, '0'); ok ($x->{_d},'1');
72 $x = $cr->new('NaN'); ok ($x,'NaN'); ok ($x->{_n}, '0'); ok ($x->{_d},'0');
73 $x = $cr->new('-NaN'); ok ($x,'NaN'); ok ($x->{_n}, '0'); ok ($x->{_d},'0');
74 $x = $cr->new('-1r4'); ok ($x,'NaN'); ok ($x->{_n}, '0'); ok ($x->{_d},'0')
[all...] |
| big_ap.t | 19 my $proper = $r->new('12345678901234567890/2');
20 my $proper_inc = $r->new('12345678901234567890/2')->binc();
21 my $proper_dec = $r->new('12345678901234567890/2')->bdec();
22 my $proper_int = Math::BigInt->new('12345678901234567890');
23 my $proper_float = Math::BigFloat->new('12345678901234567890');
24 my $proper2 = $r->new('12345678901234567890');
34 # new()
36 $z = $r->new('12345678901234567890/2');
39 $z = $r->new('1234567890123456789E1');
42 $z = $r->new('12345678901234567890/1E0')
[all...] |
| bigratup.t | 25 $x = $rat->new('49/4'); ok ($x->bfloor(),'12');
26 $x = $rat->new('49/4'); ok ($x->bceil(),'13');
31 $x = $rat->new('144'); ok ($x->bsqrt(),'12');
32 $x = $rat->new('144/16'); ok ($x->bsqrt(),'3');
33 $x = $rat->new('1/3'); ok ($x->bsqrt(),
|
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/PPPort/ |
| ppport_h.PL | 8 my $new = '';
10 $new = <FH> if open(FH, "ppport.tmp"); close FH;
11 if ($old ne $new) {
|
| /netvirt/usr/src/lib/libbc/libc/gen/common/ |
| ualarm.c | 24 struct itimerval new, old; local
26 new.it_interval.tv_usec = reload % USPS;
27 new.it_interval.tv_sec = reload / USPS;
29 new.it_value.tv_usec = usecs % USPS;
30 new.it_value.tv_sec = usecs / USPS;
32 if (setitimer(ITIMER_REAL, &new, &old) == 0)
|
| /netvirt/usr/src/lib/libc/port/gen/ |
| ualarm.c | 33 struct itimerval new, old; local
35 new.it_interval.tv_usec = reload % USPS;
36 new.it_interval.tv_sec = reload / USPS;
38 new.it_value.tv_usec = usecs % USPS;
39 new.it_value.tv_sec = usecs / USPS;
41 if (setitimer(ITIMER_REAL, &new, &old) != 0)
|
| /netvirt/usr/src/lib/libresolv2/common/isc/ |
| ev_connects.c | 74 evConn *new; local
77 OKNEW(new);
78 new->flags = EV_CONN_LISTEN;
94 new->flags |= EV_CONN_BLOCK;
97 if (evSelectFD(opaqueCtx, fd, EV_READ, listener, new, &new->file) < 0){
100 FREE(new);
104 new->flags |= EV_CONN_SELECTED;
105 new->func = func;
106 new->uap = uap
123 evConn *new; local
248 evAccept *new; local
297 int new; local
319 (*conn->func)(opaqueCtx, conn->uap, new, &la.sa, lalen, &ra.sa, ralen); local
[all...] |
| /netvirt/usr/src/lib/libresolv2/include/ |
| probe_ipv6.sh | 12 new=new_${target}.h
34 cat > ${new} <<EOF
45 echo "#define HAS_INET6_STRUCTS" >> ${new}
50 echo "#define in6_addr in_addr6" >> ${new}
54 echo "#define HAVE_SIN6_SCOPE_ID" >> ${new}
56 echo "#undef HAVE_SIN6_SCOPE_ID" >> ${new}
59 echo "#undef HAS_INET6_STRUCTS" >> ${new}
61 echo >> ${new}
62 echo "#endif" >> ${new}
64 if cmp -s ${new} ${old} ; the
[all...] |
| /netvirt/usr/src/cmd/man/src/util/nsgmls.src/include/ |
| xnew.h | 33 #include <new>
35 #include <new.h>
44 *operator new(size_t, void *p)
|
| /netvirt/usr/src/lib/libcurses/screen/ |
| dupwin.c | 52 * SS: calling makenew to allocate a new window is wastefull, since
60 WINDOW *new; local
66 /* allocate storage for new window and do block copy of */
67 /* old one into new */
69 if ((new = (WINDOW *) malloc(sizeof (WINDOW))) == NULL)
72 (void) memcpy(new, win, sizeof (WINDOW));
74 /* allocate storage for "malloced" fields of the new window */
76 if ((new->_firstch = (short *)malloc((unsigned)2 * line_size)) == NULL)
81 if ((new->_y = (chtype **) malloc(nlines * sizeof (chtype *))) ==
87 free((char *)new->_firstch)
[all...] |
| setcurscreen.c | 48 setcurscreen(SCREEN *new)
52 if (new != SP) {
56 fprintf(outf, "setterm: old %x, new %x\n", rv, new);
59 SP = new;
60 if (new) {
|
| /netvirt/usr/src/lib/libresolv2/common/sunw/ |
| sunw_updrec.c | 18 * new one.
42 old2new(ns_updrec *old, __ISC_ns_updrec *new) {
45 if ((new->r_dname = strdup(old->r_dname)) == 0)
48 new->r_dname = 0;
51 new->r_glink.prev =
52 new->r_glink.next =
53 new->r_link.prev =
54 new->r_link.next = 0;
56 new->r_section = old->r_section;
57 new->r_class = old->r_class
[all...] |
| /netvirt/usr/src/lib/gss_mechs/mech_krb5/krb5/rcache/ |
| rc_common.h | 42 #define cmp(old, new) \
43 (((old)->cusec == (new)->cusec) && \
44 ((old)->ctime == (new)->ctime) && \
45 (strcmp((old)->client, (new)->client) == 0) && \
46 (strcmp((old)->server, (new)->server) == 0) ? CMP_REPLAY : CMP_HOHUM)
52 #define alive(context, new, t, time) \
53 (((new)->ctime + (t)) < (time) ? CMP_EXPIRED : CMP_HOHUM)
|
| /netvirt/usr/src/cmd/perl/5.6.1/distrib/t/lib/ |
| thr5005.t | 27 my $t = new Thread \&content,("ok 2\n","ok 3\n", 1..1000);
32 $t = new Thread sub { lock $foo; print "ok 5\n" };
44 $ret = Thread->new(\&dorecurse, @_);
49 $t = new Thread \&dorecurse, map { "ok $_\n" } 6..10;
53 $t = new Thread \&dorecurse,"ok 11\n";
64 $ret = Thread->new(\&islocked, shift);
69 $t = Thread->new(\&islocked, "ok 13\n", "ok 14\n");
74 sub new { bless [], shift }
82 Loch::Ness->new->monster(16);
84 Loch::Ness->new->gollum(18)
[all...] |
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/lib/Net/demos/ |
| nntp | 13 $nntp = Net::NNTP->new('news', Debug => $opt_debug ? 1 : 0);
26 $new = $nntp->newnews(time - 3600, lc $group);
28 if(ref($new) && scalar(@$new))
31 if $news = $nntp->article($new->[-1]);
|
| inetd | 6 $p = new Net::DummyInetd qw(/usr/lib/sendmail -ba -bs);
8 $smtp = Net::SMTP->new('localhost', Port => $p->port, Debug => 7);
|
| /netvirt/usr/src/cmd/agents/snmp/agent/ |
| subtree.c | 65 Subtree *new; local
76 new = (Subtree *) malloc(sizeof(Subtree));
77 if(new == NULL)
82 new->next_subtree = NULL;
83 new->agent = agent;
84 new->next_agent_subtree = NULL;
85 new->name.subids = (Subid *) malloc(len * (int32_t)sizeof(Subid));
86 if(new->name.subids == NULL)
89 subtree_free(new);
92 (void)memcpy(new->name.subids, subids, len * (int32_t)sizeof(Subid))
[all...] |
| /netvirt/usr/src/cmd/zic/ |
| ialloc.c | 29 icatalloc(old, new)
31 const char * const new;
36 newsize = (new == NULL) ? 0 : strlen(new);
43 if (new != NULL)
44 (void) strcpy(result + oldsize, new);
|
| /netvirt/usr/src/tools/scripts/ |
| protocmp.terse.sh | 46 new="$1"; shift
52 nawk -v old="$old" -v new="$new" -v differ="$differ" '
79 printf("\n%s\n\n", new);
|
| /netvirt/usr/src/lib/libc/port/sys/ |
| libc_link.c | 39 extern int __link(const char *existing, const char *new);
42 link(const char *existing, const char *new)
65 return (__link(existing, new));
|
| /netvirt/usr/src/lib/libxcurses2/src/libc/xcurses/ |
| scr_dump.c | 76 WINDOW *new; local
81 new = getwin(fp);
84 if (new == NULL)
87 if (new->_maxy != w->_maxy || new->_maxx != w->_maxx) {
88 (void) delwin(new);
96 new->_flags &= ~W_CLEAR_WINDOW; /* Removed default clear command */
97 *w = *new;
105 new->_base = NULL;
106 new->_line = NULL
[all...] |
| /netvirt/usr/src/grub/grub-0.95/docs/ |
| src2texi | 15 ${dir}/${src} | expand > ${texi}.new
16 mv -f ${texi}.new ${dir}/${texi}
|
| /netvirt/usr/src/cmd/diff3/ |
| diff3prog.c | 62 struct diff {struct range old, new; }; member in struct:diff
69 * the "new" component of de contains line positions
225 dd[i].new.from = c;
226 dd[i].new.to = d;
229 dd[i].new.from = dd[i-1].new.to;
292 d1->new.from, d1->new.to,
294 d2->new.from, d2->new.to)
[all...] |
