summaryrefslogtreecommitdiffabout
path: root/scm/dictrans.scm
authorSergey Poznyakoff <gray@gnu.org.ua>2008-06-01 16:53:17 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2008-06-01 16:53:17 (GMT)
commit76aa8f7cedc2f74872f84953be7cb232f743f877 (patch) (side-by-side diff)
tree84924a66d385fe2019f53875a63340a7100a25f8 /scm/dictrans.scm
parentf9ce050247243d9476fc6a0ce6f472ce95e525a9 (diff)
downloadellinika-76aa8f7cedc2f74872f84953be7cb232f743f877.tar.gz
ellinika-76aa8f7cedc2f74872f84953be7cb232f743f877.tar.bz2
* scm/dictrans.scm: Allow to call without arguments if --cleanup
option is given. * configure.ac (AC_CONFIG_FILES): Add data/pl/Makefile * data/*.xml: Move to data/ru * data/Makefile.am: Rewrite: * data/ru: New directory * data/pl: New directory * data/pl/Makefile.am: New file. * data/pl/setup.xml: New file. * data/pl/0.xml: New file. git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@507 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'scm/dictrans.scm') (more/less context) (ignore whitespace changes)
-rw-r--r--scm/dictrans.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm
index 6c55765..7161e2d 100644
--- a/scm/dictrans.scm
+++ b/scm/dictrans.scm
@@ -992,7 +992,7 @@ Informational options:
(getopt-long (command-line) grammar))
-(if (null? input-files)
+(if (and (null? input-files) (not cleanup-option))
(begin
(display "Input files not specified\n" (current-error-port))
(exit 1)))
@@ -1026,7 +1026,12 @@ Informational options:
(if cleanup-option
(cleanup-db conn))
-
+
+ (if (null? input-files)
+ (begin
+ (sql-connect-close conn)
+ (exit 0)))
+
(get-dict-index conn)
(insert-categories conn)

Return to:

Send suggestions and report system problems to the System administrator.