/openbsd/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)]){ 43 if($lines[($cnt-5)]){ 46 if($lines[($cnt-4)]){ 49 if($lines[($cnt-3)]){ 52 if($lines[($cnt-2)]){ 55 if($lines[($cnt-1)]){ 58 if($lines[$cnt]){ [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] 69 } else if (lines[i] ~ /@node/) { 71 sub(/[ \t]*,.*$/, "", lines[i]) 72 name = lines[i] 101 n = split($0, lines, "\n") 104 res = updateref(lines[i]) [all …]
|
H A D | install-info.c | 894 if (!strncmp ("START-INFO-DIR-ENTRY", lines[i].start, lines[i].size) in parse_input() 921 lines[i].start, lines[i].size) in parse_input() 939 lines[i].start, lines[i].size) in parse_input() 946 lines[i].start, lines[i].size) in parse_input() 1056 next->name = copy_string (lines[i].start, lines[i].size); in parse_dir_file() 1109 else if (i > 0 && (*lines[i].start == ' ' || *lines[i].start == '\t')) in parse_dir_file() 1111 lines[i].delete = lines[i - 1].delete; in parse_dir_file() 1483 lines = xrealloc (lines, (lines_allocated + 1) in findlines() 1492 = lines[filled].start - lines[filled - 1].start - 1; in findlines() 1498 lines[filled - 1].size = &data[i] - lines[filled - 1].start - lineflag; in findlines() [all …]
|
/openbsd/sys/dev/usb/ |
H A D | makemap.awk | 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[76]) { 317 lines[76] = lines[42] 320 if (!lines[49]) { 321 lines[49] = lines[50] 352 if (lines[i]) { 353 print lines[i] [all …]
|
/openbsd/gnu/usr.bin/perl/dist/Devel-PPPort/devel/ |
H A D | scanprov | 102 @lines = grep { $_ !~ /$id_text/ } @lines; 122 my @lines = <$fh>; 123 my $count = @lines; 131 push @lines, $line; 134 @lines = sort symbol_order @lines; 137 print $fh @lines; 172 my @lines = <$fh>; 174 push @lines, format_version_line($version) . "\n" unless @lines; 179 push @lines, $line unless grep { /$line/ } @lines; 183 @lines = sort symbol_order @lines; [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/IO-Compress/t/compress/ |
H A D | tied.pl | 204 my @lines = <$io>; 228 ok @lines == 1 && $lines[0] eq $str; 241 my @lines = <$io>; 243 ok @lines == 2 253 my @lines = (); 265 ok @lines == 3 334 ok @lines == 6; 356 ok @lines == 1 && $lines[0] eq $str; 371 ok @lines == 2 381 my @lines = (); [all …]
|
H A D | newtied.pl | 160 my @lines = <$io>; 161 is @lines, 6 164 is join('', @lines), $str ; 185 my @lines = $io->getlines; 187 ok @lines == 1 && $lines[0] eq $str; 200 my @lines = <$io>; 202 ok @lines == 2 212 my @lines = (); 217 push(@lines, $_); 224 ok @lines == 3 [all …]
|
/openbsd/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' ); 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, 3, '-qq should suppress even the syntax OK message' ); 35 @lines = get_lines( '-MO=success,fail' ); [all …]
|
/openbsd/gnu/usr.bin/gcc/gcc/testsuite/g++.dg/special/ |
H A D | ecos.exp | 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 { 76 if ![string match "" $lines] then { 96 if [string match "*init_priority*" $lines] then { [all …]
|
/openbsd/usr.bin/tail/ |
H A D | read.c | 144 } *lines = NULL; in lines() local 169 if ((lines = recallocarray(lines, lineno, nlineno, in lines() 183 memcpy(lines[recno].l, sp, (lines[recno].len = cnt)); in lines() 198 lines[recno].l = sp; in lines() 199 lines[recno].len = cnt; in lines() 209 WR(lines[cnt - 1].l, lines[cnt - 1].len); in lines() 212 WR(lines[cnt - 1].l, lines[cnt - 1].len); in lines() 216 WR(lines[cnt].l, lines[cnt].len); in lines() 218 WR(lines[cnt].l, lines[cnt].len); in lines() 222 free(lines[cnt].l); in lines() [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN-Meta-YAML/t/lib/TestML/ |
H A D | Tiny.pm | 216 push @$lines, undef; # sentinel 217 while (@$lines) { 218 push @$parse, shift @$lines; 219 if (!defined($lines->[0]) or 237 my ($self, $lines) = @_; 240 shift @$lines until not(@$lines) or 250 my ($self, $lines) = @_; 254 while (@$lines) { 255 my $line = shift @$lines; 264 shift @$lines while @$lines and [all …]
|
/openbsd/gnu/usr.bin/texinfo/info/ |
H A D | nodemenu.c | 91 int lines = 1; in format_node_info() local 95 lines++; in format_node_info() 164 if (lines) in get_visited_nodes() 176 if (FILENAME_CMP (lines[i], lines[i + 1]) == 0) in get_visited_nodes() 178 free (lines[i]); in get_visited_nodes() 189 if (lines[i]) in get_visited_nodes() 193 free (lines); in get_visited_nodes() 194 lines = temp; in get_visited_nodes() 212 free (lines[i]); in get_visited_nodes() 215 if (lines) in get_visited_nodes() [all …]
|
/openbsd/gnu/usr.bin/gcc/gcc/testsuite/gcc.dg/special/ |
H A D | ecos.exp | 44 set lines [gcc_target_compile "$srcdir/$subdir/weak-1a.c" "weak-1a.o" object ""] 45 if ![string match "" $lines] then { 65 set lines [gcc_target_compile "$srcdir/$subdir/weak-2a.c" "weak-2a.o" object ""] 66 if ![string match "" $lines] then { 69 set lines [gcc_target_compile "$srcdir/$subdir/weak-2b.c" "weak-2b.o" object ""] 70 if ![string match "" $lines] then { 132 set lines [gcc_target_compile "$srcdir/$subdir/wkali-2a.c" "wkali-2a.o" object ""] 133 if ![string match "" $lines] then { 136 set lines [gcc_target_compile "$srcdir/$subdir/wkali-2b.c" "wkali-2b.o" object ""] 137 if [string match "*only weak aliases*" $lines] then { [all …]
|
/openbsd/gnu/usr.bin/perl/regen/ |
H A D | HeaderParser.pm | 539 my @lines; 697 $self->{lines}= \@lines; 698 return \@lines; 702 sub lines { $_[0]->{lines} } subroutine 756 (map { sprintf "%*s", -$len, $_ } @lines[ 0 .. $#lines - 1 ]), 850 my @lines= (""); 867 return \@lines; 881 my $lines; 1035 $lines ||= $self->{lines}; 1235 $lines ||= $self->{lines}; [all …]
|
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;
|
/openbsd/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/ |
H A D | fixin.t | 62 my @lines = <$fh>; 65 $test->(@lines); 81 my @lines = @_; 82 unlike $lines[$shb_line_num], qr[/foo/bar/perl], "#! replaced"; 83 like $lines[$shb_line_num], qr[ -w\b], "switch retained"; 87 is $lines[-1], "blah blah blah\n", "Program text retained"; 100 my @lines = @_; 101 unlike $lines[$shb_line_num], qr[/foo/bar/perl5.8.8], "#! replaced"; 102 like $lines[$shb_line_num], qr[ -w\b], "switch retained"; 106 is $lines[-1], "blah blah blah\n", "Program text retained";
|
/openbsd/gnu/llvm/llvm/utils/lint/ |
H A D | common_lint.py | 8 def VerifyLineLength(filename, lines, max_length): argument 23 for line in lines: 31 def VerifyTabs(filename, lines): argument 45 for line in lines: 52 def VerifyTrailingWhitespace(filename, lines): argument 66 for line in lines: 74 def RunOnFile(filename, lines): argument 95 lines = file.readlines() 96 lint.extend(linter.RunOnFile(filename, lines))
|
/openbsd/gnu/llvm/llvm/utils/lit/tests/Inputs/shtest-define/ |
H A D | line-number-substitutions.txt | 1 # Does it work as expected directly in RUN lines? 8 # DEFINE: %{lines} = %(line) 9 # RUN: echo '%{lines}' 12 # REDEFINE: %{lines} = %(line), \ 15 # RUN: echo '%{lines}' 20 # DEFINE: %{lines-rel} = %(line+1), \ 23 # RUN: echo '%{lines-rel}' 26 # REDEFINE: %{lines-rel} = %(line+5), \ 29 # RUN: echo '%{lines-rel}'
|
/openbsd/gnu/usr.bin/cvs/contrib/ |
H A D | log_accum.in | 75 local($filename, @lines) = @_; 83 local($filename, @lines) = @_; 92 local(@lines); 105 $lines[$#lines] .= $file . " "; 108 @lines; 112 local(@lines) = @_; 124 foreach $line (@lines) { 503 push(@text, &format_lists(@lines)); 508 push(@text, &format_lists(@lines)); 513 push(@text, &format_lists(@lines)); [all …]
|
/openbsd/usr.bin/vi/docs/ |
H A D | help | 30 ^E scroll down by lines 34 ^J move down by lines 37 ^N move down by lines 38 ^P move up by lines 44 ^Y page up by lines 80 J join lines 108 j move down by lines 109 k move up by lines 129 ^D: scroll lines 134 <: shift lines left [all …]
|
/openbsd/usr.bin/mandoc/ |
H A D | chars.c | 44 static struct ln lines[] = { variable 443 for (i = 0; i < sizeof(lines)/sizeof(lines[0]); i++) { in mchars_alloc() 444 slot = ohash_qlookup(&mchars, lines[i].roffcode); in mchars_alloc() 446 ohash_insert(&mchars, slot, lines + i); in mchars_alloc() 500 for (i = 0; i < sizeof(lines)/sizeof(lines[0]); i++) in mchars_uc2str() 501 if (uc == lines[i].unicode) in mchars_uc2str() 502 return lines[i].ascii; in mchars_uc2str()
|
/openbsd/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/gnu/usr.bin/perl/dist/SelfLoader/lib/ |
H A D | SelfLoader.pm | 95 my($line,$name,@lines, @stubs, $protoype); 121 \@lines, $protoype)); 123 @lines = ($line); 139 \@lines, $protoype)); 142 @lines = (); 153 push(@lines,$line); 166 push(@stubs, $self->_add_to_cache($name, $currpack, \@lines, $protoype)); 173 my($self,$fullname,$pack,$lines, $protoype) = @_; 179 @$lines);
|
/openbsd/gnu/usr.bin/perl/cpan/Text-ParseWords/lib/Text/ |
H A D | ParseWords.pm | 17 my (@lines) = @_; 20 foreach my $line (@lines) { 33 my($delim, $keep, @lines) = @_; 36 foreach $line (@lines) { 47 my($delim, $keep, @lines) = @_; 50 for ($i = 0; $i < @lines; $i++) { 51 @{$allwords[$i]} = parse_line($delim, $keep, $lines[$i]); 52 return() unless (@{$allwords[$i]} || !length($lines[$i]));
|
/openbsd/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;
|