summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2007-02-05 14:33:46 +0000
committerLudovic Court`es2007-02-05 14:33:46 +0000
commit02c35cc5a412282251cf5338e9d9b3234f753189 (patch)
treebff7473ebc9c00a8940e5a3c9d271e6dfd207756
parentbe617853585fce968d4885d2ac284323c742309d (diff)
downloadskribilo-02c35cc5a412282251cf5338e9d9b3234f753189.tar.gz
skribilo-02c35cc5a412282251cf5338e9d9b3234f753189.tar.lz
skribilo-02c35cc5a412282251cf5338e9d9b3234f753189.zip
Internationalized `(skribilo condition)'.
* src/guile/skribilo/condition.scm: Autoload `(skribilo utils syntax)'. (%call-with-skribilo-error-catch): I18n'd messages. git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-16
-rw-r--r--src/guile/skribilo/condition.scm21
1 files changed, 14 insertions, 7 deletions
diff --git a/src/guile/skribilo/condition.scm b/src/guile/skribilo/condition.scm
index 4d61efb..3490135 100644
--- a/src/guile/skribilo/condition.scm
+++ b/src/guile/skribilo/condition.scm
@@ -23,6 +23,7 @@
:autoload (srfi srfi-34) (guard)
:use-module (srfi srfi-35)
:use-module (srfi srfi-39)
+ :autoload (skribilo utils syntax) (_ N_)
:export (&skribilo-error skribilo-error?
&invalid-argument-error invalid-argument-error?
&too-few-arguments-error too-few-arguments-error?
@@ -118,34 +119,40 @@
(define (%call-with-skribilo-error-catch thunk exit exit-val)
(guard (c ((invalid-argument-error? c)
- (format (current-error-port) "in `~a': invalid argument: ~S~%"
+ (format (current-error-port)
+ (_ "in `~a': invalid argument: ~S~%")
(invalid-argument-error:proc-name c)
(invalid-argument-error:argument c))
(exit exit-val))
((too-few-arguments-error? c)
- (format (current-error-port) "in `~a': too few arguments: ~S~%"
+ (format (current-error-port)
+ (_ "in `~a': too few arguments: ~S~%")
(too-few-arguments-error:proc-name c)
(too-few-arguments-error:arguments c)))
((file-search-error? c)
- (format (current-error-port) "~a: not found in path `~S'~%"
+ (format (current-error-port)
+ (_ "~a: not found in path `~S'~%")
(file-error:file-name c)
(file-search-error:path c))
(exit exit-val))
((file-open-error? c)
- (format (current-error-port) "~a: cannot open file~%"
+ (format (current-error-port)
+ (_ "~a: cannot open file~%")
(file-error:file-name c))
(exit exit-val))
((file-write-error? c)
- (format (current-error-port) "~a: cannot write to file~%"
+ (format (current-error-port)
+ (_ "~a: cannot write to file~%")
(file-error:file-name c))
(exit exit-val))
((file-error? c)
- (format (current-error-port) "file error: ~a~%"
+ (format (current-error-port)
+ (_ "file error: ~a~%")
(file-error:file-name c))
(exit exit-val))
@@ -156,7 +163,7 @@
(if (procedure? handler)
(handler c)
(format (current-error-port)
- "undefined skribilo error: ~S~%"
+ (_ "undefined skribilo error: ~S~%")
c)))
(exit exit-val)))