ANN: Use the decoded HTTP content for proper Unicode.
[utils.git] / planime
1 #!/bin/bash
2
3 isnum() {
4     grep -xq '[0-9]\+' <<<"$1"
5 }
6
7 scorefile() {
8     if [ "${1##*.}" = mkv ]; then
9         echo 10
10     elif [ "${1##*.}" = ogm ]; then
11         echo 5
12     else
13         echo 0
14     fi
15 }
16
17 findfile() {
18     if [ -n "$debug" ]; then echo "finding base='$1', ep='$2', qual='$3'" >&2; fi
19     local file tail eq eqt m matches max score
20     matches=()
21     for file in "$1"*; do
22         tail="${file#$1}"
23         eq="${tail%.*}"
24         m=n
25         if [ "${eq%% *}" -eq "$2" ] 2>/dev/null; then
26             if [[ "$eq" == *\ * ]]; then
27                 eqt="${eq#* }"
28             else
29                 eqt=
30             fi
31             m=y
32         elif [ "${eq:0:${#2}}" = "$2" ]; then
33             eqt="${eq:${#2}}"
34             if [ "${eqt:0:1}" = " " -o -z "$eqt" ]; then
35                 eqt="${eqt# }"
36                 m=y
37             fi
38         fi
39         if [ "$m" = y ]; then
40             if [ "$eqt" = "$3" -o "$eqt" = "($3)" ]; then
41                 matches=("${matches[@]}" "$file")
42             fi
43         fi
44     done
45     if [ ${#matches[@]} -lt 1 ]; then return 1; fi
46     max=
47     for m in "${matches[@]}"; do
48         score="$(scorefile "$m")"
49         if [ -n "$debug" ]; then echo "found \`$m': score $score" >&2; fi
50         if [ -z "$max" ] || [ "$score" -gt "$max" ]; then
51             max="$score"
52             file="$m"
53         fi
54     done
55     if [ -n "$debug" ]; then echo "using \`$file'" >&2; fi
56     echo "$file"
57     return 0
58 }
59
60 origargs=("$0" "$@")
61 cmdline=(mplayer -fs -ass)
62 debug=
63 unset pretend printfile
64
65 while [ "${1:0:1}" = - ]; do
66     a="$1"
67     shift
68     case "$a" in
69         -h)
70             echo "usage: planime [-fdhtC] [-A PLAYER-ARGS... ;] [-s PAR VAL] [--] [NAME-QUAL] [EP|.] [TYPE-QUAL]" >&2
71             exit 0
72             ;;
73         -d)
74             debug=y
75             ;;
76         -t)
77             cmdline=("${cmdline[@]}" -ao oss:/dev/dsp1)
78             ;;
79         -C)
80             pretend=y
81             ;;
82         -A)
83             while :; do
84                 a="$1"
85                 shift
86                 if [ "$a" = \; ]; then
87                     break;
88                 fi
89                 cmdline=("${cmdline[@]}" "$a")
90             done
91             ;;
92         -s)
93             savepar="$1"
94             shift
95             saveval="$1"
96             shift
97             ;;
98         -f)
99             printfile=y
100             ;;
101         --)
102             break
103             ;;
104         *)
105             echo "planime: unknown option \`$a'"
106             exit 1
107             ;;
108     esac
109 done
110
111 base="$(basename "$(pwd)")"
112 nextep=n
113 file=
114 tqual=
115 if [ $# -eq 0 ]; then
116     nextep=y
117     if [ -r curser ]; then
118         base="$base $(<curser)"
119     fi
120 elif [ $# -eq 1 ]; then
121     if [ -r "$1" ]; then
122         file="$1"
123     else
124         if findfile "$base - " "$1" >/dev/null; then
125             ep="$1"
126         else
127             nextep=y
128             base="$base $1"
129         fi
130     fi
131 elif [ $# -eq 2 ]; then
132     if findfile "$base - " "$1" "$2" >/dev/null; then
133         ep="$1"
134         tqual="$2"
135     else
136         if [ "$1" = . -a -r curser ]; then
137             base="$base $(<curser)"
138         else
139             base="$base $1"
140         fi
141         ep="$2"
142     fi
143 else
144     if [ "$1" = . -a -r curser ]; then
145         base="$base $(<curser)"
146     else
147         base="$base $1"
148     fi
149     ep="$2"
150     tqual="$3"
151 fi
152 if [ "$ep" = . ]; then nextep=y; fi
153 if [ "$nextep" = y -a -r nextep ]; then
154     ep="$(<nextep)"
155     if ! isnum "$ep"; then
156         echo "planime: nextep is non-numeric" >&2
157         exit 1
158     fi
159 fi
160 if [ -z "$file" ]; then
161     file="$(findfile "$base - " "$ep" "$tqual")"
162 fi
163
164 if [ -z "$file" -o ! -r "$file" ]; then
165     echo "planime: no matching file found" >&2
166     exit 1
167 fi
168
169 case "${file##*.}" in
170     ogm)
171         aid=1
172         sid=0
173         ;;
174     mkv)
175         alang=jpn
176         slang=eng
177         ;;
178 esac
179
180 ifile=".${file}.info"
181
182 if [ -n "$savepar" ]; then
183     if [ -r "$ifile" ]; then
184         egrep -v "^${savepar} " "$ifile" >"$ifile.new"
185         mv -f "$ifile.new" "$ifile"
186     fi
187     echo "$savepar $saveval" >>"$ifile"
188     exit 0
189 fi
190
191 unset delay
192
193 if [ -r "$ifile" ]; then
194     exec 3<&0
195     exec 0<"$ifile"
196     while read par arg; do
197         if [ "$par" = delay ]; then
198             cmdline=("${cmdline[@]}" -delay "$arg")
199         elif [ "$par" = aspect ]; then
200             cmdline=("${cmdline[@]}" -aspect "$arg")
201         elif [ "$par" = volmod ]; then
202             cmdline=("${cmdline[@]}" -af volume="$arg")
203         elif [ "$par" = alang ]; then
204             unset alang aid
205             alang="$arg"
206         elif [ "$par" = aid ]; then
207             unset alang aid
208             aid="$arg"
209         elif [ "$par" = slang ]; then
210             unset slang sid
211             slang="$arg"
212         elif [ "$par" = sid ]; then
213             unset slang sid
214             sid="$arg"
215         fi
216     done
217     exec 0<&3
218     exec 3<&-
219 fi
220
221 if [ -n "$alang" ]; then
222     cmdline=("${cmdline[@]}" -alang "$alang")
223 elif [ -n "$aid" ]; then
224     cmdline=("${cmdline[@]}" -aid "$aid")
225 fi
226 if [ -n "$slang" ]; then
227     cmdline=("${cmdline[@]}" -slang "$slang")
228 elif [ -n "$sid" ]; then
229     cmdline=("${cmdline[@]}" -sid "$sid")
230 fi
231
232 if [ "`hostname`" = pc6 -o "`hostname`" = pc7 -a "$DISPLAY" = :1 ]; then chwp=y; fi
233
234 if [ -n "$pretend" ]; then
235     echo "${cmdline[@]}" "$file"
236 elif [ -n "$printfile" ]; then
237     echo "$file"
238 else
239     if [ "$chwp" = y ]; then (sleep 2; randomwp) & fi
240     "${cmdline[@]}" "$file"
241     
242     if [ "$nextep" = y ]; then
243         echo "0. Save and continue (or Space)"
244         echo "1. Continue without saving"
245         echo "2. Save and exit (or Enter)"
246         echo "3. Exit without saving (or any key)"
247         IFS= read -sn1 c
248         save=n
249         cont=n
250         case "$c" in
251             0|" ")
252                 save=y
253                 cont=y
254                 ;;
255             1)
256                 cont=y
257                 ;;
258             2|"")
259                 save=y
260                 ;;
261         esac
262         if [ "$save" = y ]; then
263             let ep++
264             echo "$ep" >nextep
265         fi
266         if [ "$cont" = y ]; then
267             exec "${origargs[@]}"
268         else
269             echo "nextep is $ep"
270         fi
271     fi
272 fi