forked from Github_Repos/cvw
19 lines
453 B
Plaintext
19 lines
453 B
Plaintext
|
# Alec Vercruysse
|
||
|
|
# 2023-04-12
|
||
|
|
# Note that the target string is regex, and needs to be double-escaped.
|
||
|
|
# e.g. to match a (, you need \\(.
|
||
|
|
proc GetLineNum {fname target} {
|
||
|
|
set f [open $fname]
|
||
|
|
set linectr 1
|
||
|
|
while {[gets $f line] != -1} {
|
||
|
|
if {[regexp $target $line]} {
|
||
|
|
close $f
|
||
|
|
return $linectr
|
||
|
|
}
|
||
|
|
incr linectr
|
||
|
|
}
|
||
|
|
close $f
|
||
|
|
return -code error \
|
||
|
|
"target string not found"
|
||
|
|
}
|