aboutsummaryrefslogtreecommitdiff
path: root/scm/dictrans.scm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2004-10-08 19:50:54 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2004-10-08 19:50:54 +0000
commit8fedf48b3b154a2936f0c5e57bb1e0f9ab2e57b9 (patch)
treecdac473eca976e9e7b08e9f15b378bbdeece9589 /scm/dictrans.scm
parent05be2845943e0850121a60e463af608c2db3cf2a (diff)
downloadellinika-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.scm20
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

Return to:

Send suggestions and report system problems to the System administrator.