Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#!/bin/rc
2 
 
3 
rfork e
4 
 
5 
x=($*)
6 
if(~ $#x 0){
7 
	x=`{ps |awk '$NF=="8.fossil" {print $2}'}
8 
	ps | awk '$7=="8.fossil"'
9 
}
10 
if(~ $#x 0){
11 
	x=`{ps | awk '$NF=="fossil" {print $2}'}
12 
	ps -a | awk '$7 == "fossil"'
13 
}
14 
 
15 
y=$x^', '
16 
y=$"y
17 
echo 'include("/sys/src/cmd/fossil/fossil-acid");
18 
print("--XXX\n");
19 
deadlocklist({' ^ $y ^ '});
20 
print("--YYY\n");' |
21 
	acid $x(1) |
22 
	sed -n '/--XXX/,/--YYY/p' |
23 
	sed 's/acid: //g' |
24 
	grep -v '^--'
25