Re: Internationalization

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

Ok; so I'm kinda impatient.  :-)  Here's a patch to install the
gettext functions into Emacs.  It defines five subrs, `get-text',
`{g,s}et-text-domain' and `{g,s}et-text-directory'.  I think these
should all be renamed, and editfns.c is probably the wrong file for
these functions.  `translate' would be better than `get-text', and
`get-translation-domain' (etc) would follow naturally.

Is this all it takes to use gettext?  Kinda amazing.

*** editfns.c.~1~	Tue Aug  6 10:16:40 1996
--- editfns.c	Tue Nov 12 22:54:02 1996
***************
*** 2447,2452 ****
--- 2447,2537 ----
  }
  
  \f
+ 
+ #define USE_GETTEXT 
+ #include <libintl.h>
+ 
+ DEFUN ("get-text", Fget_text, Sget_text, 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);
+   return make_string (trans, strlen(trans));
+ #else
+   return string;
+ #endif
+ 
+ }
+ 
+ DEFUN ("set-text-domain", Fset_text_domain, Sset_text_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 Qt;
+ #else
+   return Qnil;
+ #endif
+ 
+ }
+ 
+ DEFUN ("get-text-domain", Fget_text_domain, Sget_text_domain, 0, 0, 0,
+        "Return the current translation domain.")
+      ()
+ {
+   char *domain;
+ #ifdef USE_GETTEXT
+   domain = textdomain (NULL);
+   return make_string (domain, strlen (domain));
+ #else
+   return Qnil;
+ #endif
+ 
+ }
+ 
+ DEFUN ("set-text-directory", Fset_text_directory, Sset_text_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 Qt;
+ #else
+   return Qnil;
+ #endif
+ 
+ }
+ 
+ DEFUN ("get-text-directory", Fget_text_directory, Sget_text_directory, 0, 0, 0,
+        "Return the current translation directory.")
+      ()
+ {
+   char *dir;
+ #ifdef USE_GETTEXT
+   if (dir = bindtextdomain (textdomain (NULL), NULL))
+     return make_string (dir, strlen (dir));
+   else
+     return Qnil;
+ #else
+   return Qnil;
+ #endif
+ 
+ }
+ 
+ 
+ \f
  void
  syms_of_editfns ()
  {
***************
*** 2558,2561 ****
--- 2643,2652 ----
    defsubr (&Snarrow_to_region);
    defsubr (&Ssave_restriction);
    defsubr (&Stranspose_regions);
+ 
+   defsubr (&Sget_text);
+   defsubr (&Sget_text_domain);
+   defsubr (&Sset_text_domain);
+   defsubr (&Sget_text_directory);
+   defsubr (&Sset_text_directory);
  }


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