| /openbsd-src/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[($cnt-4)]){ 47 print " $lines[($cnt-4)]\n"; 49 if($lines[($cnt-3)]){ [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/) { 70 sub(/@node[ \t]*/, "", lines[i]) 71 sub(/[ \t]*,.*$/, "", lines[i]) 72 name = lines[i] 101 n = split($0, lines, "\n") [all …]
|
| H A D | install-info.c | 849 parse_input (const struct line_data *lines, int nlines, in parse_input() argument 874 && !strncmp ("INFO-DIR-SECTION ", lines[i].start, prefix_length)) in parse_input() 878 next->name = copy_string (lines[i].start + prefix_length, in parse_input() 879 lines[i].size - prefix_length); in parse_input() 894 if (!strncmp ("START-INFO-DIR-ENTRY", lines[i].start, lines[i].size) in parse_input() 895 && sizeof ("START-INFO-DIR-ENTRY") - 1 == lines[i].size) in parse_input() 914 start_of_this_entry = lines[i + 1].start; in parse_input() 918 if ((!strncmp ("* ", lines[i].start, 2) in parse_input() 919 && lines[i].start > start_of_this_entry) in parse_input() 921 lines[i].start, lines[i].size) in parse_input() [all …]
|
| /openbsd-src/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[76]) { 317 lines[76] = lines[42] 318 sub("42", "76", lines[76]) 320 if (!lines[49]) { 321 lines[49] = lines[50] [all …]
|
| /openbsd-src/gnu/usr.bin/perl/dist/Devel-PPPort/devel/ |
| H A D | scanprov | 10 # first remove any scanprov lines added in previous runs of this. 12 # The lines added have a code to signify they are added by us: 103 my @lines = <$fh>; 104 my $orig_count = @lines; 105 @lines = grep { $_ !~ /$id_text/ } @lines; 106 next if @lines == $orig_count; # No need to write if unchanged. 109 print $fh @lines; 125 my @lines = <$fh>; 126 my $count = @lines; [all...] |
| /openbsd-src/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...] |
| H A D | newtied.pl | 160 my @lines = <$io>; 161 is @lines, 6 162 or print "# Got " . scalar(@lines) . " lines, expected 6\n" ; 163 is $lines[1], "of a paragraph\n" ; 164 is join('', @lines), $str ; 185 my @lines = $io->getlines; 187 ok @lines == 1 && $lines[0] eq $str; 200 my @lines [all...] |
| /openbsd-src/usr.bin/tail/ |
| H A D | read.c | 138 lines(struct tailfile *tf, off_t off) in lines() function 144 } *lines = NULL; in lines() local 169 if ((lines = recallocarray(lines, lineno, nlineno, in lines() 170 sizeof(*lines))) == NULL) in lines() 175 if (lines[recno].blen < cnt) { in lines() 177 if ((newp = realloc(lines[recno].l, in lines() 180 lines[recno].l = newp; in lines() 181 lines[recno].blen = newsize; in lines() 183 memcpy(lines[recno].l, sp, (lines[recno].len = cnt)); in lines() 198 lines[recno].l = sp; in lines() [all …]
|
| /openbsd-src/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 [g++_target_compile "$srcdir/$subdir/conpr-3b.C" "conpr-3b.o" object ""] [all …]
|
| /openbsd-src/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, 3, '-qq should suppress even the syntax OK message' ); [all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/CPAN-Meta-YAML/t/lib/TestML/ |
| H A D | Tiny.pm | 212 my $lines = [ grep { ! /^#/ } split /\n/, $self->{data} ]; 216 push @$lines, undef; # sentinel 217 while (@$lines) { 218 push @$parse, shift @$lines; 219 if (!defined($lines->[0]) or 220 $lines->[0] =~ /^$self->{block_marker}/ 228 last if !defined($lines->[0]); 237 my ($self, $lines) = @_; 239 my ($label) = $lines->[0] =~ /^$self->{block_marker}(?:\s+(.*))?$/; 240 shift @$lines until not(@$lines) or [all …]
|
| /openbsd-src/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() 97 sprintf (line_buffer + len, "%d", lines); in format_node_info() 135 char **lines = (char **)NULL; in get_visited_nodes() local 158 (line, lines_index, lines, lines_slots, 20, char *); in get_visited_nodes() 164 if (lines) in get_visited_nodes() 169 qsort (lines, lines_index, sizeof (char *), compare_strings); 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() 179 lines[i] = (char *)NULL; in get_visited_nodes() [all …]
|
| /openbsd-src/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-src/gnu/usr.bin/perl/regen/ |
| H A D | HeaderParser.pm | 549 my @lines; 667 # normalize conditional lines 687 push @lines, $line_info; 695 $cb->($self, $lines[-1]); 707 $self->{lines}= \@lines; 708 return \@lines; 711 # returns the last lines we parsed. 712 sub lines { $_[0]->{lines} } 702 sub lines { $_[0]->{lines} } global() subroutine [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-src/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-src/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-src/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-src/gnu/usr.bin/cvs/contrib/ |
| H A D | log_accum.in | 75 local($filename, @lines) = @_; 78 print FILE join("\n", @lines), "\n"; 83 local($filename, @lines) = @_; 86 print FILE join("\n", @lines), "\n"; 92 local(@lines); 96 $lines[0] = sprintf($format, $dir, ":"); 102 if (length($lines[$#lines]) + length($file) > 65) { 103 $lines[++$#lines] = sprintf($format, " ", " "); 105 $lines[$#lines] .= $file . " "; 108 @lines; [all …]
|
| /openbsd-src/usr.bin/vi/docs/ |
| H A D | help | 21 J - join two lines (use i<Enter><escape> to split a line) 30 ^E scroll down by lines 34 ^J move down by lines 36 ^M move down by lines (to first non-blank) 37 ^N move down by lines 38 ^P move up by lines 44 ^Y page up by lines 59 + move down by lines (to first non-blank) 61 - move up by lines (to first non-blank) 67 < shift lines left to motion [all …]
|
| /openbsd-src/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-src/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-src/gnu/usr.bin/perl/dist/SelfLoader/lib/ |
| H A D | SelfLoader.pm | 89 # $endlines is used by Devel::SelfStubber to capture lines after __END__ 95 my($line,$name,@lines, @stubs, $protoype); 121 \@lines, $protoype)); 123 @lines = ($line); 139 \@lines, $protoype)); 142 @lines = (); 153 push(@lines,$line); 159 # Devel::SelfStubber would like us to capture the lines after 166 push(@stubs, $self->_add_to_cache($name, $currpack, \@lines, $protoype)); 173 my($self,$fullname,$pack,$lines, [all...] |
| /openbsd-src/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-src/gnu/llvm/clang/tools/clang-format/ |
| H A D | clang-format.py | 79 lines = ['-lines', vim.eval('l:lines')] 85 lines = [] 88 lines += ['-lines', '%s:%s' % (op[3] + 1, op[4])] 89 if lines == []: 92 lines = ['-lines', '%s:%s' % (vim.current.range.start + 1, 115 if lines != ['-lines', 'all']: 116 command += lines 143 lines = content.decode(encoding).split('\n')[:-1] 144 sequence = difflib.SequenceMatcher(None, buf, lines) 147 vim.current.buffer[op[1]:op[2]] = lines[op[3]:op[4]]
|