Blame tests/environment/bin/scrline
|
Packit |
b099d7 |
#!/bin/csh
|
|
Packit |
b099d7 |
# @(#)scrline 1.2 91/09/13
|
|
Packit |
b099d7 |
#
|
|
Packit |
b099d7 |
# script to find specific line numbers in an automation .Scr file
|
|
Packit |
b099d7 |
# (useful for debugging given lex/yacc line number parser errors)
|
|
Packit |
b099d7 |
#
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
set argcnt = $#argv
|
|
Packit |
b099d7 |
if ($argcnt < 2) then
|
|
Packit |
b099d7 |
echo "usage: scrline ErrorLineNumber TestName[.Scr]"
|
|
Packit |
b099d7 |
exit 0
|
|
Packit |
b099d7 |
endif
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
@ errorline = $argv[1]
|
|
Packit |
b099d7 |
@ startline = $errorline - 2
|
|
Packit |
b099d7 |
@ endline = $errorline + 2
|
|
Packit |
b099d7 |
set testfile = $argv[2]
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
if !(-e ${testfile}.Scr) then
|
|
Packit |
b099d7 |
if !(-e ${testfile}) then
|
|
Packit |
b099d7 |
echo "'${testfile}' file not found."
|
|
Packit |
b099d7 |
exit 0
|
|
Packit |
b099d7 |
else
|
|
Packit |
b099d7 |
set TestFile = ${testfile}
|
|
Packit |
b099d7 |
endif
|
|
Packit |
b099d7 |
else
|
|
Packit |
b099d7 |
set TestFile = ${testfile}.Scr
|
|
Packit |
b099d7 |
endif
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
cat $TestFile | awk 'BEGIN{FS="\n"} ($1 !~ /#.*/) && ($1 !~ /^$/) {n++; if (n >= '"$startline"' && n <= '"$endline"') printf("%d %s\n", n, $1)}'
|
|
Packit |
b099d7 |
|