diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-08 19:50:54 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-08 19:50:54 +0000 |
commit | 8fedf48b3b154a2936f0c5e57bb1e0f9ab2e57b9 (patch) | |
tree | cdac473eca976e9e7b08e9f15b378bbdeece9589 /scm/dictrans.scm | |
parent | 05be2845943e0850121a60e463af608c2db3cf2a (diff) | |
download | ellinika-8fedf48b3b154a2936f0c5e57bb1e0f9ab2e57b9.tar.gz ellinika-8fedf48b3b154a2936f0c5e57bb1e0f9ab2e57b9.tar.bz2 |
Moved to /scm
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@200 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'scm/dictrans.scm')
-rw-r--r-- | scm/dictrans.scm | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm index ff99dea..bbb6058 100644 --- a/scm/dictrans.scm +++ b/scm/dictrans.scm | |||
@@ -1,3 +1,5 @@ | |||
1 | #! =GUILE_BINDIR=/guile -s | ||
2 | !# | ||
1 | ;;;; This file is part of Ellinika | 3 | ;;;; This file is part of Ellinika |
2 | ;;;; Copyright (C) 2004 Sergey Poznyakoff | 4 | ;;;; Copyright (C) 2004 Sergey Poznyakoff |
3 | ;;;; | 5 | ;;;; |
@@ -78,10 +80,8 @@ | |||
78 | ;;;; <X>string</X>* | 80 | ;;;; <X>string</X>* |
79 | ;;;; <T ID="string" />* | 81 | ;;;; <T ID="string" />* |
80 | ;;;; </NODE> | 82 | ;;;; </NODE> |
83 | ;=UPDPATH= | ||
81 | 84 | ||
82 | (set! %load-path (cons "/usr/local/share/guile-sql" %load-path)) | ||
83 | (set! %load-path (cons "/home/gray/linguae/ellinika" %load-path)) | ||
84 | |||
85 | (use-modules (xmltools xmltrans) | 85 | (use-modules (xmltools xmltrans) |
86 | (sql) | 86 | (sql) |
87 | (ellinika xlat) | 87 | (ellinika xlat) |
@@ -103,6 +103,13 @@ | |||
103 | (define debug-level 0) | 103 | (define debug-level 0) |
104 | (define input-files '()) | 104 | (define input-files '()) |
105 | 105 | ||
106 | (define sysconf-dir "=SYSCONFDIR=") | ||
107 | |||
108 | ;;; Load the site defaults | ||
109 | (let ((rc-file (string-append sysconf-dir "/" config-file-name))) | ||
110 | (if (file-exists? rc-file) | ||
111 | (load rc-file))) | ||
112 | |||
106 | (define (debug level . rest) | 113 | (define (debug level . rest) |
107 | (if (>= debug-level level) | 114 | (if (>= debug-level level) |
108 | (begin | 115 | (begin |
@@ -350,8 +357,6 @@ | |||
350 | ((not (current-node-get #:key)) | 357 | ((not (current-node-get #:key)) |
351 | (xmltrans:parse-error #f "K element is missing")) | 358 | (xmltrans:parse-error #f "K element is missing")) |
352 | ((or (null? (current-node-get #:p-list)) (null? (null? (current-node-get #:xref)))) | 359 | ((or (null? (current-node-get #:p-list)) (null? (null? (current-node-get #:xref)))) |
353 | ; (display current-node)(newline) | ||
354 | ; (display p-article)(newline) | ||
355 | (xmltrans:parse-error #f "No articles and no cross references for the node")) | 360 | (xmltrans:parse-error #f "No articles and no cross references for the node")) |
356 | (else | 361 | (else |
357 | (push-node current-node))) | 362 | (push-node current-node))) |
@@ -821,4 +826,9 @@ | |||
821 | 826 | ||
822 | (exit 0) | 827 | (exit 0) |
823 | 828 | ||
829 | ;;;; Local variables: | ||
830 | ;;;; mode: Scheme | ||
831 | ;;;; buffer-file-coding-system: utf-8 | ||
832 | ;;;; End: | ||
833 | |||
824 | \ No newline at end of file | 834 | \ No newline at end of file |