aboutsummaryrefslogtreecommitdiff
path: root/scm/dictrans.scm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2008-06-01 16:53:17 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2008-06-01 16:53:17 +0000
commit76aa8f7cedc2f74872f84953be7cb232f743f877 (patch)
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')
-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
@@ -994,3 +994,3 @@ Informational options:
-(if (null? input-files)
+(if (and (null? input-files) (not cleanup-option))
(begin
@@ -1028,3 +1028,8 @@ Informational options:
(cleanup-db conn))
-
+
+ (if (null? input-files)
+ (begin
+ (sql-connect-close conn)
+ (exit 0)))
+
(get-dict-index conn)

Return to:

Send suggestions and report system problems to the System administrator.