summaryrefslogtreecommitdiff
path: root/src/guile/skribilo.scm
diff options
context:
space:
mode:
authorLudovic Court`es2005-11-29 13:32:30 +0000
committerLudovic Court`es2005-11-29 13:32:30 +0000
commit3918fa2a728f00838ffda94ec6427b133c5abb68 (patch)
tree82dbc19796b8cf3f51486f3e6400967e45468a56 /src/guile/skribilo.scm
parent4686c3d129e4ebb3edc97e53a20a5f9db682f993 (diff)
downloadskribilo-3918fa2a728f00838ffda94ec6427b133c5abb68.tar.gz
skribilo-3918fa2a728f00838ffda94ec6427b133c5abb68.tar.lz
skribilo-3918fa2a728f00838ffda94ec6427b133c5abb68.zip
Fixed `ref' and bibliography-related things.
* src/guile/skribilo.scm (main): Handle `--warning'. * src/guile/skribilo/biblio.scm: Export `skribe-open-bib-file' and `parse-bib'. (parse-bib): Use `%default-reader'. * src/guile/skribilo/evaluator.scm (%evaluate): Cleaned up. (skribe-eval-port): Likewise. * src/guile/skribilo/module.scm (load-file-with-read): Removed. (load-skribilo-file): Removed. (load-skribilo-modules): Removed. * src/guile/skribilo/package/slide.scm (ref): Temporarily commented out. * src/guile/skribilo/skribe/bib.scm: Use `(skribilo biblio)'. git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-15
Diffstat (limited to 'src/guile/skribilo.scm')
-rw-r--r--src/guile/skribilo.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm
index de7dac2..a560b46 100644
--- a/src/guile/skribilo.scm
+++ b/src/guile/skribilo.scm
@@ -393,6 +393,7 @@ Processes a Skribilo/Skribe source file and produces its output.
(set-current-module user-module)))))
+
;;;; ======================================================================
;;;;
;;;; M A I N
@@ -405,6 +406,7 @@ Processes a Skribilo/Skribe source file and produces its output.
(option-ref options 'target "html")))
(output-file (option-ref options 'output #f))
(debugging-level (option-ref options 'debug "0"))
+ (warning-level (option-ref options 'warning "2"))
(load-path (option-ref options 'load-path "."))
(bib-path (option-ref options 'bib-path "."))
(preload '())
@@ -433,6 +435,7 @@ Processes a Skribilo/Skribe source file and produces its output.
(parameterize ((*current-engine* engine)
(*document-path* (cons load-path (*document-path*)))
(*bib-path* (cons bib-path (*bib-path*)))
+ (*warning* (string->number warning-level))
(*verbose* (let ((v (option-ref options
'verbose 0)))
(if (number? v) v