Re: Internationalization

[Lars Magne Ingebrigtsen <larsi@ifi.uio.no>]

Perhaps this patch is a bit better.  It avoids creating garbage
strings when performing identity translations.  I've also moved it to
doc.c, which seemed a nicer place.  

`documentation' now runs all strings through `translate-string', so
xgettext for Elisp files should snarf both the `_' forms and all
documentation strings for interactive functions.  Probably.

*** doc.c.~1~	Wed Apr 10 00:08:50 1996
--- doc.c	Tue Nov 12 23:40:02 1996
***************
*** 36,41 ****
--- 36,46 ----
  #define O_RDONLY 0
  #endif
  
+ #define USE_GETTEXT 
+ #ifdef USE_GETTEXT
+ #include <libintl.h>
+ #endif
+ 
  #include "lisp.h"
  #include "buffer.h"
  #include "keyboard.h"
***************
*** 335,341 ****
        doc = Fsubstitute_command_keys (doc);
        UNGCPRO;
      }
!   return doc;
  }
  
  DEFUN ("documentation-property", Fdocumentation_property, Sdocumentation_property, 2, 3, 0,
--- 340,346 ----
        doc = Fsubstitute_command_keys (doc);
        UNGCPRO;
      }
!   return Ftranslate_string (doc);
  }
  
  DEFUN ("documentation-property", Fdocumentation_property, Sdocumentation_property, 2, 3, 0,
***************
*** 688,693 ****
--- 693,779 ----
    xfree (buf);
    RETURN_UNGCPRO (tem);
  }
+ 
+ 
+ \f
+ DEFUN ("translate-string", Ftranslate_string, Stranslate_string, 1, 1, "sTranslate string: ",
+        "Translate STRING using gettext.")
+      (string)
+      Lisp_Object string;
+ {
+   char *trans;
+   CHECK_STRING (string, 0);
+ 
+ #ifdef USE_GETTEXT
+   trans = gettext (XSTRING (string)->data);
+   /* Check whether the translation returned a new string.  If not,
+      just return the old string.  This avoids creating garbage strings. */
+   if (strcmp (XSTRING (string)->data, trans))
+     return build_string (trans);
+   else
+     return string;
+ #else
+   return string;
+ #endif
+ }
+ 
+ DEFUN ("set-translation-domain", Fset_translation_domain, Sset_translation_domain, 1, 1, 0,
+        "Set the current translation domain to STRING.")
+      (string)
+      Lisp_Object string;
+ {
+   CHECK_STRING (string, 0);
+ 
+ #ifdef USE_GETTEXT
+   textdomain (XSTRING (string)->data);
+   return string;
+ #else
+   return Qnil;
+ #endif
+ }
+ 
+ DEFUN ("get-translation-domain", Fget_translation_domain, Sget_translation_domain, 0, 0, 0,
+        "Return the current translation domain.")
+      ()
+ {
+ #ifdef USE_GETTEXT
+   return build_string (textdomain (NULL));
+ #else
+   return Qnil;
+ #endif
+ }
+ 
+ DEFUN ("set-translation-directory", Fset_translation_directory, Sset_translation_directory, 1, 1, 0,
+        "Set the current translation directory to STRING.")
+      (string)
+      Lisp_Object string;
+ {
+   CHECK_STRING (string, 0);
+ 
+ #ifdef USE_GETTEXT
+   bindtextdomain (textdomain (NULL), XSTRING (string)->data);
+   return string;
+ #else
+   return Qnil;
+ #endif
+ }
+ 
+ DEFUN ("get-translation-directory", Fget_translation_directory, Sget_translation_directory, 0, 0, 0,
+        "Return the current translation directory.")
+      ()
+ {
+   char *dir;
+ #ifdef USE_GETTEXT
+   if (dir = bindtextdomain (textdomain (NULL), NULL))
+     return build_string (dir);
+   else
+     return Qnil;
+ #else
+   return Qnil;
+ #endif
+ }
+ 
+ 
  \f
  syms_of_doc ()
  {
***************
*** 699,702 ****
--- 785,794 ----
    defsubr (&Sdocumentation_property);
    defsubr (&Ssnarf_documentation);
    defsubr (&Ssubstitute_command_keys);
+ 
+   defsubr (&Stranslate_string);
+   defsubr (&Sget_translation_domain);
+   defsubr (&Sset_translation_domain);
+   defsubr (&Sget_translation_directory);
+   defsubr (&Sset_translation_directory);
  }

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@ifi.uio.no * Lars Ingebrigtsen