| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
| H A D | 29_downcopy.t | 47 try( 9659, 6635, 6691); # old=x , new=x ; old < new 48 try( 8605, 2394, 2394); # old=x , new=x ; old = new 49 try( 9768, 1361, 664); # old=x , new=x ; old > new 50 try( 9955, 6429, 6429); # old=x> , new=x ; old = new 51 try(10550, 5834, 4123); # old=x> , new=x ; old > new 52 try(14580, 6158, 851); # old=x><x , new=x ; old > new 53 try(13442, 11134, 1572); # old=x><x> , new=x ; old > new 54 try( 8394, 0, 5742); # old=0 , new=x ; old < new 55 try( 8192, 2819, 6738); # old=<x , new=<x ; old < new 56 try( 8192, 514, 514); # old=<x , new=<x ; old = new [all …]
|
| H A D | 26_twrite.t | 73 try( 9659, 6635, 6691); # old=x , new=x ; old < new 74 try( 8605, 2394, 2394); # old=x , new=x ; old = new 75 try( 9768, 1361, 664); # old=x , new=x ; old > new 76 try( 9955, 6429, 6429); # old=x> , new=x ; old = new 77 try(10550, 5834, 4123); # old=x> , new=x ; old > new 78 try(14580, 6158, 851); # old=x><x , new=x ; old > new 79 try(13442, 11134, 1572); # old=x><x> , new=x ; old > new 80 try( 8394, 0, 5742); # old=0 , new=x ; old < new 81 try( 8192, 2819, 6738); # old=<x , new=<x ; old < new 82 try( 8192, 514, 514); # old=<x , new=<x ; old = new [all …]
|
| H A D | 27_iwrite.t | 50 try( 8605, 2394, 2394); # old=x , new=x ; old = new 51 try( 9768, 1361, 664); # old=x , new=x ; old > new 52 try( 9955, 6429, 6429); # old=x> , new=x ; old = new 53 try(10550, 5834, 4123); # old=x> , new=x ; old > new 54 try(14580, 6158, 851); # old=x><x , new=x ; old > new 55 try(13442, 11134, 1572); # old=x><x> , new=x ; old > new 56 try( 8192, 514, 514); # old=<x , new=<x ; old = new 57 try( 8192, 2196, 858); # old=<x , new=<x ; old > new 58 try( 8192, 8192, 8192); # old=<x> , new=<x ; old = new 59 try( 8192, 8192, 1290); # old=<x> , new=<x ; old > new [all …]
|
| H A D | 28_mtwrite.t | 62 try( 8605, 2394, 2394); # old=x , new=x ; old = new 63 try( 9768, 1361, 664); # old=x , new=x ; old > new 64 try( 9955, 6429, 6429); # old=x> , new=x ; old = new 65 try(10550, 5834, 4123); # old=x> , new=x ; old > new 66 try(14580, 6158, 851); # old=x><x , new=x ; old > new 67 try(13442, 11134, 1572); # old=x><x> , new=x ; old > new 68 try( 8192, 514, 514); # old=<x , new=<x ; old = new 69 try( 8192, 2196, 858); # old=<x , new=<x ; old > new 70 try( 8192, 8192, 8192); # old=<x> , new=<x ; old = new 71 try( 8192, 8192, 1290); # old=<x> , new=<x ; old > new [all …]
|
| H A D | 29a_upcopy.t | 28 try(0, 0, 0); 29 try(0, 0, 10); 30 try(0, 0, 100); 31 try(0, 0, 1000); 32 try(0, 0, 10000); 33 try(0, 0, 20000); 36 try(100, 100, 0); 37 try(100, 100, 10); 38 try(100, 100, 100); 39 try(100, 100, 1000); [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/ |
| H A D | calling.t | 69 my ($func,@args,$ans,$rc,$class,$try); 85 $try = "'$args[0]'"; # quote it 86 $try = $args[0] if $args[0] =~ /'/; # already quoted 87 $try = '' if $args[0] eq ''; # undef, no argument 88 $try = "$class\->$func($try);"; 89 $rc = eval $try; 90 print "# Tried: '$try'\n" if !ok ($rc, $ans); 106 $try = "use $class ($version,'lib','foo, bar , ');"; 107 $try .= "$class\->config()->{lib};"; 108 $ans = eval $try; [all …]
|
| H A D | bigintpm.inc | 62 $try = "\$x = $class->new(\"$args[0]\");"; 65 $try = "\$x = $class->bnorm(\"$args[0]\");"; 68 $try .= "\$x->$f() || 0;"; 70 $try .= "\$x->is_inf('$args[1]');"; 72 $try .= "\$x->binf('$args[1]');"; 74 $try .= "\$x->bone('$args[1]');"; 77 $try .= "\$x->$f();"; 79 $try .= "\$x->$f();"; 82 $try .= '$x = $x->exponent()->bstr();'; 85 $try .= '$x = $x->mantissa()->bstr();'; [all …]
|
| H A D | upgrade.inc | 72 $try = "\$x = $class->new(\"$args[0]\");"; 75 $try = "\$x = $class->bnorm(\"$args[0]\");"; 78 $try .= "\$x->$f();"; 80 $try .= '$x->as_hex();'; 82 $try .= '$x->as_bin();'; 84 $try .= "\$x->is_inf('$args[1]');"; 86 $try .= "\$x->binf('$args[1]');"; 88 $try .= "\$x->bone('$args[1]');"; 91 $try .= "\$x->$f();"; 93 $try .= '$x->length();'; [all …]
|
| H A D | bigfltpm.inc | 33 $try = "\$x = $class->new(\"$args[0]\");"; 36 $try .= "\$x;"; 38 $try .= "\$x->finf('$args[1]');"; 40 $try .= "\$x->is_inf('$args[1]');"; 42 $try .= "\$x->bone('$args[1]');"; 44 $try .= "\$x->accuracy($args[1]); \$x->precision($args[2]);"; 45 $try .= '$x->fstr();'; 48 $try .= '($a,$b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr();'; 49 $try .= '"$a $b";'; 52 $try .= '$x->exponent()->bstr();'; [all …]
|
| /onnv-gate/usr/src/cmd/sendmail/libsm/ |
| H A D | t-match.c | 19 #define try(str, pat, want) \ macro 35 try("foo", "foo", true); 36 try("foo", "bar", false); 37 try("foo[bar", "foo[bar", true); 38 try("foo[bar]", "foo[bar]", false); 39 try("foob", "foo[bar]", true); 40 try("a-b", "a[]-]b", true); 41 try("abcde", "a*e", true); 42 try("[", "[[]", true); 43 try("c", "[a-z]", true); [all …]
|
| /onnv-gate/usr/src/lib/libxcurses2/src/libc/xcurses/ |
| H A D | mvcur.c | 129 struct Sequence *try = &seqB; in row() local 150 zero_seq(try); in row() 151 add_op(try, parm_cursor, dist, 0); in row() 152 Make_seq_best(best, try); in row() 155 zero_seq(try); in row() 156 add_op(try, one_step, dist, 0); in row() 157 Make_seq_best(best, try); in row() 183 struct Sequence seqA, seqB, *best, *try; in simp_col() local 192 try = &seqB; in simp_col() 256 zero_seq(try); in simp_col() [all …]
|
| /onnv-gate/usr/src/lib/libxcurses/src/libc/xcurses/ |
| H A D | mvcur.c | 130 struct Sequence* try = &seqB; local 151 zero_seq(try); 152 add_op(try, parm_cursor, dist, 0); 153 Make_seq_best(best, try); 156 zero_seq(try); 157 add_op(try, one_step, dist, 0); 158 Make_seq_best(best, try); 186 struct Sequence seqA, seqB, *best, *try; local 195 try = &seqB; 257 zero_seq(try); [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
| H A D | runenv.t | 82 sub try { subroutine 98 try({PERL5OPT => '-w'}, ['-e', 'print $::x'], 102 try({PERL5OPT => '-Mstrict'}, ['-e', 'print $::x'], 105 try({PERL5OPT => '-Mstrict'}, ['-e', 'print $x'], 110 try({PERL5OPT => '-Mstrict -w'}, ['-e', 'print $x'], 115 try({PERL5OPT => '-w -Mstrict'}, ['-e', 'print $::x'], 124 try({PERL5OPT => '-w -Mstrict'}, ['-e', 'print $::x'], 132 try({PERL5OPT => '-MExporter'}, ['-e0'], 137 try({PERL5OPT => '-MExporter -MExporter'}, ['-e0'], 141 try({PERL5OPT => '-Mstrict -Mwarnings'}, [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigRat/t/ |
| H A D | bigratpm.inc | 33 $try = "\$x = new $class \"$args[0]\";"; 36 $try .= "\$x;"; 39 $try .= "\$x->binf('$a');"; 41 $try .= "\$x->is_inf('$args[1]');"; 43 $try .= "\$x->bone('$args[1]');"; 45 $try .= "\$x->accuracy($args[1]); \$x->precision($args[2]);"; 46 $try .= '$x->bstr();'; 49 $try .= '($a,$b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr();'; 50 $try .= '"$a $b";'; 53 $try .= '$x->numerator()->bstr();'; [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/I18N/Langinfo/t/ |
| H A D | Langinfo.t | 58 my $try = $want[$i-1]; 59 eval { I18N::Langinfo->import($try) }; 61 my $got = langinfo(&$try); 62 if (ref $want{$try} && $got =~ $want{$try} || $got eq $want{$try}) { 63 print qq[ok $i - $try is "$got"\n]; 65 print qq[not ok $i - $try is "$got" not "$want{$try}"\n]; 68 print qq[ok $i - Skip: $try not defined\n];
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/lib/Encode/ |
| H A D | Guess.pm | 111 my %try = %{$obj->{Suspects}}; 114 $try{$e->name} = $e; 121 my @keys = keys %try; 122 delete @try{qw/utf8 ascii/}; 124 ref($try{$k}) eq 'Encode::XS' and delete $try{$k}; 127 my %ok = %try; 129 for my $k (keys %try){ 131 $try{$k}->decode($scratch, FB_QUIET); 147 %try = %ok; $nline++; 149 $try{ascii} or [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/ |
| H A D | Find.pm | 183 foreach my $try (@search) { 184 unless(File::Spec->file_name_is_absolute($try)) { 186 $try = File::Spec->catfile($pwd,$try); 191 $try = File::Spec->canonpath($try) if ($^O ne 'VMS'); 192 $try = VMS::Filespec::unixify($try) if ($^O eq 'VMS'); 194 if(-f $try) { 195 if($name = _check_and_extract_name($try, $opts{-verbose})) { 196 _check_for_duplicates($try, $name, \%names, \%pods); 200 my $root_rx = $^O eq 'MacOS' ? qq!^\Q$try\E! : qq!^\Q$try\E/!; 227 }, $try); # end of File::Find::find
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
| H A D | Soundex.t | 40 ($try = $_) =~ s/^eval\s+//; 42 eval ($try); 47 print "# eval '$try' returned $@"; 54 $try = "\@expect = $out; \@got = &soundex $in;"; 55 eval ($try); 85 $try = "\$expect = $out; \$got = &soundex ($in);"; 86 eval ($try);
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/base/ |
| H A D | term.t | 44 open(try,"Dev:Null") || (die "Can't open /dev/null."); 46 open(try, "/dev/null") || open(try,"nla0:") || (die "Can't open /dev/null."); 49 if (<try> eq '') { 57 open(try, "harness") || (die "Can't open harness."); 58 if (<try> ne '') {print "ok 7\n";} else {print "not ok 7\n";}
|
| /onnv-gate/usr/src/cmd/man/src/util/instant.src/tptregexp/ |
| H A D | Makefile | 65 regmagic.h try.c timer.c tests 72 try: try.o $(OBJ) target 73 $(CC) $(LDFLAGS) try.o $(OBJ) -o try 86 r: try tests 88 try <tests 92 lint $(LINTFLAGS) $(LSRC) try.c 99 rm -f *.o core mon.out timer.t.h dMakefile dtr try timer
|
| /onnv-gate/usr/src/cmd/factor/ |
| H A D | factor.c | 52 void try(double); 90 try(2.0); in main() 91 try(3.0); in main() 92 try(5.0); in main() 93 try(7.0); in main() 117 try(double arg) in try() function
|
| /onnv-gate/usr/src/lib/libc/port/gen/ |
| H A D | mktemp.c | 108 int try; in libc_mktemps() local 196 try = previous_try; in libc_mktemps() 199 uint64_t num = ((uint64_t)pid << tryshift) + (uint64_t)try; in libc_mktemps() 212 previous_try = try + 1; in libc_mktemps() 218 if (++try == max_try) in libc_mktemps() 219 try = 0; in libc_mktemps() 220 if (try == previous_try) in libc_mktemps()
|
| /onnv-gate/usr/src/cmd/svc/startd/ |
| H A D | startd.c | 168 uint_t try, msecs; in startd_alloc_retry() local 176 for (try = 0; p == NULL && try < ALLOC_RETRY; ++try) { in startd_alloc_retry() 191 uint_t try, msecs; in safe_realloc() local 199 for (try = 0; errno == EAGAIN && try < ALLOC_RETRY; ++try) { in safe_realloc() 214 uint_t try, msecs; in safe_strdup() local 223 for (try = 0; in safe_strdup() 224 (errno == EAGAIN || errno == ENOMEM) && try < ALLOC_RETRY; in safe_strdup() 225 ++try) { in safe_strdup() 253 uint_t try, msecs; in startd_list_pool_create() local 261 for (try = 0; uu_error() == UU_ERROR_NO_MEMORY && try < ALLOC_RETRY; in startd_list_pool_create() [all …]
|
| /onnv-gate/usr/src/cmd/fm/modules/common/eversholt/ |
| H A D | eval.c | 120 struct config *croot, struct arrow *arrowp, int try, int *dupedp) in eval_getname() argument 133 if (eval_expr(np, ex, events, globals, croot, arrowp, try, in eval_getname() 151 if (try) { in eval_getname() 153 arrowp, try, &val) && val.t == NODEPTR) in eval_getname() 167 int try, struct evalue *valuep) in eval_cat() argument 176 arrowp, try, &lval)) in eval_cat() 179 arrowp, try, &rval)) in eval_cat() 195 arrowp, try, valuep)) in eval_cat() 212 struct config *croot, struct arrow *arrowp, int try, struct evalue *valuep) in eval_func() argument 230 croot, arrowp, try, &duped_lhs); in eval_func() [all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/ |
| H A D | Long.pm | 1122 my $try = lc ($opt); 1124 if ( $try =~ /^no_?(.*)$/s ) { 1126 $try = $+; 1128 if ( ($try eq 'default' or $try eq 'defaults') && $action ) { 1131 elsif ( ($try eq 'posix_default' or $try eq 'posix_defaults') ) { 1136 elsif ( $try eq 'auto_abbrev' or $try eq 'autoabbrev' ) { 1139 elsif ( $try eq 'getopt_compat' ) { 1142 elsif ( $try eq 'gnu_getopt' ) { 1150 elsif ( $try eq 'gnu_compat' ) { 1153 elsif ( $try =~ /^(auto_?)?version$/ ) { [all …]
|