Home
last modified time | relevance | path

Searched refs:qq (Results 1 – 25 of 100) sorted by relevance

1234

/onnv-gate/usr/src/lib/libmp/common/
H A Dmdiv.c153 int qq; in m_div() local
178 for (qq = 0; qq < r->len; qq++) { in m_div()
179 r->val[qq] = a->val[qq]; in m_div()
198 qq = m_trq(v1, v2, uval[j + n], uval[j + n - 1], in m_div()
200 if (m_dsb(qq, n, v.val, uval + j)) in m_div()
201 qq -= 1; in m_div()
202 qval[j] = (short)qq; in m_div()
219 qq = a->len - n + 1; in m_div()
220 if (qq > 0 && qval[qq - 1] == 0) in m_div()
221 qq -= 1; in m_div()
[all …]
/onnv-gate/usr/src/cmd/sgs/yacc/common/
H A Dy3.c131 int *pp, *qq; local
155 qq = rr;
156 for (pp = p; pp <= q; ++pp, ++qq) {
158 diff = qq - rr;
159 while (qq >= &amem[new_actsize-1]) {
161 qq = diff + rr;
163 if (*pp != *qq && *qq != 0)
174 qq = rr;
175 for (pp = p; pp <= q; ++pp, ++qq) {
177 diff = qq - rr;
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/
H A DUnicode.t58 is($n_16be, encode('UTF-16BE', $nasty), qq{encode UTF-16BE});
59 is($n_16le, encode('UTF-16LE', $nasty), qq{encode UTF-16LE});
60 is($n_32be, encode('UTF-32BE', $nasty), qq{encode UTF-32BE});
61 is($n_32le, encode('UTF-32LE', $nasty), qq{encode UTF-16LE});
63 is($nasty, decode('UTF-16BE', $n_16be), qq{decode UTF-16BE});
64 is($nasty, decode('UTF-16LE', $n_16le), qq{decode UTF-16LE});
65 is($nasty, decode('UTF-32BE', $n_32be), qq{decode UTF-32BE});
66 is($nasty, decode('UTF-32LE', $n_32le), qq{decode UTF-32LE});
68 is($n_16bb, encode('UTF-16', $nasty), qq{encode UTF-16});
69 is($n_32bb, encode('UTF-32', $nasty), qq{encode UTF-32});
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dopenpid.t28 $perl .= qq[ "-I../lib"];
37 $cmd1 = qq/$perl -e "\$|=1; print qq[first process\\n]; sleep 30;"/;
38 $cmd2 = qq/$perl -e "\$|=1; print qq[second process\\n]; sleep 30;"/;
39 $cmd3 = qq/$perl -e "print <>;"/; # hangs waiting for end of STDIN
40 $cmd4 = qq/$perl -e "print scalar <>;"/;
H A Dfflush.t37 my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
38 $runperl .= qq{ "-I../lib"};
92 my $command = qq{$runperl "ff-prog" "$f" "l"};
125 my $command = qq{$runperl "ff-prog" "$f" "rl"};
H A Dpipe.t121 open NIL, qq{|$Perl -e "exit 0"} or die "open failed: $!";
137 open NIL, qq{|$Perl -e "exit 23";} or die "fork failed: $!";
177 open NIL, qq{|$Perl -e "exit 23"} or die "fork failed: $!";
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dutf8.t157 qq{\$a = "$_->[1]"; \$b = show \$a}, qr/^>$_->[2]<$/],
159 qq(no utf8; \$a = "$_->[1]"; \$b = show \$a), qr/^>$_->[2]<$/],
161 qq(use utf8; \$a = "$_->[1]"; \$b = show \$a), qr/^>$_->[0]<$/],
210 qq(my \$a = "$_->[1]"; my %h; \$h{\$a} = 1;
214 qq(no utf8; my \$a = "$_->[1]"; my %h; \$h{\$a} = 1;
218 qq(use utf8; my \$a = "$_->[1]"; my %h; \$h{\$a} = 1;
223 qq(my \$a = "$_->[1]"; my %h; \$h{"$_->[1]"} = 1;
227 qq(no utf8; my \$a = "$_->[1]"; my %h; \$h{"$_->[1]"} = 1;
231 qq(use utf8; my \$a = "$_->[1]"; my %h; \$h{"$_->[1]"} = 1;
236 qq(my \$a = "$_->[1]"; my %h; %h = ("$_->[1]" => 1);
[all …]
H A Dstrict.t102 eval qq(use strict 'garbage');
106 eval qq(no strict 'garbage');
110 eval qq(use strict qw(foo bar));
114 eval qq(no strict qw(foo bar));
/onnv-gate/usr/src/lib/libadm/common/
H A Dlistdev.c81 char **qq; in sortlist() local
101 qq = pp; in sortlist()
103 while (*qq && (strcmp(*rr, *qq) > 0)) { in sortlist()
105 *rr++ = *qq; in sortlist()
106 *qq++ = t; in sortlist()
H A Ddevreserv.c650 char **qq; /* Another ptr into the dev list */ in putlocks() local
689 for (qq = pp; *qq; qq++) lockcount++; in putlocks()
907 char **qq; /* Ptr to item in rtnlist */ in devreserv() local
926 qq = rtnlist; in devreserv()
946 if (*qq = malloc(strlen(*pp)+1)) { in devreserv()
947 (void) strcpy(*qq++, *pp); in devreserv()
974 *qq = NULL; in devreserv()
986 *qq = NULL; in devreserv()
994 for (qq = aliases; *qq; qq++) free(*qq); in devreserv()
H A Dgetdev.c673 char **qq; /* Running ptr to (char *) */ in makealiaslist() local
692 qq = aliases; in makealiaslist()
696 if (alias = devattr(*pp, DTAB_ALIAS)) *qq++ = alias; in makealiaslist()
700 *qq++ = strcpy(alias, ""); in makealiaslist()
703 for (qq = aliases; *qq; qq++) free(*qq); in makealiaslist()
711 *qq = NULL; in makealiaslist()
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dexec.t31 $exit = system qq{$Perl -le "print q{ok $tnum - interp system(EXPR)"}};
37 $exit = system qq{$Perl -le "print q{ok $tnum - split & direct system(EXPR)"}};
86 is( system(qq{$Perl -e "exit 0"}), 0, 'Explicit exit of 0' );
89 is( system(qq{$Perl "-I../lib" -e "use vmsish qw(hushed); exit 1"}), $exit_one,
124 exec $Perl, '-le', qq{${quote}print 'ok $test - exec PROG, LIST'${quote}};
H A Ddo.t84 eval qq{ do qq(a file that does not exist); };
87 eval qq{ do uc qq(a file that does not exist); };
H A Ddie_exit.t54 system(qq{$^X -e "\$! = $bang; \$? = $query; $code"});
57 system(qq{$^X -e '\$! = $bang; \$? = $query; $code'});
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Text/
H A DParseWords.t13 @words = shellwords(qq(foo "bar quiz" zoo));
27 print "not " unless join(";", @words) eq qq(foo;"bar:foo";zoo zoo;);
33 print "not " unless join(";", @words) eq qq(4; ;3; ;2; ;1; ;0);
109 print "not " unless join(";", @words) eq qq(4;3;2;1;0);
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/
H A DComplex.t81 push(@script, qq(print "ok $test\\n"}\n));
94 push(@script, qq(print "ok $test\\n"}\n));
107 push(@script, qq(print "ok $test\\n"}\n));
134 push(@script, qq(print "ok $test\\n";\n));
149 push(@script, qq(print "ok $test\\n";\n));
192 push(@script, qq(print "ok $test\\n";\n));
349 push(@script, qq(print "# $op=\n";));
396 push @script, qq(print "not " unless (\$zbr == \$z1r and \$zbi == \$z1i););
397 push @script, qq(print "ok $test\\n";\n);
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/uni/
H A Dtr_sjis.t54 $str = $hiragana; eval qq(\$str =~ tr/��-��/�@-��/);
55 is($str, $katakana, "eval qq(tr//) # hiragana -> katakana");
56 $str = $katakana; eval qq(\$str =~ tr/�@-��/��-��/);
57 is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana");
H A Dtr_eucjp.t54 $str = $hiragana; eval qq(\$str =~ tr/��-��/��-��/);
55 is($str, $katakana, "eval qq(tr//) # hiragana -> katakana");
56 $str = $katakana; eval qq(\$str =~ tr/��-��/��-��/);
57 is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana");
H A Dtr_utf8.t55 $str = $hiragana; eval qq(\$str =~ tr/ぁ-ん/ァ-ン/);
56 is($str, $katakana, "eval qq(tr//) # hiragana -> katakana");
57 $str = $katakana; eval qq(\$str =~ tr/ァ-ン/ぁ-ん/);
58 is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana");
H A Dtr_7jis.t55 $str = $hiragana; eval qq(\$str =~ tr/$B$!(B-$B$s(B/$B%!(B-$B%s(B/);
56 is($str, $katakana, "eval qq(tr//) # hiragana -> katakana");
57 $str = $katakana; eval qq(\$str =~ tr/$B%!(B-$B%s(B/$B$!(B-$B$s(B/);
58 is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana");
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/I18N/Langinfo/t/
H A DLanginfo.t63 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/t/lib/dprof/
H A Dtest3_v7 qq{main::bar
16 qq{main::bar
H A Dtest4_v7 qq{main::bar
25 qq{main::bar (2x)
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Drequire.t156 $i++; do_require(qq(${utf8}print "ok $i\n"; 1;\n));
163 $i++; do_require(bytes_to_utf16('n', qq(print "ok $i\\n"; 1;\n), 1)); # BE
164 $i++; do_require(bytes_to_utf16('v', qq(print "ok $i\\n"; 1;\n), 1)); # LE
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DCheckTree.t35 $num_warnings = validate qq{
63 $num_warnings = validate qq{
125 $num_warnings = validate qq{

1234