dorourke@polyslo.CalPoly.EDU (David M. O'Rourke) (10/31/88)
Below is a script I wipped up to take a file name of a Pascal program and
collect all of the procedure names and put them under the mark menu.
Unfortunatly it destroy's all of the marks that used to be set for that
program. I find it particuarly useful for debugging other's code, I used it
to set up the Mark menu so that I can jump to procedure calls.
Anyways I find it useful and thought people in netland would also.
-----
# This is a shell script that finds and marks all of the procedures in the
# file name provided in parameter #1
procnames -e -f -n {1} | search -r /"/"/ | search -r /:/ > {1}.procnames
open {1}.procnames
target {1}.procnames
set exit 0
find %
loop
find /'['/:/']'/; break if {Status}; clear $
end
find %; find /{1}/; clear $
close -y {Target}
open {1}
target {1}
find %
mark -y $ junk {Target}
unmark `markers` "{target}"
for proc_name in `catenate {1}.procnames`
find /{proc_name}/ {Target}
mark -n $ {proc_name} {Target}
end
delete {1}.procnames
-----
Please no bug reports or flames, I don't guarentee that it works or ever
did anything, any bug reports would take me longer to reply to the message
than it did to write the script.
Hope you find it useful, and expand on it to do other things.
--
David M. O'Rourke dorourke@polyslo.calpoly.edu
"If it doesn't do Windows, then it's not a computer!!!"
Disclaimer: I don't represent the school. All opinions are mine!