summary refs log tree commit diff
path: root/src
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 /src
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
Diffstat (limited to 'src')
-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)))