Rev 20 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 20 | Rev 21 | ||
|---|---|---|---|
| 1 | #!/bin/sh
|
1 | #!/bin/sh
|
| 2 | appname="${0##*/}" |
2 | appname="${0##*/}" |
| 3 | ver="0.6.1.2006031907" |
3 | ver="0.6.1.2007011316" |
| 4 | copy="2005, 2006" |
4 | copy="2005-2007" |
| 5 | mail_feedback="dvd@PointedEars.de" |
5 | mail_feedback="dvd@PointedEars.de" |
| 6 | # ----------------------------------------------------------------------------
|
6 | # ----------------------------------------------------------------------------
|
| 7 | # DVD Subtitles 0.6.1 -- Extracts subtitles from Video DVD data to a text file
|
7 | # DVD Subtitles 0.6.1 -- Extracts subtitles from DVD-Video data to a text file
|
| 8 | # Copyright (C) 2005, 2006 Thomas Lahn <PointedEars@gmx.de>
|
8 | # Copyright (C) 2005, 2006 Thomas Lahn <PointedEars@gmx.de>
|
| 9 | #
|
9 | #
|
| 10 | # This program is free software; you can redistribute it and/or modify it
|
10 | # This program is free software; you can redistribute it and/or modify it
|
| 11 | # under the terms of the GNU General Public License (GPL) as published
|
11 | # under the terms of the GNU General Public License (GPL) as published
|
| 12 | # by the Free Software Foundation; either version 2 of the License, or
|
12 | # by the Free Software Foundation; either version 2 of the License, or
|
| 13 | # (at your option) any later version.
|
13 | # (at your option) any later version.
|
| 14 | #
|
14 | #
|
| 15 | # This program is distributed in the hope that it will be useful,
|
15 | # This program is distributed in the hope that it will be useful,
|
| 16 | # but WITHOUT ANY WARRANTY; without even the implied warranty of
|
16 | # but WITHOUT ANY WARRANTY; without even the implied warranty of
|
| 17 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
17 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
| 18 | # GNU General Public License for more details.
|
18 | # GNU General Public License for more details.
|
| 19 | #
|
19 | #
|
| 20 | # You should have received a copy of the GNU GPL along with this
|
20 | # You should have received a copy of the GNU GPL along with this
|
| 21 | # program; if not, write to the Free Software Foundation, Inc.,
|
21 | # program; if not, write to the Free Software Foundation, Inc.,
|
| 22 | # 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
|
22 | # 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
|
| 23 | #
|
23 | #
|
| 24 | ## Standard shell script disclaimer blurb thing:
|
24 | ## Standard shell script disclaimer blurb thing:
|
| 25 | ##
|
25 | ##
|
| 26 | ## This script is a hack. It's brute force. It's horrible.
|
26 | ## This script is a hack. It's brute force. It's horrible.
|
| 27 | ## It doesn't use Artificial Intelligence. It doesn't use Virtual Reality.
|
27 | ## It doesn't use Artificial Intelligence. It doesn't use Virtual Reality.
|
| 28 | ## It's not perl. It's not python. It probably won't work unchanged on
|
28 | ## It's not perl. It's not python. It probably won't work unchanged on
|
| 29 | ## the "other" thousands of unices. But it worksforme. --ramiro
|
29 | ## the "other" thousands of unices. But it worksforme. --ramiro
|
| 30 | # (from /usr/local/mozilla/run-mozilla.sh)
|
30 | # (from /usr/local/mozilla/run-mozilla.sh)
|
| 31 | #
|
31 | #
|
| 32 | # This is work in progress. If you have an improvement, patch,
|
32 | # This is work in progress. If you have an improvement, patch,
|
| 33 | # idea, whatever, on how to make this script better, please
|
33 | # idea, whatever, on how to make this script better, please
|
| 34 | # send it to <dvd@PointedEars.de>
|
34 | # send it to <dvd@PointedEars.de>
|
| 35 | 35 | ||
| 36 | _title () |
36 | _title () |
| 37 | {
|
37 | {
|
| 38 | echo "\ |
38 | echo "\ |
| 39 | ${extd}DVD Subtitles $ver
|
39 | ${extd}DVD Subtitles $ver
|
| 40 | Copyright (C) $copy Thomas Lahn <$mail_feedback>$norm
|
40 | Copyright (C) $copy Thomas Lahn <$mail_feedback>$norm
|
| 41 | Distributed under the terms of the GNU General Public License (GPL), see
|
41 | Distributed under the terms of the GNU General Public License (GPL), see
|
| 42 | COPYING file or http://www.gnu.org/licenses/licenses.html#GPL for details.
|
42 | COPYING file or http://www.gnu.org/licenses/licenses.html#GPL for details.
|
| 43 | "
|
43 | "
|
| 44 | }
|
44 | }
|
| 45 | 45 | ||
| 46 | _help () |
46 | _help () |
| 47 | {
|
47 | {
|
| 48 | echo "\ |
48 | echo "\ |
| 49 | Extracts a subtitle stream from Video DVD data and converts it to a text file.
|
49 | Extracts a subtitle stream from DVD-Video data and converts it to a text file.
|
| 50 | 50 | ||
| 51 | $extd$appname$norm [options] ${ital}SOURCE$norm
|
51 | $extd$appname$norm [options] ${ital}SOURCE$norm
|
| - | 52 | ||
| - | 53 | Deprecated:
|
|
| 52 | $extd$appname$norm [$extd-hVkl$norm] [${ital}SOURCE$norm [${ital}TITLE$norm\
|
54 | $extd$appname$norm [$extd-hVkl$norm] [${ital}SOURCE$norm [${ital}TITLE$norm\
|
| 53 | [${ital}SUBTITLE$norm [${ital}TARGET$norm [${ital}GREY_LEVELS$norm]]]]]
|
55 | [${ital}SUBTITLE$norm [${ital}TARGET$norm [${ital}GREY_LEVELS$norm]]]]]
|
| 54 |
|
56 |
|
| 55 | Any option argument is overwritten by the respective additional program
|
57 | Any option argument is overwritten by the respective additional program
|
| 56 | argument. Options may be given in any order, and are also considered
|
58 | argument. Options may be given in any order, and are also considered
|
| 57 | options if located after the first program argument. Too many program
|
59 | options if located after the first program argument. Too many program
|
| 58 | arguments are silently ignored.
|
60 | arguments are silently ignored.
|
| 59 | 61 | ||
| 60 | $extd-c$norm, $extd--compile$norm ${ital}FILE$norm | ${ital}DIRECTORY$norm
|
62 | $extd-c$norm, $extd--compile$norm ${ital}FILE$norm | ${ital}DIRECTORY$norm
|
| 61 | Compile subtitle text files according to subtitle index\
|
63 | Compile subtitle text files according to subtitle index\
|
| 62 | ${ital}FILE$norm
|
64 | ${ital}FILE$norm
|
| 63 | or to subtitle index files in ${ital}DIRECTORY$norm to\
|
65 | or to subtitle index files in ${ital}DIRECTORY$norm to\
|
| - | 66 | ${ital}TARGET$norm. Clean up
|
|
| 64 | ${ital}TARGET$norm. Clean up if this is successful, then exit.
|
67 | if this is successful, then exit.
|
| 65 | 68 | ||
| 66 | $extd-k$norm, $extd--keep$norm Keep subtitle stream file even if\
|
69 | $extd-k$norm, $extd--keep$norm Keep subtitle stream file even if\
|
| 67 | conversion is successful.
|
70 | conversion is successful.
|
| 68 | 71 | ||
| 69 | $extd-l$norm, $extd--list$norm List subtitles for TITLE using\
|
72 | $extd-l$norm, $extd--list$norm List subtitles for TITLE using\
|
| 70 | ${extd}mplayer$norm(1) and exit.
|
73 | ${extd}mplayer$norm(1) and exit.
|
| 71 | If TITLE is not provided or \`$extd-$norm', list subtitles for
|
74 | If TITLE is not provided or \`$extd-$norm', list subtitles for
|
| 72 | title #2 (as title #1 may be an intro without subtitles)
|
75 | title #2 (as title #1 may be an intro without subtitles)
|
| 73 | and exit.
|
76 | and exit.
|
| 74 |
|
77 |
|
| 75 | SOURCE Video DVD data source, i.e. a device (usually /dev/dvd),
|
78 | SOURCE Video DVD data source, i.e. a device (usually /dev/dvd),
|
| 76 | a directory (e.g. one containing content created via
|
79 | a directory (e.g. one containing content created via
|
| 77 | ${extd}dvdbackup$norm(1)) or a Video DVD image file.
|
80 | ${extd}dvdbackup$norm(1)) or a Video DVD image file.
|
| 78 | If \`$extd-$norm', a previously created subtitle stream file\
|
81 | If \`$extd-$norm', a previously created subtitle stream file\
|
| 79 | named
|
82 | named
|
| 80 | ${extd}subtitle_stream-$norm*$extd-${norm}TITLE${extd}-${norm}SUBTITLE\
|
83 | ${extd}subtitle_stream-$norm*$extd-${norm}TITLE${extd}-${norm}SUBTITLE\
|
| 81 | in the current working
|
84 | in the current working
|
| 82 | directory will be used for only the stream-to-graphics-
|
85 | directory will be used for only the stream-to-graphics-
|
| 83 | to-text conversion instead. Both TITLE and SUBTITLE
|
86 | to-text conversion instead. Both TITLE and SUBTITLE
|
| 84 | must not be \`$extd-$norm' in that case.
|
87 | must not be \`$extd-$norm' in that case.
|
| 85 | The default is \`$extd/dev/dvd$norm'.
|
88 | The default is \`$extd/dev/dvd$norm'.
|
| 86 | 89 | ||
| 87 | $extd-t$norm, $extd--title$norm
|
90 | $extd-t$norm, $extd--title$norm
|
| 88 | TITLE Number of the title (1-n) which will be accessed for
|
91 | TITLE Number of the title (1-n) which will be accessed for
|
| 89 | subtitle stream extraction. If left out or \`$extd-$norm', the
|
92 | subtitle stream extraction. If left out or \`$extd-$norm', the
|
| 90 | program uses ${extd}mplayer$norm(1) to detect how many titles are
|
93 | program uses ${extd}mplayer$norm(1) to detect how many titles are
|
| 91 | available on the DVD data source and asks for the
|
94 | available on the DVD data source and asks for the
|
| 92 | title to be accessed.
|
95 | title to be accessed.
|
| 93 |
|
96 |
|
| 94 | $extd-s$norm, $extd--subtitle-id$norm
|
97 | $extd-s$norm, $extd--subtitle-id$norm
|
| 95 | SUBTITLE ID of the subtitle stream to be extracted (0-n).
|
98 | SUBTITLE ID of the subtitle stream to be extracted (0-n).
|
| 96 | If left out or \`$extd-$norm', the program uses its\
|
99 | If left out or \`$extd-$norm', the program uses its\
|
| 97 | ${extd}-l$norm option to detect
|
100 | ${extd}-l$norm option to detect
|
| 98 | which subtitles are available for the given TITLE and asks
|
101 | which subtitles are available for the given TITLE and asks
|
| 99 | for the ID to be used.
|
102 | for the ID to be used.
|
| 100 | 103 | ||
| 101 | $extd-o$norm, $extd--output-target$norm
|
104 | $extd-o$norm, $extd--output-target$norm
|
| 102 | TARGET Name of the resulting subtitles text file.
|
105 | TARGET Name of the resulting subtitles text file.
|
| 103 | If not provided, the file is named after the subtitle stream
|
106 | If not provided, the file is named after the subtitle stream
|
| 104 | file. NOTE: Unlike previous versions, this version appends
|
107 | file. NOTE: Unlike previous versions, this version appends
|
| 105 | the filename suffix $extd.srt$norm automagically ONLY in that\
|
108 | the filename suffix $extd.srt$norm automagically ONLY in that\
|
| 106 | case.
|
109 | case.
|
| 107 |
|
110 |
|
| 108 | $extd-g$norm, $extd--grey-levels$norm
|
111 | $extd-g$norm, $extd--grey-levels$norm
|
| 109 | GREY_LEVELS Optional grey-levels value\
|
112 | GREY_LEVELS Optional grey-levels value\
|
| 110 | (\`c0$extd,${norm}c1$extd,${norm}c2$extd,${norm}c3' with 0 <= cN <= 255,
|
113 | (\`c0$extd,${norm}c1$extd,${norm}c2$extd,${norm}c3' with 0 <= cN <= 255,
|
| 111 | where 0 is black and 255 is white) to be used for converting
|
114 | where 0 is black and 255 is white) to be used for converting
|
| 112 | the subtitle stream graphics to text via OCR. The default is
|
115 | the subtitle stream graphics to text via OCR. The default is
|
| 113 | \`${extd}255,255,0,255$norm'. Unfortunately, the\
|
116 | \`${extd}255,255,0,255$norm'. Unfortunately, the\
|
| 114 | ${extd}subtitle2pgm$norm program,
|
117 | ${extd}subtitle2pgm$norm program,
|
| 115 | which requires this value, appears to be poorly documented;
|
118 | which requires this value, appears to be poorly documented;
|
| 116 | if you find a more detailed, working documentation, please
|
119 | if you find a more detailed, working documentation, please
|
| 117 | refer to it and inform this program's author about it.
|
120 | refer to it and inform this program's author about it.
|
| 118 | 121 | ||
| 119 | $extd-h$norm, $extd--help$norm Display this help and exit.
|
122 | $extd-h$norm, $extd--help$norm Display this help and exit.
|
| 120 | $extd-v$norm, $extd--verbose$norm Be verbose. The number of ${extd}-v$norm\
|
123 | $extd-v$norm, $extd--verbose$norm Be verbose. The number of ${extd}-v$norm\
|
| 121 | options specify the level of
|
124 | options specify the level of
|
| 122 | verbosity.
|
125 | verbosity.
|
| 123 | $extd-V$norm, $extd--version$norm Display version information and exit.
|
126 | $extd-V$norm, $extd--version$norm Display version information and exit.
|
| 124 |
|
127 |
|
| 125 | ${extd}EXIT STATUS$norm
|
128 | ${extd}EXIT STATUS$norm
|
| 126 | ${extd} 0$norm Successful program execution
|
129 | ${extd} 0$norm Successful program execution
|
| 127 | ${extd} 1$norm Error detecting/extracting subtitle stream, or cancelled
|
130 | ${extd} 1$norm Error detecting/extracting subtitle stream, or cancelled
|
| 128 | without selecting a title number or subtitle ID
|
131 | without selecting a title number or subtitle ID
|
| 129 | ${extd} 2$norm Unable to convert subtitle stream to image files
|
132 | ${extd} 2$norm Unable to convert subtitle stream to image files
|
| 130 | ${extd} 3$norm Cancelled due to ${extd}gocr$norm(1) error or without\
|
133 | ${extd} 3$norm Cancelled due to ${extd}gocr$norm(1) error or without\
|
| 131 | entering another
|
134 | entering another
|
| 132 | grey-levels value
|
135 | grey-levels value
|
| 133 | ${extd} 4$norm Unable to compile to text file
|
136 | ${extd} 4$norm Unable to compile to text file
|
| 134 | ${extd} 5$norm Unable to clean up
|
137 | ${extd} 5$norm Unable to clean up
|
| 135 | ${extd}127$norm Insufficient number of arguments / help was displayed
|
138 | ${extd}127$norm Insufficient number of arguments / help was displayed
|
| 136 |
|
139 |
|
| 137 | See the $extd$appname$norm(1) manpage for complete documentation."
|
140 | See the $extd$appname$norm(1) manpage for complete documentation."
|
| 138 | }
|
141 | }
|
| 139 | 142 | ||
| 140 | if test -z "$LINES" -o -z "$COLUMNS" ; then |
143 | if test -z "$LINES" -o -z "$COLUMNS" ; then |
| 141 | eval `stty size 2>/dev/null | (read L C; \ |
144 | eval `stty size 2>/dev/null | (read L C; \ |
| 142 | echo LINES=${L:-24} COLUMNS=${C:-80})` |
145 | echo LINES=${L:-24} COLUMNS=${C:-80})` |
| 143 | fi
|
146 | fi
|
| 144 | test $LINES -eq 0 && LINES=24 |
147 | test $LINES -eq 0 && LINES=24 |
| 145 | test $COLUMNS -eq 0 && COLUMNS=80 |
148 | test $COLUMNS -eq 0 && COLUMNS=80 |
| 146 | 149 | ||
| 147 | if test "$TERM" != "raw" && stty size >/dev/null 2>&1 ; then |
150 | if test "$TERM" != "raw" && stty size >/dev/null 2>&1 ; then |
| 148 | # esc=`echo -en "\033"`
|
151 | # esc=`echo -en "\033"`
|
| 149 | # extd="${esc}[1m"
|
152 | # extd="${esc}[1m"
|
| 150 | extd=`tput bold 2>/dev/null` |
153 | extd=`tput bold 2>/dev/null` |
| 151 | ital=`tput sitm 2>/dev/null` |
154 | ital=`tput sitm 2>/dev/null` |
| 152 | # norm=`echo -en "${esc}[m\017"`
|
155 | # norm=`echo -en "${esc}[m\017"`
|
| 153 | norm=`tput sgr0 2>/dev/null` |
156 | norm=`tput sgr0 2>/dev/null` |
| 154 | else
|
157 | else
|
| 155 | esc="" |
158 | esc="" |
| 156 | extd="" |
159 | extd="" |
| 157 | norm="" |
160 | norm="" |
| 158 | fi
|
161 | fi
|
| 159 | 162 | ||
| 160 | # Note that we use `"$@"' to let each command-line parameter expand to a
|
163 | # Note that we use `"$@"' to let each command-line parameter expand to a
|
| 161 | # separate word. The quotes around `$@' are essential!
|
164 | # separate word. The quotes around `$@' are essential!
|
| 162 | # We need `tmp' as the `eval set --' would nuke the return value of getopt.
|
165 | # We need `tmp' as the `eval set --' would nuke the return value of getopt.
|
| 163 | 166 | ||
| 164 | [ "$1" = "-vv" ] && echo "$extd |
167 | [ "$1" = "-vv" ] && echo "$extd |
| 165 | Debug output for POSIX conform command-line parsing
|
168 | Debug output for POSIX conform command-line parsing
|
| 166 | 169 | ||
| 167 | Original arguments: $*" >&2 |
170 | Original arguments: $*" >&2 |
| 168 | if `getopt -T >/dev/null 2>&1` ; [ $? = 4 ] ; then |
171 | if `getopt -T >/dev/null 2>&1` ; [ $? = 4 ] ; then |
| 169 | getopt_type=long
|
172 | getopt_type=long
|
| 170 | [ "$1" = "-vv" ] && echo "getopt(1) type: enhanced" >&2 |
173 | [ "$1" = "-vv" ] && echo "getopt(1) type: enhanced" >&2 |
| 171 | tmp=`getopt -o c:klg:o:S::s:t:hVv \ |
174 | tmp=`getopt -o c:klg:o:S::s:t:hVv \ |
| 172 | -l compile:,keep-stream,list,grey-levels:,output-target:\
|
175 | -l compile:,keep-stream,list,grey-levels:,output-target:\
|
| 173 | ,spell-check,subtitle-id:,title:,help,verbose,version \
|
176 | ,spell-check,subtitle-id:,title:,help,verbose,version \
|
| 174 | -n "$appname" -s sh \ |
177 | -n "$appname" -s sh \ |
| 175 | -- "$@"` |
178 | -- "$@"` |
| 176 | else
|
179 | else
|
| 177 | getopt_type=short
|
180 | getopt_type=short
|
| 178 | [ "$1" = "-vv" ] && echo "getopt(1) type: old" >&2 |
181 | [ "$1" = "-vv" ] && echo "getopt(1) type: old" >&2 |
| 179 | tmp=`getopt c:klg:o:S:s:t:hVv "$@"` |
182 | tmp=`getopt c:klg:o:S:s:t:hVv "$@"` |
| 180 | fi
|
183 | fi
|
| 181 | 184 | ||
| 182 | # exit status
|
185 | # exit status
|
| 183 | ESUCCESS=0 |
186 | ESUCCESS=0 |
| 184 | ECANTEXTRACT=1 |
187 | ECANTEXTRACT=1 |
| 185 | ECANTCONVERT=2 |
188 | ECANTCONVERT=2 |
| 186 | EOCRERROR=3 |
189 | EOCRERROR=3 |
| 187 | ECANTCOMPILE=4 |
190 | ECANTCOMPILE=4 |
| 188 | ECANTCLEANUP=5 |
191 | ECANTCLEANUP=5 |
| 189 | EARGERROR=127 |
192 | EARGERROR=127 |
| 190 | 193 | ||
| 191 | getopt_exit_code=$? |
194 | getopt_exit_code=$? |
| 192 | help=0 |
195 | help=0 |
| 193 | verbose=0 |
196 | verbose=0 |
| 194 | version=0 |
197 | version=0 |
| 195 | list=0 |
198 | list=0 |
| 196 | source='/dev/dvd' |
199 | source='/dev/dvd' |
| 197 | title='-' |
200 | title='-' |
| 198 | sid='-' |
201 | sid='-' |
| 199 | target='-' |
202 | target='-' |
| 200 | args='' |
203 | args='' |
| 201 | keep=0 |
204 | keep=0 |
| 202 | compile=0 |
205 | compile=0 |
| 203 | if [ $getopt_exit_code -eq 0 ]; then |
206 | if [ $getopt_exit_code -eq 0 ]; then |
| 204 | ## getopt returns error code 0 for successful parsing, 1 if
|
207 | ## getopt returns error code 0 for successful parsing, 1 if
|
| 205 | ## getopt(3) returns errors, 2 if it does not understand its
|
208 | ## getopt(3) returns errors, 2 if it does not understand its
|
| 206 | ## own parameters, 3 if an internal error occurs like out-of-
|
209 | ## own parameters, 3 if an internal error occurs like out-of-
|
| 207 | ## memory, and 4 if it is called with -T.
|
210 | ## memory, and 4 if it is called with -T.
|
| 208 | #
|
211 | #
|
| 209 | # Note the quotes around `$tmp': they are essential!
|
212 | # Note the quotes around `$tmp': they are essential!
|
| 210 | # echo $tmp
|
213 | # echo $tmp
|
| 211 | # remove "--"
|
214 | # remove "--"
|
| 212 | # for i in $tmp; do if [ "$i" != "--" ]; then tmp2="${tmp2} $i"; fi; done
|
215 | # for i in $tmp; do if [ "$i" != "--" ]; then tmp2="${tmp2} $i"; fi; done
|
| 213 | eval set -- "$tmp" |
216 | eval set -- "$tmp" |
| 214 | [ "$1" = "-vv" ] && echo "New arguments: $*$norm |
217 | [ "$1" = "-vv" ] && echo "New arguments: $*$norm |
| 215 | " >&2 |
218 | " >&2 |
| 216 | while true ; do |
219 | while true ; do |
| 217 | case "$1" in |
220 | case "$1" in |
| 218 | -h | --help) |
221 | -h | --help) |
| 219 | help=1 |
222 | help=1 |
| 220 | shift;; |
223 | shift;; |
| 221 | 224 | ||
| 222 | -v | --verbose) |
225 | -v | --verbose) |
| 223 | let verbose++
|
226 | let verbose++
|
| 224 | shift;; |
227 | shift;; |
| 225 | 228 | ||
| 226 | -V | --version) |
229 | -V | --version) |
| 227 | version=1 |
230 | version=1 |
| 228 | shift;; |
231 | shift;; |
| 229 | 232 | ||
| 230 | -c | --compile) |
233 | -c | --compile) |
| 231 | compile=1 |
234 | compile=1 |
| 232 | source=$2 |
235 | source=$2 |
| 233 | shift 2;; |
236 | shift 2;; |
| 234 | 237 | ||
| 235 | -k | --keep) |
238 | -k | --keep) |
| 236 | keep=1 |
239 | keep=1 |
| 237 | shift;; |
240 | shift;; |
| 238 | 241 | ||
| 239 | -l | --list) |
242 | -l | --list) |
| 240 | list=1 |
243 | list=1 |
| 241 | shift;; |
244 | shift;; |
| 242 | 245 | ||
| 243 | -g | --grey-levels) |
246 | -g | --grey-levels) |
| 244 | grey_levels=$2 |
247 | grey_levels=$2 |
| 245 | shift 2;; |
248 | shift 2;; |
| 246 | 249 | ||
| 247 | -o | --output-target) |
250 | -o | --output-target) |
| 248 | target=$2 |
251 | target=$2 |
| 249 | shift 2;; |
252 | shift 2;; |
| 250 | 253 | ||
| 251 | -s | --subtitle-id) |
254 | -s | --subtitle-id) |
| 252 | sid=$2 |
255 | sid=$2 |
| 253 | shift 2;; |
256 | shift 2;; |
| 254 | 257 | ||
| 255 | -t | --title) |
258 | -t | --title) |
| 256 | title=$2 |
259 | title=$2 |
| 257 | shift 2;; |
260 | shift 2;; |
| 258 | 261 | ||
| 259 | --)
|
262 | --)
|
| 260 | shift
|
263 | shift
|
| 261 | break;; |
264 | break;; |
| 262 | esac
|
265 | esac
|
| 263 | done
|
266 | done
|
| 264 | [ -n "$*" ] && args=$args" $*" |
267 | [ -n "$*" ] && args=$args" $*" |
| 265 | set -- $args |
268 | set -- $args |
| 266 | else
|
269 | else
|
| 267 | [ $verbose -gt 1 ] && echo "getopt exited: $getopt_exit_code |
270 | [ $verbose -gt 1 ] && echo "getopt exited: $getopt_exit_code |
| 268 | " >&2 |
271 | " >&2 |
| 269 | if [ $getopt_exit_code -eq 1 -o $getopt_exit_code -eq 2 ]; then |
272 | if [ $getopt_exit_code -eq 1 -o $getopt_exit_code -eq 2 ]; then |
| 270 | help=1 |
273 | help=1 |
| 271 | else
|
274 | else
|
| 272 | exit $getopt_exit_code |
275 | exit $getopt_exit_code |
| 273 | fi
|
276 | fi
|
| 274 | fi
|
277 | fi
|
| 275 | 278 | ||
| 276 | [ $list -eq 0 ] && _title |
279 | [ $list -eq 0 ] && _title |
| 277 | [ $version -eq 1 ] && exit $ESUCCESS |
280 | [ $version -eq 1 ] && exit $ESUCCESS |
| 278 | [ $help -eq 1 ] && |
281 | [ $help -eq 1 ] && |
| 279 | {
|
282 | {
|
| 280 | _help "$0"
|
283 | _help "$0"
|
| 281 | exit $EARGERROR |
284 | exit $EARGERROR |
| 282 | }
|
285 | }
|
| 283 | 286 | ||
| 284 | result=$ESUCCESS |
287 | result=$ESUCCESS |
| 285 | [ $compile -eq 0 ] && |
288 | [ $compile -eq 0 ] && |
| 286 | {
|
289 | {
|
| 287 | [ -n "$1" ] && source=$1 |
290 | [ -n "$1" ] && source=$1 |
| 288 | [ -z "$title" -a -n "$2" ] && title=$2 |
291 | [ -z "$title" -a -n "$2" ] && title=$2 |
| 289 | [ -z "$sid" -a -n "$3" ] && sid=$3 |
292 | [ -z "$sid" -a -n "$3" ] && sid=$3 |
| 290 | [ -z "$target" -a -n "$4" ] && target=$4 |
293 | [ -z "$target" -a -n "$4" ] && target=$4 |
| 291 | [ -z "$grey_levels" -a -n "$5" ] && grey_levels=$5 |
294 | [ -z "$grey_levels" -a -n "$5" ] && grey_levels=$5 |
| 292 | 295 | ||
| 293 | getsubtitles () |
296 | getsubtitles () |
| 294 | {
|
297 | {
|
| 295 | mplayer -dvd-device "$1" -vo null -ao null -frames 0 \ |
298 | mplayer -dvd-device "$1" -vo null -ao null -frames 0 \ |
| 296 | -v "dvd://${2:-2}" 2>&1 | |
299 | -v "dvd://${2:-2}" 2>&1 | |
| 297 | sed -n '/sid/ s/^[^:]\{1,\}:[[:space:]]//p' |
300 | sed -n '/sid/ s/^[^:]\{1,\}:[[:space:]]//p' |
| 298 | # echo "$subtitles"
|
301 | # echo "$subtitles"
|
| 299 | }
|
302 | }
|
| 300 | 303 | ||
| 301 | [ $list -eq 1 ] && |
304 | [ $list -eq 1 ] && |
| 302 | {
|
305 | {
|
| 303 | # first title may be only an intro
|
306 | # first title may be only an intro
|
| 304 | [ "$title" = '-' ] && title=2 |
307 | [ "$title" = '-' ] && title=2 |
| 305 | tmp=`getsubtitles $source $title` |
308 | tmp=`getsubtitles $source $title` |
| 306 | if [ -n "$tmp" ]; then |
309 | if [ -n "$tmp" ]; then |
| 307 | echo "${extd}The following subtitles are available for title #$title:$norm |
310 | echo "${extd}The following subtitles are available for title #$title:$norm |
| 308 | $tmp"
|
311 | $tmp"
|
| 309 | exit $ESUCCESS |
312 | exit $ESUCCESS |
| 310 | else
|
313 | else
|
| 311 | exit $ECANTEXTRACT |
314 | exit $ECANTEXTRACT |
| 312 | fi
|
315 | fi
|
| 313 | }
|
316 | }
|
| 314 | 317 | ||
| 315 | [ "$sid" != '-' -a "$title" != '-' ] && |
318 | [ "$sid" != '-' -a "$title" != '-' ] && |
| 316 | {
|
319 | {
|
| 317 | subtitles=`getsubtitles $source $title` |
320 | subtitles=`getsubtitles $source $title` |
| 318 | [ -n "$subtitles" ] && |
321 | [ -n "$subtitles" ] && |
| 319 | st_descr=`echo "$subtitles" | grep "^$sid[[:space:]]" | |
322 | st_descr=`echo "$subtitles" | grep "^$sid[[:space:]]" | |
| 320 | cut -f 2- -d ' '` |
323 | cut -f 2- -d ' '` |
| 321 | }
|
324 | }
|
| 322 | 325 | ||
| 323 | if [ "$source" = '-' ]; then |
326 | if [ "$source" = '-' ]; then |
| 324 | stream_file=`ls subtitle_stream-*-$title-$sid 2>/dev/null | head -n 1` |
327 | stream_file=`ls subtitle_stream-*-$title-$sid 2>/dev/null | head -n 1` |
| 325 | if [ $? -eq 0 ]; then |
328 | if [ $? -eq 0 ]; then |
| 326 | read -r -s -p "Use '$stream_file' [Y/n]? " -n 1 |
329 | read -r -s -p "Use '$stream_file' [Y/n]? " -n 1 |
| 327 | case $REPLY in |
330 | case $REPLY in |
| 328 | [Nn]) |
331 | [Nn]) |
| 329 | echo $REPLY |
332 | echo $REPLY |
| 330 | exit 1;; |
333 | exit 1;; |
| 331 | *) |
334 | *) |
| 332 | echo Y
|
335 | echo Y
|
| 333 | esac
|
336 | esac
|
| 334 | echo
|
337 | echo
|
| 335 | 338 | ||
| 336 | id=${stream_file#*-} |
339 | id=${stream_file#*-} |
| 337 | else
|
340 | else
|
| 338 | echo "$appname: No such file: subtitle_stream-*-$title-$sid" >&2 |
341 | echo "$appname: No such file: subtitle_stream-*-$title-$sid" >&2 |
| 339 | exit $ECANTEXTRACT |
342 | exit $ECANTEXTRACT |
| 340 | fi
|
343 | fi
|
| 341 | else
|
344 | else
|
| 342 | read_error () |
345 | read_error () |
| 343 | {
|
346 | {
|
| 344 | case $1 in |
347 | case $1 in |
| 345 | 0) subject='titles available on this DVD source.';; |
348 | 0) subject='titles available on this DVD source.';; |
| 346 | *) subject='subtitles available for this title.';; |
349 | *) subject='subtitles available for this title.';; |
| 347 | esac
|
350 | esac
|
| 348 | 351 | ||
| 349 | echo >&2 "\ |
352 | echo >&2 "\ |
| 350 | Sorry, there are no $subject
|
353 | Sorry, there are no $subject
|
| 351 | Please verify that the DVD data source is available and
|
354 | Please verify that the DVD data source is available and
|
| 352 | that its filesystem is consistent."
|
355 | that its filesystem is consistent."
|
| 353 | 356 | ||
| 354 | unset subject
|
357 | unset subject
|
| 355 | exit $ECANTEXTRACT |
358 | exit $ECANTEXTRACT |
| 356 | }
|
359 | }
|
| 357 | 360 | ||
| 358 | if [ "$title" = '-' ]; then |
361 | if [ "$title" = '-' ]; then |
| 359 | titles=`mplayer -dvd-device "$source" -vo null -ao null -frames 0 \ |
362 | titles=`mplayer -dvd-device "$source" -vo null -ao null -frames 0 \ |
| 360 | -v dvd:// 2>&1 | egrep '[0-9]+ titles'` |
363 | -v dvd:// 2>&1 | egrep '[0-9]+ titles'` |
| 361 | num_titles=`echo "$titles" | awk '{print $3}'` |
364 | num_titles=`echo "$titles" | awk '{print $3}'` |
| 362 | 365 | ||
| 363 | [ $(($num_titles)) -lt 1 ] && read_error 0 |
366 | [ $(($num_titles)) -lt 1 ] && read_error 0 |
| 364 | 367 | ||
| 365 | echo "$titles" |
368 | echo "$titles" |
| 366 | while true |
369 | while true |
| 367 | do
|
370 | do
|
| 368 | read -r -p "\ |
371 | read -r -p "\ |
| 369 | ${extd}Enter title# (1-$num_titles), or nothing to abort: $norm"
|
372 | ${extd}Enter title# (1-$num_titles), or nothing to abort: $norm"
|
| 370 | if [ -n "$REPLY" ]; then |
373 | if [ -n "$REPLY" ]; then |
| 371 | title=$(($REPLY)) |
374 | title=$(($REPLY)) |
| 372 | [ $title -ge 1 -a $title -le $num_titles ] && break |
375 | [ $title -ge 1 -a $title -le $num_titles ] && break |
| 373 | else
|
376 | else
|
| 374 | exit $ECANTEXTRACT |
377 | exit $ECANTEXTRACT |
| 375 | fi
|
378 | fi
|
| 376 | done
|
379 | done
|
| 377 | echo
|
380 | echo
|
| 378 | fi
|
381 | fi
|
| 379 | 382 | ||
| 380 | if [ "$sid" = '-' ]; then |
383 | if [ "$sid" = '-' ]; then |
| 381 | if [ -z "$subtitles" ]; then subtitles=`"$0" -lt "$title" "$source"`; fi |
384 | if [ -z "$subtitles" ]; then subtitles=`"$0" -lt "$title" "$source"`; fi |
| 382 | if [ $? -eq 0 ]; then |
385 | if [ $? -eq 0 ]; then |
| 383 | sid_max=`echo "$subtitles" | tail -n 1 | awk '{print $1}'` |
386 | sid_max=`echo "$subtitles" | tail -n 1 | awk '{print $1}'` |
| 384 | echo "$subtitles" |
387 | echo "$subtitles" |
| 385 | while true; do |
388 | while true; do |
| 386 | read -r -p "\ |
389 | read -r -p "\ |
| 387 | ${extd}Enter ID of subtitle stream (0-$sid_max) to extract, or nothing to abort: $norm"
|
390 | ${extd}Enter ID of subtitle stream (0-$sid_max) to extract, or nothing to abort: $norm"
|
| 388 | if [ -n "$REPLY" ]; then |
391 | if [ -n "$REPLY" ]; then |
| 389 | sid=$(($REPLY)) |
392 | sid=$(($REPLY)) |
| 390 | [ $sid -ge 0 -a $sid -lt $sid_max ] && break |
393 | [ $sid -ge 0 -a $sid -lt $sid_max ] && break |
| 391 | else
|
394 | else
|
| 392 | exit $ECANTEXTRACT |
395 | exit $ECANTEXTRACT |
| 393 | fi
|
396 | fi
|
| 394 | done
|
397 | done
|
| 395 | else
|
398 | else
|
| 396 | read_error 1
|
399 | read_error 1
|
| 397 | fi
|
400 | fi
|
| 398 | fi
|
401 | fi
|
| 399 | 402 | ||
| 400 | # remove trailing /
|
403 | # remove trailing /
|
| 401 | source=${source%/} |
404 | source=${source%/} |
| 402 | 405 | ||
| 403 | vol=`(echo $(volname $source 2>/dev/null); exit $?;) || echo ${source##*/}` |
406 | vol=`(echo $(volname $source 2>/dev/null); exit $?;) || echo ${source##*/}` |
| 404 | id=$vol-$title-$sid |
407 | id=$vol-$title-$sid |
| 405 | stream_file=subtitle_stream-$id |
408 | stream_file=subtitle_stream-$id |
| 406 | 409 | ||
| 407 | unset REPLY
|
410 | unset REPLY
|
| 408 | [ -f "$stream_file" ] && |
411 | [ -f "$stream_file" ] && |
| 409 | {
|
412 | {
|
| 410 | read -r -s -p "${extd}Use existing '$stream_file' [Y/n]? $norm" -n 1 |
413 | read -r -s -p "${extd}Use existing '$stream_file' [Y/n]? $norm" -n 1 |
| 411 | case $REPLY in |
414 | case $REPLY in |
| 412 | [Nn]) |
415 | [Nn]) |
| 413 | echo $REPLY |
416 | echo $REPLY |
| 414 | read -r -s -p "${extd}Overwrite existing '$stream_file' [y/N]? $norm"\ |
417 | read -r -s -p "${extd}Overwrite existing '$stream_file' [y/N]? $norm"\ |
| 415 | -n 1 REPLY2 |
418 | -n 1 REPLY2 |
| 416 | case $REPLY2 in |
419 | case $REPLY2 in |
| 417 | [Yy]) echo $REPLY2;; |
420 | [Yy]) echo $REPLY2;; |
| 418 | *) |
421 | *) |
| 419 | echo N
|
422 | echo N
|
| 420 | id=$vol-$title-$sid-$$ |
423 | id=$vol-$title-$sid-$$ |
| 421 | stream_file=subtitle_stream-$id |
424 | stream_file=subtitle_stream-$id |
| 422 | echo "Using '$stream_file'" |
425 | echo "Using '$stream_file'" |
| 423 | esac
|
426 | esac
|
| 424 | echo
|
427 | echo
|
| 425 | unset REPLY2;; |
428 | unset REPLY2;; |
| 426 | *) |
429 | *) |
| 427 | echo Y
|
430 | echo Y
|
| 428 | REPLY='y' |
431 | REPLY='y' |
| 429 | esac
|
432 | esac
|
| 430 | echo
|
433 | echo
|
| 431 | }
|
434 | }
|
| 432 | 435 | ||
| 433 | [ "$target" = '-' ] && target="$stream_file.srt" |
436 | [ "$target" = '-' ] && target="$stream_file.srt" |
| 434 | 437 | ||
| 435 | [ -z "$REPLY" -o "$REPLY" == 'N' -o "$REPLY" == 'n' ] && |
438 | [ -z "$REPLY" -o "$REPLY" == 'N' -o "$REPLY" == 'n' ] && |
| 436 | {
|
439 | {
|
| 437 | echo "\ |
440 | echo "\ |
| 438 | ${extd}Extracting subtitle stream $norm$sid${st_descr:+ ($st_descr)}$extd
|
441 | ${extd}Extracting subtitle stream $norm$sid${st_descr:+ ($st_descr)}$extd
|
| 439 | of title $norm#$title$extd
|
442 | of title $norm#$title$extd
|
| 440 | on $norm$source$extd
|
443 | on $norm$source$extd
|
| 441 | to \"$norm$target$extd\" ...$norm
|
444 | to \"$norm$target$extd\" ...$norm
|
| 442 | " >&2 |
445 | " >&2 |
| 443 | 446 | ||
| 444 | > "$stream_file" |
447 | > "$stream_file" |
| 445 | tccat -i "$source" -T "$title" -L | |
448 | tccat -i "$source" -T "$title" -L | |
| 446 | tcextract -x ps1 -t vob -a 0x2$sid > "$stream_file" |
449 | tcextract -x ps1 -t vob -a 0x2$sid > "$stream_file" |
| 447 | }
|
450 | }
|
| 448 | fi
|
451 | fi
|
| 449 | 452 | ||
| 450 | if [ -f "$stream_file" -a -s "$stream_file" ]; then |
453 | if [ -f "$stream_file" -a -s "$stream_file" ]; then |
| 451 | echo "${extd}... done.$norm" |
454 | echo "${extd}... done.$norm" |
| 452 | else
|
455 | else
|
| 453 | echo "${extd}... failed.$norm" |
456 | echo "${extd}... failed.$norm" |
| 454 | [ -f "$stream_file" ] && rm ./"$stream_file" |
457 | [ -f "$stream_file" ] && rm ./"$stream_file" |
| 455 | exit $ECANTEXTRACT |
458 | exit $ECANTEXTRACT |
| 456 | fi
|
459 | fi
|
| 457 | 460 | ||
| 458 | result=$ESUCCESS |
461 | result=$ESUCCESS |
| 459 | while true |
462 | while true |
| 460 | do
|
463 | do
|
| 461 | echo -n " |
464 | echo -n " |
| 462 | ${extd}Converting subtitle stream \"$norm$stream_file$extd\"
|
465 | ${extd}Converting subtitle stream \"$norm$stream_file$extd\"
|
| 463 | to Netpbm Portable Greymaps (PGMs) ... $norm" | fold -s >&2 |
466 | to Netpbm Portable Greymaps (PGMs) ... $norm" | fold -s >&2 |
| 464 | subtitle2pgm -o ./${id}- ${grey_levels:+-c "$grey_levels"} < $stream_file |
467 | subtitle2pgm -o ./${id}- ${grey_levels:+-c "$grey_levels"} < $stream_file |
| 465 | result=$? |
468 | result=$? |
| 466 | if [ $result -eq 0 ]; then |
469 | if [ $result -eq 0 ]; then |
| 467 | echo "${extd}done.$norm |
470 | echo "${extd}done.$norm |
| 468 |
|
471 |
|
| 469 | ${extd}Converting PGMs to text files (TXTs) using GNU OCR (gocr) ... $norm"
|
472 | ${extd}Converting PGMs to text files (TXTs) using GNU OCR (gocr) ... $norm"
|
| 470 | st_lang=$(echo "$st_descr" | sed 's/.*language: \([a-z]\{2\}\)/\1/') |
473 | st_lang=$(echo "$st_descr" | sed 's/.*language: \([a-z]\{2\}\)/\1/') |
| 471 | pgm2txt ${st_lang:+-f $st_lang} ./${id}- |
474 | pgm2txt ${st_lang:+-f $st_lang} ./${id}- |
| 472 | result=$? |
475 | result=$? |
| 473 | if [ $result -eq 0 ]; then |
476 | if [ $result -eq 0 ]; then |
| 474 | echo "${extd}done, using a grey-levels value of\ |
477 | echo "${extd}done, using a grey-levels value of\ |
| 475 | \`$norm${grey_levels:-255,255,0,255}$extd'.$norm"
|
478 | \`$norm${grey_levels:-255,255,0,255}$extd'.$norm"
|
| 476 | break
|
479 | break
|
| 477 | else
|
480 | else
|
| 478 | echo "${extd}failed.
|
481 | echo "${extd}failed.
|
| 479 |
|
482 |
|
| 480 | If the conversion was cancelled due to inappropriate grey-levels value
|
483 | If the conversion was cancelled due to inappropriate grey-levels value
|
| 481 | \`${grey_levels:-255,255,0,255}', you may try another value,\
|
484 | \`${grey_levels:-255,255,0,255}', you may try another value,\
|
| 482 | else you should abort:
|
485 | else you should abort:
|
| 483 | $norm"
|
486 | $norm"
|
| 484 | select grey_levels in \ |
487 | select grey_levels in \ |
| 485 | `[ "$grey_levels" != '0,255,255,255' ] && echo 0,255,255,255` \ |
488 | `[ "$grey_levels" != '0,255,255,255' ] && echo 0,255,255,255` \ |
| 486 | `[ "$grey_levels" != '255,0,255,255' ] && echo 255,0,255,255` \ |
489 | `[ "$grey_levels" != '255,0,255,255' ] && echo 255,0,255,255` \ |
| 487 | `[ -n "$grey_levels" -a "$grey_levels" != '255,255,0,255' ] && |
490 | `[ -n "$grey_levels" -a "$grey_levels" != '255,255,0,255' ] && |
| 488 | echo 255,255,0,255` \ |
491 | echo 255,255,0,255` \ |
| 489 | `[ "$grey_levels" != '255,255,255,0' ] && echo 255,255,255,0` \ |
492 | `[ "$grey_levels" != '255,255,255,0' ] && echo 255,255,255,0` \ |
| 490 | Other \ |
493 | Other \ |
| 491 | Abort |
494 | Abort |
| 492 | do
|
495 | do
|
| 493 | case $grey_levels in |
496 | case $grey_levels in |
| 494 | Other)
|
497 | Other)
|
| 495 | read -r -p " |
498 | read -r -p " |
| 496 | ${extd}Enter new value (\`c0$extd,${norm}c1$extd,${norm}c2$extd,${norm}c3'\
|
499 | ${extd}Enter new value (\`c0$extd,${norm}c1$extd,${norm}c2$extd,${norm}c3'\
|
| 497 | with 0 <= cN <= 255), or nothing to select a value:
|
500 | with 0 <= cN <= 255), or nothing to select a value:
|
| 498 | $norm" grey_levels
|
501 | $norm" grey_levels
|
| 499 | [ -n "$grey_levels" ] && break;;
|
502 | [ -n "$grey_levels" ] && break;;
|
| 500 |
|
503 |
|
| 501 | Abort)
|
504 | Abort)
|
| 502 | result=$EOCRERROR
|
505 | result=$EOCRERROR
|
| 503 | break;;
|
506 | break;;
|
| 504 |
|
507 |
|
| 505 | *)
|
508 | *)
|
| 506 | break
|
509 | break
|
| 507 | esac
|
510 | esac
|
| 508 | done
|
511 | done
|
| 509 | fi
|
512 | fi
|
| 510 | else
|
513 | else
|
| 511 | echo "${extd}failed.$norm"
|
514 | echo "${extd}failed.$norm"
|
| 512 | result=$ECANTCONVERT
|
515 | result=$ECANTCONVERT
|
| 513 | break
|
516 | break
|
| 514 | fi
|
517 | fi
|
| 515 | done
|
518 | done
|
| 516 |
|
519 |
|
| 517 | echo -n "${extd}Cleaning up PGMs ... $norm"
|
520 | echo -n "${extd}Cleaning up PGMs ... $norm"
|
| 518 | rm ./${id}-*.pgm
|
521 | rm ./${id}-*.pgm
|
| 519 | if [ $? -eq 0 ]; then
|
522 | if [ $? -eq 0 ]; then
|
| 520 | echo "${extd}done.$norm"
|
523 | echo "${extd}done.$norm"
|
| 521 | else
|
524 | else
|
| 522 | echo "${extd}failed.$norm"
|
525 | echo "${extd}failed.$norm"
|
| 523 | fi
|
526 | fi
|
| 524 | }
|
527 | }
|
| 525 |
|
528 |
|
| 526 | [ $result -eq $ESUCCESS ] &&
|
529 | [ $result -eq $ESUCCESS ] &&
|
| 527 | {
|
530 | {
|
| 528 | if [ $compile -eq 1 ]; then
|
531 | if [ $compile -eq 1 ]; then
|
| 529 | try_file ()
|
532 | try_file ()
|
| 530 | {
|
533 | {
|
| 531 | [ ! -f "$source" ] && source="$source.srtx"
|
534 | [ ! -f "$source" ] && source="$source.srtx"
|
| 532 | [ -f "$source" ]
|
535 | [ -f "$source" ]
|
| 533 | }
|
536 | }
|
| 534 |
|
537 |
|
| 535 | if [ -d "$source" ]; then
|
538 | if [ -d "$source" ]; then
|
| 536 | # TODO: loop through all .srtx files in the directory
|
539 | # TODO: loop through all .srtx files in the directory
|
| 537 | if [ "$source" != '.' ]; then cd "$source"; fi
|
540 | if [ "$source" != '.' ]; then cd "$source"; fi
|
| 538 | [ $? -eq 0 ] &&
|
541 | [ $? -eq 0 ] &&
|
| 539 | {
|
542 | {
|
| 540 | ls "$source"/*.srtx 2>/dev/null
|
543 | ls "$source"/*.srtx 2>/dev/null
|
| 541 | }
|
544 | }
|
| 542 | echo >&2 "$appname: $source: Directory compile is not yet supported."
|
545 | echo >&2 "$appname: $source: Directory compile is not yet supported."
|
| 543 | exit $ECANTCOMPILE
|
546 | exit $ECANTCOMPILE
|
| 544 | elif try_file; then
|
547 | elif try_file; then
|
| 545 | d=${source%/*}
|
548 | d=${source%/*}
|
| 546 | if [ -a -d "$d" -a "$d" != '.' ]; then cd "$d"; fi
|
549 | if [ -a -d "$d" -a "$d" != '.' ]; then cd "$d"; fi
|
| 547 | id=${source%-*}
|
550 | id=${source%-*}
|
| 548 | stream_file=subtitle_stream-$id
|
551 | stream_file=subtitle_stream-$id
|
| 549 | source="./${source##*/}"
|
552 | source="./${source##*/}"
|
| 550 | else
|
553 | else
|
| 551 | echo >&2 "$appname: $source: No such file or directory."
|
554 | echo >&2 "$appname: $source: No such file or directory."
|
| 552 | exit $ECANTCOMPILE
|
555 | exit $ECANTCOMPILE
|
| 553 | fi
|
556 | fi
|
| 554 | else
|
557 | else
|
| 555 | source="${id}-.srtx"
|
558 | source="${id}-.srtx"
|
| 556 | fi
|
559 | fi
|
| 557 |
|
560 |
|
| 558 | unset REPLY
|
561 | unset REPLY
|
| 559 | [ -f "$target" ] &&
|
562 | [ -f "$target" ] &&
|
| 560 | {
|
563 | {
|
| 561 | # TODO: allow for diff
|
564 | # TODO: allow for diff
|
| 562 | read -r -s -p "${extd}'$target' exists.
|
565 | read -r -s -p "${extd}'$target' exists.
|
| 563 | Append, overwrite, create new file, or abort [a/o/n/Esc]? $norm" \
|
566 | Append, overwrite, create new file, or abort [a/o/n/Esc]? $norm" \
|
| 564 | -n 1
|
567 | -n 1
|
| 565 | case $REPLY in
|
568 | case $REPLY in
|
| 566 | [Oo]) echo $REPLY;;
|
569 | [Oo]) echo $REPLY;;
|
| 567 | [Aa]) echo $REPLY;;
|
570 | [Aa]) echo $REPLY;;
|
| 568 | [Nn])
|
571 | [Nn])
|
| 569 | echo $REPLY
|
572 | echo $REPLY
|
| 570 | target="${target%.*}-$$.${target##*.}";;
|
573 | target="${target%.*}-$$.${target##*.}";;
|
| 571 | *)
|
574 | *)
|
| 572 | REPLY=Abort
|
575 | REPLY=Abort
|
| 573 | echo $REPLY
|
576 | echo $REPLY
|
| 574 | exit $ECANTCOMPILE;;
|
577 | exit $ECANTCOMPILE;;
|
| 575 | esac
|
578 | esac
|
| 576 | }
|
579 | }
|
| 577 |
|
580 |
|
| 578 | echo "
|
581 | echo "
|
| 579 | ${extd}Compiling TXTs into \"$norm$target$extd\" ... $norm"
|
582 | ${extd}Compiling TXTs into \"$norm$target$extd\" ... $norm"
|
| 580 |
|
583 |
|
| 581 | case "$REPLY" in
|
584 | case "$REPLY" in
|
| 582 | [Oo]) > "$target";;
|
585 | [Oo]) > "$target";;
|
| 583 | [Aa])
|
586 | [Aa])
|
| 584 | # append new content marker here
|
587 | # append new content marker here
|
| 585 | echo "
|
588 | echo "
|
| 586 | -- `whoami`@`hostname` -- `date` --
|
589 | -- `whoami`@`hostname` -- `date` --
|
| 587 | " >> "$target" |
590 | " >> "$target" |
| 588 | esac
|
591 | esac
|
| 589 | 592 | ||
| 590 | (
|
593 | (
|
| 591 | # sed: thx to Erkan Yanar <erkan.yanar@t-online.de>, see
|
594 | # sed: thx to Erkan Yanar <erkan.yanar@t-online.de>, see
|
| 592 | # message ID <lduohb.v74.ln@510002093148-0001.dialin.t-online.de>
|
595 | # message ID <lduohb.v74.ln@510002093148-0001.dialin.t-online.de>
|
| 593 | srttool -s -i "$source" |
596 | srttool -s -i "$source" |
| 594 | 597 | ||
| 595 | # only if srttool is not available
|
598 | # only if srttool is not available
|
| 596 | if [ $? -gt 1 ]; then |
599 | if [ $? -gt 1 ]; then |
| 597 | sed -n 's,^\(\([^/]*\)\(/\)\(.*\.pgm\.txt\)\)$,/^\2\\\3\4$/ { \ |
600 | sed -n 's,^\(\([^/]*\)\(/\)\(.*\.pgm\.txt\)\)$,/^\2\\\3\4$/ { \ |
| 598 | r \1 \
|
601 | r \1 \
|
| 599 | d \
|
602 | d \
|
| 600 | },gp' "$source" | sed -f - "$source" |
603 | },gp' "$source" | sed -f - "$source" |
| 601 | fi
|
604 | fi
|
| 602 | ) >> "$target" |
605 | ) >> "$target" |
| 603 | 606 | ||
| 604 | if [ $? -eq 0 ]; then |
607 | if [ $? -eq 0 ]; then |
| 605 | echo "${extd}... done.$norm" |
608 | echo "${extd}... done.$norm" |
| 606 | else
|
609 | else
|
| 607 | echo "${extd}... failed.$norm" |
610 | echo "${extd}... failed.$norm" |
| 608 | exit $ECANTCOMPILE |
611 | exit $ECANTCOMPILE |
| 609 | fi
|
612 | fi
|
| 610 | 613 | ||
| 611 | echo -n "${extd}Cleaning up |
614 | echo -n "${extd}Cleaning up |
| 612 | ${id}-*.pgm.txt files ... $norm"
|
615 | ${id}-*.pgm.txt files ... $norm"
|
| 613 | rm ./"${id}"-*.pgm.txt |
616 | rm ./"${id}"-*.pgm.txt |
| 614 | if [ $? -eq 0 ]; then |
617 | if [ $? -eq 0 ]; then |
| 615 | echo "${extd}done.$norm" |
618 | echo "${extd}done.$norm" |
| 616 | else
|
619 | else
|
| 617 | echo "${extd}failed.$norm" |
620 | echo "${extd}failed.$norm" |
| 618 | result=$ECANTCLEANUP |
621 | result=$ECANTCLEANUP |
| 619 | fi
|
622 | fi
|
| 620 | 623 | ||
| 621 | echo -n " ${extd}Subtitle index file '${id}-.srtx' ... $norm" |
624 | echo -n " ${extd}Subtitle index file '${id}-.srtx' ... $norm" |
| 622 | rm ./"${id}-.srtx" # "$target.srtx" |
625 | rm ./"${id}-.srtx" # "$target.srtx" |
| 623 | if [ $? -eq 0 ]; then |
626 | if [ $? -eq 0 ]; then |
| 624 | echo "${extd}done.$norm" |
627 | echo "${extd}done.$norm" |
| 625 | else
|
628 | else
|
| 626 | echo "${extd}failed.$norm" |
629 | echo "${extd}failed.$norm" |
| 627 | result=$ECANTCLEANUP |
630 | result=$ECANTCLEANUP |
| 628 | fi
|
631 | fi
|
| 629 | 632 | ||
| 630 | [ $keep -eq 0 -a -f "./$stream_file" ] && |
633 | [ $keep -eq 0 -a -f "./$stream_file" ] && |
| 631 | {
|
634 | {
|
| 632 | echo -n " ${extd}Subtitle stream file '${stream_file}' ... $norm" |
635 | echo -n " ${extd}Subtitle stream file '${stream_file}' ... $norm" |
| 633 | rm ./"$stream_file" |
636 | rm ./"$stream_file" |
| 634 | 637 | ||
| 635 | if [ $? -eq 0 ]; then |
638 | if [ $? -eq 0 ]; then |
| 636 | echo "${extd}done.$norm" |
639 | echo "${extd}done.$norm" |
| 637 | else
|
640 | else
|
| 638 | echo "${extd}failed.$norm" |
641 | echo "${extd}failed.$norm" |
| 639 | result=$ECANTCLEANUP |
642 | result=$ECANTCLEANUP |
| 640 | fi
|
643 | fi
|
| 641 | }
|
644 | }
|
| 642 | 645 | ||
| 643 | exit $result |
646 | exit $result |
| 644 | }
|
647 | }
|
| 645 | 648 | ||