File: prcs_tree_draw

package info (click to toggle)
prcs 1.3.3-4
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 4,128 kB
  • ctags: 3,354
  • sloc: cpp: 17,486; ansic: 8,132; sh: 4,710; perl: 2,729; lisp: 1,816; tcl: 1,142; lex: 354; makefile: 225; pascal: 85
file content (23 lines) | stat: -rwxr-xr-x 975 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
#!/bin/bash
#
#       Given a project name, a start version and an end version, plot
#       the prcs tree.  Project is required.  Start version defaults to
#       first.  End version defaults to last.
#
#       Copyright Keith Owens <Keith_Owens@ocs.com.au>, released under GPL.
#       Tue Sep 29 16:14:43 EST 1998
#
#       Modified by Rafael Laboissiere <rafael@laboissiere.net>
#       Fixed paths for ./prcs_tree_info and xvcg.
#       Sat May 11 18:42:34 CEST 2002

project=${1:?"Project is required"}
prcs info $project > /tmp/$$a
start=${2:-`sed -ne '1{ s/[^ ]* //; s/\..*//; p; }' /tmp/$$a`}
end=${3:-`sed -ne '${ s/[^ ]* //; s/\..*//; p; }' /tmp/$$a`}
range=`sed -ne "/^[^ ]* $start\./,/^[^ ]* $end\./{ s/^[^ ]* //; s/\..*//; p; }" /tmp/$$a | sort -nu`
echo prcs info on $project for range $range starting at $start, ending at $end
rm /tmp/$$a
for i in $range ; do prcs info -l -r $i $project ; echo ; done | ./prcs_tree_info > /tmp/$$a
xvcg /tmp/$$a
rm /tmp/$$a