/openbsd-current/regress/usr.bin/ssh/ |
H A D | yes-head.sh | 6 lines=`${SSH} -F $OBJ/ssh_proxy thishost 'yes | head -2000' | (sleep 3 ; wc -l)` 9 lines=0 11 if [ $lines -ne 2000 ]; then 12 fail "yes|head returns $lines lines instead of 2000"
|
/openbsd-current/gnu/usr.bin/perl/ext/B/t/ |
H A D | o.t | 20 my @lines = get_lines( '-MO=success,foo,bar' ); 22 is( $lines[0], 'Compiling!', 'Output should not be saved without -q switch' ); 23 is( $lines[1], '(foo) <bar>', 'O.pm should call backend compile() method' ); 24 is( $lines[2], '[]', 'Nothing should be in $O::BEGIN_output without -q' ); 25 is( $lines[3], '-e syntax OK', 'O.pm should not munge perl output without -qq'); 27 @lines = get_lines( '-MO=-q,success,foo,bar' ); 28 isnt( $lines[1], 'Compiling!', 'Output should not be printed with -q switch' ); 30 is( $lines[1], "[Compiling!", '... but should be in $O::BEGIN_output' ); 32 @lines = get_lines( '-MO=-qq,success,foo,bar' ); 33 is( scalar @lines, [all...] |
/openbsd-current/gnu/usr.bin/texinfo/util/ |
H A D | infosrch | 30 push @lines,$_; 34 for(@lines){ 36 print "$target\n $lines[($cnt-1)]\n<$cnt> $lines[$cnt]\n $lines[($cnt+1)]\n"; 40 if($lines[($cnt-6)]){ 41 print " $lines[($cnt-6)]\n"; 43 if($lines[($cnt-5)]){ 44 print " $lines[($cnt-5)]\n"; 46 if($lines[( [all...] |
H A D | fixref.gawk | 62 n = split($0, lines, "\n") 64 if (lines[i] ~ ("^" heading)) { 65 sub(heading, "", lines[i]) 66 sub(/^[ \t]*/, "", lines[i]) 67 lname = lines[i] 68 # printf "long name is '%s'\n", lines[i] 69 } else if (lines[i] ~ /@node/) { 70 sub(/@node[ \t]*/, "", lines[i]) 71 sub(/[ \t]*,.*$/, "", lines[i]) 72 name = lines[ [all...] |
/openbsd-current/usr.bin/tic/ |
H A D | clear_cmd.c | 52 int retval = tputs(clear_screen, lines > 0 ? lines : 1, putch); 57 (void) tputs(E3, lines > 0 ? lines : 1, putch);
|
/openbsd-current/gnu/usr.bin/gcc/gcc/testsuite/g++.dg/special/ |
H A D | ecos.exp | 32 set lines [g++_target_compile "$srcdir/$subdir/conpr-1.C" "$objdir/conpr-1.exe" executable ""] 33 if [string match "*init_priority*" $lines] then { 36 } elseif ![string match "" $lines] then { 51 set lines [g++_target_compile "$srcdir/$subdir/conpr-2a.C" "conpr-2a.o" object ""] 52 if [string match "*init_priority*" $lines] then { 54 } elseif ![string match "" $lines] then { 69 set lines [g++_target_compile "$srcdir/$subdir/conpr-3a.C" "conpr-3a.o" object ""] 70 if [string match "*init_priority*" $lines] then { 72 } elseif ![string match "" $lines] then { 75 set lines [ [all...] |
/openbsd-current/sys/dev/usb/ |
H A D | makemap.awk | 273 lines[id] = sprintf(" KC(%d),\t", id) 287 lines[id] = sprintf("%s%s,", lines[id], $f) 290 lines[id] = sprintf("%s%s", lines[id], $f) 294 lines[id] = lines[id] "\t" 296 lines[id] = lines[id] "\t" 316 if (!lines[7 [all...] |
/openbsd-current/regress/usr.bin/cvs/ |
H A D | setdate.pl | 12 my @lines; 17 @lines = <FILE>; 22 for (@lines) {
|
/openbsd-current/gnu/usr.bin/perl/t/comp/ |
H A D | line_debug.t | 18 my @lines = <AUX>; 20 my $nlines = @lines; 31 if (!ok 2+$_, ${"_<comp/line_debug_0.aux"}[$_] eq $lines[$_-1]) { 33 print "# Expected: $lines[$_-1]";
|
/openbsd-current/gnu/llvm/llvm/utils/lint/ |
H A D | generic_lint.py | 12 def RunOnFile(self, filename, lines): 13 common_lint.VerifyLineLength(filename, lines, 15 common_lint.VerifyTrailingWhitespace(filename, lines)
|
H A D | common_lint.py | 8 def VerifyLineLength(filename, lines, max_length): 9 """Checks to make sure the file has no lines with lines exceeding the length 14 lines: contents of the file as string array 23 for line in lines: 31 def VerifyTabs(filename, lines): 36 lines: contents of the file as string array 45 for line in lines: 52 def VerifyTrailingWhitespace(filename, lines): 53 """Checks to make sure the file has no lines wit [all...] |
/openbsd-current/gnu/usr.bin/perl/qnx/ |
H A D | cpp | 10 typeset lines=l comments="" redir="" 13 -P) lines=""; shift; continue;; 22 cc -c -Wc,-p$lines$comments -Wc,-pw=0 $* $redir |
|
/openbsd-current/regress/usr.bin/mandoc/tbl/layout/ |
H A D | Makefile | 4 REGRESS_TARGETS += lines lines-nogroff numbers 13 # vertical lines extend beyond the top of the table. 16 SKIP_GROFF = empty lines-nogroff spacing-nogroff
|
/openbsd-current/gnu/usr.bin/gcc/gcc/testsuite/objc.dg/special/ |
H A D | special.exp | 36 set lines [objc_target_compile "$srcdir/$subdir/unclaimed-category-1a.m" "unclaimed-category-1a.o" object "additional_flags=-I${srcdir}/../../libobjc"] 37 if ![string match "" $lines] then {
|
/openbsd-current/gnu/usr.bin/perl/regen/ |
H A D | tidy_embed.pl | 45 my $lines= $parser->lines; 48 while ($lines->[0]{type} eq "content" and !$lines->[0]{embed}) { 49 push @head, shift @$lines; 53 while ($lines->[-1]{type} eq "content" and !$lines->[-1]{embed}) 55 unshift @tail, pop @$lines;
|
H A D | embed_lib.pl | 40 my $lines= $parser->lines(); 67 push @$lines, $new; 83 $parser->group_content($lines, 85 $parser->group_content($lines, 88 $parser->group_content($lines, 92 $parser->group_content($lines,
|
/openbsd-current/gnu/usr.bin/perl/cpan/CPAN-Meta-YAML/lib/CPAN/Meta/ |
H A D | YAML.pm | 240 # Split the file into lines 241 my @lines = grep { ! /^\s*(?:\#.*)?\z/ } 245 @lines and $lines[0] =~ /^\%YAML[: ][\d\.]+.*\z/ and shift @lines; 249 while ( @lines ) { 251 if ( $lines[0] =~ /^---\s*(?:(.+)\s*)?\z/ ) { 253 shift @lines; 256 $self->_load_scalar( "$1", [ undef ], \@lines ); 262 if ( ! @lines o [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/IO-Compress/t/compress/ |
H A D | tied.pl | 204 my @lines = <$io>; 205 is @lines, 6, " Line is 6" 206 or print "# Got " . scalar(@lines) . " lines, expected 6\n" ; 207 is $lines[1], "of a paragraph\n" ; 208 is join('', @lines), $str ; 226 my @lines = $io->getlines; 228 ok @lines == 1 && $lines[0] eq $str; 241 my @lines [all...] |
/openbsd-current/gnu/usr.bin/gcc/gcc/testsuite/gcc.misc-tests/ |
H A D | linkage.exp | 22 set lines [gcc_target_compile "$srcdir/$subdir/linkage-x.c" "linkage-x.o" object {additional_flags="-w"}] 23 if ![string match "" $lines] then { 71 set lines [gcc_target_compile "linkage-y.o linkage-x.o" "x" executable ""] 72 if [string match "" $lines] then {
|
/openbsd-current/gnu/usr.bin/perl/cpan/Encode/bin/ |
H A D | ucmsort | 6 my @lines; 10 unless(@lines){ 21 push @lines,[ $u, @words ]; 30 @lines) {
|
/openbsd-current/sys/arch/sparc64/sparc64/ |
H A D | busop.awk | 30 function generate_code(text, lines, key2, value2) { 36 for(i = 1; i <= lines; ++i) { 49 lines = 1; 79 text[lines] = substr($0, RLENGTH + 1); 80 lines++; 91 text[lines] = $0; 92 lines++; 101 generate_code(text, lines, k2, v2);
|
/openbsd-current/gnu/usr.bin/perl/t/run/ |
H A D | switchd-78586.t | 16 our @lines; 20 push @lines, $l; 25 local @lines; 28 return join " ", @lines;
|
/openbsd-current/gnu/usr.bin/perl/Porting/ |
H A D | checkcfgvar.pl | 92 my @lines; 111 push @{$lines[$section]}, $_; 134 } elsif (join("", @{$lines[1]}) eq join("", sort @{$lines[1]})) { 162 push @{$lines[1]}, map {"$_='$default'\n"} @$missing; 168 @{$lines[1]} = sort @{$lines[1]}; 170 print $fh @{$_} foreach @lines;
|
/openbsd-current/usr.bin/ssh/moduli-gen/ |
H A D | moduli-gen.sh | 28 lines=`gzip -dc ${moduli_sieved} | wc -l` 29 lines=`echo $lines` # remove leading space 33 -O lines=${lines} ${moduli_tested} && \
|
/openbsd-current/gnu/llvm/llvm/utils/filecheck_lint/ |
H A D | filecheck_lint_test.py | 40 lines = ['--check-prefix=SOME-PREFIX', '--check-prefix=SOME-PREFIX'] 41 prefixes = set(fcl.parse_custom_prefixes('\n'.join(lines))) 48 lines = ['junk; CHCK1:', 'junk// CHCK2:', 'SOME CHCK3:'] 49 content = '\n'.join(lines) 56 pos.end_column == len(lines[0]) - 1) 62 pos.end_column == len(lines[1]) - 1) 68 pos.end_column == len(lines[2]) - 1)
|