# HG changeset patch
# User Igor Chubin <igor@chub.in>
# Date 1270051142 -10800
# Node ID 0ff259b8b6a326581a4c4c81d633efe20c3fe2b9
# Parent  57dc4ef40415d17916eb306b3258d0aabaefbb6b
v0.1: INSTALL.sh + minifixes

diff -r 57dc4ef40415 -r 0ff259b8b6a3 INSTALL.sh
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/INSTALL.sh	Wed Mar 31 18:59:02 2010 +0300
@@ -0,0 +1,19 @@
+#!/bin/sh
+
+if [ "$UID" == 0 ]
+then
+    DEST=/usr/local/bin/
+else
+    DEST=~/bin/
+    mkdir -p ~/bin/
+fi
+
+echo Installing new-words to "$DEST"
+set -e
+cp en.sh "${DEST}"/en
+cp grep-sentences.pl "${DEST}"/grep-sentences
+cp learn-words.sh "${DEST}"/learn-words
+cp new-words.sh "${DEST}"/new-words
+chmod +x ${DEST}/grep-sentences ${DEST}/learn-words ${DEST}/new-words ${DEST}/en
+echo Done.
+
diff -r 57dc4ef40415 -r 0ff259b8b6a3 README
--- a/README	Wed Mar 31 18:56:56 2010 +0300
+++ b/README	Wed Mar 31 18:59:02 2010 +0300
@@ -7,6 +7,7 @@
 == Файлы ==
 
 README              Файл, который мы сейчас читаем
+INSTALL.sh          Инсталляционный скрипт (копирует исполняемые файлы в /usr/local/bin/ или в ~/bin/)
 new-words.sh        Собственно программа (написана на sh)
 new-words.pl        Программа new-words, которую мы когда-нибудь напишем на Perl
 grep-sentences.pl   Программа, которая ищет в файле предложения (текст, разделённый точками) по словам
diff -r 57dc4ef40415 -r 0ff259b8b6a3 new-words.sh
--- a/new-words.sh	Wed Mar 31 18:56:56 2010 +0300
+++ b/new-words.sh	Wed Mar 31 18:59:02 2010 +0300
@@ -193,6 +193,7 @@
 }
 
 mkdir -p $WORK_DIR
+oldpwd="$PWD"
 cd $WORK_DIR
 if echo "$1" | grep -q http: 
 then 
@@ -200,7 +201,7 @@
     | get_words ${TEMP1}-full | add_stat ${TEMP1}-full| tee "$TEMP1" > "$TEMP2"
 elif [ "$#" != 0 ]
 then
-    cat "$1" | tee $ORIGINAL_TEXT \
+    cat "$oldpwd/$1" | tee $ORIGINAL_TEXT \
     | get_words ${TEMP1}-full | add_stat ${TEMP1}-full | tee "$TEMP1" > "$TEMP2"
 else 
     tee $ORIGINAL_TEXT \