haskell中的pGetText

Question

对于很多非常短的可翻译字符串，为翻译者提供上下文很有用。但是，hgettext似乎没有导出/定义pgettext函数。

还有另一种方法可以处理haskell中这种短语可翻译的字符串，还是只是（还）没有在haskell中实现？

Answer 1

您可以在same manner of其他人中编写自己的ffi绑定。它并不难！

foreign import ccall unsafe "libintl.h pgettext" c_pgettext
    :: CString -> CString -> IO CString

pGetText :: String    
         -> String             
         -> IO String  
pGetText msgctxt msgid = 
    withCString msgctxt $ \ctxt' ->
        withCString msgid $ \msg' ->
            c_pgettext ctxt' msg' >>= fromCStringDefault msgid