File: prcontext.tcl

package info (click to toggle)
llvm 2.6-9.1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 57,604 kB
  • ctags: 44,336
  • sloc: cpp: 344,766; sh: 12,407; ansic: 10,617; ada: 3,070; ml: 2,505; perl: 2,496; makefile: 1,426; pascal: 1,163; exp: 389; asm: 307; python: 298; objc: 260; lisp: 182; csh: 117; xml: 38; f90: 36; tcl: 20
file content (36 lines) | stat: -rwxr-xr-x 763 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
#!/usr/bin/tclsh
#
# Usage:
# prcontext <pattern> <# lines of context>
# (for platforms that don't have grep -C)


#
# Get the arguments
#
set pattern [lindex $argv 0]
set num [lindex $argv 1]


#
# Get all of the lines in the file.
#
set lines [split [read stdin] \n]

set index 0
foreach line $lines {
    if { [regexp $pattern $line match matchline] } {
        if { [ expr [expr $index - $num] < 0 ] } {
            set bottom 0
        } else {
            set bottom [expr $index - $num]
        }
        set endLineNum [ expr [expr $index + $num] + 1]
        while {$bottom < $endLineNum} {
            set output [lindex $lines $bottom]
            puts $output
            set bottom [expr $bottom + 1]
        }
    }
    set index [expr $index + 1]
}