| /openbsd/src/sys/ufs/ext2fs/ |
| D | ext2fs_bswap.c | 51 e2fs_sb_bswap(struct ext2fs *old, struct ext2fs *new) in e2fs_sb_bswap() argument 54 memcpy(new, old, sizeof(struct ext2fs)); in e2fs_sb_bswap() 55 new->e2fs_icount = swap32(old->e2fs_icount); in e2fs_sb_bswap() 56 new->e2fs_bcount = swap32(old->e2fs_bcount); in e2fs_sb_bswap() 57 new->e2fs_rbcount = swap32(old->e2fs_rbcount); in e2fs_sb_bswap() 58 new->e2fs_fbcount = swap32(old->e2fs_fbcount); in e2fs_sb_bswap() 59 new->e2fs_ficount = swap32(old->e2fs_ficount); in e2fs_sb_bswap() 60 new->e2fs_first_dblock = swap32(old->e2fs_first_dblock); in e2fs_sb_bswap() 61 new->e2fs_log_bsize = swap32(old->e2fs_log_bsize); in e2fs_sb_bswap() 62 new->e2fs_log_fsize = swap32(old->e2fs_log_fsize); in e2fs_sb_bswap() [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Math-BigInt/t/ |
| D | biglog.t | 27 is($class->new(2)->blog(), '0', "$class->new(2)->blog()"); 28 is($class->new(288)->blog(), '5', "$class->new(288)->blog()"); 29 is($class->new(2000)->blog(), '7', "$class->new(2000)->blog()"); 34 is($class->new(1)->bexp(), '2', "$class->new(1)->bexp()"); 35 is($class->new(2)->bexp(), '7', "$class->new(2)->bexp()"); 36 is($class->new(3)->bexp(), '20', "$class->new(3)->bexp()"); 50 is($class->new(5)->blog(undef, 71), 52 "$class->new(5)->blog(undef, 71)"); 55 is($class->new(2)->blog(undef, 71), 57 "$class->new(2)->blog(undef, 71)"); [all …]
|
| D | bigrat.t | 21 $x = Math::BigRat->new(1234); 30 # new and bnorm() 32 foreach my $method (qw/ new bnorm /) { 100 $x = $mbr->$method($mbi->new(1231)); 101 is($x, "1231", qq|\$x = $mbr->$method($mbi->new(1231))|); 103 $x = $mbr->$method($mbf->new(1232)); 104 is($x, "1232", qq|\$x = $mbr->$method($mbf->new(1232))|); 106 $x = $mbr->$method($mbf->new(1232.3)); 107 is($x, "12323/10", qq|\$x = $mbr->$method($mbf->new(1232.3))|); 113 $x = $mbr->new('-0'); [all …]
|
| D | big_ap.t | 15 my $proper = Math::BigRat -> new('12345678901234567890/2'); 16 my $proper_inc = Math::BigRat -> new('12345678901234567890/2') -> binc(); 17 my $proper_dec = Math::BigRat -> new('12345678901234567890/2') -> bdec(); 18 my $proper_int = Math::BigInt -> new('12345678901234567890'); 19 my $proper_float = Math::BigFloat -> new('12345678901234567890'); 20 my $proper2 = Math::BigRat -> new('12345678901234567890'); 28 # new() 30 note "Test new()"; 32 $z = Math::BigRat->new("12345678901234567890/2"); 33 is($z, $proper, q|Math::BigRat->new("12345678901234567890/2")|); [all …]
|
| D | trap.t | 50 $x = $class->new("0"); 52 like($@, qr/^Tried to /, qq|\$x = $class->new("0"); \$x->bdiv(0);|); 54 # new() didn't modify $x 55 is($x, 0, qq|\$x = $class->new("0"); \$x->bdiv(0);|); 57 # also test that new() still works normally 58 eval { $x = $class->new('42'); $x->bnan(); }; 60 is($x, 42, '$x after new() never modified'); 74 eval { $x = $class->new('4711'); $x->binf(); }; 76 is($x, 4711, '$x after new() never modified'); 78 eval { $x = $class->new('inf'); }; [all …]
|
| D | mbimbf.inc | 108 $x = $mbf->new('123.456'); 133 is($mbi->new(123456), 123500, qq|$mbi->new(123456) = 123500|); # with A 136 is($mbi->new(123456), 123000, qq|$mbi->new(123456) = 123000|); # with P 142 is($mbf->new("123.456"), "123.5", qq|$mbf->new("123.456") = 123.5|); 145 is($mbf->new("123.456"), "123.5", qq|$mbf->new("123.456") = 123.5|); 159 is($mbf->new("123.456"), "123.456", qq|$mbf->new("123.456") = 123.456|); 166 $x = $mbf->new("123.456"); 168 is($x, "123.5", qq|\$x = $mbf->new("123.456"); \$x->accuracy(4)|); 170 $x = $mbf->new("123.456"); 172 is($x, "123.46", qq|\$x = $mbf->new("123.456"); \$x->precision(-2)|); [all …]
|
| D | bigfltpm.inc | 37 $try = qq|\$x = $CLASS->new("$args[0]");|; 88 $try .= qq| \$y = $CLASS->new($args[1]);|; 95 $try .= qq| \$y = $CLASS->new("$args[1]");|; 99 $try .= qq| \$z = $CLASS->new("$args[2]");|; 106 $try .= qq| \$z = $CLASS->new("$args[2]");|; 147 $try .= qq| \$z = $CLASS->new("$args[2]");|; 182 # check whether $CLASS->new(Math::BigInt->new()) destroys it 184 $x = Math::BigInt->new(1200); 185 $y = $CLASS->new($x); 187 qq|\$x = Math::BigInt->new(1200); \$y = $CLASS->new(\$x); # check \$y|); [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Math-BigInt-FastCalc/t/ |
| D | biglog.t | 27 is($class->new(2)->blog(), '0', "$class->new(2)->blog()"); 28 is($class->new(288)->blog(), '5', "$class->new(288)->blog()"); 29 is($class->new(2000)->blog(), '7', "$class->new(2000)->blog()"); 34 is($class->new(1)->bexp(), '2', "$class->new(1)->bexp()"); 35 is($class->new(2)->bexp(), '7', "$class->new(2)->bexp()"); 36 is($class->new(3)->bexp(), '20', "$class->new(3)->bexp()"); 50 is($class->new(5)->blog(undef, 71), 52 "$class->new(5)->blog(undef, 71)"); 55 is($class->new(2)->blog(undef, 71), 57 "$class->new(2)->blog(undef, 71)"); [all …]
|
| /openbsd/src/regress/usr.bin/jot/ |
| D | regress.ed.out | 1 2s/old/new/ 2 7s/old/new/ 3 12s/old/new/ 4 17s/old/new/ 5 22s/old/new/ 6 27s/old/new/ 7 32s/old/new/ 8 37s/old/new/ 9 42s/old/new/ 10 47s/old/new/ [all …]
|
| D | regress.man7.out | 1 2s/old/new/ 2 7s/old/new/ 3 12s/old/new/ 4 17s/old/new/ 5 22s/old/new/ 6 27s/old/new/ 7 32s/old/new/ 8 37s/old/new/ 9 42s/old/new/ 10 47s/old/new/ [all …]
|
| /openbsd/src/gnu/usr.bin/gcc/gcc/f/ |
| D | stt.c | 80 ffesttCaseList new; in ffestt_caselist_append() local 82 new = (ffesttCaseList) malloc_new_kp (ffesta_scratch_pool, in ffestt_caselist_append() 83 "FFEST case list", sizeof (*new)); in ffestt_caselist_append() 84 new->next = list->previous->next; in ffestt_caselist_append() 85 new->previous = list->previous; in ffestt_caselist_append() 86 new->next->previous = new; in ffestt_caselist_append() 87 new->previous->next = new; in ffestt_caselist_append() 88 new->expr1 = case1; in ffestt_caselist_append() 89 new->expr2 = case2; in ffestt_caselist_append() 90 new->range = range; in ffestt_caselist_append() [all …]
|
| /openbsd/src/usr.bin/find/ |
| D | function.c | 186 PLAN *new; in c_amin() local 190 new = palloc(N_AMIN, f_amin); in c_amin() 191 new->sec_data = find_parsenum(new, "-amin", arg, NULL); in c_amin() 192 TIME_CORRECT(new, N_AMIN); in c_amin() 193 return (new); in c_amin() 213 PLAN *new; in c_atime() local 217 new = palloc(N_ATIME, f_atime); in c_atime() 218 new->sec_data = find_parsenum(new, "-atime", arg, NULL); in c_atime() 219 TIME_CORRECT(new, N_ATIME); in c_atime() 220 return (new); in c_atime() [all …]
|
| /openbsd/src/regress/bin/ksh/ |
| D | strsub.t | 5 echo empty ${v/old/new} 8 echo ${v/new/} 9 v='old new' 10 echo ${v/old/new} 11 v='new old' 12 echo ${v/old/new} 13 echo "${v/old/new}" 22 new new 23 new new 24 new new [all …]
|
| /openbsd/src/gnu/usr.bin/perl/utils/ |
| D | h2ph.PL | 92 my ($t, $tab, %curargs, $new, $eval_index, $dir, $name, $args, $outfile); 137 $new = ''; 154 $new =~ s/(["\\])/\\$1/g; #"]); 160 $new = 1 if $new eq ''; 163 next if $new =~ /^\s*&\Q$name\E\s*\z/; 165 $new = reindent($new); 167 $new =~ s/(['\\])/\\$1/g; #']); 174 print OUT "'sub $name () {$new;}' unless defined(&$name);\n"; 227 $new = ''; 231 print OUT $t,"if($new) {\n"; [all …]
|
| /openbsd/src/usr.bin/diff3/ |
| D | diff3prog.c | 96 struct range new; member 234 (*dd)[i].new.from = c; in readin() 235 (*dd)[i].new.to = d; in readin() 239 (*dd)[i].new.from = (*dd)[i-1].new.to; in readin() 313 d1->new.from,d1->new.to, in merge() 315 d2->new.from,d2->new.to); in merge() 318 if (!t2 || (t1 && d1->new.to < d2->new.from)) { in merge() 323 keep(2, &d1->new); in merge() 324 change(3, &d1->new, 0); in merge() 330 if (!t1 || (t2 && d2->new.to < d1->new.from)) { in merge() [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/JSON-PP/t/ |
| D | 002_error.t | 15 eval { JSON::PP->new->encode ([\-1]) }; ok $@ =~ /cannot encode reference/; 16 eval { JSON::PP->new->encode ([\undef]) }; ok $@ =~ /cannot encode reference/; 17 eval { JSON::PP->new->encode ([\2]) }; ok $@ =~ /cannot encode reference/; 18 eval { JSON::PP->new->encode ([\{}]) }; ok $@ =~ /cannot encode reference/; 19 eval { JSON::PP->new->encode ([\[]]) }; ok $@ =~ /cannot encode reference/; 20 eval { JSON::PP->new->encode ([\\1]) }; ok $@ =~ /cannot encode reference/; 22 eval { JSON::PP->new->allow_nonref (1)->decode ('"\u1234\udc00"') }; ok $@ =~ /missing high /; 23 eval { JSON::PP->new->allow_nonref->decode ('"\ud800"') }; ok $@ =~ /missing low /; 24 eval { JSON::PP->new->allow_nonref (1)->decode ('"\ud800\u1234"') }; ok $@ =~ /surrogate pair /; 26 eval { JSON::PP->new->allow_nonref (0)->decode ('null') }; ok $@ =~ /allow_nonref/; [all …]
|
| /openbsd/src/gnu/llvm/clang/lib/Headers/ |
| D | hexagon_types.h | 340 #define HEXAGON_V64_PUT_D(v, new) (new) argument 346 #define HEXAGON_V64_PUT_W0(v, new) \ argument 353 _HEXAGON_V64_internal_union.w[0] = (new); \ 356 #define HEXAGON_V64_PUT_W1(v, new) \ argument 363 _HEXAGON_V64_internal_union.w[1] = (new); \ 369 #define HEXAGON_V64_PUT_W0(v, new) \ argument 370 (((v) & 0xffffffff00000000LL) | ((HEXAGON_Vect64)((unsigned int)(new)))) 371 #define HEXAGON_V64_PUT_W1(v, new) \ argument 372 (((v) & 0x00000000ffffffffLL) | (((HEXAGON_Vect64)(new)) << 32LL)) 380 #define HEXAGON_V64_PUT_H0(v, new) \ argument [all …]
|
| /openbsd/src/gnu/usr.bin/perl/dist/Dumpvalue/t/ |
| D | extend-coverage.t | 30 my $d = Dumpvalue->new( dumpReused => 1 ); 31 ok( $d, 'create a new Dumpvalue object' ); 41 ok( $d = Dumpvalue->new(), 'create a new Dumpvalue object' ); 54 ok( $d = Dumpvalue->new(), 'create a new Dumpvalue object' ); 64 my $d = Dumpvalue->new( dumpReused => 1, quoteHighBit => '', unctrl => 'quote' ); 65 ok( $d, 'create a new Dumpvalue object: quoteHighBit explicitly off' ); 69 my $e = Dumpvalue->new( dumpReused => 1, quoteHighBit => 1, unctrl => 'quote' ); 70 ok( $e, 'create a new Dumpvalue object: quoteHighBit on' ); 74 my $f = Dumpvalue->new( dumpReused => 1, quoteHighBit => '', unctrl => 'unctrl' ); 75 ok( $f, 'create a new Dumpvalue object: quoteHighBit explicitly off, unctrl' ); [all …]
|
| /openbsd/src/usr.bin/vi/vi/ |
| D | vs_split.c | 37 vs_split(SCR *sp, SCR *new, int ccl) in vs_split() argument 62 CALLOC(sp, _HMAP(new), SIZE_HMAP(sp), sizeof(SMAP)); in vs_split() 63 if (_HMAP(new) == NULL) in vs_split() 65 _HMAP(new)->lno = sp->lno; in vs_split() 66 _HMAP(new)->coff = 0; in vs_split() 67 _HMAP(new)->soff = 1; in vs_split() 76 new->cols = sp->cols; in vs_split() 91 new->rows = sp->rows - half; /* New. */ in vs_split() 92 new->woff = sp->woff; in vs_split() 94 sp->woff += new->rows; in vs_split() [all …]
|
| /openbsd/src/usr.bin/vi/ex/ |
| D | ex_edit.c | 109 SCR *new; in ex_N_edit() local 112 if (screen_init(sp->gp, sp, &new)) in ex_N_edit() 114 if (vs_split(sp, new, 0)) { in ex_N_edit() 115 (void)screen_end(new); in ex_N_edit() 122 new->ep = sp->ep; in ex_N_edit() 123 ++new->ep->refcnt; in ex_N_edit() 125 new->frp = frp; in ex_N_edit() 126 new->frp->flags = sp->frp->flags; in ex_N_edit() 128 new->lno = sp->lno; in ex_N_edit() 129 new->cno = sp->cno; in ex_N_edit() [all …]
|
| /openbsd/src/usr.bin/cvs/ |
| D | diff3.c | 102 struct range new; member 470 (*dd)[i].new.from = c; in readin() 471 (*dd)[i].new.to = d; in readin() 476 (*dd)[i].new.from = (*dd)[i-1].new.to; in readin() 555 d1->new.from, d1->new.to, in merge() 557 d2->new.from, d2->new.to); in merge() 561 if (!t2 || (t1 && d1->new.to < d2->new.from)) { in merge() 566 keep(2, &d1->new); in merge() 567 change(3, &d1->new, 0); in merge() 574 if (!t1 || (t2 && d2->new.to < d1->new.from)) { in merge() [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Unicode-Collate/t/ |
| D | cjkrange.t | 31 my $coll = Unicode::Collate->new( 68 ok($coll->cmp("\x{3400}", "\x{9FA6}") == ($v >= 14 ? 1 : -1)); # new 69 ok($coll->cmp("\x{3400}", "\x{9FBB}") == ($v >= 14 ? 1 : -1)); # new 70 ok($coll->cmp("\x{3400}", "\x{9FBC}") == ($v >= 18 ? 1 : -1)); # new 71 ok($coll->cmp("\x{3400}", "\x{9FC3}") == ($v >= 18 ? 1 : -1)); # new 72 ok($coll->cmp("\x{3400}", "\x{9FC4}") == ($v >= 20 ? 1 : -1)); # new 73 ok($coll->cmp("\x{3400}", "\x{9FCB}") == ($v >= 20 ? 1 : -1)); # new 74 ok($coll->cmp("\x{3400}", "\x{9FCC}") == ($v >= 24 ? 1 : -1)); # new 75 ok($coll->cmp("\x{3400}", "\x{9FCD}") == ($v >= 32 ? 1 : -1)); # new 76 ok($coll->cmp("\x{3400}", "\x{9FD5}") == ($v >= 32 ? 1 : -1)); # new [all …]
|
| /openbsd/src/usr.sbin/npppd/common/ |
| D | radish.c | 79 struct radish *new; in rd_inithead() local 83 int len = sizeof(*head) + sizeof(*new) + slen * num; in rd_inithead() 90 new = (struct radish *)(head + 1); in rd_inithead() 91 masks = (struct sockaddr *)(new +1); in rd_inithead() 113 head->rdh_top = new; in rd_inithead() 115 new->rd_route = masks; in rd_inithead() 116 new->rd_mask = masks; in rd_inithead() 117 new->rd_btest = rd_btest[0]; in rd_inithead() 161 struct radish *cur = head->rdh_top, *parent, *new; in rd_insert() local 179 R_Malloc(new, struct radish *, sizeof(*new) + slen); in rd_insert() [all …]
|
| /openbsd/src/gnu/usr.bin/perl/t/lib/feature/ |
| D | indirect | 7 sub new { bless {}, shift } 16 my $x = new Foo; 23 my $y = new Foo; 26 Bareword found where operator expected (Do you need to predeclare "new"?) at - line 19, near "new F… 27 syntax error at - line 19, near "new Foo" 33 sub new { bless {}, shift } 42 my $x = new { $class }; 51 my $y = new { $class }; 59 my $z = new { $class }; 63 syntax error at - line 29, near "new { " [all …]
|
| /openbsd/src/usr.bin/rcs/ |
| D | diff3.c | 101 struct range new; member 565 (*dd)[i].new.from = c; in readin() 566 (*dd)[i].new.to = d; in readin() 571 (*dd)[i].new.from = (*dd)[i-1].new.to; in readin() 650 d1->new.from, d1->new.to, in merge() 652 d2->new.from, d2->new.to); in merge() 656 if (!t2 || (t1 && d1->new.to < d2->new.from)) { in merge() 661 keep(2, &d1->new); in merge() 662 change(3, &d1->new, 0); in merge() 669 if (!t1 || (t2 && d2->new.to < d1->new.from)) { in merge() [all …]
|