chiark / gitweb /
hostside: more length for bavarian
[trains.git] / hostside / serial-irq-priority
1 #!/bin/bash
2 set -ex
3
4 cd /var/run
5 p=serial-irq-priority-poke
6 rm -f $p
7 mkfifo -m 622 $p
8 exec 3<>$p
9
10 while read -n 1 <&3 dummy; do
11
12     for proc in irq/4-serial sirq-timer/0 sirq-hrtimer/0 sirq-high/0; do
13
14         ssd=`start-stop-daemon --stop -t -u root -n $proc`
15         case "$ssd" in
16         "Would send signal 15 to "*.)
17                 pid="${ssd##* }"
18                 pid="${pid%.}"
19                 chrt -p 55 $pid ||:
20                 ;;
21         *) echo >&2 "start-stop-daemon said $ssd ?"; continue;;
22         esac
23
24     done
25
26 done