diff options
Diffstat (limited to 'dictrans.scm')
-rw-r--r-- | dictrans.scm | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/dictrans.scm b/dictrans.scm index ff99dea..bbb6058 100644 --- a/dictrans.scm +++ b/dictrans.scm @@ -1,3 +1,5 @@ +#! =GUILE_BINDIR=/guile -s +!# ;;;; This file is part of Ellinika ;;;; Copyright (C) 2004 Sergey Poznyakoff ;;;; @@ -78,10 +80,8 @@ ;;;; <X>string</X>* ;;;; <T ID="string" />* ;;;; </NODE> +;=UPDPATH= -(set! %load-path (cons "/usr/local/share/guile-sql" %load-path)) -(set! %load-path (cons "/home/gray/linguae/ellinika" %load-path)) - (use-modules (xmltools xmltrans) (sql) (ellinika xlat) @@ -103,6 +103,13 @@ (define debug-level 0) (define input-files '()) +(define sysconf-dir "=SYSCONFDIR=") + +;;; Load the site defaults +(let ((rc-file (string-append sysconf-dir "/" config-file-name))) + (if (file-exists? rc-file) + (load rc-file))) + (define (debug level . rest) (if (>= debug-level level) (begin @@ -350,8 +357,6 @@ ((not (current-node-get #:key)) (xmltrans:parse-error #f "K element is missing")) ((or (null? (current-node-get #:p-list)) (null? (null? (current-node-get #:xref)))) -; (display current-node)(newline) -; (display p-article)(newline) (xmltrans:parse-error #f "No articles and no cross references for the node")) (else (push-node current-node))) @@ -821,4 +826,9 @@ (exit 0) +;;;; Local variables: +;;;; mode: Scheme +;;;; buffer-file-coding-system: utf-8 +;;;; End: +
\ No newline at end of file |