Permalink
Browse files

Fixed dngettext as well.

  • Loading branch information...
Gustavo Henrique Milaré
Gustavo Henrique Milaré committed Jan 16, 2012
1 parent 9dad09b commit 5d4a6eee99e90f8b4fe3553f806e253aefda8205
Showing with 6 additions and 1 deletion.
  1. +6 −1 gettext-cffi.lisp
View
@@ -102,12 +102,17 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
(+ 1000000 (rem n 1000000))
n)))
-(cffi:defcfun ("dngettext" dngettext) :string
+(cffi:defcfun ("dngettext" %dngettext) :string
(__domainname :string)
(__msgid1 :string)
(__msgid2 :string)
(__n :unsigned-long))
+(defun dngettext (domainname msgid1 msgid2 n)
+ (%dngettext domainname msgid1 msgid2 (if (> n 1000000)
+ (+ 1000000 (rem n 1000000))
+ n)))
+
(cffi:defcfun ("textdomain" textdomain) :string
"Set the textdomain for the application. The textdomain is the name (before the dot) of your project's .mo files"
(__domainname :string))

0 comments on commit 5d4a6ee

Please sign in to comment.