mirror of
https://github.com/macports/macports-ports.git
synced 2026-07-12 18:20:25 -07:00
Mojca Miklavec
d81a7ee766
git-svn-id: https://svn.macports.org/repository/macports/trunk/dports@154202 d073be05-634f-4543-b044-5fe20cf6d1d6
48 lines
1.5 KiB
Diff
48 lines
1.5 KiB
Diff
--- extract.sh.orig
|
|
+++ extract.sh
|
|
@@ -15,18 +15,41 @@ fi
|
|
dir=`cd $(dirname $0) && pwd`
|
|
. $dir/conf.sh
|
|
|
|
+PERL=@PERL@
|
|
export LANG=C
|
|
export LC_ALL=C
|
|
export EXOPLIB=$dir/lib
|
|
export EXOPDIC=$dir/dic
|
|
|
|
+cmd=`basename $0`
|
|
+
|
|
+usage() {
|
|
+ echo "Usage: $cmd [options] file_name [topic_str]"
|
|
+ echo "Options: -h, --help Show this message"
|
|
+ echo " -d, --dictionary DIR Specify the dictionary directory"
|
|
+ echo " -m, --model BASE Specify the base path of model files"
|
|
+ echo " -t, --tmpdir DIR Specify the temporary directory"
|
|
+ exit -1
|
|
+}
|
|
+
|
|
+while test -n "$1"; do
|
|
+ case "$1" in
|
|
+ -h|--help) usage ;;
|
|
+ -d|--dictionary) dictionary="$2"; shift 2 ;;
|
|
+ -m|--model) model="$2"; shift 2 ;;
|
|
+ -t|--tmpdir) TMPDIR="$2"; shift 2 ;;
|
|
+ *) file_name="$1"; topic_str="$2"; break ;;
|
|
+ esac
|
|
+done
|
|
+
|
|
tmp=${TMPDIR:-.}
|
|
tsvfile=$tmp/extract.$$.tsv
|
|
+euc_file=$tmp/extract.$$.euc
|
|
|
|
#nkf -e -W --fb-skip < $1 > $1.euc
|
|
# $B;XDjJ8;z%3!<%I$O4D6-$K$h$C$FI=5-$,0c$&$?$a(Biconv -l$B$G3NG'(B
|
|
-iconv -c -f UTF-8 -t EUC-JP < $1 > $1.euc
|
|
-perl -I $EXOPLIB $EXOPLIB/in2tsv.pl $1.euc $2 > $tsvfile
|
|
-$dir/_extract.sh $model $tsvfile | perl -I $EXOPLIB $EXOPLIB/tsv2out.pl
|
|
+iconv -c -f UTF-8 -t EUC-JP < $file_name > $euc_file
|
|
+$PERL -I $EXOPLIB $EXOPLIB/in2tsv.pl $euc_file $topic_str > $tsvfile
|
|
+$dir/_extract.sh $model $tsvfile | $PERL -I $EXOPLIB $EXOPLIB/tsv2out.pl
|
|
|
|
rm -f $tsvfile
|