From 02c35cc5a412282251cf5338e9d9b3234f753189 Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Mon, 5 Feb 2007 14:33:46 +0000 Subject: 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 --- src/guile/skribilo/condition.scm | 21 ++++++++++++++------- 1 file 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))) -- cgit v1.2.3